diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index ee6e5e6d5..2a6311609 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 1710781149) + (define gerbil/compiler/base::timestamp 1710833425) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -18,25 +18,25 @@ (define gxc#current-compile-decls (make-parameter '#f)) (define gxc#current-compile-context (make-parameter '#f)) (define gxc#symbol-table::t - (let ((__tmp99560 (list)) - (__tmp99558 - (let ((__tmp99559 + (let ((__tmp99564 (list)) + (__tmp99562 + (let ((__tmp99563 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp99559 '())))) + (cons __tmp99563 '())))) (declare (not safe)) (make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp99560 + __tmp99564 '(gensyms bindings) - __tmp99558 + __tmp99562 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _$args99511_ - (apply make-instance gxc#symbol-table::t _$args99511_))) + (lambda _$args99515_ + (apply make-instance gxc#symbol-table::t _$args99515_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -70,49 +70,49 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_self99509_) - (if (let ((__tmp99566 + (lambda (_self99513_) + (if (let ((__tmp99570 (let () (declare (not safe)) - (##structure-length _self99509_)))) + (##structure-length _self99513_)))) (declare (not safe)) - (##fx< '2 __tmp99566)) + (##fx< '2 __tmp99570)) (begin - (let ((__tmp99563 + (let ((__tmp99567 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp99562 + (__tmp99566 (let () (declare (not safe)) - (##structure-type _self99509_)))) + (##structure-type _self99513_)))) (declare (not safe)) (##unchecked-structure-set! - _self99509_ - __tmp99563 + _self99513_ + __tmp99567 '1 - __tmp99562 + __tmp99566 '#f)) - (let ((__tmp99565 + (let ((__tmp99569 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp99564 + (__tmp99568 (let () (declare (not safe)) - (##structure-type _self99509_)))) + (##structure-type _self99513_)))) (declare (not safe)) (##unchecked-structure-set! - _self99509_ - __tmp99565 + _self99513_ + __tmp99569 '2 - __tmp99564 + __tmp99568 '#f))) - (let ((__tmp99561 + (let ((__tmp99565 (let () (declare (not safe)) - (##vector-length _self99509_)))) + (##vector-length _self99513_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self99509_ + _self99513_ '2 - __tmp99561))))) + __tmp99565))))) (let () (declare (not safe)) (bind-method!__% @@ -121,46 +121,46 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_message99378_ _stx99379_ . _details99380_) - (let ((_ctx99385_ - (let ((_$e99382_ (gxc#current-compile-context))) - (if _$e99382_ _$e99382_ 'compile)))) + (lambda (_message99382_ _stx99383_ . _details99384_) + (let ((_ctx99389_ + (let ((_$e99386_ (gxc#current-compile-context))) + (if _$e99386_ _$e99386_ 'compile)))) (apply gx#raise-syntax-error - _ctx99385_ - _message99378_ - _stx99379_ - _details99380_)))) + _ctx99389_ + _message99382_ + _stx99383_ + _details99384_)))) (define gxc#verbose - (lambda _args99375_ + (lambda _args99379_ (if (gxc#current-compile-verbose) - (let ((__tmp99567 (lambda () (apply displayln _args99375_)))) + (let ((__tmp99571 (lambda () (apply displayln _args99379_)))) (declare (not safe)) - (with-lock gxc#+verbose-mutex+ __tmp99567)) + (with-lock gxc#+verbose-mutex+ __tmp99571)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_id99357_) - (let* ((_str99359_ - (if (let () (declare (not safe)) (symbol? _id99357_)) - (symbol->string _id99357_) - _id99357_)) - (_len99361_ (string-length _str99359_)) - (_res99363_ (make-string _len99361_))) - (let _lp99366_ ((_i99368_ '0)) - (if (fx< _i99368_ _len99361_) - (let* ((_char99370_ (string-ref _str99359_ _i99368_)) - (_xchar99372_ + (lambda (_id99361_) + (let* ((_str99363_ + (if (let () (declare (not safe)) (symbol? _id99361_)) + (symbol->string _id99361_) + _id99361_)) + (_len99365_ (string-length _str99363_)) + (_res99367_ (make-string _len99365_))) + (let _lp99370_ ((_i99372_ '0)) + (if (fx< _i99372_ _len99365_) + (let* ((_char99374_ (string-ref _str99363_ _i99372_)) + (_xchar99376_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _char99370_)) + _char99374_)) '#\_ - _char99370_))) - (string-set! _res99363_ _i99368_ _xchar99372_) - (let ((__tmp99568 - (let () (declare (not safe)) (fx+ _i99368_ '1)))) + _char99374_))) + (string-set! _res99367_ _i99372_ _xchar99376_) + (let ((__tmp99572 + (let () (declare (not safe)) (fx+ _i99372_ '1)))) (declare (not safe)) - (_lp99366_ __tmp99568))) - _res99363_))))))) + (_lp99370_ __tmp99572))) + _res99367_))))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index 3724e48c1..2fbc8f075 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]#_g99598_| + (define |gxc[1]#_g99602_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99600_| + (define |gxc[1]#_g99604_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99602_| + (define |gxc[1]#_g99606_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99607_| + (define |gxc[1]#_g99611_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99610_| + (define |gxc[1]#_g99614_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99615_| + (define |gxc[1]#_g99619_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99618_| + (define |gxc[1]#_g99622_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99623_| + (define |gxc[1]#_g99627_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99626_| + (define |gxc[1]#_g99630_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99631_| + (define |gxc[1]#_g99635_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99634_| + (define |gxc[1]#_g99638_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! @@ -79,420 +79,420 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx98955_) + (lambda (_stx98959_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__% _stx98955_ 'stx-eq? 'stx-e 'quote)))) + (gx#macro-expand-syntax-case__% _stx98959_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_stx98958_) - (let* ((_g9896198985_ - (lambda (_g9896298981_) + (lambda (_stx98962_) + (let* ((_g9896598989_ + (lambda (_g9896698985_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9896298981_)))) - (_g9896099288_ - (lambda (_g9896298989_) + _g9896698985_)))) + (_g9896499292_ + (lambda (_g9896698993_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9896298989_)) - (let ((_e9896798992_ + (gx#stx-pair? _g9896698993_)) + (let ((_e9897198996_ (let () (declare (not safe)) - (gx#syntax-e _g9896298989_)))) - (let ((_hd9896698996_ + (gx#syntax-e _g9896698993_)))) + (let ((_hd9897099000_ (let () (declare (not safe)) - (##car _e9896798992_))) - (_tl9896598999_ + (##car _e9897198996_))) + (_tl9896999003_ (let () (declare (not safe)) - (##cdr _e9896798992_)))) + (##cdr _e9897198996_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9896598999_)) - (let ((_e9897099002_ + (gx#stx-pair? _tl9896999003_)) + (let ((_e9897499006_ (let () (declare (not safe)) - (gx#syntax-e _tl9896598999_)))) - (let ((_hd9896999006_ + (gx#syntax-e _tl9896999003_)))) + (let ((_hd9897399010_ (let () (declare (not safe)) - (##car _e9897099002_))) - (_tl9896899009_ + (##car _e9897499006_))) + (_tl9897299013_ (let () (declare (not safe)) - (##cdr _e9897099002_)))) + (##cdr _e9897499006_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9896899009_)) - (let ((_g99569_ + (gx#stx-pair/null? _tl9897299013_)) + (let ((_g99573_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9896899009_ + _tl9897299013_ '0)))) (begin - (let ((_g99570_ + (let ((_g99574_ (let () (declare (not safe)) - (if (##values? _g99569_) + (if (##values? _g99573_) (##vector-length - _g99569_) + _g99573_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g99570_ 2))) + (##fx= _g99574_ 2))) (error "Context expects 2 values" - _g99570_))) - (let ((_target9897199012_ + _g99574_))) + (let ((_target9897599016_ (let () (declare (not safe)) - (##vector-ref _g99569_ 0))) - (_tl9897399015_ + (##vector-ref _g99573_ 0))) + (_tl9897799019_ (let () (declare (not safe)) - (##vector-ref _g99569_ 1)))) + (##vector-ref _g99573_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9897399015_)) - (letrec ((_loop9897499018_ - (lambda (_hd9897299022_ + _tl9897799019_)) + (letrec ((_loop9897899022_ + (lambda (_hd9897699026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause9897899025_) + _clause9898299029_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9897299022_)) - (let ((_e9897599028_ + (gx#stx-pair? _hd9897699026_)) + (let ((_e9897999032_ (let () (declare (not safe)) - (gx#syntax-e _hd9897299022_)))) - (let ((_lp-hd9897699032_ + (gx#syntax-e _hd9897699026_)))) + (let ((_lp-hd9898099036_ (let () (declare (not safe)) - (##car _e9897599028_))) - (_lp-tl9897799035_ + (##car _e9897999032_))) + (_lp-tl9898199039_ (let () (declare (not safe)) - (##cdr _e9897599028_)))) - (_loop9897499018_ - _lp-tl9897799035_ + (##cdr _e9897999032_)))) + (_loop9897899022_ + _lp-tl9898199039_ (let () (declare (not safe)) - (cons _lp-hd9897699032_ _clause9897899025_))))) - (let ((_clause9897999038_ - (reverse _clause9897899025_))) - ((lambda (_L99042_ _L99044_) + (cons _lp-hd9898099036_ _clause9898299029_))))) + (let ((_clause9898399042_ + (reverse _clause9898299029_))) + ((lambda (_L99046_ _L99048_) (if (let () (declare (not safe)) - (gx#identifier-list? _L99044_)) - (let* ((_g9906399080_ - (lambda (_g9906499076_) + (gx#identifier-list? _L99048_)) + (let* ((_g9906799084_ + (lambda (_g9906899080_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9906499076_)))) - (_g9906299141_ - (lambda (_g9906499084_) + _g9906899080_)))) + (_g9906699145_ + (lambda (_g9906899088_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g9906499084_)) - (let ((_g99571_ + _g9906899088_)) + (let ((_g99575_ (let () (declare (not safe)) (gx#syntax-split-splice - _g9906499084_ + _g9906899088_ '0)))) (begin - (let ((_g99572_ + (let ((_g99576_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g99571_) - (##vector-length _g99571_) + _g99575_) + (##vector-length _g99575_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g99572_ 2))) - (error "Context expects 2 values" _g99572_))) + (##fx= _g99576_ 2))) + (error "Context expects 2 values" _g99576_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target9906699087_ + (let ((_target9907099091_ (let () (declare (not safe)) (##vector-ref - _g99571_ + _g99575_ 0))) - (_tl9906899090_ + (_tl9907299094_ (let () (declare (not safe)) (##vector-ref - _g99571_ + _g99575_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9906899090_)) - (letrec ((_loop9906999093_ + _tl9907299094_)) + (letrec ((_loop9907399097_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd9906799097_ _clause9907399100_) + (lambda (_hd9907199101_ _clause9907799104_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9906799097_)) - (let ((_e9907099103_ + (gx#stx-pair? _hd9907199101_)) + (let ((_e9907499107_ (let () (declare (not safe)) - (gx#syntax-e _hd9906799097_)))) - (let ((_lp-hd9907199107_ + (gx#syntax-e _hd9907199101_)))) + (let ((_lp-hd9907599111_ (let () (declare (not safe)) - (##car _e9907099103_))) - (_lp-tl9907299110_ + (##car _e9907499107_))) + (_lp-tl9907699114_ (let () (declare (not safe)) - (##cdr _e9907099103_)))) - (_loop9906999093_ - _lp-tl9907299110_ + (##cdr _e9907499107_)))) + (_loop9907399097_ + _lp-tl9907699114_ (let () (declare (not safe)) - (cons _lp-hd9907199107_ - _clause9907399100_))))) - (let ((_clause9907499113_ - (reverse _clause9907399100_))) - ((lambda (_L99117_) + (cons _lp-hd9907599111_ + _clause9907799104_))))) + (let ((_clause9907899117_ + (reverse _clause9907799104_))) + ((lambda (_L99121_) (let () - (let ((__tmp99584 + (let ((__tmp99588 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp99573 - (let ((__tmp99582 - (let ((__tmp99583 + (__tmp99577 + (let ((__tmp99586 + (let ((__tmp99587 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '$stx)))) (declare (not safe)) - (cons __tmp99583 '()))) + (cons __tmp99587 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp99574 - (let ((__tmp99575 - (let ((__tmp99581 + (__tmp99578 + (let ((__tmp99579 + (let ((__tmp99585 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp99576 - (let ((__tmp99580 + (__tmp99580 + (let ((__tmp99584 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx))) - (__tmp99577 - (let ((__tmp99578 - (let ((__tmp99579 - (lambda (_g9913299135_ - _g9913399138_) + (__tmp99581 + (let ((__tmp99582 + (let ((__tmp99583 + (lambda (_g9913699139_ + _g9913799142_) (let () (declare (not safe)) - (cons _g9913299135_ - _g9913399138_))))) + (cons _g9913699139_ + _g9913799142_))))) (declare (not safe)) - (foldr1 __tmp99579 '() _L99117_)))) + (foldr1 __tmp99583 '() _L99121_)))) (declare (not safe)) - (cons _L99044_ __tmp99578)))) + (cons _L99048_ __tmp99582)))) (declare (not safe)) - (cons __tmp99580 __tmp99577)))) + (cons __tmp99584 __tmp99581)))) (declare (not safe)) - (cons __tmp99581 __tmp99576)))) + (cons __tmp99585 __tmp99580)))) (declare (not safe)) - (cons __tmp99575 '())))) + (cons __tmp99579 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp99582 - __tmp99574)))) + (cons __tmp99586 + __tmp99578)))) (declare (not safe)) - (cons __tmp99584 __tmp99573)))) - _clause9907499113_)))))) - (_loop9906999093_ _target9906699087_ '())) - (_g9906399080_ _g9906499084_))))) + (cons __tmp99588 __tmp99577)))) + _clause9907899117_)))))) + (_loop9907399097_ _target9907099091_ '())) + (_g9906799084_ _g9906899088_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9906399080_ - _g9906499084_))))) - (_g9906299141_ - (let ((__tmp99587 - (lambda (_clause99145_) - (let* ((___stx9951499515_ - _clause99145_) - (_g9914999176_ + (_g9906799084_ + _g9906899088_))))) + (_g9906699145_ + (let ((__tmp99591 + (lambda (_clause99149_) + (let* ((___stx9951899519_ + _clause99149_) + (_g9915399180_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx9951499515_))))) - (let ((___kont9951799518_ - (lambda (_L99261_ - _L99263_) - (let ((__tmp99588 - (let ((__tmp99589 + ___stx9951899519_))))) + (let ((___kont9952199522_ + (lambda (_L99265_ + _L99267_) + (let ((__tmp99592 + (let ((__tmp99593 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp99591 + (let ((__tmp99595 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp99590 + (__tmp99594 (let () (declare (not safe)) - (cons _L99261_ '())))) + (cons _L99265_ '())))) (declare (not safe)) - (cons __tmp99591 __tmp99590)))) + (cons __tmp99595 __tmp99594)))) (declare (not safe)) - (cons __tmp99589 '())))) + (cons __tmp99593 '())))) (declare (not safe)) - (cons _L99263_ __tmp99588)))) + (cons _L99267_ __tmp99592)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont9951999520_ - (lambda (_L99213_ - _L99215_ - _L99216_) - (let ((__tmp99592 - (let ((__tmp99593 + (___kont9952399524_ + (lambda (_L99217_ + _L99219_ + _L99220_) + (let ((__tmp99596 + (let ((__tmp99597 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp99594 - (let ((__tmp99596 + (let ((__tmp99598 + (let ((__tmp99600 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp99595 + (__tmp99599 (let () (declare (not safe)) - (cons _L99213_ '())))) + (cons _L99217_ '())))) (declare (not safe)) - (cons __tmp99596 __tmp99595)))) + (cons __tmp99600 __tmp99599)))) (declare (not safe)) - (cons __tmp99594 '())))) + (cons __tmp99598 '())))) (declare (not safe)) - (cons _L99215_ __tmp99593)))) + (cons _L99219_ __tmp99597)))) (declare (not safe)) - (cons _L99216_ __tmp99592))))) + (cons _L99220_ __tmp99596))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx9951499515_)) - (let ((_e9915599241_ + ___stx9951899519_)) + (let ((_e9915999245_ (let () (declare (not safe)) (gx#syntax-e - ___stx9951499515_)))) - (let ((_tl9915399248_ + ___stx9951899519_)))) + (let ((_tl9915799252_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e9915599241_))) - (_hd9915499245_ - (let () (declare (not safe)) (##car _e9915599241_)))) + (##cdr _e9915999245_))) + (_hd9915899249_ + (let () (declare (not safe)) (##car _e9915999245_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9915399248_)) - (let ((_e9915899251_ + (gx#stx-pair? _tl9915799252_)) + (let ((_e9916299255_ (let () (declare (not safe)) - (gx#syntax-e _tl9915399248_)))) - (let ((_tl9915699258_ + (gx#syntax-e _tl9915799252_)))) + (let ((_tl9916099262_ (let () (declare (not safe)) - (##cdr _e9915899251_))) - (_hd9915799255_ + (##cdr _e9916299255_))) + (_hd9916199259_ (let () (declare (not safe)) - (##car _e9915899251_)))) + (##car _e9916299255_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9915699258_)) - (___kont9951799518_ _hd9915799255_ _hd9915499245_) + (gx#stx-null? _tl9916099262_)) + (___kont9952199522_ _hd9916199259_ _hd9915899249_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9915699258_)) - (let ((_e9917099203_ + (gx#stx-pair? _tl9916099262_)) + (let ((_e9917499207_ (let () (declare (not safe)) - (gx#syntax-e _tl9915699258_)))) - (let ((_tl9916899210_ + (gx#syntax-e _tl9916099262_)))) + (let ((_tl9917299214_ (let () (declare (not safe)) - (##cdr _e9917099203_))) - (_hd9916999207_ + (##cdr _e9917499207_))) + (_hd9917399211_ (let () (declare (not safe)) - (##car _e9917099203_)))) + (##car _e9917499207_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9916899210_)) - (___kont9951999520_ - _hd9916999207_ - _hd9915799255_ - _hd9915499245_) + (gx#stx-null? _tl9917299214_)) + (___kont9952399524_ + _hd9917399211_ + _hd9916199259_ + _hd9915899249_) (let () (declare (not safe)) - (_g9914999176_))))) + (_g9915399180_))))) (let () (declare (not safe)) - (_g9914999176_)))))) - (let () (declare (not safe)) (_g9914999176_))))) + (_g9915399180_)))))) + (let () (declare (not safe)) (_g9915399180_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9914999176_))))))) - (__tmp99585 - (let ((__tmp99586 - (lambda (_g9927999282_ - _g9928099285_) + (_g9915399180_))))))) + (__tmp99589 + (let ((__tmp99590 + (lambda (_g9928399286_ + _g9928499289_) (let () (declare (not safe)) - (cons _g9927999282_ - _g9928099285_))))) + (cons _g9928399286_ + _g9928499289_))))) (declare (not safe)) - (foldr1 __tmp99586 + (foldr1 __tmp99590 '() - _L99042_)))) + _L99046_)))) (declare (not safe)) - (gx#stx-map1 __tmp99587 __tmp99585)))) - (_g9896198985_ _g9896298989_))) - _clause9897999038_ - _hd9896999006_)))))) + (gx#stx-map1 __tmp99591 __tmp99589)))) + (_g9896598989_ _g9896698993_))) + _clause9898399042_ + _hd9897399010_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9897499018_ - _target9897199012_ + (_loop9897899022_ + _target9897599016_ '())) - (_g9896198985_ - _g9896298989_))))) - (_g9896198985_ _g9896298989_)))) - (_g9896198985_ _g9896298989_)))) - (_g9896198985_ _g9896298989_))))) - (_g9896099288_ _stx98958_)))) + (_g9896598989_ + _g9896698993_))))) + (_g9896598989_ _g9896698993_)))) + (_g9896598989_ _g9896698993_)))) + (_g9896598989_ _g9896698993_))))) + (_g9896499292_ _stx98962_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj99557 + (let ((__obj99561 (let () (declare (not safe)) (##structure @@ -516,7 +516,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99557 + __obj99561 'gxc#symbol-table::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -524,7 +524,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99557 + __obj99561 'symbol-table '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -532,7 +532,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99557 + __obj99561 '(gensyms bindings) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -540,7 +540,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99557 + __obj99561 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -548,7 +548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99557 + __obj99561 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -556,7 +556,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99557 + __obj99561 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -564,7 +564,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99557 + __obj99561 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -572,205 +572,205 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99557 + __obj99561 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99597 |gxc[1]#_g99598_|)) + (let ((__tmp99601 |gxc[1]#_g99602_|)) (declare (not safe)) (##unchecked-structure-set! - __obj99557 - __tmp99597 + __obj99561 + __tmp99601 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99599 |gxc[1]#_g99600_|)) + (let ((__tmp99603 |gxc[1]#_g99604_|)) (declare (not safe)) (##unchecked-structure-set! - __obj99557 - __tmp99599 + __obj99561 + __tmp99603 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99601 |gxc[1]#_g99602_|)) + (let ((__tmp99605 |gxc[1]#_g99606_|)) (declare (not safe)) (##unchecked-structure-set! - __obj99557 - __tmp99601 + __obj99561 + __tmp99605 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99603 - (let ((__tmp99608 - (let ((__tmp99609 |gxc[1]#_g99610_|)) + (let ((__tmp99607 + (let ((__tmp99612 + (let ((__tmp99613 |gxc[1]#_g99614_|)) (declare (not safe)) - (cons 'gensyms __tmp99609))) - (__tmp99604 - (let ((__tmp99605 - (let ((__tmp99606 |gxc[1]#_g99607_|)) + (cons 'gensyms __tmp99613))) + (__tmp99608 + (let ((__tmp99609 + (let ((__tmp99610 |gxc[1]#_g99611_|)) (declare (not safe)) - (cons 'bindings __tmp99606)))) + (cons 'bindings __tmp99610)))) (declare (not safe)) - (cons __tmp99605 '())))) + (cons __tmp99609 '())))) (declare (not safe)) - (cons __tmp99608 __tmp99604)))) + (cons __tmp99612 __tmp99608)))) (declare (not safe)) (##unchecked-structure-set! - __obj99557 - __tmp99603 + __obj99561 + __tmp99607 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99611 - (let ((__tmp99616 - (let ((__tmp99617 |gxc[1]#_g99618_|)) + (let ((__tmp99615 + (let ((__tmp99620 + (let ((__tmp99621 |gxc[1]#_g99622_|)) (declare (not safe)) - (cons 'gensyms __tmp99617))) - (__tmp99612 - (let ((__tmp99613 - (let ((__tmp99614 |gxc[1]#_g99615_|)) + (cons 'gensyms __tmp99621))) + (__tmp99616 + (let ((__tmp99617 + (let ((__tmp99618 |gxc[1]#_g99619_|)) (declare (not safe)) - (cons 'bindings __tmp99614)))) + (cons 'bindings __tmp99618)))) (declare (not safe)) - (cons __tmp99613 '())))) + (cons __tmp99617 '())))) (declare (not safe)) - (cons __tmp99616 __tmp99612)))) + (cons __tmp99620 __tmp99616)))) (declare (not safe)) (##unchecked-structure-set! - __obj99557 - __tmp99611 + __obj99561 + __tmp99615 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99619 - (let ((__tmp99624 - (let ((__tmp99625 |gxc[1]#_g99626_|)) + (let ((__tmp99623 + (let ((__tmp99628 + (let ((__tmp99629 |gxc[1]#_g99630_|)) (declare (not safe)) - (cons 'gensyms __tmp99625))) - (__tmp99620 - (let ((__tmp99621 - (let ((__tmp99622 |gxc[1]#_g99623_|)) + (cons 'gensyms __tmp99629))) + (__tmp99624 + (let ((__tmp99625 + (let ((__tmp99626 |gxc[1]#_g99627_|)) (declare (not safe)) - (cons 'bindings __tmp99622)))) + (cons 'bindings __tmp99626)))) (declare (not safe)) - (cons __tmp99621 '())))) + (cons __tmp99625 '())))) (declare (not safe)) - (cons __tmp99624 __tmp99620)))) + (cons __tmp99628 __tmp99624)))) (declare (not safe)) (##unchecked-structure-set! - __obj99557 - __tmp99619 + __obj99561 + __tmp99623 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99627 - (let ((__tmp99632 - (let ((__tmp99633 |gxc[1]#_g99634_|)) + (let ((__tmp99631 + (let ((__tmp99636 + (let ((__tmp99637 |gxc[1]#_g99638_|)) (declare (not safe)) - (cons 'gensyms __tmp99633))) - (__tmp99628 - (let ((__tmp99629 - (let ((__tmp99630 |gxc[1]#_g99631_|)) + (cons 'gensyms __tmp99637))) + (__tmp99632 + (let ((__tmp99633 + (let ((__tmp99634 |gxc[1]#_g99635_|)) (declare (not safe)) - (cons 'bindings __tmp99630)))) + (cons 'bindings __tmp99634)))) (declare (not safe)) - (cons __tmp99629 '())))) + (cons __tmp99633 '())))) (declare (not safe)) - (cons __tmp99632 __tmp99628)))) + (cons __tmp99636 __tmp99632)))) (declare (not safe)) (##unchecked-structure-set! - __obj99557 - __tmp99627 + __obj99561 + __tmp99631 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj99557)) + __obj99561)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_$stx99294_) - (let* ((_g9929899312_ - (lambda (_g9929999308_) + (lambda (_$stx99298_) + (let* ((_g9930299316_ + (lambda (_g9930399312_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9929999308_)))) - (_g9929799353_ - (lambda (_g9929999316_) + _g9930399312_)))) + (_g9930199357_ + (lambda (_g9930399320_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9929999316_)) - (let ((_e9930399319_ + (gx#stx-pair? _g9930399320_)) + (let ((_e9930799323_ (let () (declare (not safe)) - (gx#syntax-e _g9929999316_)))) - (let ((_hd9930299323_ + (gx#syntax-e _g9930399320_)))) + (let ((_hd9930699327_ (let () (declare (not safe)) - (##car _e9930399319_))) - (_tl9930199326_ + (##car _e9930799323_))) + (_tl9930599330_ (let () (declare (not safe)) - (##cdr _e9930399319_)))) + (##cdr _e9930799323_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9930199326_)) - (let ((_e9930699329_ + (gx#stx-pair? _tl9930599330_)) + (let ((_e9931099333_ (let () (declare (not safe)) - (gx#syntax-e _tl9930199326_)))) - (let ((_hd9930599333_ + (gx#syntax-e _tl9930599330_)))) + (let ((_hd9930999337_ (let () (declare (not safe)) - (##car _e9930699329_))) - (_tl9930499336_ + (##car _e9931099333_))) + (_tl9930899340_ (let () (declare (not safe)) - (##cdr _e9930699329_)))) + (##cdr _e9931099333_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9930499336_)) - ((lambda (_L99339_) - (let ((__tmp99642 + (gx#stx-null? _tl9930899340_)) + ((lambda (_L99343_) + (let ((__tmp99646 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp99635 - (let ((__tmp99641 + (__tmp99639 + (let ((__tmp99645 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+verbose-mutex+))) - (__tmp99636 - (let ((__tmp99637 - (let ((__tmp99640 + (__tmp99640 + (let ((__tmp99641 + (let ((__tmp99644 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp99638 - (let ((__tmp99639 + (__tmp99642 + (let ((__tmp99643 (let () (declare (not safe)) - (cons _L99339_ '())))) + (cons _L99343_ '())))) (declare (not safe)) - (cons '() __tmp99639)))) + (cons '() __tmp99643)))) (declare (not safe)) - (cons __tmp99640 __tmp99638)))) + (cons __tmp99644 __tmp99642)))) (declare (not safe)) - (cons __tmp99637 '())))) + (cons __tmp99641 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp99641 - __tmp99636)))) + (cons __tmp99645 + __tmp99640)))) (declare (not safe)) - (cons __tmp99642 __tmp99635))) - _hd9930599333_) - (_g9929899312_ _g9929999316_)))) - (_g9929899312_ _g9929999316_)))) - (_g9929899312_ _g9929999316_))))) - (_g9929799353_ _$stx99294_)))))) + (cons __tmp99646 __tmp99639))) + _hd9930999337_) + (_g9930299316_ _g9930399320_)))) + (_g9930299316_ _g9930399320_)))) + (_g9930299316_ _g9930399320_))))) + (_g9930199357_ _$stx99298_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index 55b2e336f..db6a815b5 100644 --- a/src/bootstrap/gerbil/compiler/compile~0.scm +++ b/src/bootstrap/gerbil/compiler/compile~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1710781149) + (define gerbil/compiler/compile::timestamp 1710833425) (begin (define gxc#gambit-annotations '(not gambit-scheme @@ -41,39 +41,39 @@ (define gxc#current-compile-boolean-context (make-parameter '#f)) (define gxc#make-bound-identifier-table (lambda () - (letrec ((_hash-e112863_ - (lambda (_id112865_) + (letrec ((_hash-e112867_ + (lambda (_id112869_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _id112865_)))))) + (let () (declare (not safe)) (gx#stx-e _id112869_)))))) (let () (declare (not safe)) (make-hash-table 'test: gx#bound-identifier=? 'hash: - _hash-e112863_))))) + _hash-e112867_))))) (define gxc#::collect-bindings::t - (let ((__tmp114221 (list gxc#::void::t)) - (__tmp114219 - (let ((__tmp114220 + (let ((__tmp114225 (list gxc#::void::t)) + (__tmp114223 + (let ((__tmp114224 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114220 '())))) + (cons __tmp114224 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp114221 + __tmp114225 '() - __tmp114219 + __tmp114223 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _$args112859_ - (apply make-instance gxc#::collect-bindings::t _$args112859_))) + (lambda _$args112863_ + (apply make-instance gxc#::collect-bindings::t _$args112863_))) (define gxc#::collect-bindings-bind-methods! (make-promise (lambda () @@ -112,46 +112,46 @@ (declare (not safe)) (seal-class! gxc#::collect-bindings::t))))) (define gxc#apply-collect-bindings - (lambda (_stx112851_) + (lambda (_stx112855_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_self112854_ - (let ((__obj114195 + (let* ((_self112858_ + (let ((__obj114199 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj114195)) - (__tmp114222 + __obj114199)) + (__tmp114226 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112854_ _stx112851_))))) + (gxc#compile-e__1 _self112858_ _stx112855_))))) (declare (not safe)) (call-with-parameters - __tmp114222 + __tmp114226 gxc#current-compile-method - _self112854_)))) + _self112858_)))) (define gxc#::lift-modules::t - (let ((__tmp114225 (list gxc#::void::t)) - (__tmp114223 - (let ((__tmp114224 + (let ((__tmp114229 (list gxc#::void::t)) + (__tmp114227 + (let ((__tmp114228 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114224 '())))) + (cons __tmp114228 '())))) (declare (not safe)) (make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp114225 + __tmp114229 '(modules) - __tmp114223 + __tmp114227 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _$args112848_ - (apply make-instance gxc#::lift-modules::t _$args112848_))) + (lambda _$args112852_ + (apply make-instance gxc#::lift-modules::t _$args112852_))) (define gxc#::lift-modules-modules (let () (declare (not safe)) @@ -183,79 +183,79 @@ gxc#lift-modules-module%)) (let () (declare (not safe)) (seal-class! gxc#::lift-modules::t))))) (define gxc#apply-lift-modules__% - (lambda (_g114226_ _modules112819112822_ _stx112824_) - (let ((_modules112827_ + (lambda (_g114230_ _modules112823112826_ _stx112828_) + (let ((_modules112831_ (if (let () (declare (not safe)) - (eq? _modules112819112822_ absent-value)) + (eq? _modules112823112826_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _modules112819112822_))) + _modules112823112826_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_self112829_ - (let ((__obj114197 + (let* ((_self112833_ + (let ((__obj114201 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114197 - _modules112827_ + __obj114201 + _modules112831_ '1 gxc#::lift-modules::t '#f)) - __obj114197)) - (__tmp114227 + __obj114201)) + (__tmp114231 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112829_ _stx112824_))))) + (gxc#compile-e__1 _self112833_ _stx112828_))))) (declare (not safe)) (call-with-parameters - __tmp114227 + __tmp114231 gxc#current-compile-method - _self112829_))))) + _self112833_))))) (define gxc#apply-lift-modules__@ - (lambda (_keys112818112836_ . _args112838_) + (lambda (_keys112822112840_ . _args112842_) (apply gxc#apply-lift-modules__% - _keys112818112836_ + _keys112822112840_ (let () (declare (not safe)) (symbolic-table-ref - _keys112818112836_ + _keys112822112840_ 'modules: absent-value)) - _args112838_))) + _args112842_))) (define gxc#apply-lift-modules - (lambda _args112820112844_ + (lambda _args112824112848_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _args112820112844_))) + _args112824112848_))) (define gxc#::find-runtime-code::t - (let ((__tmp114230 (list)) - (__tmp114228 - (let ((__tmp114229 + (let ((__tmp114234 (list)) + (__tmp114232 + (let ((__tmp114233 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114229 '())))) + (cons __tmp114233 '())))) (declare (not safe)) (make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp114230 + __tmp114234 '() - __tmp114228 + __tmp114232 '#f))) (define gxc#::find-runtime-code? (let () (declare (not safe)) (make-class-predicate gxc#::find-runtime-code::t))) (define gxc#make-::find-runtime-code - (lambda _$args112814_ - (apply make-instance gxc#::find-runtime-code::t _$args112814_))) + (lambda _$args112818_ + (apply make-instance gxc#::find-runtime-code::t _$args112818_))) (define gxc#::find-runtime-code-bind-methods! (make-promise (lambda () @@ -449,46 +449,46 @@ (declare (not safe)) (seal-class! gxc#::find-runtime-code::t))))) (define gxc#apply-find-runtime-code - (lambda (_stx112806_) + (lambda (_stx112810_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_self112809_ - (let ((__obj114199 + (let* ((_self112813_ + (let ((__obj114203 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj114199)) - (__tmp114231 + __obj114203)) + (__tmp114235 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112809_ _stx112806_))))) + (gxc#compile-e__1 _self112813_ _stx112810_))))) (declare (not safe)) (call-with-parameters - __tmp114231 + __tmp114235 gxc#current-compile-method - _self112809_)))) + _self112813_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp114234 (list gxc#::false::t)) - (__tmp114232 - (let ((__tmp114233 + (let ((__tmp114238 (list gxc#::false::t)) + (__tmp114236 + (let ((__tmp114237 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114233 '())))) + (cons __tmp114237 '())))) (declare (not safe)) (make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp114234 + __tmp114238 '() - __tmp114232 + __tmp114236 '#f))) (define gxc#::find-lambda-expression? (let () (declare (not safe)) (make-class-predicate gxc#::find-lambda-expression::t))) (define gxc#make-::find-lambda-expression - (lambda _$args112803_ - (apply make-instance gxc#::find-lambda-expression::t _$args112803_))) + (lambda _$args112807_ + (apply make-instance gxc#::find-lambda-expression::t _$args112807_))) (define gxc#::find-lambda-expression-bind-methods! (make-promise (lambda () @@ -539,46 +539,46 @@ (declare (not safe)) (seal-class! gxc#::find-lambda-expression::t))))) (define gxc#apply-find-lambda-expression - (lambda (_stx112795_) + (lambda (_stx112799_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_self112798_ - (let ((__obj114201 + (let* ((_self112802_ + (let ((__obj114205 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj114201)) - (__tmp114235 + __obj114205)) + (__tmp114239 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112798_ _stx112795_))))) + (gxc#compile-e__1 _self112802_ _stx112799_))))) (declare (not safe)) (call-with-parameters - __tmp114235 + __tmp114239 gxc#current-compile-method - _self112798_)))) + _self112802_)))) (define gxc#::count-values::t - (let ((__tmp114238 (list gxc#::false-expression::t)) - (__tmp114236 - (let ((__tmp114237 + (let ((__tmp114242 (list gxc#::false-expression::t)) + (__tmp114240 + (let ((__tmp114241 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114237 '())))) + (cons __tmp114241 '())))) (declare (not safe)) (make-class-type 'gxc#::count-values::t '::count-values - __tmp114238 + __tmp114242 '() - __tmp114236 + __tmp114240 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _$args112792_ - (apply make-instance gxc#::count-values::t _$args112792_))) + (lambda _$args112796_ + (apply make-instance gxc#::count-values::t _$args112796_))) (define gxc#::count-values-bind-methods! (make-promise (lambda () @@ -648,31 +648,31 @@ (bind-method!__0 gxc#::count-values::t '%#if gxc#count-values-if%)) (let () (declare (not safe)) (seal-class! gxc#::count-values::t))))) (define gxc#apply-count-values - (lambda (_stx112784_) + (lambda (_stx112788_) (force gxc#::count-values-bind-methods!) - (let* ((_self112787_ - (let ((__obj114203 + (let* ((_self112791_ + (let ((__obj114207 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj114203)) - (__tmp114239 + __obj114207)) + (__tmp114243 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112787_ _stx112784_))))) + (gxc#compile-e__1 _self112791_ _stx112788_))))) (declare (not safe)) (call-with-parameters - __tmp114239 + __tmp114243 gxc#current-compile-method - _self112787_)))) + _self112791_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp114240 (list))) + (let ((__tmp114244 (list))) (declare (not safe)) (make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp114240 + __tmp114244 '() '() '#f))) @@ -681,8 +681,8 @@ (declare (not safe)) (make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _$args112781_ - (apply make-instance gxc#::generate-runtime-empty::t _$args112781_))) + (lambda _$args112785_ + (apply make-instance gxc#::generate-runtime-empty::t _$args112785_))) (define gxc#::generate-runtime-empty-bind-methods! (make-promise (lambda () @@ -879,27 +879,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (define gxc#::generate-loader::t - (let ((__tmp114243 (list gxc#::generate-runtime-empty::t)) - (__tmp114241 - (let ((__tmp114242 + (let ((__tmp114247 (list gxc#::generate-runtime-empty::t)) + (__tmp114245 + (let ((__tmp114246 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114242 '())))) + (cons __tmp114246 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp114243 + __tmp114247 '() - __tmp114241 + __tmp114245 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _$args112777_ - (apply make-instance gxc#::generate-loader::t _$args112777_))) + (lambda _$args112781_ + (apply make-instance gxc#::generate-loader::t _$args112781_))) (define gxc#::generate-loader-bind-methods! (make-promise (lambda () @@ -920,31 +920,31 @@ (declare (not safe)) (seal-class! gxc#::generate-loader::t))))) (define gxc#apply-generate-loader - (lambda (_stx112769_) + (lambda (_stx112773_) (force gxc#::generate-loader-bind-methods!) - (let* ((_self112772_ - (let ((__obj114206 + (let* ((_self112776_ + (let ((__obj114210 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj114206)) - (__tmp114244 + __obj114210)) + (__tmp114248 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112772_ _stx112769_))))) + (gxc#compile-e__1 _self112776_ _stx112773_))))) (declare (not safe)) (call-with-parameters - __tmp114244 + __tmp114248 gxc#current-compile-method - _self112772_)))) + _self112776_)))) (define gxc#::generate-runtime::t - (let ((__tmp114245 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp114249 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp114245 + __tmp114249 '() '() '#f))) @@ -953,8 +953,8 @@ (declare (not safe)) (make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _$args112766_ - (apply make-instance gxc#::generate-runtime::t _$args112766_))) + (lambda _$args112770_ + (apply make-instance gxc#::generate-runtime::t _$args112770_))) (define gxc#::generate-runtime-bind-methods! (make-promise (lambda () @@ -1110,46 +1110,46 @@ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%))))) (define gxc#apply-generate-runtime - (lambda (_stx112758_) + (lambda (_stx112762_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_self112761_ - (let ((__obj114208 + (let* ((_self112765_ + (let ((__obj114212 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj114208)) - (__tmp114246 + __obj114212)) + (__tmp114250 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112761_ _stx112758_))))) + (gxc#compile-e__1 _self112765_ _stx112762_))))) (declare (not safe)) (call-with-parameters - __tmp114246 + __tmp114250 gxc#current-compile-method - _self112761_)))) + _self112765_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp114249 (list gxc#::generate-runtime::t)) - (__tmp114247 - (let ((__tmp114248 + (let ((__tmp114253 (list gxc#::generate-runtime::t)) + (__tmp114251 + (let ((__tmp114252 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114248 '())))) + (cons __tmp114252 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp114249 + __tmp114253 '() - __tmp114247 + __tmp114251 '#f))) (define gxc#::generate-runtime-phi? (let () (declare (not safe)) (make-class-predicate gxc#::generate-runtime-phi::t))) (define gxc#make-::generate-runtime-phi - (lambda _$args112755_ - (apply make-instance gxc#::generate-runtime-phi::t _$args112755_))) + (lambda _$args112759_ + (apply make-instance gxc#::generate-runtime-phi::t _$args112759_))) (define gxc#::generate-runtime-phi-bind-methods! (make-promise (lambda () @@ -1164,31 +1164,31 @@ (declare (not safe)) (seal-class! gxc#::generate-runtime-phi::t))))) (define gxc#apply-generate-runtime-phi - (lambda (_stx112747_) + (lambda (_stx112751_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_self112750_ - (let ((__obj114210 + (let* ((_self112754_ + (let ((__obj114214 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj114210)) - (__tmp114250 + __obj114214)) + (__tmp114254 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112750_ _stx112747_))))) + (gxc#compile-e__1 _self112754_ _stx112751_))))) (declare (not safe)) (call-with-parameters - __tmp114250 + __tmp114254 gxc#current-compile-method - _self112750_)))) + _self112754_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp114251 (list))) + (let ((__tmp114255 (list))) (declare (not safe)) (make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp114251 + __tmp114255 '(table) '() '#f))) @@ -1197,8 +1197,8 @@ (declare (not safe)) (make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _$args112744_ - (apply make-instance gxc#::collect-expression-refs::t _$args112744_))) + (lambda _$args112748_ + (apply make-instance gxc#::collect-expression-refs::t _$args112748_))) (define gxc#::collect-expression-refs-table (let () (declare (not safe)) @@ -1355,18 +1355,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (define gxc#apply-collect-expression-refs__% - (lambda (_g114252_ _table112715112718_ _stx112720_) - (let ((_table112723_ + (lambda (_g114256_ _table112719112722_ _stx112724_) + (let ((_table112727_ (if (let () (declare (not safe)) - (eq? _table112715112718_ absent-value)) + (eq? _table112719112722_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _table112715112718_))) + _table112719112722_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_self112725_ - (let ((__obj114212 + (let* ((_self112729_ + (let ((__obj114216 (let () (declare (not safe)) (##structure @@ -1375,58 +1375,58 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114212 - _table112723_ + __obj114216 + _table112727_ '1 gxc#::collect-expression-refs::t '#f)) - __obj114212)) - (__tmp114253 + __obj114216)) + (__tmp114257 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112725_ _stx112720_))))) + (gxc#compile-e__1 _self112729_ _stx112724_))))) (declare (not safe)) (call-with-parameters - __tmp114253 + __tmp114257 gxc#current-compile-method - _self112725_))))) + _self112729_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_keys112714112732_ . _args112734_) + (lambda (_keys112718112736_ . _args112738_) (apply gxc#apply-collect-expression-refs__% - _keys112714112732_ + _keys112718112736_ (let () (declare (not safe)) - (symbolic-table-ref _keys112714112732_ 'table: absent-value)) - _args112734_))) + (symbolic-table-ref _keys112718112736_ 'table: absent-value)) + _args112738_))) (define gxc#apply-collect-expression-refs - (lambda _args112716112740_ + (lambda _args112720112744_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _args112716112740_))) + _args112720112744_))) (define gxc#::generate-meta::t - (let ((__tmp114256 (list gxc#::void-expression::t)) - (__tmp114254 - (let ((__tmp114255 + (let ((__tmp114260 (list gxc#::void-expression::t)) + (__tmp114258 + (let ((__tmp114259 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114255 '())))) + (cons __tmp114259 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp114256 + __tmp114260 '(state) - __tmp114254 + __tmp114258 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _$args112710_ - (apply make-instance gxc#::generate-meta::t _$args112710_))) + (lambda _$args112714_ + (apply make-instance gxc#::generate-meta::t _$args112714_))) (define gxc#::generate-meta-state (let () (declare (not safe)) @@ -1518,76 +1518,76 @@ (bind-method!__0 gxc#::generate-meta::t '%#declare gxc#void-method)) (let () (declare (not safe)) (seal-class! gxc#::generate-meta::t))))) (define gxc#apply-generate-meta__% - (lambda (_g114257_ _state112681112684_ _stx112686_) - (let ((_state112689_ + (lambda (_g114261_ _state112685112688_ _stx112690_) + (let ((_state112693_ (if (let () (declare (not safe)) - (eq? _state112681112684_ absent-value)) + (eq? _state112685112688_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _state112681112684_))) + _state112685112688_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_self112691_ - (let ((__obj114214 + (let* ((_self112695_ + (let ((__obj114218 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114214 - _state112689_ + __obj114218 + _state112693_ '1 gxc#::generate-meta::t '#f)) - __obj114214)) - (__tmp114258 + __obj114218)) + (__tmp114262 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112691_ _stx112686_))))) + (gxc#compile-e__1 _self112695_ _stx112690_))))) (declare (not safe)) (call-with-parameters - __tmp114258 + __tmp114262 gxc#current-compile-method - _self112691_))))) + _self112695_))))) (define gxc#apply-generate-meta__@ - (lambda (_keys112680112698_ . _args112700_) + (lambda (_keys112684112702_ . _args112704_) (apply gxc#apply-generate-meta__% - _keys112680112698_ + _keys112684112702_ (let () (declare (not safe)) - (symbolic-table-ref _keys112680112698_ 'state: absent-value)) - _args112700_))) + (symbolic-table-ref _keys112684112702_ 'state: absent-value)) + _args112704_))) (define gxc#apply-generate-meta - (lambda _args112682112706_ + (lambda _args112686112710_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _args112682112706_))) + _args112686112710_))) (define gxc#::generate-meta-phi::t - (let ((__tmp114261 (list)) - (__tmp114259 - (let ((__tmp114260 + (let ((__tmp114265 (list)) + (__tmp114263 + (let ((__tmp114264 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114260 '())))) + (cons __tmp114264 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp114261 + __tmp114265 '(state) - __tmp114259 + __tmp114263 '#f))) (define gxc#::generate-meta-phi? (let () (declare (not safe)) (make-class-predicate gxc#::generate-meta-phi::t))) (define gxc#make-::generate-meta-phi - (lambda _$args112676_ - (apply make-instance gxc#::generate-meta-phi::t _$args112676_))) + (lambda _$args112680_ + (apply make-instance gxc#::generate-meta-phi::t _$args112680_))) (define gxc#::generate-meta-phi-state (let () (declare (not safe)) @@ -1775,1451 +1775,1451 @@ (declare (not safe)) (seal-class! gxc#::generate-meta-phi::t))))) (define gxc#apply-generate-meta-phi__% - (lambda (_g114262_ _state112647112650_ _stx112652_) - (let ((_state112655_ + (lambda (_g114266_ _state112651112654_ _stx112656_) + (let ((_state112659_ (if (let () (declare (not safe)) - (eq? _state112647112650_ absent-value)) + (eq? _state112651112654_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _state112647112650_))) + _state112651112654_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_self112657_ - (let ((__obj114216 + (let* ((_self112661_ + (let ((__obj114220 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114216 - _state112655_ + __obj114220 + _state112659_ '1 gxc#::generate-meta-phi::t '#f)) - __obj114216)) - (__tmp114263 + __obj114220)) + (__tmp114267 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112657_ _stx112652_))))) + (gxc#compile-e__1 _self112661_ _stx112656_))))) (declare (not safe)) (call-with-parameters - __tmp114263 + __tmp114267 gxc#current-compile-method - _self112657_))))) + _self112661_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_keys112646112664_ . _args112666_) + (lambda (_keys112650112668_ . _args112670_) (apply gxc#apply-generate-meta-phi__% - _keys112646112664_ + _keys112650112668_ (let () (declare (not safe)) - (symbolic-table-ref _keys112646112664_ 'state: absent-value)) - _args112666_))) + (symbolic-table-ref _keys112650112668_ 'state: absent-value)) + _args112670_))) (define gxc#apply-generate-meta-phi - (lambda _args112648112672_ + (lambda _args112652112676_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _args112648112672_))) + _args112652112676_))) (define gxc#collect-bindings-define-values% - (lambda (_self112575_ _stx112576_) - (let* ((_g112578112595_ - (lambda (_g112579112592_) + (lambda (_self112579_ _stx112580_) + (let* ((_g112582112599_ + (lambda (_g112583112596_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112579112592_)))) - (_g112577112642_ - (lambda (_g112579112598_) + _g112583112596_)))) + (_g112581112646_ + (lambda (_g112583112602_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112579112598_)) - (let ((_e112584112600_ + (gx#stx-pair? _g112583112602_)) + (let ((_e112588112604_ (let () (declare (not safe)) - (gx#stx-e _g112579112598_)))) - (let ((_hd112583112603_ + (gx#stx-e _g112583112602_)))) + (let ((_hd112587112607_ (let () (declare (not safe)) - (##car _e112584112600_))) - (_tl112582112605_ + (##car _e112588112604_))) + (_tl112586112609_ (let () (declare (not safe)) - (##cdr _e112584112600_)))) + (##cdr _e112588112604_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112582112605_)) - (let ((_e112587112608_ + (gx#stx-pair? _tl112586112609_)) + (let ((_e112591112612_ (let () (declare (not safe)) - (gx#stx-e _tl112582112605_)))) - (let ((_hd112586112611_ + (gx#stx-e _tl112586112609_)))) + (let ((_hd112590112615_ (let () (declare (not safe)) - (##car _e112587112608_))) - (_tl112585112613_ + (##car _e112591112612_))) + (_tl112589112617_ (let () (declare (not safe)) - (##cdr _e112587112608_)))) + (##cdr _e112591112612_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112585112613_)) - (let ((_e112590112616_ + (gx#stx-pair? _tl112589112617_)) + (let ((_e112594112620_ (let () (declare (not safe)) - (gx#stx-e _tl112585112613_)))) - (let ((_hd112589112619_ + (gx#stx-e _tl112589112617_)))) + (let ((_hd112593112623_ (let () (declare (not safe)) - (##car _e112590112616_))) - (_tl112588112621_ + (##car _e112594112620_))) + (_tl112592112625_ (let () (declare (not safe)) - (##cdr _e112590112616_)))) + (##cdr _e112594112620_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl112588112621_)) - ((lambda (_L112624_ _L112625_) - (let ((__tmp114264 - (lambda (_bind112640_) + _tl112592112625_)) + ((lambda (_L112628_ _L112629_) + (let ((__tmp114268 + (lambda (_bind112644_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _bind112640_)) + (gx#identifier? _bind112644_)) (let () (declare (not safe)) - (gxc#add-module-binding! _bind112640_ '#f)) + (gxc#add-module-binding! _bind112644_ '#f)) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp114264 - _L112625_))) - _hd112589112619_ - _hd112586112611_) + __tmp114268 + _L112629_))) + _hd112593112623_ + _hd112590112615_) (let () (declare (not safe)) - (_g112578112595_ - _g112579112598_))))) + (_g112582112599_ + _g112583112602_))))) (let () (declare (not safe)) - (_g112578112595_ _g112579112598_))))) + (_g112582112599_ _g112583112602_))))) (let () (declare (not safe)) - (_g112578112595_ _g112579112598_))))) + (_g112582112599_ _g112583112602_))))) (let () (declare (not safe)) - (_g112578112595_ _g112579112598_)))))) + (_g112582112599_ _g112583112602_)))))) (declare (not safe)) - (_g112577112642_ _stx112576_)))) + (_g112581112646_ _stx112580_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_self112507_ _stx112508_) - (let* ((_g112510112527_ - (lambda (_g112511112524_) + (lambda (_self112511_ _stx112512_) + (let* ((_g112514112531_ + (lambda (_g112515112528_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112511112524_)))) - (_g112509112572_ - (lambda (_g112511112530_) + _g112515112528_)))) + (_g112513112576_ + (lambda (_g112515112534_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112511112530_)) - (let ((_e112516112532_ + (gx#stx-pair? _g112515112534_)) + (let ((_e112520112536_ (let () (declare (not safe)) - (gx#stx-e _g112511112530_)))) - (let ((_hd112515112535_ + (gx#stx-e _g112515112534_)))) + (let ((_hd112519112539_ (let () (declare (not safe)) - (##car _e112516112532_))) - (_tl112514112537_ + (##car _e112520112536_))) + (_tl112518112541_ (let () (declare (not safe)) - (##cdr _e112516112532_)))) + (##cdr _e112520112536_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112514112537_)) - (let ((_e112519112540_ + (gx#stx-pair? _tl112518112541_)) + (let ((_e112523112544_ (let () (declare (not safe)) - (gx#stx-e _tl112514112537_)))) - (let ((_hd112518112543_ + (gx#stx-e _tl112518112541_)))) + (let ((_hd112522112547_ (let () (declare (not safe)) - (##car _e112519112540_))) - (_tl112517112545_ + (##car _e112523112544_))) + (_tl112521112549_ (let () (declare (not safe)) - (##cdr _e112519112540_)))) + (##cdr _e112523112544_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112517112545_)) - (let ((_e112522112548_ + (gx#stx-pair? _tl112521112549_)) + (let ((_e112526112552_ (let () (declare (not safe)) - (gx#stx-e _tl112517112545_)))) - (let ((_hd112521112551_ + (gx#stx-e _tl112521112549_)))) + (let ((_hd112525112555_ (let () (declare (not safe)) - (##car _e112522112548_))) - (_tl112520112553_ + (##car _e112526112552_))) + (_tl112524112557_ (let () (declare (not safe)) - (##cdr _e112522112548_)))) + (##cdr _e112526112552_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl112520112553_)) - ((lambda (_L112556_ _L112557_) + _tl112524112557_)) + ((lambda (_L112560_ _L112561_) (let () (declare (not safe)) (gxc#add-module-binding! - _L112557_ + _L112561_ '#t))) - _hd112521112551_ - _hd112518112543_) + _hd112525112555_ + _hd112522112547_) (let () (declare (not safe)) - (_g112510112527_ - _g112511112530_))))) + (_g112514112531_ + _g112515112534_))))) (let () (declare (not safe)) - (_g112510112527_ _g112511112530_))))) + (_g112514112531_ _g112515112534_))))) (let () (declare (not safe)) - (_g112510112527_ _g112511112530_))))) + (_g112514112531_ _g112515112534_))))) (let () (declare (not safe)) - (_g112510112527_ _g112511112530_)))))) + (_g112514112531_ _g112515112534_)))))) (declare (not safe)) - (_g112509112572_ _stx112508_)))) + (_g112513112576_ _stx112512_)))) (define gxc#lift-modules-module% - (lambda (_self112449_ _stx112450_) - (let* ((_g112452112466_ - (lambda (_g112453112463_) + (lambda (_self112453_ _stx112454_) + (let* ((_g112456112470_ + (lambda (_g112457112467_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112453112463_)))) - (_g112451112504_ - (lambda (_g112453112469_) + _g112457112467_)))) + (_g112455112508_ + (lambda (_g112457112473_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112453112469_)) - (let ((_e112458112471_ + (gx#stx-pair? _g112457112473_)) + (let ((_e112462112475_ (let () (declare (not safe)) - (gx#stx-e _g112453112469_)))) - (let ((_hd112457112474_ + (gx#stx-e _g112457112473_)))) + (let ((_hd112461112478_ (let () (declare (not safe)) - (##car _e112458112471_))) - (_tl112456112476_ + (##car _e112462112475_))) + (_tl112460112480_ (let () (declare (not safe)) - (##cdr _e112458112471_)))) + (##cdr _e112462112475_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112456112476_)) - (let ((_e112461112479_ + (gx#stx-pair? _tl112460112480_)) + (let ((_e112465112483_ (let () (declare (not safe)) - (gx#stx-e _tl112456112476_)))) - (let ((_hd112460112482_ + (gx#stx-e _tl112460112480_)))) + (let ((_hd112464112486_ (let () (declare (not safe)) - (##car _e112461112479_))) - (_tl112459112484_ + (##car _e112465112483_))) + (_tl112463112488_ (let () (declare (not safe)) - (##cdr _e112461112479_)))) - ((lambda (_L112487_ _L112488_) - (let ((_ctx112501_ + (##cdr _e112465112483_)))) + ((lambda (_L112491_ _L112492_) + (let ((_ctx112505_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L112488_)))) + _L112492_)))) (set-box! (let () (declare (not safe)) - (slot-ref__0 _self112449_ 'modules)) - (let ((__tmp114265 + (slot-ref__0 _self112453_ 'modules)) + (let ((__tmp114269 (unbox (let () (declare (not safe)) (slot-ref__0 - _self112449_ + _self112453_ 'modules))))) (declare (not safe)) - (cons _ctx112501_ __tmp114265))) - (let ((__tmp114266 + (cons _ctx112505_ __tmp114269))) + (let ((__tmp114270 (lambda () - (let ((__tmp114267 + (let ((__tmp114271 (##structure-ref - _ctx112501_ + _ctx112505_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _self112449_ - __tmp114267))))) + _self112453_ + __tmp114271))))) (declare (not safe)) (call-with-parameters - __tmp114266 + __tmp114270 gx#current-expander-context - _ctx112501_)))) - _tl112459112484_ - _hd112460112482_))) + _ctx112505_)))) + _tl112463112488_ + _hd112464112486_))) (let () (declare (not safe)) - (_g112452112466_ _g112453112469_))))) + (_g112456112470_ _g112457112473_))))) (let () (declare (not safe)) - (_g112452112466_ _g112453112469_)))))) + (_g112456112470_ _g112457112473_)))))) (declare (not safe)) - (_g112451112504_ _stx112450_)))) + (_g112455112508_ _stx112454_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_decls112405112407_ (gxc#current-compile-decls))) - (if _decls112405112407_ - (let ((_decls112410_ _decls112405112407_)) - (let _lp112412_ ((_rest112414_ _decls112410_)) - (let* ((_rest112415112423_ _rest112414_) - (_else112417112431_ (lambda () '#f)) - (_K112419112437_ - (lambda (_decls112434_ _decl112435_) + (let ((_decls112409112411_ (gxc#current-compile-decls))) + (if _decls112409112411_ + (let ((_decls112414_ _decls112409112411_)) + (let _lp112416_ ((_rest112418_ _decls112414_)) + (let* ((_rest112419112427_ _rest112418_) + (_else112421112435_ (lambda () '#f)) + (_K112423112441_ + (lambda (_decls112438_ _decl112439_) (if (let () (declare (not safe)) - (equal? _decl112435_ '(not safe))) + (equal? _decl112439_ '(not safe))) '#t (if (let () (declare (not safe)) - (equal? _decl112435_ '(safe))) + (equal? _decl112439_ '(safe))) '#f (let () (declare (not safe)) - (_lp112412_ _decls112434_))))))) + (_lp112416_ _decls112438_))))))) (if (let () (declare (not safe)) - (##pair? _rest112415112423_)) - (let ((_hd112420112440_ + (##pair? _rest112419112427_)) + (let ((_hd112424112444_ (let () (declare (not safe)) - (##car _rest112415112423_))) - (_tl112421112442_ + (##car _rest112419112427_))) + (_tl112425112446_ (let () (declare (not safe)) - (##cdr _rest112415112423_)))) - (let* ((_decl112445_ _hd112420112440_) - (_decls112447_ _tl112421112442_)) + (##cdr _rest112419112427_)))) + (let* ((_decl112449_ _hd112424112444_) + (_decls112451_ _tl112425112446_)) (declare (not safe)) - (_K112419112437_ _decls112447_ _decl112445_))) - (let () (declare (not safe)) (_else112417112431_)))))) + (_K112423112441_ _decls112451_ _decl112449_))) + (let () (declare (not safe)) (_else112421112435_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id112399_ _syntax?112400_) - (let ((_eid112402_ + (lambda (_id112403_ _syntax?112404_) + (let ((_eid112406_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _id112399_)) + (gx#resolve-identifier__0 _id112403_)) '1 gx#binding::t '#f)) - (_ht112403_ + (_ht112407_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid112402_) + (if (interned-symbol? _eid112406_) '#!void - (let ((__tmp114268 - (let ((__tmp114269 + (let ((__tmp114272 + (let ((__tmp114273 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid112402_)))) + _eid112406_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp114269 _syntax?112400_)))) + (gx#make-binding-id__1 __tmp114273 _syntax?112404_)))) (declare (not safe)) - (hash-put! _ht112403_ _eid112402_ __tmp114268)))))) + (hash-put! _ht112407_ _eid112406_ __tmp114272)))))) (define gxc#runtime-identifier=? - (lambda (_id1112392_ _id2112393_) - (letrec ((_symbol-e112395_ - (lambda (_id112397_) - (if (let () (declare (not safe)) (symbol? _id112397_)) - _id112397_ + (lambda (_id1112396_ _id2112397_) + (letrec ((_symbol-e112399_ + (lambda (_id112401_) + (if (let () (declare (not safe)) (symbol? _id112401_)) + _id112401_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id112397_)))))) - (let ((__tmp114271 - (let () (declare (not safe)) (_symbol-e112395_ _id1112392_))) - (__tmp114270 - (let () (declare (not safe)) (_symbol-e112395_ _id2112393_)))) + (gxc#generate-runtime-binding-id _id112401_)))))) + (let ((__tmp114275 + (let () (declare (not safe)) (_symbol-e112399_ _id1112396_))) + (__tmp114274 + (let () (declare (not safe)) (_symbol-e112399_ _id2112397_)))) (declare (not safe)) - (eq? __tmp114271 __tmp114270))))) + (eq? __tmp114275 __tmp114274))))) (define gxc#generate-runtime-binding-id - (lambda (_id112370_) - (let ((_$e112372_ + (lambda (_id112374_) + (let ((_$e112376_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id112370_ + _id112374_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _id112370_)) + (gx#resolve-identifier__0 _id112374_)) '#f))) - (if _$e112372_ - ((lambda (_bind112375_) - (let ((_eid112377_ - (##structure-ref _bind112375_ '1 gx#binding::t '#f)) - (_ht112378_ + (if _$e112376_ + ((lambda (_bind112379_) + (let ((_eid112381_ + (##structure-ref _bind112379_ '1 gx#binding::t '#f)) + (_ht112382_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid112377_) - _eid112377_ - (let ((_$e112380_ + (if (interned-symbol? _eid112381_) + _eid112381_ + (let ((_$e112384_ (let () (declare (not safe)) - (hash-get _ht112378_ _eid112377_)))) - (if _$e112380_ - (values _$e112380_) + (hash-get _ht112382_ _eid112381_)))) + (if _$e112384_ + (values _$e112384_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind112375_ + _bind112379_ 'gx#local-binding::t)) - (let ((_gid112383_ + (let ((_gid112387_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid112377_)))) + _eid112381_)))) (let () (declare (not safe)) (hash-put! - _ht112378_ - _eid112377_ - _gid112383_)) - _gid112383_) + _ht112382_ + _eid112381_ + _gid112387_)) + _gid112387_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind112375_ + _bind112379_ 'gx#module-binding::t)) - (let ((_gid112390_ - (let ((_$e112385_ + (let ((_gid112394_ + (let ((_$e112389_ (##structure-ref (##structure-ref - _bind112375_ + _bind112379_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e112385_ - ((lambda (_ns112388_) + (if _$e112389_ + ((lambda (_ns112392_) (let () (declare (not safe)) (make-symbol__1 - _ns112388_ + _ns112392_ '"#" - _eid112377_))) - _$e112385_) + _eid112381_))) + _$e112389_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid112377_)))))) + _eid112381_)))))) (let () (declare (not safe)) (hash-put! - _ht112378_ - _eid112377_ - _gid112390_)) - _gid112390_) + _ht112382_ + _eid112381_ + _gid112394_)) + _gid112394_) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id112370_ - _eid112377_ - _bind112375_))))))))) - _$e112372_) + _id112374_ + _eid112381_ + _bind112379_))))))))) + _$e112376_) (if (interned-symbol? - (let () (declare (not safe)) (gx#stx-e _id112370_))) - (let () (declare (not safe)) (gx#stx-e _id112370_)) + (let () (declare (not safe)) (gx#stx-e _id112374_))) + (let () (declare (not safe)) (gx#stx-e _id112374_)) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id112370_))))))) + _id112374_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id112368_) - (if (let () (declare (not safe)) (gx#identifier? _id112368_)) + (lambda (_id112372_) + (if (let () (declare (not safe)) (gx#identifier? _id112372_)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id112368_)) + (gxc#generate-runtime-binding-id _id112372_)) (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym112348_ _quote?112349_) - (let* ((_ht112351_ + (lambda (_sym112352_ _quote?112353_) + (let* ((_ht112355_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e112353_ + (_$e112357_ (let () (declare (not safe)) - (hash-get _ht112351_ _sym112348_)))) - (if _$e112353_ - (values _$e112353_) - (let ((_g112356_ - (if _quote?112349_ - (let ((__tmp114272 (gxc#current-compile-timestamp))) + (hash-get _ht112355_ _sym112352_)))) + (if _$e112357_ + (values _$e112357_) + (let ((_g112360_ + (if _quote?112353_ + (let ((__tmp114276 (gxc#current-compile-timestamp))) (declare (not safe)) (make-symbol__1 '"__" - _sym112348_ + _sym112352_ '"__" - __tmp114272)) + __tmp114276)) (let () (declare (not safe)) - (make-symbol__1 '"_" _sym112348_ '"_"))))) + (make-symbol__1 '"_" _sym112352_ '"_"))))) (let () (declare (not safe)) - (hash-put! _ht112351_ _sym112348_ _g112356_)) - _g112356_))))) + (hash-put! _ht112355_ _sym112352_ _g112360_)) + _g112360_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym112361_) - (let ((_quote?112363_ '#f)) + (lambda (_sym112365_) + (let ((_quote?112367_ '#f)) (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym112361_ - _quote?112363_)))) + _sym112365_ + _quote?112367_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g114274_ - (let ((_g114273_ (let () (declare (not safe)) (##length _g114274_)))) - (cond ((let () (declare (not safe)) (##fx= _g114273_ 1)) - (apply (lambda (_sym112361_) + (lambda _g114278_ + (let ((_g114277_ (let () (declare (not safe)) (##length _g114278_)))) + (cond ((let () (declare (not safe)) (##fx= _g114277_ 1)) + (apply (lambda (_sym112365_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym112361_))) - _g114274_)) - ((let () (declare (not safe)) (##fx= _g114273_ 2)) - (apply (lambda (_sym112365_ _quote?112366_) + _sym112365_))) + _g114278_)) + ((let () (declare (not safe)) (##fx= _g114277_ 2)) + (apply (lambda (_sym112369_ _quote?112370_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym112365_ - _quote?112366_))) - _g114274_)) + _sym112369_ + _quote?112370_))) + _g114278_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g114274_)))))) + _g114278_)))))) (define gxc#generate-runtime-identifier - (lambda (_id112345_) - (let ((__tmp114275 + (lambda (_id112349_) + (let ((__tmp114279 (let () (declare (not safe)) - (gx#core-identifier-key _id112345_)))) + (gx#core-identifier-key _id112349_)))) (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp114275)))) + (gxc#generate-runtime-identifier-key __tmp114279)))) (define gxc#generate-runtime-identifier-key - (lambda (_key112305_) - (if (interned-symbol? _key112305_) - _key112305_ - (if (uninterned-symbol? _key112305_) + (lambda (_key112309_) + (if (interned-symbol? _key112309_) + _key112309_ + (if (uninterned-symbol? _key112309_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _key112305_)) - (let* ((_key112306112313_ _key112305_) - (_E112308112317_ + (gxc#generate-runtime-gensym-reference__0 _key112309_)) + (let* ((_key112310112317_ _key112309_) + (_E112312112321_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _key112306112313_)))) - (_K112309112333_ - (lambda (_mark112320_ _eid112321_) - (let ((_$e112323_ + (error '"No clause matching" _key112310112317_)))) + (_K112313112337_ + (lambda (_mark112324_ _eid112325_) + (let ((_$e112327_ (##structure-ref - _mark112320_ + _mark112324_ '1 gx#expander-mark::t '#f))) - (if _$e112323_ - ((lambda (_ht112326_) - (let ((_$e112328_ + (if _$e112327_ + ((lambda (_ht112330_) + (let ((_$e112332_ (let () (declare (not safe)) (hash-get - _ht112326_ - _eid112321_)))) - (if _$e112328_ - ((lambda (_id112331_) - (if (interned-symbol? _id112331_) - _id112331_ + _ht112330_ + _eid112325_)))) + (if _$e112332_ + ((lambda (_id112335_) + (if (interned-symbol? _id112335_) + _id112335_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _id112331_)))) - _$e112328_) + _id112335_)))) + _$e112332_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid112321_))))) - _$e112323_) + _eid112325_))))) + _$e112327_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid112321_))))))) - (if (let () (declare (not safe)) (##pair? _key112306112313_)) - (let ((_hd112310112336_ + _eid112325_))))))) + (if (let () (declare (not safe)) (##pair? _key112310112317_)) + (let ((_hd112314112340_ (let () (declare (not safe)) - (##car _key112306112313_))) - (_tl112311112338_ + (##car _key112310112317_))) + (_tl112315112342_ (let () (declare (not safe)) - (##cdr _key112306112313_)))) - (let* ((_eid112341_ _hd112310112336_) - (_mark112343_ _tl112311112338_)) + (##cdr _key112310112317_)))) + (let* ((_eid112345_ _hd112314112340_) + (_mark112347_ _tl112315112342_)) (declare (not safe)) - (_K112309112333_ _mark112343_ _eid112341_))) - (let () (declare (not safe)) (_E112308112317_)))))))) + (_K112313112337_ _mark112347_ _eid112345_))) + (let () (declare (not safe)) (_E112312112321_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top112292_) - (if _top112292_ - (let ((_ns112294_ + (lambda (_top112296_) + (if _top112296_ + (let ((_ns112298_ (##structure-ref - (let ((__tmp114277 (gx#current-expander-context))) + (let ((__tmp114281 (gx#current-expander-context))) (declare (not safe)) - (gx#core-context-top__1 __tmp114277)) + (gx#core-context-top__1 __tmp114281)) '6 gx#module-context::t '#f)) - (_phi112295_ (gx#current-expander-phi))) - (if _ns112294_ - (if (fxpositive? _phi112295_) - (let ((__tmp114283 (number->string _phi112295_)) - (__tmp114282 (gensym))) + (_phi112299_ (gx#current-expander-phi))) + (if _ns112298_ + (if (fxpositive? _phi112299_) + (let ((__tmp114287 (number->string _phi112299_)) + (__tmp114286 (gensym))) (declare (not safe)) (make-symbol__1 - _ns112294_ + _ns112298_ '"[" - __tmp114283 + __tmp114287 '"]#_" - __tmp114282 + __tmp114286 '"_")) - (let ((__tmp114281 (gensym))) + (let ((__tmp114285 (gensym))) (declare (not safe)) - (make-symbol__1 _ns112294_ '"#_" __tmp114281 '"_"))) - (if (fxpositive? _phi112295_) - (let ((__tmp114280 (number->string _phi112295_)) - (__tmp114279 (gensym))) + (make-symbol__1 _ns112298_ '"#_" __tmp114285 '"_"))) + (if (fxpositive? _phi112299_) + (let ((__tmp114284 (number->string _phi112299_)) + (__tmp114283 (gensym))) (declare (not safe)) (make-symbol__1 '"[" - __tmp114280 + __tmp114284 '"]#_" - __tmp114279 + __tmp114283 '"_")) - (let ((__tmp114278 (gensym))) + (let ((__tmp114282 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp114278 '"_"))))) - (let ((__tmp114276 (gensym))) + (make-symbol__1 '"_" __tmp114282 '"_"))))) + (let ((__tmp114280 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp114276 '"_"))))) + (make-symbol__1 '"_" __tmp114280 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top112301_ '#f)) + (let ((_top112305_ '#f)) (declare (not safe)) - (gxc#generate-runtime-temporary__% _top112301_)))) + (gxc#generate-runtime-temporary__% _top112305_)))) (define gxc#generate-runtime-temporary - (lambda _g114285_ - (let ((_g114284_ (let () (declare (not safe)) (##length _g114285_)))) - (cond ((let () (declare (not safe)) (##fx= _g114284_ 0)) + (lambda _g114289_ + (let ((_g114288_ (let () (declare (not safe)) (##length _g114289_)))) + (cond ((let () (declare (not safe)) (##fx= _g114288_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - _g114285_)) - ((let () (declare (not safe)) (##fx= _g114284_ 1)) - (apply (lambda (_top112303_) + _g114289_)) + ((let () (declare (not safe)) (##fx= _g114288_ 1)) + (apply (lambda (_top112307_) (let () (declare (not safe)) - (gxc#generate-runtime-temporary__% _top112303_))) - _g114285_)) + (gxc#generate-runtime-temporary__% _top112307_))) + _g114289_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g114285_)))))) + _g114289_)))))) (define gxc#generate-runtime-empty - (lambda (_self112288_ _stx112289_) '(begin))) + (lambda (_self112292_ _stx112293_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_self112135_ _stx112136_) - (letrec ((_simplify112138_ - (lambda (_body112186_) - (let _lp112188_ ((_rest112190_ _body112186_) - (_r112191_ '())) - (let* ((_rest112192112200_ _rest112190_) - (_else112194112208_ - (lambda () (reverse _r112191_))) - (_K112196112276_ - (lambda (_rest112211_ _hd112212_) - (let* ((_hd112213112229_ _hd112212_) - (_else112217112237_ + (lambda (_self112139_ _stx112140_) + (letrec ((_simplify112142_ + (lambda (_body112190_) + (let _lp112192_ ((_rest112194_ _body112190_) + (_r112195_ '())) + (let* ((_rest112196112204_ _rest112194_) + (_else112198112212_ + (lambda () (reverse _r112195_))) + (_K112200112280_ + (lambda (_rest112215_ _hd112216_) + (let* ((_hd112217112233_ _hd112216_) + (_else112221112241_ (lambda () - (let ((__tmp114286 + (let ((__tmp114290 (let () (declare (not safe)) - (cons _hd112212_ - _r112191_)))) + (cons _hd112216_ + _r112195_)))) (declare (not safe)) - (_lp112188_ - _rest112211_ - __tmp114286))))) - (let ((_K112225112266_ - (lambda (_exprs112264_) - (let ((__tmp114287 + (_lp112192_ + _rest112215_ + __tmp114290))))) + (let ((_K112229112270_ + (lambda (_exprs112268_) + (let ((__tmp114291 (let () (declare (not safe)) (foldr1 cons - _rest112211_ - _exprs112264_)))) + _rest112215_ + _exprs112268_)))) (declare (not safe)) - (_lp112188_ - __tmp114287 - _r112191_)))) - (_K112220112250_ + (_lp112192_ + __tmp114291 + _r112195_)))) + (_K112224112254_ (lambda () (if (let () (declare (not safe)) - (null? _rest112211_)) - (let ((__tmp114288 + (null? _rest112215_)) + (let ((__tmp114292 (let () (declare (not safe)) - (cons _hd112212_ - _r112191_)))) + (cons _hd112216_ + _r112195_)))) (declare (not safe)) - (_lp112188_ - _rest112211_ - __tmp114288)) + (_lp112192_ + _rest112215_ + __tmp114292)) (let () (declare (not safe)) - (_lp112188_ - _rest112211_ - _r112191_))))) - (_K112219112242_ + (_lp112192_ + _rest112215_ + _r112195_))))) + (_K112223112246_ (lambda () (if (let () (declare (not safe)) - (null? _rest112211_)) - (let ((__tmp114289 + (null? _rest112215_)) + (let ((__tmp114293 (let () (declare (not safe)) - (cons _hd112212_ - _r112191_)))) + (cons _hd112216_ + _r112195_)))) (declare (not safe)) - (_lp112188_ - _rest112211_ - __tmp114289)) + (_lp112192_ + _rest112215_ + __tmp114293)) (let () (declare (not safe)) - (_lp112188_ - _rest112211_ - _r112191_)))))) - (let ((_try-match112216112245_ + (_lp112192_ + _rest112215_ + _r112195_)))))) + (let ((_try-match112220112249_ (lambda () (if (let () (declare (not safe)) - (symbol? _hd112213112229_)) + (symbol? _hd112217112233_)) (let () (declare (not safe)) - (_K112219112242_)) + (_K112223112246_)) (let () (declare (not safe)) - (_else112217112237_)))))) + (_else112221112241_)))))) (if (let () (declare (not safe)) - (##pair? _hd112213112229_)) - (let ((_tl112227112271_ + (##pair? _hd112217112233_)) + (let ((_tl112231112275_ (let () (declare (not safe)) - (##cdr _hd112213112229_))) - (_hd112226112269_ + (##cdr _hd112217112233_))) + (_hd112230112273_ (let () (declare (not safe)) - (##car _hd112213112229_)))) + (##car _hd112217112233_)))) (if (let () (declare (not safe)) - (##eq? _hd112226112269_ + (##eq? _hd112230112273_ 'begin)) - (let ((_exprs112274_ - _tl112227112271_)) + (let ((_exprs112278_ + _tl112231112275_)) (declare (not safe)) - (_K112225112266_ - _exprs112274_)) + (_K112229112270_ + _exprs112278_)) (if (let () (declare (not safe)) - (##eq? _hd112226112269_ + (##eq? _hd112230112273_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl112227112271_)) - (let ((_tl112224112258_ + (##pair? _tl112231112275_)) + (let ((_tl112228112262_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _tl112227112271_)))) - (if (let () (declare (not safe)) (##null? _tl112224112258_)) - (let () (declare (not safe)) (_K112220112250_)) - (let () (declare (not safe)) (_try-match112216112245_)))) - (let () (declare (not safe)) (_try-match112216112245_))) + (##cdr _tl112231112275_)))) + (if (let () (declare (not safe)) (##null? _tl112228112262_)) + (let () (declare (not safe)) (_K112224112254_)) + (let () (declare (not safe)) (_try-match112220112249_)))) + (let () (declare (not safe)) (_try-match112220112249_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match112216112245_))))) + (_try-match112220112249_))))) (let () (declare (not safe)) - (_try-match112216112245_))))))))) + (_try-match112220112249_))))))))) (if (let () (declare (not safe)) - (##pair? _rest112192112200_)) - (let ((_hd112197112279_ + (##pair? _rest112196112204_)) + (let ((_hd112201112283_ (let () (declare (not safe)) - (##car _rest112192112200_))) - (_tl112198112281_ + (##car _rest112196112204_))) + (_tl112202112285_ (let () (declare (not safe)) - (##cdr _rest112192112200_)))) - (let* ((_hd112284_ _hd112197112279_) - (_rest112286_ _tl112198112281_)) + (##cdr _rest112196112204_)))) + (let* ((_hd112288_ _hd112201112283_) + (_rest112290_ _tl112202112285_)) (declare (not safe)) - (_K112196112276_ _rest112286_ _hd112284_))) + (_K112200112280_ _rest112290_ _hd112288_))) (let () (declare (not safe)) - (_else112194112208_)))))))) - (let* ((_g112140112150_ - (lambda (_g112141112147_) + (_else112198112212_)))))))) + (let* ((_g112144112154_ + (lambda (_g112145112151_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112141112147_)))) - (_g112139112183_ - (lambda (_g112141112153_) + _g112145112151_)))) + (_g112143112187_ + (lambda (_g112145112157_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112141112153_)) - (let ((_e112145112155_ + (gx#stx-pair? _g112145112157_)) + (let ((_e112149112159_ (let () (declare (not safe)) - (gx#stx-e _g112141112153_)))) - (let ((_hd112144112158_ + (gx#stx-e _g112145112157_)))) + (let ((_hd112148112162_ (let () (declare (not safe)) - (##car _e112145112155_))) - (_tl112143112160_ + (##car _e112149112159_))) + (_tl112147112164_ (let () (declare (not safe)) - (##cdr _e112145112155_)))) - ((lambda (_L112163_) - (let* ((_body112178_ - (map (lambda (_g112173112175_) + (##cdr _e112149112159_)))) + ((lambda (_L112167_) + (let* ((_body112182_ + (map (lambda (_g112177112179_) (let () (declare (not safe)) (gxc#compile-e__1 - _self112135_ - _g112173112175_))) - _L112163_)) - (_body112180_ + _self112139_ + _g112177112179_))) + _L112167_)) + (_body112184_ (let () (declare (not safe)) - (_simplify112138_ _body112178_)))) - (if (fx= (length _body112180_) '1) - (car _body112180_) + (_simplify112142_ _body112182_)))) + (if (fx= (length _body112184_) '1) + (car _body112184_) (let () (declare (not safe)) - (cons 'begin _body112180_))))) - _tl112143112160_))) + (cons 'begin _body112184_))))) + _tl112147112164_))) (let () (declare (not safe)) - (_g112140112150_ _g112141112153_)))))) + (_g112144112154_ _g112145112157_)))))) (declare (not safe)) - (_g112139112183_ _stx112136_))))) + (_g112143112187_ _stx112140_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_self112096_ _stx112097_) - (let* ((_g112099112109_ - (lambda (_g112100112106_) + (lambda (_self112100_ _stx112101_) + (let* ((_g112103112113_ + (lambda (_g112104112110_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112100112106_)))) - (_g112098112132_ - (lambda (_g112100112112_) + _g112104112110_)))) + (_g112102112136_ + (lambda (_g112104112116_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112100112112_)) - (let ((_e112104112114_ + (gx#stx-pair? _g112104112116_)) + (let ((_e112108112118_ (let () (declare (not safe)) - (gx#stx-e _g112100112112_)))) - (let ((_hd112103112117_ + (gx#stx-e _g112104112116_)))) + (let ((_hd112107112121_ (let () (declare (not safe)) - (##car _e112104112114_))) - (_tl112102112119_ + (##car _e112108112118_))) + (_tl112106112123_ (let () (declare (not safe)) - (##cdr _e112104112114_)))) - ((lambda (_L112122_) - (let ((__tmp114290 + (##cdr _e112108112118_)))) + ((lambda (_L112126_) + (let ((__tmp114294 (let () (declare (not safe)) - (gx#syntax->datum _L112122_)))) + (gx#syntax->datum _L112126_)))) (declare (not safe)) - (cons 'begin __tmp114290))) - _tl112102112119_))) + (cons 'begin __tmp114294))) + _tl112106112123_))) (let () (declare (not safe)) - (_g112099112109_ _g112100112112_)))))) + (_g112103112113_ _g112104112116_)))))) (declare (not safe)) - (_g112098112132_ _stx112097_)))) + (_g112102112136_ _stx112101_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_self111860_ _stx111861_) - (let* ((___stx112888112889_ _stx111861_) - (_g111865111917_ + (lambda (_self111864_ _stx111865_) + (let* ((___stx112892112893_ _stx111865_) + (_g111869111921_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx112888112889_))))) - (let ((___kont112890112891_ - (lambda (_L112078_ _L112079_) + ___stx112892112893_))))) + (let ((___kont112894112895_ + (lambda (_L112082_ _L112083_) (let () (declare (not safe)) - (gxc#compile-e__1 _self111860_ _L112078_)))) - (___kont112892112893_ - (lambda (_L112026_ _L112027_ _L112028_) + (gxc#compile-e__1 _self111864_ _L112082_)))) + (___kont112896112897_ + (lambda (_L112030_ _L112031_ _L112032_) (let () (declare (not safe)) - (gxc#compile-e__1 _self111860_ _L112026_)))) - (___kont112896112897_ - (lambda (_L111946_ _L111947_) - (let ((_decls111962_ (map gx#syntax->datum _L111947_))) - (let ((__tmp114293 + (gxc#compile-e__1 _self111864_ _L112030_)))) + (___kont112900112901_ + (lambda (_L111950_ _L111951_) + (let ((_decls111966_ (map gx#syntax->datum _L111951_))) + (let ((__tmp114297 (lambda () - (let ((__tmp114294 - (let ((__tmp114297 + (let ((__tmp114298 + (let ((__tmp114301 (let () (declare (not safe)) - (cons 'declare _decls111962_))) - (__tmp114295 - (let ((__tmp114296 + (cons 'declare _decls111966_))) + (__tmp114299 + (let ((__tmp114300 (let () (declare (not safe)) (gxc#compile-e__1 - _self111860_ - _L111946_)))) + _self111864_ + _L111950_)))) (declare (not safe)) - (cons __tmp114296 '())))) + (cons __tmp114300 '())))) (declare (not safe)) - (cons __tmp114297 __tmp114295)))) + (cons __tmp114301 __tmp114299)))) (declare (not safe)) - (cons 'begin __tmp114294)))) - (__tmp114291 - (let ((__tmp114292 (gxc#current-compile-decls))) + (cons 'begin __tmp114298)))) + (__tmp114295 + (let ((__tmp114296 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp114292 _decls111962_)))) + (foldr1 cons __tmp114296 _decls111966_)))) (declare (not safe)) (call-with-parameters - __tmp114293 + __tmp114297 gxc#current-compile-decls - __tmp114291)))))) - (let* ((___match112943112944_ - (lambda (_e111883111970_ - _hd111882111973_ - _tl111881111975_ - _e111886111978_ - _hd111885111981_ - _tl111884111983_ - _e111889111986_ - _hd111888111989_ - _tl111887111991_ - ___splice112894112895_ - _target111890111994_ - _tl111892111996_) - (letrec ((_loop111893111999_ - (lambda (_hd111891112002_ _param111897112004_) + __tmp114295)))))) + (let* ((___match112947112948_ + (lambda (_e111887111974_ + _hd111886111977_ + _tl111885111979_ + _e111890111982_ + _hd111889111985_ + _tl111888111987_ + _e111893111990_ + _hd111892111993_ + _tl111891111995_ + ___splice112898112899_ + _target111894111998_ + _tl111896112000_) + (letrec ((_loop111897112003_ + (lambda (_hd111895112006_ _param111901112008_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd111891112002_)) - (let ((_e111894112007_ + (gx#stx-pair? _hd111895112006_)) + (let ((_e111898112011_ (let () (declare (not safe)) - (gx#stx-e _hd111891112002_)))) - (let ((_lp-tl111896112012_ + (gx#stx-e _hd111895112006_)))) + (let ((_lp-tl111900112016_ (let () (declare (not safe)) - (##cdr _e111894112007_))) - (_lp-hd111895112010_ + (##cdr _e111898112011_))) + (_lp-hd111899112014_ (let () (declare (not safe)) - (##car _e111894112007_)))) - (let ((__tmp114299 + (##car _e111898112011_)))) + (let ((__tmp114303 (let () (declare (not safe)) - (cons _lp-hd111895112010_ - _param111897112004_)))) + (cons _lp-hd111899112014_ + _param111901112008_)))) (declare (not safe)) - (_loop111893111999_ - _lp-tl111896112012_ - __tmp114299)))) - (let ((_param111898112015_ - (reverse _param111897112004_))) + (_loop111897112003_ + _lp-tl111900112016_ + __tmp114303)))) + (let ((_param111902112019_ + (reverse _param111901112008_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111884111983_)) - (let ((_e111901112018_ + (gx#stx-pair? _tl111888111987_)) + (let ((_e111905112022_ (let () (declare (not safe)) (gx#stx-e - _tl111884111983_)))) - (let ((_tl111899112023_ + _tl111888111987_)))) + (let ((_tl111903112027_ (let () (declare (not safe)) - (##cdr _e111901112018_))) - (_hd111900112021_ + (##cdr _e111905112022_))) + (_hd111904112025_ (let () (declare (not safe)) - (##car _e111901112018_)))) + (##car _e111905112022_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111899112023_)) - (let ((_L112026_ - _hd111900112021_) - (_L112027_ - _param111898112015_) - (_L112028_ - _hd111888111989_)) + _tl111903112027_)) + (let ((_L112030_ + _hd111904112025_) + (_L112031_ + _param111902112019_) + (_L112032_ + _hd111892111993_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L112028_)) - (let ((__tmp114298 + (gx#identifier? _L112032_)) + (let ((__tmp114302 (memq (let () (declare (not safe)) - (gx#stx-e _L112028_)) + (gx#stx-e _L112032_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp114298))) - (___kont112892112893_ _L112026_ _L112027_ _L112028_) - (___kont112896112897_ _hd111900112021_ _hd111885111981_))) + (not __tmp114302))) + (___kont112896112897_ _L112030_ _L112031_ _L112032_) + (___kont112900112901_ _hd111904112025_ _hd111889111985_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g111865111917_))))) + (_g111869111921_))))) (let () (declare (not safe)) - (_g111865111917_)))))))) + (_g111869111921_)))))))) (let () (declare (not safe)) - (_loop111893111999_ _target111890111994_ '()))))) - (___match112917112918_ - (lambda (_e111871112054_ - _hd111870112057_ - _tl111869112059_ - _e111874112062_ - _hd111873112065_ - _tl111872112067_ - _e111877112070_ - _hd111876112073_ - _tl111875112075_) - (let ((_L112078_ _hd111876112073_) - (_L112079_ _hd111873112065_)) + (_loop111897112003_ _target111894111998_ '()))))) + (___match112921112922_ + (lambda (_e111875112058_ + _hd111874112061_ + _tl111873112063_ + _e111878112066_ + _hd111877112069_ + _tl111876112071_ + _e111881112074_ + _hd111880112077_ + _tl111879112079_) + (let ((_L112082_ _hd111880112077_) + (_L112083_ _hd111877112069_)) (if (let () (declare (not safe)) - (gx#identifier? _L112079_)) - (___kont112890112891_ _L112078_ _L112079_) + (gx#identifier? _L112083_)) + (___kont112894112895_ _L112082_ _L112083_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd111873112065_)) - (let ((_e111889111986_ + (gx#stx-pair? _hd111877112069_)) + (let ((_e111893111990_ (let () (declare (not safe)) - (gx#stx-e _hd111873112065_)))) - (let ((_tl111887111991_ + (gx#stx-e _hd111877112069_)))) + (let ((_tl111891111995_ (let () (declare (not safe)) - (##cdr _e111889111986_))) - (_hd111888111989_ + (##cdr _e111893111990_))) + (_hd111892111993_ (let () (declare (not safe)) - (##car _e111889111986_)))) + (##car _e111893111990_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl111887111991_)) - (let ((___splice112894112895_ + (gx#stx-pair/null? _tl111891111995_)) + (let ((___splice112898112899_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl111887111991_ + _tl111891111995_ '0)))) - (let ((_tl111892111996_ + (let ((_tl111896112000_ (let () (declare (not safe)) (##vector-ref - ___splice112894112895_ + ___splice112898112899_ '1))) - (_target111890111994_ + (_target111894111998_ (let () (declare (not safe)) (##vector-ref - ___splice112894112895_ + ___splice112898112899_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111892111996_)) - (___match112943112944_ - _e111871112054_ - _hd111870112057_ - _tl111869112059_ - _e111874112062_ - _hd111873112065_ - _tl111872112067_ - _e111889111986_ - _hd111888111989_ - _tl111887111991_ - ___splice112894112895_ - _target111890111994_ - _tl111892111996_) - (___kont112896112897_ - _hd111876112073_ - _hd111873112065_)))) - (___kont112896112897_ - _hd111876112073_ - _hd111873112065_)))) - (___kont112896112897_ - _hd111876112073_ - _hd111873112065_))))))) + _tl111896112000_)) + (___match112947112948_ + _e111875112058_ + _hd111874112061_ + _tl111873112063_ + _e111878112066_ + _hd111877112069_ + _tl111876112071_ + _e111893111990_ + _hd111892111993_ + _tl111891111995_ + ___splice112898112899_ + _target111894111998_ + _tl111896112000_) + (___kont112900112901_ + _hd111880112077_ + _hd111877112069_)))) + (___kont112900112901_ + _hd111880112077_ + _hd111877112069_)))) + (___kont112900112901_ + _hd111880112077_ + _hd111877112069_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx112888112889_)) - (let ((_e111871112054_ + (gx#stx-pair? ___stx112892112893_)) + (let ((_e111875112058_ (let () (declare (not safe)) - (gx#stx-e ___stx112888112889_)))) - (let ((_tl111869112059_ + (gx#stx-e ___stx112892112893_)))) + (let ((_tl111873112063_ (let () (declare (not safe)) - (##cdr _e111871112054_))) - (_hd111870112057_ + (##cdr _e111875112058_))) + (_hd111874112061_ (let () (declare (not safe)) - (##car _e111871112054_)))) + (##car _e111875112058_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111869112059_)) - (let ((_e111874112062_ + (gx#stx-pair? _tl111873112063_)) + (let ((_e111878112066_ (let () (declare (not safe)) - (gx#stx-e _tl111869112059_)))) - (let ((_tl111872112067_ + (gx#stx-e _tl111873112063_)))) + (let ((_tl111876112071_ (let () (declare (not safe)) - (##cdr _e111874112062_))) - (_hd111873112065_ + (##cdr _e111878112066_))) + (_hd111877112069_ (let () (declare (not safe)) - (##car _e111874112062_)))) + (##car _e111878112066_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111872112067_)) - (let ((_e111877112070_ + (gx#stx-pair? _tl111876112071_)) + (let ((_e111881112074_ (let () (declare (not safe)) - (gx#stx-e _tl111872112067_)))) - (let ((_tl111875112075_ + (gx#stx-e _tl111876112071_)))) + (let ((_tl111879112079_ (let () (declare (not safe)) - (##cdr _e111877112070_))) - (_hd111876112073_ + (##cdr _e111881112074_))) + (_hd111880112077_ (let () (declare (not safe)) - (##car _e111877112070_)))) + (##car _e111881112074_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl111875112075_)) - (___match112917112918_ - _e111871112054_ - _hd111870112057_ - _tl111869112059_ - _e111874112062_ - _hd111873112065_ - _tl111872112067_ - _e111877112070_ - _hd111876112073_ - _tl111875112075_) + (gx#stx-null? _tl111879112079_)) + (___match112921112922_ + _e111875112058_ + _hd111874112061_ + _tl111873112063_ + _e111878112066_ + _hd111877112069_ + _tl111876112071_ + _e111881112074_ + _hd111880112077_ + _tl111879112079_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd111873112065_)) - (let ((_e111889111986_ + _hd111877112069_)) + (let ((_e111893111990_ (let () (declare (not safe)) (gx#stx-e - _hd111873112065_)))) - (let ((_tl111887111991_ + _hd111877112069_)))) + (let ((_tl111891111995_ (let () (declare (not safe)) - (##cdr _e111889111986_))) - (_hd111888111989_ + (##cdr _e111893111990_))) + (_hd111892111993_ (let () (declare (not safe)) - (##car _e111889111986_)))) + (##car _e111893111990_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl111887111991_)) - (let ((___splice112894112895_ + _tl111891111995_)) + (let ((___splice112898112899_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl111887111991_ '0)))) - (let ((_tl111892111996_ + (gx#syntax-split-splice _tl111891111995_ '0)))) + (let ((_tl111896112000_ (let () (declare (not safe)) - (##vector-ref ___splice112894112895_ '1))) - (_target111890111994_ + (##vector-ref ___splice112898112899_ '1))) + (_target111894111998_ (let () (declare (not safe)) - (##vector-ref ___splice112894112895_ '0)))) + (##vector-ref ___splice112898112899_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl111892111996_)) - (___match112943112944_ - _e111871112054_ - _hd111870112057_ - _tl111869112059_ - _e111874112062_ - _hd111873112065_ - _tl111872112067_ - _e111889111986_ - _hd111888111989_ - _tl111887111991_ - ___splice112894112895_ - _target111890111994_ - _tl111892111996_) - (let () (declare (not safe)) (_g111865111917_))))) - (let () (declare (not safe)) (_g111865111917_))))) + (gx#stx-null? _tl111896112000_)) + (___match112947112948_ + _e111875112058_ + _hd111874112061_ + _tl111873112063_ + _e111878112066_ + _hd111877112069_ + _tl111876112071_ + _e111893111990_ + _hd111892111993_ + _tl111891111995_ + ___splice112898112899_ + _target111894111998_ + _tl111896112000_) + (let () (declare (not safe)) (_g111869111921_))))) + (let () (declare (not safe)) (_g111869111921_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g111865111917_)))))) + (_g111869111921_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd111873112065_)) - (let ((_e111889111986_ + (gx#stx-pair? _hd111877112069_)) + (let ((_e111893111990_ (let () (declare (not safe)) - (gx#stx-e _hd111873112065_)))) - (let ((_tl111887111991_ + (gx#stx-e _hd111877112069_)))) + (let ((_tl111891111995_ (let () (declare (not safe)) - (##cdr _e111889111986_))) - (_hd111888111989_ + (##cdr _e111893111990_))) + (_hd111892111993_ (let () (declare (not safe)) - (##car _e111889111986_)))) + (##car _e111893111990_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl111887111991_)) - (let ((___splice112894112895_ + _tl111891111995_)) + (let ((___splice112898112899_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl111887111991_ + _tl111891111995_ '0)))) - (let ((_tl111892111996_ + (let ((_tl111896112000_ (let () (declare (not safe)) (##vector-ref - ___splice112894112895_ + ___splice112898112899_ '1))) - (_target111890111994_ + (_target111894111998_ (let () (declare (not safe)) (##vector-ref - ___splice112894112895_ + ___splice112898112899_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111892111996_)) - (___match112943112944_ - _e111871112054_ - _hd111870112057_ - _tl111869112059_ - _e111874112062_ - _hd111873112065_ - _tl111872112067_ - _e111889111986_ - _hd111888111989_ - _tl111887111991_ - ___splice112894112895_ - _target111890111994_ - _tl111892111996_) + _tl111896112000_)) + (___match112947112948_ + _e111875112058_ + _hd111874112061_ + _tl111873112063_ + _e111878112066_ + _hd111877112069_ + _tl111876112071_ + _e111893111990_ + _hd111892111993_ + _tl111891111995_ + ___splice112898112899_ + _target111894111998_ + _tl111896112000_) (let () (declare (not safe)) - (_g111865111917_))))) + (_g111869111921_))))) (let () (declare (not safe)) - (_g111865111917_))))) + (_g111869111921_))))) (let () (declare (not safe)) - (_g111865111917_)))))) - (let () (declare (not safe)) (_g111865111917_))))) - (let () (declare (not safe)) (_g111865111917_)))))))) + (_g111869111921_)))))) + (let () (declare (not safe)) (_g111869111921_))))) + (let () (declare (not safe)) (_g111869111921_)))))))) (define gxc#generate-runtime-declare% - (lambda (_self111819_ _stx111820_) - (let* ((_g111822111832_ - (lambda (_g111823111829_) + (lambda (_self111823_ _stx111824_) + (let* ((_g111826111836_ + (lambda (_g111827111833_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g111823111829_)))) - (_g111821111857_ - (lambda (_g111823111835_) + _g111827111833_)))) + (_g111825111861_ + (lambda (_g111827111839_) (if (let () (declare (not safe)) - (gx#stx-pair? _g111823111835_)) - (let ((_e111827111837_ + (gx#stx-pair? _g111827111839_)) + (let ((_e111831111841_ (let () (declare (not safe)) - (gx#stx-e _g111823111835_)))) - (let ((_hd111826111840_ + (gx#stx-e _g111827111839_)))) + (let ((_hd111830111844_ (let () (declare (not safe)) - (##car _e111827111837_))) - (_tl111825111842_ + (##car _e111831111841_))) + (_tl111829111846_ (let () (declare (not safe)) - (##cdr _e111827111837_)))) - ((lambda (_L111845_) - (let ((_decls111855_ - (map gx#syntax->datum _L111845_))) + (##cdr _e111831111841_)))) + ((lambda (_L111849_) + (let ((_decls111859_ + (map gx#syntax->datum _L111849_))) (gxc#current-compile-decls - (let ((__tmp114300 + (let ((__tmp114304 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp114300 _decls111855_))) + (foldr1 cons __tmp114304 _decls111859_))) (let () (declare (not safe)) - (cons 'declare _decls111855_)))) - _tl111825111842_))) + (cons 'declare _decls111859_)))) + _tl111829111846_))) (let () (declare (not safe)) - (_g111822111832_ _g111823111835_)))))) + (_g111826111836_ _g111827111839_)))))) (declare (not safe)) - (_g111821111857_ _stx111820_)))) + (_g111825111861_ _stx111824_)))) (define gxc#generate-runtime-define-values% - (lambda (_self111565_ _stx111566_) - (let* ((_g111568111585_ - (lambda (_g111569111582_) + (lambda (_self111569_ _stx111570_) + (let* ((_g111572111589_ + (lambda (_g111573111586_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g111569111582_)))) - (_g111567111816_ - (lambda (_g111569111588_) + _g111573111586_)))) + (_g111571111820_ + (lambda (_g111573111592_) (if (let () (declare (not safe)) - (gx#stx-pair? _g111569111588_)) - (let ((_e111574111590_ + (gx#stx-pair? _g111573111592_)) + (let ((_e111578111594_ (let () (declare (not safe)) - (gx#stx-e _g111569111588_)))) - (let ((_hd111573111593_ + (gx#stx-e _g111573111592_)))) + (let ((_hd111577111597_ (let () (declare (not safe)) - (##car _e111574111590_))) - (_tl111572111595_ + (##car _e111578111594_))) + (_tl111576111599_ (let () (declare (not safe)) - (##cdr _e111574111590_)))) + (##cdr _e111578111594_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111572111595_)) - (let ((_e111577111598_ + (gx#stx-pair? _tl111576111599_)) + (let ((_e111581111602_ (let () (declare (not safe)) - (gx#stx-e _tl111572111595_)))) - (let ((_hd111576111601_ + (gx#stx-e _tl111576111599_)))) + (let ((_hd111580111605_ (let () (declare (not safe)) - (##car _e111577111598_))) - (_tl111575111603_ + (##car _e111581111602_))) + (_tl111579111607_ (let () (declare (not safe)) - (##cdr _e111577111598_)))) + (##cdr _e111581111602_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111575111603_)) - (let ((_e111580111606_ + (gx#stx-pair? _tl111579111607_)) + (let ((_e111584111610_ (let () (declare (not safe)) - (gx#stx-e _tl111575111603_)))) - (let ((_hd111579111609_ + (gx#stx-e _tl111579111607_)))) + (let ((_hd111583111613_ (let () (declare (not safe)) - (##car _e111580111606_))) - (_tl111578111611_ + (##car _e111584111610_))) + (_tl111582111615_ (let () (declare (not safe)) - (##cdr _e111580111606_)))) + (##cdr _e111584111610_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111578111611_)) - ((lambda (_L111614_ _L111615_) - (let* ((___stx112996112997_ - _L111615_) - (_g111632111646_ + _tl111582111615_)) + ((lambda (_L111618_ _L111619_) + (let* ((___stx113000113001_ + _L111619_) + (_g111636111650_ (lambda () (let () (declare @@ -3227,9513 +3227,9513 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx112996112997_))))) - (let ((___kont112998112999_ + ___stx113000113001_))))) + (let ((___kont113002113003_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self111565_ - _L111614_)))) - (___kont113000113001_ - (lambda (_L111778_) - (let ((_eid111787_ + _self111569_ + _L111618_)))) + (___kont113004113005_ + (lambda (_L111782_) + (let ((_eid111791_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L111778_)))) - (let ((_lambda-expr111788111790_ + (gxc#generate-runtime-binding-id _L111782_)))) + (let ((_lambda-expr111792111794_ (let () (declare (not safe)) - (gxc#apply-find-lambda-expression _L111614_)))) - (if _lambda-expr111788111790_ - (let* ((_lambda-expr111793_ - _lambda-expr111788111790_) - (__tmp114301 + (gxc#apply-find-lambda-expression _L111618_)))) + (if _lambda-expr111792111794_ + (let* ((_lambda-expr111797_ + _lambda-expr111792111794_) + (__tmp114305 (gxc#current-compile-runtime-names))) (declare (not safe)) (hash-put! - __tmp114301 - _lambda-expr111793_ - _eid111787_)) + __tmp114305 + _lambda-expr111797_ + _eid111791_)) '#f)) - (let ((__tmp114302 - (let ((__tmp114303 - (let ((__tmp114304 + (let ((__tmp114306 + (let ((__tmp114307 + (let ((__tmp114308 (let () (declare (not safe)) (gxc#compile-e__1 - _self111565_ - _L111614_)))) + _self111569_ + _L111618_)))) (declare (not safe)) - (cons __tmp114304 '())))) + (cons __tmp114308 '())))) (declare (not safe)) - (cons _eid111787_ __tmp114303)))) + (cons _eid111791_ __tmp114307)))) (declare (not safe)) - (cons 'define __tmp114302))))) - (___kont113002113003_ + (cons 'define __tmp114306))))) + (___kont113006113007_ (lambda () - (let* ((_tmp111653_ + (let* ((_tmp111657_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_body111762_ - (let _lp111655_ ((_rest111657_ _L111615_) - (_k111658_ '0) - (_r111659_ '())) - (let* ((___stx112966112967_ _rest111657_) - (_g111664111681_ + (_body111766_ + (let _lp111659_ ((_rest111661_ _L111619_) + (_k111662_ '0) + (_r111663_ '())) + (let* ((___stx112970112971_ _rest111661_) + (_g111668111685_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx112966112967_))))) - (let ((___kont112968112969_ - (lambda (_L111749_) - (let ((__tmp114305 + ___stx112970112971_))))) + (let ((___kont112972112973_ + (lambda (_L111753_) + (let ((__tmp114309 (let () (declare (not safe)) - (fx+ _k111658_ '1)))) + (fx+ _k111662_ '1)))) (declare (not safe)) - (_lp111655_ - _L111749_ - __tmp114305 - _r111659_)))) - (___kont112970112971_ - (lambda (_L111722_ _L111723_) - (let ((__tmp114312 + (_lp111659_ + _L111753_ + __tmp114309 + _r111663_)))) + (___kont112974112975_ + (lambda (_L111726_ _L111727_) + (let ((__tmp114316 (let () (declare (not safe)) - (fx+ _k111658_ '1))) - (__tmp114306 - (let ((__tmp114307 - (let ((__tmp114308 - (let ((__tmp114311 + (fx+ _k111662_ '1))) + (__tmp114310 + (let ((__tmp114311 + (let ((__tmp114312 + (let ((__tmp114315 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L111723_))) - (__tmp114309 - (let ((__tmp114310 + (gxc#generate-runtime-binding-id _L111727_))) + (__tmp114313 + (let ((__tmp114314 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _tmp111653_ - _k111658_ - _L111722_)))) + _tmp111657_ + _k111662_ + _L111726_)))) (declare (not safe)) - (cons __tmp114310 '())))) + (cons __tmp114314 '())))) (declare (not safe)) - (cons __tmp114311 __tmp114309)))) + (cons __tmp114315 __tmp114313)))) (declare (not safe)) - (cons 'define __tmp114308)))) + (cons 'define __tmp114312)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114307 - _r111659_)))) + (cons __tmp114311 + _r111663_)))) (declare (not safe)) - (_lp111655_ - _L111722_ - __tmp114312 - __tmp114306)))) - (___kont112972112973_ - (lambda (_L111693_) - (let ((__tmp114313 - (let ((__tmp114314 - (let ((__tmp114315 - (let ((__tmp114318 + (_lp111659_ + _L111726_ + __tmp114316 + __tmp114310)))) + (___kont112976112977_ + (lambda (_L111697_) + (let ((__tmp114317 + (let ((__tmp114318 + (let ((__tmp114319 + (let ((__tmp114322 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L111693_))) - (__tmp114316 - (let ((__tmp114317 + (gxc#generate-runtime-binding-id _L111697_))) + (__tmp114320 + (let ((__tmp114321 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _tmp111653_ - _k111658_)))) + _tmp111657_ + _k111662_)))) (declare (not safe)) - (cons __tmp114317 '())))) + (cons __tmp114321 '())))) (declare (not safe)) - (cons __tmp114318 __tmp114316)))) + (cons __tmp114322 __tmp114320)))) (declare (not safe)) - (cons 'define __tmp114315)))) + (cons 'define __tmp114319)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114314 '())))) + (cons __tmp114318 '())))) (declare (not safe)) (foldl1 cons - __tmp114313 - _r111659_)))) - (___kont112974112975_ - (lambda () (reverse _r111659_)))) - (let ((_g111662111709_ + __tmp114317 + _r111663_)))) + (___kont112978112979_ + (lambda () (reverse _r111663_)))) + (let ((_g111666111713_ (lambda () - (let ((_L111693_ - ___stx112966112967_)) + (let ((_L111697_ + ___stx112970112971_)) (if (let () (declare (not safe)) - (gx#identifier? _L111693_)) - (___kont112972112973_ - _L111693_) - (___kont112974112975_)))))) + (gx#identifier? _L111697_)) + (___kont112976112977_ + _L111697_) + (___kont112978112979_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx112966112967_)) - (let ((_e111669111738_ + (gx#stx-pair? ___stx112970112971_)) + (let ((_e111673111742_ (let () (declare (not safe)) (gx#stx-e - ___stx112966112967_)))) - (let ((_tl111667111743_ + ___stx112970112971_)))) + (let ((_tl111671111747_ (let () (declare (not safe)) - (##cdr _e111669111738_))) - (_hd111668111741_ + (##cdr _e111673111742_))) + (_hd111672111745_ (let () (declare (not safe)) - (##car _e111669111738_)))) + (##car _e111673111742_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd111668111741_)) - (let ((_e111670111746_ + _hd111672111745_)) + (let ((_e111674111750_ (let () (declare (not safe)) (gx#stx-e - _hd111668111741_)))) + _hd111672111745_)))) (if (let () (declare (not safe)) - (equal? _e111670111746_ + (equal? _e111674111750_ '#f)) - (___kont112968112969_ - _tl111667111743_) - (___kont112970112971_ - _tl111667111743_ - _hd111668111741_))) - (___kont112970112971_ - _tl111667111743_ - _hd111668111741_)))) + (___kont112972112973_ + _tl111671111747_) + (___kont112974112975_ + _tl111671111747_ + _hd111672111745_))) + (___kont112974112975_ + _tl111671111747_ + _hd111672111745_)))) (let () (declare (not safe)) - (_g111662111709_))))))))) - (let ((__tmp114319 - (let ((__tmp114322 - (let ((__tmp114323 - (let ((__tmp114324 - (let ((__tmp114325 + (_g111666111713_))))))))) + (let ((__tmp114323 + (let ((__tmp114326 + (let ((__tmp114327 + (let ((__tmp114328 + (let ((__tmp114329 (let () (declare (not safe)) (gxc#compile-e__1 - _self111565_ - _L111614_)))) + _self111569_ + _L111618_)))) (declare (not safe)) - (cons __tmp114325 '())))) + (cons __tmp114329 '())))) (declare (not safe)) - (cons _tmp111653_ __tmp114324)))) + (cons _tmp111657_ __tmp114328)))) (declare (not safe)) - (cons 'define __tmp114323))) - (__tmp114320 - (let ((__tmp114321 + (cons 'define __tmp114327))) + (__tmp114324 + (let ((__tmp114325 (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp111653_ - _L111615_ - _L111614_)))) + _tmp111657_ + _L111619_ + _L111618_)))) (declare (not safe)) - (cons __tmp114321 _body111762_)))) + (cons __tmp114325 _body111766_)))) (declare (not safe)) - (cons __tmp114322 __tmp114320)))) + (cons __tmp114326 __tmp114324)))) (declare (not safe)) - (cons 'begin __tmp114319)))))) + (cons 'begin __tmp114323)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx112996112997_)) - (let ((_e111636111800_ + ___stx113000113001_)) + (let ((_e111640111804_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx112996112997_)))) - (let ((_tl111634111805_ + (gx#stx-e ___stx113000113001_)))) + (let ((_tl111638111809_ (let () (declare (not safe)) - (##cdr _e111636111800_))) - (_hd111635111803_ + (##cdr _e111640111804_))) + (_hd111639111807_ (let () (declare (not safe)) - (##car _e111636111800_)))) + (##car _e111640111804_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd111635111803_)) - (let ((_e111637111808_ + (gx#stx-datum? _hd111639111807_)) + (let ((_e111641111812_ (let () (declare (not safe)) - (gx#stx-e _hd111635111803_)))) + (gx#stx-e _hd111639111807_)))) (if (let () (declare (not safe)) - (equal? _e111637111808_ '#f)) + (equal? _e111641111812_ '#f)) (if (let () (declare (not safe)) - (gx#stx-null? _tl111634111805_)) - (___kont112998112999_) - (___kont113002113003_)) + (gx#stx-null? _tl111638111809_)) + (___kont113002113003_) + (___kont113006113007_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl111634111805_)) - (___kont113000113001_ _hd111635111803_) - (___kont113002113003_)))) + (gx#stx-null? _tl111638111809_)) + (___kont113004113005_ _hd111639111807_) + (___kont113006113007_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl111634111805_)) - (___kont113000113001_ _hd111635111803_) - (___kont113002113003_))))) - (___kont113002113003_))))) + (gx#stx-null? _tl111638111809_)) + (___kont113004113005_ _hd111639111807_) + (___kont113006113007_))))) + (___kont113006113007_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd111579111609_ - _hd111576111601_) + _hd111583111613_ + _hd111580111605_) (let () (declare (not safe)) - (_g111568111585_ - _g111569111588_))))) + (_g111572111589_ + _g111573111592_))))) (let () (declare (not safe)) - (_g111568111585_ _g111569111588_))))) + (_g111572111589_ _g111573111592_))))) (let () (declare (not safe)) - (_g111568111585_ _g111569111588_))))) + (_g111572111589_ _g111573111592_))))) (let () (declare (not safe)) - (_g111568111585_ _g111569111588_)))))) + (_g111572111589_ _g111573111592_)))))) (declare (not safe)) - (_g111567111816_ _stx111566_)))) + (_g111571111820_ _stx111570_)))) (define gxc#generate-runtime-check-values - (lambda (_vals111541_ _hd111542_ _expr111543_) - (let ((_$e111545_ + (lambda (_vals111545_ _hd111546_ _expr111547_) + (let ((_$e111549_ (let () (declare (not safe)) - (gxc#apply-count-values _expr111543_)))) - (if _$e111545_ - ((lambda (_count111548_) - (let ((_len111550_ + (gxc#apply-count-values _expr111547_)))) + (if _$e111549_ + ((lambda (_count111552_) + (let ((_len111554_ (let () (declare (not safe)) - (gx#stx-length _hd111542_))) - (_cmp111551_ + (gx#stx-length _hd111546_))) + (_cmp111555_ (if (let () (declare (not safe)) - (gx#stx-list? _hd111542_)) + (gx#stx-list? _hd111546_)) fx= fx>=))) - (if (or (fx= _len111550_ '0) - (_cmp111551_ _count111548_ _len111550_)) + (if (or (fx= _len111554_ '0) + (_cmp111555_ _count111552_ _len111554_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _expr111543_ - _hd111542_))))) - _$e111545_) - (let* ((_len111556_ - (let () (declare (not safe)) (gx#stx-length _hd111542_))) - (_cmp111558_ + _expr111547_ + _hd111546_))))) + _$e111549_) + (let* ((_len111560_ + (let () (declare (not safe)) (gx#stx-length _hd111546_))) + (_cmp111562_ (if (let () (declare (not safe)) - (gx#stx-list? _hd111542_)) + (gx#stx-list? _hd111546_)) '##fx= '##fx>=)) - (_errmsg111560_ + (_errmsg111564_ (string-append (if (let () (declare (not safe)) - (gx#stx-list? _hd111542_)) + (gx#stx-list? _hd111546_)) '"Context expects " '"Context expects at least ") - (number->string _len111556_) + (number->string _len111560_) '" values")) - (_count111562_ + (_count111566_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp114349 + (if (and (let ((__tmp114353 (let () (declare (not safe)) - (gx#stx-list? _hd111542_)))) + (gx#stx-list? _hd111546_)))) (declare (not safe)) - (not __tmp114349)) - (fx= _len111556_ '0)) + (not __tmp114353)) + (fx= _len111560_ '0)) '#!void - (let ((__tmp114326 - (let ((__tmp114345 - (let ((__tmp114346 - (let ((__tmp114347 - (let ((__tmp114348 + (let ((__tmp114330 + (let ((__tmp114349 + (let ((__tmp114350 + (let ((__tmp114351 + (let ((__tmp114352 (let () (declare (not safe)) (gxc#generate-runtime-values-count - _vals111541_)))) + _vals111545_)))) (declare (not safe)) - (cons __tmp114348 '())))) + (cons __tmp114352 '())))) (declare (not safe)) - (cons _count111562_ __tmp114347)))) + (cons _count111566_ __tmp114351)))) (declare (not safe)) - (cons __tmp114346 '()))) - (__tmp114327 - (let ((__tmp114328 - (let ((__tmp114329 - (let ((__tmp114334 - (let ((__tmp114335 - (let ((__tmp114336 + (cons __tmp114350 '()))) + (__tmp114331 + (let ((__tmp114332 + (let ((__tmp114333 + (let ((__tmp114338 + (let ((__tmp114339 + (let ((__tmp114340 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114343 - (let ((__tmp114344 + (let ((__tmp114347 + (let ((__tmp114348 (let () (declare (not safe)) - (cons _len111556_ '())))) + (cons _len111560_ '())))) (declare (not safe)) - (cons _count111562_ __tmp114344)))) + (cons _count111566_ __tmp114348)))) (declare (not safe)) - (cons _cmp111558_ __tmp114343)) - (let ((__tmp114337 - (let ((__tmp114338 - (let ((__tmp114339 - (let ((__tmp114340 - (let ((__tmp114341 + (cons _cmp111562_ __tmp114347)) + (let ((__tmp114341 + (let ((__tmp114342 + (let ((__tmp114343 + (let ((__tmp114344 + (let ((__tmp114345 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114342 + (let ((__tmp114346 (let () (declare (not safe)) - (cons _len111556_ '())))) + (cons _len111560_ '())))) (declare (not safe)) - (cons _count111562_ __tmp114342)))) + (cons _count111566_ __tmp114346)))) (declare (not safe)) - (cons _cmp111558_ __tmp114341)))) + (cons _cmp111562_ __tmp114345)))) (declare (not safe)) - (cons __tmp114340 '())))) + (cons __tmp114344 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114339)))) + __tmp114343)))) (declare (not safe)) - (cons '() __tmp114338)))) + (cons '() __tmp114342)))) (declare (not safe)) - (cons 'let __tmp114337))))) + (cons 'let __tmp114341))))) (declare (not safe)) - (cons __tmp114336 '())))) + (cons __tmp114340 '())))) (declare (not safe)) - (cons 'not __tmp114335))) - (__tmp114330 - (let ((__tmp114331 - (let ((__tmp114332 - (let ((__tmp114333 + (cons 'not __tmp114339))) + (__tmp114334 + (let ((__tmp114335 + (let ((__tmp114336 + (let ((__tmp114337 (let () (declare (not safe)) - (cons _count111562_ '())))) + (cons _count111566_ '())))) (declare (not safe)) - (cons _errmsg111560_ __tmp114333)))) + (cons _errmsg111564_ __tmp114337)))) (declare (not safe)) - (cons 'error __tmp114332)))) + (cons 'error __tmp114336)))) (declare (not safe)) - (cons __tmp114331 '())))) + (cons __tmp114335 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114334 - __tmp114330)))) + (cons __tmp114338 + __tmp114334)))) (declare (not safe)) - (cons 'if __tmp114329)))) + (cons 'if __tmp114333)))) (declare (not safe)) - (cons __tmp114328 '())))) + (cons __tmp114332 '())))) (declare (not safe)) - (cons __tmp114345 __tmp114327)))) + (cons __tmp114349 __tmp114331)))) (declare (not safe)) - (cons 'let __tmp114326)))))))) + (cons 'let __tmp114330)))))))) (define gxc#generate-runtime-values-count - (lambda (_var111536_) - (letrec ((_generate-inline111538_ + (lambda (_var111540_) + (letrec ((_generate-inline111542_ (lambda () - (let ((__tmp114350 - (let ((__tmp114355 - (let ((__tmp114356 + (let ((__tmp114354 + (let ((__tmp114359 + (let ((__tmp114360 (let () (declare (not safe)) - (cons _var111536_ '())))) + (cons _var111540_ '())))) (declare (not safe)) - (cons '##values? __tmp114356))) - (__tmp114351 - (let ((__tmp114353 - (let ((__tmp114354 + (cons '##values? __tmp114360))) + (__tmp114355 + (let ((__tmp114357 + (let ((__tmp114358 (let () (declare (not safe)) - (cons _var111536_ '())))) + (cons _var111540_ '())))) (declare (not safe)) (cons '##vector-length - __tmp114354))) - (__tmp114352 + __tmp114358))) + (__tmp114356 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp114353 __tmp114352)))) + (cons __tmp114357 __tmp114356)))) (declare (not safe)) - (cons __tmp114355 __tmp114351)))) + (cons __tmp114359 __tmp114355)))) (declare (not safe)) - (cons 'if __tmp114350))))) + (cons 'if __tmp114354))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline111538_)) - (let ((__tmp114357 - (let ((__tmp114358 - (let ((__tmp114359 - (let ((__tmp114360 + (let () (declare (not safe)) (_generate-inline111542_)) + (let ((__tmp114361 + (let ((__tmp114362 + (let ((__tmp114363 + (let ((__tmp114364 (let () (declare (not safe)) - (_generate-inline111538_)))) + (_generate-inline111542_)))) (declare (not safe)) - (cons __tmp114360 '())))) + (cons __tmp114364 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114359)))) + (cons '(declare (not safe)) __tmp114363)))) (declare (not safe)) - (cons '() __tmp114358)))) + (cons '() __tmp114362)))) (declare (not safe)) - (cons 'let __tmp114357)))))) + (cons 'let __tmp114361)))))) (define gxc#generate-runtime-values-ref - (lambda (_var111529_ _i111530_ _rest111531_) - (letrec ((_generate-inline111533_ + (lambda (_var111533_ _i111534_ _rest111535_) + (letrec ((_generate-inline111537_ (lambda () - (if (and (fx= _i111530_ '0) - (let ((__tmp114371 + (if (and (fx= _i111534_ '0) + (let ((__tmp114375 (let () (declare (not safe)) - (gx#stx-pair? _rest111531_)))) + (gx#stx-pair? _rest111535_)))) (declare (not safe)) - (not __tmp114371))) - (let ((__tmp114363 - (let ((__tmp114369 - (let ((__tmp114370 + (not __tmp114375))) + (let ((__tmp114367 + (let ((__tmp114373 + (let ((__tmp114374 (let () (declare (not safe)) - (cons _var111529_ '())))) + (cons _var111533_ '())))) (declare (not safe)) - (cons '##values? __tmp114370))) - (__tmp114364 - (let ((__tmp114366 - (let ((__tmp114367 - (let ((__tmp114368 + (cons '##values? __tmp114374))) + (__tmp114368 + (let ((__tmp114370 + (let ((__tmp114371 + (let ((__tmp114372 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _var111529_ - __tmp114368)))) + (cons _var111533_ + __tmp114372)))) (declare (not safe)) (cons '##vector-ref - __tmp114367))) - (__tmp114365 + __tmp114371))) + (__tmp114369 (let () (declare (not safe)) - (cons _var111529_ '())))) + (cons _var111533_ '())))) (declare (not safe)) - (cons __tmp114366 __tmp114365)))) + (cons __tmp114370 __tmp114369)))) (declare (not safe)) - (cons __tmp114369 __tmp114364)))) + (cons __tmp114373 __tmp114368)))) (declare (not safe)) - (cons 'if __tmp114363)) - (let ((__tmp114361 - (let ((__tmp114362 + (cons 'if __tmp114367)) + (let ((__tmp114365 + (let ((__tmp114366 (let () (declare (not safe)) - (cons _i111530_ '())))) + (cons _i111534_ '())))) (declare (not safe)) - (cons _var111529_ __tmp114362)))) + (cons _var111533_ __tmp114366)))) (declare (not safe)) - (cons '##vector-ref __tmp114361)))))) + (cons '##vector-ref __tmp114365)))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline111533_)) - (let ((__tmp114372 - (let ((__tmp114373 - (let ((__tmp114374 - (let ((__tmp114375 + (let () (declare (not safe)) (_generate-inline111537_)) + (let ((__tmp114376 + (let ((__tmp114377 + (let ((__tmp114378 + (let ((__tmp114379 (let () (declare (not safe)) - (_generate-inline111533_)))) + (_generate-inline111537_)))) (declare (not safe)) - (cons __tmp114375 '())))) + (cons __tmp114379 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114374)))) + (cons '(declare (not safe)) __tmp114378)))) (declare (not safe)) - (cons '() __tmp114373)))) + (cons '() __tmp114377)))) (declare (not safe)) - (cons 'let __tmp114372)))))) + (cons 'let __tmp114376)))))) (define gxc#generate-runtime-values->list - (lambda (_var111526_ _i111527_) - (if (fx= _i111527_ '0) + (lambda (_var111530_ _i111531_) + (if (fx= _i111531_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114423 - (let ((__tmp114430 - (let ((__tmp114431 + (let ((__tmp114427 + (let ((__tmp114434 + (let ((__tmp114435 (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons '##values? __tmp114431))) - (__tmp114424 - (let ((__tmp114428 - (let ((__tmp114429 + (cons '##values? __tmp114435))) + (__tmp114428 + (let ((__tmp114432 + (let ((__tmp114433 (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114429))) - (__tmp114425 - (let ((__tmp114426 - (let ((__tmp114427 + (cons '##vector->list __tmp114433))) + (__tmp114429 + (let ((__tmp114430 + (let ((__tmp114431 (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons 'list __tmp114427)))) + (cons 'list __tmp114431)))) (declare (not safe)) - (cons __tmp114426 '())))) + (cons __tmp114430 '())))) (declare (not safe)) - (cons __tmp114428 __tmp114425)))) + (cons __tmp114432 __tmp114429)))) (declare (not safe)) - (cons __tmp114430 __tmp114424)))) + (cons __tmp114434 __tmp114428)))) (declare (not safe)) - (cons 'if __tmp114423)) - (let ((__tmp114410 - (let ((__tmp114411 - (let ((__tmp114412 - (let ((__tmp114413 - (let ((__tmp114414 - (let ((__tmp114421 - (let ((__tmp114422 + (cons 'if __tmp114427)) + (let ((__tmp114414 + (let ((__tmp114415 + (let ((__tmp114416 + (let ((__tmp114417 + (let ((__tmp114418 + (let ((__tmp114425 + (let ((__tmp114426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _var111526_ '())))) + (let () (declare (not safe)) (cons _var111530_ '())))) (declare (not safe)) - (cons '##values? __tmp114422))) - (__tmp114415 - (let ((__tmp114419 - (let ((__tmp114420 + (cons '##values? __tmp114426))) + (__tmp114419 + (let ((__tmp114423 + (let ((__tmp114424 (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114420))) - (__tmp114416 - (let ((__tmp114417 - (let ((__tmp114418 + (cons '##vector->list __tmp114424))) + (__tmp114420 + (let ((__tmp114421 + (let ((__tmp114422 (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons 'list __tmp114418)))) + (cons 'list __tmp114422)))) (declare (not safe)) - (cons __tmp114417 '())))) + (cons __tmp114421 '())))) (declare (not safe)) - (cons __tmp114419 __tmp114416)))) + (cons __tmp114423 __tmp114420)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114421 - __tmp114415)))) + (cons __tmp114425 + __tmp114419)))) (declare (not safe)) - (cons 'if __tmp114414)))) + (cons 'if __tmp114418)))) (declare (not safe)) - (cons __tmp114413 '())))) + (cons __tmp114417 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114412)))) + (cons '(declare (not safe)) __tmp114416)))) (declare (not safe)) - (cons '() __tmp114411)))) + (cons '() __tmp114415)))) (declare (not safe)) - (cons 'let __tmp114410))) - (if (fx= _i111527_ '1) + (cons 'let __tmp114414))) + (if (fx= _i111531_ '1) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114401 - (let ((__tmp114408 - (let ((__tmp114409 + (let ((__tmp114405 + (let ((__tmp114412 + (let ((__tmp114413 (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons '##values? __tmp114409))) - (__tmp114402 - (let ((__tmp114404 - (let ((__tmp114405 - (let ((__tmp114406 - (let ((__tmp114407 + (cons '##values? __tmp114413))) + (__tmp114406 + (let ((__tmp114408 + (let ((__tmp114409 + (let ((__tmp114410 + (let ((__tmp114411 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114407)))) + (cons '##vector->list __tmp114411)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114406 '())))) + (cons __tmp114410 '())))) (declare (not safe)) - (cons '##cdr __tmp114405))) - (__tmp114403 + (cons '##cdr __tmp114409))) + (__tmp114407 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp114404 __tmp114403)))) + (cons __tmp114408 __tmp114407)))) (declare (not safe)) - (cons __tmp114408 __tmp114402)))) + (cons __tmp114412 __tmp114406)))) (declare (not safe)) - (cons 'if __tmp114401)) - (let ((__tmp114388 - (let ((__tmp114389 - (let ((__tmp114390 - (let ((__tmp114391 - (let ((__tmp114392 - (let ((__tmp114399 - (let ((__tmp114400 + (cons 'if __tmp114405)) + (let ((__tmp114392 + (let ((__tmp114393 + (let ((__tmp114394 + (let ((__tmp114395 + (let ((__tmp114396 + (let ((__tmp114403 + (let ((__tmp114404 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons '##values? __tmp114400))) - (__tmp114393 - (let ((__tmp114395 - (let ((__tmp114396 - (let ((__tmp114397 - (let ((__tmp114398 + (cons '##values? __tmp114404))) + (__tmp114397 + (let ((__tmp114399 + (let ((__tmp114400 + (let ((__tmp114401 + (let ((__tmp114402 (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) (cons '##vector->list - __tmp114398)))) + __tmp114402)))) (declare (not safe)) - (cons __tmp114397 '())))) + (cons __tmp114401 '())))) (declare (not safe)) - (cons '##cdr __tmp114396))) - (__tmp114394 + (cons '##cdr __tmp114400))) + (__tmp114398 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp114395 __tmp114394)))) + (cons __tmp114399 __tmp114398)))) (declare (not safe)) - (cons __tmp114399 __tmp114393)))) + (cons __tmp114403 __tmp114397)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp114392)))) + (cons 'if __tmp114396)))) (declare (not safe)) - (cons __tmp114391 '())))) + (cons __tmp114395 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114390)))) + (cons '(declare (not safe)) __tmp114394)))) (declare (not safe)) - (cons '() __tmp114389)))) + (cons '() __tmp114393)))) (declare (not safe)) - (cons 'let __tmp114388))) + (cons 'let __tmp114392))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114384 - (let ((__tmp114386 - (let ((__tmp114387 + (let ((__tmp114388 + (let ((__tmp114390 + (let ((__tmp114391 (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114387))) - (__tmp114385 + (cons '##vector->list __tmp114391))) + (__tmp114389 (let () (declare (not safe)) - (cons _i111527_ '())))) + (cons _i111531_ '())))) (declare (not safe)) - (cons __tmp114386 __tmp114385)))) + (cons __tmp114390 __tmp114389)))) (declare (not safe)) - (cons '##list-tail __tmp114384)) - (let ((__tmp114376 - (let ((__tmp114377 - (let ((__tmp114378 - (let ((__tmp114379 - (let ((__tmp114380 - (let ((__tmp114382 - (let ((__tmp114383 + (cons '##list-tail __tmp114388)) + (let ((__tmp114380 + (let ((__tmp114381 + (let ((__tmp114382 + (let ((__tmp114383 + (let ((__tmp114384 + (let ((__tmp114386 + (let ((__tmp114387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var111526_ '())))) + (cons _var111530_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114383))) - (__tmp114381 - (let () (declare (not safe)) (cons _i111527_ '())))) + (cons '##vector->list __tmp114387))) + (__tmp114385 + (let () (declare (not safe)) (cons _i111531_ '())))) (declare (not safe)) - (cons __tmp114382 __tmp114381)))) + (cons __tmp114386 __tmp114385)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##list-tail - __tmp114380)))) + __tmp114384)))) (declare (not safe)) - (cons __tmp114379 '())))) + (cons __tmp114383 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114378)))) + (cons '(declare (not safe)) __tmp114382)))) (declare (not safe)) - (cons '() __tmp114377)))) + (cons '() __tmp114381)))) (declare (not safe)) - (cons 'let __tmp114376))))))) + (cons 'let __tmp114380))))))) (define gxc#generate-runtime-lambda% - (lambda (_self111458_ _stx111459_) - (let* ((_g111461111478_ - (lambda (_g111462111475_) + (lambda (_self111462_ _stx111463_) + (let* ((_g111465111482_ + (lambda (_g111466111479_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g111462111475_)))) - (_g111460111523_ - (lambda (_g111462111481_) + _g111466111479_)))) + (_g111464111527_ + (lambda (_g111466111485_) (if (let () (declare (not safe)) - (gx#stx-pair? _g111462111481_)) - (let ((_e111467111483_ + (gx#stx-pair? _g111466111485_)) + (let ((_e111471111487_ (let () (declare (not safe)) - (gx#stx-e _g111462111481_)))) - (let ((_hd111466111486_ + (gx#stx-e _g111466111485_)))) + (let ((_hd111470111490_ (let () (declare (not safe)) - (##car _e111467111483_))) - (_tl111465111488_ + (##car _e111471111487_))) + (_tl111469111492_ (let () (declare (not safe)) - (##cdr _e111467111483_)))) + (##cdr _e111471111487_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111465111488_)) - (let ((_e111470111491_ + (gx#stx-pair? _tl111469111492_)) + (let ((_e111474111495_ (let () (declare (not safe)) - (gx#stx-e _tl111465111488_)))) - (let ((_hd111469111494_ + (gx#stx-e _tl111469111492_)))) + (let ((_hd111473111498_ (let () (declare (not safe)) - (##car _e111470111491_))) - (_tl111468111496_ + (##car _e111474111495_))) + (_tl111472111500_ (let () (declare (not safe)) - (##cdr _e111470111491_)))) + (##cdr _e111474111495_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111468111496_)) - (let ((_e111473111499_ + (gx#stx-pair? _tl111472111500_)) + (let ((_e111477111503_ (let () (declare (not safe)) - (gx#stx-e _tl111468111496_)))) - (let ((_hd111472111502_ + (gx#stx-e _tl111472111500_)))) + (let ((_hd111476111506_ (let () (declare (not safe)) - (##car _e111473111499_))) - (_tl111471111504_ + (##car _e111477111503_))) + (_tl111475111508_ (let () (declare (not safe)) - (##cdr _e111473111499_)))) + (##cdr _e111477111503_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111471111504_)) - ((lambda (_L111507_ _L111508_) + _tl111475111508_)) + ((lambda (_L111511_ _L111512_) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _self111458_ - _L111508_ - _L111507_))) - _hd111472111502_ - _hd111469111494_) + _self111462_ + _L111512_ + _L111511_))) + _hd111476111506_ + _hd111473111498_) (let () (declare (not safe)) - (_g111461111478_ - _g111462111481_))))) + (_g111465111482_ + _g111466111485_))))) (let () (declare (not safe)) - (_g111461111478_ _g111462111481_))))) + (_g111465111482_ _g111466111485_))))) (let () (declare (not safe)) - (_g111461111478_ _g111462111481_))))) + (_g111465111482_ _g111466111485_))))) (let () (declare (not safe)) - (_g111461111478_ _g111462111481_)))))) + (_g111465111482_ _g111466111485_)))))) (declare (not safe)) - (_g111460111523_ _stx111459_)))) + (_g111464111527_ _stx111463_)))) (define gxc#generate-runtime-lambda-form - (lambda (_self111417_ _hd111418_ _body111419_) - (let* ((_hd111421_ + (lambda (_self111421_ _hd111422_ _body111423_) + (let* ((_hd111425_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _hd111418_))) - (_body111423_ + (gxc#generate-runtime-lambda-head _hd111422_))) + (_body111427_ (let () (declare (not safe)) - (gxc#compile-e__1 _self111417_ _body111419_))) - (_body111455_ - (let* ((_body111424111432_ _body111423_) - (_else111426111440_ + (gxc#compile-e__1 _self111421_ _body111423_))) + (_body111459_ + (let* ((_body111428111436_ _body111427_) + (_else111430111444_ (lambda () (let () (declare (not safe)) - (cons _body111423_ '())))) - (_K111428111445_ - (lambda (_exprs111443_) _exprs111443_))) + (cons _body111427_ '())))) + (_K111432111449_ + (lambda (_exprs111447_) _exprs111447_))) (if (let () (declare (not safe)) - (##pair? _body111424111432_)) - (let ((_hd111429111448_ + (##pair? _body111428111436_)) + (let ((_hd111433111452_ (let () (declare (not safe)) - (##car _body111424111432_))) - (_tl111430111450_ + (##car _body111428111436_))) + (_tl111434111454_ (let () (declare (not safe)) - (##cdr _body111424111432_)))) + (##cdr _body111428111436_)))) (if (let () (declare (not safe)) - (##eq? _hd111429111448_ 'begin)) - (let ((_exprs111453_ _tl111430111450_)) + (##eq? _hd111433111452_ 'begin)) + (let ((_exprs111457_ _tl111434111454_)) (declare (not safe)) - (_K111428111445_ _exprs111453_)) + (_K111432111449_ _exprs111457_)) (let () (declare (not safe)) - (_else111426111440_)))) - (let () (declare (not safe)) (_else111426111440_)))))) - (let ((__tmp114432 - (let () (declare (not safe)) (cons _hd111421_ _body111455_)))) + (_else111430111444_)))) + (let () (declare (not safe)) (_else111430111444_)))))) + (let ((__tmp114436 + (let () (declare (not safe)) (cons _hd111425_ _body111459_)))) (declare (not safe)) - (cons 'lambda __tmp114432))))) + (cons 'lambda __tmp114436))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd111415_) + (lambda (_hd111419_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd111415_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd111419_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_self109957_ _stx109958_) - (letrec ((_dispatch-case?109960_ - (lambda (_hd110645_ _body110646_) - (let* ((_form110648_ - (let ((__tmp114433 + (lambda (_self109961_ _stx109962_) + (letrec ((_dispatch-case?109964_ + (lambda (_hd110649_ _body110650_) + (let* ((_form110652_ + (let ((__tmp114437 (let () (declare (not safe)) - (cons _body110646_ '())))) + (cons _body110650_ '())))) (declare (not safe)) - (cons _hd110645_ __tmp114433))) - (___stx113028113029_ _form110648_) - (_g110653110810_ + (cons _hd110649_ __tmp114437))) + (___stx113032113033_ _form110652_) + (_g110657110814_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113028113029_))))) - (let ((___kont113030113031_ - (lambda (_L111335_ _L111336_ _L111337_) '#t)) - (___kont113036113037_ - (lambda (_L111123_ - _L111124_ - _L111125_ - _L111126_ - _L111127_ - _L111128_) + ___stx113032113033_))))) + (let ((___kont113034113035_ + (lambda (_L111339_ _L111340_ _L111341_) '#t)) + (___kont113040113041_ + (lambda (_L111127_ + _L111128_ + _L111129_ + _L111130_ + _L111131_ + _L111132_) '#t)) - (___kont113042113043_ - (lambda (_L110918_ _L110919_ _L110920_ _L110921_) + (___kont113046113047_ + (lambda (_L110922_ _L110923_ _L110924_ _L110925_) '#t)) - (___kont113044113045_ (lambda () '#f))) - (let* ((___match113169113170_ - (lambda (_e110772110822_ - _hd110771110825_ - _tl110770110827_ - _e110775110830_ - _hd110774110833_ - _tl110773110835_ - _e110778110838_ - _hd110777110841_ - _tl110776110843_ - _e110781110846_ - _hd110780110849_ - _tl110779110851_ - _e110784110854_ - _hd110783110857_ - _tl110782110859_ - _e110787110862_ - _hd110786110865_ - _tl110785110867_ - _e110790110870_ - _hd110789110873_ - _tl110788110875_ - _e110793110878_ - _hd110792110881_ - _tl110791110883_ - _e110796110886_ - _hd110795110889_ - _tl110794110891_ - _e110799110894_ - _hd110798110897_ - _tl110797110899_ - _e110802110902_ - _hd110801110905_ - _tl110800110907_ - _e110805110910_ - _hd110804110913_ - _tl110803110915_) - (let ((_L110918_ _hd110804110913_) - (_L110919_ _hd110795110889_) - (_L110920_ _hd110786110865_) - (_L110921_ _hd110771110825_)) + (___kont113048113049_ (lambda () '#f))) + (let* ((___match113173113174_ + (lambda (_e110776110826_ + _hd110775110829_ + _tl110774110831_ + _e110779110834_ + _hd110778110837_ + _tl110777110839_ + _e110782110842_ + _hd110781110845_ + _tl110780110847_ + _e110785110850_ + _hd110784110853_ + _tl110783110855_ + _e110788110858_ + _hd110787110861_ + _tl110786110863_ + _e110791110866_ + _hd110790110869_ + _tl110789110871_ + _e110794110874_ + _hd110793110877_ + _tl110792110879_ + _e110797110882_ + _hd110796110885_ + _tl110795110887_ + _e110800110890_ + _hd110799110893_ + _tl110798110895_ + _e110803110898_ + _hd110802110901_ + _tl110801110903_ + _e110806110906_ + _hd110805110909_ + _tl110804110911_ + _e110809110914_ + _hd110808110917_ + _tl110807110919_) + (let ((_L110922_ _hd110808110917_) + (_L110923_ _hd110799110893_) + (_L110924_ _hd110790110869_) + (_L110925_ _hd110775110829_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L110921_)) + (gx#identifier? _L110925_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L110920_ + _L110924_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L110921_ - _L110918_)) - (let ((__tmp114434 + _L110925_ + _L110922_)) + (let ((__tmp114438 (let () (declare (not safe)) (gx#free-identifier=? - _L110919_ - _L110921_)))) + _L110923_ + _L110925_)))) (declare (not safe)) - (not __tmp114434))) - (___kont113042113043_ - _L110918_ - _L110919_ - _L110920_ - _L110921_) - (___kont113044113045_))))) - (___match113141113142_ - (lambda (_e110772110822_ - _hd110771110825_ - _tl110770110827_ - _e110775110830_ - _hd110774110833_ - _tl110773110835_ - _e110778110838_ - _hd110777110841_ - _tl110776110843_ - _e110781110846_ - _hd110780110849_ - _tl110779110851_ - _e110784110854_ - _hd110783110857_ - _tl110782110859_ - _e110787110862_ - _hd110786110865_ - _tl110785110867_ - _e110790110870_ - _hd110789110873_ - _tl110788110875_ - _e110793110878_ - _hd110792110881_ - _tl110791110883_ - _e110796110886_ - _hd110795110889_ - _tl110794110891_) + (not __tmp114438))) + (___kont113046113047_ + _L110922_ + _L110923_ + _L110924_ + _L110925_) + (___kont113048113049_))))) + (___match113145113146_ + (lambda (_e110776110826_ + _hd110775110829_ + _tl110774110831_ + _e110779110834_ + _hd110778110837_ + _tl110777110839_ + _e110782110842_ + _hd110781110845_ + _tl110780110847_ + _e110785110850_ + _hd110784110853_ + _tl110783110855_ + _e110788110858_ + _hd110787110861_ + _tl110786110863_ + _e110791110866_ + _hd110790110869_ + _tl110789110871_ + _e110794110874_ + _hd110793110877_ + _tl110792110879_ + _e110797110882_ + _hd110796110885_ + _tl110795110887_ + _e110800110890_ + _hd110799110893_ + _tl110798110895_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110788110875_)) - (let ((_e110799110894_ + (gx#stx-pair? _tl110792110879_)) + (let ((_e110803110898_ (let () (declare (not safe)) - (gx#stx-e _tl110788110875_)))) - (let ((_tl110797110899_ + (gx#stx-e _tl110792110879_)))) + (let ((_tl110801110903_ (let () (declare (not safe)) - (##cdr _e110799110894_))) - (_hd110798110897_ + (##cdr _e110803110898_))) + (_hd110802110901_ (let () (declare (not safe)) - (##car _e110799110894_)))) + (##car _e110803110898_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110798110897_)) - (let ((_e110802110902_ + _hd110802110901_)) + (let ((_e110806110906_ (let () (declare (not safe)) (gx#stx-e - _hd110798110897_)))) - (let ((_tl110800110907_ + _hd110802110901_)))) + (let ((_tl110804110911_ (let () (declare (not safe)) - (##cdr _e110802110902_))) - (_hd110801110905_ + (##cdr _e110806110906_))) + (_hd110805110909_ (let () (declare (not safe)) - (##car _e110802110902_)))) + (##car _e110806110906_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110801110905_)) + _hd110805110909_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110801110905_)) + _hd110805110909_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl110800110907_)) - (let ((_e110805110910_ + (gx#stx-pair? _tl110804110911_)) + (let ((_e110809110914_ (let () (declare (not safe)) - (gx#stx-e _tl110800110907_)))) - (let ((_tl110803110915_ + (gx#stx-e _tl110804110911_)))) + (let ((_tl110807110919_ (let () (declare (not safe)) - (##cdr _e110805110910_))) - (_hd110804110913_ + (##cdr _e110809110914_))) + (_hd110808110917_ (let () (declare (not safe)) - (##car _e110805110910_)))) + (##car _e110809110914_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110803110915_)) + (gx#stx-null? _tl110807110919_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl110797110899_)) + (gx#stx-null? _tl110801110903_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl110773110835_)) - (___match113169113170_ - _e110772110822_ - _hd110771110825_ - _tl110770110827_ - _e110775110830_ - _hd110774110833_ - _tl110773110835_ - _e110778110838_ - _hd110777110841_ - _tl110776110843_ - _e110781110846_ - _hd110780110849_ - _tl110779110851_ - _e110784110854_ - _hd110783110857_ - _tl110782110859_ - _e110787110862_ - _hd110786110865_ - _tl110785110867_ - _e110790110870_ - _hd110789110873_ - _tl110788110875_ - _e110793110878_ - _hd110792110881_ - _tl110791110883_ - _e110796110886_ - _hd110795110889_ - _tl110794110891_ - _e110799110894_ - _hd110798110897_ - _tl110797110899_ - _e110802110902_ - _hd110801110905_ - _tl110800110907_ - _e110805110910_ - _hd110804110913_ - _tl110803110915_) - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) + (gx#stx-null? _tl110777110839_)) + (___match113173113174_ + _e110776110826_ + _hd110775110829_ + _tl110774110831_ + _e110779110834_ + _hd110778110837_ + _tl110777110839_ + _e110782110842_ + _hd110781110845_ + _tl110780110847_ + _e110785110850_ + _hd110784110853_ + _tl110783110855_ + _e110788110858_ + _hd110787110861_ + _tl110786110863_ + _e110791110866_ + _hd110790110869_ + _tl110789110871_ + _e110794110874_ + _hd110793110877_ + _tl110792110879_ + _e110797110882_ + _hd110796110885_ + _tl110795110887_ + _e110800110890_ + _hd110799110893_ + _tl110798110895_ + _e110803110898_ + _hd110802110901_ + _tl110801110903_ + _e110806110906_ + _hd110805110909_ + _tl110804110911_ + _e110809110914_ + _hd110808110917_ + _tl110807110919_) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113044113045_)))) - (___kont113044113045_)))) - (___match113071113072_ - (lambda (_e110708110963_ - _hd110707110966_ - _tl110706110968_ - ___splice113038113039_ - _target110709110971_ - _tl110711110973_) - (letrec ((_loop110712110976_ - (lambda (_hd110710110979_ - _arg110716110981_) + (___kont113048113049_)))) + (___kont113048113049_)))) + (___match113075113076_ + (lambda (_e110712110967_ + _hd110711110970_ + _tl110710110972_ + ___splice113042113043_ + _target110713110975_ + _tl110715110977_) + (letrec ((_loop110716110980_ + (lambda (_hd110714110983_ + _arg110720110985_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110710110979_)) - (let ((_e110713110984_ + _hd110714110983_)) + (let ((_e110717110988_ (let () (declare (not safe)) (gx#stx-e - _hd110710110979_)))) - (let ((_lp-tl110715110989_ + _hd110714110983_)))) + (let ((_lp-tl110719110993_ (let () (declare (not safe)) - (##cdr _e110713110984_))) - (_lp-hd110714110987_ + (##cdr _e110717110988_))) + (_lp-hd110718110991_ (let () (declare (not safe)) - (##car _e110713110984_)))) - (let ((__tmp114449 + (##car _e110717110988_)))) + (let ((__tmp114453 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd110714110987_ _arg110716110981_)))) + (cons _lp-hd110718110991_ _arg110720110985_)))) (declare (not safe)) - (_loop110712110976_ _lp-tl110715110989_ __tmp114449)))) + (_loop110716110980_ _lp-tl110719110993_ __tmp114453)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg110717110992_ - (reverse _arg110716110981_))) + (let ((_arg110721110996_ + (reverse _arg110720110985_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110706110968_)) - (let ((_e110720110995_ + _tl110710110972_)) + (let ((_e110724110999_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl110706110968_)))) - (let ((_tl110718111000_ - (let () (declare (not safe)) (##cdr _e110720110995_))) - (_hd110719110998_ + (gx#stx-e _tl110710110972_)))) + (let ((_tl110722111004_ + (let () (declare (not safe)) (##cdr _e110724110999_))) + (_hd110723111002_ (let () (declare (not safe)) - (##car _e110720110995_)))) + (##car _e110724110999_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110719110998_)) - (let ((_e110723111003_ + (gx#stx-pair? _hd110723111002_)) + (let ((_e110727111007_ (let () (declare (not safe)) - (gx#stx-e _hd110719110998_)))) - (let ((_tl110721111008_ + (gx#stx-e _hd110723111002_)))) + (let ((_tl110725111012_ (let () (declare (not safe)) - (##cdr _e110723111003_))) - (_hd110722111006_ + (##cdr _e110727111007_))) + (_hd110726111010_ (let () (declare (not safe)) - (##car _e110723111003_)))) + (##car _e110727111007_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110722111006_)) + (gx#identifier? _hd110726111010_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd110722111006_)) + (gx#stx-eq? '%#call _hd110726111010_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110721111008_)) - (let ((_e110726111011_ + (gx#stx-pair? _tl110725111012_)) + (let ((_e110730111015_ (let () (declare (not safe)) - (gx#stx-e _tl110721111008_)))) - (let ((_tl110724111016_ + (gx#stx-e _tl110725111012_)))) + (let ((_tl110728111020_ (let () (declare (not safe)) - (##cdr _e110726111011_))) - (_hd110725111014_ + (##cdr _e110730111015_))) + (_hd110729111018_ (let () (declare (not safe)) - (##car _e110726111011_)))) + (##car _e110730111015_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110725111014_)) - (let ((_e110729111019_ + _hd110729111018_)) + (let ((_e110733111023_ (let () (declare (not safe)) (gx#stx-e - _hd110725111014_)))) - (let ((_tl110727111024_ + _hd110729111018_)))) + (let ((_tl110731111028_ (let () (declare (not safe)) - (##cdr _e110729111019_))) - (_hd110728111022_ + (##cdr _e110733111023_))) + (_hd110732111026_ (let () (declare (not safe)) - (##car _e110729111019_)))) + (##car _e110733111023_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110728111022_)) + _hd110732111026_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110728111022_)) + _hd110732111026_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl110727111024_)) - (let ((_e110732111027_ + (gx#stx-pair? _tl110731111028_)) + (let ((_e110736111031_ (let () (declare (not safe)) - (gx#stx-e _tl110727111024_)))) - (let ((_tl110730111032_ + (gx#stx-e _tl110731111028_)))) + (let ((_tl110734111036_ (let () (declare (not safe)) - (##cdr _e110732111027_))) - (_hd110731111030_ + (##cdr _e110736111031_))) + (_hd110735111034_ (let () (declare (not safe)) - (##car _e110732111027_)))) + (##car _e110736111031_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110730111032_)) + (gx#stx-null? _tl110734111036_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110724111016_)) - (let ((_e110735111035_ + (gx#stx-pair? _tl110728111020_)) + (let ((_e110739111039_ (let () (declare (not safe)) - (gx#stx-e _tl110724111016_)))) - (let ((_tl110733111040_ + (gx#stx-e _tl110728111020_)))) + (let ((_tl110737111044_ (let () (declare (not safe)) - (##cdr _e110735111035_))) - (_hd110734111038_ + (##cdr _e110739111039_))) + (_hd110738111042_ (let () (declare (not safe)) - (##car _e110735111035_)))) + (##car _e110739111039_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110734111038_)) - (let ((_e110738111043_ + (gx#stx-pair? _hd110738111042_)) + (let ((_e110742111047_ (let () (declare (not safe)) (gx#stx-e - _hd110734111038_)))) - (let ((_tl110736111048_ + _hd110738111042_)))) + (let ((_tl110740111052_ (let () (declare (not safe)) - (##cdr _e110738111043_))) - (_hd110737111046_ + (##cdr _e110742111047_))) + (_hd110741111050_ (let () (declare (not safe)) - (##car _e110738111043_)))) + (##car _e110742111047_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110737111046_)) + _hd110741111050_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110737111046_)) + _hd110741111050_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110736111048_)) - (let ((_e110741111051_ + _tl110740111052_)) + (let ((_e110745111055_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl110736111048_)))) - (let ((_tl110739111056_ + (gx#stx-e _tl110740111052_)))) + (let ((_tl110743111060_ (let () (declare (not safe)) - (##cdr _e110741111051_))) - (_hd110740111054_ + (##cdr _e110745111055_))) + (_hd110744111058_ (let () (declare (not safe)) - (##car _e110741111051_)))) + (##car _e110745111055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110739111056_)) + (gx#stx-null? _tl110743111060_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl110733111040_)) + (gx#stx-pair/null? _tl110737111044_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl110733111040_)) + (gx#stx-length _tl110737111044_)) '1) - (let ((___splice113040113041_ + (let ((___splice113044113045_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl110733111040_ + _tl110737111044_ '1)))) - (let ((_tl110744111061_ + (let ((_tl110748111065_ (let () (declare (not safe)) (##vector-ref - ___splice113040113041_ + ___splice113044113045_ '1))) - (_target110742111059_ + (_target110746111063_ (let () (declare (not safe)) (##vector-ref - ___splice113040113041_ + ___splice113044113045_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110744111061_)) - (let ((_e110753111064_ + (gx#stx-pair? _tl110748111065_)) + (let ((_e110757111068_ (let () (declare (not safe)) (gx#stx-e - _tl110744111061_)))) - (let ((_tl110751111069_ + _tl110748111065_)))) + (let ((_tl110755111073_ (let () (declare (not safe)) - (##cdr _e110753111064_))) - (_hd110752111067_ + (##cdr _e110757111068_))) + (_hd110756111071_ (let () (declare (not safe)) - (##car _e110753111064_)))) + (##car _e110757111068_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110752111067_)) - (let ((_e110756111072_ + _hd110756111071_)) + (let ((_e110760111076_ (let () (declare (not safe)) (gx#stx-e - _hd110752111067_)))) - (let ((_tl110754111077_ + _hd110756111071_)))) + (let ((_tl110758111081_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e110756111072_))) - (_hd110755111075_ - (let () (declare (not safe)) (##car _e110756111072_)))) + (##cdr _e110760111076_))) + (_hd110759111079_ + (let () (declare (not safe)) (##car _e110760111076_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110755111075_)) + (gx#identifier? _hd110759111079_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110755111075_)) + (gx#stx-eq? '%#ref _hd110759111079_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110754111077_)) - (let ((_e110759111080_ + (gx#stx-pair? _tl110758111081_)) + (let ((_e110763111084_ (let () (declare (not safe)) - (gx#stx-e _tl110754111077_)))) - (let ((_tl110757111085_ + (gx#stx-e _tl110758111081_)))) + (let ((_tl110761111089_ (let () (declare (not safe)) - (##cdr _e110759111080_))) - (_hd110758111083_ + (##cdr _e110763111084_))) + (_hd110762111087_ (let () (declare (not safe)) - (##car _e110759111080_)))) + (##car _e110763111084_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110757111085_)) + (gx#stx-null? _tl110761111089_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl110751111069_)) - (letrec ((_loop110745111088_ - (lambda (_hd110743111091_ - _xarg110749111093_) + (gx#stx-null? _tl110755111073_)) + (letrec ((_loop110749111092_ + (lambda (_hd110747111095_ + _xarg110753111097_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110743111091_)) - (let ((_e110746111096_ + _hd110747111095_)) + (let ((_e110750111100_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd110743111091_)))) - (let ((_lp-tl110748111101_ - (let () (declare (not safe)) (##cdr _e110746111096_))) - (_lp-hd110747111099_ + (gx#stx-e _hd110747111095_)))) + (let ((_lp-tl110752111105_ + (let () (declare (not safe)) (##cdr _e110750111100_))) + (_lp-hd110751111103_ (let () (declare (not safe)) - (##car _e110746111096_)))) + (##car _e110750111100_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd110747111099_)) - (let ((_e110762111104_ + (gx#stx-pair? _lp-hd110751111103_)) + (let ((_e110766111108_ (let () (declare (not safe)) - (gx#stx-e _lp-hd110747111099_)))) - (let ((_tl110760111109_ + (gx#stx-e _lp-hd110751111103_)))) + (let ((_tl110764111113_ (let () (declare (not safe)) - (##cdr _e110762111104_))) - (_hd110761111107_ + (##cdr _e110766111108_))) + (_hd110765111111_ (let () (declare (not safe)) - (##car _e110762111104_)))) + (##car _e110766111108_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110761111107_)) + (gx#identifier? _hd110765111111_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110761111107_)) + (gx#stx-eq? '%#ref _hd110765111111_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110760111109_)) - (let ((_e110765111112_ + (gx#stx-pair? _tl110764111113_)) + (let ((_e110769111116_ (let () (declare (not safe)) - (gx#stx-e _tl110760111109_)))) - (let ((_tl110763111117_ + (gx#stx-e _tl110764111113_)))) + (let ((_tl110767111121_ (let () (declare (not safe)) - (##cdr _e110765111112_))) - (_hd110764111115_ + (##cdr _e110769111116_))) + (_hd110768111119_ (let () (declare (not safe)) - (##car _e110765111112_)))) + (##car _e110769111116_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110763111117_)) - (let ((__tmp114448 + _tl110767111121_)) + (let ((__tmp114452 (let () (declare (not safe)) - (cons _hd110764111115_ - _xarg110749111093_)))) + (cons _hd110768111119_ + _xarg110753111097_)))) (declare (not safe)) - (_loop110745111088_ - _lp-tl110748111101_ - __tmp114448)) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)))) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)))) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)))) - (let ((_xarg110750111120_ (reverse _xarg110749111093_))) + (_loop110749111092_ + _lp-tl110752111105_ + __tmp114452)) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)))) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)))) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)))) + (let ((_xarg110754111124_ (reverse _xarg110753111097_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110718111000_)) - (let ((_L111123_ _hd110758111083_) - (_L111124_ _xarg110750111120_) - (_L111125_ _hd110740111054_) - (_L111126_ _hd110731111030_) - (_L111127_ _tl110711110973_) - (_L111128_ _arg110717110992_)) - (if (and (let ((__tmp114446 - (let ((__tmp114447 - (lambda (_g111171111174_ - _g111172111176_) + (gx#stx-null? _tl110722111004_)) + (let ((_L111127_ _hd110762111087_) + (_L111128_ _xarg110754111124_) + (_L111129_ _hd110744111058_) + (_L111130_ _hd110735111034_) + (_L111131_ _tl110715110977_) + (_L111132_ _arg110721110996_)) + (if (and (let ((__tmp114450 + (let ((__tmp114451 + (lambda (_g111175111178_ + _g111176111180_) (let () (declare (not safe)) - (cons _g111171111174_ - _g111172111176_))))) + (cons _g111175111178_ + _g111176111180_))))) (declare (not safe)) - (foldr1 __tmp114447 '() _L111128_)))) + (foldr1 __tmp114451 '() _L111132_)))) (declare (not safe)) - (gx#identifier-list? __tmp114446)) + (gx#identifier-list? __tmp114450)) (let () (declare (not safe)) - (gx#identifier? _L111127_)) + (gx#identifier? _L111131_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L111126_ 'apply)) - (fx= (length (let ((__tmp114444 - (lambda (_g111178111181_ - _g111179111183_) + (gxc#runtime-identifier=? _L111130_ 'apply)) + (fx= (length (let ((__tmp114448 + (lambda (_g111182111185_ + _g111183111187_) (let () (declare (not safe)) - (cons _g111178111181_ - _g111179111183_))))) + (cons _g111182111185_ + _g111183111187_))))) (declare (not safe)) - (foldr1 __tmp114444 + (foldr1 __tmp114448 '() - _L111128_))) - (length (let ((__tmp114445 - (lambda (_g111185111188_ - _g111186111190_) + _L111132_))) + (length (let ((__tmp114449 + (lambda (_g111189111192_ + _g111190111194_) (let () (declare (not safe)) - (cons _g111185111188_ - _g111186111190_))))) + (cons _g111189111192_ + _g111190111194_))))) (declare (not safe)) - (foldr1 __tmp114445 + (foldr1 __tmp114449 '() - _L111124_)))) - (let ((__tmp114442 - (let ((__tmp114443 - (lambda (_g111192111195_ - _g111193111197_) + _L111128_)))) + (let ((__tmp114446 + (let ((__tmp114447 + (lambda (_g111196111199_ + _g111197111201_) (let () (declare (not safe)) - (cons _g111192111195_ - _g111193111197_))))) + (cons _g111196111199_ + _g111197111201_))))) (declare (not safe)) - (foldr1 __tmp114443 '() _L111128_))) - (__tmp114440 - (let ((__tmp114441 - (lambda (_g111199111202_ - _g111200111204_) + (foldr1 __tmp114447 '() _L111132_))) + (__tmp114444 + (let ((__tmp114445 + (lambda (_g111203111206_ + _g111204111208_) (let () (declare (not safe)) - (cons _g111199111202_ - _g111200111204_))))) + (cons _g111203111206_ + _g111204111208_))))) (declare (not safe)) - (foldr1 __tmp114441 '() _L111124_)))) + (foldr1 __tmp114445 '() _L111128_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp114442 - __tmp114440)) + __tmp114446 + __tmp114444)) (let () (declare (not safe)) - (gx#free-identifier=? _L111127_ _L111123_)) - (let ((__tmp114435 - (let ((__tmp114439 - (lambda (_g111206111208_) + (gx#free-identifier=? _L111131_ _L111127_)) + (let ((__tmp114439 + (let ((__tmp114443 + (lambda (_g111210111212_) (let () (declare (not safe)) (gx#free-identifier=? - _g111206111208_ - _L111125_)))) - (__tmp114436 - (let ((__tmp114438 - (lambda (_g111210111213_ - _g111211111215_) + _g111210111212_ + _L111129_)))) + (__tmp114440 + (let ((__tmp114442 + (lambda (_g111214111217_ + _g111215111219_) (let () (declare (not safe)) - (cons _g111210111213_ - _g111211111215_)))) - (__tmp114437 + (cons _g111214111217_ + _g111215111219_)))) + (__tmp114441 (let () (declare (not safe)) - (cons _L111127_ '())))) + (cons _L111131_ '())))) (declare (not safe)) - (foldr1 __tmp114438 - __tmp114437 - _L111128_)))) + (foldr1 __tmp114442 + __tmp114441 + _L111132_)))) (declare (not safe)) - (find __tmp114439 __tmp114436)))) + (find __tmp114443 __tmp114440)))) (declare (not safe)) - (not __tmp114435))) - (___kont113036113037_ - _L111123_ - _L111124_ - _L111125_ - _L111126_ + (not __tmp114439))) + (___kont113040113041_ _L111127_ - _L111128_) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_))) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_))))))) + _L111128_ + _L111129_ + _L111130_ + _L111131_ + _L111132_) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_))) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110745111088_ - _target110742111059_ + (_loop110749111092_ + _target110746111063_ '()))) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)))) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)))) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)))) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)))) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)))) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)) - (___match113141113142_ - _e110708110963_ - _hd110707110966_ - _tl110706110968_ - _e110720110995_ - _hd110719110998_ - _tl110718111000_ - _e110723111003_ - _hd110722111006_ - _tl110721111008_ - _e110726111011_ - _hd110725111014_ - _tl110724111016_ - _e110729111019_ - _hd110728111022_ - _tl110727111024_ - _e110732111027_ - _hd110731111030_ - _tl110730111032_ - _e110735111035_ - _hd110734111038_ - _tl110733111040_ - _e110738111043_ - _hd110737111046_ - _tl110736111048_ - _e110741111051_ - _hd110740111054_ - _tl110739111056_)) - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)))) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)))) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)) + (___match113145113146_ + _e110712110967_ + _hd110711110970_ + _tl110710110972_ + _e110724110999_ + _hd110723111002_ + _tl110722111004_ + _e110727111007_ + _hd110726111010_ + _tl110725111012_ + _e110730111015_ + _hd110729111018_ + _tl110728111020_ + _e110733111023_ + _hd110732111026_ + _tl110731111028_ + _e110736111031_ + _hd110735111034_ + _tl110734111036_ + _e110739111039_ + _hd110738111042_ + _tl110737111044_ + _e110742111047_ + _hd110741111050_ + _tl110740111052_ + _e110745111055_ + _hd110744111058_ + _tl110743111060_)) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113044113045_)))) - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) + (___kont113048113049_)))) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) - (___kont113044113045_)))) - (___kont113044113045_))))))) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) + (___kont113048113049_)))) + (___kont113048113049_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110712110976_ - _target110709110971_ + (_loop110716110980_ + _target110713110975_ '()))))) - (___match113059113060_ - (lambda (_e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_) - (letrec ((_loop110664111236_ - (lambda (_hd110662111239_ - _arg110668111241_) + (___match113063113064_ + (lambda (_e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_) + (letrec ((_loop110668111240_ + (lambda (_hd110666111243_ + _arg110672111245_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110662111239_)) - (let ((_e110665111244_ + _hd110666111243_)) + (let ((_e110669111248_ (let () (declare (not safe)) (gx#stx-e - _hd110662111239_)))) - (let ((_lp-tl110667111249_ + _hd110666111243_)))) + (let ((_lp-tl110671111253_ (let () (declare (not safe)) - (##cdr _e110665111244_))) - (_lp-hd110666111247_ + (##cdr _e110669111248_))) + (_lp-hd110670111251_ (let () (declare (not safe)) - (##car _e110665111244_)))) - (let ((__tmp114463 + (##car _e110669111248_)))) + (let ((__tmp114467 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd110666111247_ _arg110668111241_)))) + (cons _lp-hd110670111251_ _arg110672111245_)))) (declare (not safe)) - (_loop110664111236_ _lp-tl110667111249_ __tmp114463)))) + (_loop110668111240_ _lp-tl110671111253_ __tmp114467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg110669111252_ - (reverse _arg110668111241_))) + (let ((_arg110673111256_ + (reverse _arg110672111245_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110658111228_)) - (let ((_e110672111255_ + _tl110662111232_)) + (let ((_e110676111259_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl110658111228_)))) - (let ((_tl110670111260_ - (let () (declare (not safe)) (##cdr _e110672111255_))) - (_hd110671111258_ + (gx#stx-e _tl110662111232_)))) + (let ((_tl110674111264_ + (let () (declare (not safe)) (##cdr _e110676111259_))) + (_hd110675111262_ (let () (declare (not safe)) - (##car _e110672111255_)))) + (##car _e110676111259_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110671111258_)) - (let ((_e110675111263_ + (gx#stx-pair? _hd110675111262_)) + (let ((_e110679111267_ (let () (declare (not safe)) - (gx#stx-e _hd110671111258_)))) - (let ((_tl110673111268_ + (gx#stx-e _hd110675111262_)))) + (let ((_tl110677111272_ (let () (declare (not safe)) - (##cdr _e110675111263_))) - (_hd110674111266_ + (##cdr _e110679111267_))) + (_hd110678111270_ (let () (declare (not safe)) - (##car _e110675111263_)))) + (##car _e110679111267_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110674111266_)) + (gx#identifier? _hd110678111270_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd110674111266_)) + (gx#stx-eq? '%#call _hd110678111270_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110673111268_)) - (let ((_e110678111271_ + (gx#stx-pair? _tl110677111272_)) + (let ((_e110682111275_ (let () (declare (not safe)) - (gx#stx-e _tl110673111268_)))) - (let ((_tl110676111276_ + (gx#stx-e _tl110677111272_)))) + (let ((_tl110680111280_ (let () (declare (not safe)) - (##cdr _e110678111271_))) - (_hd110677111274_ + (##cdr _e110682111275_))) + (_hd110681111278_ (let () (declare (not safe)) - (##car _e110678111271_)))) + (##car _e110682111275_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110677111274_)) - (let ((_e110681111279_ + _hd110681111278_)) + (let ((_e110685111283_ (let () (declare (not safe)) (gx#stx-e - _hd110677111274_)))) - (let ((_tl110679111284_ + _hd110681111278_)))) + (let ((_tl110683111288_ (let () (declare (not safe)) - (##cdr _e110681111279_))) - (_hd110680111282_ + (##cdr _e110685111283_))) + (_hd110684111286_ (let () (declare (not safe)) - (##car _e110681111279_)))) + (##car _e110685111283_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110680111282_)) + _hd110684111286_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110680111282_)) + _hd110684111286_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl110679111284_)) - (let ((_e110684111287_ + (gx#stx-pair? _tl110683111288_)) + (let ((_e110688111291_ (let () (declare (not safe)) - (gx#stx-e _tl110679111284_)))) - (let ((_tl110682111292_ + (gx#stx-e _tl110683111288_)))) + (let ((_tl110686111296_ (let () (declare (not safe)) - (##cdr _e110684111287_))) - (_hd110683111290_ + (##cdr _e110688111291_))) + (_hd110687111294_ (let () (declare (not safe)) - (##car _e110684111287_)))) + (##car _e110688111291_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110682111292_)) + (gx#stx-null? _tl110686111296_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl110676111276_)) - (let ((___splice113034113035_ + (gx#stx-pair/null? _tl110680111280_)) + (let ((___splice113038113039_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl110676111276_ + _tl110680111280_ '0)))) - (let ((_tl110687111297_ + (let ((_tl110691111301_ (let () (declare (not safe)) (##vector-ref - ___splice113034113035_ + ___splice113038113039_ '1))) - (_target110685111295_ + (_target110689111299_ (let () (declare (not safe)) (##vector-ref - ___splice113034113035_ + ___splice113038113039_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110687111297_)) - (letrec ((_loop110688111300_ - (lambda (_hd110686111303_ - _xarg110692111305_) + (gx#stx-null? _tl110691111301_)) + (letrec ((_loop110692111304_ + (lambda (_hd110690111307_ + _xarg110696111309_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110686111303_)) - (let ((_e110689111308_ + _hd110690111307_)) + (let ((_e110693111312_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd110686111303_)))) - (let ((_lp-tl110691111313_ + (gx#stx-e _hd110690111307_)))) + (let ((_lp-tl110695111317_ (let () (declare (not safe)) - (##cdr _e110689111308_))) - (_lp-hd110690111311_ + (##cdr _e110693111312_))) + (_lp-hd110694111315_ (let () (declare (not safe)) - (##car _e110689111308_)))) + (##car _e110693111312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd110690111311_)) - (let ((_e110696111316_ + (gx#stx-pair? _lp-hd110694111315_)) + (let ((_e110700111320_ (let () (declare (not safe)) - (gx#stx-e _lp-hd110690111311_)))) - (let ((_tl110694111321_ + (gx#stx-e _lp-hd110694111315_)))) + (let ((_tl110698111325_ (let () (declare (not safe)) - (##cdr _e110696111316_))) - (_hd110695111319_ + (##cdr _e110700111320_))) + (_hd110699111323_ (let () (declare (not safe)) - (##car _e110696111316_)))) + (##car _e110700111320_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110695111319_)) + (gx#identifier? _hd110699111323_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110695111319_)) + (gx#stx-eq? '%#ref _hd110699111323_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110694111321_)) - (let ((_e110699111324_ + (gx#stx-pair? _tl110698111325_)) + (let ((_e110703111328_ (let () (declare (not safe)) (gx#stx-e - _tl110694111321_)))) - (let ((_tl110697111329_ + _tl110698111325_)))) + (let ((_tl110701111333_ (let () (declare (not safe)) - (##cdr _e110699111324_))) - (_hd110698111327_ + (##cdr _e110703111328_))) + (_hd110702111331_ (let () (declare (not safe)) - (##car _e110699111324_)))) + (##car _e110703111328_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110697111329_)) - (let ((__tmp114462 + _tl110701111333_)) + (let ((__tmp114466 (let () (declare (not safe)) - (cons _hd110698111327_ + (cons _hd110702111331_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg110692111305_)))) + _xarg110696111309_)))) (declare (not safe)) - (_loop110688111300_ _lp-tl110691111313_ __tmp114462)) + (_loop110692111304_ _lp-tl110695111317_ __tmp114466)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) - (let ((_xarg110693111332_ (reverse _xarg110692111305_))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) + (let ((_xarg110697111336_ (reverse _xarg110696111309_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110670111260_)) - (let ((_L111335_ _xarg110693111332_) - (_L111336_ _hd110683111290_) - (_L111337_ _arg110669111252_)) - (if (and (let ((__tmp114460 - (let ((__tmp114461 - (lambda (_g111365111368_ - _g111366111370_) + (gx#stx-null? _tl110674111264_)) + (let ((_L111339_ _xarg110697111336_) + (_L111340_ _hd110687111294_) + (_L111341_ _arg110673111256_)) + (if (and (let ((__tmp114464 + (let ((__tmp114465 + (lambda (_g111369111372_ + _g111370111374_) (let () (declare (not safe)) - (cons _g111365111368_ - _g111366111370_))))) + (cons _g111369111372_ + _g111370111374_))))) (declare (not safe)) - (foldr1 __tmp114461 + (foldr1 __tmp114465 '() - _L111337_)))) + _L111341_)))) (declare (not safe)) - (gx#identifier-list? __tmp114460)) - (fx= (length (let ((__tmp114458 - (lambda (_g111372111375_ + (gx#identifier-list? __tmp114464)) + (fx= (length (let ((__tmp114462 + (lambda (_g111376111379_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g111373111377_) + _g111377111381_) (let () (declare (not safe)) - (cons _g111372111375_ _g111373111377_))))) + (cons _g111376111379_ _g111377111381_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114458 + (foldr1 __tmp114462 '() - _L111337_))) - (length (let ((__tmp114459 - (lambda (_g111379111382_ + _L111341_))) + (length (let ((__tmp114463 + (lambda (_g111383111386_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g111380111384_) + _g111384111388_) (let () (declare (not safe)) - (cons _g111379111382_ _g111380111384_))))) + (cons _g111383111386_ _g111384111388_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114459 + (foldr1 __tmp114463 '() - _L111335_)))) - (let ((__tmp114456 - (let ((__tmp114457 - (lambda (_g111386111389_ - _g111387111391_) + _L111339_)))) + (let ((__tmp114460 + (let ((__tmp114461 + (lambda (_g111390111393_ + _g111391111395_) (let () (declare (not safe)) - (cons _g111386111389_ - _g111387111391_))))) + (cons _g111390111393_ + _g111391111395_))))) (declare (not safe)) - (foldr1 __tmp114457 + (foldr1 __tmp114461 '() - _L111337_))) - (__tmp114454 - (let ((__tmp114455 - (lambda (_g111393111396_ - _g111394111398_) + _L111341_))) + (__tmp114458 + (let ((__tmp114459 + (lambda (_g111397111400_ + _g111398111402_) (let () (declare (not safe)) - (cons _g111393111396_ - _g111394111398_))))) + (cons _g111397111400_ + _g111398111402_))))) (declare (not safe)) - (foldr1 __tmp114455 + (foldr1 __tmp114459 '() - _L111335_)))) + _L111339_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp114456 - __tmp114454)) - (let ((__tmp114450 - (let ((__tmp114453 - (lambda (_g111400111402_) + __tmp114460 + __tmp114458)) + (let ((__tmp114454 + (let ((__tmp114457 + (lambda (_g111404111406_) (let () (declare (not safe)) (gx#free-identifier=? - _g111400111402_ - _L111336_)))) - (__tmp114451 - (let ((__tmp114452 - (lambda (_g111404111407_ + _g111404111406_ + _L111340_)))) + (__tmp114455 + (let ((__tmp114456 + (lambda (_g111408111411_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g111405111409_) + _g111409111413_) (let () (declare (not safe)) - (cons _g111404111407_ _g111405111409_))))) + (cons _g111408111411_ _g111409111413_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114452 + (foldr1 __tmp114456 '() - _L111337_)))) + _L111341_)))) (declare (not safe)) - (find __tmp114453 __tmp114451)))) + (find __tmp114457 __tmp114455)))) (declare (not safe)) - (not __tmp114450))) - (___kont113030113031_ - _L111335_ - _L111336_ - _L111337_) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_))))))) + (not __tmp114454))) + (___kont113034113035_ + _L111339_ + _L111340_ + _L111341_) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110688111300_ - _target110685111295_ + (_loop110692111304_ + _target110689111299_ '()))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_))))))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110664111236_ - _target110661111231_ + (_loop110668111240_ + _target110665111235_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113028113029_)) - (let ((_e110660111223_ + (gx#stx-pair? ___stx113032113033_)) + (let ((_e110664111227_ (let () (declare (not safe)) - (gx#stx-e ___stx113028113029_)))) - (let ((_tl110658111228_ + (gx#stx-e ___stx113032113033_)))) + (let ((_tl110662111232_ (let () (declare (not safe)) - (##cdr _e110660111223_))) - (_hd110659111226_ + (##cdr _e110664111227_))) + (_hd110663111230_ (let () (declare (not safe)) - (##car _e110660111223_)))) + (##car _e110664111227_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd110659111226_)) - (let ((___splice113032113033_ + (gx#stx-pair/null? _hd110663111230_)) + (let ((___splice113036113037_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd110659111226_ + _hd110663111230_ '0)))) - (let ((_tl110663111233_ + (let ((_tl110667111237_ (let () (declare (not safe)) (##vector-ref - ___splice113032113033_ + ___splice113036113037_ '1))) - (_target110661111231_ + (_target110665111235_ (let () (declare (not safe)) (##vector-ref - ___splice113032113033_ + ___splice113036113037_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110663111233_)) - (___match113059113060_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_) - (___match113071113072_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - ___splice113032113033_ - _target110661111231_ - _tl110663111233_)))) + _tl110667111237_)) + (___match113063113064_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_) + (___match113075113076_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + ___splice113036113037_ + _target110665111235_ + _tl110667111237_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110658111228_)) - (let ((_e110775110830_ + (gx#stx-pair? _tl110662111232_)) + (let ((_e110779110834_ (let () (declare (not safe)) (gx#stx-e - _tl110658111228_)))) - (let ((_tl110773110835_ + _tl110662111232_)))) + (let ((_tl110777110839_ (let () (declare (not safe)) - (##cdr _e110775110830_))) - (_hd110774110833_ + (##cdr _e110779110834_))) + (_hd110778110837_ (let () (declare (not safe)) - (##car _e110775110830_)))) + (##car _e110779110834_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110774110833_)) - (let ((_e110778110838_ + _hd110778110837_)) + (let ((_e110782110842_ (let () (declare (not safe)) (gx#stx-e - _hd110774110833_)))) - (let ((_tl110776110843_ + _hd110778110837_)))) + (let ((_tl110780110847_ (let () (declare (not safe)) - (##cdr _e110778110838_))) - (_hd110777110841_ + (##cdr _e110782110842_))) + (_hd110781110845_ (let () (declare (not safe)) - (##car _e110778110838_)))) + (##car _e110782110842_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110777110841_)) + _hd110781110845_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _hd110777110841_)) + (gx#stx-eq? '%#call _hd110781110845_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110776110843_)) - (let ((_e110781110846_ + (gx#stx-pair? _tl110780110847_)) + (let ((_e110785110850_ (let () (declare (not safe)) - (gx#stx-e _tl110776110843_)))) - (let ((_tl110779110851_ + (gx#stx-e _tl110780110847_)))) + (let ((_tl110783110855_ (let () (declare (not safe)) - (##cdr _e110781110846_))) - (_hd110780110849_ + (##cdr _e110785110850_))) + (_hd110784110853_ (let () (declare (not safe)) - (##car _e110781110846_)))) + (##car _e110785110850_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110780110849_)) - (let ((_e110784110854_ + (gx#stx-pair? _hd110784110853_)) + (let ((_e110788110858_ (let () (declare (not safe)) - (gx#stx-e _hd110780110849_)))) - (let ((_tl110782110859_ + (gx#stx-e _hd110784110853_)))) + (let ((_tl110786110863_ (let () (declare (not safe)) - (##cdr _e110784110854_))) - (_hd110783110857_ + (##cdr _e110788110858_))) + (_hd110787110861_ (let () (declare (not safe)) - (##car _e110784110854_)))) + (##car _e110788110858_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110783110857_)) + (gx#identifier? _hd110787110861_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110783110857_)) + _hd110787110861_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110782110859_)) - (let ((_e110787110862_ + _tl110786110863_)) + (let ((_e110791110866_ (let () (declare (not safe)) (gx#stx-e - _tl110782110859_)))) - (let ((_tl110785110867_ + _tl110786110863_)))) + (let ((_tl110789110871_ (let () (declare (not safe)) - (##cdr _e110787110862_))) - (_hd110786110865_ + (##cdr _e110791110866_))) + (_hd110790110869_ (let () (declare (not safe)) - (##car _e110787110862_)))) + (##car _e110791110866_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110785110867_)) + _tl110789110871_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl110779110851_)) - (let ((_e110790110870_ + (gx#stx-pair? _tl110783110855_)) + (let ((_e110794110874_ (let () (declare (not safe)) - (gx#stx-e _tl110779110851_)))) - (let ((_tl110788110875_ + (gx#stx-e _tl110783110855_)))) + (let ((_tl110792110879_ (let () (declare (not safe)) - (##cdr _e110790110870_))) - (_hd110789110873_ + (##cdr _e110794110874_))) + (_hd110793110877_ (let () (declare (not safe)) - (##car _e110790110870_)))) + (##car _e110794110874_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110789110873_)) - (let ((_e110793110878_ + (gx#stx-pair? _hd110793110877_)) + (let ((_e110797110882_ (let () (declare (not safe)) - (gx#stx-e _hd110789110873_)))) - (let ((_tl110791110883_ + (gx#stx-e _hd110793110877_)))) + (let ((_tl110795110887_ (let () (declare (not safe)) - (##cdr _e110793110878_))) - (_hd110792110881_ + (##cdr _e110797110882_))) + (_hd110796110885_ (let () (declare (not safe)) - (##car _e110793110878_)))) + (##car _e110797110882_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110792110881_)) + (gx#identifier? _hd110796110885_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110792110881_)) + _hd110796110885_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110791110883_)) - (let ((_e110796110886_ + _tl110795110887_)) + (let ((_e110800110890_ (let () (declare (not safe)) (gx#stx-e - _tl110791110883_)))) - (let ((_tl110794110891_ + _tl110795110887_)))) + (let ((_tl110798110895_ (let () (declare (not safe)) - (##cdr _e110796110886_))) - (_hd110795110889_ + (##cdr _e110800110890_))) + (_hd110799110893_ (let () (declare (not safe)) - (##car _e110796110886_)))) + (##car _e110800110890_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110794110891_)) + _tl110798110895_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110788110875_)) - (let ((_e110799110894_ + _tl110792110879_)) + (let ((_e110803110898_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl110788110875_)))) - (let ((_tl110797110899_ + (gx#stx-e _tl110792110879_)))) + (let ((_tl110801110903_ (let () (declare (not safe)) - (##cdr _e110799110894_))) - (_hd110798110897_ + (##cdr _e110803110898_))) + (_hd110802110901_ (let () (declare (not safe)) - (##car _e110799110894_)))) + (##car _e110803110898_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110798110897_)) - (let ((_e110802110902_ + (gx#stx-pair? _hd110802110901_)) + (let ((_e110806110906_ (let () (declare (not safe)) - (gx#stx-e _hd110798110897_)))) - (let ((_tl110800110907_ + (gx#stx-e _hd110802110901_)))) + (let ((_tl110804110911_ (let () (declare (not safe)) - (##cdr _e110802110902_))) - (_hd110801110905_ + (##cdr _e110806110906_))) + (_hd110805110909_ (let () (declare (not safe)) - (##car _e110802110902_)))) + (##car _e110806110906_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110801110905_)) + (gx#identifier? _hd110805110909_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110801110905_)) + (gx#stx-eq? '%#ref _hd110805110909_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110800110907_)) - (let ((_e110805110910_ + (gx#stx-pair? _tl110804110911_)) + (let ((_e110809110914_ (let () (declare (not safe)) (gx#stx-e - _tl110800110907_)))) - (let ((_tl110803110915_ + _tl110804110911_)))) + (let ((_tl110807110919_ (let () (declare (not safe)) - (##cdr _e110805110910_))) - (_hd110804110913_ + (##cdr _e110809110914_))) + (_hd110808110917_ (let () (declare (not safe)) - (##car _e110805110910_)))) + (##car _e110809110914_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110803110915_)) + _tl110807110919_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl110797110899_)) + _tl110801110903_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl110773110835_)) - (___match113169113170_ - _e110660111223_ - _hd110659111226_ - _tl110658111228_ - _e110775110830_ - _hd110774110833_ - _tl110773110835_ - _e110778110838_ - _hd110777110841_ - _tl110776110843_ - _e110781110846_ - _hd110780110849_ - _tl110779110851_ - _e110784110854_ - _hd110783110857_ - _tl110782110859_ - _e110787110862_ - _hd110786110865_ - _tl110785110867_ - _e110790110870_ - _hd110789110873_ - _tl110788110875_ - _e110793110878_ - _hd110792110881_ - _tl110791110883_ - _e110796110886_ - _hd110795110889_ - _tl110794110891_ - _e110799110894_ - _hd110798110897_ - _tl110797110899_ - _e110802110902_ - _hd110801110905_ - _tl110800110907_ - _e110805110910_ - _hd110804110913_ - _tl110803110915_) - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)))) + _tl110777110839_)) + (___match113173113174_ + _e110664111227_ + _hd110663111230_ + _tl110662111232_ + _e110779110834_ + _hd110778110837_ + _tl110777110839_ + _e110782110842_ + _hd110781110845_ + _tl110780110847_ + _e110785110850_ + _hd110784110853_ + _tl110783110855_ + _e110788110858_ + _hd110787110861_ + _tl110786110863_ + _e110791110866_ + _hd110790110869_ + _tl110789110871_ + _e110794110874_ + _hd110793110877_ + _tl110792110879_ + _e110797110882_ + _hd110796110885_ + _tl110795110887_ + _e110800110890_ + _hd110799110893_ + _tl110798110895_ + _e110803110898_ + _hd110802110901_ + _tl110801110903_ + _e110806110906_ + _hd110805110909_ + _tl110804110911_ + _e110809110914_ + _hd110808110917_ + _tl110807110919_) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)))) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) - (___kont113044113045_)))) - (___kont113044113045_)) - (___kont113044113045_)) - (___kont113044113045_)))) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) + (___kont113048113049_)))) + (___kont113048113049_)) + (___kont113048113049_)) + (___kont113048113049_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113044113045_)))) - (___kont113044113045_))))) - (___kont113044113045_))))))) - (_dispatch-case-e109961_ - (lambda (_hd110109_ _body110110_) - (let* ((_form110112_ - (let ((__tmp114464 + (___kont113048113049_)))) + (___kont113048113049_))))) + (___kont113048113049_))))))) + (_dispatch-case-e109965_ + (lambda (_hd110113_ _body110114_) + (let* ((_form110116_ + (let ((__tmp114468 (let () (declare (not safe)) - (cons _body110110_ '())))) + (cons _body110114_ '())))) (declare (not safe)) - (cons _hd110109_ __tmp114464))) - (___stx113172113173_ _form110112_) - (_g110116110240_ + (cons _hd110113_ __tmp114468))) + (___stx113176113177_ _form110116_) + (_g110120110244_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113172113173_))))) - (let ((___kont113174113175_ - (lambda (_L110611_ _L110612_ _L110613_) - (let ((__tmp114465 - (let ((__tmp114467 + ___stx113176113177_))))) + (let ((___kont113178113179_ + (lambda (_L110615_ _L110616_ _L110617_) + (let ((__tmp114469 + (let ((__tmp114471 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp114466 + (__tmp114470 (let () (declare (not safe)) - (cons _L110612_ '())))) + (cons _L110616_ '())))) (declare (not safe)) - (cons __tmp114467 __tmp114466)))) + (cons __tmp114471 __tmp114470)))) (declare (not safe)) - (gxc#compile-e__1 _self109957_ __tmp114465)))) - (___kont113180113181_ - (lambda (_L110459_ _L110460_ _L110461_ _L110462_) - (let ((__tmp114468 - (let ((__tmp114470 + (gxc#compile-e__1 _self109961_ __tmp114469)))) + (___kont113184113185_ + (lambda (_L110463_ _L110464_ _L110465_ _L110466_) + (let ((__tmp114472 + (let ((__tmp114474 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp114469 + (__tmp114473 (let () (declare (not safe)) - (cons _L110459_ '())))) + (cons _L110463_ '())))) (declare (not safe)) - (cons __tmp114470 __tmp114469)))) + (cons __tmp114474 __tmp114473)))) (declare (not safe)) - (gxc#compile-e__1 _self109957_ __tmp114468)))) - (___kont113184113185_ - (lambda (_L110325_ _L110326_ _L110327_) - (let ((__tmp114471 - (let ((__tmp114473 + (gxc#compile-e__1 _self109961_ __tmp114472)))) + (___kont113188113189_ + (lambda (_L110329_ _L110330_ _L110331_) + (let ((__tmp114475 + (let ((__tmp114477 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp114472 + (__tmp114476 (let () (declare (not safe)) - (cons _L110325_ '())))) + (cons _L110329_ '())))) (declare (not safe)) - (cons __tmp114473 __tmp114472)))) + (cons __tmp114477 __tmp114476)))) (declare (not safe)) (gxc#compile-e__1 - _self109957_ - __tmp114471))))) - (let* ((___match113281113282_ - (lambda (_e110208110245_ - _hd110207110248_ - _tl110206110250_ - _e110211110253_ - _hd110210110256_ - _tl110209110258_ - _e110214110261_ - _hd110213110264_ - _tl110212110266_ - _e110217110269_ - _hd110216110272_ - _tl110215110274_ - _e110220110277_ - _hd110219110280_ - _tl110218110282_ - _e110223110285_ - _hd110222110288_ - _tl110221110290_ - _e110226110293_ - _hd110225110296_ - _tl110224110298_ - _e110229110301_ - _hd110228110304_ - _tl110227110306_ - _e110232110309_ - _hd110231110312_ - _tl110230110314_) + _self109961_ + __tmp114475))))) + (let* ((___match113285113286_ + (lambda (_e110212110249_ + _hd110211110252_ + _tl110210110254_ + _e110215110257_ + _hd110214110260_ + _tl110213110262_ + _e110218110265_ + _hd110217110268_ + _tl110216110270_ + _e110221110273_ + _hd110220110276_ + _tl110219110278_ + _e110224110281_ + _hd110223110284_ + _tl110222110286_ + _e110227110289_ + _hd110226110292_ + _tl110225110294_ + _e110230110297_ + _hd110229110300_ + _tl110228110302_ + _e110233110305_ + _hd110232110308_ + _tl110231110310_ + _e110236110313_ + _hd110235110316_ + _tl110234110318_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110224110298_)) - (let ((_e110235110317_ + (gx#stx-pair? _tl110228110302_)) + (let ((_e110239110321_ (let () (declare (not safe)) - (gx#stx-e _tl110224110298_)))) - (let ((_tl110233110322_ + (gx#stx-e _tl110228110302_)))) + (let ((_tl110237110326_ (let () (declare (not safe)) - (##cdr _e110235110317_))) - (_hd110234110320_ + (##cdr _e110239110321_))) + (_hd110238110324_ (let () (declare (not safe)) - (##car _e110235110317_)))) + (##car _e110239110321_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110233110322_)) + _tl110237110326_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl110209110258_)) - (___kont113184113185_ - _hd110231110312_ - _hd110222110288_ - _hd110207110248_) + _tl110213110262_)) + (___kont113188113189_ + _hd110235110316_ + _hd110226110292_ + _hd110211110252_) (let () (declare (not safe)) - (_g110116110240_))) + (_g110120110244_))) (let () (declare (not safe)) - (_g110116110240_))))) + (_g110120110244_))))) (let () (declare (not safe)) - (_g110116110240_))))) - (___match113211113212_ - (lambda (_e110169110363_ - _hd110168110366_ - _tl110167110368_ - ___splice113182113183_ - _target110170110371_ - _tl110172110373_) - (letrec ((_loop110173110376_ - (lambda (_hd110171110379_ - _arg110177110381_) + (_g110120110244_))))) + (___match113215113216_ + (lambda (_e110173110367_ + _hd110172110370_ + _tl110171110372_ + ___splice113186113187_ + _target110174110375_ + _tl110176110377_) + (letrec ((_loop110177110380_ + (lambda (_hd110175110383_ + _arg110181110385_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110171110379_)) - (let ((_e110174110384_ + _hd110175110383_)) + (let ((_e110178110388_ (let () (declare (not safe)) (gx#stx-e - _hd110171110379_)))) - (let ((_lp-tl110176110389_ + _hd110175110383_)))) + (let ((_lp-tl110180110393_ (let () (declare (not safe)) - (##cdr _e110174110384_))) - (_lp-hd110175110387_ + (##cdr _e110178110388_))) + (_lp-hd110179110391_ (let () (declare (not safe)) - (##car _e110174110384_)))) - (let ((__tmp114474 + (##car _e110178110388_)))) + (let ((__tmp114478 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd110175110387_ _arg110177110381_)))) + (cons _lp-hd110179110391_ _arg110181110385_)))) (declare (not safe)) - (_loop110173110376_ _lp-tl110176110389_ __tmp114474)))) + (_loop110177110380_ _lp-tl110180110393_ __tmp114478)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg110178110392_ - (reverse _arg110177110381_))) + (let ((_arg110182110396_ + (reverse _arg110181110385_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110167110368_)) - (let ((_e110181110395_ + _tl110171110372_)) + (let ((_e110185110399_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl110167110368_)))) - (let ((_tl110179110400_ - (let () (declare (not safe)) (##cdr _e110181110395_))) - (_hd110180110398_ + (gx#stx-e _tl110171110372_)))) + (let ((_tl110183110404_ + (let () (declare (not safe)) (##cdr _e110185110399_))) + (_hd110184110402_ (let () (declare (not safe)) - (##car _e110181110395_)))) + (##car _e110185110399_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110180110398_)) - (let ((_e110184110403_ + (gx#stx-pair? _hd110184110402_)) + (let ((_e110188110407_ (let () (declare (not safe)) - (gx#stx-e _hd110180110398_)))) - (let ((_tl110182110408_ + (gx#stx-e _hd110184110402_)))) + (let ((_tl110186110412_ (let () (declare (not safe)) - (##cdr _e110184110403_))) - (_hd110183110406_ + (##cdr _e110188110407_))) + (_hd110187110410_ (let () (declare (not safe)) - (##car _e110184110403_)))) + (##car _e110188110407_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110183110406_)) + (gx#identifier? _hd110187110410_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd110183110406_)) + (gx#stx-eq? '%#call _hd110187110410_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110182110408_)) - (let ((_e110187110411_ + (gx#stx-pair? _tl110186110412_)) + (let ((_e110191110415_ (let () (declare (not safe)) - (gx#stx-e _tl110182110408_)))) - (let ((_tl110185110416_ + (gx#stx-e _tl110186110412_)))) + (let ((_tl110189110420_ (let () (declare (not safe)) - (##cdr _e110187110411_))) - (_hd110186110414_ + (##cdr _e110191110415_))) + (_hd110190110418_ (let () (declare (not safe)) - (##car _e110187110411_)))) + (##car _e110191110415_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110186110414_)) - (let ((_e110190110419_ + _hd110190110418_)) + (let ((_e110194110423_ (let () (declare (not safe)) (gx#stx-e - _hd110186110414_)))) - (let ((_tl110188110424_ + _hd110190110418_)))) + (let ((_tl110192110428_ (let () (declare (not safe)) - (##cdr _e110190110419_))) - (_hd110189110422_ + (##cdr _e110194110423_))) + (_hd110193110426_ (let () (declare (not safe)) - (##car _e110190110419_)))) + (##car _e110194110423_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110189110422_)) + _hd110193110426_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110189110422_)) + _hd110193110426_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl110188110424_)) - (let ((_e110193110427_ + (gx#stx-pair? _tl110192110428_)) + (let ((_e110197110431_ (let () (declare (not safe)) - (gx#stx-e _tl110188110424_)))) - (let ((_tl110191110432_ + (gx#stx-e _tl110192110428_)))) + (let ((_tl110195110436_ (let () (declare (not safe)) - (##cdr _e110193110427_))) - (_hd110192110430_ + (##cdr _e110197110431_))) + (_hd110196110434_ (let () (declare (not safe)) - (##car _e110193110427_)))) + (##car _e110197110431_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110191110432_)) + (gx#stx-null? _tl110195110436_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110185110416_)) - (let ((_e110196110435_ + (gx#stx-pair? _tl110189110420_)) + (let ((_e110200110439_ (let () (declare (not safe)) - (gx#stx-e _tl110185110416_)))) - (let ((_tl110194110440_ + (gx#stx-e _tl110189110420_)))) + (let ((_tl110198110444_ (let () (declare (not safe)) - (##cdr _e110196110435_))) - (_hd110195110438_ + (##cdr _e110200110439_))) + (_hd110199110442_ (let () (declare (not safe)) - (##car _e110196110435_)))) + (##car _e110200110439_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110195110438_)) - (let ((_e110199110443_ + (gx#stx-pair? _hd110199110442_)) + (let ((_e110203110447_ (let () (declare (not safe)) (gx#stx-e - _hd110195110438_)))) - (let ((_tl110197110448_ + _hd110199110442_)))) + (let ((_tl110201110452_ (let () (declare (not safe)) - (##cdr _e110199110443_))) - (_hd110198110446_ + (##cdr _e110203110447_))) + (_hd110202110450_ (let () (declare (not safe)) - (##car _e110199110443_)))) + (##car _e110203110447_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110198110446_)) + _hd110202110450_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110198110446_)) + _hd110202110450_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110197110448_)) - (let ((_e110202110451_ + _tl110201110452_)) + (let ((_e110206110455_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl110197110448_)))) - (let ((_tl110200110456_ + (gx#stx-e _tl110201110452_)))) + (let ((_tl110204110460_ (let () (declare (not safe)) - (##cdr _e110202110451_))) - (_hd110201110454_ + (##cdr _e110206110455_))) + (_hd110205110458_ (let () (declare (not safe)) - (##car _e110202110451_)))) + (##car _e110206110455_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110200110456_)) + (gx#stx-null? _tl110204110460_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl110179110400_)) - (___kont113180113181_ - _hd110201110454_ - _hd110192110430_ - _tl110172110373_ - _arg110178110392_) - (___match113281113282_ - _e110169110363_ - _hd110168110366_ - _tl110167110368_ - _e110181110395_ - _hd110180110398_ - _tl110179110400_ - _e110184110403_ - _hd110183110406_ - _tl110182110408_ - _e110187110411_ - _hd110186110414_ - _tl110185110416_ - _e110190110419_ - _hd110189110422_ - _tl110188110424_ - _e110193110427_ - _hd110192110430_ - _tl110191110432_ - _e110196110435_ - _hd110195110438_ - _tl110194110440_ - _e110199110443_ - _hd110198110446_ - _tl110197110448_ - _e110202110451_ - _hd110201110454_ - _tl110200110456_)) - (let () (declare (not safe)) (_g110116110240_))))) - (let () (declare (not safe)) (_g110116110240_))) - (let () (declare (not safe)) (_g110116110240_))) + (gx#stx-null? _tl110183110404_)) + (___kont113184113185_ + _hd110205110458_ + _hd110196110434_ + _tl110176110377_ + _arg110182110396_) + (___match113285113286_ + _e110173110367_ + _hd110172110370_ + _tl110171110372_ + _e110185110399_ + _hd110184110402_ + _tl110183110404_ + _e110188110407_ + _hd110187110410_ + _tl110186110412_ + _e110191110415_ + _hd110190110418_ + _tl110189110420_ + _e110194110423_ + _hd110193110426_ + _tl110192110428_ + _e110197110431_ + _hd110196110434_ + _tl110195110436_ + _e110200110439_ + _hd110199110442_ + _tl110198110444_ + _e110203110447_ + _hd110202110450_ + _tl110201110452_ + _e110206110455_ + _hd110205110458_ + _tl110204110460_)) + (let () (declare (not safe)) (_g110120110244_))))) + (let () (declare (not safe)) (_g110120110244_))) + (let () (declare (not safe)) (_g110120110244_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110116110240_))))) + (_g110120110244_))))) (let () (declare (not safe)) - (_g110116110240_))))) + (_g110120110244_))))) (let () (declare (not safe)) - (_g110116110240_))) + (_g110120110244_))) (let () (declare (not safe)) - (_g110116110240_))))) - (let () (declare (not safe)) (_g110116110240_))) - (let () (declare (not safe)) (_g110116110240_))) - (let () (declare (not safe)) (_g110116110240_))))) + (_g110120110244_))))) + (let () (declare (not safe)) (_g110120110244_))) + (let () (declare (not safe)) (_g110120110244_))) + (let () (declare (not safe)) (_g110120110244_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110116110240_))))) + (_g110120110244_))))) (let () (declare (not safe)) - (_g110116110240_))) + (_g110120110244_))) (let () (declare (not safe)) - (_g110116110240_))) + (_g110120110244_))) (let () (declare (not safe)) - (_g110116110240_))))) - (let () (declare (not safe)) (_g110116110240_))))) - (let () (declare (not safe)) (_g110116110240_)))))))) + (_g110120110244_))))) + (let () (declare (not safe)) (_g110120110244_))))) + (let () (declare (not safe)) (_g110120110244_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110173110376_ - _target110170110371_ + (_loop110177110380_ + _target110174110375_ '()))))) - (___match113199113200_ - (lambda (_e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_) - (letrec ((_loop110127110512_ - (lambda (_hd110125110515_ - _arg110131110517_) + (___match113203113204_ + (lambda (_e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_) + (letrec ((_loop110131110516_ + (lambda (_hd110129110519_ + _arg110135110521_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110125110515_)) - (let ((_e110128110520_ + _hd110129110519_)) + (let ((_e110132110524_ (let () (declare (not safe)) (gx#stx-e - _hd110125110515_)))) - (let ((_lp-tl110130110525_ + _hd110129110519_)))) + (let ((_lp-tl110134110529_ (let () (declare (not safe)) - (##cdr _e110128110520_))) - (_lp-hd110129110523_ + (##cdr _e110132110524_))) + (_lp-hd110133110527_ (let () (declare (not safe)) - (##car _e110128110520_)))) - (let ((__tmp114476 + (##car _e110132110524_)))) + (let ((__tmp114480 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd110129110523_ _arg110131110517_)))) + (cons _lp-hd110133110527_ _arg110135110521_)))) (declare (not safe)) - (_loop110127110512_ _lp-tl110130110525_ __tmp114476)))) + (_loop110131110516_ _lp-tl110134110529_ __tmp114480)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg110132110528_ - (reverse _arg110131110517_))) + (let ((_arg110136110532_ + (reverse _arg110135110521_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110121110504_)) - (let ((_e110135110531_ + _tl110125110508_)) + (let ((_e110139110535_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl110121110504_)))) - (let ((_tl110133110536_ - (let () (declare (not safe)) (##cdr _e110135110531_))) - (_hd110134110534_ + (gx#stx-e _tl110125110508_)))) + (let ((_tl110137110540_ + (let () (declare (not safe)) (##cdr _e110139110535_))) + (_hd110138110538_ (let () (declare (not safe)) - (##car _e110135110531_)))) + (##car _e110139110535_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110134110534_)) - (let ((_e110138110539_ + (gx#stx-pair? _hd110138110538_)) + (let ((_e110142110543_ (let () (declare (not safe)) - (gx#stx-e _hd110134110534_)))) - (let ((_tl110136110544_ + (gx#stx-e _hd110138110538_)))) + (let ((_tl110140110548_ (let () (declare (not safe)) - (##cdr _e110138110539_))) - (_hd110137110542_ + (##cdr _e110142110543_))) + (_hd110141110546_ (let () (declare (not safe)) - (##car _e110138110539_)))) + (##car _e110142110543_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110137110542_)) + (gx#identifier? _hd110141110546_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd110137110542_)) + (gx#stx-eq? '%#call _hd110141110546_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110136110544_)) - (let ((_e110141110547_ + (gx#stx-pair? _tl110140110548_)) + (let ((_e110145110551_ (let () (declare (not safe)) - (gx#stx-e _tl110136110544_)))) - (let ((_tl110139110552_ + (gx#stx-e _tl110140110548_)))) + (let ((_tl110143110556_ (let () (declare (not safe)) - (##cdr _e110141110547_))) - (_hd110140110550_ + (##cdr _e110145110551_))) + (_hd110144110554_ (let () (declare (not safe)) - (##car _e110141110547_)))) + (##car _e110145110551_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110140110550_)) - (let ((_e110144110555_ + _hd110144110554_)) + (let ((_e110148110559_ (let () (declare (not safe)) (gx#stx-e - _hd110140110550_)))) - (let ((_tl110142110560_ + _hd110144110554_)))) + (let ((_tl110146110564_ (let () (declare (not safe)) - (##cdr _e110144110555_))) - (_hd110143110558_ + (##cdr _e110148110559_))) + (_hd110147110562_ (let () (declare (not safe)) - (##car _e110144110555_)))) + (##car _e110148110559_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110143110558_)) + _hd110147110562_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110143110558_)) + _hd110147110562_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl110142110560_)) - (let ((_e110147110563_ + (gx#stx-pair? _tl110146110564_)) + (let ((_e110151110567_ (let () (declare (not safe)) - (gx#stx-e _tl110142110560_)))) - (let ((_tl110145110568_ + (gx#stx-e _tl110146110564_)))) + (let ((_tl110149110572_ (let () (declare (not safe)) - (##cdr _e110147110563_))) - (_hd110146110566_ + (##cdr _e110151110567_))) + (_hd110150110570_ (let () (declare (not safe)) - (##car _e110147110563_)))) + (##car _e110151110567_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110145110568_)) + (gx#stx-null? _tl110149110572_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl110139110552_)) - (let ((___splice113178113179_ + (gx#stx-pair/null? _tl110143110556_)) + (let ((___splice113182113183_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl110139110552_ + _tl110143110556_ '0)))) - (let ((_tl110150110573_ + (let ((_tl110154110577_ (let () (declare (not safe)) (##vector-ref - ___splice113178113179_ + ___splice113182113183_ '1))) - (_target110148110571_ + (_target110152110575_ (let () (declare (not safe)) (##vector-ref - ___splice113178113179_ + ___splice113182113183_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110150110573_)) - (letrec ((_loop110151110576_ - (lambda (_hd110149110579_ - _xarg110155110581_) + (gx#stx-null? _tl110154110577_)) + (letrec ((_loop110155110580_ + (lambda (_hd110153110583_ + _xarg110159110585_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110149110579_)) - (let ((_e110152110584_ + _hd110153110583_)) + (let ((_e110156110588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd110149110579_)))) - (let ((_lp-tl110154110589_ + (gx#stx-e _hd110153110583_)))) + (let ((_lp-tl110158110593_ (let () (declare (not safe)) - (##cdr _e110152110584_))) - (_lp-hd110153110587_ + (##cdr _e110156110588_))) + (_lp-hd110157110591_ (let () (declare (not safe)) - (##car _e110152110584_)))) + (##car _e110156110588_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd110153110587_)) - (let ((_e110159110592_ + (gx#stx-pair? _lp-hd110157110591_)) + (let ((_e110163110596_ (let () (declare (not safe)) - (gx#stx-e _lp-hd110153110587_)))) - (let ((_tl110157110597_ + (gx#stx-e _lp-hd110157110591_)))) + (let ((_tl110161110601_ (let () (declare (not safe)) - (##cdr _e110159110592_))) - (_hd110158110595_ + (##cdr _e110163110596_))) + (_hd110162110599_ (let () (declare (not safe)) - (##car _e110159110592_)))) + (##car _e110163110596_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110158110595_)) + (gx#identifier? _hd110162110599_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110158110595_)) + (gx#stx-eq? '%#ref _hd110162110599_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110157110597_)) - (let ((_e110162110600_ + (gx#stx-pair? _tl110161110601_)) + (let ((_e110166110604_ (let () (declare (not safe)) (gx#stx-e - _tl110157110597_)))) - (let ((_tl110160110605_ + _tl110161110601_)))) + (let ((_tl110164110609_ (let () (declare (not safe)) - (##cdr _e110162110600_))) - (_hd110161110603_ + (##cdr _e110166110604_))) + (_hd110165110607_ (let () (declare (not safe)) - (##car _e110162110600_)))) + (##car _e110166110604_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110160110605_)) - (let ((__tmp114475 + _tl110164110609_)) + (let ((__tmp114479 (let () (declare (not safe)) - (cons _hd110161110603_ + (cons _hd110165110607_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg110155110581_)))) + _xarg110159110585_)))) (declare (not safe)) - (_loop110151110576_ _lp-tl110154110589_ __tmp114475)) + (_loop110155110580_ _lp-tl110158110593_ __tmp114479)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) - (let ((_xarg110156110608_ (reverse _xarg110155110581_))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) + (let ((_xarg110160110612_ (reverse _xarg110159110585_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110133110536_)) - (___kont113174113175_ - _xarg110156110608_ - _hd110146110566_ - _arg110132110528_) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_))))))) + (gx#stx-null? _tl110137110540_)) + (___kont113178113179_ + _xarg110160110612_ + _hd110150110570_ + _arg110136110532_) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110151110576_ - _target110148110571_ + (_loop110155110580_ + _target110152110575_ '()))) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_))))))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110127110512_ - _target110124110507_ + (_loop110131110516_ + _target110128110511_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113172113173_)) - (let ((_e110123110499_ + (gx#stx-pair? ___stx113176113177_)) + (let ((_e110127110503_ (let () (declare (not safe)) - (gx#stx-e ___stx113172113173_)))) - (let ((_tl110121110504_ + (gx#stx-e ___stx113176113177_)))) + (let ((_tl110125110508_ (let () (declare (not safe)) - (##cdr _e110123110499_))) - (_hd110122110502_ + (##cdr _e110127110503_))) + (_hd110126110506_ (let () (declare (not safe)) - (##car _e110123110499_)))) + (##car _e110127110503_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd110122110502_)) - (let ((___splice113176113177_ + (gx#stx-pair/null? _hd110126110506_)) + (let ((___splice113180113181_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd110122110502_ + _hd110126110506_ '0)))) - (let ((_tl110126110509_ + (let ((_tl110130110513_ (let () (declare (not safe)) (##vector-ref - ___splice113176113177_ + ___splice113180113181_ '1))) - (_target110124110507_ + (_target110128110511_ (let () (declare (not safe)) (##vector-ref - ___splice113176113177_ + ___splice113180113181_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110126110509_)) - (___match113199113200_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_) - (___match113211113212_ - _e110123110499_ - _hd110122110502_ - _tl110121110504_ - ___splice113176113177_ - _target110124110507_ - _tl110126110509_)))) + _tl110130110513_)) + (___match113203113204_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_) + (___match113215113216_ + _e110127110503_ + _hd110126110506_ + _tl110125110508_ + ___splice113180113181_ + _target110128110511_ + _tl110130110513_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110121110504_)) - (let ((_e110211110253_ + (gx#stx-pair? _tl110125110508_)) + (let ((_e110215110257_ (let () (declare (not safe)) (gx#stx-e - _tl110121110504_)))) - (let ((_tl110209110258_ + _tl110125110508_)))) + (let ((_tl110213110262_ (let () (declare (not safe)) - (##cdr _e110211110253_))) - (_hd110210110256_ + (##cdr _e110215110257_))) + (_hd110214110260_ (let () (declare (not safe)) - (##car _e110211110253_)))) + (##car _e110215110257_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110210110256_)) - (let ((_e110214110261_ + _hd110214110260_)) + (let ((_e110218110265_ (let () (declare (not safe)) (gx#stx-e - _hd110210110256_)))) - (let ((_tl110212110266_ + _hd110214110260_)))) + (let ((_tl110216110270_ (let () (declare (not safe)) - (##cdr _e110214110261_))) - (_hd110213110264_ + (##cdr _e110218110265_))) + (_hd110217110268_ (let () (declare (not safe)) - (##car _e110214110261_)))) + (##car _e110218110265_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110213110264_)) + _hd110217110268_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _hd110213110264_)) + (gx#stx-eq? '%#call _hd110217110268_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110212110266_)) - (let ((_e110217110269_ + (gx#stx-pair? _tl110216110270_)) + (let ((_e110221110273_ (let () (declare (not safe)) - (gx#stx-e _tl110212110266_)))) - (let ((_tl110215110274_ + (gx#stx-e _tl110216110270_)))) + (let ((_tl110219110278_ (let () (declare (not safe)) - (##cdr _e110217110269_))) - (_hd110216110272_ + (##cdr _e110221110273_))) + (_hd110220110276_ (let () (declare (not safe)) - (##car _e110217110269_)))) + (##car _e110221110273_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110216110272_)) - (let ((_e110220110277_ + (gx#stx-pair? _hd110220110276_)) + (let ((_e110224110281_ (let () (declare (not safe)) - (gx#stx-e _hd110216110272_)))) - (let ((_tl110218110282_ + (gx#stx-e _hd110220110276_)))) + (let ((_tl110222110286_ (let () (declare (not safe)) - (##cdr _e110220110277_))) - (_hd110219110280_ + (##cdr _e110224110281_))) + (_hd110223110284_ (let () (declare (not safe)) - (##car _e110220110277_)))) + (##car _e110224110281_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110219110280_)) + (gx#identifier? _hd110223110284_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110219110280_)) + _hd110223110284_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110218110282_)) - (let ((_e110223110285_ + _tl110222110286_)) + (let ((_e110227110289_ (let () (declare (not safe)) (gx#stx-e - _tl110218110282_)))) - (let ((_tl110221110290_ + _tl110222110286_)))) + (let ((_tl110225110294_ (let () (declare (not safe)) - (##cdr _e110223110285_))) - (_hd110222110288_ + (##cdr _e110227110289_))) + (_hd110226110292_ (let () (declare (not safe)) - (##car _e110223110285_)))) + (##car _e110227110289_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110221110290_)) + _tl110225110294_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl110215110274_)) - (let ((_e110226110293_ + (gx#stx-pair? _tl110219110278_)) + (let ((_e110230110297_ (let () (declare (not safe)) - (gx#stx-e _tl110215110274_)))) - (let ((_tl110224110298_ + (gx#stx-e _tl110219110278_)))) + (let ((_tl110228110302_ (let () (declare (not safe)) - (##cdr _e110226110293_))) - (_hd110225110296_ + (##cdr _e110230110297_))) + (_hd110229110300_ (let () (declare (not safe)) - (##car _e110226110293_)))) + (##car _e110230110297_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110225110296_)) - (let ((_e110229110301_ + (gx#stx-pair? _hd110229110300_)) + (let ((_e110233110305_ (let () (declare (not safe)) - (gx#stx-e _hd110225110296_)))) - (let ((_tl110227110306_ + (gx#stx-e _hd110229110300_)))) + (let ((_tl110231110310_ (let () (declare (not safe)) - (##cdr _e110229110301_))) - (_hd110228110304_ + (##cdr _e110233110305_))) + (_hd110232110308_ (let () (declare (not safe)) - (##car _e110229110301_)))) + (##car _e110233110305_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110228110304_)) + (gx#identifier? _hd110232110308_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110228110304_)) + _hd110232110308_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110227110306_)) - (let ((_e110232110309_ + _tl110231110310_)) + (let ((_e110236110313_ (let () (declare (not safe)) (gx#stx-e - _tl110227110306_)))) - (let ((_tl110230110314_ + _tl110231110310_)))) + (let ((_tl110234110318_ (let () (declare (not safe)) - (##cdr _e110232110309_))) - (_hd110231110312_ + (##cdr _e110236110313_))) + (_hd110235110316_ (let () (declare (not safe)) - (##car _e110232110309_)))) + (##car _e110236110313_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110230110314_)) + _tl110234110318_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110224110298_)) - (let ((_e110235110317_ + _tl110228110302_)) + (let ((_e110239110321_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl110224110298_)))) - (let ((_tl110233110322_ + (gx#stx-e _tl110228110302_)))) + (let ((_tl110237110326_ (let () (declare (not safe)) - (##cdr _e110235110317_))) - (_hd110234110320_ + (##cdr _e110239110321_))) + (_hd110238110324_ (let () (declare (not safe)) - (##car _e110235110317_)))) + (##car _e110239110321_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110233110322_)) + (gx#stx-null? _tl110237110326_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl110209110258_)) - (___kont113184113185_ - _hd110231110312_ - _hd110222110288_ - _hd110122110502_) - (let () (declare (not safe)) (_g110116110240_))) - (let () (declare (not safe)) (_g110116110240_))))) - (let () (declare (not safe)) (_g110116110240_))) - (let () (declare (not safe)) (_g110116110240_))))) + (gx#stx-null? _tl110213110262_)) + (___kont113188113189_ + _hd110235110316_ + _hd110226110292_ + _hd110126110506_) + (let () (declare (not safe)) (_g110120110244_))) + (let () (declare (not safe)) (_g110120110244_))))) + (let () (declare (not safe)) (_g110120110244_))) + (let () (declare (not safe)) (_g110120110244_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110116110240_))) + (_g110120110244_))) (let () (declare (not safe)) - (_g110116110240_))) + (_g110120110244_))) (let () (declare (not safe)) - (_g110116110240_))))) + (_g110120110244_))))) (let () (declare (not safe)) - (_g110116110240_))))) - (let () (declare (not safe)) (_g110116110240_))) - (let () (declare (not safe)) (_g110116110240_))))) + (_g110120110244_))))) + (let () (declare (not safe)) (_g110120110244_))) + (let () (declare (not safe)) (_g110120110244_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110116110240_))) + (_g110120110244_))) (let () (declare (not safe)) - (_g110116110240_))) + (_g110120110244_))) (let () (declare (not safe)) - (_g110116110240_))))) + (_g110120110244_))))) (let () (declare (not safe)) - (_g110116110240_))))) - (let () (declare (not safe)) (_g110116110240_))) - (let () (declare (not safe)) (_g110116110240_))) - (let () (declare (not safe)) (_g110116110240_))))) + (_g110120110244_))))) + (let () (declare (not safe)) (_g110120110244_))) + (let () (declare (not safe)) (_g110120110244_))) + (let () (declare (not safe)) (_g110120110244_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110116110240_))))) + (_g110120110244_))))) (let () (declare (not safe)) - (_g110116110240_)))))) + (_g110120110244_)))))) (let () (declare (not safe)) - (_g110116110240_)))))))) - (_generate1109962_ - (lambda (_args110097_ _arglen110098_ _hd110099_ _body110100_) - (let* ((_len110102_ + (_g110120110244_)))))))) + (_generate1109966_ + (lambda (_args110101_ _arglen110102_ _hd110103_ _body110104_) + (let* ((_len110106_ (let () (declare (not safe)) - (gx#stx-length _hd110099_))) - (_condition110104_ + (gx#stx-length _hd110103_))) + (_condition110108_ (if (let () (declare (not safe)) - (gx#stx-list? _hd110099_)) + (gx#stx-list? _hd110103_)) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114491 - (let ((__tmp114492 + (let ((__tmp114495 + (let ((__tmp114496 (let () (declare (not safe)) - (cons _len110102_ '())))) + (cons _len110106_ '())))) (declare (not safe)) - (cons _arglen110098_ - __tmp114492)))) + (cons _arglen110102_ + __tmp114496)))) (declare (not safe)) - (cons '##fx= __tmp114491)) - (let ((__tmp114485 - (let ((__tmp114486 - (let ((__tmp114487 - (let ((__tmp114488 - (let ((__tmp114489 + (cons '##fx= __tmp114495)) + (let ((__tmp114489 + (let ((__tmp114490 + (let ((__tmp114491 + (let ((__tmp114492 + (let ((__tmp114493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114490 + (let ((__tmp114494 (let () (declare (not safe)) - (cons _len110102_ '())))) + (cons _len110106_ '())))) (declare (not safe)) - (cons _arglen110098_ __tmp114490)))) + (cons _arglen110102_ __tmp114494)))) (declare (not safe)) - (cons '##fx= __tmp114489)))) + (cons '##fx= __tmp114493)))) (declare (not safe)) - (cons __tmp114488 '())))) + (cons __tmp114492 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114487)))) + __tmp114491)))) (declare (not safe)) - (cons '() __tmp114486)))) + (cons '() __tmp114490)))) (declare (not safe)) - (cons 'let __tmp114485))) - (if (> _len110102_ '0) + (cons 'let __tmp114489))) + (if (> _len110106_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114483 - (let ((__tmp114484 + (let ((__tmp114487 + (let ((__tmp114488 (let () (declare (not safe)) - (cons _len110102_ + (cons _len110106_ '())))) (declare (not safe)) - (cons _arglen110098_ - __tmp114484)))) + (cons _arglen110102_ + __tmp114488)))) (declare (not safe)) - (cons '##fx>= __tmp114483)) - (let ((__tmp114477 - (let ((__tmp114478 - (let ((__tmp114479 - (let ((__tmp114480 + (cons '##fx>= __tmp114487)) + (let ((__tmp114481 + (let ((__tmp114482 + (let ((__tmp114483 + (let ((__tmp114484 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114481 - (let ((__tmp114482 + (let ((__tmp114485 + (let ((__tmp114486 (let () (declare (not safe)) - (cons _len110102_ '())))) + (cons _len110106_ '())))) (declare (not safe)) - (cons _arglen110098_ __tmp114482)))) + (cons _arglen110102_ __tmp114486)))) (declare (not safe)) - (cons '##fx>= __tmp114481)))) + (cons '##fx>= __tmp114485)))) (declare (not safe)) - (cons __tmp114480 '())))) + (cons __tmp114484 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114479)))) + (cons '(declare (not safe)) __tmp114483)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp114478)))) + (cons '() __tmp114482)))) (declare (not safe)) - (cons 'let __tmp114477))) + (cons 'let __tmp114481))) '#t))) - (_dispatch110106_ + (_dispatch110110_ (if (let () (declare (not safe)) - (_dispatch-case?109960_ - _hd110099_ - _body110100_)) + (_dispatch-case?109964_ + _hd110103_ + _body110104_)) (let () (declare (not safe)) - (_dispatch-case-e109961_ - _hd110099_ - _body110100_)) + (_dispatch-case-e109965_ + _hd110103_ + _body110104_)) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _self109957_ - _hd110099_ - _body110100_))))) - (let ((__tmp114493 - (let ((__tmp114494 - (let ((__tmp114495 - (let ((__tmp114496 + _self109961_ + _hd110103_ + _body110104_))))) + (let ((__tmp114497 + (let ((__tmp114498 + (let ((__tmp114499 + (let ((__tmp114500 (let () (declare (not safe)) - (cons _args110097_ '())))) + (cons _args110101_ '())))) (declare (not safe)) - (cons _dispatch110106_ - __tmp114496)))) + (cons _dispatch110110_ + __tmp114500)))) (declare (not safe)) - (cons 'apply __tmp114495)))) + (cons 'apply __tmp114499)))) (declare (not safe)) - (cons __tmp114494 '())))) + (cons __tmp114498 '())))) (declare (not safe)) - (cons _condition110104_ __tmp114493)))))) - (let* ((_g109964109992_ - (lambda (_g109965109989_) + (cons _condition110108_ __tmp114497)))))) + (let* ((_g109968109996_ + (lambda (_g109969109993_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109965109989_)))) - (_g109963110094_ - (lambda (_g109965109995_) + _g109969109993_)))) + (_g109967110098_ + (lambda (_g109969109999_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109965109995_)) - (let ((_e109970109997_ + (gx#stx-pair? _g109969109999_)) + (let ((_e109974110001_ (let () (declare (not safe)) - (gx#stx-e _g109965109995_)))) - (let ((_hd109969110000_ + (gx#stx-e _g109969109999_)))) + (let ((_hd109973110004_ (let () (declare (not safe)) - (##car _e109970109997_))) - (_tl109968110002_ + (##car _e109974110001_))) + (_tl109972110006_ (let () (declare (not safe)) - (##cdr _e109970109997_)))) + (##cdr _e109974110001_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl109968110002_)) - (let ((_g114497_ + (gx#stx-pair/null? _tl109972110006_)) + (let ((_g114501_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl109968110002_ + _tl109972110006_ '0)))) (begin - (let ((_g114498_ + (let ((_g114502_ (let () (declare (not safe)) - (if (##values? _g114497_) - (##vector-length _g114497_) + (if (##values? _g114501_) + (##vector-length _g114501_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114498_ 2))) + (##fx= _g114502_ 2))) (error "Context expects 2 values" - _g114498_))) - (let ((_target109971110005_ + _g114502_))) + (let ((_target109975110009_ (let () (declare (not safe)) - (##vector-ref _g114497_ 0))) - (_tl109973110007_ + (##vector-ref _g114501_ 0))) + (_tl109977110011_ (let () (declare (not safe)) - (##vector-ref _g114497_ 1)))) + (##vector-ref _g114501_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109973110007_)) - (letrec ((_loop109974110010_ - (lambda (_hd109972110013_ - _body109978110015_ - _hd109979110017_) + (gx#stx-null? _tl109977110011_)) + (letrec ((_loop109978110014_ + (lambda (_hd109976110017_ + _body109982110019_ + _hd109983110021_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd109972110013_)) - (let ((_e109975110020_ + _hd109976110017_)) + (let ((_e109979110024_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd109972110013_)))) - (let ((_lp-hd109976110023_ + (gx#stx-e _hd109976110017_)))) + (let ((_lp-hd109980110027_ (let () (declare (not safe)) - (##car _e109975110020_))) - (_lp-tl109977110025_ + (##car _e109979110024_))) + (_lp-tl109981110029_ (let () (declare (not safe)) - (##cdr _e109975110020_)))) + (##cdr _e109979110024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd109976110023_)) - (let ((_e109984110028_ + (gx#stx-pair? _lp-hd109980110027_)) + (let ((_e109988110032_ (let () (declare (not safe)) - (gx#stx-e _lp-hd109976110023_)))) - (let ((_hd109983110031_ + (gx#stx-e _lp-hd109980110027_)))) + (let ((_hd109987110035_ (let () (declare (not safe)) - (##car _e109984110028_))) - (_tl109982110033_ + (##car _e109988110032_))) + (_tl109986110037_ (let () (declare (not safe)) - (##cdr _e109984110028_)))) + (##cdr _e109988110032_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109982110033_)) - (let ((_e109987110036_ + (gx#stx-pair? _tl109986110037_)) + (let ((_e109991110040_ (let () (declare (not safe)) - (gx#stx-e _tl109982110033_)))) - (let ((_hd109986110039_ + (gx#stx-e _tl109986110037_)))) + (let ((_hd109990110043_ (let () (declare (not safe)) - (##car _e109987110036_))) - (_tl109985110041_ + (##car _e109991110040_))) + (_tl109989110045_ (let () (declare (not safe)) - (##cdr _e109987110036_)))) + (##cdr _e109991110040_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109985110041_)) - (let ((__tmp114527 + (gx#stx-null? _tl109989110045_)) + (let ((__tmp114531 (let () (declare (not safe)) - (cons _hd109986110039_ - _body109978110015_))) - (__tmp114526 + (cons _hd109990110043_ + _body109982110019_))) + (__tmp114530 (let () (declare (not safe)) - (cons _hd109983110031_ - _hd109979110017_)))) + (cons _hd109987110035_ + _hd109983110021_)))) (declare (not safe)) - (_loop109974110010_ - _lp-tl109977110025_ - __tmp114527 - __tmp114526)) + (_loop109978110014_ + _lp-tl109981110029_ + __tmp114531 + __tmp114530)) (let () (declare (not safe)) - (_g109964109992_ - _g109965109995_))))) + (_g109968109996_ + _g109969109999_))))) (let () (declare (not safe)) - (_g109964109992_ _g109965109995_))))) + (_g109968109996_ _g109969109999_))))) (let () (declare (not safe)) - (_g109964109992_ _g109965109995_))))) - (let ((_body109980110044_ (reverse _body109978110015_)) - (_hd109981110046_ (reverse _hd109979110017_))) - ((lambda (_L110049_ _L110050_) - (let ((_args110069_ + (_g109968109996_ _g109969109999_))))) + (let ((_body109984110048_ (reverse _body109982110019_)) + (_hd109985110050_ (reverse _hd109983110021_))) + ((lambda (_L110053_ _L110054_) + (let ((_args110073_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_arglen110070_ + (_arglen110074_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_name110071_ - (let ((_$e110066_ - (let ((__tmp114499 + (_name110075_ + (let ((_$e110070_ + (let ((__tmp114503 (gxc#current-compile-runtime-names))) (declare (not safe)) - (hash-get __tmp114499 _stx109958_)))) - (if _$e110066_ - _$e110066_ + (hash-get __tmp114503 _stx109962_)))) + (if _$e110070_ + _$e110070_ ''case-lambda-dispatch)))) - (let ((__tmp114500 - (let ((__tmp114501 - (let ((__tmp114502 - (let ((__tmp114503 - (let ((__tmp114516 - (let ((__tmp114517 + (let ((__tmp114504 + (let ((__tmp114505 + (let ((__tmp114506 + (let ((__tmp114507 + (let ((__tmp114520 + (let ((__tmp114521 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114518 - (let ((__tmp114519 + (let ((__tmp114522 + (let ((__tmp114523 (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114525 + (let ((__tmp114529 (let () (declare (not safe)) - (cons _args110069_ + (cons _args110073_ '())))) (declare (not safe)) - (cons '##length __tmp114525)) - (let ((__tmp114520 - (let ((__tmp114521 - (let ((__tmp114522 + (cons '##length __tmp114529)) + (let ((__tmp114524 + (let ((__tmp114525 + (let ((__tmp114526 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114523 - (let ((__tmp114524 + (let ((__tmp114527 + (let ((__tmp114528 (let () (declare (not safe)) - (cons _args110069_ '())))) + (cons _args110073_ '())))) (declare (not safe)) - (cons '##length __tmp114524)))) + (cons '##length __tmp114528)))) (declare (not safe)) - (cons __tmp114523 '())))) + (cons __tmp114527 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114522)))) + (cons '(declare (not safe)) __tmp114526)))) (declare (not safe)) - (cons '() __tmp114521)))) + (cons '() __tmp114525)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp114520))))) + (cons 'let __tmp114524))))) (declare (not safe)) - (cons __tmp114519 '())))) + (cons __tmp114523 '())))) (declare (not safe)) - (cons _arglen110070_ __tmp114518)))) + (cons _arglen110074_ __tmp114522)))) (declare (not safe)) - (cons __tmp114517 '()))) - (__tmp114504 - (let ((__tmp114505 - (let ((__tmp114506 - (let ((__tmp114510 - (let ((__tmp114511 - (let ((__tmp114512 - (let ((__tmp114513 - (let ((__tmp114514 + (cons __tmp114521 '()))) + (__tmp114508 + (let ((__tmp114509 + (let ((__tmp114510 + (let ((__tmp114514 + (let ((__tmp114515 + (let ((__tmp114516 + (let ((__tmp114517 + (let ((__tmp114518 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114515 + (let ((__tmp114519 (let () (declare (not safe)) - (cons _args110069_ '())))) + (cons _args110073_ '())))) (declare (not safe)) - (cons _name110071_ __tmp114515)))) + (cons _name110075_ __tmp114519)))) (declare (not safe)) (cons '##raise-wrong-number-of-arguments-exception - __tmp114514)))) + __tmp114518)))) (declare (not safe)) - (cons __tmp114513 '())))) + (cons __tmp114517 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'else __tmp114512)))) + (cons 'else __tmp114516)))) (declare (not safe)) - (cons __tmp114511 '()))) - (__tmp114507 - (map (lambda (_g110072110075_ - _g110073110077_) + (cons __tmp114515 '()))) + (__tmp114511 + (map (lambda (_g110076110079_ + _g110077110081_) (let () (declare (not safe)) - (_generate1109962_ - _args110069_ - _arglen110070_ - _g110072110075_ - _g110073110077_))) - (let ((__tmp114508 - (lambda (_g110079110082_ - _g110080110084_) + (_generate1109966_ + _args110073_ + _arglen110074_ + _g110076110079_ + _g110077110081_))) + (let ((__tmp114512 + (lambda (_g110083110086_ + _g110084110088_) (let () (declare (not safe)) - (cons _g110079110082_ - _g110080110084_))))) + (cons _g110083110086_ + _g110084110088_))))) (declare (not safe)) - (foldr1 __tmp114508 + (foldr1 __tmp114512 '() - _L110050_)) - (let ((__tmp114509 - (lambda (_g110086110089_ - _g110087110091_) + _L110054_)) + (let ((__tmp114513 + (lambda (_g110090110093_ + _g110091110095_) (let () (declare (not safe)) - (cons _g110086110089_ - _g110087110091_))))) + (cons _g110090110093_ + _g110091110095_))))) (declare (not safe)) - (foldr1 __tmp114509 + (foldr1 __tmp114513 '() - _L110049_))))) + _L110053_))))) (declare (not safe)) - (foldr1 cons __tmp114510 __tmp114507)))) + (foldr1 cons __tmp114514 __tmp114511)))) (declare (not safe)) - (cons 'cond __tmp114506)))) + (cons 'cond __tmp114510)))) (declare (not safe)) - (cons __tmp114505 '())))) + (cons __tmp114509 '())))) (declare (not safe)) - (cons __tmp114516 __tmp114504)))) + (cons __tmp114520 __tmp114508)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp114503)))) + (cons 'let __tmp114507)))) (declare (not safe)) - (cons __tmp114502 '())))) + (cons __tmp114506 '())))) (declare (not safe)) - (cons _args110069_ __tmp114501)))) + (cons _args110073_ __tmp114505)))) (declare (not safe)) - (cons 'lambda __tmp114500)))) - _body109980110044_ - _hd109981110046_)))))) + (cons 'lambda __tmp114504)))) + _body109984110048_ + _hd109985110050_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop109974110010_ - _target109971110005_ + (_loop109978110014_ + _target109975110009_ '() '()))) (let () (declare (not safe)) - (_g109964109992_ - _g109965109995_)))))) + (_g109968109996_ + _g109969109999_)))))) (let () (declare (not safe)) - (_g109964109992_ _g109965109995_))))) + (_g109968109996_ _g109969109999_))))) (let () (declare (not safe)) - (_g109964109992_ _g109965109995_)))))) + (_g109968109996_ _g109969109999_)))))) (declare (not safe)) - (_g109963110094_ _stx109958_))))) + (_g109967110098_ _stx109962_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_self109228_ _stx109229_ _compiled-body?109230_) - (letrec ((_generate-simple109232_ - (lambda (_hd109942_ _body109943_) - (let ((__tmp114528 - (let ((__tmp114529 + (lambda (_self109232_ _stx109233_ _compiled-body?109234_) + (letrec ((_generate-simple109236_ + (lambda (_hd109946_ _body109947_) + (let ((__tmp114532 + (let ((__tmp114533 (let () (declare (not safe)) (gxc#generate-runtime-simple-let - _self109228_ + _self109232_ 'let - _hd109942_ - _body109943_ - _compiled-body?109230_)))) + _hd109946_ + _body109947_ + _compiled-body?109234_)))) (declare (not safe)) - (_coalesce-let*109234_ __tmp114529)))) + (_coalesce-let*109238_ __tmp114533)))) (declare (not safe)) - (_coalesce-boolean109233_ __tmp114528)))) - (_coalesce-boolean109233_ - (lambda (_code109803_) + (_coalesce-boolean109237_ __tmp114532)))) + (_coalesce-boolean109237_ + (lambda (_code109807_) (if (gxc#current-compile-boolean-context) - (let* ((_code109804109830_ _code109803_) - (_else109806109838_ (lambda () _code109803_)) - (_K109808109875_ - (lambda (_expr2109841_ - _expr1109842_ - _id109843_) - (let* ((_expr2109844109852_ _expr2109841_) - (_else109846109860_ + (let* ((_code109808109834_ _code109807_) + (_else109810109842_ (lambda () _code109807_)) + (_K109812109879_ + (lambda (_expr2109845_ + _expr1109846_ + _id109847_) + (let* ((_expr2109848109856_ _expr2109845_) + (_else109850109864_ (lambda () - (let ((__tmp114530 - (let ((__tmp114531 + (let ((__tmp114534 + (let ((__tmp114535 (let () (declare (not safe)) - (cons _expr2109841_ + (cons _expr2109845_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _expr1109842_ - __tmp114531)))) + (cons _expr1109846_ + __tmp114535)))) (declare (not safe)) - (cons 'or __tmp114530)))) - (_K109848109865_ - (lambda (_exprs109863_) - (let ((__tmp114532 + (cons 'or __tmp114534)))) + (_K109852109869_ + (lambda (_exprs109867_) + (let ((__tmp114536 (let () (declare (not safe)) - (cons _expr1109842_ - _exprs109863_)))) + (cons _expr1109846_ + _exprs109867_)))) (declare (not safe)) - (cons 'or __tmp114532))))) + (cons 'or __tmp114536))))) (if (let () (declare (not safe)) - (##pair? _expr2109844109852_)) - (let ((_hd109849109868_ + (##pair? _expr2109848109856_)) + (let ((_hd109853109872_ (let () (declare (not safe)) - (##car _expr2109844109852_))) - (_tl109850109870_ + (##car _expr2109848109856_))) + (_tl109854109874_ (let () (declare (not safe)) - (##cdr _expr2109844109852_)))) + (##cdr _expr2109848109856_)))) (if (let () (declare (not safe)) - (##eq? _hd109849109868_ 'or)) - (let ((_exprs109873_ - _tl109850109870_)) + (##eq? _hd109853109872_ 'or)) + (let ((_exprs109877_ + _tl109854109874_)) (declare (not safe)) - (_K109848109865_ - _exprs109873_)) + (_K109852109869_ + _exprs109877_)) (let () (declare (not safe)) - (_else109846109860_)))) + (_else109850109864_)))) (let () (declare (not safe)) - (_else109846109860_))))))) + (_else109850109864_))))))) (if (let () (declare (not safe)) - (##pair? _code109804109830_)) - (let ((_hd109809109878_ + (##pair? _code109808109834_)) + (let ((_hd109813109882_ (let () (declare (not safe)) - (##car _code109804109830_))) - (_tl109810109880_ + (##car _code109808109834_))) + (_tl109814109884_ (let () (declare (not safe)) - (##cdr _code109804109830_)))) + (##cdr _code109808109834_)))) (if (let () (declare (not safe)) - (##eq? _hd109809109878_ 'let)) + (##eq? _hd109813109882_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl109810109880_)) - (let ((_hd109811109883_ + (##pair? _tl109814109884_)) + (let ((_hd109815109887_ (let () (declare (not safe)) - (##car _tl109810109880_))) - (_tl109812109885_ + (##car _tl109814109884_))) + (_tl109816109889_ (let () (declare (not safe)) - (##cdr _tl109810109880_)))) + (##cdr _tl109814109884_)))) (if (let () (declare (not safe)) - (##pair? _hd109811109883_)) - (let ((_hd109823109888_ + (##pair? _hd109815109887_)) + (let ((_hd109827109892_ (let () (declare (not safe)) - (##car _hd109811109883_))) - (_tl109824109890_ + (##car _hd109815109887_))) + (_tl109828109894_ (let () (declare (not safe)) - (##cdr _hd109811109883_)))) + (##cdr _hd109815109887_)))) (if (let () (declare (not safe)) - (##pair? _hd109823109888_)) - (let ((_hd109825109893_ + (##pair? _hd109827109892_)) + (let ((_hd109829109897_ (let () (declare (not safe)) - (##car _hd109823109888_))) - (_tl109826109895_ + (##car _hd109827109892_))) + (_tl109830109899_ (let () (declare (not safe)) - (##cdr _hd109823109888_)))) - (let ((_id109898_ - _hd109825109893_)) + (##cdr _hd109827109892_)))) + (let ((_id109902_ + _hd109829109897_)) (if (let () (declare (not safe)) - (##pair? _tl109826109895_)) - (let ((_hd109827109900_ + (##pair? _tl109830109899_)) + (let ((_hd109831109904_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _tl109826109895_))) - (_tl109828109902_ + (##car _tl109830109899_))) + (_tl109832109906_ (let () (declare (not safe)) - (##cdr _tl109826109895_)))) - (let ((_expr1109905_ _hd109827109900_)) + (##cdr _tl109830109899_)))) + (let ((_expr1109909_ _hd109831109904_)) (if (let () (declare (not safe)) - (##null? _tl109828109902_)) + (##null? _tl109832109906_)) (if (let () (declare (not safe)) - (##null? _tl109824109890_)) + (##null? _tl109828109894_)) (if (let () (declare (not safe)) - (##pair? _tl109812109885_)) - (let ((_hd109813109907_ + (##pair? _tl109816109889_)) + (let ((_hd109817109911_ (let () (declare (not safe)) - (##car _tl109812109885_))) - (_tl109814109909_ + (##car _tl109816109889_))) + (_tl109818109913_ (let () (declare (not safe)) - (##cdr _tl109812109885_)))) + (##cdr _tl109816109889_)))) (if (let () (declare (not safe)) - (##pair? _hd109813109907_)) - (let ((_hd109815109912_ + (##pair? _hd109817109911_)) + (let ((_hd109819109916_ (let () (declare (not safe)) - (##car _hd109813109907_))) - (_tl109816109914_ + (##car _hd109817109911_))) + (_tl109820109918_ (let () (declare (not safe)) - (##cdr _hd109813109907_)))) + (##cdr _hd109817109911_)))) (if (let () (declare (not safe)) - (##eq? _hd109815109912_ 'if)) + (##eq? _hd109819109916_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl109816109914_)) - (let ((_hd109817109917_ + (##pair? _tl109820109918_)) + (let ((_hd109821109921_ (let () (declare (not safe)) - (##car _tl109816109914_))) - (_tl109818109919_ + (##car _tl109820109918_))) + (_tl109822109923_ (let () (declare (not safe)) - (##cdr _tl109816109914_)))) - (if ((lambda (_g109921109923_) + (##cdr _tl109820109918_)))) + (if ((lambda (_g109925109927_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (eq? _g109921109923_ _id109898_))) - _hd109817109917_) - (if (let () (declare (not safe)) (##pair? _tl109818109919_)) - (let ((_hd109819109926_ + (eq? _g109925109927_ _id109902_))) + _hd109821109921_) + (if (let () (declare (not safe)) (##pair? _tl109822109923_)) + (let ((_hd109823109930_ (let () (declare (not safe)) - (##car _tl109818109919_))) - (_tl109820109928_ + (##car _tl109822109923_))) + (_tl109824109932_ (let () (declare (not safe)) - (##cdr _tl109818109919_)))) - (if ((lambda (_g109930109932_) + (##cdr _tl109822109923_)))) + (if ((lambda (_g109934109936_) (let () (declare (not safe)) - (eq? _g109930109932_ _id109898_))) - _hd109819109926_) + (eq? _g109934109936_ _id109902_))) + _hd109823109930_) (if (let () (declare (not safe)) - (##pair? _tl109820109928_)) - (let ((_hd109821109935_ + (##pair? _tl109824109932_)) + (let ((_hd109825109939_ (let () (declare (not safe)) - (##car _tl109820109928_))) - (_tl109822109937_ + (##car _tl109824109932_))) + (_tl109826109941_ (let () (declare (not safe)) - (##cdr _tl109820109928_)))) - (let ((_expr2109940_ _hd109821109935_)) + (##cdr _tl109824109932_)))) + (let ((_expr2109944_ _hd109825109939_)) (if (let () (declare (not safe)) - (##null? _tl109822109937_)) + (##null? _tl109826109941_)) (if (let () (declare (not safe)) - (##null? _tl109814109909_)) + (##null? _tl109818109913_)) (let () (declare (not safe)) - (_K109808109875_ - _expr2109940_ - _expr1109905_ - _id109898_)) + (_K109812109879_ + _expr2109944_ + _expr1109909_ + _id109902_)) (let () (declare (not safe)) - (_else109806109838_))) + (_else109810109842_))) (let () (declare (not safe)) - (_else109806109838_))))) + (_else109810109842_))))) (let () (declare (not safe)) - (_else109806109838_))) + (_else109810109842_))) (let () (declare (not safe)) - (_else109806109838_)))) - (let () (declare (not safe)) (_else109806109838_))) - (let () (declare (not safe)) (_else109806109838_)))) + (_else109810109842_)))) + (let () (declare (not safe)) (_else109810109842_))) + (let () (declare (not safe)) (_else109810109842_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else109806109838_))) + (_else109810109842_))) (let () (declare (not safe)) - (_else109806109838_)))) + (_else109810109842_)))) (let () (declare (not safe)) - (_else109806109838_)))) + (_else109810109842_)))) (let () (declare (not safe)) - (_else109806109838_))) + (_else109810109842_))) (let () (declare (not safe)) - (_else109806109838_))) + (_else109810109842_))) (let () (declare (not safe)) - (_else109806109838_))))) - (let () (declare (not safe)) (_else109806109838_))))) + (_else109810109842_))))) + (let () (declare (not safe)) (_else109810109842_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else109806109838_)))) + (_else109810109842_)))) (let () (declare (not safe)) - (_else109806109838_)))) + (_else109810109842_)))) (let () (declare (not safe)) - (_else109806109838_))) + (_else109810109842_))) (let () (declare (not safe)) - (_else109806109838_)))) + (_else109810109842_)))) (let () (declare (not safe)) - (_else109806109838_)))) - _code109803_))) - (_coalesce-let*109234_ - (lambda (_code109536_) - (let* ((_code109537109601_ _code109536_) - (_else109541109609_ (lambda () _code109536_))) - (let ((_K109583109754_ - (lambda (_body109750_ _expr109751_ _id109752_) - (let ((__tmp114533 - (let ((__tmp114534 - (let ((__tmp114535 - (let ((__tmp114536 + (_else109810109842_)))) + _code109807_))) + (_coalesce-let*109238_ + (lambda (_code109540_) + (let* ((_code109541109605_ _code109540_) + (_else109545109613_ (lambda () _code109540_))) + (let ((_K109587109758_ + (lambda (_body109754_ _expr109755_ _id109756_) + (let ((__tmp114537 + (let ((__tmp114538 + (let ((__tmp114539 + (let ((__tmp114540 (let () (declare (not safe)) - (cons _expr109751_ + (cons _expr109755_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _id109752_ __tmp114536)))) + (cons _id109756_ __tmp114540)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114535 '())))) + (cons __tmp114539 '())))) (declare (not safe)) - (cons __tmp114534 _body109750_)))) + (cons __tmp114538 _body109754_)))) (declare (not safe)) - (cons 'let __tmp114533)))) - (_K109560109679_ - (lambda (_body109673_ - _expr2109674_ - _id2109675_ - _expr1109676_ - _id1109677_) - (let ((__tmp114537 - (let ((__tmp114538 - (let ((__tmp114542 - (let ((__tmp114543 + (cons 'let __tmp114537)))) + (_K109564109683_ + (lambda (_body109677_ + _expr2109678_ + _id2109679_ + _expr1109680_ + _id1109681_) + (let ((__tmp114541 + (let ((__tmp114542 + (let ((__tmp114546 + (let ((__tmp114547 (let () (declare (not safe)) - (cons _expr1109676_ + (cons _expr1109680_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _id1109677_ __tmp114543))) + (cons _id1109681_ __tmp114547))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114539 - (let ((__tmp114540 - (let ((__tmp114541 + (__tmp114543 + (let ((__tmp114544 + (let ((__tmp114545 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr2109674_ '())))) + (cons _expr2109678_ '())))) (declare (not safe)) - (cons _id2109675_ __tmp114541)))) + (cons _id2109679_ __tmp114545)))) (declare (not safe)) - (cons __tmp114540 '())))) + (cons __tmp114544 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114542 - __tmp114539)))) + (cons __tmp114546 + __tmp114543)))) (declare (not safe)) - (cons __tmp114538 _body109673_)))) + (cons __tmp114542 _body109677_)))) (declare (not safe)) - (cons 'let* __tmp114537)))) - (_K109543109618_ - (lambda (_body109613_ - _bind109614_ - _expr1109615_ - _id1109616_) - (let ((__tmp114544 - (let ((__tmp114545 - (let ((__tmp114546 - (let ((__tmp114547 + (cons 'let* __tmp114541)))) + (_K109547109622_ + (lambda (_body109617_ + _bind109618_ + _expr1109619_ + _id1109620_) + (let ((__tmp114548 + (let ((__tmp114549 + (let ((__tmp114550 + (let ((__tmp114551 (let () (declare (not safe)) - (cons _expr1109615_ + (cons _expr1109619_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _id1109616_ __tmp114547)))) + (cons _id1109620_ __tmp114551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114546 - _bind109614_)))) + (cons __tmp114550 + _bind109618_)))) (declare (not safe)) - (cons __tmp114545 _body109613_)))) + (cons __tmp114549 _body109617_)))) (declare (not safe)) - (cons 'let* __tmp114544))))) + (cons 'let* __tmp114548))))) (if (let () (declare (not safe)) - (##pair? _code109537109601_)) - (let ((_tl109585109759_ + (##pair? _code109541109605_)) + (let ((_tl109589109763_ (let () (declare (not safe)) - (##cdr _code109537109601_))) - (_hd109584109757_ + (##cdr _code109541109605_))) + (_hd109588109761_ (let () (declare (not safe)) - (##car _code109537109601_)))) + (##car _code109541109605_)))) (if (let () (declare (not safe)) - (##eq? _hd109584109757_ 'let)) + (##eq? _hd109588109761_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl109585109759_)) - (let ((_tl109587109764_ + (##pair? _tl109589109763_)) + (let ((_tl109591109768_ (let () (declare (not safe)) - (##cdr _tl109585109759_))) - (_hd109586109762_ + (##cdr _tl109589109763_))) + (_hd109590109766_ (let () (declare (not safe)) - (##car _tl109585109759_)))) + (##car _tl109589109763_)))) (if (let () (declare (not safe)) - (##pair? _hd109586109762_)) - (let ((_tl109595109769_ + (##pair? _hd109590109766_)) + (let ((_tl109599109773_ (let () (declare (not safe)) - (##cdr _hd109586109762_))) - (_hd109594109767_ + (##cdr _hd109590109766_))) + (_hd109598109771_ (let () (declare (not safe)) - (##car _hd109586109762_)))) + (##car _hd109590109766_)))) (if (let () (declare (not safe)) - (##pair? _hd109594109767_)) - (let ((_tl109597109774_ + (##pair? _hd109598109771_)) + (let ((_tl109601109778_ (let () (declare (not safe)) - (##cdr _hd109594109767_))) - (_hd109596109772_ + (##cdr _hd109598109771_))) + (_hd109600109776_ (let () (declare (not safe)) - (##car _hd109594109767_)))) + (##car _hd109598109771_)))) (if (let () (declare (not safe)) - (##pair? _tl109597109774_)) - (let ((_tl109599109781_ + (##pair? _tl109601109778_)) + (let ((_tl109603109785_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _tl109597109774_))) - (_hd109598109779_ - (let () (declare (not safe)) (##car _tl109597109774_)))) - (if (let () (declare (not safe)) (##null? _tl109599109781_)) + (##cdr _tl109601109778_))) + (_hd109602109783_ + (let () (declare (not safe)) (##car _tl109601109778_)))) + (if (let () (declare (not safe)) (##null? _tl109603109785_)) (if (let () (declare (not safe)) - (##null? _tl109595109769_)) + (##null? _tl109599109773_)) (if (let () (declare (not safe)) - (##pair? _tl109587109764_)) - (let ((_tl109589109788_ + (##pair? _tl109591109768_)) + (let ((_tl109593109792_ (let () (declare (not safe)) - (##cdr _tl109587109764_))) - (_hd109588109786_ + (##cdr _tl109591109768_))) + (_hd109592109790_ (let () (declare (not safe)) - (##car _tl109587109764_)))) + (##car _tl109591109768_)))) (if (let () (declare (not safe)) - (##pair? _hd109588109786_)) - (let ((_tl109591109793_ + (##pair? _hd109592109790_)) + (let ((_tl109595109797_ (let () (declare (not safe)) - (##cdr _hd109588109786_))) - (_hd109590109791_ + (##cdr _hd109592109790_))) + (_hd109594109795_ (let () (declare (not safe)) - (##car _hd109588109786_)))) + (##car _hd109592109790_)))) (if (let () (declare (not safe)) - (##eq? _hd109590109791_ 'let)) + (##eq? _hd109594109795_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl109591109793_)) - (let ((_tl109593109798_ + (##pair? _tl109595109797_)) + (let ((_tl109597109802_ (let () (declare (not safe)) - (##cdr _tl109591109793_))) - (_hd109592109796_ + (##cdr _tl109595109797_))) + (_hd109596109800_ (let () (declare (not safe)) - (##car _tl109591109793_)))) + (##car _tl109595109797_)))) (if (let () (declare (not safe)) - (##null? _hd109592109796_)) + (##null? _hd109596109800_)) (if (let () (declare (not safe)) - (##null? _tl109589109788_)) - (let ((_id109777_ - _hd109596109772_) - (_expr109784_ - _hd109598109779_) - (_body109801_ - _tl109593109798_)) + (##null? _tl109593109792_)) + (let ((_id109781_ + _hd109600109776_) + (_expr109788_ + _hd109602109783_) + (_body109805_ + _tl109597109802_)) (let () (declare (not safe)) - (_K109583109754_ - _body109801_ - _expr109784_ - _id109777_))) + (_K109587109758_ + _body109805_ + _expr109788_ + _id109781_))) (let () (declare (not safe)) - (_else109541109609_))) + (_else109545109613_))) (if (let () (declare (not safe)) - (##pair? _hd109592109796_)) - (let ((_tl109572109728_ + (##pair? _hd109596109800_)) + (let ((_tl109576109732_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _hd109592109796_))) - (_hd109571109726_ - (let () (declare (not safe)) (##car _hd109592109796_)))) - (if (let () (declare (not safe)) (##pair? _hd109571109726_)) - (let ((_tl109574109733_ + (##cdr _hd109596109800_))) + (_hd109575109730_ + (let () (declare (not safe)) (##car _hd109596109800_)))) + (if (let () (declare (not safe)) (##pair? _hd109575109730_)) + (let ((_tl109578109737_ (let () (declare (not safe)) - (##cdr _hd109571109726_))) - (_hd109573109731_ + (##cdr _hd109575109730_))) + (_hd109577109735_ (let () (declare (not safe)) - (##car _hd109571109726_)))) + (##car _hd109575109730_)))) (if (let () (declare (not safe)) - (##pair? _tl109574109733_)) - (let ((_tl109576109740_ + (##pair? _tl109578109737_)) + (let ((_tl109580109744_ (let () (declare (not safe)) - (##cdr _tl109574109733_))) - (_hd109575109738_ + (##cdr _tl109578109737_))) + (_hd109579109742_ (let () (declare (not safe)) - (##car _tl109574109733_)))) + (##car _tl109578109737_)))) (if (let () (declare (not safe)) - (##null? _tl109576109740_)) + (##null? _tl109580109744_)) (if (let () (declare (not safe)) - (##null? _tl109572109728_)) + (##null? _tl109576109732_)) (if (let () (declare (not safe)) - (##null? _tl109589109788_)) - (let ((_id1109702_ _hd109596109772_) - (_expr1109709_ - _hd109598109779_) - (_id2109736_ _hd109573109731_) - (_expr2109743_ - _hd109575109738_) - (_body109745_ - _tl109593109798_)) + (##null? _tl109593109792_)) + (let ((_id1109706_ _hd109600109776_) + (_expr1109713_ + _hd109602109783_) + (_id2109740_ _hd109577109735_) + (_expr2109747_ + _hd109579109742_) + (_body109749_ + _tl109597109802_)) (let () (declare (not safe)) - (_K109560109679_ - _body109745_ - _expr2109743_ - _id2109736_ - _expr1109709_ - _id1109702_))) + (_K109564109683_ + _body109749_ + _expr2109747_ + _id2109740_ + _expr1109713_ + _id1109706_))) (let () (declare (not safe)) - (_else109541109609_))) + (_else109545109613_))) (let () (declare (not safe)) - (_else109541109609_))) + (_else109545109613_))) (let () (declare (not safe)) - (_else109541109609_)))) + (_else109545109613_)))) (let () (declare (not safe)) - (_else109541109609_)))) - (let () (declare (not safe)) (_else109541109609_)))) - (let () (declare (not safe)) (_else109541109609_))))) + (_else109545109613_)))) + (let () (declare (not safe)) (_else109545109613_)))) + (let () (declare (not safe)) (_else109545109613_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else109541109609_))) + (_else109545109613_))) (if (let () (declare (not safe)) - (##eq? _hd109590109791_ 'let*)) + (##eq? _hd109594109795_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl109591109793_)) - (let ((_tl109553109662_ + (##pair? _tl109595109797_)) + (let ((_tl109557109666_ (let () (declare (not safe)) - (##cdr _tl109591109793_))) - (_hd109552109660_ + (##cdr _tl109595109797_))) + (_hd109556109664_ (let () (declare (not safe)) - (##car _tl109591109793_)))) + (##car _tl109595109797_)))) (if (let () (declare (not safe)) - (##null? _tl109589109788_)) - (let ((_id1109641_ - _hd109596109772_) - (_expr1109648_ - _hd109598109779_) - (_bind109665_ - _hd109552109660_) - (_body109667_ - _tl109553109662_)) + (##null? _tl109593109792_)) + (let ((_id1109645_ + _hd109600109776_) + (_expr1109652_ + _hd109602109783_) + (_bind109669_ + _hd109556109664_) + (_body109671_ + _tl109557109666_)) (let () (declare (not safe)) - (_K109543109618_ - _body109667_ - _bind109665_ - _expr1109648_ - _id1109641_))) + (_K109547109622_ + _body109671_ + _bind109669_ + _expr1109652_ + _id1109645_))) (let () (declare (not safe)) - (_else109541109609_)))) + (_else109545109613_)))) (let () (declare (not safe)) - (_else109541109609_))) + (_else109545109613_))) (let () (declare (not safe)) - (_else109541109609_))))) + (_else109545109613_))))) (let () (declare (not safe)) - (_else109541109609_)))) + (_else109545109613_)))) (let () (declare (not safe)) - (_else109541109609_))) - (let () (declare (not safe)) (_else109541109609_))) - (let () (declare (not safe)) (_else109541109609_)))) - (let () (declare (not safe)) (_else109541109609_)))) + (_else109545109613_))) + (let () (declare (not safe)) (_else109545109613_))) + (let () (declare (not safe)) (_else109545109613_)))) + (let () (declare (not safe)) (_else109545109613_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else109541109609_)))) + (_else109545109613_)))) (let () (declare (not safe)) - (_else109541109609_)))) + (_else109545109613_)))) (let () (declare (not safe)) - (_else109541109609_))) + (_else109545109613_))) (let () (declare (not safe)) - (_else109541109609_)))) + (_else109545109613_)))) (let () (declare (not safe)) - (_else109541109609_))))))) - (_generate-values109235_ - (lambda (_hd109349_ _body109350_) - (let _lp109352_ ((_rest109354_ _hd109349_) - (_bind109355_ '()) - (_check109356_ '()) - (_post109357_ '())) - (let* ((___stx113483113484_ _rest109354_) - (_g109360109371_ + (_else109545109613_))))))) + (_generate-values109239_ + (lambda (_hd109353_ _body109354_) + (let _lp109356_ ((_rest109358_ _hd109353_) + (_bind109359_ '()) + (_check109360_ '()) + (_post109361_ '())) + (let* ((___stx113487113488_ _rest109358_) + (_g109364109375_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113483113484_))))) - (let ((___kont113485113486_ - (lambda (_L109398_ _L109399_) - (let* ((___stx113439113440_ _L109399_) - (_g109414109439_ + ___stx113487113488_))))) + (let ((___kont113489113490_ + (lambda (_L109402_ _L109403_) + (let* ((___stx113443113444_ _L109403_) + (_g109418109443_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113439113440_))))) - (let ((___kont113441113442_ - (lambda (_L109512_ _L109513_) - (let ((_eid109527_ + ___stx113443113444_))))) + (let ((___kont113445113446_ + (lambda (_L109516_ _L109517_) + (let ((_eid109531_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L109513_))) - (_expr109528_ + _L109517_))) + (_expr109532_ (let () (declare (not safe)) (gxc#compile-e__1 - _self109228_ - _L109512_)))) - (let ((__tmp114548 - (let ((__tmp114549 - (let ((__tmp114550 + _self109232_ + _L109516_)))) + (let ((__tmp114552 + (let ((__tmp114553 + (let ((__tmp114554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr109528_ '())))) + (cons _expr109532_ '())))) (declare (not safe)) - (cons _eid109527_ __tmp114550)))) + (cons _eid109531_ __tmp114554)))) (declare (not safe)) - (cons __tmp114549 _bind109355_)))) + (cons __tmp114553 _bind109359_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp109352_ - _L109398_ - __tmp114548 - _check109356_ - _post109357_))))) - (___kont113443113444_ - (lambda (_L109460_ _L109461_) - (let* ((_vals109474_ + (_lp109356_ + _L109402_ + __tmp114552 + _check109360_ + _post109361_))))) + (___kont113447113448_ + (lambda (_L109464_ _L109465_) + (let* ((_vals109478_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values109476_ + (_check-values109480_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals109474_ - _L109461_ - _L109460_))) - (_refs109478_ + _vals109478_ + _L109465_ + _L109464_))) + (_refs109482_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals109474_ - _L109461_))) - (_expr109480_ + _vals109478_ + _L109465_))) + (_expr109484_ (let () (declare (not safe)) (gxc#compile-e__1 - _self109228_ - _L109460_)))) - (let ((__tmp114553 - (let ((__tmp114554 - (let ((__tmp114555 + _self109232_ + _L109464_)))) + (let ((__tmp114557 + (let ((__tmp114558 + (let ((__tmp114559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr109480_ '())))) + (cons _expr109484_ '())))) (declare (not safe)) - (cons _vals109474_ __tmp114555)))) + (cons _vals109478_ __tmp114559)))) (declare (not safe)) - (cons __tmp114554 _bind109355_))) + (cons __tmp114558 _bind109359_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114552 + (__tmp114556 (let () (declare (not safe)) - (cons _check-values109476_ - _check109356_))) - (__tmp114551 + (cons _check-values109480_ + _check109360_))) + (__tmp114555 (let () (declare (not safe)) - (cons _refs109478_ - _post109357_)))) + (cons _refs109482_ + _post109361_)))) (declare (not safe)) - (_lp109352_ - _L109398_ - __tmp114553 - __tmp114552 - __tmp114551)))))) + (_lp109356_ + _L109402_ + __tmp114557 + __tmp114556 + __tmp114555)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113439113440_)) - (let ((_e109420109488_ + (gx#stx-pair? ___stx113443113444_)) + (let ((_e109424109492_ (let () (declare (not safe)) (gx#stx-e - ___stx113439113440_)))) - (let ((_tl109418109493_ + ___stx113443113444_)))) + (let ((_tl109422109497_ (let () (declare (not safe)) - (##cdr _e109420109488_))) - (_hd109419109491_ + (##cdr _e109424109492_))) + (_hd109423109495_ (let () (declare (not safe)) - (##car _e109420109488_)))) + (##car _e109424109492_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd109419109491_)) - (let ((_e109423109496_ + _hd109423109495_)) + (let ((_e109427109500_ (let () (declare (not safe)) (gx#stx-e - _hd109419109491_)))) - (let ((_tl109421109501_ + _hd109423109495_)))) + (let ((_tl109425109505_ (let () (declare (not safe)) - (##cdr _e109423109496_))) - (_hd109422109499_ + (##cdr _e109427109500_))) + (_hd109426109503_ (let () (declare (not safe)) - (##car _e109423109496_)))) + (##car _e109427109500_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl109421109501_)) + _tl109425109505_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl109418109493_)) - (let ((_e109426109504_ + (gx#stx-pair? _tl109422109497_)) + (let ((_e109430109508_ (let () (declare (not safe)) - (gx#stx-e _tl109418109493_)))) - (let ((_tl109424109509_ + (gx#stx-e _tl109422109497_)))) + (let ((_tl109428109513_ (let () (declare (not safe)) - (##cdr _e109426109504_))) - (_hd109425109507_ + (##cdr _e109430109508_))) + (_hd109429109511_ (let () (declare (not safe)) - (##car _e109426109504_)))) + (##car _e109430109508_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109424109509_)) - (___kont113441113442_ - _hd109425109507_ - _hd109422109499_) - (let () (declare (not safe)) (_g109414109439_))))) - (let () (declare (not safe)) (_g109414109439_))) + (gx#stx-null? _tl109428109513_)) + (___kont113445113446_ + _hd109429109511_ + _hd109426109503_) + (let () (declare (not safe)) (_g109418109443_))))) + (let () (declare (not safe)) (_g109418109443_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109418109493_)) - (let ((_e109434109452_ + (gx#stx-pair? _tl109422109497_)) + (let ((_e109438109456_ (let () (declare (not safe)) - (gx#stx-e _tl109418109493_)))) - (let ((_tl109432109457_ + (gx#stx-e _tl109422109497_)))) + (let ((_tl109436109461_ (let () (declare (not safe)) - (##cdr _e109434109452_))) - (_hd109433109455_ + (##cdr _e109438109456_))) + (_hd109437109459_ (let () (declare (not safe)) - (##car _e109434109452_)))) + (##car _e109438109456_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109432109457_)) - (___kont113443113444_ - _hd109433109455_ - _hd109419109491_) - (let () (declare (not safe)) (_g109414109439_))))) - (let () (declare (not safe)) (_g109414109439_)))))) + (gx#stx-null? _tl109436109461_)) + (___kont113447113448_ + _hd109437109459_ + _hd109423109495_) + (let () (declare (not safe)) (_g109418109443_))))) + (let () (declare (not safe)) (_g109418109443_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl109418109493_)) - (let ((_e109434109452_ + _tl109422109497_)) + (let ((_e109438109456_ (let () (declare (not safe)) (gx#stx-e - _tl109418109493_)))) - (let ((_tl109432109457_ + _tl109422109497_)))) + (let ((_tl109436109461_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e109434109452_))) - (_hd109433109455_ - (let () (declare (not safe)) (##car _e109434109452_)))) + (##cdr _e109438109456_))) + (_hd109437109459_ + (let () (declare (not safe)) (##car _e109438109456_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109432109457_)) - (___kont113443113444_ _hd109433109455_ _hd109419109491_) - (let () (declare (not safe)) (_g109414109439_))))) + (gx#stx-null? _tl109436109461_)) + (___kont113447113448_ _hd109437109459_ _hd109423109495_) + (let () (declare (not safe)) (_g109418109443_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g109414109439_)))))) + (_g109418109443_)))))) (let () (declare (not safe)) - (_g109414109439_))))))) - (___kont113487113488_ + (_g109418109443_))))))) + (___kont113491113492_ (lambda () - (let* ((_body109378_ - (if _compiled-body?109230_ - _body109350_ + (let* ((_body109382_ + (if _compiled-body?109234_ + _body109354_ (let () (declare (not safe)) (gxc#compile-e__1 - _self109228_ - _body109350_)))) - (_body109380_ + _self109232_ + _body109354_)))) + (_body109384_ (let () (declare (not safe)) - (_generate-values-post109236_ - _post109357_ - _body109378_))) - (_body109382_ + (_generate-values-post109240_ + _post109361_ + _body109382_))) + (_body109386_ (let () (declare (not safe)) - (_generate-values-check109237_ - _check109356_ - _body109380_)))) - (let ((__tmp114556 - (let ((__tmp114558 - (reverse _bind109355_)) - (__tmp114557 + (_generate-values-check109241_ + _check109360_ + _body109384_)))) + (let ((__tmp114560 + (let ((__tmp114562 + (reverse _bind109359_)) + (__tmp114561 (let () (declare (not safe)) - (cons _body109382_ '())))) + (cons _body109386_ '())))) (declare (not safe)) - (cons __tmp114558 __tmp114557)))) + (cons __tmp114562 __tmp114561)))) (declare (not safe)) - (cons 'let __tmp114556)))))) + (cons 'let __tmp114560)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113483113484_)) - (let ((_e109366109390_ + (gx#stx-pair? ___stx113487113488_)) + (let ((_e109370109394_ (let () (declare (not safe)) - (gx#stx-e ___stx113483113484_)))) - (let ((_tl109364109395_ + (gx#stx-e ___stx113487113488_)))) + (let ((_tl109368109399_ (let () (declare (not safe)) - (##cdr _e109366109390_))) - (_hd109365109393_ + (##cdr _e109370109394_))) + (_hd109369109397_ (let () (declare (not safe)) - (##car _e109366109390_)))) - (___kont113485113486_ - _tl109364109395_ - _hd109365109393_))) - (___kont113487113488_))))))) - (_generate-values-post109236_ - (lambda (_post109308_ _body109309_) - (let _lp109311_ ((_rest109313_ _post109308_) - (_body109314_ _body109309_)) - (let* ((_rest109315109323_ _rest109313_) - (_else109317109331_ (lambda () _body109314_)) - (_K109319109337_ - (lambda (_rest109334_ _bind109335_) - (let ((__tmp114559 - (let ((__tmp114560 - (let ((__tmp114561 + (##car _e109370109394_)))) + (___kont113489113490_ + _tl109368109399_ + _hd109369109397_))) + (___kont113491113492_))))))) + (_generate-values-post109240_ + (lambda (_post109312_ _body109313_) + (let _lp109315_ ((_rest109317_ _post109312_) + (_body109318_ _body109313_)) + (let* ((_rest109319109327_ _rest109317_) + (_else109321109335_ (lambda () _body109318_)) + (_K109323109341_ + (lambda (_rest109338_ _bind109339_) + (let ((__tmp114563 + (let ((__tmp114564 + (let ((__tmp114565 (let () (declare (not safe)) - (cons _body109314_ + (cons _body109318_ '())))) (declare (not safe)) - (cons _bind109335_ - __tmp114561)))) + (cons _bind109339_ + __tmp114565)))) (declare (not safe)) - (cons 'let __tmp114560)))) + (cons 'let __tmp114564)))) (declare (not safe)) - (_lp109311_ _rest109334_ __tmp114559))))) + (_lp109315_ _rest109338_ __tmp114563))))) (if (let () (declare (not safe)) - (##pair? _rest109315109323_)) - (let ((_hd109320109340_ + (##pair? _rest109319109327_)) + (let ((_hd109324109344_ (let () (declare (not safe)) - (##car _rest109315109323_))) - (_tl109321109342_ + (##car _rest109319109327_))) + (_tl109325109346_ (let () (declare (not safe)) - (##cdr _rest109315109323_)))) - (let* ((_bind109345_ _hd109320109340_) - (_rest109347_ _tl109321109342_)) + (##cdr _rest109319109327_)))) + (let* ((_bind109349_ _hd109324109344_) + (_rest109351_ _tl109325109346_)) (declare (not safe)) - (_K109319109337_ _rest109347_ _bind109345_))) + (_K109323109341_ _rest109351_ _bind109349_))) (let () (declare (not safe)) - (_else109317109331_))))))) - (_generate-values-check109237_ - (lambda (_check109305_ _body109306_) - (let ((__tmp114562 - (let ((__tmp114564 + (_else109321109335_))))))) + (_generate-values-check109241_ + (lambda (_check109309_ _body109310_) + (let ((__tmp114566 + (let ((__tmp114568 (let () (declare (not safe)) - (cons _body109306_ '()))) - (__tmp114563 (reverse _check109305_))) + (cons _body109310_ '()))) + (__tmp114567 (reverse _check109309_))) (declare (not safe)) - (foldr1 cons __tmp114564 __tmp114563)))) + (foldr1 cons __tmp114568 __tmp114567)))) (declare (not safe)) - (cons 'begin __tmp114562))))) - (let* ((_g109239109256_ - (lambda (_g109240109253_) + (cons 'begin __tmp114566))))) + (let* ((_g109243109260_ + (lambda (_g109244109257_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109240109253_)))) - (_g109238109302_ - (lambda (_g109240109259_) + _g109244109257_)))) + (_g109242109306_ + (lambda (_g109244109263_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109240109259_)) - (let ((_e109245109261_ + (gx#stx-pair? _g109244109263_)) + (let ((_e109249109265_ (let () (declare (not safe)) - (gx#stx-e _g109240109259_)))) - (let ((_hd109244109264_ + (gx#stx-e _g109244109263_)))) + (let ((_hd109248109268_ (let () (declare (not safe)) - (##car _e109245109261_))) - (_tl109243109266_ + (##car _e109249109265_))) + (_tl109247109270_ (let () (declare (not safe)) - (##cdr _e109245109261_)))) + (##cdr _e109249109265_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109243109266_)) - (let ((_e109248109269_ + (gx#stx-pair? _tl109247109270_)) + (let ((_e109252109273_ (let () (declare (not safe)) - (gx#stx-e _tl109243109266_)))) - (let ((_hd109247109272_ + (gx#stx-e _tl109247109270_)))) + (let ((_hd109251109276_ (let () (declare (not safe)) - (##car _e109248109269_))) - (_tl109246109274_ + (##car _e109252109273_))) + (_tl109250109278_ (let () (declare (not safe)) - (##cdr _e109248109269_)))) + (##cdr _e109252109273_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109246109274_)) - (let ((_e109251109277_ + (gx#stx-pair? _tl109250109278_)) + (let ((_e109255109281_ (let () (declare (not safe)) - (gx#stx-e _tl109246109274_)))) - (let ((_hd109250109280_ + (gx#stx-e _tl109250109278_)))) + (let ((_hd109254109284_ (let () (declare (not safe)) - (##car _e109251109277_))) - (_tl109249109282_ + (##car _e109255109281_))) + (_tl109253109286_ (let () (declare (not safe)) - (##cdr _e109251109277_)))) + (##cdr _e109255109281_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl109249109282_)) - ((lambda (_L109285_ _L109286_) + _tl109253109286_)) + ((lambda (_L109289_ _L109290_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L109286_)) + _L109290_)) (let () (declare (not safe)) - (_generate-simple109232_ - _L109286_ - _L109285_)) + (_generate-simple109236_ + _L109290_ + _L109289_)) (let () (declare (not safe)) - (_generate-values109235_ - _L109286_ - _L109285_)))) - _hd109250109280_ - _hd109247109272_) + (_generate-values109239_ + _L109290_ + _L109289_)))) + _hd109254109284_ + _hd109251109276_) (let () (declare (not safe)) - (_g109239109256_ - _g109240109259_))))) + (_g109243109260_ + _g109244109263_))))) (let () (declare (not safe)) - (_g109239109256_ _g109240109259_))))) + (_g109243109260_ _g109244109263_))))) (let () (declare (not safe)) - (_g109239109256_ _g109240109259_))))) + (_g109243109260_ _g109244109263_))))) (let () (declare (not safe)) - (_g109239109256_ _g109240109259_)))))) + (_g109243109260_ _g109244109263_)))))) (declare (not safe)) - (_g109238109302_ _stx109229_))))) + (_g109242109306_ _stx109233_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_self109948_ _stx109949_) - (let ((_compiled-body?109951_ '#f)) + (lambda (_self109952_ _stx109953_) + (let ((_compiled-body?109955_ '#f)) (declare (not safe)) (gxc#generate-runtime-let-values%__% - _self109948_ - _stx109949_ - _compiled-body?109951_)))) + _self109952_ + _stx109953_ + _compiled-body?109955_)))) (define gxc#generate-runtime-let-values% - (lambda _g114566_ - (let ((_g114565_ (let () (declare (not safe)) (##length _g114566_)))) - (cond ((let () (declare (not safe)) (##fx= _g114565_ 2)) - (apply (lambda (_self109948_ _stx109949_) + (lambda _g114570_ + (let ((_g114569_ (let () (declare (not safe)) (##length _g114570_)))) + (cond ((let () (declare (not safe)) (##fx= _g114569_ 2)) + (apply (lambda (_self109952_ _stx109953_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__0 - _self109948_ - _stx109949_))) - _g114566_)) - ((let () (declare (not safe)) (##fx= _g114565_ 3)) - (apply (lambda (_self109953_ - _stx109954_ - _compiled-body?109955_) + _self109952_ + _stx109953_))) + _g114570_)) + ((let () (declare (not safe)) (##fx= _g114569_ 3)) + (apply (lambda (_self109957_ + _stx109958_ + _compiled-body?109959_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__% - _self109953_ - _stx109954_ - _compiled-body?109955_))) - _g114566_)) + _self109957_ + _stx109958_ + _compiled-body?109959_))) + _g114570_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g114566_)))))) + _g114570_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals109122_ _hd109123_) - (let _lp109125_ ((_rest109127_ _hd109123_) - (_k109128_ '0) - (_r109129_ '())) - (let* ((___stx113497113498_ _rest109127_) - (_g109134109151_ + (lambda (_vals109126_ _hd109127_) + (let _lp109129_ ((_rest109131_ _hd109127_) + (_k109132_ '0) + (_r109133_ '())) + (let* ((___stx113501113502_ _rest109131_) + (_g109138109155_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113497113498_))))) - (let ((___kont113499113500_ - (lambda (_L109214_) - (let ((__tmp114567 - (let () (declare (not safe)) (fx+ _k109128_ '1)))) + ___stx113501113502_))))) + (let ((___kont113503113504_ + (lambda (_L109218_) + (let ((__tmp114571 + (let () (declare (not safe)) (fx+ _k109132_ '1)))) (declare (not safe)) - (_lp109125_ _L109214_ __tmp114567 _r109129_)))) - (___kont113501113502_ - (lambda (_L109187_ _L109188_) - (let ((__tmp114573 - (let () (declare (not safe)) (fx+ _k109128_ '1))) - (__tmp114568 - (let ((__tmp114569 - (let ((__tmp114572 + (_lp109129_ _L109218_ __tmp114571 _r109133_)))) + (___kont113505113506_ + (lambda (_L109191_ _L109192_) + (let ((__tmp114577 + (let () (declare (not safe)) (fx+ _k109132_ '1))) + (__tmp114572 + (let ((__tmp114573 + (let ((__tmp114576 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L109188_))) - (__tmp114570 - (let ((__tmp114571 + _L109192_))) + (__tmp114574 + (let ((__tmp114575 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _vals109122_ - _k109128_ - _L109187_)))) + _vals109126_ + _k109132_ + _L109191_)))) (declare (not safe)) - (cons __tmp114571 '())))) + (cons __tmp114575 '())))) (declare (not safe)) - (cons __tmp114572 __tmp114570)))) + (cons __tmp114576 __tmp114574)))) (declare (not safe)) - (cons __tmp114569 _r109129_)))) + (cons __tmp114573 _r109133_)))) (declare (not safe)) - (_lp109125_ _L109187_ __tmp114573 __tmp114568)))) - (___kont113503113504_ - (lambda (_L109163_) - (let ((__tmp114574 - (let ((__tmp114575 - (let ((__tmp114578 + (_lp109129_ _L109191_ __tmp114577 __tmp114572)))) + (___kont113507113508_ + (lambda (_L109167_) + (let ((__tmp114578 + (let ((__tmp114579 + (let ((__tmp114582 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L109163_))) - (__tmp114576 - (let ((__tmp114577 + _L109167_))) + (__tmp114580 + (let ((__tmp114581 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _vals109122_ - _k109128_)))) + _vals109126_ + _k109132_)))) (declare (not safe)) - (cons __tmp114577 '())))) + (cons __tmp114581 '())))) (declare (not safe)) - (cons __tmp114578 __tmp114576)))) + (cons __tmp114582 __tmp114580)))) (declare (not safe)) - (cons __tmp114575 '())))) + (cons __tmp114579 '())))) (declare (not safe)) - (foldl1 cons __tmp114574 _r109129_)))) - (___kont113505113506_ (lambda () (reverse _r109129_)))) - (let ((_g109132109174_ + (foldl1 cons __tmp114578 _r109133_)))) + (___kont113509113510_ (lambda () (reverse _r109133_)))) + (let ((_g109136109178_ (lambda () - (let ((_L109163_ ___stx113497113498_)) + (let ((_L109167_ ___stx113501113502_)) (if (let () (declare (not safe)) - (gx#identifier? _L109163_)) - (___kont113503113504_ _L109163_) - (___kont113505113506_)))))) + (gx#identifier? _L109167_)) + (___kont113507113508_ _L109167_) + (___kont113509113510_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113497113498_)) - (let ((_e109139109203_ + (gx#stx-pair? ___stx113501113502_)) + (let ((_e109143109207_ (let () (declare (not safe)) - (gx#stx-e ___stx113497113498_)))) - (let ((_tl109137109208_ + (gx#stx-e ___stx113501113502_)))) + (let ((_tl109141109212_ (let () (declare (not safe)) - (##cdr _e109139109203_))) - (_hd109138109206_ + (##cdr _e109143109207_))) + (_hd109142109210_ (let () (declare (not safe)) - (##car _e109139109203_)))) + (##car _e109143109207_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd109138109206_)) - (let ((_e109140109211_ + (gx#stx-datum? _hd109142109210_)) + (let ((_e109144109215_ (let () (declare (not safe)) - (gx#stx-e _hd109138109206_)))) + (gx#stx-e _hd109142109210_)))) (if (let () (declare (not safe)) - (equal? _e109140109211_ '#f)) - (___kont113499113500_ _tl109137109208_) - (___kont113501113502_ - _tl109137109208_ - _hd109138109206_))) - (___kont113501113502_ - _tl109137109208_ - _hd109138109206_)))) - (let () (declare (not safe)) (_g109132109174_))))))))) + (equal? _e109144109215_ '#f)) + (___kont113503113504_ _tl109141109212_) + (___kont113505113506_ + _tl109141109212_ + _hd109142109210_))) + (___kont113505113506_ + _tl109141109212_ + _hd109142109210_)))) + (let () (declare (not safe)) (_g109136109178_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_self108801_ _stx108802_ _compiled-body?108803_) - (letrec ((_generate-simple108805_ - (lambda (_hd109107_ _body109108_) + (lambda (_self108805_ _stx108806_ _compiled-body?108807_) + (letrec ((_generate-simple108809_ + (lambda (_hd109111_ _body109112_) (let () (declare (not safe)) (gxc#generate-runtime-simple-let - _self108801_ + _self108805_ 'letrec - _hd109107_ - _body109108_ - _compiled-body?108803_)))) - (_generate-values108806_ - (lambda (_hd108886_ _body108887_) - (let _lp108889_ ((_rest108891_ _hd108886_) - (_bind108892_ '()) - (_check108893_ '()) - (_post108894_ '())) - (let* ((___stx113571113572_ _rest108891_) - (_g108897108908_ + _hd109111_ + _body109112_ + _compiled-body?108807_)))) + (_generate-values108810_ + (lambda (_hd108890_ _body108891_) + (let _lp108893_ ((_rest108895_ _hd108890_) + (_bind108896_ '()) + (_check108897_ '()) + (_post108898_ '())) + (let* ((___stx113575113576_ _rest108895_) + (_g108901108912_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113571113572_))))) - (let ((___kont113573113574_ - (lambda (_L108935_ _L108936_) - (let* ((___stx113527113528_ _L108936_) - (_g108951108976_ + ___stx113575113576_))))) + (let ((___kont113577113578_ + (lambda (_L108939_ _L108940_) + (let* ((___stx113531113532_ _L108940_) + (_g108955108980_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113527113528_))))) - (let ((___kont113529113530_ - (lambda (_L109083_ _L109084_) - (let ((_eid109098_ + ___stx113531113532_))))) + (let ((___kont113533113534_ + (lambda (_L109087_ _L109088_) + (let ((_eid109102_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L109084_))) - (_expr109099_ + _L109088_))) + (_expr109103_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108801_ - _L109083_)))) - (let ((__tmp114579 - (let ((__tmp114580 - (let ((__tmp114581 + _self108805_ + _L109087_)))) + (let ((__tmp114583 + (let ((__tmp114584 + (let ((__tmp114585 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr109099_ '())))) + (cons _expr109103_ '())))) (declare (not safe)) - (cons _eid109098_ __tmp114581)))) + (cons _eid109102_ __tmp114585)))) (declare (not safe)) - (cons __tmp114580 _bind108892_)))) + (cons __tmp114584 _bind108896_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp108889_ - _L108935_ - __tmp114579 - _check108893_ - _post108894_))))) - (___kont113531113532_ - (lambda (_L108997_ _L108998_) - (let* ((_vals109011_ + (_lp108893_ + _L108939_ + __tmp114583 + _check108897_ + _post108898_))))) + (___kont113535113536_ + (lambda (_L109001_ _L109002_) + (let* ((_vals109015_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values109013_ + (_check-values109017_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals109011_ - _L108998_ - _L108997_))) - (_refs109015_ + _vals109015_ + _L109002_ + _L109001_))) + (_refs109019_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals109011_ - _L108998_))) - (_expr109017_ + _vals109015_ + _L109002_))) + (_expr109021_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108801_ - _L108997_)))) - (let ((__tmp114584 - (let ((__tmp114587 - (let ((__tmp114588 + _self108805_ + _L109001_)))) + (let ((__tmp114588 + (let ((__tmp114591 + (let ((__tmp114592 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114589 + (let ((__tmp114593 (let () (declare (not safe)) - (cons _expr109017_ '())))) + (cons _expr109021_ '())))) (declare (not safe)) - (cons _vals109011_ __tmp114589)))) + (cons _vals109015_ __tmp114593)))) (declare (not safe)) - (cons __tmp114588 _bind108892_))) - (__tmp114585 - (map (lambda (_e109019109021_) - (let* ((_g109023109032_ _e109019109021_) - (_E109025109036_ + (cons __tmp114592 _bind108896_))) + (__tmp114589 + (map (lambda (_e109023109025_) + (let* ((_g109027109036_ _e109023109025_) + (_E109029109040_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g109023109032_)))) - (_K109026109041_ - (lambda (_eid109039_) - (let ((__tmp114586 + _g109027109036_)))) + (_K109030109045_ + (lambda (_eid109043_) + (let ((__tmp114590 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons _eid109039_ __tmp114586))))) + (cons _eid109043_ __tmp114590))))) (if (let () (declare (not safe)) - (##pair? _g109023109032_)) - (let ((_hd109027109044_ + (##pair? _g109027109036_)) + (let ((_hd109031109048_ (let () (declare (not safe)) - (##car _g109023109032_))) - (_tl109028109046_ + (##car _g109027109036_))) + (_tl109032109050_ (let () (declare (not safe)) - (##cdr _g109023109032_)))) - (let ((_eid109049_ _hd109027109044_)) + (##cdr _g109027109036_)))) + (let ((_eid109053_ _hd109031109048_)) (if (let () (declare (not safe)) - (##pair? _tl109028109046_)) - (let ((_tl109030109051_ + (##pair? _tl109032109050_)) + (let ((_tl109034109055_ (let () (declare (not safe)) - (##cdr _tl109028109046_)))) + (##cdr _tl109032109050_)))) (if (let () (declare (not safe)) - (##null? _tl109030109051_)) + (##null? _tl109034109055_)) (let () (declare (not safe)) - (_K109026109041_ _eid109049_)) + (_K109030109045_ _eid109053_)) (let () (declare (not safe)) - (_E109025109036_)))) + (_E109029109040_)))) (let () (declare (not safe)) - (_E109025109036_))))) + (_E109029109040_))))) (let () (declare (not safe)) - (_E109025109036_))))) - _refs109015_))) + (_E109029109040_))))) + _refs109019_))) (declare (not safe)) - (foldl1 cons __tmp114587 __tmp114585))) + (foldl1 cons __tmp114591 __tmp114589))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114583 + (__tmp114587 (let () (declare (not safe)) - (cons _check-values109013_ - _check108893_))) - (__tmp114582 + (cons _check-values109017_ + _check108897_))) + (__tmp114586 (let () (declare (not safe)) (foldl1 cons - _refs109015_ - _post108894_)))) + _refs109019_ + _post108898_)))) (declare (not safe)) - (_lp108889_ - _L108935_ - __tmp114584 - __tmp114583 - __tmp114582)))))) + (_lp108893_ + _L108939_ + __tmp114588 + __tmp114587 + __tmp114586)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113527113528_)) - (let ((_e108957109059_ + (gx#stx-pair? ___stx113531113532_)) + (let ((_e108961109063_ (let () (declare (not safe)) (gx#stx-e - ___stx113527113528_)))) - (let ((_tl108955109064_ + ___stx113531113532_)))) + (let ((_tl108959109068_ (let () (declare (not safe)) - (##cdr _e108957109059_))) - (_hd108956109062_ + (##cdr _e108961109063_))) + (_hd108960109066_ (let () (declare (not safe)) - (##car _e108957109059_)))) + (##car _e108961109063_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108956109062_)) - (let ((_e108960109067_ + _hd108960109066_)) + (let ((_e108964109071_ (let () (declare (not safe)) (gx#stx-e - _hd108956109062_)))) - (let ((_tl108958109072_ + _hd108960109066_)))) + (let ((_tl108962109076_ (let () (declare (not safe)) - (##cdr _e108960109067_))) - (_hd108959109070_ + (##cdr _e108964109071_))) + (_hd108963109074_ (let () (declare (not safe)) - (##car _e108960109067_)))) + (##car _e108964109071_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108958109072_)) + _tl108962109076_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl108955109064_)) - (let ((_e108963109075_ + (gx#stx-pair? _tl108959109068_)) + (let ((_e108967109079_ (let () (declare (not safe)) - (gx#stx-e _tl108955109064_)))) - (let ((_tl108961109080_ + (gx#stx-e _tl108959109068_)))) + (let ((_tl108965109084_ (let () (declare (not safe)) - (##cdr _e108963109075_))) - (_hd108962109078_ + (##cdr _e108967109079_))) + (_hd108966109082_ (let () (declare (not safe)) - (##car _e108963109075_)))) + (##car _e108967109079_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108961109080_)) - (___kont113529113530_ - _hd108962109078_ - _hd108959109070_) - (let () (declare (not safe)) (_g108951108976_))))) - (let () (declare (not safe)) (_g108951108976_))) + (gx#stx-null? _tl108965109084_)) + (___kont113533113534_ + _hd108966109082_ + _hd108963109074_) + (let () (declare (not safe)) (_g108955108980_))))) + (let () (declare (not safe)) (_g108955108980_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108955109064_)) - (let ((_e108971108989_ + (gx#stx-pair? _tl108959109068_)) + (let ((_e108975108993_ (let () (declare (not safe)) - (gx#stx-e _tl108955109064_)))) - (let ((_tl108969108994_ + (gx#stx-e _tl108959109068_)))) + (let ((_tl108973108998_ (let () (declare (not safe)) - (##cdr _e108971108989_))) - (_hd108970108992_ + (##cdr _e108975108993_))) + (_hd108974108996_ (let () (declare (not safe)) - (##car _e108971108989_)))) + (##car _e108975108993_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108969108994_)) - (___kont113531113532_ - _hd108970108992_ - _hd108956109062_) - (let () (declare (not safe)) (_g108951108976_))))) - (let () (declare (not safe)) (_g108951108976_)))))) + (gx#stx-null? _tl108973108998_)) + (___kont113535113536_ + _hd108974108996_ + _hd108960109066_) + (let () (declare (not safe)) (_g108955108980_))))) + (let () (declare (not safe)) (_g108955108980_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl108955109064_)) - (let ((_e108971108989_ + _tl108959109068_)) + (let ((_e108975108993_ (let () (declare (not safe)) (gx#stx-e - _tl108955109064_)))) - (let ((_tl108969108994_ + _tl108959109068_)))) + (let ((_tl108973108998_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e108971108989_))) - (_hd108970108992_ - (let () (declare (not safe)) (##car _e108971108989_)))) + (##cdr _e108975108993_))) + (_hd108974108996_ + (let () (declare (not safe)) (##car _e108975108993_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108969108994_)) - (___kont113531113532_ _hd108970108992_ _hd108956109062_) - (let () (declare (not safe)) (_g108951108976_))))) + (gx#stx-null? _tl108973108998_)) + (___kont113535113536_ _hd108974108996_ _hd108960109066_) + (let () (declare (not safe)) (_g108955108980_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g108951108976_)))))) + (_g108955108980_)))))) (let () (declare (not safe)) - (_g108951108976_))))))) - (___kont113575113576_ + (_g108955108980_))))))) + (___kont113579113580_ (lambda () - (let* ((_body108915_ - (if _compiled-body?108803_ - _body108887_ + (let* ((_body108919_ + (if _compiled-body?108807_ + _body108891_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108801_ - _body108887_)))) - (_body108917_ + _self108805_ + _body108891_)))) + (_body108921_ (let () (declare (not safe)) - (_generate-values-post108808_ - _post108894_ - _body108915_))) - (_body108919_ + (_generate-values-post108812_ + _post108898_ + _body108919_))) + (_body108923_ (let () (declare (not safe)) - (_generate-values-check108807_ - _check108893_ - _body108917_)))) - (let ((__tmp114590 - (let ((__tmp114592 - (reverse _bind108892_)) - (__tmp114591 + (_generate-values-check108811_ + _check108897_ + _body108921_)))) + (let ((__tmp114594 + (let ((__tmp114596 + (reverse _bind108896_)) + (__tmp114595 (let () (declare (not safe)) - (cons _body108919_ '())))) + (cons _body108923_ '())))) (declare (not safe)) - (cons __tmp114592 __tmp114591)))) + (cons __tmp114596 __tmp114595)))) (declare (not safe)) - (cons 'letrec __tmp114590)))))) + (cons 'letrec __tmp114594)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113571113572_)) - (let ((_e108903108927_ + (gx#stx-pair? ___stx113575113576_)) + (let ((_e108907108931_ (let () (declare (not safe)) - (gx#stx-e ___stx113571113572_)))) - (let ((_tl108901108932_ + (gx#stx-e ___stx113575113576_)))) + (let ((_tl108905108936_ (let () (declare (not safe)) - (##cdr _e108903108927_))) - (_hd108902108930_ + (##cdr _e108907108931_))) + (_hd108906108934_ (let () (declare (not safe)) - (##car _e108903108927_)))) - (___kont113573113574_ - _tl108901108932_ - _hd108902108930_))) - (___kont113575113576_))))))) - (_generate-values-check108807_ - (lambda (_check108883_ _body108884_) - (let ((__tmp114593 - (let ((__tmp114595 + (##car _e108907108931_)))) + (___kont113577113578_ + _tl108905108936_ + _hd108906108934_))) + (___kont113579113580_))))))) + (_generate-values-check108811_ + (lambda (_check108887_ _body108888_) + (let ((__tmp114597 + (let ((__tmp114599 (let () (declare (not safe)) - (cons _body108884_ '()))) - (__tmp114594 (reverse _check108883_))) + (cons _body108888_ '()))) + (__tmp114598 (reverse _check108887_))) (declare (not safe)) - (foldr1 cons __tmp114595 __tmp114594)))) + (foldr1 cons __tmp114599 __tmp114598)))) (declare (not safe)) - (cons 'begin __tmp114593)))) - (_generate-values-post108808_ - (lambda (_post108876_ _body108877_) - (let ((__tmp114596 - (let ((__tmp114598 + (cons 'begin __tmp114597)))) + (_generate-values-post108812_ + (lambda (_post108880_ _body108881_) + (let ((__tmp114600 + (let ((__tmp114602 (let () (declare (not safe)) - (cons _body108877_ '()))) - (__tmp114597 - (map (lambda (_g108878108880_) + (cons _body108881_ '()))) + (__tmp114601 + (map (lambda (_g108882108884_) (let () (declare (not safe)) - (cons 'set! _g108878108880_))) - (reverse _post108876_)))) + (cons 'set! _g108882108884_))) + (reverse _post108880_)))) (declare (not safe)) - (foldr1 cons __tmp114598 __tmp114597)))) + (foldr1 cons __tmp114602 __tmp114601)))) (declare (not safe)) - (cons 'begin __tmp114596))))) - (let* ((_g108810108827_ - (lambda (_g108811108824_) + (cons 'begin __tmp114600))))) + (let* ((_g108814108831_ + (lambda (_g108815108828_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108811108824_)))) - (_g108809108873_ - (lambda (_g108811108830_) + _g108815108828_)))) + (_g108813108877_ + (lambda (_g108815108834_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108811108830_)) - (let ((_e108816108832_ + (gx#stx-pair? _g108815108834_)) + (let ((_e108820108836_ (let () (declare (not safe)) - (gx#stx-e _g108811108830_)))) - (let ((_hd108815108835_ + (gx#stx-e _g108815108834_)))) + (let ((_hd108819108839_ (let () (declare (not safe)) - (##car _e108816108832_))) - (_tl108814108837_ + (##car _e108820108836_))) + (_tl108818108841_ (let () (declare (not safe)) - (##cdr _e108816108832_)))) + (##cdr _e108820108836_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108814108837_)) - (let ((_e108819108840_ + (gx#stx-pair? _tl108818108841_)) + (let ((_e108823108844_ (let () (declare (not safe)) - (gx#stx-e _tl108814108837_)))) - (let ((_hd108818108843_ + (gx#stx-e _tl108818108841_)))) + (let ((_hd108822108847_ (let () (declare (not safe)) - (##car _e108819108840_))) - (_tl108817108845_ + (##car _e108823108844_))) + (_tl108821108849_ (let () (declare (not safe)) - (##cdr _e108819108840_)))) + (##cdr _e108823108844_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108817108845_)) - (let ((_e108822108848_ + (gx#stx-pair? _tl108821108849_)) + (let ((_e108826108852_ (let () (declare (not safe)) - (gx#stx-e _tl108817108845_)))) - (let ((_hd108821108851_ + (gx#stx-e _tl108821108849_)))) + (let ((_hd108825108855_ (let () (declare (not safe)) - (##car _e108822108848_))) - (_tl108820108853_ + (##car _e108826108852_))) + (_tl108824108857_ (let () (declare (not safe)) - (##cdr _e108822108848_)))) + (##cdr _e108826108852_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108820108853_)) - ((lambda (_L108856_ _L108857_) + _tl108824108857_)) + ((lambda (_L108860_ _L108861_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L108857_)) + _L108861_)) (let () (declare (not safe)) - (_generate-simple108805_ - _L108857_ - _L108856_)) + (_generate-simple108809_ + _L108861_ + _L108860_)) (let () (declare (not safe)) - (_generate-values108806_ - _L108857_ - _L108856_)))) - _hd108821108851_ - _hd108818108843_) + (_generate-values108810_ + _L108861_ + _L108860_)))) + _hd108825108855_ + _hd108822108847_) (let () (declare (not safe)) - (_g108810108827_ - _g108811108830_))))) + (_g108814108831_ + _g108815108834_))))) (let () (declare (not safe)) - (_g108810108827_ _g108811108830_))))) + (_g108814108831_ _g108815108834_))))) (let () (declare (not safe)) - (_g108810108827_ _g108811108830_))))) + (_g108814108831_ _g108815108834_))))) (let () (declare (not safe)) - (_g108810108827_ _g108811108830_)))))) + (_g108814108831_ _g108815108834_)))))) (declare (not safe)) - (_g108809108873_ _stx108802_))))) + (_g108813108877_ _stx108806_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_self109113_ _stx109114_) - (let ((_compiled-body?109116_ '#f)) + (lambda (_self109117_ _stx109118_) + (let ((_compiled-body?109120_ '#f)) (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _self109113_ - _stx109114_ - _compiled-body?109116_)))) + _self109117_ + _stx109118_ + _compiled-body?109120_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g114600_ - (let ((_g114599_ (let () (declare (not safe)) (##length _g114600_)))) - (cond ((let () (declare (not safe)) (##fx= _g114599_ 2)) - (apply (lambda (_self109113_ _stx109114_) + (lambda _g114604_ + (let ((_g114603_ (let () (declare (not safe)) (##length _g114604_)))) + (cond ((let () (declare (not safe)) (##fx= _g114603_ 2)) + (apply (lambda (_self109117_ _stx109118_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__0 - _self109113_ - _stx109114_))) - _g114600_)) - ((let () (declare (not safe)) (##fx= _g114599_ 3)) - (apply (lambda (_self109118_ - _stx109119_ - _compiled-body?109120_) + _self109117_ + _stx109118_))) + _g114604_)) + ((let () (declare (not safe)) (##fx= _g114603_ 3)) + (apply (lambda (_self109122_ + _stx109123_ + _compiled-body?109124_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _self109118_ - _stx109119_ - _compiled-body?109120_))) - _g114600_)) + _self109122_ + _stx109123_ + _compiled-body?109124_))) + _g114604_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g114600_)))))) + _g114604_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_self108382_ _stx108383_) - (letrec ((_generate-values108385_ - (lambda (_hd108628_ _body108629_) - (let _lp108631_ ((_rest108633_ _hd108628_) - (_bind108634_ '())) - (let* ((_rest108635108643_ _rest108633_) - (_else108637108654_ + (lambda (_self108386_ _stx108387_) + (letrec ((_generate-values108389_ + (lambda (_hd108632_ _body108633_) + (let _lp108635_ ((_rest108637_ _hd108632_) + (_bind108638_ '())) + (let* ((_rest108639108647_ _rest108637_) + (_else108641108658_ (lambda () - (let ((_bind108651_ (reverse _bind108634_)) - (_body108652_ + (let ((_bind108655_ (reverse _bind108638_)) + (_body108656_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108382_ - _body108629_)))) - (let ((__tmp114601 - (let ((__tmp114602 + _self108386_ + _body108633_)))) + (let ((__tmp114605 + (let ((__tmp114606 (let () (declare (not safe)) - (cons _body108652_ '())))) + (cons _body108656_ '())))) (declare (not safe)) - (cons _bind108651_ __tmp114602)))) + (cons _bind108655_ __tmp114606)))) (declare (not safe)) - (cons 'letrec* __tmp114601))))) - (_K108639108788_ - (lambda (_rest108657_ _hd-bind108658_) - (let* ((___stx113585113586_ _hd-bind108658_) - (_g108661108686_ + (cons 'letrec* __tmp114605))))) + (_K108643108792_ + (lambda (_rest108661_ _hd-bind108662_) + (let* ((___stx113589113590_ _hd-bind108662_) + (_g108665108690_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113585113586_))))) - (let ((___kont113587113588_ - (lambda (_L108767_ _L108768_) - (let ((_eid108782_ + ___stx113589113590_))))) + (let ((___kont113591113592_ + (lambda (_L108771_ _L108772_) + (let ((_eid108786_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L108768_))) - (_expr108783_ + _L108772_))) + (_expr108787_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108382_ - _L108767_)))) - (let ((__tmp114603 - (let ((__tmp114604 - (let ((__tmp114605 + _self108386_ + _L108771_)))) + (let ((__tmp114607 + (let ((__tmp114608 + (let ((__tmp114609 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr108783_ '())))) + (cons _expr108787_ '())))) (declare (not safe)) - (cons _eid108782_ __tmp114605)))) + (cons _eid108786_ __tmp114609)))) (declare (not safe)) - (cons __tmp114604 _bind108634_)))) + (cons __tmp114608 _bind108638_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp108631_ - _rest108657_ - __tmp114603))))) - (___kont113589113590_ - (lambda (_L108707_ _L108708_) - (let* ((_vals108727_ + (_lp108635_ + _rest108661_ + __tmp114607))))) + (___kont113593113594_ + (lambda (_L108711_ _L108712_) + (let* ((_vals108731_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_tmp108729_ + (_tmp108733_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values108731_ + (_check-values108735_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp108729_ - _L108708_ - _L108707_))) - (_refs108733_ + _tmp108733_ + _L108712_ + _L108711_))) + (_refs108737_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals108727_ - _L108708_))) - (_expr108735_ + _vals108731_ + _L108712_))) + (_expr108739_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108382_ - _L108707_)))) - (let ((__tmp114606 - (let ((__tmp114607 - (let ((__tmp114608 + _self108386_ + _L108711_)))) + (let ((__tmp114610 + (let ((__tmp114611 + (let ((__tmp114612 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114609 - (let ((__tmp114610 - (let ((__tmp114611 - (let ((__tmp114614 - (let ((__tmp114615 - (let ((__tmp114616 + (let ((__tmp114613 + (let ((__tmp114614 + (let ((__tmp114615 + (let ((__tmp114618 + (let ((__tmp114619 + (let ((__tmp114620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr108735_ '())))) + (cons _expr108739_ '())))) (declare (not safe)) - (cons _tmp108729_ __tmp114616)))) + (cons _tmp108733_ __tmp114620)))) (declare (not safe)) - (cons __tmp114615 '()))) + (cons __tmp114619 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114612 - (let ((__tmp114613 + (__tmp114616 + (let ((__tmp114617 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _tmp108729_ '())))) + (cons _tmp108733_ '())))) (declare (not safe)) - (cons _check-values108731_ __tmp114613)))) + (cons _check-values108735_ __tmp114617)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114614 - __tmp114612)))) + (cons __tmp114618 + __tmp114616)))) (declare (not safe)) - (cons 'let __tmp114611)))) + (cons 'let __tmp114615)))) (declare (not safe)) - (cons __tmp114610 '())))) + (cons __tmp114614 '())))) (declare (not safe)) - (cons _vals108727_ __tmp114609)))) + (cons _vals108731_ __tmp114613)))) (declare (not safe)) - (cons __tmp114608 _bind108634_)))) + (cons __tmp114612 _bind108638_)))) (declare (not safe)) - (foldl1 cons __tmp114607 _refs108733_)))) + (foldl1 cons __tmp114611 _refs108737_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp108631_ - _rest108657_ - __tmp114606)))))) + (_lp108635_ + _rest108661_ + __tmp114610)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113585113586_)) - (let ((_e108667108743_ + (gx#stx-pair? ___stx113589113590_)) + (let ((_e108671108747_ (let () (declare (not safe)) (gx#stx-e - ___stx113585113586_)))) - (let ((_tl108665108748_ + ___stx113589113590_)))) + (let ((_tl108669108752_ (let () (declare (not safe)) - (##cdr _e108667108743_))) - (_hd108666108746_ + (##cdr _e108671108747_))) + (_hd108670108750_ (let () (declare (not safe)) - (##car _e108667108743_)))) + (##car _e108671108747_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108666108746_)) - (let ((_e108670108751_ + _hd108670108750_)) + (let ((_e108674108755_ (let () (declare (not safe)) (gx#stx-e - _hd108666108746_)))) - (let ((_tl108668108756_ + _hd108670108750_)))) + (let ((_tl108672108760_ (let () (declare (not safe)) - (##cdr _e108670108751_))) - (_hd108669108754_ + (##cdr _e108674108755_))) + (_hd108673108758_ (let () (declare (not safe)) - (##car _e108670108751_)))) + (##car _e108674108755_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108668108756_)) + _tl108672108760_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl108665108748_)) - (let ((_e108673108759_ + _tl108669108752_)) + (let ((_e108677108763_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl108665108748_)))) - (let ((_tl108671108764_ + (gx#stx-e _tl108669108752_)))) + (let ((_tl108675108768_ (let () (declare (not safe)) - (##cdr _e108673108759_))) - (_hd108672108762_ + (##cdr _e108677108763_))) + (_hd108676108766_ (let () (declare (not safe)) - (##car _e108673108759_)))) + (##car _e108677108763_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108671108764_)) - (___kont113587113588_ - _hd108672108762_ - _hd108669108754_) - (let () (declare (not safe)) (_g108661108686_))))) - (let () (declare (not safe)) (_g108661108686_))) + (gx#stx-null? _tl108675108768_)) + (___kont113591113592_ + _hd108676108766_ + _hd108673108758_) + (let () (declare (not safe)) (_g108665108690_))))) + (let () (declare (not safe)) (_g108665108690_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108665108748_)) - (let ((_e108681108699_ + (gx#stx-pair? _tl108669108752_)) + (let ((_e108685108703_ (let () (declare (not safe)) - (gx#stx-e _tl108665108748_)))) - (let ((_tl108679108704_ + (gx#stx-e _tl108669108752_)))) + (let ((_tl108683108708_ (let () (declare (not safe)) - (##cdr _e108681108699_))) - (_hd108680108702_ + (##cdr _e108685108703_))) + (_hd108684108706_ (let () (declare (not safe)) - (##car _e108681108699_)))) + (##car _e108685108703_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108679108704_)) - (___kont113589113590_ - _hd108680108702_ - _hd108666108746_) - (let () (declare (not safe)) (_g108661108686_))))) - (let () (declare (not safe)) (_g108661108686_)))))) + (gx#stx-null? _tl108683108708_)) + (___kont113593113594_ + _hd108684108706_ + _hd108670108750_) + (let () (declare (not safe)) (_g108665108690_))))) + (let () (declare (not safe)) (_g108665108690_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl108665108748_)) - (let ((_e108681108699_ + _tl108669108752_)) + (let ((_e108685108703_ (let () (declare (not safe)) (gx#stx-e - _tl108665108748_)))) - (let ((_tl108679108704_ + _tl108669108752_)))) + (let ((_tl108683108708_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e108681108699_))) - (_hd108680108702_ - (let () (declare (not safe)) (##car _e108681108699_)))) + (##cdr _e108685108703_))) + (_hd108684108706_ + (let () (declare (not safe)) (##car _e108685108703_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108679108704_)) - (___kont113589113590_ _hd108680108702_ _hd108666108746_) - (let () (declare (not safe)) (_g108661108686_))))) + (gx#stx-null? _tl108683108708_)) + (___kont113593113594_ _hd108684108706_ _hd108670108750_) + (let () (declare (not safe)) (_g108665108690_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g108661108686_)))))) + (_g108665108690_)))))) (let () (declare (not safe)) - (_g108661108686_)))))))) + (_g108665108690_)))))))) (if (let () (declare (not safe)) - (##pair? _rest108635108643_)) - (let ((_hd108640108791_ + (##pair? _rest108639108647_)) + (let ((_hd108644108795_ (let () (declare (not safe)) - (##car _rest108635108643_))) - (_tl108641108793_ + (##car _rest108639108647_))) + (_tl108645108797_ (let () (declare (not safe)) - (##cdr _rest108635108643_)))) - (let* ((_hd-bind108796_ _hd108640108791_) - (_rest108798_ _tl108641108793_)) + (##cdr _rest108639108647_)))) + (let* ((_hd-bind108800_ _hd108644108795_) + (_rest108802_ _tl108645108797_)) (declare (not safe)) - (_K108639108788_ - _rest108798_ - _hd-bind108796_))) + (_K108643108792_ + _rest108802_ + _hd-bind108800_))) (let () (declare (not safe)) - (_else108637108654_))))))) - (_generate-letrec?108386_ - (lambda (_hd108518_) - (let _lp108520_ ((_rest108522_ _hd108518_)) - (let* ((_rest108523108531_ _rest108522_) - (_else108525108539_ (lambda () '#t)) - (_K108527108616_ - (lambda (_rest108542_ _hd-bind108543_) - (let* ((_g108545108562_ - (lambda (_g108546108559_) + (_else108641108658_))))))) + (_generate-letrec?108390_ + (lambda (_hd108522_) + (let _lp108524_ ((_rest108526_ _hd108522_)) + (let* ((_rest108527108535_ _rest108526_) + (_else108529108543_ (lambda () '#t)) + (_K108531108620_ + (lambda (_rest108546_ _hd-bind108547_) + (let* ((_g108549108566_ + (lambda (_g108550108563_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108546108559_)))) - (_g108544108613_ - (lambda (_g108546108565_) + _g108550108563_)))) + (_g108548108617_ + (lambda (_g108550108569_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108546108565_)) - (let ((_e108551108567_ + (gx#stx-pair? _g108550108569_)) + (let ((_e108555108571_ (let () (declare (not safe)) (gx#stx-e - _g108546108565_)))) - (let ((_hd108550108570_ + _g108550108569_)))) + (let ((_hd108554108574_ (let () (declare (not safe)) - (##car _e108551108567_))) - (_tl108549108572_ + (##car _e108555108571_))) + (_tl108553108576_ (let () (declare (not safe)) - (##cdr _e108551108567_)))) + (##cdr _e108555108571_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108550108570_)) - (let ((_e108554108575_ + _hd108554108574_)) + (let ((_e108558108579_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd108550108570_)))) - (let ((_hd108553108578_ - (let () (declare (not safe)) (##car _e108554108575_))) - (_tl108552108580_ - (let () (declare (not safe)) (##cdr _e108554108575_)))) + (gx#stx-e _hd108554108574_)))) + (let ((_hd108557108582_ + (let () (declare (not safe)) (##car _e108558108579_))) + (_tl108556108584_ + (let () (declare (not safe)) (##cdr _e108558108579_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108552108580_)) + (gx#stx-null? _tl108556108584_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108549108572_)) - (let ((_e108557108583_ + (gx#stx-pair? _tl108553108576_)) + (let ((_e108561108587_ (let () (declare (not safe)) - (gx#stx-e _tl108549108572_)))) - (let ((_hd108556108586_ + (gx#stx-e _tl108553108576_)))) + (let ((_hd108560108590_ (let () (declare (not safe)) - (##car _e108557108583_))) - (_tl108555108588_ + (##car _e108561108587_))) + (_tl108559108592_ (let () (declare (not safe)) - (##cdr _e108557108583_)))) + (##cdr _e108561108587_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108555108588_)) - ((lambda (_L108591_ _L108592_) + (gx#stx-null? _tl108559108592_)) + ((lambda (_L108595_ _L108596_) (if (let () (declare (not safe)) - (_is-lambda-expr?108387_ _L108591_)) + (_is-lambda-expr?108391_ _L108595_)) (let () (declare (not safe)) - (_lp108520_ _rest108542_)) + (_lp108524_ _rest108546_)) '#f)) - _hd108556108586_ - _hd108553108578_) + _hd108560108590_ + _hd108557108582_) (let () (declare (not safe)) - (_g108545108562_ _g108546108565_))))) + (_g108549108566_ _g108550108569_))))) (let () (declare (not safe)) - (_g108545108562_ _g108546108565_))) + (_g108549108566_ _g108550108569_))) (let () (declare (not safe)) - (_g108545108562_ _g108546108565_))))) + (_g108549108566_ _g108550108569_))))) (let () (declare (not safe)) - (_g108545108562_ _g108546108565_))))) + (_g108549108566_ _g108550108569_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g108545108562_ - _g108546108565_)))))) + (_g108549108566_ + _g108550108569_)))))) (declare (not safe)) - (_g108544108613_ _hd-bind108543_))))) + (_g108548108617_ _hd-bind108547_))))) (if (let () (declare (not safe)) - (##pair? _rest108523108531_)) - (let ((_hd108528108619_ + (##pair? _rest108527108535_)) + (let ((_hd108532108623_ (let () (declare (not safe)) - (##car _rest108523108531_))) - (_tl108529108621_ + (##car _rest108527108535_))) + (_tl108533108625_ (let () (declare (not safe)) - (##cdr _rest108523108531_)))) - (let* ((_hd-bind108624_ _hd108528108619_) - (_rest108626_ _tl108529108621_)) + (##cdr _rest108527108535_)))) + (let* ((_hd-bind108628_ _hd108532108623_) + (_rest108630_ _tl108533108625_)) (declare (not safe)) - (_K108527108616_ - _rest108626_ - _hd-bind108624_))) + (_K108531108620_ + _rest108630_ + _hd-bind108628_))) (let () (declare (not safe)) - (_else108525108539_))))))) - (_is-lambda-expr?108387_ - (lambda (_expr108455_) - (let* ((___stx113629113630_ _expr108455_) - (_g108458108472_ + (_else108529108543_))))))) + (_is-lambda-expr?108391_ + (lambda (_expr108459_) + (let* ((___stx113633113634_ _expr108459_) + (_g108462108476_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113629113630_))))) - (let ((___kont113631113632_ - (lambda (_L108500_ _L108501_) '#t)) - (___kont113633113634_ (lambda () '#f))) + ___stx113633113634_))))) + (let ((___kont113635113636_ + (lambda (_L108504_ _L108505_) '#t)) + (___kont113637113638_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113629113630_)) - (let ((_e108464108484_ + (gx#stx-pair? ___stx113633113634_)) + (let ((_e108468108488_ (let () (declare (not safe)) - (gx#stx-e ___stx113629113630_)))) - (let ((_tl108462108489_ + (gx#stx-e ___stx113633113634_)))) + (let ((_tl108466108493_ (let () (declare (not safe)) - (##cdr _e108464108484_))) - (_hd108463108487_ + (##cdr _e108468108488_))) + (_hd108467108491_ (let () (declare (not safe)) - (##car _e108464108484_)))) + (##car _e108468108488_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd108463108487_)) + (gx#identifier? _hd108467108491_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd108463108487_)) + _hd108467108491_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108462108489_)) - (let ((_e108467108492_ + (gx#stx-pair? _tl108466108493_)) + (let ((_e108471108496_ (let () (declare (not safe)) (gx#stx-e - _tl108462108489_)))) - (let ((_tl108465108497_ + _tl108466108493_)))) + (let ((_tl108469108501_ (let () (declare (not safe)) - (##cdr _e108467108492_))) - (_hd108466108495_ + (##cdr _e108471108496_))) + (_hd108470108499_ (let () (declare (not safe)) - (##car _e108467108492_)))) - (___kont113631113632_ - _tl108465108497_ - _hd108466108495_))) - (___kont113633113634_)) - (___kont113633113634_)) - (___kont113633113634_)))) - (___kont113633113634_))))))) - (let* ((_g108389108406_ - (lambda (_g108390108403_) + (##car _e108471108496_)))) + (___kont113635113636_ + _tl108469108501_ + _hd108470108499_))) + (___kont113637113638_)) + (___kont113637113638_)) + (___kont113637113638_)))) + (___kont113637113638_))))))) + (let* ((_g108393108410_ + (lambda (_g108394108407_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108390108403_)))) - (_g108388108452_ - (lambda (_g108390108409_) + _g108394108407_)))) + (_g108392108456_ + (lambda (_g108394108413_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108390108409_)) - (let ((_e108395108411_ + (gx#stx-pair? _g108394108413_)) + (let ((_e108399108415_ (let () (declare (not safe)) - (gx#stx-e _g108390108409_)))) - (let ((_hd108394108414_ + (gx#stx-e _g108394108413_)))) + (let ((_hd108398108418_ (let () (declare (not safe)) - (##car _e108395108411_))) - (_tl108393108416_ + (##car _e108399108415_))) + (_tl108397108420_ (let () (declare (not safe)) - (##cdr _e108395108411_)))) + (##cdr _e108399108415_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108393108416_)) - (let ((_e108398108419_ + (gx#stx-pair? _tl108397108420_)) + (let ((_e108402108423_ (let () (declare (not safe)) - (gx#stx-e _tl108393108416_)))) - (let ((_hd108397108422_ + (gx#stx-e _tl108397108420_)))) + (let ((_hd108401108426_ (let () (declare (not safe)) - (##car _e108398108419_))) - (_tl108396108424_ + (##car _e108402108423_))) + (_tl108400108428_ (let () (declare (not safe)) - (##cdr _e108398108419_)))) + (##cdr _e108402108423_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108396108424_)) - (let ((_e108401108427_ + (gx#stx-pair? _tl108400108428_)) + (let ((_e108405108431_ (let () (declare (not safe)) - (gx#stx-e _tl108396108424_)))) - (let ((_hd108400108430_ + (gx#stx-e _tl108400108428_)))) + (let ((_hd108404108434_ (let () (declare (not safe)) - (##car _e108401108427_))) - (_tl108399108432_ + (##car _e108405108431_))) + (_tl108403108436_ (let () (declare (not safe)) - (##cdr _e108401108427_)))) + (##cdr _e108405108431_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108399108432_)) - ((lambda (_L108435_ _L108436_) + _tl108403108436_)) + ((lambda (_L108439_ _L108440_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L108436_)) + _L108440_)) (if (let () (declare (not safe)) - (_generate-letrec?108386_ - _L108436_)) + (_generate-letrec?108390_ + _L108440_)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let - _self108382_ + _self108386_ 'letrec - _L108436_ - _L108435_ + _L108440_ + _L108439_ '#f)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let - _self108382_ + _self108386_ 'letrec* - _L108436_ - _L108435_ + _L108440_ + _L108439_ '#f))) (let () (declare (not safe)) - (_generate-values108385_ - _L108436_ - _L108435_)))) - _hd108400108430_ - _hd108397108422_) + (_generate-values108389_ + _L108440_ + _L108439_)))) + _hd108404108434_ + _hd108401108426_) (let () (declare (not safe)) - (_g108389108406_ - _g108390108409_))))) + (_g108393108410_ + _g108394108413_))))) (let () (declare (not safe)) - (_g108389108406_ _g108390108409_))))) + (_g108393108410_ _g108394108413_))))) (let () (declare (not safe)) - (_g108389108406_ _g108390108409_))))) + (_g108393108410_ _g108394108413_))))) (let () (declare (not safe)) - (_g108389108406_ _g108390108409_)))))) + (_g108393108410_ _g108394108413_)))))) (declare (not safe)) - (_g108388108452_ _stx108383_))))) + (_g108392108456_ _stx108387_))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd108319_) - (let _lp108321_ ((_rest108323_ _hd108319_)) - (let* ((_rest108324108340_ _rest108323_) - (_else108327108348_ (lambda () '#f))) - (let ((_K108330108361_ - (lambda (_rest108359_) - (let () (declare (not safe)) (_lp108321_ _rest108359_)))) - (_K108329108353_ (lambda () '#t))) - (let ((_try-match108326108356_ + (lambda (_hd108323_) + (let _lp108325_ ((_rest108327_ _hd108323_)) + (let* ((_rest108328108344_ _rest108327_) + (_else108331108352_ (lambda () '#f))) + (let ((_K108334108365_ + (lambda (_rest108363_) + (let () (declare (not safe)) (_lp108325_ _rest108363_)))) + (_K108333108357_ (lambda () '#t))) + (let ((_try-match108330108360_ (lambda () (if (let () (declare (not safe)) - (##null? _rest108324108340_)) - (let () (declare (not safe)) (_K108329108353_)) + (##null? _rest108328108344_)) + (let () (declare (not safe)) (_K108333108357_)) (let () (declare (not safe)) - (_else108327108348_)))))) - (if (let () (declare (not safe)) (##pair? _rest108324108340_)) - (let ((_tl108332108366_ + (_else108331108352_)))))) + (if (let () (declare (not safe)) (##pair? _rest108328108344_)) + (let ((_tl108336108370_ (let () (declare (not safe)) - (##cdr _rest108324108340_))) - (_hd108331108364_ + (##cdr _rest108328108344_))) + (_hd108335108368_ (let () (declare (not safe)) - (##car _rest108324108340_)))) + (##car _rest108328108344_)))) (if (let () (declare (not safe)) - (##pair? _hd108331108364_)) - (let ((_tl108334108371_ + (##pair? _hd108335108368_)) + (let ((_tl108338108375_ (let () (declare (not safe)) - (##cdr _hd108331108364_))) - (_hd108333108369_ + (##cdr _hd108335108368_))) + (_hd108337108373_ (let () (declare (not safe)) - (##car _hd108331108364_)))) + (##car _hd108335108368_)))) (if (let () (declare (not safe)) - (##pair? _hd108333108369_)) - (let ((_tl108338108374_ + (##pair? _hd108337108373_)) + (let ((_tl108342108378_ (let () (declare (not safe)) - (##cdr _hd108333108369_)))) + (##cdr _hd108337108373_)))) (if (let () (declare (not safe)) - (##null? _tl108338108374_)) + (##null? _tl108342108378_)) (if (let () (declare (not safe)) - (##pair? _tl108334108371_)) - (let ((_tl108336108377_ + (##pair? _tl108338108375_)) + (let ((_tl108340108381_ (let () (declare (not safe)) - (##cdr _tl108334108371_)))) + (##cdr _tl108338108375_)))) (if (let () (declare (not safe)) - (##null? _tl108336108377_)) - (let ((_rest108380_ - _tl108332108366_)) + (##null? _tl108340108381_)) + (let ((_rest108384_ + _tl108336108370_)) (declare (not safe)) - (_lp108321_ _rest108380_)) + (_lp108325_ _rest108384_)) (let () (declare (not safe)) - (_else108327108348_)))) + (_else108331108352_)))) (let () (declare (not safe)) - (_else108327108348_))) + (_else108331108352_))) (let () (declare (not safe)) - (_else108327108348_)))) + (_else108331108352_)))) (let () (declare (not safe)) - (_else108327108348_)))) - (let () (declare (not safe)) (_else108327108348_)))) + (_else108331108352_)))) + (let () (declare (not safe)) (_else108331108352_)))) (let () (declare (not safe)) - (_try-match108326108356_))))))))) + (_try-match108330108360_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_self108230_ - _form108231_ - _hd108232_ - _body108233_ - _compiled-body?108234_) - (letrec ((_generate1108236_ - (lambda (_bind108275_) - (let* ((_bind108276108287_ _bind108275_) - (_E108278108291_ + (lambda (_self108234_ + _form108235_ + _hd108236_ + _body108237_ + _compiled-body?108238_) + (letrec ((_generate1108240_ + (lambda (_bind108279_) + (let* ((_bind108280108291_ _bind108279_) + (_E108282108295_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind108276108287_)))) - (_K108279108297_ - (lambda (_expr108294_ _id108295_) - (let ((__tmp114619 + _bind108280108291_)))) + (_K108283108301_ + (lambda (_expr108298_ _id108299_) + (let ((__tmp114623 (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _id108295_))) - (__tmp114617 - (let ((__tmp114618 + _id108299_))) + (__tmp114621 + (let ((__tmp114622 (let () (declare (not safe)) (gxc#compile-e__1 - _self108230_ - _expr108294_)))) + _self108234_ + _expr108298_)))) (declare (not safe)) - (cons __tmp114618 '())))) + (cons __tmp114622 '())))) (declare (not safe)) - (cons __tmp114619 __tmp114617))))) + (cons __tmp114623 __tmp114621))))) (if (let () (declare (not safe)) - (##pair? _bind108276108287_)) - (let ((_hd108280108300_ + (##pair? _bind108280108291_)) + (let ((_hd108284108304_ (let () (declare (not safe)) - (##car _bind108276108287_))) - (_tl108281108302_ + (##car _bind108280108291_))) + (_tl108285108306_ (let () (declare (not safe)) - (##cdr _bind108276108287_)))) + (##cdr _bind108280108291_)))) (if (let () (declare (not safe)) - (##pair? _hd108280108300_)) - (let ((_hd108284108305_ + (##pair? _hd108284108304_)) + (let ((_hd108288108309_ (let () (declare (not safe)) - (##car _hd108280108300_))) - (_tl108285108307_ + (##car _hd108284108304_))) + (_tl108289108311_ (let () (declare (not safe)) - (##cdr _hd108280108300_)))) - (let ((_id108310_ _hd108284108305_)) + (##cdr _hd108284108304_)))) + (let ((_id108314_ _hd108288108309_)) (if (let () (declare (not safe)) - (##null? _tl108285108307_)) + (##null? _tl108289108311_)) (if (let () (declare (not safe)) - (##pair? _tl108281108302_)) - (let ((_hd108282108312_ + (##pair? _tl108285108306_)) + (let ((_hd108286108316_ (let () (declare (not safe)) - (##car _tl108281108302_))) - (_tl108283108314_ + (##car _tl108285108306_))) + (_tl108287108318_ (let () (declare (not safe)) - (##cdr _tl108281108302_)))) - (let ((_expr108317_ - _hd108282108312_)) + (##cdr _tl108285108306_)))) + (let ((_expr108321_ + _hd108286108316_)) (if (let () (declare (not safe)) - (##null? _tl108283108314_)) + (##null? _tl108287108318_)) (let () (declare (not safe)) - (_K108279108297_ - _expr108317_ - _id108310_)) + (_K108283108301_ + _expr108321_ + _id108314_)) (let () (declare (not safe)) - (_E108278108291_))))) + (_E108282108295_))))) (let () (declare (not safe)) - (_E108278108291_))) + (_E108282108295_))) (let () (declare (not safe)) - (_E108278108291_))))) + (_E108282108295_))))) (let () (declare (not safe)) - (_E108278108291_)))) - (let () (declare (not safe)) (_E108278108291_))))))) - (let* ((_bind108238_ (map _generate1108236_ _hd108232_)) - (_body108240_ - (if _compiled-body?108234_ - _body108233_ + (_E108282108295_)))) + (let () (declare (not safe)) (_E108282108295_))))))) + (let* ((_bind108242_ (map _generate1108240_ _hd108236_)) + (_body108244_ + (if _compiled-body?108238_ + _body108237_ (let () (declare (not safe)) - (gxc#compile-e__1 _self108230_ _body108233_)))) - (_body108272_ - (let* ((_body108241108249_ _body108240_) - (_else108243108257_ + (gxc#compile-e__1 _self108234_ _body108237_)))) + (_body108276_ + (let* ((_body108245108253_ _body108244_) + (_else108247108261_ (lambda () (let () (declare (not safe)) - (cons _body108240_ '())))) - (_K108245108262_ - (lambda (_exprs108260_) _exprs108260_))) + (cons _body108244_ '())))) + (_K108249108266_ + (lambda (_exprs108264_) _exprs108264_))) (if (let () (declare (not safe)) - (##pair? _body108241108249_)) - (let ((_hd108246108265_ + (##pair? _body108245108253_)) + (let ((_hd108250108269_ (let () (declare (not safe)) - (##car _body108241108249_))) - (_tl108247108267_ + (##car _body108245108253_))) + (_tl108251108271_ (let () (declare (not safe)) - (##cdr _body108241108249_)))) + (##cdr _body108245108253_)))) (if (let () (declare (not safe)) - (##eq? _hd108246108265_ 'begin)) - (let ((_exprs108270_ _tl108247108267_)) + (##eq? _hd108250108269_ 'begin)) + (let ((_exprs108274_ _tl108251108271_)) (declare (not safe)) - (_K108245108262_ _exprs108270_)) + (_K108249108266_ _exprs108274_)) (let () (declare (not safe)) - (_else108243108257_)))) - (let () (declare (not safe)) (_else108243108257_)))))) - (let ((__tmp114620 + (_else108247108261_)))) + (let () (declare (not safe)) (_else108247108261_)))))) + (let ((__tmp114624 (let () (declare (not safe)) - (cons _bind108238_ _body108272_)))) + (cons _bind108242_ _body108276_)))) (declare (not safe)) - (cons _form108231_ __tmp114620)))))) + (cons _form108235_ __tmp114624)))))) (define gxc#generate-runtime-quote% - (lambda (_self108137_ _stx108138_) - (letrec ((_generate1108140_ - (lambda (_datum108192_) - (if (or (let () (declare (not safe)) (null? _datum108192_)) - (interned-symbol? _datum108192_) + (lambda (_self108141_ _stx108142_) + (letrec ((_generate1108144_ + (lambda (_datum108196_) + (if (or (let () (declare (not safe)) (null? _datum108196_)) + (interned-symbol? _datum108196_) (let () (declare (not safe)) - (gx#self-quoting? _datum108192_)) + (gx#self-quoting? _datum108196_)) (let () (declare (not safe)) - (eof-object? _datum108192_))) - _datum108192_ - (if (uninterned-symbol? _datum108192_) + (eof-object? _datum108196_))) + _datum108196_ + (if (uninterned-symbol? _datum108196_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _datum108192_ + _datum108196_ '#t)) (if (let () (declare (not safe)) - (pair? _datum108192_)) - (let ((__tmp114625 - (let ((__tmp114626 (car _datum108192_))) + (pair? _datum108196_)) + (let ((__tmp114629 + (let ((__tmp114630 (car _datum108196_))) (declare (not safe)) - (_generate1108140_ __tmp114626))) - (__tmp114623 - (let ((__tmp114624 (cdr _datum108192_))) + (_generate1108144_ __tmp114630))) + (__tmp114627 + (let ((__tmp114628 (cdr _datum108196_))) (declare (not safe)) - (_generate1108140_ __tmp114624)))) + (_generate1108144_ __tmp114628)))) (declare (not safe)) - (cons __tmp114625 __tmp114623)) + (cons __tmp114629 __tmp114627)) (if (let () (declare (not safe)) - (box? _datum108192_)) - (let ((__tmp114621 - (let ((__tmp114622 - (unbox _datum108192_))) + (box? _datum108196_)) + (let ((__tmp114625 + (let ((__tmp114626 + (unbox _datum108196_))) (declare (not safe)) - (_generate1108140_ __tmp114622)))) + (_generate1108144_ __tmp114626)))) (declare (not safe)) - (box __tmp114621)) + (box __tmp114625)) (if (let () (declare (not safe)) - (vector? _datum108192_)) + (vector? _datum108196_)) (vector-map - _generate1108140_ - _datum108192_) - (if (or (s8vector? _datum108192_) + _generate1108144_ + _datum108196_) + (if (or (s8vector? _datum108196_) (let () (declare (not safe)) - (u8vector? _datum108192_)) - (s16vector? _datum108192_) - (u16vector? _datum108192_) - (s32vector? _datum108192_) - (u32vector? _datum108192_) - (s64vector? _datum108192_) - (u64vector? _datum108192_) - (f32vector? _datum108192_) - (f64vector? _datum108192_)) - _datum108192_ + (u8vector? _datum108196_)) + (s16vector? _datum108196_) + (u16vector? _datum108196_) + (s32vector? _datum108196_) + (u32vector? _datum108196_) + (s64vector? _datum108196_) + (u64vector? _datum108196_) + (f32vector? _datum108196_) + (f64vector? _datum108196_)) + _datum108196_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx108138_))))))))))) - (let* ((_g108142108155_ - (lambda (_g108143108152_) + _stx108142_))))))))))) + (let* ((_g108146108159_ + (lambda (_g108147108156_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108143108152_)))) - (_g108141108189_ - (lambda (_g108143108158_) + _g108147108156_)))) + (_g108145108193_ + (lambda (_g108147108162_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108143108158_)) - (let ((_e108147108160_ + (gx#stx-pair? _g108147108162_)) + (let ((_e108151108164_ (let () (declare (not safe)) - (gx#stx-e _g108143108158_)))) - (let ((_hd108146108163_ + (gx#stx-e _g108147108162_)))) + (let ((_hd108150108167_ (let () (declare (not safe)) - (##car _e108147108160_))) - (_tl108145108165_ + (##car _e108151108164_))) + (_tl108149108169_ (let () (declare (not safe)) - (##cdr _e108147108160_)))) + (##cdr _e108151108164_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108145108165_)) - (let ((_e108150108168_ + (gx#stx-pair? _tl108149108169_)) + (let ((_e108154108172_ (let () (declare (not safe)) - (gx#stx-e _tl108145108165_)))) - (let ((_hd108149108171_ + (gx#stx-e _tl108149108169_)))) + (let ((_hd108153108175_ (let () (declare (not safe)) - (##car _e108150108168_))) - (_tl108148108173_ + (##car _e108154108172_))) + (_tl108152108177_ (let () (declare (not safe)) - (##cdr _e108150108168_)))) + (##cdr _e108154108172_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108148108173_)) - ((lambda (_L108176_) - (let ((__tmp114627 - (let ((__tmp114628 - (let ((__tmp114629 + (gx#stx-null? _tl108152108177_)) + ((lambda (_L108180_) + (let ((__tmp114631 + (let ((__tmp114632 + (let ((__tmp114633 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L108176_)))) + (gx#stx-e _L108180_)))) (declare (not safe)) - (_generate1108140_ __tmp114629)))) + (_generate1108144_ __tmp114633)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114628 '())))) + (cons __tmp114632 '())))) (declare (not safe)) - (cons 'quote __tmp114627))) - _hd108149108171_) + (cons 'quote __tmp114631))) + _hd108153108175_) (let () (declare (not safe)) - (_g108142108155_ _g108143108158_))))) + (_g108146108159_ _g108147108162_))))) (let () (declare (not safe)) - (_g108142108155_ _g108143108158_))))) + (_g108146108159_ _g108147108162_))))) (let () (declare (not safe)) - (_g108142108155_ _g108143108158_)))))) + (_g108146108159_ _g108147108162_)))))) (declare (not safe)) - (_g108141108189_ _stx108138_))))) + (_g108145108193_ _stx108142_))))) (define gxc#generate-runtime-call% - (lambda (_self107650_ _stx107651_) - (letrec ((_compile-call107653_ - (lambda (_rator107877_ _rands107878_) - (let ((_rator107884_ + (lambda (_self107654_ _stx107655_) + (letrec ((_compile-call107657_ + (lambda (_rator107881_ _rands107882_) + (let ((_rator107888_ (let () (declare (not safe)) - (gxc#compile-e__1 _self107650_ _rator107877_))) - (_rands107885_ - (map (lambda (_g107879107881_) + (gxc#compile-e__1 _self107654_ _rator107881_))) + (_rands107889_ + (map (lambda (_g107883107885_) (let () (declare (not safe)) (gxc#compile-e__1 - _self107650_ - _g107879107881_))) - _rands107878_))) - (let* ((___stx113676113677_ _rator107884_) - (_g107888107940_ + _self107654_ + _g107883107885_))) + _rands107882_))) + (let* ((___stx113680113681_ _rator107888_) + (_g107892107944_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113676113677_))))) - (let ((___kont113678113679_ - (lambda (_L108064_ - _L108065_ - _L108066_ - _L108067_) - (if (fx= (length _rands107885_) - (length (let ((__tmp114634 - (lambda (_g108103108106_ + ___stx113680113681_))))) + (let ((___kont113682113683_ + (lambda (_L108068_ + _L108069_ + _L108070_ + _L108071_) + (if (fx= (length _rands107889_) + (length (let ((__tmp114638 + (lambda (_g108107108110_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g108104108108_) + _g108108108112_) (let () (declare (not safe)) - (cons _g108103108106_ _g108104108108_))))) + (cons _g108107108110_ _g108108108112_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114634 + (foldr1 __tmp114638 '() - _L108066_)))) - (let* ((_id108111_ _L108067_) - (_args108120_ - (let ((__tmp114630 - (lambda (_g108112108115_ - _g108113108117_) + _L108070_)))) + (let* ((_id108115_ _L108071_) + (_args108124_ + (let ((__tmp114634 + (lambda (_g108116108119_ + _g108117108121_) (let () (declare (not safe)) - (cons _g108112108115_ - _g108113108117_))))) + (cons _g108116108119_ + _g108117108121_))))) (declare (not safe)) - (foldr1 __tmp114630 + (foldr1 __tmp114634 '() - _L108066_))) - (_body108129_ - (let ((__tmp114631 - (lambda (_g108121108124_ - _g108122108126_) + _L108070_))) + (_body108133_ + (let ((__tmp114635 + (lambda (_g108125108128_ + _g108126108130_) (let () (declare (not safe)) - (cons _g108121108124_ - _g108122108126_))))) + (cons _g108125108128_ + _g108126108130_))))) (declare (not safe)) - (foldr1 __tmp114631 + (foldr1 __tmp114635 '() - _L108065_))) - (_init108131_ + _L108069_))) + (_init108135_ (map list - _args108120_ - _rands107885_))) - (let ((__tmp114632 - (let ((__tmp114633 + _args108124_ + _rands107889_))) + (let ((__tmp114636 + (let ((__tmp114637 (let () (declare (not safe)) - (cons _init108131_ - _body108129_)))) + (cons _init108135_ + _body108133_)))) (declare (not safe)) - (cons _id108111_ - __tmp114633)))) + (cons _id108115_ + __tmp114637)))) (declare (not safe)) - (cons 'let __tmp114632))) + (cons 'let __tmp114636))) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _stx107651_))))) - (___kont113684113685_ + _stx107655_))))) + (___kont113688113689_ (lambda () (let () (declare (not safe)) - (cons _rator107884_ _rands107885_))))) - (let ((___match113743113744_ - (lambda (_e107896107952_ - _hd107895107955_ - _tl107894107957_ - _e107899107960_ - _hd107898107963_ - _tl107897107965_ - _e107902107968_ - _hd107901107971_ - _tl107900107973_ - _e107905107976_ - _hd107904107979_ - _tl107903107981_ - _e107908107984_ - _hd107907107987_ - _tl107906107989_ - _e107911107992_ - _hd107910107995_ - _tl107909107997_ - _e107914108000_ - _hd107913108003_ - _tl107912108005_ - ___splice113680113681_ - _target107915108008_ - _tl107917108010_) - (letrec ((_loop107918108013_ - (lambda (_hd107916108016_ - _arg107922108018_) + (cons _rator107888_ _rands107889_))))) + (let ((___match113747113748_ + (lambda (_e107900107956_ + _hd107899107959_ + _tl107898107961_ + _e107903107964_ + _hd107902107967_ + _tl107901107969_ + _e107906107972_ + _hd107905107975_ + _tl107904107977_ + _e107909107980_ + _hd107908107983_ + _tl107907107985_ + _e107912107988_ + _hd107911107991_ + _tl107910107993_ + _e107915107996_ + _hd107914107999_ + _tl107913108001_ + _e107918108004_ + _hd107917108007_ + _tl107916108009_ + ___splice113684113685_ + _target107919108012_ + _tl107921108014_) + (letrec ((_loop107922108017_ + (lambda (_hd107920108020_ + _arg107926108022_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd107916108016_)) - (let ((_e107919108021_ + _hd107920108020_)) + (let ((_e107923108025_ (let () (declare (not safe)) (gx#stx-e - _hd107916108016_)))) - (let ((_lp-tl107921108026_ + _hd107920108020_)))) + (let ((_lp-tl107925108030_ (let () (declare (not safe)) - (##cdr _e107919108021_))) - (_lp-hd107920108024_ + (##cdr _e107923108025_))) + (_lp-hd107924108028_ (let () (declare (not safe)) - (##car _e107919108021_)))) - (let ((__tmp114636 + (##car _e107923108025_)))) + (let ((__tmp114640 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd107920108024_ _arg107922108018_)))) + (cons _lp-hd107924108028_ _arg107926108022_)))) (declare (not safe)) - (_loop107918108013_ _lp-tl107921108026_ __tmp114636)))) + (_loop107922108017_ _lp-tl107925108030_ __tmp114640)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg107923108029_ - (reverse _arg107922108018_))) + (let ((_arg107927108033_ + (reverse _arg107926108022_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl107912108005_)) - (let ((___splice113682113683_ + _tl107916108009_)) + (let ((___splice113686113687_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl107912108005_ '0)))) - (let ((_tl107926108034_ + (gx#syntax-split-splice _tl107916108009_ '0)))) + (let ((_tl107930108038_ (let () (declare (not safe)) - (##vector-ref ___splice113682113683_ '1))) - (_target107924108032_ + (##vector-ref ___splice113686113687_ '1))) + (_target107928108036_ (let () (declare (not safe)) - (##vector-ref ___splice113682113683_ '0)))) + (##vector-ref ___splice113686113687_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107926108034_)) - (letrec ((_loop107927108037_ - (lambda (_hd107925108040_ - _body107931108042_) + (gx#stx-null? _tl107930108038_)) + (letrec ((_loop107931108041_ + (lambda (_hd107929108044_ + _body107935108046_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107925108040_)) - (let ((_e107928108045_ + (gx#stx-pair? _hd107929108044_)) + (let ((_e107932108049_ (let () (declare (not safe)) (gx#stx-e - _hd107925108040_)))) - (let ((_lp-tl107930108050_ + _hd107929108044_)))) + (let ((_lp-tl107934108054_ (let () (declare (not safe)) - (##cdr _e107928108045_))) - (_lp-hd107929108048_ + (##cdr _e107932108049_))) + (_lp-hd107933108052_ (let () (declare (not safe)) - (##car _e107928108045_)))) - (let ((__tmp114635 + (##car _e107932108049_)))) + (let ((__tmp114639 (let () (declare (not safe)) - (cons _lp-hd107929108048_ - _body107931108042_)))) + (cons _lp-hd107933108052_ + _body107935108046_)))) (declare (not safe)) - (_loop107927108037_ - _lp-tl107930108050_ - __tmp114635)))) - (let ((_body107932108053_ - (reverse _body107931108042_))) + (_loop107931108041_ + _lp-tl107934108054_ + __tmp114639)))) + (let ((_body107936108057_ + (reverse _body107935108046_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107906107989_)) + _tl107910107993_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl107900107973_)) + _tl107904107977_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107897107965_)) - (let ((_e107935108056_ + _tl107901107969_)) + (let ((_e107939108060_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl107897107965_)))) - (let ((_tl107933108061_ - (let () (declare (not safe)) (##cdr _e107935108056_))) - (_hd107934108059_ - (let () (declare (not safe)) (##car _e107935108056_)))) + (gx#stx-e _tl107901107969_)))) + (let ((_tl107937108065_ + (let () (declare (not safe)) (##cdr _e107939108060_))) + (_hd107938108063_ + (let () (declare (not safe)) (##car _e107939108060_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107933108061_)) - (let ((_L108064_ _hd107934108059_) - (_L108065_ _body107932108053_) - (_L108066_ _arg107923108029_) - (_L108067_ _hd107904107979_)) + (gx#stx-null? _tl107937108065_)) + (let ((_L108068_ _hd107938108063_) + (_L108069_ _body107936108057_) + (_L108070_ _arg107927108033_) + (_L108071_ _hd107908107983_)) (if (let () (declare (not safe)) - (eq? _L108067_ _L108064_)) - (___kont113678113679_ - _L108064_ - _L108065_ - _L108066_ - _L108067_) - (___kont113684113685_))) - (___kont113684113685_)))) - (___kont113684113685_)) + (eq? _L108071_ _L108068_)) + (___kont113682113683_ + _L108068_ + _L108069_ + _L108070_ + _L108071_) + (___kont113688113689_))) + (___kont113688113689_)))) + (___kont113688113689_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113684113685_)) - (___kont113684113685_))))))) + (___kont113688113689_)) + (___kont113688113689_))))))) (let () (declare (not safe)) - (_loop107927108037_ _target107924108032_ '()))) - (___kont113684113685_)))) - (___kont113684113685_))))))) + (_loop107931108041_ _target107928108036_ '()))) + (___kont113688113689_)))) + (___kont113688113689_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop107918108013_ - _target107915108008_ + (_loop107922108017_ + _target107919108012_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113676113677_)) - (let ((_e107896107952_ + (gx#stx-pair? ___stx113680113681_)) + (let ((_e107900107956_ (let () (declare (not safe)) - (gx#stx-e ___stx113676113677_)))) - (let ((_tl107894107957_ + (gx#stx-e ___stx113680113681_)))) + (let ((_tl107898107961_ (let () (declare (not safe)) - (##cdr _e107896107952_))) - (_hd107895107955_ + (##cdr _e107900107956_))) + (_hd107899107959_ (let () (declare (not safe)) - (##car _e107896107952_)))) + (##car _e107900107956_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd107895107955_)) + (gx#identifier? _hd107899107959_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _hd107895107955_)) + _hd107899107959_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107894107957_)) - (let ((_e107899107960_ + _tl107898107961_)) + (let ((_e107903107964_ (let () (declare (not safe)) (gx#stx-e - _tl107894107957_)))) - (let ((_tl107897107965_ + _tl107898107961_)))) + (let ((_tl107901107969_ (let () (declare (not safe)) - (##cdr _e107899107960_))) - (_hd107898107963_ + (##cdr _e107903107964_))) + (_hd107902107967_ (let () (declare (not safe)) - (##car _e107899107960_)))) + (##car _e107903107964_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd107898107963_)) - (let ((_e107902107968_ + _hd107902107967_)) + (let ((_e107906107972_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd107898107963_)))) - (let ((_tl107900107973_ - (let () (declare (not safe)) (##cdr _e107902107968_))) - (_hd107901107971_ + (gx#stx-e _hd107902107967_)))) + (let ((_tl107904107977_ + (let () (declare (not safe)) (##cdr _e107906107972_))) + (_hd107905107975_ (let () (declare (not safe)) - (##car _e107902107968_)))) + (##car _e107906107972_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107901107971_)) - (let ((_e107905107976_ + (gx#stx-pair? _hd107905107975_)) + (let ((_e107909107980_ (let () (declare (not safe)) - (gx#stx-e _hd107901107971_)))) - (let ((_tl107903107981_ + (gx#stx-e _hd107905107975_)))) + (let ((_tl107907107985_ (let () (declare (not safe)) - (##cdr _e107905107976_))) - (_hd107904107979_ + (##cdr _e107909107980_))) + (_hd107908107983_ (let () (declare (not safe)) - (##car _e107905107976_)))) + (##car _e107909107980_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107903107981_)) - (let ((_e107908107984_ + (gx#stx-pair? _tl107907107985_)) + (let ((_e107912107988_ (let () (declare (not safe)) - (gx#stx-e _tl107903107981_)))) - (let ((_tl107906107989_ + (gx#stx-e _tl107907107985_)))) + (let ((_tl107910107993_ (let () (declare (not safe)) - (##cdr _e107908107984_))) - (_hd107907107987_ + (##cdr _e107912107988_))) + (_hd107911107991_ (let () (declare (not safe)) - (##car _e107908107984_)))) + (##car _e107912107988_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107907107987_)) - (let ((_e107911107992_ + (gx#stx-pair? _hd107911107991_)) + (let ((_e107915107996_ (let () (declare (not safe)) - (gx#stx-e _hd107907107987_)))) - (let ((_tl107909107997_ + (gx#stx-e _hd107911107991_)))) + (let ((_tl107913108001_ (let () (declare (not safe)) - (##cdr _e107911107992_))) - (_hd107910107995_ + (##cdr _e107915107996_))) + (_hd107914107999_ (let () (declare (not safe)) - (##car _e107911107992_)))) + (##car _e107915107996_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd107910107995_)) + _hd107914107999_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _hd107910107995_)) + _hd107914107999_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107909107997_)) - (let ((_e107914108000_ + _tl107913108001_)) + (let ((_e107918108004_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl107909107997_)))) - (let ((_tl107912108005_ - (let () (declare (not safe)) (##cdr _e107914108000_))) - (_hd107913108003_ + (gx#stx-e _tl107913108001_)))) + (let ((_tl107916108009_ + (let () (declare (not safe)) (##cdr _e107918108004_))) + (_hd107917108007_ (let () (declare (not safe)) - (##car _e107914108000_)))) + (##car _e107918108004_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd107913108003_)) - (let ((___splice113680113681_ + (gx#stx-pair/null? _hd107917108007_)) + (let ((___splice113684113685_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd107913108003_ + _hd107917108007_ '0)))) - (let ((_tl107917108010_ + (let ((_tl107921108014_ (let () (declare (not safe)) - (##vector-ref ___splice113680113681_ '1))) - (_target107915108008_ + (##vector-ref ___splice113684113685_ '1))) + (_target107919108012_ (let () (declare (not safe)) - (##vector-ref ___splice113680113681_ '0)))) + (##vector-ref ___splice113684113685_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107917108010_)) - (___match113743113744_ - _e107896107952_ - _hd107895107955_ - _tl107894107957_ - _e107899107960_ - _hd107898107963_ - _tl107897107965_ - _e107902107968_ - _hd107901107971_ - _tl107900107973_ - _e107905107976_ - _hd107904107979_ - _tl107903107981_ - _e107908107984_ - _hd107907107987_ - _tl107906107989_ - _e107911107992_ - _hd107910107995_ - _tl107909107997_ - _e107914108000_ - _hd107913108003_ - _tl107912108005_ - ___splice113680113681_ - _target107915108008_ - _tl107917108010_) - (___kont113684113685_)))) - (___kont113684113685_)))) - (___kont113684113685_)) + (gx#stx-null? _tl107921108014_)) + (___match113747113748_ + _e107900107956_ + _hd107899107959_ + _tl107898107961_ + _e107903107964_ + _hd107902107967_ + _tl107901107969_ + _e107906107972_ + _hd107905107975_ + _tl107904107977_ + _e107909107980_ + _hd107908107983_ + _tl107907107985_ + _e107912107988_ + _hd107911107991_ + _tl107910107993_ + _e107915107996_ + _hd107914107999_ + _tl107913108001_ + _e107918108004_ + _hd107917108007_ + _tl107916108009_ + ___splice113684113685_ + _target107919108012_ + _tl107921108014_) + (___kont113688113689_)))) + (___kont113688113689_)))) + (___kont113688113689_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113684113685_)) - (___kont113684113685_)))) - (___kont113684113685_)))) - (___kont113684113685_)))) - (___kont113684113685_)))) - (___kont113684113685_)))) + (___kont113688113689_)) + (___kont113688113689_)))) + (___kont113688113689_)))) + (___kont113688113689_)))) + (___kont113688113689_)))) + (___kont113688113689_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113684113685_)) - (___kont113684113685_)) - (___kont113684113685_)))) - (___kont113684113685_))))))))) - (let* ((_g107655107669_ - (lambda (_g107656107666_) + (___kont113688113689_)) + (___kont113688113689_)) + (___kont113688113689_)))) + (___kont113688113689_))))))))) + (let* ((_g107659107673_ + (lambda (_g107660107670_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107656107666_)))) - (_g107654107874_ - (lambda (_g107656107672_) + _g107660107670_)))) + (_g107658107878_ + (lambda (_g107660107676_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107656107672_)) - (let ((_e107661107674_ + (gx#stx-pair? _g107660107676_)) + (let ((_e107665107678_ (let () (declare (not safe)) - (gx#stx-e _g107656107672_)))) - (let ((_hd107660107677_ + (gx#stx-e _g107660107676_)))) + (let ((_hd107664107681_ (let () (declare (not safe)) - (##car _e107661107674_))) - (_tl107659107679_ + (##car _e107665107678_))) + (_tl107663107683_ (let () (declare (not safe)) - (##cdr _e107661107674_)))) + (##cdr _e107665107678_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107659107679_)) - (let ((_e107664107682_ + (gx#stx-pair? _tl107663107683_)) + (let ((_e107668107686_ (let () (declare (not safe)) - (gx#stx-e _tl107659107679_)))) - (let ((_hd107663107685_ + (gx#stx-e _tl107663107683_)))) + (let ((_hd107667107689_ (let () (declare (not safe)) - (##car _e107664107682_))) - (_tl107662107687_ + (##car _e107668107686_))) + (_tl107666107691_ (let () (declare (not safe)) - (##cdr _e107664107682_)))) - ((lambda (_L107690_ _L107691_) + (##cdr _e107668107686_)))) + ((lambda (_L107694_ _L107695_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (_compile-call107653_ - _L107691_ - _L107690_)) - (let* ((___stx113792113793_ - _L107691_) - (_g107706107718_ + (_compile-call107657_ + _L107695_ + _L107694_)) + (let* ((___stx113796113797_ + _L107695_) + (_g107710107722_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113792113793_))))) - (let ((___kont113794113795_ + ___stx113796113797_))))) + (let ((___kont113798113799_ (lambda () - (let ((_f107748_ + (let ((_f107752_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _self107650_ _L107691_)))) - (if (let ((__tmp114651 (symbol->string _f107748_))) + (gxc#compile-e__1 _self107654_ _L107695_)))) + (if (let ((__tmp114655 (symbol->string _f107752_))) (declare (not safe)) - (string-prefix? '"##" __tmp114651)) - (let _lp107750_ ((_rest107753_ (reverse _L107690_)) - (_bind107755_ '()) - (_args107756_ '())) - (let* ((_rest107757107765_ _rest107753_) - (_else107759107773_ + (string-prefix? '"##" __tmp114655)) + (let _lp107754_ ((_rest107757_ (reverse _L107694_)) + (_bind107759_ '()) + (_args107760_ '())) + (let* ((_rest107761107769_ _rest107757_) + (_else107763107777_ (lambda () - (let ((__tmp114637 - (let ((__tmp114638 - (let ((__tmp114639 - (let ((__tmp114640 + (let ((__tmp114641 + (let ((__tmp114642 + (let ((__tmp114643 + (let ((__tmp114644 (let () (declare (not safe)) - (cons _f107748_ + (cons _f107752_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _args107756_)))) + _args107760_)))) (declare (not safe)) - (cons __tmp114640 '())))) + (cons __tmp114644 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114639)))) + __tmp114643)))) (declare (not safe)) - (cons _bind107755_ __tmp114638)))) + (cons _bind107759_ __tmp114642)))) (declare (not safe)) - (cons 'let __tmp114637)))) - (_K107761107859_ - (lambda (_rest107776_ _e107777_) - (let* ((___stx113746113747_ _e107777_) - (_g107782107800_ + (cons 'let __tmp114641)))) + (_K107765107863_ + (lambda (_rest107780_ _e107781_) + (let* ((___stx113750113751_ _e107781_) + (_g107786107804_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113746113747_))))) - (let ((___kont113748113749_ + ___stx113750113751_))))) + (let ((___kont113752113753_ (lambda () - (let ((__tmp114641 - (let ((__tmp114642 + (let ((__tmp114645 + (let ((__tmp114646 (let () (declare (not safe)) (gxc#compile-e__0 - _e107777_)))) + _e107781_)))) (declare (not safe)) - (cons __tmp114642 - _args107756_)))) + (cons __tmp114646 + _args107760_)))) (declare (not safe)) - (_lp107750_ - _rest107776_ - _bind107755_ - __tmp114641)))) - (___kont113750113751_ + (_lp107754_ + _rest107780_ + _bind107759_ + __tmp114645)))) + (___kont113754113755_ (lambda () - (let ((__tmp114643 - (let ((__tmp114644 + (let ((__tmp114647 + (let ((__tmp114648 (let () (declare (not safe)) (gxc#compile-e__0 - _e107777_)))) + _e107781_)))) (declare (not safe)) - (cons __tmp114644 - _args107756_)))) + (cons __tmp114648 + _args107760_)))) (declare (not safe)) - (_lp107750_ - _rest107776_ - _bind107755_ - __tmp114643)))) - (___kont113752113753_ + (_lp107754_ + _rest107780_ + _bind107759_ + __tmp114647)))) + (___kont113756113757_ (lambda () - (let ((_tmp107807_ - (let ((__tmp114645 + (let ((_tmp107811_ + (let ((__tmp114649 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp114645)))) - (let ((__tmp114647 - (let ((__tmp114648 - (let ((__tmp114649 + __tmp114649)))) + (let ((__tmp114651 + (let ((__tmp114652 + (let ((__tmp114653 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114650 + (let ((__tmp114654 (let () (declare (not safe)) - (gxc#compile-e__0 _e107777_)))) + (gxc#compile-e__0 _e107781_)))) (declare (not safe)) - (cons __tmp114650 '())))) + (cons __tmp114654 '())))) (declare (not safe)) - (cons _tmp107807_ __tmp114649)))) + (cons _tmp107811_ __tmp114653)))) (declare (not safe)) - (cons __tmp114648 _bind107755_))) + (cons __tmp114652 _bind107759_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114646 + (__tmp114650 (let () (declare (not safe)) - (cons _tmp107807_ - _args107756_)))) + (cons _tmp107811_ + _args107760_)))) (declare (not safe)) - (_lp107750_ - _rest107776_ - __tmp114647 - __tmp114646)))))) + (_lp107754_ + _rest107780_ + __tmp114651 + __tmp114650)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113746113747_)) - (let ((_e107786107838_ + (gx#stx-pair? ___stx113750113751_)) + (let ((_e107790107842_ (let () (declare (not safe)) (gx#stx-e - ___stx113746113747_)))) - (let ((_tl107784107843_ + ___stx113750113751_)))) + (let ((_tl107788107847_ (let () (declare (not safe)) - (##cdr _e107786107838_))) - (_hd107785107841_ + (##cdr _e107790107842_))) + (_hd107789107845_ (let () (declare (not safe)) - (##car _e107786107838_)))) + (##car _e107790107842_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd107785107841_)) + _hd107789107845_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd107785107841_)) + _hd107789107845_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107784107843_)) - (let ((_e107789107846_ + _tl107788107847_)) + (let ((_e107793107850_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl107784107843_)))) - (let ((_tl107787107851_ - (let () (declare (not safe)) (##cdr _e107789107846_))) - (_hd107788107849_ + (gx#stx-e _tl107788107847_)))) + (let ((_tl107791107855_ + (let () (declare (not safe)) (##cdr _e107793107850_))) + (_hd107792107853_ (let () (declare (not safe)) - (##car _e107789107846_)))) + (##car _e107793107850_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107787107851_)) - (___kont113748113749_) - (___kont113752113753_)))) - (___kont113752113753_)) + (gx#stx-null? _tl107791107855_)) + (___kont113752113753_) + (___kont113756113757_)))) + (___kont113756113757_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd107785107841_)) + _hd107789107845_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107784107843_)) - (let ((_e107795107823_ + _tl107788107847_)) + (let ((_e107799107827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl107784107843_)))) - (let ((_tl107793107828_ + (gx#stx-e _tl107788107847_)))) + (let ((_tl107797107832_ (let () (declare (not safe)) - (##cdr _e107795107823_))) - (_hd107794107826_ + (##cdr _e107799107827_))) + (_hd107798107830_ (let () (declare (not safe)) - (##car _e107795107823_)))) + (##car _e107799107827_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107793107828_)) - (___kont113750113751_) - (___kont113752113753_)))) - (___kont113752113753_)) - (___kont113752113753_))) + (gx#stx-null? _tl107797107832_)) + (___kont113754113755_) + (___kont113756113757_)))) + (___kont113756113757_)) + (___kont113756113757_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113752113753_)))) - (___kont113752113753_))))))) + (___kont113756113757_)))) + (___kont113756113757_))))))) (if (let () (declare (not safe)) - (##pair? _rest107757107765_)) - (let ((_hd107762107862_ + (##pair? _rest107761107769_)) + (let ((_hd107766107866_ (let () (declare (not safe)) - (##car _rest107757107765_))) - (_tl107763107864_ + (##car _rest107761107769_))) + (_tl107767107868_ (let () (declare (not safe)) - (##cdr _rest107757107765_)))) - (let* ((_e107867_ _hd107762107862_) - (_rest107869_ _tl107763107864_)) + (##cdr _rest107761107769_)))) + (let* ((_e107871_ _hd107766107866_) + (_rest107873_ _tl107767107868_)) (declare (not safe)) - (_K107761107859_ _rest107869_ _e107867_))) + (_K107765107863_ _rest107873_ _e107871_))) (let () (declare (not safe)) - (_else107759107773_))))) + (_else107763107777_))))) (let () (declare (not safe)) - (_compile-call107653_ _L107691_ _L107690_)))))) + (_compile-call107657_ _L107695_ _L107694_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113796113797_ + (___kont113800113801_ (lambda () (let () (declare (not safe)) - (_compile-call107653_ - _L107691_ - _L107690_))))) + (_compile-call107657_ + _L107695_ + _L107694_))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx113792113793_)) - (let ((_e107710107730_ + ___stx113796113797_)) + (let ((_e107714107734_ (let () (declare (not safe)) (gx#stx-e - ___stx113792113793_)))) - (let ((_tl107708107735_ + ___stx113796113797_)))) + (let ((_tl107712107739_ (let () (declare (not safe)) - (##cdr _e107710107730_))) - (_hd107709107733_ + (##cdr _e107714107734_))) + (_hd107713107737_ (let () (declare (not safe)) - (##car _e107710107730_)))) + (##car _e107714107734_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd107709107733_)) + _hd107713107737_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-eq? '%#ref _hd107709107733_)) + (gx#stx-eq? '%#ref _hd107713107737_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107708107735_)) - (let ((_e107713107738_ + (gx#stx-pair? _tl107712107739_)) + (let ((_e107717107742_ (let () (declare (not safe)) - (gx#stx-e _tl107708107735_)))) - (let ((_tl107711107743_ + (gx#stx-e _tl107712107739_)))) + (let ((_tl107715107747_ (let () (declare (not safe)) - (##cdr _e107713107738_))) - (_hd107712107741_ + (##cdr _e107717107742_))) + (_hd107716107745_ (let () (declare (not safe)) - (##car _e107713107738_)))) + (##car _e107717107742_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107711107743_)) - (___kont113794113795_) - (___kont113796113797_)))) - (___kont113796113797_)) - (___kont113796113797_)) - (___kont113796113797_)))) + (gx#stx-null? _tl107715107747_)) + (___kont113798113799_) + (___kont113800113801_)))) + (___kont113800113801_)) + (___kont113800113801_)) + (___kont113800113801_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113796113797_)))))) - _tl107662107687_ - _hd107663107685_))) + (___kont113800113801_)))))) + _tl107666107691_ + _hd107667107689_))) (let () (declare (not safe)) - (_g107655107669_ _g107656107672_))))) + (_g107659107673_ _g107660107676_))))) (let () (declare (not safe)) - (_g107655107669_ _g107656107672_)))))) + (_g107659107673_ _g107660107676_)))))) (declare (not safe)) - (_g107654107874_ _stx107651_))))) + (_g107658107878_ _stx107655_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_self107437_ _stx107438_) - (let* ((___stx113864113865_ _stx107438_) - (_g107441107461_ + (lambda (_self107441_ _stx107442_) + (let* ((___stx113868113869_ _stx107442_) + (_g107445107465_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113864113865_))))) - (let ((___kont113866113867_ - (lambda (_L107505_ _L107506_) + ___stx113868113869_))))) + (let ((___kont113870113871_ + (lambda (_L107509_ _L107510_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (gxc#generate-runtime-call% _self107437_ _stx107438_)) - (let ((_f107524_ - (let ((__tmp114652 - (let ((__tmp114654 + (gxc#generate-runtime-call% _self107441_ _stx107442_)) + (let ((_f107528_ + (let ((__tmp114656 + (let ((__tmp114658 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp114653 + (__tmp114657 (let () (declare (not safe)) - (cons _L107506_ '())))) + (cons _L107510_ '())))) (declare (not safe)) - (cons __tmp114654 __tmp114653)))) + (cons __tmp114658 __tmp114657)))) (declare (not safe)) - (gxc#compile-e__1 _self107437_ __tmp114652)))) - (let _lp107526_ ((_rest107529_ (reverse _L107505_)) - (_bind107531_ '()) - (_args107532_ '())) - (let* ((_rest107533107541_ _rest107529_) - (_else107535107549_ + (gxc#compile-e__1 _self107441_ __tmp114656)))) + (let _lp107530_ ((_rest107533_ (reverse _L107509_)) + (_bind107535_ '()) + (_args107536_ '())) + (let* ((_rest107537107545_ _rest107533_) + (_else107539107553_ (lambda () - (let ((__tmp114655 - (let ((__tmp114656 - (let ((__tmp114657 - (let ((__tmp114658 + (let ((__tmp114659 + (let ((__tmp114660 + (let ((__tmp114661 + (let ((__tmp114662 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _f107524_ _args107532_)))) + (cons _f107528_ _args107536_)))) (declare (not safe)) - (cons __tmp114658 '())))) + (cons __tmp114662 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114657)))) + __tmp114661)))) (declare (not safe)) - (cons _bind107531_ - __tmp114656)))) + (cons _bind107535_ + __tmp114660)))) (declare (not safe)) - (cons 'let __tmp114655)))) - (_K107537107635_ - (lambda (_rest107552_ _e107553_) - (let* ((___stx113818113819_ _e107553_) - (_g107558107576_ + (cons 'let __tmp114659)))) + (_K107541107639_ + (lambda (_rest107556_ _e107557_) + (let* ((___stx113822113823_ _e107557_) + (_g107562107580_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113818113819_))))) - (let ((___kont113820113821_ + ___stx113822113823_))))) + (let ((___kont113824113825_ (lambda () - (let ((__tmp114659 - (let ((__tmp114660 + (let ((__tmp114663 + (let ((__tmp114664 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _e107553_)))) + (gxc#compile-e__0 _e107557_)))) (declare (not safe)) - (cons __tmp114660 _args107532_)))) + (cons __tmp114664 _args107536_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp107526_ - _rest107552_ - _bind107531_ - __tmp114659)))) - (___kont113822113823_ + (_lp107530_ + _rest107556_ + _bind107535_ + __tmp114663)))) + (___kont113826113827_ (lambda () - (let ((__tmp114661 - (let ((__tmp114662 + (let ((__tmp114665 + (let ((__tmp114666 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _e107553_)))) + (gxc#compile-e__0 _e107557_)))) (declare (not safe)) - (cons __tmp114662 _args107532_)))) + (cons __tmp114666 _args107536_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp107526_ - _rest107552_ - _bind107531_ - __tmp114661)))) - (___kont113824113825_ + (_lp107530_ + _rest107556_ + _bind107535_ + __tmp114665)))) + (___kont113828113829_ (lambda () - (let ((_tmp107583_ - (let ((__tmp114663 + (let ((_tmp107587_ + (let ((__tmp114667 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp114663)))) - (let ((__tmp114665 - (let ((__tmp114666 - (let ((__tmp114667 + __tmp114667)))) + (let ((__tmp114669 + (let ((__tmp114670 + (let ((__tmp114671 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114668 + (let ((__tmp114672 (let () (declare (not safe)) - (gxc#compile-e__0 _e107553_)))) + (gxc#compile-e__0 _e107557_)))) (declare (not safe)) - (cons __tmp114668 '())))) + (cons __tmp114672 '())))) (declare (not safe)) - (cons _tmp107583_ __tmp114667)))) + (cons _tmp107587_ __tmp114671)))) (declare (not safe)) - (cons __tmp114666 _bind107531_))) - (__tmp114664 + (cons __tmp114670 _bind107535_))) + (__tmp114668 (let () (declare (not safe)) - (cons _tmp107583_ _args107532_)))) + (cons _tmp107587_ _args107536_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp107526_ - _rest107552_ - __tmp114665 - __tmp114664)))))) + (_lp107530_ + _rest107556_ + __tmp114669 + __tmp114668)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx113818113819_)) - (let ((_e107562107614_ + ___stx113822113823_)) + (let ((_e107566107618_ (let () (declare (not safe)) (gx#stx-e - ___stx113818113819_)))) - (let ((_tl107560107619_ + ___stx113822113823_)))) + (let ((_tl107564107623_ (let () (declare (not safe)) - (##cdr _e107562107614_))) - (_hd107561107617_ + (##cdr _e107566107618_))) + (_hd107565107621_ (let () (declare (not safe)) - (##car _e107562107614_)))) + (##car _e107566107618_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd107561107617_)) + _hd107565107621_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd107561107617_)) + _hd107565107621_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl107560107619_)) - (let ((_e107565107622_ + (gx#stx-pair? _tl107564107623_)) + (let ((_e107569107626_ (let () (declare (not safe)) - (gx#stx-e _tl107560107619_)))) - (let ((_tl107563107627_ + (gx#stx-e _tl107564107623_)))) + (let ((_tl107567107631_ (let () (declare (not safe)) - (##cdr _e107565107622_))) - (_hd107564107625_ + (##cdr _e107569107626_))) + (_hd107568107629_ (let () (declare (not safe)) - (##car _e107565107622_)))) + (##car _e107569107626_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107563107627_)) - (___kont113820113821_) - (___kont113824113825_)))) - (___kont113824113825_)) + (gx#stx-null? _tl107567107631_)) + (___kont113824113825_) + (___kont113828113829_)))) + (___kont113828113829_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd107561107617_)) + (gx#stx-eq? '%#quote _hd107565107621_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107560107619_)) - (let ((_e107571107599_ + (gx#stx-pair? _tl107564107623_)) + (let ((_e107575107603_ (let () (declare (not safe)) - (gx#stx-e _tl107560107619_)))) - (let ((_tl107569107604_ + (gx#stx-e _tl107564107623_)))) + (let ((_tl107573107608_ (let () (declare (not safe)) - (##cdr _e107571107599_))) - (_hd107570107602_ + (##cdr _e107575107603_))) + (_hd107574107606_ (let () (declare (not safe)) - (##car _e107571107599_)))) + (##car _e107575107603_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107569107604_)) - (___kont113822113823_) - (___kont113824113825_)))) - (___kont113824113825_)) - (___kont113824113825_))) + (gx#stx-null? _tl107573107608_)) + (___kont113826113827_) + (___kont113828113829_)))) + (___kont113828113829_)) + (___kont113828113829_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113824113825_)))) - (___kont113824113825_))))))) + (___kont113828113829_)))) + (___kont113828113829_))))))) (if (let () (declare (not safe)) - (##pair? _rest107533107541_)) - (let ((_hd107538107638_ + (##pair? _rest107537107545_)) + (let ((_hd107542107642_ (let () (declare (not safe)) - (##car _rest107533107541_))) - (_tl107539107640_ + (##car _rest107537107545_))) + (_tl107543107644_ (let () (declare (not safe)) - (##cdr _rest107533107541_)))) - (let* ((_e107643_ _hd107538107638_) - (_rest107645_ _tl107539107640_)) + (##cdr _rest107537107545_)))) + (let* ((_e107647_ _hd107542107642_) + (_rest107649_ _tl107543107644_)) (declare (not safe)) - (_K107537107635_ _rest107645_ _e107643_))) + (_K107541107639_ _rest107649_ _e107647_))) (let () (declare (not safe)) - (_else107535107549_))))))))) - (___kont113868113869_ + (_else107539107553_))))))))) + (___kont113872113873_ (lambda () (let () (declare (not safe)) - (gxc#generate-runtime-call% _self107437_ _stx107438_))))) + (gxc#generate-runtime-call% _self107441_ _stx107442_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113864113865_)) - (let ((_e107447107473_ + (gx#stx-pair? ___stx113868113869_)) + (let ((_e107451107477_ (let () (declare (not safe)) - (gx#stx-e ___stx113864113865_)))) - (let ((_tl107445107478_ - (let () (declare (not safe)) (##cdr _e107447107473_))) - (_hd107446107476_ + (gx#stx-e ___stx113868113869_)))) + (let ((_tl107449107482_ + (let () (declare (not safe)) (##cdr _e107451107477_))) + (_hd107450107480_ (let () (declare (not safe)) - (##car _e107447107473_)))) + (##car _e107451107477_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107445107478_)) - (let ((_e107450107481_ + (gx#stx-pair? _tl107449107482_)) + (let ((_e107454107485_ (let () (declare (not safe)) - (gx#stx-e _tl107445107478_)))) - (let ((_tl107448107486_ + (gx#stx-e _tl107449107482_)))) + (let ((_tl107452107490_ (let () (declare (not safe)) - (##cdr _e107450107481_))) - (_hd107449107484_ + (##cdr _e107454107485_))) + (_hd107453107488_ (let () (declare (not safe)) - (##car _e107450107481_)))) + (##car _e107454107485_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107449107484_)) - (let ((_e107453107489_ + (gx#stx-pair? _hd107453107488_)) + (let ((_e107457107493_ (let () (declare (not safe)) - (gx#stx-e _hd107449107484_)))) - (let ((_tl107451107494_ + (gx#stx-e _hd107453107488_)))) + (let ((_tl107455107498_ (let () (declare (not safe)) - (##cdr _e107453107489_))) - (_hd107452107492_ + (##cdr _e107457107493_))) + (_hd107456107496_ (let () (declare (not safe)) - (##car _e107453107489_)))) + (##car _e107457107493_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd107452107492_)) + (gx#identifier? _hd107456107496_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd107452107492_)) + _hd107456107496_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107451107494_)) - (let ((_e107456107497_ + _tl107455107498_)) + (let ((_e107460107501_ (let () (declare (not safe)) (gx#stx-e - _tl107451107494_)))) - (let ((_tl107454107502_ + _tl107455107498_)))) + (let ((_tl107458107506_ (let () (declare (not safe)) - (##cdr _e107456107497_))) - (_hd107455107500_ + (##cdr _e107460107501_))) + (_hd107459107504_ (let () (declare (not safe)) - (##car _e107456107497_)))) + (##car _e107460107501_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107454107502_)) - (___kont113866113867_ - _tl107448107486_ - _hd107455107500_) - (___kont113868113869_)))) - (___kont113868113869_)) - (___kont113868113869_)) - (___kont113868113869_)))) - (___kont113868113869_)))) - (___kont113868113869_)))) - (___kont113868113869_)))))) + _tl107458107506_)) + (___kont113870113871_ + _tl107452107490_ + _hd107459107504_) + (___kont113872113873_)))) + (___kont113872113873_)) + (___kont113872113873_)) + (___kont113872113873_)))) + (___kont113872113873_)))) + (___kont113872113873_)))) + (___kont113872113873_)))))) (define gxc#generate-runtime-if% - (lambda (_self107249_ _stx107250_) - (letrec ((_simplify107252_ - (lambda (_code107337_) - (let* ((_code107338107356_ _code107337_) - (_else107340107364_ (lambda () _code107337_)) - (_K107342107400_ - (lambda (_expr107367_ _test107368_) - (let* ((_expr107369107377_ _expr107367_) - (_else107371107385_ + (lambda (_self107253_ _stx107254_) + (letrec ((_simplify107256_ + (lambda (_code107341_) + (let* ((_code107342107360_ _code107341_) + (_else107344107368_ (lambda () _code107341_)) + (_K107346107404_ + (lambda (_expr107371_ _test107372_) + (let* ((_expr107373107381_ _expr107371_) + (_else107375107389_ (lambda () - (let ((__tmp114669 - (let ((__tmp114670 + (let ((__tmp114673 + (let ((__tmp114674 (let () (declare (not safe)) - (cons _expr107367_ + (cons _expr107371_ '())))) (declare (not safe)) - (cons _test107368_ - __tmp114670)))) + (cons _test107372_ + __tmp114674)))) (declare (not safe)) - (cons 'and __tmp114669)))) - (_K107373107390_ - (lambda (_exprs107388_) - (let ((__tmp114671 + (cons 'and __tmp114673)))) + (_K107377107394_ + (lambda (_exprs107392_) + (let ((__tmp114675 (let () (declare (not safe)) - (cons _test107368_ - _exprs107388_)))) + (cons _test107372_ + _exprs107392_)))) (declare (not safe)) - (cons 'and __tmp114671))))) + (cons 'and __tmp114675))))) (if (let () (declare (not safe)) - (##pair? _expr107369107377_)) - (let ((_hd107374107393_ + (##pair? _expr107373107381_)) + (let ((_hd107378107397_ (let () (declare (not safe)) - (##car _expr107369107377_))) - (_tl107375107395_ + (##car _expr107373107381_))) + (_tl107379107399_ (let () (declare (not safe)) - (##cdr _expr107369107377_)))) + (##cdr _expr107373107381_)))) (if (let () (declare (not safe)) - (##eq? _hd107374107393_ 'and)) - (let ((_exprs107398_ - _tl107375107395_)) + (##eq? _hd107378107397_ 'and)) + (let ((_exprs107402_ + _tl107379107399_)) (declare (not safe)) - (_K107373107390_ _exprs107398_)) + (_K107377107394_ _exprs107402_)) (let () (declare (not safe)) - (_else107371107385_)))) + (_else107375107389_)))) (let () (declare (not safe)) - (_else107371107385_))))))) + (_else107375107389_))))))) (if (let () (declare (not safe)) - (##pair? _code107338107356_)) - (let ((_hd107343107403_ + (##pair? _code107342107360_)) + (let ((_hd107347107407_ (let () (declare (not safe)) - (##car _code107338107356_))) - (_tl107344107405_ + (##car _code107342107360_))) + (_tl107348107409_ (let () (declare (not safe)) - (##cdr _code107338107356_)))) + (##cdr _code107342107360_)))) (if (let () (declare (not safe)) - (##eq? _hd107343107403_ 'if)) + (##eq? _hd107347107407_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl107344107405_)) - (let ((_hd107345107408_ + (##pair? _tl107348107409_)) + (let ((_hd107349107412_ (let () (declare (not safe)) - (##car _tl107344107405_))) - (_tl107346107410_ + (##car _tl107348107409_))) + (_tl107350107414_ (let () (declare (not safe)) - (##cdr _tl107344107405_)))) - (let ((_test107413_ _hd107345107408_)) + (##cdr _tl107348107409_)))) + (let ((_test107417_ _hd107349107412_)) (if (let () (declare (not safe)) - (##pair? _tl107346107410_)) - (let ((_hd107347107415_ + (##pair? _tl107350107414_)) + (let ((_hd107351107419_ (let () (declare (not safe)) - (##car _tl107346107410_))) - (_tl107348107417_ + (##car _tl107350107414_))) + (_tl107352107421_ (let () (declare (not safe)) - (##cdr _tl107346107410_)))) - (let ((_expr107420_ - _hd107347107415_)) + (##cdr _tl107350107414_)))) + (let ((_expr107424_ + _hd107351107419_)) (if (let () (declare (not safe)) - (##pair? _tl107348107417_)) - (let ((_hd107349107422_ + (##pair? _tl107352107421_)) + (let ((_hd107353107426_ (let () (declare (not safe)) - (##car _tl107348107417_))) - (_tl107350107424_ + (##car _tl107352107421_))) + (_tl107354107428_ (let () (declare (not safe)) - (##cdr _tl107348107417_)))) + (##cdr _tl107352107421_)))) (if (let () (declare (not safe)) - (##pair? _hd107349107422_)) - (let ((_hd107351107427_ + (##pair? _hd107353107426_)) + (let ((_hd107355107431_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _hd107349107422_))) - (_tl107352107429_ + (##car _hd107353107426_))) + (_tl107356107433_ (let () (declare (not safe)) - (##cdr _hd107349107422_)))) + (##cdr _hd107353107426_)))) (if (let () (declare (not safe)) - (##eq? _hd107351107427_ 'quote)) + (##eq? _hd107355107431_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl107352107429_)) - (let ((_hd107353107432_ + (##pair? _tl107356107433_)) + (let ((_hd107357107436_ (let () (declare (not safe)) - (##car _tl107352107429_))) - (_tl107354107434_ + (##car _tl107356107433_))) + (_tl107358107438_ (let () (declare (not safe)) - (##cdr _tl107352107429_)))) + (##cdr _tl107356107433_)))) (if (let () (declare (not safe)) - (##eq? _hd107353107432_ '#f)) + (##eq? _hd107357107436_ '#f)) (if (let () (declare (not safe)) - (##null? _tl107354107434_)) + (##null? _tl107358107438_)) (if (let () (declare (not safe)) - (##null? _tl107350107424_)) + (##null? _tl107354107428_)) (let () (declare (not safe)) - (_K107342107400_ - _expr107420_ - _test107413_)) + (_K107346107404_ + _expr107424_ + _test107417_)) (let () (declare (not safe)) - (_else107340107364_))) + (_else107344107368_))) (let () (declare (not safe)) - (_else107340107364_))) + (_else107344107368_))) (let () (declare (not safe)) - (_else107340107364_)))) - (let () (declare (not safe)) (_else107340107364_))) - (let () (declare (not safe)) (_else107340107364_)))) - (let () (declare (not safe)) (_else107340107364_)))) + (_else107344107368_)))) + (let () (declare (not safe)) (_else107344107368_))) + (let () (declare (not safe)) (_else107344107368_)))) + (let () (declare (not safe)) (_else107344107368_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else107340107364_))))) + (_else107344107368_))))) (let () (declare (not safe)) - (_else107340107364_))))) + (_else107344107368_))))) (let () (declare (not safe)) - (_else107340107364_))) + (_else107344107368_))) (let () (declare (not safe)) - (_else107340107364_)))) + (_else107344107368_)))) (let () (declare (not safe)) - (_else107340107364_))))))) - (let* ((_g107254107275_ - (lambda (_g107255107272_) + (_else107344107368_))))))) + (let* ((_g107258107279_ + (lambda (_g107259107276_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107255107272_)))) - (_g107253107334_ - (lambda (_g107255107278_) + _g107259107276_)))) + (_g107257107338_ + (lambda (_g107259107282_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107255107278_)) - (let ((_e107261107280_ + (gx#stx-pair? _g107259107282_)) + (let ((_e107265107284_ (let () (declare (not safe)) - (gx#stx-e _g107255107278_)))) - (let ((_hd107260107283_ + (gx#stx-e _g107259107282_)))) + (let ((_hd107264107287_ (let () (declare (not safe)) - (##car _e107261107280_))) - (_tl107259107285_ + (##car _e107265107284_))) + (_tl107263107289_ (let () (declare (not safe)) - (##cdr _e107261107280_)))) + (##cdr _e107265107284_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107259107285_)) - (let ((_e107264107288_ + (gx#stx-pair? _tl107263107289_)) + (let ((_e107268107292_ (let () (declare (not safe)) - (gx#stx-e _tl107259107285_)))) - (let ((_hd107263107291_ + (gx#stx-e _tl107263107289_)))) + (let ((_hd107267107295_ (let () (declare (not safe)) - (##car _e107264107288_))) - (_tl107262107293_ + (##car _e107268107292_))) + (_tl107266107297_ (let () (declare (not safe)) - (##cdr _e107264107288_)))) + (##cdr _e107268107292_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107262107293_)) - (let ((_e107267107296_ + (gx#stx-pair? _tl107266107297_)) + (let ((_e107271107300_ (let () (declare (not safe)) - (gx#stx-e _tl107262107293_)))) - (let ((_hd107266107299_ + (gx#stx-e _tl107266107297_)))) + (let ((_hd107270107303_ (let () (declare (not safe)) - (##car _e107267107296_))) - (_tl107265107301_ + (##car _e107271107300_))) + (_tl107269107305_ (let () (declare (not safe)) - (##cdr _e107267107296_)))) + (##cdr _e107271107300_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107265107301_)) - (let ((_e107270107304_ + _tl107269107305_)) + (let ((_e107274107308_ (let () (declare (not safe)) (gx#stx-e - _tl107265107301_)))) - (let ((_hd107269107307_ + _tl107269107305_)))) + (let ((_hd107273107311_ (let () (declare (not safe)) - (##car _e107270107304_))) - (_tl107268107309_ + (##car _e107274107308_))) + (_tl107272107313_ (let () (declare (not safe)) - (##cdr _e107270107304_)))) + (##cdr _e107274107308_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107268107309_)) - ((lambda (_L107312_ + _tl107272107313_)) + ((lambda (_L107316_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L107313_ - _L107314_) + _L107317_ + _L107318_) (if (gxc#current-compile-boolean-context) - (let ((__tmp114679 - (let ((__tmp114680 - (let ((__tmp114685 + (let ((__tmp114683 + (let ((__tmp114684 + (let ((__tmp114689 (let () (declare (not safe)) (gxc#compile-e__1 - _self107249_ - _L107314_))) - (__tmp114681 - (let ((__tmp114684 + _self107253_ + _L107318_))) + (__tmp114685 + (let ((__tmp114688 (let () (declare (not safe)) (gxc#compile-e__1 - _self107249_ - _L107313_))) - (__tmp114682 - (let ((__tmp114683 + _self107253_ + _L107317_))) + (__tmp114686 + (let ((__tmp114687 (let () (declare (not safe)) (gxc#compile-e__1 - _self107249_ - _L107312_)))) + _self107253_ + _L107316_)))) (declare (not safe)) - (cons __tmp114683 '())))) + (cons __tmp114687 '())))) (declare (not safe)) - (cons __tmp114684 __tmp114682)))) + (cons __tmp114688 __tmp114686)))) (declare (not safe)) - (cons __tmp114685 __tmp114681)))) + (cons __tmp114689 __tmp114685)))) (declare (not safe)) - (cons 'if __tmp114680)))) + (cons 'if __tmp114684)))) (declare (not safe)) - (_simplify107252_ __tmp114679)) - (let ((__tmp114672 - (let ((__tmp114677 - (let ((__tmp114678 + (_simplify107256_ __tmp114683)) + (let ((__tmp114676 + (let ((__tmp114681 + (let ((__tmp114682 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self107249_ - _L107314_))))) + _self107253_ + _L107318_))))) (declare (not safe)) (call-with-parameters - __tmp114678 + __tmp114682 gxc#current-compile-boolean-context '#t))) - (__tmp114673 - (let ((__tmp114676 + (__tmp114677 + (let ((__tmp114680 (let () (declare (not safe)) (gxc#compile-e__1 - _self107249_ - _L107313_))) - (__tmp114674 - (let ((__tmp114675 + _self107253_ + _L107317_))) + (__tmp114678 + (let ((__tmp114679 (let () (declare (not safe)) (gxc#compile-e__1 - _self107249_ - _L107312_)))) + _self107253_ + _L107316_)))) (declare (not safe)) - (cons __tmp114675 '())))) + (cons __tmp114679 '())))) (declare (not safe)) - (cons __tmp114676 __tmp114674)))) + (cons __tmp114680 __tmp114678)))) (declare (not safe)) - (cons __tmp114677 __tmp114673)))) + (cons __tmp114681 __tmp114677)))) (declare (not safe)) - (cons 'if __tmp114672)))) - _hd107269107307_ - _hd107266107299_ - _hd107263107291_) + (cons 'if __tmp114676)))) + _hd107273107311_ + _hd107270107303_ + _hd107267107295_) (let () (declare (not safe)) - (_g107254107275_ _g107255107278_))))) + (_g107258107279_ _g107259107282_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g107254107275_ - _g107255107278_))))) + (_g107258107279_ + _g107259107282_))))) (let () (declare (not safe)) - (_g107254107275_ _g107255107278_))))) + (_g107258107279_ _g107259107282_))))) (let () (declare (not safe)) - (_g107254107275_ _g107255107278_))))) + (_g107258107279_ _g107259107282_))))) (let () (declare (not safe)) - (_g107254107275_ _g107255107278_)))))) + (_g107258107279_ _g107259107282_)))))) (declare (not safe)) - (_g107253107334_ _stx107250_))))) + (_g107257107338_ _stx107254_))))) (define gxc#generate-runtime-ref% - (lambda (_self107197_ _stx107198_) - (let* ((_g107200107213_ - (lambda (_g107201107210_) + (lambda (_self107201_ _stx107202_) + (let* ((_g107204107217_ + (lambda (_g107205107214_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107201107210_)))) - (_g107199107246_ - (lambda (_g107201107216_) + _g107205107214_)))) + (_g107203107250_ + (lambda (_g107205107220_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107201107216_)) - (let ((_e107205107218_ + (gx#stx-pair? _g107205107220_)) + (let ((_e107209107222_ (let () (declare (not safe)) - (gx#stx-e _g107201107216_)))) - (let ((_hd107204107221_ + (gx#stx-e _g107205107220_)))) + (let ((_hd107208107225_ (let () (declare (not safe)) - (##car _e107205107218_))) - (_tl107203107223_ + (##car _e107209107222_))) + (_tl107207107227_ (let () (declare (not safe)) - (##cdr _e107205107218_)))) + (##cdr _e107209107222_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107203107223_)) - (let ((_e107208107226_ + (gx#stx-pair? _tl107207107227_)) + (let ((_e107212107230_ (let () (declare (not safe)) - (gx#stx-e _tl107203107223_)))) - (let ((_hd107207107229_ + (gx#stx-e _tl107207107227_)))) + (let ((_hd107211107233_ (let () (declare (not safe)) - (##car _e107208107226_))) - (_tl107206107231_ + (##car _e107212107230_))) + (_tl107210107235_ (let () (declare (not safe)) - (##cdr _e107208107226_)))) + (##cdr _e107212107230_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107206107231_)) - ((lambda (_L107234_) + (gx#stx-null? _tl107210107235_)) + ((lambda (_L107238_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L107234_))) - _hd107207107229_) + _L107238_))) + _hd107211107233_) (let () (declare (not safe)) - (_g107200107213_ _g107201107216_))))) + (_g107204107217_ _g107205107220_))))) (let () (declare (not safe)) - (_g107200107213_ _g107201107216_))))) + (_g107204107217_ _g107205107220_))))) (let () (declare (not safe)) - (_g107200107213_ _g107201107216_)))))) + (_g107204107217_ _g107205107220_)))))) (declare (not safe)) - (_g107199107246_ _stx107198_)))) + (_g107203107250_ _stx107202_)))) (define gxc#generate-runtime-setq% - (lambda (_self107129_ _stx107130_) - (let* ((_g107132107149_ - (lambda (_g107133107146_) + (lambda (_self107133_ _stx107134_) + (let* ((_g107136107153_ + (lambda (_g107137107150_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107133107146_)))) - (_g107131107194_ - (lambda (_g107133107152_) + _g107137107150_)))) + (_g107135107198_ + (lambda (_g107137107156_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107133107152_)) - (let ((_e107138107154_ + (gx#stx-pair? _g107137107156_)) + (let ((_e107142107158_ (let () (declare (not safe)) - (gx#stx-e _g107133107152_)))) - (let ((_hd107137107157_ + (gx#stx-e _g107137107156_)))) + (let ((_hd107141107161_ (let () (declare (not safe)) - (##car _e107138107154_))) - (_tl107136107159_ + (##car _e107142107158_))) + (_tl107140107163_ (let () (declare (not safe)) - (##cdr _e107138107154_)))) + (##cdr _e107142107158_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107136107159_)) - (let ((_e107141107162_ + (gx#stx-pair? _tl107140107163_)) + (let ((_e107145107166_ (let () (declare (not safe)) - (gx#stx-e _tl107136107159_)))) - (let ((_hd107140107165_ + (gx#stx-e _tl107140107163_)))) + (let ((_hd107144107169_ (let () (declare (not safe)) - (##car _e107141107162_))) - (_tl107139107167_ + (##car _e107145107166_))) + (_tl107143107171_ (let () (declare (not safe)) - (##cdr _e107141107162_)))) + (##cdr _e107145107166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107139107167_)) - (let ((_e107144107170_ + (gx#stx-pair? _tl107143107171_)) + (let ((_e107148107174_ (let () (declare (not safe)) - (gx#stx-e _tl107139107167_)))) - (let ((_hd107143107173_ + (gx#stx-e _tl107143107171_)))) + (let ((_hd107147107177_ (let () (declare (not safe)) - (##car _e107144107170_))) - (_tl107142107175_ + (##car _e107148107174_))) + (_tl107146107179_ (let () (declare (not safe)) - (##cdr _e107144107170_)))) + (##cdr _e107148107174_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107142107175_)) - ((lambda (_L107178_ _L107179_) - (let ((__tmp114686 - (let ((__tmp114689 + _tl107146107179_)) + ((lambda (_L107182_ _L107183_) + (let ((__tmp114690 + (let ((__tmp114693 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _L107179_))) - (__tmp114687 - (let ((__tmp114688 + (gxc#generate-runtime-binding-id _L107183_))) + (__tmp114691 + (let ((__tmp114692 (let () (declare (not safe)) - (gxc#compile-e__1 _self107129_ _L107178_)))) + (gxc#compile-e__1 _self107133_ _L107182_)))) (declare (not safe)) - (cons __tmp114688 '())))) + (cons __tmp114692 '())))) (declare (not safe)) - (cons __tmp114689 __tmp114687)))) + (cons __tmp114693 __tmp114691)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp114686))) - _hd107143107173_ - _hd107140107165_) + (cons 'set! __tmp114690))) + _hd107147107177_ + _hd107144107169_) (let () (declare (not safe)) - (_g107132107149_ - _g107133107152_))))) + (_g107136107153_ + _g107137107156_))))) (let () (declare (not safe)) - (_g107132107149_ _g107133107152_))))) + (_g107136107153_ _g107137107156_))))) (let () (declare (not safe)) - (_g107132107149_ _g107133107152_))))) + (_g107136107153_ _g107137107156_))))) (let () (declare (not safe)) - (_g107132107149_ _g107133107152_)))))) + (_g107136107153_ _g107137107156_)))))) (declare (not safe)) - (_g107131107194_ _stx107130_)))) + (_g107135107198_ _stx107134_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_self106940_ _stx106941_) - (let* ((_g106943106960_ - (lambda (_g106944106957_) + (lambda (_self106944_ _stx106945_) + (let* ((_g106947106964_ + (lambda (_g106948106961_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106944106957_)))) - (_g106942107126_ - (lambda (_g106944106963_) + _g106948106961_)))) + (_g106946107130_ + (lambda (_g106948106967_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106944106963_)) - (let ((_e106949106965_ + (gx#stx-pair? _g106948106967_)) + (let ((_e106953106969_ (let () (declare (not safe)) - (gx#stx-e _g106944106963_)))) - (let ((_hd106948106968_ + (gx#stx-e _g106948106967_)))) + (let ((_hd106952106972_ (let () (declare (not safe)) - (##car _e106949106965_))) - (_tl106947106970_ + (##car _e106953106969_))) + (_tl106951106974_ (let () (declare (not safe)) - (##cdr _e106949106965_)))) + (##cdr _e106953106969_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106947106970_)) - (let ((_e106952106973_ + (gx#stx-pair? _tl106951106974_)) + (let ((_e106956106977_ (let () (declare (not safe)) - (gx#stx-e _tl106947106970_)))) - (let ((_hd106951106976_ + (gx#stx-e _tl106951106974_)))) + (let ((_hd106955106980_ (let () (declare (not safe)) - (##car _e106952106973_))) - (_tl106950106978_ + (##car _e106956106977_))) + (_tl106954106982_ (let () (declare (not safe)) - (##cdr _e106952106973_)))) + (##cdr _e106956106977_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106950106978_)) - (let ((_e106955106981_ + (gx#stx-pair? _tl106954106982_)) + (let ((_e106959106985_ (let () (declare (not safe)) - (gx#stx-e _tl106950106978_)))) - (let ((_hd106954106984_ + (gx#stx-e _tl106954106982_)))) + (let ((_hd106958106988_ (let () (declare (not safe)) - (##car _e106955106981_))) - (_tl106953106986_ + (##car _e106959106985_))) + (_tl106957106990_ (let () (declare (not safe)) - (##cdr _e106955106981_)))) + (##cdr _e106959106985_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106953106986_)) - ((lambda (_L106989_ _L106990_) + _tl106957106990_)) + ((lambda (_L106993_ _L106994_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114705 - (let ((__tmp114708 + (let ((__tmp114709 + (let ((__tmp114712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self106940_ _L106989_))) - (__tmp114706 - (let ((__tmp114707 + (gxc#compile-e__1 _self106944_ _L106993_))) + (__tmp114710 + (let ((__tmp114711 (let () (declare (not safe)) (gxc#compile-e__1 - _self106940_ - _L106990_)))) + _self106944_ + _L106994_)))) (declare (not safe)) - (cons __tmp114707 '())))) + (cons __tmp114711 '())))) (declare (not safe)) - (cons __tmp114708 __tmp114706)))) + (cons __tmp114712 __tmp114710)))) (declare (not safe)) - (cons '##structure-instance-of? __tmp114705)) + (cons '##structure-instance-of? __tmp114709)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _lp107005_ ((_rest107008_ + (let _lp107009_ ((_rest107012_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114704 + (let ((__tmp114708 (let () (declare (not safe)) - (cons _L106989_ '())))) + (cons _L106993_ '())))) (declare (not safe)) - (cons _L106990_ __tmp114704))) - (_bind107010_ '()) - (_args107011_ '())) - (let* ((_rest107012107020_ _rest107008_) - (_else107014107028_ + (cons _L106994_ __tmp114708))) + (_bind107014_ '()) + (_args107015_ '())) + (let* ((_rest107016107024_ _rest107012_) + (_else107018107032_ (lambda () - (let ((__tmp114690 - (let ((__tmp114691 - (let ((__tmp114692 - (let ((__tmp114693 + (let ((__tmp114694 + (let ((__tmp114695 + (let ((__tmp114696 + (let ((__tmp114697 (let () (declare (not safe)) (cons '##structure-instance-of? - _args107011_)))) + _args107015_)))) (declare (not safe)) - (cons __tmp114693 '())))) + (cons __tmp114697 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp114692)))) + __tmp114696)))) (declare (not safe)) - (cons _bind107010_ __tmp114691)))) + (cons _bind107014_ __tmp114695)))) (declare (not safe)) - (cons 'let __tmp114690)))) - (_K107016107114_ - (lambda (_rest107031_ _e107032_) - (let* ((___stx113902113903_ _e107032_) - (_g107037107055_ + (cons 'let __tmp114694)))) + (_K107020107118_ + (lambda (_rest107035_ _e107036_) + (let* ((___stx113906113907_ _e107036_) + (_g107041107059_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113902113903_))))) - (let ((___kont113904113905_ + ___stx113906113907_))))) + (let ((___kont113908113909_ (lambda () - (let ((__tmp114694 - (let ((__tmp114695 + (let ((__tmp114698 + (let ((__tmp114699 (let () (declare (not safe)) (gxc#compile-e__0 - _e107032_)))) + _e107036_)))) (declare (not safe)) - (cons __tmp114695 _args107011_)))) + (cons __tmp114699 _args107015_)))) (declare (not safe)) - (_lp107005_ - _rest107031_ - _bind107010_ - __tmp114694)))) - (___kont113906113907_ + (_lp107009_ + _rest107035_ + _bind107014_ + __tmp114698)))) + (___kont113910113911_ (lambda () - (let ((__tmp114696 - (let ((__tmp114697 + (let ((__tmp114700 + (let ((__tmp114701 (let () (declare (not safe)) (gxc#compile-e__0 - _e107032_)))) + _e107036_)))) (declare (not safe)) - (cons __tmp114697 _args107011_)))) + (cons __tmp114701 _args107015_)))) (declare (not safe)) - (_lp107005_ - _rest107031_ - _bind107010_ - __tmp114696)))) - (___kont113908113909_ + (_lp107009_ + _rest107035_ + _bind107014_ + __tmp114700)))) + (___kont113912113913_ (lambda () - (let ((_tmp107062_ - (let ((__tmp114698 (gensym '__tmp))) + (let ((_tmp107066_ + (let ((__tmp114702 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp114698)))) - (let ((__tmp114700 - (let ((__tmp114701 - (let ((__tmp114702 - (let ((__tmp114703 + (make-symbol__0 __tmp114702)))) + (let ((__tmp114704 + (let ((__tmp114705 + (let ((__tmp114706 + (let ((__tmp114707 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e107032_)))) + (gxc#compile-e__0 _e107036_)))) (declare (not safe)) - (cons __tmp114703 '())))) + (cons __tmp114707 '())))) (declare (not safe)) - (cons _tmp107062_ __tmp114702)))) + (cons _tmp107066_ __tmp114706)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114701 - _bind107010_))) - (__tmp114699 + (cons __tmp114705 + _bind107014_))) + (__tmp114703 (let () (declare (not safe)) - (cons _tmp107062_ - _args107011_)))) + (cons _tmp107066_ + _args107015_)))) (declare (not safe)) - (_lp107005_ - _rest107031_ - __tmp114700 - __tmp114699)))))) + (_lp107009_ + _rest107035_ + __tmp114704 + __tmp114703)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113902113903_)) - (let ((_e107041107093_ + (gx#stx-pair? ___stx113906113907_)) + (let ((_e107045107097_ (let () (declare (not safe)) - (gx#stx-e ___stx113902113903_)))) - (let ((_tl107039107098_ + (gx#stx-e ___stx113906113907_)))) + (let ((_tl107043107102_ (let () (declare (not safe)) - (##cdr _e107041107093_))) - (_hd107040107096_ + (##cdr _e107045107097_))) + (_hd107044107100_ (let () (declare (not safe)) - (##car _e107041107093_)))) + (##car _e107045107097_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd107040107096_)) + (gx#identifier? _hd107044107100_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd107040107096_)) + _hd107044107100_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107039107098_)) - (let ((_e107044107101_ + _tl107043107102_)) + (let ((_e107048107105_ (let () (declare (not safe)) (gx#stx-e - _tl107039107098_)))) - (let ((_tl107042107106_ + _tl107043107102_)))) + (let ((_tl107046107110_ (let () (declare (not safe)) - (##cdr _e107044107101_))) - (_hd107043107104_ + (##cdr _e107048107105_))) + (_hd107047107108_ (let () (declare (not safe)) - (##car _e107044107101_)))) + (##car _e107048107105_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107042107106_)) - (___kont113904113905_) - (___kont113908113909_)))) - (___kont113908113909_)) + _tl107046107110_)) + (___kont113908113909_) + (___kont113912113913_)))) + (___kont113912113913_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd107040107096_)) + _hd107044107100_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107039107098_)) - (let ((_e107050107078_ + _tl107043107102_)) + (let ((_e107054107082_ (let () (declare (not safe)) (gx#stx-e - _tl107039107098_)))) - (let ((_tl107048107083_ + _tl107043107102_)))) + (let ((_tl107052107087_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e107050107078_))) - (_hd107049107081_ - (let () (declare (not safe)) (##car _e107050107078_)))) + (##cdr _e107054107082_))) + (_hd107053107085_ + (let () (declare (not safe)) (##car _e107054107082_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107048107083_)) - (___kont113906113907_) - (___kont113908113909_)))) + (gx#stx-null? _tl107052107087_)) + (___kont113910113911_) + (___kont113912113913_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113908113909_)) - (___kont113908113909_))) - (___kont113908113909_)))) - (___kont113908113909_))))))) - (if (let () (declare (not safe)) (##pair? _rest107012107020_)) - (let ((_hd107017107117_ + (___kont113912113913_)) + (___kont113912113913_))) + (___kont113912113913_)))) + (___kont113912113913_))))))) + (if (let () (declare (not safe)) (##pair? _rest107016107024_)) + (let ((_hd107021107121_ (let () (declare (not safe)) - (##car _rest107012107020_))) - (_tl107018107119_ + (##car _rest107016107024_))) + (_tl107022107123_ (let () (declare (not safe)) - (##cdr _rest107012107020_)))) - (let* ((_e107122_ _hd107017107117_) - (_rest107124_ _tl107018107119_)) + (##cdr _rest107016107024_)))) + (let* ((_e107126_ _hd107021107121_) + (_rest107128_ _tl107022107123_)) (declare (not safe)) - (_K107016107114_ _rest107124_ _e107122_))) - (let () (declare (not safe)) (_else107014107028_))))))) + (_K107020107118_ _rest107128_ _e107126_))) + (let () (declare (not safe)) (_else107018107032_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd106954106984_ - _hd106951106976_) + _hd106958106988_ + _hd106955106980_) (let () (declare (not safe)) - (_g106943106960_ - _g106944106963_))))) + (_g106947106964_ + _g106948106967_))))) (let () (declare (not safe)) - (_g106943106960_ _g106944106963_))))) + (_g106947106964_ _g106948106967_))))) (let () (declare (not safe)) - (_g106943106960_ _g106944106963_))))) + (_g106947106964_ _g106948106967_))))) (let () (declare (not safe)) - (_g106943106960_ _g106944106963_)))))) + (_g106947106964_ _g106948106967_)))))) (declare (not safe)) - (_g106942107126_ _stx106941_)))) + (_g106946107130_ _stx106945_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_self106751_ _stx106752_) - (let* ((_g106754106771_ - (lambda (_g106755106768_) + (lambda (_self106755_ _stx106756_) + (let* ((_g106758106775_ + (lambda (_g106759106772_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106755106768_)))) - (_g106753106937_ - (lambda (_g106755106774_) + _g106759106772_)))) + (_g106757106941_ + (lambda (_g106759106778_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106755106774_)) - (let ((_e106760106776_ + (gx#stx-pair? _g106759106778_)) + (let ((_e106764106780_ (let () (declare (not safe)) - (gx#stx-e _g106755106774_)))) - (let ((_hd106759106779_ + (gx#stx-e _g106759106778_)))) + (let ((_hd106763106783_ (let () (declare (not safe)) - (##car _e106760106776_))) - (_tl106758106781_ + (##car _e106764106780_))) + (_tl106762106785_ (let () (declare (not safe)) - (##cdr _e106760106776_)))) + (##cdr _e106764106780_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106758106781_)) - (let ((_e106763106784_ + (gx#stx-pair? _tl106762106785_)) + (let ((_e106767106788_ (let () (declare (not safe)) - (gx#stx-e _tl106758106781_)))) - (let ((_hd106762106787_ + (gx#stx-e _tl106762106785_)))) + (let ((_hd106766106791_ (let () (declare (not safe)) - (##car _e106763106784_))) - (_tl106761106789_ + (##car _e106767106788_))) + (_tl106765106793_ (let () (declare (not safe)) - (##cdr _e106763106784_)))) + (##cdr _e106767106788_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106761106789_)) - (let ((_e106766106792_ + (gx#stx-pair? _tl106765106793_)) + (let ((_e106770106796_ (let () (declare (not safe)) - (gx#stx-e _tl106761106789_)))) - (let ((_hd106765106795_ + (gx#stx-e _tl106765106793_)))) + (let ((_hd106769106799_ (let () (declare (not safe)) - (##car _e106766106792_))) - (_tl106764106797_ + (##car _e106770106796_))) + (_tl106768106801_ (let () (declare (not safe)) - (##cdr _e106766106792_)))) + (##cdr _e106770106796_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106764106797_)) - ((lambda (_L106800_ _L106801_) + _tl106768106801_)) + ((lambda (_L106804_ _L106805_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114724 - (let ((__tmp114727 + (let ((__tmp114728 + (let ((__tmp114731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self106751_ _L106800_))) - (__tmp114725 - (let ((__tmp114726 + (gxc#compile-e__1 _self106755_ _L106804_))) + (__tmp114729 + (let ((__tmp114730 (let () (declare (not safe)) (gxc#compile-e__1 - _self106751_ - _L106801_)))) + _self106755_ + _L106805_)))) (declare (not safe)) - (cons __tmp114726 '())))) + (cons __tmp114730 '())))) (declare (not safe)) - (cons __tmp114727 __tmp114725)))) + (cons __tmp114731 __tmp114729)))) (declare (not safe)) - (cons '##structure-direct-instance-of? __tmp114724)) + (cons '##structure-direct-instance-of? __tmp114728)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _lp106816_ ((_rest106819_ + (let _lp106820_ ((_rest106823_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114723 + (let ((__tmp114727 (let () (declare (not safe)) - (cons _L106800_ '())))) + (cons _L106804_ '())))) (declare (not safe)) - (cons _L106801_ __tmp114723))) - (_bind106821_ '()) - (_args106822_ '())) - (let* ((_rest106823106831_ _rest106819_) - (_else106825106839_ + (cons _L106805_ __tmp114727))) + (_bind106825_ '()) + (_args106826_ '())) + (let* ((_rest106827106835_ _rest106823_) + (_else106829106843_ (lambda () - (let ((__tmp114709 - (let ((__tmp114710 - (let ((__tmp114711 - (let ((__tmp114712 + (let ((__tmp114713 + (let ((__tmp114714 + (let ((__tmp114715 + (let ((__tmp114716 (let () (declare (not safe)) (cons '##structure-direct-instance-of? - _args106822_)))) + _args106826_)))) (declare (not safe)) - (cons __tmp114712 '())))) + (cons __tmp114716 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp114711)))) + __tmp114715)))) (declare (not safe)) - (cons _bind106821_ __tmp114710)))) + (cons _bind106825_ __tmp114714)))) (declare (not safe)) - (cons 'let __tmp114709)))) - (_K106827106925_ - (lambda (_rest106842_ _e106843_) - (let* ((___stx113948113949_ _e106843_) - (_g106848106866_ + (cons 'let __tmp114713)))) + (_K106831106929_ + (lambda (_rest106846_ _e106847_) + (let* ((___stx113952113953_ _e106847_) + (_g106852106870_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113948113949_))))) - (let ((___kont113950113951_ + ___stx113952113953_))))) + (let ((___kont113954113955_ (lambda () - (let ((__tmp114713 - (let ((__tmp114714 + (let ((__tmp114717 + (let ((__tmp114718 (let () (declare (not safe)) (gxc#compile-e__0 - _e106843_)))) + _e106847_)))) (declare (not safe)) - (cons __tmp114714 _args106822_)))) + (cons __tmp114718 _args106826_)))) (declare (not safe)) - (_lp106816_ - _rest106842_ - _bind106821_ - __tmp114713)))) - (___kont113952113953_ + (_lp106820_ + _rest106846_ + _bind106825_ + __tmp114717)))) + (___kont113956113957_ (lambda () - (let ((__tmp114715 - (let ((__tmp114716 + (let ((__tmp114719 + (let ((__tmp114720 (let () (declare (not safe)) (gxc#compile-e__0 - _e106843_)))) + _e106847_)))) (declare (not safe)) - (cons __tmp114716 _args106822_)))) + (cons __tmp114720 _args106826_)))) (declare (not safe)) - (_lp106816_ - _rest106842_ - _bind106821_ - __tmp114715)))) - (___kont113954113955_ + (_lp106820_ + _rest106846_ + _bind106825_ + __tmp114719)))) + (___kont113958113959_ (lambda () - (let ((_tmp106873_ - (let ((__tmp114717 (gensym '__tmp))) + (let ((_tmp106877_ + (let ((__tmp114721 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp114717)))) - (let ((__tmp114719 - (let ((__tmp114720 - (let ((__tmp114721 - (let ((__tmp114722 + (make-symbol__0 __tmp114721)))) + (let ((__tmp114723 + (let ((__tmp114724 + (let ((__tmp114725 + (let ((__tmp114726 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e106843_)))) + (gxc#compile-e__0 _e106847_)))) (declare (not safe)) - (cons __tmp114722 '())))) + (cons __tmp114726 '())))) (declare (not safe)) - (cons _tmp106873_ __tmp114721)))) + (cons _tmp106877_ __tmp114725)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114720 - _bind106821_))) - (__tmp114718 + (cons __tmp114724 + _bind106825_))) + (__tmp114722 (let () (declare (not safe)) - (cons _tmp106873_ - _args106822_)))) + (cons _tmp106877_ + _args106826_)))) (declare (not safe)) - (_lp106816_ - _rest106842_ - __tmp114719 - __tmp114718)))))) + (_lp106820_ + _rest106846_ + __tmp114723 + __tmp114722)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113948113949_)) - (let ((_e106852106904_ + (gx#stx-pair? ___stx113952113953_)) + (let ((_e106856106908_ (let () (declare (not safe)) - (gx#stx-e ___stx113948113949_)))) - (let ((_tl106850106909_ + (gx#stx-e ___stx113952113953_)))) + (let ((_tl106854106913_ (let () (declare (not safe)) - (##cdr _e106852106904_))) - (_hd106851106907_ + (##cdr _e106856106908_))) + (_hd106855106911_ (let () (declare (not safe)) - (##car _e106852106904_)))) + (##car _e106856106908_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106851106907_)) + (gx#identifier? _hd106855106911_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106851106907_)) + _hd106855106911_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106850106909_)) - (let ((_e106855106912_ + _tl106854106913_)) + (let ((_e106859106916_ (let () (declare (not safe)) (gx#stx-e - _tl106850106909_)))) - (let ((_tl106853106917_ + _tl106854106913_)))) + (let ((_tl106857106921_ (let () (declare (not safe)) - (##cdr _e106855106912_))) - (_hd106854106915_ + (##cdr _e106859106916_))) + (_hd106858106919_ (let () (declare (not safe)) - (##car _e106855106912_)))) + (##car _e106859106916_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106853106917_)) - (___kont113950113951_) - (___kont113954113955_)))) - (___kont113954113955_)) + _tl106857106921_)) + (___kont113954113955_) + (___kont113958113959_)))) + (___kont113958113959_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd106851106907_)) + _hd106855106911_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106850106909_)) - (let ((_e106861106889_ + _tl106854106913_)) + (let ((_e106865106893_ (let () (declare (not safe)) (gx#stx-e - _tl106850106909_)))) - (let ((_tl106859106894_ + _tl106854106913_)))) + (let ((_tl106863106898_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106861106889_))) - (_hd106860106892_ - (let () (declare (not safe)) (##car _e106861106889_)))) + (##cdr _e106865106893_))) + (_hd106864106896_ + (let () (declare (not safe)) (##car _e106865106893_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106859106894_)) - (___kont113952113953_) - (___kont113954113955_)))) + (gx#stx-null? _tl106863106898_)) + (___kont113956113957_) + (___kont113958113959_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113954113955_)) - (___kont113954113955_))) - (___kont113954113955_)))) - (___kont113954113955_))))))) - (if (let () (declare (not safe)) (##pair? _rest106823106831_)) - (let ((_hd106828106928_ + (___kont113958113959_)) + (___kont113958113959_))) + (___kont113958113959_)))) + (___kont113958113959_))))))) + (if (let () (declare (not safe)) (##pair? _rest106827106835_)) + (let ((_hd106832106932_ (let () (declare (not safe)) - (##car _rest106823106831_))) - (_tl106829106930_ + (##car _rest106827106835_))) + (_tl106833106934_ (let () (declare (not safe)) - (##cdr _rest106823106831_)))) - (let* ((_e106933_ _hd106828106928_) - (_rest106935_ _tl106829106930_)) + (##cdr _rest106827106835_)))) + (let* ((_e106937_ _hd106832106932_) + (_rest106939_ _tl106833106934_)) (declare (not safe)) - (_K106827106925_ _rest106935_ _e106933_))) - (let () (declare (not safe)) (_else106825106839_))))))) + (_K106831106929_ _rest106939_ _e106937_))) + (let () (declare (not safe)) (_else106829106843_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd106765106795_ - _hd106762106787_) + _hd106769106799_ + _hd106766106791_) (let () (declare (not safe)) - (_g106754106771_ - _g106755106774_))))) + (_g106758106775_ + _g106759106778_))))) (let () (declare (not safe)) - (_g106754106771_ _g106755106774_))))) + (_g106758106775_ _g106759106778_))))) (let () (declare (not safe)) - (_g106754106771_ _g106755106774_))))) + (_g106758106775_ _g106759106778_))))) (let () (declare (not safe)) - (_g106754106771_ _g106755106774_)))))) + (_g106758106775_ _g106759106778_)))))) (declare (not safe)) - (_g106753106937_ _stx106752_)))) + (_g106757106941_ _stx106756_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_self106667_ _stx106668_) - (let* ((_g106670106691_ - (lambda (_g106671106688_) + (lambda (_self106671_ _stx106672_) + (let* ((_g106674106695_ + (lambda (_g106675106692_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106671106688_)))) - (_g106669106748_ - (lambda (_g106671106694_) + _g106675106692_)))) + (_g106673106752_ + (lambda (_g106675106698_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106671106694_)) - (let ((_e106677106696_ + (gx#stx-pair? _g106675106698_)) + (let ((_e106681106700_ (let () (declare (not safe)) - (gx#stx-e _g106671106694_)))) - (let ((_hd106676106699_ + (gx#stx-e _g106675106698_)))) + (let ((_hd106680106703_ (let () (declare (not safe)) - (##car _e106677106696_))) - (_tl106675106701_ + (##car _e106681106700_))) + (_tl106679106705_ (let () (declare (not safe)) - (##cdr _e106677106696_)))) + (##cdr _e106681106700_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106675106701_)) - (let ((_e106680106704_ + (gx#stx-pair? _tl106679106705_)) + (let ((_e106684106708_ (let () (declare (not safe)) - (gx#stx-e _tl106675106701_)))) - (let ((_hd106679106707_ + (gx#stx-e _tl106679106705_)))) + (let ((_hd106683106711_ (let () (declare (not safe)) - (##car _e106680106704_))) - (_tl106678106709_ + (##car _e106684106708_))) + (_tl106682106713_ (let () (declare (not safe)) - (##cdr _e106680106704_)))) + (##cdr _e106684106708_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106678106709_)) - (let ((_e106683106712_ + (gx#stx-pair? _tl106682106713_)) + (let ((_e106687106716_ (let () (declare (not safe)) - (gx#stx-e _tl106678106709_)))) - (let ((_hd106682106715_ + (gx#stx-e _tl106682106713_)))) + (let ((_hd106686106719_ (let () (declare (not safe)) - (##car _e106683106712_))) - (_tl106681106717_ + (##car _e106687106716_))) + (_tl106685106721_ (let () (declare (not safe)) - (##cdr _e106683106712_)))) + (##cdr _e106687106716_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106681106717_)) - (let ((_e106686106720_ + _tl106685106721_)) + (let ((_e106690106724_ (let () (declare (not safe)) (gx#stx-e - _tl106681106717_)))) - (let ((_hd106685106723_ + _tl106685106721_)))) + (let ((_hd106689106727_ (let () (declare (not safe)) - (##car _e106686106720_))) - (_tl106684106725_ + (##car _e106690106724_))) + (_tl106688106729_ (let () (declare (not safe)) - (##cdr _e106686106720_)))) + (##cdr _e106690106724_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106684106725_)) - ((lambda (_L106728_ - _L106729_ - _L106730_) - (let ((__tmp114728 - (let ((__tmp114734 + _tl106688106729_)) + ((lambda (_L106732_ + _L106733_ + _L106734_) + (let ((__tmp114732 + (let ((__tmp114738 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self106667_ _L106728_))) - (__tmp114729 - (let ((__tmp114733 + (gxc#compile-e__1 _self106671_ _L106732_))) + (__tmp114733 + (let ((__tmp114737 (let () (declare (not safe)) (gxc#compile-e__1 - _self106667_ - _L106729_))) - (__tmp114730 - (let ((__tmp114732 + _self106671_ + _L106733_))) + (__tmp114734 + (let ((__tmp114736 (let () (declare (not safe)) (gxc#compile-e__1 - _self106667_ - _L106730_))) - (__tmp114731 + _self106671_ + _L106734_))) + (__tmp114735 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp114732 __tmp114731)))) + (cons __tmp114736 __tmp114735)))) (declare (not safe)) - (cons __tmp114733 __tmp114730)))) + (cons __tmp114737 __tmp114734)))) (declare (not safe)) - (cons __tmp114734 __tmp114729)))) + (cons __tmp114738 __tmp114733)))) (declare (not safe)) - (cons '##structure-ref __tmp114728))) - _hd106685106723_ - _hd106682106715_ - _hd106679106707_) + (cons '##structure-ref __tmp114732))) + _hd106689106727_ + _hd106686106719_ + _hd106683106711_) (let () (declare (not safe)) - (_g106670106691_ _g106671106694_))))) + (_g106674106695_ _g106675106698_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106670106691_ - _g106671106694_))))) + (_g106674106695_ + _g106675106698_))))) (let () (declare (not safe)) - (_g106670106691_ _g106671106694_))))) + (_g106674106695_ _g106675106698_))))) (let () (declare (not safe)) - (_g106670106691_ _g106671106694_))))) + (_g106674106695_ _g106675106698_))))) (let () (declare (not safe)) - (_g106670106691_ _g106671106694_)))))) + (_g106674106695_ _g106675106698_)))))) (declare (not safe)) - (_g106669106748_ _stx106668_)))) + (_g106673106752_ _stx106672_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_self106567_ _stx106568_) - (let* ((_g106570106595_ - (lambda (_g106571106592_) + (lambda (_self106571_ _stx106572_) + (let* ((_g106574106599_ + (lambda (_g106575106596_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106571106592_)))) - (_g106569106664_ - (lambda (_g106571106598_) + _g106575106596_)))) + (_g106573106668_ + (lambda (_g106575106602_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106571106598_)) - (let ((_e106578106600_ + (gx#stx-pair? _g106575106602_)) + (let ((_e106582106604_ (let () (declare (not safe)) - (gx#stx-e _g106571106598_)))) - (let ((_hd106577106603_ + (gx#stx-e _g106575106602_)))) + (let ((_hd106581106607_ (let () (declare (not safe)) - (##car _e106578106600_))) - (_tl106576106605_ + (##car _e106582106604_))) + (_tl106580106609_ (let () (declare (not safe)) - (##cdr _e106578106600_)))) + (##cdr _e106582106604_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106576106605_)) - (let ((_e106581106608_ + (gx#stx-pair? _tl106580106609_)) + (let ((_e106585106612_ (let () (declare (not safe)) - (gx#stx-e _tl106576106605_)))) - (let ((_hd106580106611_ + (gx#stx-e _tl106580106609_)))) + (let ((_hd106584106615_ (let () (declare (not safe)) - (##car _e106581106608_))) - (_tl106579106613_ + (##car _e106585106612_))) + (_tl106583106617_ (let () (declare (not safe)) - (##cdr _e106581106608_)))) + (##cdr _e106585106612_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106579106613_)) - (let ((_e106584106616_ + (gx#stx-pair? _tl106583106617_)) + (let ((_e106588106620_ (let () (declare (not safe)) - (gx#stx-e _tl106579106613_)))) - (let ((_hd106583106619_ + (gx#stx-e _tl106583106617_)))) + (let ((_hd106587106623_ (let () (declare (not safe)) - (##car _e106584106616_))) - (_tl106582106621_ + (##car _e106588106620_))) + (_tl106586106625_ (let () (declare (not safe)) - (##cdr _e106584106616_)))) + (##cdr _e106588106620_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106582106621_)) - (let ((_e106587106624_ + _tl106586106625_)) + (let ((_e106591106628_ (let () (declare (not safe)) (gx#stx-e - _tl106582106621_)))) - (let ((_hd106586106627_ + _tl106586106625_)))) + (let ((_hd106590106631_ (let () (declare (not safe)) - (##car _e106587106624_))) - (_tl106585106629_ + (##car _e106591106628_))) + (_tl106589106633_ (let () (declare (not safe)) - (##cdr _e106587106624_)))) + (##cdr _e106591106628_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106585106629_)) - (let ((_e106590106632_ + _tl106589106633_)) + (let ((_e106594106636_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl106585106629_)))) - (let ((_hd106589106635_ - (let () (declare (not safe)) (##car _e106590106632_))) - (_tl106588106637_ - (let () (declare (not safe)) (##cdr _e106590106632_)))) + (gx#stx-e _tl106589106633_)))) + (let ((_hd106593106639_ + (let () (declare (not safe)) (##car _e106594106636_))) + (_tl106592106641_ + (let () (declare (not safe)) (##cdr _e106594106636_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106588106637_)) - ((lambda (_L106640_ _L106641_ _L106642_ _L106643_) - (let ((__tmp114735 - (let ((__tmp114743 + (gx#stx-null? _tl106592106641_)) + ((lambda (_L106644_ _L106645_ _L106646_ _L106647_) + (let ((__tmp114739 + (let ((__tmp114747 (let () (declare (not safe)) (gxc#compile-e__1 - _self106567_ - _L106641_))) - (__tmp114736 - (let ((__tmp114742 + _self106571_ + _L106645_))) + (__tmp114740 + (let ((__tmp114746 (let () (declare (not safe)) (gxc#compile-e__1 - _self106567_ - _L106640_))) - (__tmp114737 - (let ((__tmp114741 + _self106571_ + _L106644_))) + (__tmp114741 + (let ((__tmp114745 (let () (declare (not safe)) (gxc#compile-e__1 - _self106567_ - _L106642_))) - (__tmp114738 - (let ((__tmp114740 + _self106571_ + _L106646_))) + (__tmp114742 + (let ((__tmp114744 (let () (declare (not safe)) (gxc#compile-e__1 - _self106567_ - _L106643_))) - (__tmp114739 + _self106571_ + _L106647_))) + (__tmp114743 (let () (declare (not safe)) @@ -12741,300 +12741,300 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp114740 __tmp114739)))) + (cons __tmp114744 __tmp114743)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114741 - __tmp114738)))) + (cons __tmp114745 + __tmp114742)))) (declare (not safe)) - (cons __tmp114742 __tmp114737)))) + (cons __tmp114746 __tmp114741)))) (declare (not safe)) - (cons __tmp114743 __tmp114736)))) + (cons __tmp114747 __tmp114740)))) (declare (not safe)) - (cons '##structure-set! __tmp114735))) - _hd106589106635_ - _hd106586106627_ - _hd106583106619_ - _hd106580106611_) + (cons '##structure-set! __tmp114739))) + _hd106593106639_ + _hd106590106631_ + _hd106587106623_ + _hd106584106615_) (let () (declare (not safe)) - (_g106570106595_ _g106571106598_))))) + (_g106574106599_ _g106575106602_))))) (let () (declare (not safe)) - (_g106570106595_ _g106571106598_))))) + (_g106574106599_ _g106575106602_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106570106595_ - _g106571106598_))))) + (_g106574106599_ + _g106575106602_))))) (let () (declare (not safe)) - (_g106570106595_ _g106571106598_))))) + (_g106574106599_ _g106575106602_))))) (let () (declare (not safe)) - (_g106570106595_ _g106571106598_))))) + (_g106574106599_ _g106575106602_))))) (let () (declare (not safe)) - (_g106570106595_ _g106571106598_)))))) + (_g106574106599_ _g106575106602_)))))) (declare (not safe)) - (_g106569106664_ _stx106568_)))) + (_g106573106668_ _stx106572_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_self106483_ _stx106484_) - (let* ((_g106486106507_ - (lambda (_g106487106504_) + (lambda (_self106487_ _stx106488_) + (let* ((_g106490106511_ + (lambda (_g106491106508_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106487106504_)))) - (_g106485106564_ - (lambda (_g106487106510_) + _g106491106508_)))) + (_g106489106568_ + (lambda (_g106491106514_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106487106510_)) - (let ((_e106493106512_ + (gx#stx-pair? _g106491106514_)) + (let ((_e106497106516_ (let () (declare (not safe)) - (gx#stx-e _g106487106510_)))) - (let ((_hd106492106515_ + (gx#stx-e _g106491106514_)))) + (let ((_hd106496106519_ (let () (declare (not safe)) - (##car _e106493106512_))) - (_tl106491106517_ + (##car _e106497106516_))) + (_tl106495106521_ (let () (declare (not safe)) - (##cdr _e106493106512_)))) + (##cdr _e106497106516_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106491106517_)) - (let ((_e106496106520_ + (gx#stx-pair? _tl106495106521_)) + (let ((_e106500106524_ (let () (declare (not safe)) - (gx#stx-e _tl106491106517_)))) - (let ((_hd106495106523_ + (gx#stx-e _tl106495106521_)))) + (let ((_hd106499106527_ (let () (declare (not safe)) - (##car _e106496106520_))) - (_tl106494106525_ + (##car _e106500106524_))) + (_tl106498106529_ (let () (declare (not safe)) - (##cdr _e106496106520_)))) + (##cdr _e106500106524_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106494106525_)) - (let ((_e106499106528_ + (gx#stx-pair? _tl106498106529_)) + (let ((_e106503106532_ (let () (declare (not safe)) - (gx#stx-e _tl106494106525_)))) - (let ((_hd106498106531_ + (gx#stx-e _tl106498106529_)))) + (let ((_hd106502106535_ (let () (declare (not safe)) - (##car _e106499106528_))) - (_tl106497106533_ + (##car _e106503106532_))) + (_tl106501106537_ (let () (declare (not safe)) - (##cdr _e106499106528_)))) + (##cdr _e106503106532_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106497106533_)) - (let ((_e106502106536_ + _tl106501106537_)) + (let ((_e106506106540_ (let () (declare (not safe)) (gx#stx-e - _tl106497106533_)))) - (let ((_hd106501106539_ + _tl106501106537_)))) + (let ((_hd106505106543_ (let () (declare (not safe)) - (##car _e106502106536_))) - (_tl106500106541_ + (##car _e106506106540_))) + (_tl106504106545_ (let () (declare (not safe)) - (##cdr _e106502106536_)))) + (##cdr _e106506106540_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106500106541_)) - ((lambda (_L106544_ - _L106545_ - _L106546_) - (let ((__tmp114744 - (let ((__tmp114750 + _tl106504106545_)) + ((lambda (_L106548_ + _L106549_ + _L106550_) + (let ((__tmp114748 + (let ((__tmp114754 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self106483_ _L106544_))) - (__tmp114745 - (let ((__tmp114749 + (gxc#compile-e__1 _self106487_ _L106548_))) + (__tmp114749 + (let ((__tmp114753 (let () (declare (not safe)) (gxc#compile-e__1 - _self106483_ - _L106545_))) - (__tmp114746 - (let ((__tmp114748 + _self106487_ + _L106549_))) + (__tmp114750 + (let ((__tmp114752 (let () (declare (not safe)) (gxc#compile-e__1 - _self106483_ - _L106546_))) - (__tmp114747 + _self106487_ + _L106550_))) + (__tmp114751 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp114748 __tmp114747)))) + (cons __tmp114752 __tmp114751)))) (declare (not safe)) - (cons __tmp114749 __tmp114746)))) + (cons __tmp114753 __tmp114750)))) (declare (not safe)) - (cons __tmp114750 __tmp114745)))) + (cons __tmp114754 __tmp114749)))) (declare (not safe)) - (cons '##direct-structure-ref __tmp114744))) - _hd106501106539_ - _hd106498106531_ - _hd106495106523_) + (cons '##direct-structure-ref __tmp114748))) + _hd106505106543_ + _hd106502106535_ + _hd106499106527_) (let () (declare (not safe)) - (_g106486106507_ _g106487106510_))))) + (_g106490106511_ _g106491106514_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106486106507_ - _g106487106510_))))) + (_g106490106511_ + _g106491106514_))))) (let () (declare (not safe)) - (_g106486106507_ _g106487106510_))))) + (_g106490106511_ _g106491106514_))))) (let () (declare (not safe)) - (_g106486106507_ _g106487106510_))))) + (_g106490106511_ _g106491106514_))))) (let () (declare (not safe)) - (_g106486106507_ _g106487106510_)))))) + (_g106490106511_ _g106491106514_)))))) (declare (not safe)) - (_g106485106564_ _stx106484_)))) + (_g106489106568_ _stx106488_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_self106383_ _stx106384_) - (let* ((_g106386106411_ - (lambda (_g106387106408_) + (lambda (_self106387_ _stx106388_) + (let* ((_g106390106415_ + (lambda (_g106391106412_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106387106408_)))) - (_g106385106480_ - (lambda (_g106387106414_) + _g106391106412_)))) + (_g106389106484_ + (lambda (_g106391106418_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106387106414_)) - (let ((_e106394106416_ + (gx#stx-pair? _g106391106418_)) + (let ((_e106398106420_ (let () (declare (not safe)) - (gx#stx-e _g106387106414_)))) - (let ((_hd106393106419_ + (gx#stx-e _g106391106418_)))) + (let ((_hd106397106423_ (let () (declare (not safe)) - (##car _e106394106416_))) - (_tl106392106421_ + (##car _e106398106420_))) + (_tl106396106425_ (let () (declare (not safe)) - (##cdr _e106394106416_)))) + (##cdr _e106398106420_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106392106421_)) - (let ((_e106397106424_ + (gx#stx-pair? _tl106396106425_)) + (let ((_e106401106428_ (let () (declare (not safe)) - (gx#stx-e _tl106392106421_)))) - (let ((_hd106396106427_ + (gx#stx-e _tl106396106425_)))) + (let ((_hd106400106431_ (let () (declare (not safe)) - (##car _e106397106424_))) - (_tl106395106429_ + (##car _e106401106428_))) + (_tl106399106433_ (let () (declare (not safe)) - (##cdr _e106397106424_)))) + (##cdr _e106401106428_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106395106429_)) - (let ((_e106400106432_ + (gx#stx-pair? _tl106399106433_)) + (let ((_e106404106436_ (let () (declare (not safe)) - (gx#stx-e _tl106395106429_)))) - (let ((_hd106399106435_ + (gx#stx-e _tl106399106433_)))) + (let ((_hd106403106439_ (let () (declare (not safe)) - (##car _e106400106432_))) - (_tl106398106437_ + (##car _e106404106436_))) + (_tl106402106441_ (let () (declare (not safe)) - (##cdr _e106400106432_)))) + (##cdr _e106404106436_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106398106437_)) - (let ((_e106403106440_ + _tl106402106441_)) + (let ((_e106407106444_ (let () (declare (not safe)) (gx#stx-e - _tl106398106437_)))) - (let ((_hd106402106443_ + _tl106402106441_)))) + (let ((_hd106406106447_ (let () (declare (not safe)) - (##car _e106403106440_))) - (_tl106401106445_ + (##car _e106407106444_))) + (_tl106405106449_ (let () (declare (not safe)) - (##cdr _e106403106440_)))) + (##cdr _e106407106444_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106401106445_)) - (let ((_e106406106448_ + _tl106405106449_)) + (let ((_e106410106452_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl106401106445_)))) - (let ((_hd106405106451_ - (let () (declare (not safe)) (##car _e106406106448_))) - (_tl106404106453_ - (let () (declare (not safe)) (##cdr _e106406106448_)))) + (gx#stx-e _tl106405106449_)))) + (let ((_hd106409106455_ + (let () (declare (not safe)) (##car _e106410106452_))) + (_tl106408106457_ + (let () (declare (not safe)) (##cdr _e106410106452_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106404106453_)) - ((lambda (_L106456_ _L106457_ _L106458_ _L106459_) - (let ((__tmp114751 - (let ((__tmp114759 + (gx#stx-null? _tl106408106457_)) + ((lambda (_L106460_ _L106461_ _L106462_ _L106463_) + (let ((__tmp114755 + (let ((__tmp114763 (let () (declare (not safe)) (gxc#compile-e__1 - _self106383_ - _L106457_))) - (__tmp114752 - (let ((__tmp114758 + _self106387_ + _L106461_))) + (__tmp114756 + (let ((__tmp114762 (let () (declare (not safe)) (gxc#compile-e__1 - _self106383_ - _L106456_))) - (__tmp114753 - (let ((__tmp114757 + _self106387_ + _L106460_))) + (__tmp114757 + (let ((__tmp114761 (let () (declare (not safe)) (gxc#compile-e__1 - _self106383_ - _L106458_))) - (__tmp114754 - (let ((__tmp114756 + _self106387_ + _L106462_))) + (__tmp114758 + (let ((__tmp114760 (let () (declare (not safe)) (gxc#compile-e__1 - _self106383_ - _L106459_))) - (__tmp114755 + _self106387_ + _L106463_))) + (__tmp114759 (let () (declare (not safe)) @@ -13042,838 +13042,838 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp114756 __tmp114755)))) + (cons __tmp114760 __tmp114759)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114757 - __tmp114754)))) + (cons __tmp114761 + __tmp114758)))) (declare (not safe)) - (cons __tmp114758 __tmp114753)))) + (cons __tmp114762 __tmp114757)))) (declare (not safe)) - (cons __tmp114759 __tmp114752)))) + (cons __tmp114763 __tmp114756)))) (declare (not safe)) - (cons '##direct-structure-set! __tmp114751))) - _hd106405106451_ - _hd106402106443_ - _hd106399106435_ - _hd106396106427_) + (cons '##direct-structure-set! __tmp114755))) + _hd106409106455_ + _hd106406106447_ + _hd106403106439_ + _hd106400106431_) (let () (declare (not safe)) - (_g106386106411_ _g106387106414_))))) + (_g106390106415_ _g106391106418_))))) (let () (declare (not safe)) - (_g106386106411_ _g106387106414_))))) + (_g106390106415_ _g106391106418_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106386106411_ - _g106387106414_))))) + (_g106390106415_ + _g106391106418_))))) (let () (declare (not safe)) - (_g106386106411_ _g106387106414_))))) + (_g106390106415_ _g106391106418_))))) (let () (declare (not safe)) - (_g106386106411_ _g106387106414_))))) + (_g106390106415_ _g106391106418_))))) (let () (declare (not safe)) - (_g106386106411_ _g106387106414_)))))) + (_g106390106415_ _g106391106418_)))))) (declare (not safe)) - (_g106385106480_ _stx106384_)))) + (_g106389106484_ _stx106388_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_self106178_ _stx106179_) - (let* ((_g106181106202_ - (lambda (_g106182106199_) + (lambda (_self106182_ _stx106183_) + (let* ((_g106185106206_ + (lambda (_g106186106203_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106182106199_)))) - (_g106180106380_ - (lambda (_g106182106205_) + _g106186106203_)))) + (_g106184106384_ + (lambda (_g106186106209_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106182106205_)) - (let ((_e106188106207_ + (gx#stx-pair? _g106186106209_)) + (let ((_e106192106211_ (let () (declare (not safe)) - (gx#stx-e _g106182106205_)))) - (let ((_hd106187106210_ + (gx#stx-e _g106186106209_)))) + (let ((_hd106191106214_ (let () (declare (not safe)) - (##car _e106188106207_))) - (_tl106186106212_ + (##car _e106192106211_))) + (_tl106190106216_ (let () (declare (not safe)) - (##cdr _e106188106207_)))) + (##cdr _e106192106211_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106186106212_)) - (let ((_e106191106215_ + (gx#stx-pair? _tl106190106216_)) + (let ((_e106195106219_ (let () (declare (not safe)) - (gx#stx-e _tl106186106212_)))) - (let ((_hd106190106218_ + (gx#stx-e _tl106190106216_)))) + (let ((_hd106194106222_ (let () (declare (not safe)) - (##car _e106191106215_))) - (_tl106189106220_ + (##car _e106195106219_))) + (_tl106193106224_ (let () (declare (not safe)) - (##cdr _e106191106215_)))) + (##cdr _e106195106219_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106189106220_)) - (let ((_e106194106223_ + (gx#stx-pair? _tl106193106224_)) + (let ((_e106198106227_ (let () (declare (not safe)) - (gx#stx-e _tl106189106220_)))) - (let ((_hd106193106226_ + (gx#stx-e _tl106193106224_)))) + (let ((_hd106197106230_ (let () (declare (not safe)) - (##car _e106194106223_))) - (_tl106192106228_ + (##car _e106198106227_))) + (_tl106196106232_ (let () (declare (not safe)) - (##cdr _e106194106223_)))) + (##cdr _e106198106227_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106192106228_)) - (let ((_e106197106231_ + _tl106196106232_)) + (let ((_e106201106235_ (let () (declare (not safe)) (gx#stx-e - _tl106192106228_)))) - (let ((_hd106196106234_ + _tl106196106232_)))) + (let ((_hd106200106238_ (let () (declare (not safe)) - (##car _e106197106231_))) - (_tl106195106236_ + (##car _e106201106235_))) + (_tl106199106240_ (let () (declare (not safe)) - (##cdr _e106197106231_)))) + (##cdr _e106201106235_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106195106236_)) - ((lambda (_L106239_ - _L106240_ - _L106241_) + _tl106199106240_)) + ((lambda (_L106243_ + _L106244_ + _L106245_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114778 - (let ((__tmp114784 + (let ((__tmp114782 + (let ((__tmp114788 (let () (declare (not safe)) (gxc#compile-e__1 - _self106178_ - _L106239_))) - (__tmp114779 - (let ((__tmp114783 + _self106182_ + _L106243_))) + (__tmp114783 + (let ((__tmp114787 (let () (declare (not safe)) (gxc#compile-e__1 - _self106178_ - _L106240_))) - (__tmp114780 - (let ((__tmp114782 + _self106182_ + _L106244_))) + (__tmp114784 + (let ((__tmp114786 (let () (declare (not safe)) (gxc#compile-e__1 - _self106178_ - _L106241_))) - (__tmp114781 + _self106182_ + _L106245_))) + (__tmp114785 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp114782 __tmp114781)))) + (cons __tmp114786 __tmp114785)))) (declare (not safe)) - (cons __tmp114783 __tmp114780)))) + (cons __tmp114787 __tmp114784)))) (declare (not safe)) - (cons __tmp114784 __tmp114779)))) + (cons __tmp114788 __tmp114783)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp114778)) - (let _lp106259_ ((_rest106262_ - (let ((__tmp114776 - (let ((__tmp114777 + (cons '##unchecked-structure-ref __tmp114782)) + (let _lp106263_ ((_rest106266_ + (let ((__tmp114780 + (let ((__tmp114781 (let () (declare (not safe)) - (cons _L106239_ '())))) + (cons _L106243_ '())))) (declare (not safe)) - (cons _L106240_ __tmp114777)))) + (cons _L106244_ __tmp114781)))) (declare (not safe)) - (cons _L106241_ __tmp114776))) - (_bind106264_ '()) - (_args106265_ '())) - (let* ((_rest106266106274_ _rest106262_) - (_else106268106282_ + (cons _L106245_ __tmp114780))) + (_bind106268_ '()) + (_args106269_ '())) + (let* ((_rest106270106278_ _rest106266_) + (_else106272106286_ (lambda () - (let ((__tmp114760 - (let ((__tmp114761 - (let ((__tmp114762 - (let ((__tmp114763 - (let ((__tmp114764 + (let ((__tmp114764 + (let ((__tmp114765 + (let ((__tmp114766 + (let ((__tmp114767 + (let ((__tmp114768 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114765 + (let ((__tmp114769 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp114765 _args106265_)))) + (foldr1 cons __tmp114769 _args106269_)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp114764)))) + (cons '##unchecked-structure-ref __tmp114768)))) (declare (not safe)) - (cons __tmp114763 '())))) + (cons __tmp114767 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114762)))) + __tmp114766)))) (declare (not safe)) - (cons _bind106264_ __tmp114761)))) + (cons _bind106268_ __tmp114765)))) (declare (not safe)) - (cons 'let __tmp114760)))) - (_K106270106368_ - (lambda (_rest106285_ _e106286_) - (let* ((___stx113994113995_ _e106286_) - (_g106291106309_ + (cons 'let __tmp114764)))) + (_K106274106372_ + (lambda (_rest106289_ _e106290_) + (let* ((___stx113998113999_ _e106290_) + (_g106295106313_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113994113995_))))) - (let ((___kont113996113997_ + ___stx113998113999_))))) + (let ((___kont114000114001_ (lambda () - (let ((__tmp114766 - (let ((__tmp114767 + (let ((__tmp114770 + (let ((__tmp114771 (let () (declare (not safe)) (gxc#compile-e__0 - _e106286_)))) + _e106290_)))) (declare (not safe)) - (cons __tmp114767 - _args106265_)))) + (cons __tmp114771 + _args106269_)))) (declare (not safe)) - (_lp106259_ - _rest106285_ - _bind106264_ - __tmp114766)))) - (___kont113998113999_ + (_lp106263_ + _rest106289_ + _bind106268_ + __tmp114770)))) + (___kont114002114003_ (lambda () - (let ((__tmp114768 - (let ((__tmp114769 + (let ((__tmp114772 + (let ((__tmp114773 (let () (declare (not safe)) (gxc#compile-e__0 - _e106286_)))) + _e106290_)))) (declare (not safe)) - (cons __tmp114769 - _args106265_)))) + (cons __tmp114773 + _args106269_)))) (declare (not safe)) - (_lp106259_ - _rest106285_ - _bind106264_ - __tmp114768)))) - (___kont114000114001_ + (_lp106263_ + _rest106289_ + _bind106268_ + __tmp114772)))) + (___kont114004114005_ (lambda () - (let ((_tmp106316_ - (let ((__tmp114770 + (let ((_tmp106320_ + (let ((__tmp114774 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp114770)))) - (let ((__tmp114772 - (let ((__tmp114773 - (let ((__tmp114774 + __tmp114774)))) + (let ((__tmp114776 + (let ((__tmp114777 + (let ((__tmp114778 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114775 + (let ((__tmp114779 (let () (declare (not safe)) - (gxc#compile-e__0 _e106286_)))) + (gxc#compile-e__0 _e106290_)))) (declare (not safe)) - (cons __tmp114775 '())))) + (cons __tmp114779 '())))) (declare (not safe)) - (cons _tmp106316_ __tmp114774)))) + (cons _tmp106320_ __tmp114778)))) (declare (not safe)) - (cons __tmp114773 _bind106264_))) + (cons __tmp114777 _bind106268_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114771 + (__tmp114775 (let () (declare (not safe)) - (cons _tmp106316_ - _args106265_)))) + (cons _tmp106320_ + _args106269_)))) (declare (not safe)) - (_lp106259_ - _rest106285_ - __tmp114772 - __tmp114771)))))) + (_lp106263_ + _rest106289_ + __tmp114776 + __tmp114775)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113994113995_)) - (let ((_e106295106347_ + (gx#stx-pair? ___stx113998113999_)) + (let ((_e106299106351_ (let () (declare (not safe)) (gx#stx-e - ___stx113994113995_)))) - (let ((_tl106293106352_ + ___stx113998113999_)))) + (let ((_tl106297106356_ (let () (declare (not safe)) - (##cdr _e106295106347_))) - (_hd106294106350_ + (##cdr _e106299106351_))) + (_hd106298106354_ (let () (declare (not safe)) - (##car _e106295106347_)))) + (##car _e106299106351_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106294106350_)) + _hd106298106354_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106294106350_)) + _hd106298106354_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106293106352_)) - (let ((_e106298106355_ + _tl106297106356_)) + (let ((_e106302106359_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl106293106352_)))) - (let ((_tl106296106360_ + (gx#stx-e _tl106297106356_)))) + (let ((_tl106300106364_ (let () (declare (not safe)) - (##cdr _e106298106355_))) - (_hd106297106358_ + (##cdr _e106302106359_))) + (_hd106301106362_ (let () (declare (not safe)) - (##car _e106298106355_)))) + (##car _e106302106359_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106296106360_)) - (___kont113996113997_) - (___kont114000114001_)))) - (___kont114000114001_)) + (gx#stx-null? _tl106300106364_)) + (___kont114000114001_) + (___kont114004114005_)))) + (___kont114004114005_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd106294106350_)) + _hd106298106354_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl106293106352_)) - (let ((_e106304106332_ + (gx#stx-pair? _tl106297106356_)) + (let ((_e106308106336_ (let () (declare (not safe)) - (gx#stx-e _tl106293106352_)))) - (let ((_tl106302106337_ + (gx#stx-e _tl106297106356_)))) + (let ((_tl106306106341_ (let () (declare (not safe)) - (##cdr _e106304106332_))) - (_hd106303106335_ + (##cdr _e106308106336_))) + (_hd106307106339_ (let () (declare (not safe)) - (##car _e106304106332_)))) + (##car _e106308106336_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106302106337_)) - (___kont113998113999_) - (___kont114000114001_)))) - (___kont114000114001_)) - (___kont114000114001_))) + (gx#stx-null? _tl106306106341_)) + (___kont114002114003_) + (___kont114004114005_)))) + (___kont114004114005_)) + (___kont114004114005_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114000114001_)))) - (___kont114000114001_))))))) + (___kont114004114005_)))) + (___kont114004114005_))))))) (if (let () (declare (not safe)) - (##pair? _rest106266106274_)) - (let ((_hd106271106371_ + (##pair? _rest106270106278_)) + (let ((_hd106275106375_ (let () (declare (not safe)) - (##car _rest106266106274_))) - (_tl106272106373_ + (##car _rest106270106278_))) + (_tl106276106377_ (let () (declare (not safe)) - (##cdr _rest106266106274_)))) - (let* ((_e106376_ _hd106271106371_) - (_rest106378_ _tl106272106373_)) + (##cdr _rest106270106278_)))) + (let* ((_e106380_ _hd106275106375_) + (_rest106382_ _tl106276106377_)) (declare (not safe)) - (_K106270106368_ _rest106378_ _e106376_))) + (_K106274106372_ _rest106382_ _e106380_))) (let () (declare (not safe)) - (_else106268106282_))))))) - _hd106196106234_ - _hd106193106226_ - _hd106190106218_) + (_else106272106286_))))))) + _hd106200106238_ + _hd106197106230_ + _hd106194106222_) (let () (declare (not safe)) - (_g106181106202_ _g106182106205_))))) + (_g106185106206_ _g106186106209_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106181106202_ - _g106182106205_))))) + (_g106185106206_ + _g106186106209_))))) (let () (declare (not safe)) - (_g106181106202_ _g106182106205_))))) + (_g106185106206_ _g106186106209_))))) (let () (declare (not safe)) - (_g106181106202_ _g106182106205_))))) + (_g106185106206_ _g106186106209_))))) (let () (declare (not safe)) - (_g106181106202_ _g106182106205_)))))) + (_g106185106206_ _g106186106209_)))))) (declare (not safe)) - (_g106180106380_ _stx106179_)))) + (_g106184106384_ _stx106183_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_self105957_ _stx105958_) - (let* ((_g105960105985_ - (lambda (_g105961105982_) + (lambda (_self105961_ _stx105962_) + (let* ((_g105964105989_ + (lambda (_g105965105986_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105961105982_)))) - (_g105959106175_ - (lambda (_g105961105988_) + _g105965105986_)))) + (_g105963106179_ + (lambda (_g105965105992_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105961105988_)) - (let ((_e105968105990_ + (gx#stx-pair? _g105965105992_)) + (let ((_e105972105994_ (let () (declare (not safe)) - (gx#stx-e _g105961105988_)))) - (let ((_hd105967105993_ + (gx#stx-e _g105965105992_)))) + (let ((_hd105971105997_ (let () (declare (not safe)) - (##car _e105968105990_))) - (_tl105966105995_ + (##car _e105972105994_))) + (_tl105970105999_ (let () (declare (not safe)) - (##cdr _e105968105990_)))) + (##cdr _e105972105994_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105966105995_)) - (let ((_e105971105998_ + (gx#stx-pair? _tl105970105999_)) + (let ((_e105975106002_ (let () (declare (not safe)) - (gx#stx-e _tl105966105995_)))) - (let ((_hd105970106001_ + (gx#stx-e _tl105970105999_)))) + (let ((_hd105974106005_ (let () (declare (not safe)) - (##car _e105971105998_))) - (_tl105969106003_ + (##car _e105975106002_))) + (_tl105973106007_ (let () (declare (not safe)) - (##cdr _e105971105998_)))) + (##cdr _e105975106002_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105969106003_)) - (let ((_e105974106006_ + (gx#stx-pair? _tl105973106007_)) + (let ((_e105978106010_ (let () (declare (not safe)) - (gx#stx-e _tl105969106003_)))) - (let ((_hd105973106009_ + (gx#stx-e _tl105973106007_)))) + (let ((_hd105977106013_ (let () (declare (not safe)) - (##car _e105974106006_))) - (_tl105972106011_ + (##car _e105978106010_))) + (_tl105976106015_ (let () (declare (not safe)) - (##cdr _e105974106006_)))) + (##cdr _e105978106010_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105972106011_)) - (let ((_e105977106014_ + _tl105976106015_)) + (let ((_e105981106018_ (let () (declare (not safe)) (gx#stx-e - _tl105972106011_)))) - (let ((_hd105976106017_ + _tl105976106015_)))) + (let ((_hd105980106021_ (let () (declare (not safe)) - (##car _e105977106014_))) - (_tl105975106019_ + (##car _e105981106018_))) + (_tl105979106023_ (let () (declare (not safe)) - (##cdr _e105977106014_)))) + (##cdr _e105981106018_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105975106019_)) - (let ((_e105980106022_ + _tl105979106023_)) + (let ((_e105984106026_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl105975106019_)))) - (let ((_hd105979106025_ - (let () (declare (not safe)) (##car _e105980106022_))) - (_tl105978106027_ - (let () (declare (not safe)) (##cdr _e105980106022_)))) + (gx#stx-e _tl105979106023_)))) + (let ((_hd105983106029_ + (let () (declare (not safe)) (##car _e105984106026_))) + (_tl105982106031_ + (let () (declare (not safe)) (##cdr _e105984106026_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105978106027_)) - ((lambda (_L106030_ _L106031_ _L106032_ _L106033_) + (gx#stx-null? _tl105982106031_)) + ((lambda (_L106034_ _L106035_ _L106036_ _L106037_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114804 - (let ((__tmp114812 + (let ((__tmp114808 + (let ((__tmp114816 (let () (declare (not safe)) (gxc#compile-e__1 - _self105957_ - _L106031_))) - (__tmp114805 - (let ((__tmp114811 + _self105961_ + _L106035_))) + (__tmp114809 + (let ((__tmp114815 (let () (declare (not safe)) (gxc#compile-e__1 - _self105957_ - _L106030_))) - (__tmp114806 - (let ((__tmp114810 + _self105961_ + _L106034_))) + (__tmp114810 + (let ((__tmp114814 (let () (declare (not safe)) (gxc#compile-e__1 - _self105957_ - _L106032_))) - (__tmp114807 - (let ((__tmp114809 + _self105961_ + _L106036_))) + (__tmp114811 + (let ((__tmp114813 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _self105957_ _L106033_))) - (__tmp114808 + (gxc#compile-e__1 _self105961_ _L106037_))) + (__tmp114812 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp114809 __tmp114808)))) + (cons __tmp114813 __tmp114812)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114810 - __tmp114807)))) + (cons __tmp114814 + __tmp114811)))) (declare (not safe)) - (cons __tmp114811 __tmp114806)))) + (cons __tmp114815 __tmp114810)))) (declare (not safe)) - (cons __tmp114812 __tmp114805)))) + (cons __tmp114816 __tmp114809)))) (declare (not safe)) - (cons '##unchecked-structure-set! __tmp114804)) - (let _lp106054_ ((_rest106057_ - (let ((__tmp114801 - (let ((__tmp114802 - (let ((__tmp114803 + (cons '##unchecked-structure-set! __tmp114808)) + (let _lp106058_ ((_rest106061_ + (let ((__tmp114805 + (let ((__tmp114806 + (let ((__tmp114807 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L106031_ '())))) + (cons _L106035_ '())))) (declare (not safe)) - (cons _L106030_ __tmp114803)))) + (cons _L106034_ __tmp114807)))) (declare (not safe)) - (cons _L106032_ __tmp114802)))) + (cons _L106036_ __tmp114806)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L106033_ __tmp114801))) - (_bind106059_ '()) - (_args106060_ '())) - (let* ((_rest106061106069_ _rest106057_) - (_else106063106077_ + (cons _L106037_ __tmp114805))) + (_bind106063_ '()) + (_args106064_ '())) + (let* ((_rest106065106073_ _rest106061_) + (_else106067106081_ (lambda () - (let ((__tmp114785 - (let ((__tmp114786 - (let ((__tmp114787 - (let ((__tmp114788 + (let ((__tmp114789 + (let ((__tmp114790 + (let ((__tmp114791 + (let ((__tmp114792 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114789 - (let ((__tmp114790 + (let ((__tmp114793 + (let ((__tmp114794 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp114790 _args106060_)))) + (foldr1 cons __tmp114794 _args106064_)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp114789)))) + __tmp114793)))) (declare (not safe)) - (cons __tmp114788 '())))) + (cons __tmp114792 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114787)))) + (cons '(declare (not safe)) __tmp114791)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind106059_ - __tmp114786)))) + (cons _bind106063_ + __tmp114790)))) (declare (not safe)) - (cons 'let __tmp114785)))) - (_K106065106163_ - (lambda (_rest106080_ _e106081_) - (let* ((___stx114040114041_ _e106081_) - (_g106086106104_ + (cons 'let __tmp114789)))) + (_K106069106167_ + (lambda (_rest106084_ _e106085_) + (let* ((___stx114044114045_ _e106085_) + (_g106090106108_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx114040114041_))))) - (let ((___kont114042114043_ + ___stx114044114045_))))) + (let ((___kont114046114047_ (lambda () - (let ((__tmp114791 - (let ((__tmp114792 + (let ((__tmp114795 + (let ((__tmp114796 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e106081_)))) + (gxc#compile-e__0 _e106085_)))) (declare (not safe)) - (cons __tmp114792 _args106060_)))) + (cons __tmp114796 _args106064_)))) (declare (not safe)) - (_lp106054_ _rest106080_ _bind106059_ __tmp114791)))) + (_lp106058_ _rest106084_ _bind106063_ __tmp114795)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114044114045_ + (___kont114048114049_ (lambda () - (let ((__tmp114793 - (let ((__tmp114794 + (let ((__tmp114797 + (let ((__tmp114798 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e106081_)))) + (gxc#compile-e__0 _e106085_)))) (declare (not safe)) - (cons __tmp114794 _args106060_)))) + (cons __tmp114798 _args106064_)))) (declare (not safe)) - (_lp106054_ _rest106080_ _bind106059_ __tmp114793)))) + (_lp106058_ _rest106084_ _bind106063_ __tmp114797)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114046114047_ + (___kont114050114051_ (lambda () - (let ((_tmp106111_ - (let ((__tmp114795 + (let ((_tmp106115_ + (let ((__tmp114799 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp114795)))) - (let ((__tmp114797 - (let ((__tmp114798 - (let ((__tmp114799 - (let ((__tmp114800 + (make-symbol__0 __tmp114799)))) + (let ((__tmp114801 + (let ((__tmp114802 + (let ((__tmp114803 + (let ((__tmp114804 (let () (declare (not safe)) - (gxc#compile-e__0 _e106081_)))) + (gxc#compile-e__0 _e106085_)))) (declare (not safe)) - (cons __tmp114800 '())))) + (cons __tmp114804 '())))) (declare (not safe)) - (cons _tmp106111_ __tmp114799)))) + (cons _tmp106115_ __tmp114803)))) (declare (not safe)) - (cons __tmp114798 _bind106059_))) - (__tmp114796 + (cons __tmp114802 _bind106063_))) + (__tmp114800 (let () (declare (not safe)) - (cons _tmp106111_ _args106060_)))) + (cons _tmp106115_ _args106064_)))) (declare (not safe)) - (_lp106054_ _rest106080_ __tmp114797 __tmp114796)))))) + (_lp106058_ _rest106084_ __tmp114801 __tmp114800)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx114040114041_)) - (let ((_e106090106142_ + ___stx114044114045_)) + (let ((_e106094106146_ (let () (declare (not safe)) (gx#stx-e - ___stx114040114041_)))) - (let ((_tl106088106147_ + ___stx114044114045_)))) + (let ((_tl106092106151_ (let () (declare (not safe)) - (##cdr _e106090106142_))) - (_hd106089106145_ + (##cdr _e106094106146_))) + (_hd106093106149_ (let () (declare (not safe)) - (##car _e106090106142_)))) + (##car _e106094106146_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106089106145_)) + _hd106093106149_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd106089106145_)) + (gx#stx-eq? '%#ref _hd106093106149_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106088106147_)) - (let ((_e106093106150_ + (gx#stx-pair? _tl106092106151_)) + (let ((_e106097106154_ (let () (declare (not safe)) - (gx#stx-e _tl106088106147_)))) - (let ((_tl106091106155_ + (gx#stx-e _tl106092106151_)))) + (let ((_tl106095106159_ (let () (declare (not safe)) - (##cdr _e106093106150_))) - (_hd106092106153_ + (##cdr _e106097106154_))) + (_hd106096106157_ (let () (declare (not safe)) - (##car _e106093106150_)))) + (##car _e106097106154_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106091106155_)) - (___kont114042114043_) - (___kont114046114047_)))) - (___kont114046114047_)) + (gx#stx-null? _tl106095106159_)) + (___kont114046114047_) + (___kont114050114051_)))) + (___kont114050114051_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd106089106145_)) + (gx#stx-eq? '%#quote _hd106093106149_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106088106147_)) - (let ((_e106099106127_ + (gx#stx-pair? _tl106092106151_)) + (let ((_e106103106131_ (let () (declare (not safe)) - (gx#stx-e _tl106088106147_)))) - (let ((_tl106097106132_ + (gx#stx-e _tl106092106151_)))) + (let ((_tl106101106136_ (let () (declare (not safe)) - (##cdr _e106099106127_))) - (_hd106098106130_ + (##cdr _e106103106131_))) + (_hd106102106134_ (let () (declare (not safe)) - (##car _e106099106127_)))) + (##car _e106103106131_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106097106132_)) - (___kont114044114045_) - (___kont114046114047_)))) - (___kont114046114047_)) - (___kont114046114047_))) - (___kont114046114047_)))) + (gx#stx-null? _tl106101106136_)) + (___kont114048114049_) + (___kont114050114051_)))) + (___kont114050114051_)) + (___kont114050114051_))) + (___kont114050114051_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114046114047_))))))) + (___kont114050114051_))))))) (if (let () (declare (not safe)) - (##pair? _rest106061106069_)) - (let ((_hd106066106166_ + (##pair? _rest106065106073_)) + (let ((_hd106070106170_ (let () (declare (not safe)) - (##car _rest106061106069_))) - (_tl106067106168_ + (##car _rest106065106073_))) + (_tl106071106172_ (let () (declare (not safe)) - (##cdr _rest106061106069_)))) - (let* ((_e106171_ _hd106066106166_) - (_rest106173_ _tl106067106168_)) + (##cdr _rest106065106073_)))) + (let* ((_e106175_ _hd106070106170_) + (_rest106177_ _tl106071106172_)) (declare (not safe)) - (_K106065106163_ - _rest106173_ - _e106171_))) + (_K106069106167_ + _rest106177_ + _e106175_))) (let () (declare (not safe)) - (_else106063106077_))))))) - _hd105979106025_ - _hd105976106017_ - _hd105973106009_ - _hd105970106001_) + (_else106067106081_))))))) + _hd105983106029_ + _hd105980106021_ + _hd105977106013_ + _hd105974106005_) (let () (declare (not safe)) - (_g105960105985_ _g105961105988_))))) + (_g105964105989_ _g105965105992_))))) (let () (declare (not safe)) - (_g105960105985_ _g105961105988_))))) + (_g105964105989_ _g105965105992_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105960105985_ - _g105961105988_))))) + (_g105964105989_ + _g105965105992_))))) (let () (declare (not safe)) - (_g105960105985_ _g105961105988_))))) + (_g105964105989_ _g105965105992_))))) (let () (declare (not safe)) - (_g105960105985_ _g105961105988_))))) + (_g105964105989_ _g105965105992_))))) (let () (declare (not safe)) - (_g105960105985_ _g105961105988_)))))) + (_g105964105989_ _g105965105992_)))))) (declare (not safe)) - (_g105959106175_ _stx105958_)))) + (_g105963106179_ _stx105962_)))) (define gxc#generate-runtime-loader-import% - (lambda (_self105810_ _stx105811_) - (letrec ((_import-set-template105813_ - (lambda (_in105909_ _phi105910_) - (let ((_iphi105912_ - (fx+ _phi105910_ + (lambda (_self105814_ _stx105815_) + (letrec ((_import-set-template105817_ + (lambda (_in105913_ _phi105914_) + (let ((_iphi105916_ + (fx+ _phi105914_ (##direct-structure-ref - _in105909_ + _in105913_ '2 gx#import-set::t '#f))) - (_imports105913_ + (_imports105917_ (##structure-ref (##direct-structure-ref - _in105909_ + _in105913_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp105915_ ((_rest105917_ _imports105913_) - (_r105918_ '())) - (let* ((_rest105919105927_ _rest105917_) - (_else105921105935_ (lambda () _r105918_)) - (_K105923105945_ - (lambda (_rest105938_ _in105939_) + (let _lp105919_ ((_rest105921_ _imports105917_) + (_r105922_ '())) + (let* ((_rest105923105931_ _rest105921_) + (_else105925105939_ (lambda () _r105922_)) + (_K105927105949_ + (lambda (_rest105942_ _in105943_) (if (let () (declare (not safe)) (##structure-instance-of? - _in105939_ + _in105943_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi105912_)) - (let ((__tmp114819 + (fxzero? _iphi105916_)) + (let ((__tmp114823 (let () (declare (not safe)) - (cons _in105939_ - _r105918_)))) + (cons _in105943_ + _r105922_)))) (declare (not safe)) - (_lp105915_ - _rest105938_ - __tmp114819)) + (_lp105919_ + _rest105942_ + __tmp114823)) (let () (declare (not safe)) - (_lp105915_ - _rest105938_ - _r105918_))) + (_lp105919_ + _rest105942_ + _r105922_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105939_ + _in105943_ 'gx#module-import::t)) - (let ((_iphi105941_ - (fx+ _phi105910_ + (let ((_iphi105945_ + (fx+ _phi105914_ (##direct-structure-ref - _in105939_ + _in105943_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi105941_)) - (let ((__tmp114817 - (let ((__tmp114818 + (fxzero? _iphi105945_)) + (let ((__tmp114821 + (let ((__tmp114822 (##direct-structure-ref (##direct-structure-ref - _in105939_ + _in105943_ '1 gx#module-import::t '#f) @@ -13881,199 +13881,199 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp114818 - _r105918_)))) + (cons __tmp114822 + _r105922_)))) (declare (not safe)) - (_lp105915_ - _rest105938_ - __tmp114817)) + (_lp105919_ + _rest105942_ + __tmp114821)) (let () (declare (not safe)) - (_lp105915_ - _rest105938_ - _r105918_)))) + (_lp105919_ + _rest105942_ + _r105922_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105939_ + _in105943_ 'gx#import-set::t)) - (let ((_xphi105943_ - (fx+ _iphi105912_ + (let ((_xphi105947_ + (fx+ _iphi105916_ (##direct-structure-ref - _in105939_ + _in105943_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi105943_)) - (let ((__tmp114815 - (let ((__tmp114816 + (fxzero? _xphi105947_)) + (let ((__tmp114819 + (let ((__tmp114820 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in105939_ + _in105943_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp114816 _r105918_)))) + (cons __tmp114820 _r105922_)))) (declare (not safe)) - (_lp105915_ _rest105938_ __tmp114815)) + (_lp105919_ _rest105942_ __tmp114819)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi105943_) - (let ((__tmp114813 - (let ((__tmp114814 + _xphi105947_) + (let ((__tmp114817 + (let ((__tmp114818 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template105813_ - _in105939_ - _iphi105912_)))) + (_import-set-template105817_ + _in105943_ + _iphi105916_)))) (declare (not safe)) - (foldl1 cons _r105918_ __tmp114814)))) + (foldl1 cons _r105922_ __tmp114818)))) (declare (not safe)) - (_lp105915_ _rest105938_ __tmp114813)) + (_lp105919_ _rest105942_ __tmp114817)) (let () (declare (not safe)) - (_lp105915_ _rest105938_ _r105918_))))) + (_lp105919_ _rest105942_ _r105922_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp105915_ - _rest105938_ - _r105918_)))))))) + (_lp105919_ + _rest105942_ + _r105922_)))))))) (if (let () (declare (not safe)) - (##pair? _rest105919105927_)) - (let ((_hd105924105948_ + (##pair? _rest105923105931_)) + (let ((_hd105928105952_ (let () (declare (not safe)) - (##car _rest105919105927_))) - (_tl105925105950_ + (##car _rest105923105931_))) + (_tl105929105954_ (let () (declare (not safe)) - (##cdr _rest105919105927_)))) - (let* ((_in105953_ _hd105924105948_) - (_rest105955_ _tl105925105950_)) + (##cdr _rest105923105931_)))) + (let* ((_in105957_ _hd105928105952_) + (_rest105959_ _tl105929105954_)) (declare (not safe)) - (_K105923105945_ _rest105955_ _in105953_))) + (_K105927105949_ _rest105959_ _in105957_))) (let () (declare (not safe)) - (_else105921105935_))))))))) - (let* ((_g105815105825_ - (lambda (_g105816105822_) + (_else105925105939_))))))))) + (let* ((_g105819105829_ + (lambda (_g105820105826_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105816105822_)))) - (_g105814105906_ - (lambda (_g105816105828_) + _g105820105826_)))) + (_g105818105910_ + (lambda (_g105820105832_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105816105828_)) - (let ((_e105820105830_ + (gx#stx-pair? _g105820105832_)) + (let ((_e105824105834_ (let () (declare (not safe)) - (gx#stx-e _g105816105828_)))) - (let ((_hd105819105833_ + (gx#stx-e _g105820105832_)))) + (let ((_hd105823105837_ (let () (declare (not safe)) - (##car _e105820105830_))) - (_tl105818105835_ + (##car _e105824105834_))) + (_tl105822105839_ (let () (declare (not safe)) - (##cdr _e105820105830_)))) - ((lambda (_L105838_) - (let ((_ht105849_ + (##cdr _e105824105834_)))) + ((lambda (_L105842_) + (let ((_ht105853_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _lp105851_ ((_rest105853_ _L105838_) - (_loads105854_ '())) - (letrec ((_K105856_ - (lambda (_ctx105899_ _rest105900_) - (let ((_id105902_ + (let _lp105855_ ((_rest105857_ _L105842_) + (_loads105858_ '())) + (letrec ((_K105860_ + (lambda (_ctx105903_ _rest105904_) + (let ((_id105906_ (##structure-ref - _ctx105899_ + _ctx105903_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht105849_ - _id105902_)) + _ht105853_ + _id105906_)) (let () (declare (not safe)) - (_lp105851_ - _rest105900_ - _loads105854_)) - (let ((_rt105904_ + (_lp105855_ + _rest105904_ + _loads105858_)) + (let ((_rt105908_ (let () (declare (not safe)) (gxc#module-id->path-string - _id105902_)))) + _id105906_)))) (let () (declare (not safe)) (hash-put! - _ht105849_ - _id105902_ - _rt105904_)) - (let ((__tmp114820 + _ht105853_ + _id105906_ + _rt105908_)) + (let ((__tmp114824 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _rt105904_ _loads105854_)))) + (cons _rt105908_ _loads105858_)))) (declare (not safe)) - (_lp105851_ _rest105900_ __tmp114820)))))))) + (_lp105855_ _rest105904_ __tmp114824)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest105857105865_ _rest105853_) - (_else105859105877_ + (let* ((_rest105861105869_ _rest105857_) + (_else105863105881_ (lambda () - (let ((__tmp114821 - (map (lambda (_g105872105874_) + (let ((__tmp114825 + (map (lambda (_g105876105878_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g105872105874_)) - (reverse _loads105854_)))) + _g105876105878_)) + (reverse _loads105858_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'begin __tmp114821)))) - (_K105861105887_ - (lambda (_rest105880_ _in105881_) + (cons 'begin __tmp114825)))) + (_K105865105891_ + (lambda (_rest105884_ _in105885_) (if (let () (declare (not safe)) (##structure-instance-of? - _in105881_ + _in105885_ 'gx#module-context::t)) (let () (declare (not safe)) - (_K105856_ - _in105881_ - _rest105880_)) + (_K105860_ + _in105885_ + _rest105884_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105881_ + _in105885_ 'gx#module-import::t)) - (if (let ((__tmp114825 + (if (let ((__tmp114829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in105881_ + _in105885_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp114825)) - (let ((__tmp114824 + (fxzero? __tmp114829)) + (let ((__tmp114828 (##direct-structure-ref (##direct-structure-ref - _in105881_ + _in105885_ '1 gx#module-import::t '#f) @@ -14081,785 +14081,785 @@ gx#module-export::t '#f))) (declare (not safe)) - (_K105856_ __tmp114824 _rest105880_)) + (_K105860_ __tmp114828 _rest105884_)) (let () (declare (not safe)) - (_lp105851_ _rest105880_ _loads105854_))) + (_lp105855_ _rest105884_ _loads105858_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105881_ + _in105885_ 'gx#import-set::t)) - (let ((_phi105883_ + (let ((_phi105887_ (##direct-structure-ref - _in105881_ + _in105885_ '2 gx#import-set::t '#f))) - (if (let () (declare (not safe)) (fxzero? _phi105883_)) - (let ((__tmp114823 + (if (let () (declare (not safe)) (fxzero? _phi105887_)) + (let ((__tmp114827 (##direct-structure-ref - _in105881_ + _in105885_ '1 gx#import-set::t '#f))) (declare (not safe)) - (_K105856_ __tmp114823 _rest105880_)) - (if (fxpositive? _phi105883_) - (let* ((_deps105885_ + (_K105860_ __tmp114827 _rest105884_)) + (if (fxpositive? _phi105887_) + (let* ((_deps105889_ (let () (declare (not safe)) - (_import-set-template105813_ - _in105881_ + (_import-set-template105817_ + _in105885_ '0))) - (__tmp114822 + (__tmp114826 (let () (declare (not safe)) (foldl1 cons - _rest105880_ - _deps105885_)))) + _rest105884_ + _deps105889_)))) (declare (not safe)) - (_lp105851_ __tmp114822 _loads105854_)) + (_lp105855_ __tmp114826 _loads105858_)) (let () (declare (not safe)) - (_lp105851_ _rest105880_ _loads105854_))))) + (_lp105855_ _rest105884_ _loads105858_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _stx105811_ - _in105881_)))))))) + _stx105815_ + _in105885_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest105857105865_)) - (let ((_hd105862105890_ + (##pair? _rest105861105869_)) + (let ((_hd105866105894_ (let () (declare (not safe)) - (##car _rest105857105865_))) - (_tl105863105892_ + (##car _rest105861105869_))) + (_tl105867105896_ (let () (declare (not safe)) - (##cdr _rest105857105865_)))) - (let* ((_in105895_ - _hd105862105890_) - (_rest105897_ - _tl105863105892_)) + (##cdr _rest105861105869_)))) + (let* ((_in105899_ + _hd105866105894_) + (_rest105901_ + _tl105867105896_)) (declare (not safe)) - (_K105861105887_ - _rest105897_ - _in105895_))) + (_K105865105891_ + _rest105901_ + _in105899_))) (let () (declare (not safe)) - (_else105859105877_)))))))) - _tl105818105835_))) + (_else105863105881_)))))))) + _tl105822105839_))) (let () (declare (not safe)) - (_g105815105825_ _g105816105828_)))))) + (_g105819105829_ _g105820105832_)))))) (declare (not safe)) - (_g105814105906_ _stx105811_))))) + (_g105818105910_ _stx105815_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_self105625_ _stx105626_) - (letrec ((_add-lift!105628_ - (lambda (_expr105808_) + (lambda (_self105629_ _stx105630_) + (letrec ((_add-lift!105632_ + (lambda (_expr105812_) (set-box! (gxc#current-compile-lift) - (let ((__tmp114826 (unbox (gxc#current-compile-lift)))) + (let ((__tmp114830 (unbox (gxc#current-compile-lift)))) (declare (not safe)) - (cons _expr105808_ __tmp114826))))) - (_generate-syntax-quote105629_ - (lambda (_id105805_ _marks105806_) - (let ((__tmp114827 - (let ((__tmp114828 - (let ((__tmp114832 - (let ((__tmp114833 + (cons _expr105812_ __tmp114830))))) + (_generate-syntax-quote105633_ + (lambda (_id105809_ _marks105810_) + (let ((__tmp114831 + (let ((__tmp114832 + (let ((__tmp114836 + (let ((__tmp114837 (let () (declare (not safe)) - (cons _id105805_ '())))) + (cons _id105809_ '())))) (declare (not safe)) - (cons 'quote __tmp114833))) - (__tmp114829 - (let ((__tmp114830 - (let ((__tmp114831 + (cons 'quote __tmp114837))) + (__tmp114833 + (let ((__tmp114834 + (let ((__tmp114835 (let () (declare (not safe)) - (cons _marks105806_ + (cons _marks105810_ '())))) (declare (not safe)) (cons '(gx#current-expander-context) - __tmp114831)))) + __tmp114835)))) (declare (not safe)) - (cons '#f __tmp114830)))) + (cons '#f __tmp114834)))) (declare (not safe)) - (cons __tmp114832 __tmp114829)))) + (cons __tmp114836 __tmp114833)))) (declare (not safe)) - (cons 'gx#syntax-quote::t __tmp114828)))) + (cons 'gx#syntax-quote::t __tmp114832)))) (declare (not safe)) - (cons '##structure __tmp114827)))) - (_generate-simple105630_ - (lambda (_stxq105800_) - (let ((_gid105802_ + (cons '##structure __tmp114831)))) + (_generate-simple105634_ + (lambda (_stxq105804_) + (let ((_gid105806_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid105803_ + (_qid105807_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _stxq105800_)))) - (let ((__tmp114834 - (let ((__tmp114835 - (let ((__tmp114836 - (let ((__tmp114837 + (gxc#generate-runtime-identifier _stxq105804_)))) + (let ((__tmp114838 + (let ((__tmp114839 + (let ((__tmp114840 + (let ((__tmp114841 (let () (declare (not safe)) - (_generate-syntax-quote105629_ - _qid105803_ + (_generate-syntax-quote105633_ + _qid105807_ ''())))) (declare (not safe)) - (cons __tmp114837 '())))) + (cons __tmp114841 '())))) (declare (not safe)) - (cons _gid105802_ __tmp114836)))) + (cons _gid105806_ __tmp114840)))) (declare (not safe)) - (cons 'define __tmp114835)))) + (cons 'define __tmp114839)))) (declare (not safe)) - (_add-lift!105628_ __tmp114834)) - (let ((__tmp114838 (gxc#current-compile-identifiers))) + (_add-lift!105632_ __tmp114838)) + (let ((__tmp114842 (gxc#current-compile-identifiers))) (declare (not safe)) - (hash-put! __tmp114838 _stxq105800_ _gid105802_)) - _gid105802_))) - (_generate-serialized105631_ - (lambda (_stxq105790_ _marks105791_) - (let* ((_mark-refs105793_ - (map _generate-mark105632_ _marks105791_)) - (_gid105795_ + (hash-put! __tmp114842 _stxq105804_ _gid105806_)) + _gid105806_))) + (_generate-serialized105635_ + (lambda (_stxq105794_ _marks105795_) + (let* ((_mark-refs105797_ + (map _generate-mark105636_ _marks105795_)) + (_gid105799_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid105797_ + (_qid105801_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _stxq105790_)))) - (let ((__tmp114839 - (let ((__tmp114840 - (let ((__tmp114841 - (let ((__tmp114842 - (let ((__tmp114843 + (gxc#generate-runtime-identifier _stxq105794_)))) + (let ((__tmp114843 + (let ((__tmp114844 + (let ((__tmp114845 + (let ((__tmp114846 + (let ((__tmp114847 (let () (declare (not safe)) (cons 'list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mark-refs105793_)))) + _mark-refs105797_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-syntax-quote105629_ - _qid105797_ - __tmp114843)))) + (_generate-syntax-quote105633_ + _qid105801_ + __tmp114847)))) (declare (not safe)) - (cons __tmp114842 '())))) + (cons __tmp114846 '())))) (declare (not safe)) - (cons _gid105795_ __tmp114841)))) + (cons _gid105799_ __tmp114845)))) (declare (not safe)) - (cons 'define __tmp114840)))) + (cons 'define __tmp114844)))) (declare (not safe)) - (_add-lift!105628_ __tmp114839)) - (let ((__tmp114844 (gxc#current-compile-identifiers))) + (_add-lift!105632_ __tmp114843)) + (let ((__tmp114848 (gxc#current-compile-identifiers))) (declare (not safe)) - (hash-put! __tmp114844 _stxq105790_ _gid105795_)) - _gid105795_))) - (_generate-mark105632_ - (lambda (_mark105776_) - (let ((_$e105778_ - (let ((__tmp114845 (gxc#current-compile-marks))) + (hash-put! __tmp114848 _stxq105794_ _gid105799_)) + _gid105799_))) + (_generate-mark105636_ + (lambda (_mark105780_) + (let ((_$e105782_ + (let ((__tmp114849 (gxc#current-compile-marks))) (declare (not safe)) - (hash-get __tmp114845 _mark105776_)))) - (if _$e105778_ - (values _$e105778_) - (let* ((_gid105781_ + (hash-get __tmp114849 _mark105780_)))) + (if _$e105782_ + (values _$e105782_) + (let* ((_gid105785_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_repr105783_ + (_repr105787_ (let () (declare (not safe)) - (_serialize-mark105633_ _mark105776_))) - (_ctx105785_ - (let ((__tmp114846 + (_serialize-mark105637_ _mark105780_))) + (_ctx105789_ + (let ((__tmp114850 (##structure-ref - _mark105776_ + _mark105780_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp114846))) - (_ctx-ref105787_ - (if (let ((__tmp114851 + (gx#core-context-top__1 __tmp114850))) + (_ctx-ref105791_ + (if (let ((__tmp114855 (gx#current-expander-context))) (declare (not safe)) - (eq? _ctx105785_ __tmp114851)) + (eq? _ctx105789_ __tmp114855)) '(gx#current-expander-context) - (let ((__tmp114847 - (let ((__tmp114848 - (let ((__tmp114849 - (let ((__tmp114850 + (let ((__tmp114851 + (let ((__tmp114852 + (let ((__tmp114853 + (let ((__tmp114854 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_context-ref105634_ _ctx105785_)))) + (_context-ref105638_ _ctx105789_)))) (declare (not safe)) - (cons __tmp114850 '())))) + (cons __tmp114854 '())))) (declare (not safe)) - (cons 'quote __tmp114849)))) + (cons 'quote __tmp114853)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114848 '())))) + (cons __tmp114852 '())))) (declare (not safe)) (cons 'gx#import-module - __tmp114847))))) - (let ((__tmp114852 (gxc#current-compile-marks))) + __tmp114851))))) + (let ((__tmp114856 (gxc#current-compile-marks))) (declare (not safe)) - (hash-put! __tmp114852 _mark105776_ _gid105781_)) - (let ((__tmp114853 - (let ((__tmp114854 - (let ((__tmp114855 - (let ((__tmp114856 - (let ((__tmp114857 - (let ((__tmp114859 + (hash-put! __tmp114856 _mark105780_ _gid105785_)) + (let ((__tmp114857 + (let ((__tmp114858 + (let ((__tmp114859 + (let ((__tmp114860 + (let ((__tmp114861 + (let ((__tmp114863 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114860 + (let ((__tmp114864 (let () (declare (not safe)) - (cons _repr105783_ '())))) + (cons _repr105787_ '())))) (declare (not safe)) - (cons 'quote __tmp114860))) - (__tmp114858 + (cons 'quote __tmp114864))) + (__tmp114862 (let () (declare (not safe)) - (cons _ctx-ref105787_ '())))) + (cons _ctx-ref105791_ '())))) (declare (not safe)) - (cons __tmp114859 __tmp114858)))) + (cons __tmp114863 __tmp114862)))) (declare (not safe)) - (cons 'gx#core-deserialize-mark __tmp114857)))) + (cons 'gx#core-deserialize-mark __tmp114861)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114856 '())))) + (cons __tmp114860 '())))) (declare (not safe)) - (cons _gid105781_ __tmp114855)))) + (cons _gid105785_ __tmp114859)))) (declare (not safe)) - (cons 'define __tmp114854)))) + (cons 'define __tmp114858)))) (declare (not safe)) - (_add-lift!105628_ __tmp114853)) - _gid105781_))))) - (_serialize-mark105633_ - (lambda (_mark105723_) - (letrec ((_quote-e105725_ - (lambda (_sym105774_) - (if (interned-symbol? _sym105774_) - _sym105774_ + (_add-lift!105632_ __tmp114857)) + _gid105785_))))) + (_serialize-mark105637_ + (lambda (_mark105727_) + (letrec ((_quote-e105729_ + (lambda (_sym105778_) + (if (interned-symbol? _sym105778_) + _sym105778_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym105774_)))))) - (let* ((_mark105726105735_ _mark105723_) - (_E105728105739_ + _sym105778_)))))) + (let* ((_mark105730105739_ _mark105727_) + (_E105732105743_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _mark105726105735_)))) - (_K105729105751_ - (lambda (_trace105742_ - _phi105743_ - _ctx105744_ - _subst105745_) - (let* ((_subs105747_ - (if _subst105745_ + _mark105730105739_)))) + (_K105733105755_ + (lambda (_trace105746_ + _phi105747_ + _ctx105748_ + _subst105749_) + (let* ((_subs105751_ + (if _subst105749_ (let () (declare (not safe)) - (hash->list _subst105745_)) + (hash->list _subst105749_)) '())) - (__tmp114861 - (map (lambda (_pair105749_) - (let ((__tmp114864 - (let ((__tmp114865 - (car _pair105749_))) + (__tmp114865 + (map (lambda (_pair105753_) + (let ((__tmp114868 + (let ((__tmp114869 + (car _pair105753_))) (declare (not safe)) - (_quote-e105725_ - __tmp114865))) - (__tmp114862 - (let ((__tmp114863 - (cdr _pair105749_))) + (_quote-e105729_ + __tmp114869))) + (__tmp114866 + (let ((__tmp114867 + (cdr _pair105753_))) (declare (not safe)) - (_quote-e105725_ - __tmp114863)))) + (_quote-e105729_ + __tmp114867)))) (declare (not safe)) - (cons __tmp114864 - __tmp114862))) - _subs105747_))) + (cons __tmp114868 + __tmp114866))) + _subs105751_))) (declare (not safe)) - (cons _phi105743_ __tmp114861))))) + (cons _phi105747_ __tmp114865))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark105726105735_ + _mark105730105739_ 'gx#expander-mark::t)) - (let* ((_e105730105754_ + (let* ((_e105734105758_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark105726105735_ + _mark105730105739_ '1 gx#expander-mark::t '#f))) - (_subst105757_ _e105730105754_) - (_e105731105759_ + (_subst105761_ _e105734105758_) + (_e105735105763_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark105726105735_ + _mark105730105739_ '2 gx#expander-mark::t '#f))) - (_ctx105762_ _e105731105759_) - (_e105732105764_ + (_ctx105766_ _e105735105763_) + (_e105736105768_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark105726105735_ + _mark105730105739_ '3 gx#expander-mark::t '#f))) - (_phi105767_ _e105732105764_) - (_e105733105769_ + (_phi105771_ _e105736105768_) + (_e105737105773_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark105726105735_ + _mark105730105739_ '4 gx#expander-mark::t '#f))) - (_trace105772_ _e105733105769_)) + (_trace105776_ _e105737105773_)) (declare (not safe)) - (_K105729105751_ - _trace105772_ - _phi105767_ - _ctx105762_ - _subst105757_)) + (_K105733105755_ + _trace105776_ + _phi105771_ + _ctx105766_ + _subst105761_)) (let () (declare (not safe)) - (_E105728105739_))))))) - (_context-ref105634_ - (lambda (_ctx105710_) - (if (let ((__tmp114873 + (_E105732105743_))))))) + (_context-ref105638_ + (lambda (_ctx105714_) + (if (let ((__tmp114877 (##structure-ref - _ctx105710_ + _ctx105714_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp114873 + __tmp114877 'gx#module-context::t)) - (let ((_ctx-ref105712_ + (let ((_ctx-ref105716_ (let () (declare (not safe)) - (_context-ref-nested105636_ _ctx105710_))) - (_ctx-origin105713_ + (_context-ref-nested105640_ _ctx105714_))) + (_ctx-origin105717_ (let () (declare (not safe)) - (_context-ref-origin105635_ _ctx105710_))) - (_origin105714_ - (let ((__tmp114867 + (_context-ref-origin105639_ _ctx105714_))) + (_origin105718_ + (let ((__tmp114871 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-origin105635_ __tmp114867)))) + (_context-ref-origin105639_ __tmp114871)))) (if (let () (declare (not safe)) - (eq? _origin105714_ _ctx-origin105713_)) - (let ((_ref105716_ - (let ((__tmp114868 + (eq? _origin105718_ _ctx-origin105717_)) + (let ((_ref105720_ + (let ((__tmp114872 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-nested105636_ - __tmp114868)))) - (let _lp105718_ ((_ref105720_ - (cdr _ref105716_)) - (_ctx-ref105721_ - (cdr _ctx-ref105712_))) + (_context-ref-nested105640_ + __tmp114872)))) + (let _lp105722_ ((_ref105724_ + (cdr _ref105720_)) + (_ctx-ref105725_ + (cdr _ctx-ref105716_))) (if (and (let () (declare (not safe)) - (pair? _ref105720_)) - (let ((__tmp114872 - (car _ref105720_)) - (__tmp114871 - (car _ctx-ref105721_))) + (pair? _ref105724_)) + (let ((__tmp114876 + (car _ref105724_)) + (__tmp114875 + (car _ctx-ref105725_))) (declare (not safe)) - (eq? __tmp114872 __tmp114871))) - (let ((__tmp114870 (cdr _ref105720_)) - (__tmp114869 - (cdr _ctx-ref105721_))) + (eq? __tmp114876 __tmp114875))) + (let ((__tmp114874 (cdr _ref105724_)) + (__tmp114873 + (cdr _ctx-ref105725_))) (declare (not safe)) - (_lp105718_ __tmp114870 __tmp114869)) + (_lp105722_ __tmp114874 __tmp114873)) (let () (declare (not safe)) - (cons '#f _ctx-ref105721_))))) - _ctx-ref105712_)) - (let ((__tmp114866 + (cons '#f _ctx-ref105725_))))) + _ctx-ref105716_)) + (let ((__tmp114870 (##structure-ref - _ctx105710_ + _ctx105714_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp114866))))) - (_context-ref-origin105635_ - (lambda (_ctx105702_) - (let _lp105704_ ((_ctx105706_ _ctx105702_)) - (let ((_super105708_ + (make-symbol__1 '":" __tmp114870))))) + (_context-ref-origin105639_ + (lambda (_ctx105706_) + (let _lp105708_ ((_ctx105710_ _ctx105706_)) + (let ((_super105712_ (##structure-ref - _ctx105706_ + _ctx105710_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super105708_ + _super105712_ 'gx#module-context::t)) (let () (declare (not safe)) - (_lp105704_ _super105708_)) - _ctx105706_))))) - (_context-ref-nested105636_ - (lambda (_ctx105693_) - (let _lp105695_ ((_ctx105697_ _ctx105693_) (_r105698_ '())) - (let ((_super105700_ + (_lp105708_ _super105712_)) + _ctx105710_))))) + (_context-ref-nested105640_ + (lambda (_ctx105697_) + (let _lp105699_ ((_ctx105701_ _ctx105697_) (_r105702_ '())) + (let ((_super105704_ (##structure-ref - _ctx105697_ + _ctx105701_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super105700_ + _super105704_ 'gx#module-context::t)) - (let ((__tmp114876 - (let ((__tmp114877 + (let ((__tmp114880 + (let ((__tmp114881 (car (##structure-ref - _ctx105697_ + _ctx105701_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp114877 _r105698_)))) + (cons __tmp114881 _r105702_)))) (declare (not safe)) - (_lp105695_ _super105700_ __tmp114876)) - (let ((__tmp114874 - (let ((__tmp114875 + (_lp105699_ _super105704_ __tmp114880)) + (let ((__tmp114878 + (let ((__tmp114879 (##structure-ref - _ctx105697_ + _ctx105701_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp114875)))) + (make-symbol__1 '":" __tmp114879)))) (declare (not safe)) - (cons __tmp114874 _r105698_)))))))) - (let* ((_g105638105651_ - (lambda (_g105639105648_) + (cons __tmp114878 _r105702_)))))))) + (let* ((_g105642105655_ + (lambda (_g105643105652_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105639105648_)))) - (_g105637105690_ - (lambda (_g105639105654_) + _g105643105652_)))) + (_g105641105694_ + (lambda (_g105643105658_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105639105654_)) - (let ((_e105643105656_ + (gx#stx-pair? _g105643105658_)) + (let ((_e105647105660_ (let () (declare (not safe)) - (gx#stx-e _g105639105654_)))) - (let ((_hd105642105659_ + (gx#stx-e _g105643105658_)))) + (let ((_hd105646105663_ (let () (declare (not safe)) - (##car _e105643105656_))) - (_tl105641105661_ + (##car _e105647105660_))) + (_tl105645105665_ (let () (declare (not safe)) - (##cdr _e105643105656_)))) + (##cdr _e105647105660_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105641105661_)) - (let ((_e105646105664_ + (gx#stx-pair? _tl105645105665_)) + (let ((_e105650105668_ (let () (declare (not safe)) - (gx#stx-e _tl105641105661_)))) - (let ((_hd105645105667_ + (gx#stx-e _tl105645105665_)))) + (let ((_hd105649105671_ (let () (declare (not safe)) - (##car _e105646105664_))) - (_tl105644105669_ + (##car _e105650105668_))) + (_tl105648105673_ (let () (declare (not safe)) - (##cdr _e105646105664_)))) + (##cdr _e105650105668_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105644105669_)) - ((lambda (_L105672_) + (gx#stx-null? _tl105648105673_)) + ((lambda (_L105676_) (if (let () (declare (not safe)) - (gx#identifier? _L105672_)) - (let ((_$e105685_ - (let ((__tmp114878 + (gx#identifier? _L105676_)) + (let ((_$e105689_ + (let ((__tmp114882 (gxc#current-compile-identifiers))) (declare (not safe)) (hash-get - __tmp114878 - _L105672_)))) - (if _$e105685_ - (values _$e105685_) - (let ((_marks105688_ + __tmp114882 + _L105676_)))) + (if _$e105689_ + (values _$e105689_) + (let ((_marks105692_ (##direct-structure-ref - _L105672_ + _L105676_ '4 gx#syntax-quote::t '#f))) (if (let () (declare (not safe)) - (null? _marks105688_)) + (null? _marks105692_)) (let () (declare (not safe)) - (_generate-simple105630_ - _L105672_)) + (_generate-simple105634_ + _L105676_)) (let () (declare (not safe)) - (_generate-serialized105631_ - _L105672_ - _marks105688_)))))) + (_generate-serialized105635_ + _L105676_ + _marks105692_)))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _L105672_)))) - _hd105645105667_) + _L105676_)))) + _hd105649105671_) (let () (declare (not safe)) - (_g105638105651_ _g105639105654_))))) + (_g105642105655_ _g105643105658_))))) (let () (declare (not safe)) - (_g105638105651_ _g105639105654_))))) + (_g105642105655_ _g105643105658_))))) (let () (declare (not safe)) - (_g105638105651_ _g105639105654_)))))) + (_g105642105655_ _g105643105658_)))))) (declare (not safe)) - (_g105637105690_ _stx105626_))))) + (_g105641105694_ _stx105630_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_self105557_ _stx105558_) - (let* ((_g105560105577_ - (lambda (_g105561105574_) + (lambda (_self105561_ _stx105562_) + (let* ((_g105564105581_ + (lambda (_g105565105578_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105561105574_)))) - (_g105559105622_ - (lambda (_g105561105580_) + _g105565105578_)))) + (_g105563105626_ + (lambda (_g105565105584_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105561105580_)) - (let ((_e105566105582_ + (gx#stx-pair? _g105565105584_)) + (let ((_e105570105586_ (let () (declare (not safe)) - (gx#stx-e _g105561105580_)))) - (let ((_hd105565105585_ + (gx#stx-e _g105565105584_)))) + (let ((_hd105569105589_ (let () (declare (not safe)) - (##car _e105566105582_))) - (_tl105564105587_ + (##car _e105570105586_))) + (_tl105568105591_ (let () (declare (not safe)) - (##cdr _e105566105582_)))) + (##cdr _e105570105586_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105564105587_)) - (let ((_e105569105590_ + (gx#stx-pair? _tl105568105591_)) + (let ((_e105573105594_ (let () (declare (not safe)) - (gx#stx-e _tl105564105587_)))) - (let ((_hd105568105593_ + (gx#stx-e _tl105568105591_)))) + (let ((_hd105572105597_ (let () (declare (not safe)) - (##car _e105569105590_))) - (_tl105567105595_ + (##car _e105573105594_))) + (_tl105571105599_ (let () (declare (not safe)) - (##cdr _e105569105590_)))) + (##cdr _e105573105594_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105567105595_)) - (let ((_e105572105598_ + (gx#stx-pair? _tl105571105599_)) + (let ((_e105576105602_ (let () (declare (not safe)) - (gx#stx-e _tl105567105595_)))) - (let ((_hd105571105601_ + (gx#stx-e _tl105571105599_)))) + (let ((_hd105575105605_ (let () (declare (not safe)) - (##car _e105572105598_))) - (_tl105570105603_ + (##car _e105576105602_))) + (_tl105574105607_ (let () (declare (not safe)) - (##cdr _e105572105598_)))) + (##cdr _e105576105602_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105570105603_)) - ((lambda (_L105606_ _L105607_) - (let ((__tmp114879 - (let ((__tmp114882 + _tl105574105607_)) + ((lambda (_L105610_ _L105611_) + (let ((__tmp114883 + (let ((__tmp114886 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L105607_))) - (__tmp114880 - (let ((__tmp114881 + (gx#stx-e _L105611_))) + (__tmp114884 + (let ((__tmp114885 (let () (declare (not safe)) - (gxc#compile-e__1 _self105557_ _L105606_)))) + (gxc#compile-e__1 _self105561_ _L105610_)))) (declare (not safe)) - (cons __tmp114881 '())))) + (cons __tmp114885 '())))) (declare (not safe)) - (cons __tmp114882 __tmp114880)))) + (cons __tmp114886 __tmp114884)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp114879))) - _hd105571105601_ - _hd105568105593_) + (cons 'define __tmp114883))) + _hd105575105605_ + _hd105572105597_) (let () (declare (not safe)) - (_g105560105577_ - _g105561105580_))))) + (_g105564105581_ + _g105565105584_))))) (let () (declare (not safe)) - (_g105560105577_ _g105561105580_))))) + (_g105564105581_ _g105565105584_))))) (let () (declare (not safe)) - (_g105560105577_ _g105561105580_))))) + (_g105564105581_ _g105565105584_))))) (let () (declare (not safe)) - (_g105560105577_ _g105561105580_)))))) + (_g105564105581_ _g105565105584_)))))) (declare (not safe)) - (_g105559105622_ _stx105558_)))) + (_g105563105626_ _stx105562_)))) (define gxc#generate-meta-begin% - (lambda (_self105506_ _stx105507_) - (let* ((_g105509105519_ - (lambda (_g105510105516_) + (lambda (_self105510_ _stx105511_) + (let* ((_g105513105523_ + (lambda (_g105514105520_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105510105516_)))) - (_g105508105554_ - (lambda (_g105510105522_) + _g105514105520_)))) + (_g105512105558_ + (lambda (_g105514105526_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105510105522_)) - (let ((_e105514105524_ + (gx#stx-pair? _g105514105526_)) + (let ((_e105518105528_ (let () (declare (not safe)) - (gx#stx-e _g105510105522_)))) - (let ((_hd105513105527_ + (gx#stx-e _g105514105526_)))) + (let ((_hd105517105531_ (let () (declare (not safe)) - (##car _e105514105524_))) - (_tl105512105529_ + (##car _e105518105528_))) + (_tl105516105533_ (let () (declare (not safe)) - (##cdr _e105514105524_)))) - ((lambda (_L105532_) - (let* ((_c-body105546_ - (map (lambda (_g105541105543_) + (##cdr _e105518105528_)))) + ((lambda (_L105536_) + (let* ((_c-body105550_ + (map (lambda (_g105545105547_) (let () (declare (not safe)) (gxc#compile-e__1 - _self105506_ - _g105541105543_))) - _L105532_)) - (_c-body105551_ - (filter (lambda (_$obj105548_) - (let ((__tmp114883 + _self105510_ + _g105545105547_))) + _L105536_)) + (_c-body105555_ + (filter (lambda (_$obj105552_) + (let ((__tmp114887 (let () (declare (not safe)) - (eq? _$obj105548_ + (eq? _$obj105552_ '#!void)))) (declare (not safe)) - (not __tmp114883))) - _c-body105546_))) + (not __tmp114887))) + _c-body105550_))) (let () (declare (not safe)) - (cons '%#begin _c-body105551_)))) - _tl105512105529_))) + (cons '%#begin _c-body105555_)))) + _tl105516105533_))) (let () (declare (not safe)) - (_g105509105519_ _g105510105522_)))))) + (_g105513105523_ _g105514105526_)))))) (declare (not safe)) - (_g105508105554_ _stx105507_)))) + (_g105512105558_ _stx105511_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_self105414_ _stx105415_) - (let* ((_g105417105427_ - (lambda (_g105418105424_) + (lambda (_self105418_ _stx105419_) + (let* ((_g105421105431_ + (lambda (_g105422105428_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105418105424_)))) - (_g105416105503_ - (lambda (_g105418105430_) + _g105422105428_)))) + (_g105420105507_ + (lambda (_g105422105434_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105418105430_)) - (let ((_e105422105432_ + (gx#stx-pair? _g105422105434_)) + (let ((_e105426105436_ (let () (declare (not safe)) - (gx#stx-e _g105418105430_)))) - (let ((_hd105421105435_ + (gx#stx-e _g105422105434_)))) + (let ((_hd105425105439_ (let () (declare (not safe)) - (##car _e105422105432_))) - (_tl105420105437_ + (##car _e105426105436_))) + (_tl105424105441_ (let () (declare (not safe)) - (##cdr _e105422105432_)))) - ((lambda (_L105440_) - (let* ((_phi105450_ - (let ((__tmp114884 + (##cdr _e105426105436_)))) + ((lambda (_L105444_) + (let* ((_phi105454_ + (let ((__tmp114888 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp114884 '1))) - (_block105452_ - (let ((__tmp114885 + (fx+ __tmp114888 '1))) + (_block105456_ + (let ((__tmp114889 (let () (declare (not safe)) (slot-ref__0 - _self105414_ + _self105418_ 'state)))) (declare (not safe)) (gxc#meta-state-begin-phi! - __tmp114885 - _phi105450_))) - (_compiled105455_ - (let ((__tmp114886 + __tmp114889 + _phi105454_))) + (_compiled105459_ + (let ((__tmp114890 (lambda () - (let ((__tmp114888 - (let ((__tmp114889 + (let ((__tmp114892 + (let ((__tmp114893 (let () (declare (not safe)) @@ -14867,637 +14867,637 @@ '#f '%#begin)))) (declare (not safe)) - (cons __tmp114889 - _L105440_))) - (__tmp114887 + (cons __tmp114893 + _L105444_))) + (__tmp114891 (let () (declare (not safe)) (slot-ref__0 - _self105414_ + _self105418_ 'state)))) (declare (not safe)) (gxc#apply-generate-meta-phi - __tmp114888 + __tmp114892 'state: - __tmp114887))))) + __tmp114891))))) (declare (not safe)) (call-with-parameters - __tmp114886 + __tmp114890 gx#current-expander-phi - _phi105450_)))) - (let* ((_g105458105468_ - (lambda (_g105459105465_) + _phi105454_)))) + (let* ((_g105462105472_ + (lambda (_g105463105469_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105459105465_)))) - (_g105457105500_ - (lambda (_g105459105471_) + _g105463105469_)))) + (_g105461105504_ + (lambda (_g105463105475_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105459105471_)) - (let ((_e105463105473_ + (gx#stx-pair? _g105463105475_)) + (let ((_e105467105477_ (let () (declare (not safe)) (gx#stx-e - _g105459105471_)))) - (let ((_hd105462105476_ + _g105463105475_)))) + (let ((_hd105466105480_ (let () (declare (not safe)) - (##car _e105463105473_))) - (_tl105461105478_ + (##car _e105467105477_))) + (_tl105465105482_ (let () (declare (not safe)) - (##cdr _e105463105473_)))) + (##cdr _e105467105477_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd105462105476_)) + _hd105466105480_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _hd105462105476_)) - ((lambda (_L105481_) - (let ((_c-body105498_ + _hd105466105480_)) + ((lambda (_L105485_) + (let ((_c-body105502_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_$obj105495_) - (let ((__tmp114890 + (filter (lambda (_$obj105499_) + (let ((__tmp114894 (let () (declare (not safe)) - (eq? _$obj105495_ '#!void)))) + (eq? _$obj105499_ '#!void)))) (declare (not safe)) - (not __tmp114890))) - _L105481_))) - (if _block105452_ - (let ((__tmp114891 - (let ((__tmp114892 - (let ((__tmp114893 - (let ((__tmp114897 - (let ((__tmp114898 + (not __tmp114894))) + _L105485_))) + (if _block105456_ + (let ((__tmp114895 + (let ((__tmp114896 + (let ((__tmp114897 + (let ((__tmp114901 + (let ((__tmp114902 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp114898))) + (cons '%#ref __tmp114902))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114894 - (let ((__tmp114895 - (let ((__tmp114896 + (__tmp114898 + (let ((__tmp114899 + (let ((__tmp114900 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _block105452_ '())))) + (cons _block105456_ '())))) (declare (not safe)) - (cons '%#quote __tmp114896)))) + (cons '%#quote __tmp114900)))) (declare (not safe)) - (cons __tmp114895 '())))) + (cons __tmp114899 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114897 - __tmp114894)))) + (cons __tmp114901 + __tmp114898)))) (declare (not safe)) - (cons '%#call __tmp114893)))) + (cons '%#call __tmp114897)))) (declare (not safe)) - (cons __tmp114892 _c-body105498_)))) + (cons __tmp114896 _c-body105502_)))) (declare (not safe)) - (cons '%#begin-syntax __tmp114891)) + (cons '%#begin-syntax __tmp114895)) (if (let () (declare (not safe)) - (null? _c-body105498_)) + (null? _c-body105502_)) '#!void (let () (declare (not safe)) - (cons '%#begin-syntax _c-body105498_)))))) - _tl105461105478_) + (cons '%#begin-syntax _c-body105502_)))))) + _tl105465105482_) (let () (declare (not safe)) - (_g105458105468_ _g105459105471_))) + (_g105462105472_ _g105463105475_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105458105468_ - _g105459105471_))))) + (_g105462105472_ + _g105463105475_))))) (let () (declare (not safe)) - (_g105458105468_ - _g105459105471_)))))) + (_g105462105472_ + _g105463105475_)))))) (declare (not safe)) - (_g105457105500_ _compiled105455_)))) - _tl105420105437_))) + (_g105461105504_ _compiled105459_)))) + _tl105424105441_))) (let () (declare (not safe)) - (_g105417105427_ _g105418105430_)))))) + (_g105421105431_ _g105422105434_)))))) (declare (not safe)) - (_g105416105503_ _stx105415_)))) + (_g105420105507_ _stx105419_)))) (define gxc#generate-meta-module% - (lambda (_self105345_ _stx105346_) - (let ((__tmp114899 + (lambda (_self105349_ _stx105350_) + (let ((__tmp114903 (let () (declare (not safe)) - (slot-ref__0 _self105345_ 'state)))) + (slot-ref__0 _self105349_ 'state)))) (declare (not safe)) - (gxc#meta-state-end-phi! __tmp114899)) - (let* ((_g105348105362_ - (lambda (_g105349105359_) + (gxc#meta-state-end-phi! __tmp114903)) + (let* ((_g105352105366_ + (lambda (_g105353105363_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105349105359_)))) - (_g105347105411_ - (lambda (_g105349105365_) + _g105353105363_)))) + (_g105351105415_ + (lambda (_g105353105369_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105349105365_)) - (let ((_e105354105367_ + (gx#stx-pair? _g105353105369_)) + (let ((_e105358105371_ (let () (declare (not safe)) - (gx#stx-e _g105349105365_)))) - (let ((_hd105353105370_ + (gx#stx-e _g105353105369_)))) + (let ((_hd105357105374_ (let () (declare (not safe)) - (##car _e105354105367_))) - (_tl105352105372_ + (##car _e105358105371_))) + (_tl105356105376_ (let () (declare (not safe)) - (##cdr _e105354105367_)))) + (##cdr _e105358105371_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105352105372_)) - (let ((_e105357105375_ + (gx#stx-pair? _tl105356105376_)) + (let ((_e105361105379_ (let () (declare (not safe)) - (gx#stx-e _tl105352105372_)))) - (let ((_hd105356105378_ + (gx#stx-e _tl105356105376_)))) + (let ((_hd105360105382_ (let () (declare (not safe)) - (##car _e105357105375_))) - (_tl105355105380_ + (##car _e105361105379_))) + (_tl105359105384_ (let () (declare (not safe)) - (##cdr _e105357105375_)))) - ((lambda (_L105383_ _L105384_) - (let ((_key105397_ + (##cdr _e105361105379_)))) + ((lambda (_L105387_ _L105388_) + (let ((_key105401_ (let () (declare (not safe)) (gx#core-identifier-key - _L105384_)))) - (if (interned-symbol? _key105397_) + _L105388_)))) + (if (interned-symbol? _key105401_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx105346_ - _L105384_ - _key105397_))) - (let* ((_ctx105399_ + _stx105350_ + _L105388_ + _key105401_))) + (let* ((_ctx105403_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L105384_))) - (_code105402_ - (let ((__tmp114900 + _L105388_))) + (_code105406_ + (let ((__tmp114904 (lambda () - (let ((__tmp114901 + (let ((__tmp114905 (##structure-ref - _ctx105399_ + _ctx105403_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _self105345_ - __tmp114901))))) + _self105349_ + __tmp114905))))) (declare (not safe)) (call-with-parameters - __tmp114900 + __tmp114904 gx#current-expander-context - _ctx105399_))) - (_rt105404_ - (let ((__tmp114902 + _ctx105403_))) + (_rt105408_ + (let ((__tmp114906 (gxc#current-compile-runtime-sections))) (declare (not safe)) (hash-get - __tmp114902 - _ctx105399_))) - (_loader105406_ - (if _rt105404_ - (let ((__tmp114903 - (let ((__tmp114904 + __tmp114906 + _ctx105403_))) + (_loader105410_ + (if _rt105408_ + (let ((__tmp114907 + (let ((__tmp114908 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114908 - (let ((__tmp114909 + (let ((__tmp114912 + (let ((__tmp114913 (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp114909))) - (__tmp114905 - (let ((__tmp114906 - (let ((__tmp114907 + (cons '%#ref __tmp114913))) + (__tmp114909 + (let ((__tmp114910 + (let ((__tmp114911 (let () (declare (not safe)) - (cons _rt105404_ '())))) + (cons _rt105408_ '())))) (declare (not safe)) - (cons '%#quote __tmp114907)))) + (cons '%#quote __tmp114911)))) (declare (not safe)) - (cons __tmp114906 '())))) + (cons __tmp114910 '())))) (declare (not safe)) - (cons __tmp114908 __tmp114905)))) + (cons __tmp114912 __tmp114909)))) (declare (not safe)) - (cons '%#call __tmp114904)))) + (cons '%#call __tmp114908)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114903 '())) + (cons __tmp114907 '())) '())) - (_modid105408_ + (_modid105412_ (let () (declare (not safe)) - (gx#stx-e _L105384_)))) - (let ((__tmp114910 + (gx#stx-e _L105388_)))) + (let ((__tmp114914 (let () (declare (not safe)) (slot-ref__0 - _self105345_ + _self105349_ 'state)))) (declare (not safe)) (gxc#meta-state-end-phi! - __tmp114910)) - (let ((__tmp114911 - (let ((__tmp114912 + __tmp114914)) + (let ((__tmp114915 + (let ((__tmp114916 (let () (declare (not safe)) - (cons _code105402_ - _loader105406_)))) + (cons _code105406_ + _loader105410_)))) (declare (not safe)) - (cons _modid105408_ - __tmp114912)))) + (cons _modid105412_ + __tmp114916)))) (declare (not safe)) - (cons '%#module __tmp114911))))) - _tl105355105380_ - _hd105356105378_))) + (cons '%#module __tmp114915))))) + _tl105359105384_ + _hd105360105382_))) (let () (declare (not safe)) - (_g105348105362_ _g105349105365_))))) + (_g105352105366_ _g105353105369_))))) (let () (declare (not safe)) - (_g105348105362_ _g105349105365_)))))) + (_g105352105366_ _g105353105369_)))))) (declare (not safe)) - (_g105347105411_ _stx105346_)))) + (_g105351105415_ _stx105350_)))) (define gxc#generate-meta-import-path - (lambda (_ctx105335_ _context-chain105336_) - (let _lp105338_ ((_ctx105340_ _ctx105335_) (_path105341_ '())) - (let ((_super105343_ - (##structure-ref _ctx105340_ '3 gx#phi-context::t '#f))) - (if (memq _super105343_ _context-chain105336_) - (let ((__tmp114917 - (let ((__tmp114918 + (lambda (_ctx105339_ _context-chain105340_) + (let _lp105342_ ((_ctx105344_ _ctx105339_) (_path105345_ '())) + (let ((_super105347_ + (##structure-ref _ctx105344_ '3 gx#phi-context::t '#f))) + (if (memq _super105347_ _context-chain105340_) + (let ((__tmp114921 + (let ((__tmp114922 (car (##structure-ref - _ctx105340_ + _ctx105344_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp114918 _path105341_)))) + (cons __tmp114922 _path105345_)))) (declare (not safe)) - (cons '#f __tmp114917)) + (cons '#f __tmp114921)) (if (let () (declare (not safe)) (##structure-instance-of? - _super105343_ + _super105347_ 'gx#module-context::t)) - (let ((__tmp114915 - (let ((__tmp114916 + (let ((__tmp114919 + (let ((__tmp114920 (car (##structure-ref - _ctx105340_ + _ctx105344_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp114916 _path105341_)))) + (cons __tmp114920 _path105345_)))) (declare (not safe)) - (_lp105338_ _super105343_ __tmp114915)) - (let ((__tmp114913 - (let ((__tmp114914 + (_lp105342_ _super105347_ __tmp114919)) + (let ((__tmp114917 + (let ((__tmp114918 (##structure-ref - _ctx105340_ + _ctx105344_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp114914)))) + (make-symbol__1 '":" __tmp114918)))) (declare (not safe)) - (cons __tmp114913 _path105341_)))))))) + (cons __tmp114917 _path105345_)))))))) (define gxc#current-context-chain (lambda () - (let _lp105330_ ((_ctx105332_ (gx#current-expander-context)) - (_r105333_ '())) + (let _lp105334_ ((_ctx105336_ (gx#current-expander-context)) + (_r105337_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx105332_ 'gx#module-context::t)) - (let ((__tmp114920 - (##structure-ref _ctx105332_ '3 gx#phi-context::t '#f)) - (__tmp114919 + (##structure-instance-of? _ctx105336_ 'gx#module-context::t)) + (let ((__tmp114924 + (##structure-ref _ctx105336_ '3 gx#phi-context::t '#f)) + (__tmp114923 (let () (declare (not safe)) - (cons _ctx105332_ _r105333_)))) + (cons _ctx105336_ _r105337_)))) (declare (not safe)) - (_lp105330_ __tmp114920 __tmp114919)) - _r105333_)))) + (_lp105334_ __tmp114924 __tmp114923)) + _r105337_)))) (define gxc#generate-meta-import% - (lambda (_self105099_ _stx105100_) - (letrec* ((_context-chain105102_ + (lambda (_self105103_ _stx105104_) + (letrec* ((_context-chain105106_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-spec105103_ - (lambda (_in105266_) - (let* ((_in105267105279_ _in105266_) - (_E105269105283_ + (_make-import-spec105107_ + (lambda (_in105270_) + (let* ((_in105271105283_ _in105270_) + (_E105273105287_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _in105267105279_)))) - (_K105270105293_ - (lambda (_phi105286_ - _name105287_ - _src-name105288_ - _src-phi105289_ - _src-key105290_ - _src-ctx105291_) - (let ((__tmp114921 - (let ((__tmp114925 + _in105271105283_)))) + (_K105274105297_ + (lambda (_phi105290_ + _name105291_ + _src-name105292_ + _src-phi105293_ + _src-key105294_ + _src-ctx105295_) + (let ((__tmp114925 + (let ((__tmp114929 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name105287_))) - (__tmp114922 - (let ((__tmp114923 - (let ((__tmp114924 + _name105291_))) + (__tmp114926 + (let ((__tmp114927 + (let ((__tmp114928 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _src-name105288_)))) + _src-name105292_)))) (declare (not safe)) - (cons __tmp114924 '())))) + (cons __tmp114928 '())))) (declare (not safe)) - (cons _src-phi105289_ - __tmp114923)))) + (cons _src-phi105293_ + __tmp114927)))) (declare (not safe)) - (cons __tmp114925 __tmp114922)))) + (cons __tmp114929 __tmp114926)))) (declare (not safe)) - (cons _phi105286_ __tmp114921))))) + (cons _phi105290_ __tmp114925))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105267105279_ + _in105271105283_ 'gx#module-import::t)) - (let ((_e105271105296_ + (let ((_e105275105300_ (let () (declare (not safe)) (##unchecked-structure-ref - _in105267105279_ + _in105271105283_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e105271105296_ + _e105275105300_ 'gx#module-export::t)) - (let* ((_e105274105299_ + (let* ((_e105278105303_ (let () (declare (not safe)) (##unchecked-structure-ref - _e105271105296_ + _e105275105300_ '1 gx#module-export::t '#f))) - (_src-ctx105302_ _e105274105299_) - (_e105275105304_ + (_src-ctx105306_ _e105278105303_) + (_e105279105308_ (let () (declare (not safe)) (##unchecked-structure-ref - _e105271105296_ + _e105275105300_ '2 gx#module-export::t '#f))) - (_src-key105307_ _e105275105304_) - (_e105276105309_ + (_src-key105311_ _e105279105308_) + (_e105280105313_ (let () (declare (not safe)) (##unchecked-structure-ref - _e105271105296_ + _e105275105300_ '3 gx#module-export::t '#f))) - (_src-phi105312_ _e105276105309_) - (_e105277105314_ + (_src-phi105316_ _e105280105313_) + (_e105281105318_ (let () (declare (not safe)) (##unchecked-structure-ref - _e105271105296_ + _e105275105300_ '4 gx#module-export::t '#f))) - (_src-name105317_ _e105277105314_) - (_e105272105319_ + (_src-name105321_ _e105281105318_) + (_e105276105323_ (let () (declare (not safe)) (##unchecked-structure-ref - _in105267105279_ + _in105271105283_ '2 gx#module-import::t '#f))) - (_name105322_ _e105272105319_) - (_e105273105324_ + (_name105326_ _e105276105323_) + (_e105277105328_ (let () (declare (not safe)) (##unchecked-structure-ref - _in105267105279_ + _in105271105283_ '3 gx#module-import::t '#f))) - (_phi105327_ _e105273105324_)) + (_phi105331_ _e105277105328_)) (declare (not safe)) - (_K105270105293_ - _phi105327_ - _name105322_ - _src-name105317_ - _src-phi105312_ - _src-key105307_ - _src-ctx105302_)) + (_K105274105297_ + _phi105331_ + _name105326_ + _src-name105321_ + _src-phi105316_ + _src-key105311_ + _src-ctx105306_)) (let () (declare (not safe)) - (_E105269105283_)))) - (let () (declare (not safe)) (_E105269105283_)))))) - (_make-import-path105104_ - (lambda (_ctx105264_) + (_E105273105287_)))) + (let () (declare (not safe)) (_E105273105287_)))))) + (_make-import-path105108_ + (lambda (_ctx105268_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx105264_ - _context-chain105102_)))) - (_make-import-spec-in105105_ - (lambda (_ctx105261_ _in105262_) - (let ((__tmp114926 - (let ((__tmp114928 + _ctx105268_ + _context-chain105106_)))) + (_make-import-spec-in105109_ + (lambda (_ctx105265_ _in105266_) + (let ((__tmp114930 + (let ((__tmp114932 (let () (declare (not safe)) - (_make-import-path105104_ _ctx105261_))) - (__tmp114927 (reverse _in105262_))) + (_make-import-path105108_ _ctx105265_))) + (__tmp114931 (reverse _in105266_))) (declare (not safe)) - (cons __tmp114928 __tmp114927)))) + (cons __tmp114932 __tmp114931)))) (declare (not safe)) - (cons 'spec: __tmp114926))))) - (let ((__tmp114929 + (cons 'spec: __tmp114930))))) + (let ((__tmp114933 (let () (declare (not safe)) - (slot-ref__0 _self105099_ 'state)))) + (slot-ref__0 _self105103_ 'state)))) (declare (not safe)) - (gxc#meta-state-end-phi! __tmp114929)) - (let* ((_g105107105117_ - (lambda (_g105108105114_) + (gxc#meta-state-end-phi! __tmp114933)) + (let* ((_g105111105121_ + (lambda (_g105112105118_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105108105114_)))) - (_g105106105258_ - (lambda (_g105108105120_) + _g105112105118_)))) + (_g105110105262_ + (lambda (_g105112105124_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105108105120_)) - (let ((_e105112105122_ + (gx#stx-pair? _g105112105124_)) + (let ((_e105116105126_ (let () (declare (not safe)) - (gx#stx-e _g105108105120_)))) - (let ((_hd105111105125_ + (gx#stx-e _g105112105124_)))) + (let ((_hd105115105129_ (let () (declare (not safe)) - (##car _e105112105122_))) - (_tl105110105127_ + (##car _e105116105126_))) + (_tl105114105131_ (let () (declare (not safe)) - (##cdr _e105112105122_)))) - ((lambda (_L105130_) - (let _lp105141_ ((_rest105143_ _L105130_) - (_current-src105144_ '#f) - (_current-in105145_ '()) - (_r105146_ '())) - (let* ((_rest105147105155_ _rest105143_) - (_else105149105165_ + (##cdr _e105116105126_)))) + ((lambda (_L105134_) + (let _lp105145_ ((_rest105147_ _L105134_) + (_current-src105148_ '#f) + (_current-in105149_ '()) + (_r105150_ '())) + (let* ((_rest105151105159_ _rest105147_) + (_else105153105169_ (lambda () - (let* ((_r105163_ - (if _current-src105144_ - (let ((__tmp114930 + (let* ((_r105167_ + (if _current-src105148_ + (let ((__tmp114934 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_make-import-spec-in105105_ - _current-src105144_ - _current-in105145_)))) + (_make-import-spec-in105109_ + _current-src105148_ + _current-in105149_)))) (declare (not safe)) - (cons __tmp114930 _r105146_)) - _r105146_)) + (cons __tmp114934 _r105150_)) + _r105150_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114931 - (reverse _r105163_))) + (__tmp114935 + (reverse _r105167_))) (declare (not safe)) - (cons '%#import __tmp114931)))) - (_K105151105246_ - (lambda (_rest105168_ _in105169_) + (cons '%#import __tmp114935)))) + (_K105155105250_ + (lambda (_rest105172_ _in105173_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105169_ + _in105173_ 'gx#module-import::t)) - (let* ((_in105170105177_ - _in105169_) - (_E105172105181_ + (let* ((_in105174105181_ + _in105173_) + (_E105176105185_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in105170105177_)))) - (_K105173105186_ - (lambda (_src-ctx105184_) + _in105174105181_)))) + (_K105177105190_ + (lambda (_src-ctx105188_) (if (let () (declare (not safe)) - (eq? _current-src105144_ _src-ctx105184_)) - (let ((__tmp114947 - (let ((__tmp114948 + (eq? _current-src105148_ _src-ctx105188_)) + (let ((__tmp114951 + (let ((__tmp114952 (let () (declare (not safe)) - (_make-import-spec105103_ _in105169_)))) + (_make-import-spec105107_ _in105173_)))) (declare (not safe)) - (cons __tmp114948 _current-in105145_)))) + (cons __tmp114952 _current-in105149_)))) (declare (not safe)) - (_lp105141_ - _rest105168_ - _current-src105144_ - __tmp114947 - _r105146_)) - (if _current-src105144_ - (let ((__tmp114945 - (let ((__tmp114946 + (_lp105145_ + _rest105172_ + _current-src105148_ + __tmp114951 + _r105150_)) + (if _current-src105148_ + (let ((__tmp114949 + (let ((__tmp114950 (let () (declare (not safe)) - (_make-import-spec105103_ - _in105169_)))) + (_make-import-spec105107_ + _in105173_)))) (declare (not safe)) - (cons __tmp114946 '()))) - (__tmp114943 - (let ((__tmp114944 + (cons __tmp114950 '()))) + (__tmp114947 + (let ((__tmp114948 (let () (declare (not safe)) - (_make-import-spec-in105105_ - _current-src105144_ - _current-in105145_)))) + (_make-import-spec-in105109_ + _current-src105148_ + _current-in105149_)))) (declare (not safe)) - (cons __tmp114944 _r105146_)))) + (cons __tmp114948 _r105150_)))) (declare (not safe)) - (_lp105141_ - _rest105168_ - _src-ctx105184_ - __tmp114945 - __tmp114943)) - (let ((__tmp114941 - (let ((__tmp114942 + (_lp105145_ + _rest105172_ + _src-ctx105188_ + __tmp114949 + __tmp114947)) + (let ((__tmp114945 + (let ((__tmp114946 (let () (declare (not safe)) - (_make-import-spec105103_ - _in105169_)))) + (_make-import-spec105107_ + _in105173_)))) (declare (not safe)) - (cons __tmp114942 '())))) + (cons __tmp114946 '())))) (declare (not safe)) - (_lp105141_ - _rest105168_ - _src-ctx105184_ - __tmp114941 - _r105146_))))))) + (_lp105145_ + _rest105172_ + _src-ctx105188_ + __tmp114945 + _r105150_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105170105177_ + _in105174105181_ 'gx#module-import::t)) - (let ((_e105174105189_ + (let ((_e105178105193_ (let () (declare (not safe)) (##unchecked-structure-ref - _in105170105177_ + _in105174105181_ '1 gx#module-import::t '#f)))) @@ -15505,830 +15505,830 @@ (declare (not safe)) (##structure-direct-instance-of? - _e105174105189_ + _e105178105193_ 'gx#module-export::t)) - (let* ((_e105175105192_ + (let* ((_e105179105196_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _e105174105189_ + _e105178105193_ '1 gx#module-export::t '#f))) - (_src-ctx105195_ _e105175105192_)) + (_src-ctx105199_ _e105179105196_)) (declare (not safe)) - (_K105173105186_ _src-ctx105195_)) - (let () (declare (not safe)) (_E105172105181_)))) + (_K105177105190_ _src-ctx105199_)) + (let () (declare (not safe)) (_E105176105185_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E105172105181_)))) + (_E105176105185_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105169_ + _in105173_ 'gx#import-set::t)) - (let* ((_phi105197_ + (let* ((_phi105201_ (##direct-structure-ref - _in105169_ + _in105173_ '2 gx#import-set::t '#f)) - (_src105199_ + (_src105203_ (##direct-structure-ref - _in105169_ + _in105173_ '1 gx#import-set::t '#f)) - (_src-in105239_ - (let* ((_g105200105209_ + (_src-in105243_ + (let* ((_g105204105213_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_make-import-path105104_ _src105199_))) - (_E105203105213_ + (_make-import-path105108_ _src105203_))) + (_E105207105217_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g105200105209_))))) - (let ((_K105205105229_ - (lambda (_path105227_) _path105227_)) - (_K105204105219_ - (lambda (_path105217_) + _g105204105213_))))) + (let ((_K105209105233_ + (lambda (_path105231_) _path105231_)) + (_K105208105223_ + (lambda (_path105221_) (let () (declare (not safe)) - (cons 'in: _path105217_))))) + (cons 'in: _path105221_))))) (if (let () (declare (not safe)) - (##pair? _g105200105209_)) - (let ((_tl105207105234_ + (##pair? _g105204105213_)) + (let ((_tl105211105238_ (let () (declare (not safe)) - (##cdr _g105200105209_))) - (_hd105206105232_ + (##cdr _g105204105213_))) + (_hd105210105236_ (let () (declare (not safe)) - (##car _g105200105209_)))) + (##car _g105204105213_)))) (if (let () (declare (not safe)) - (##null? _tl105207105234_)) - (let ((_path105237_ _hd105206105232_)) + (##null? _tl105211105238_)) + (let ((_path105241_ _hd105210105236_)) (declare (not safe)) - (_K105205105229_ _path105237_)) - (let ((_path105222_ _g105200105209_)) + (_K105209105233_ _path105241_)) + (let ((_path105226_ _g105204105213_)) (declare (not safe)) - (_K105204105219_ _path105222_)))) - (let ((_path105222_ _g105200105209_)) + (_K105208105223_ _path105226_)))) + (let ((_path105226_ _g105204105213_)) (declare (not safe)) - (_K105204105219_ _path105222_)))))) - (_r105241_ - (if _current-src105144_ - (let ((__tmp114936 + (_K105208105223_ _path105226_)))))) + (_r105245_ + (if _current-src105148_ + (let ((__tmp114940 (let () (declare (not safe)) - (_make-import-spec-in105105_ - _current-src105144_ - _current-in105145_)))) + (_make-import-spec-in105109_ + _current-src105148_ + _current-in105149_)))) (declare (not safe)) - (cons __tmp114936 _r105146_)) - _r105146_))) + (cons __tmp114940 _r105150_)) + _r105150_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp114937 - (let ((__tmp114938 + (let ((__tmp114941 + (let ((__tmp114942 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (fxzero? _phi105197_)) - _src-in105239_ - (let ((__tmp114939 - (let ((__tmp114940 + (fxzero? _phi105201_)) + _src-in105243_ + (let ((__tmp114943 + (let ((__tmp114944 (let () (declare (not safe)) - (cons _src-in105239_ '())))) + (cons _src-in105243_ '())))) (declare (not safe)) - (cons _phi105197_ __tmp114940)))) + (cons _phi105201_ __tmp114944)))) (declare (not safe)) - (cons 'phi: __tmp114939))))) + (cons 'phi: __tmp114943))))) (declare (not safe)) - (cons __tmp114938 _r105241_)))) + (cons __tmp114942 _r105245_)))) (declare (not safe)) - (_lp105141_ _rest105168_ '#f '() __tmp114937))) + (_lp105145_ _rest105172_ '#f '() __tmp114941))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in105169_ + _in105173_ 'gx#module-context::t)) - (let* ((_r105244_ - (if _current-src105144_ + (let* ((_r105248_ + (if _current-src105148_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114932 + (let ((__tmp114936 (let () (declare (not safe)) - (_make-import-spec-in105105_ - _current-src105144_ - _current-in105145_)))) + (_make-import-spec-in105109_ + _current-src105148_ + _current-in105149_)))) (declare (not safe)) - (cons __tmp114932 _r105146_)) - _r105146_)) - (__tmp114933 - (let ((__tmp114934 - (let ((__tmp114935 + (cons __tmp114936 _r105150_)) + _r105150_)) + (__tmp114937 + (let ((__tmp114938 + (let ((__tmp114939 (let () (declare (not safe)) - (_make-import-path105104_ _in105169_)))) + (_make-import-path105108_ _in105173_)))) (declare (not safe)) - (cons 'runtime: __tmp114935)))) + (cons 'runtime: __tmp114939)))) (declare (not safe)) - (cons __tmp114934 _r105244_)))) + (cons __tmp114938 _r105248_)))) (declare (not safe)) - (_lp105141_ _rest105168_ '#f '() __tmp114933)) + (_lp105145_ _rest105172_ '#f '() __tmp114937)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest105147105155_)) - (let ((_hd105152105249_ + (##pair? _rest105151105159_)) + (let ((_hd105156105253_ (let () (declare (not safe)) - (##car _rest105147105155_))) - (_tl105153105251_ + (##car _rest105151105159_))) + (_tl105157105255_ (let () (declare (not safe)) - (##cdr _rest105147105155_)))) - (let* ((_in105254_ _hd105152105249_) - (_rest105256_ - _tl105153105251_)) + (##cdr _rest105151105159_)))) + (let* ((_in105258_ _hd105156105253_) + (_rest105260_ + _tl105157105255_)) (declare (not safe)) - (_K105151105246_ - _rest105256_ - _in105254_))) + (_K105155105250_ + _rest105260_ + _in105258_))) (let () (declare (not safe)) - (_else105149105165_)))))) - _tl105110105127_))) + (_else105153105169_)))))) + _tl105114105131_))) (let () (declare (not safe)) - (_g105107105117_ _g105108105120_)))))) + (_g105111105121_ _g105112105124_)))))) (declare (not safe)) - (_g105106105258_ _stx105100_))))) + (_g105110105262_ _stx105104_))))) (define gxc#generate-meta-export% - (lambda (_self104909_ _stx104910_) - (letrec* ((_context-chain104912_ + (lambda (_self104913_ _stx104914_) + (letrec* ((_context-chain104916_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-path104913_ - (lambda (_ctx105097_) + (_make-import-path104917_ + (lambda (_ctx105101_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx105097_ - _context-chain104912_))))) - (let* ((_g104915104925_ - (lambda (_g104916104922_) + _ctx105101_ + _context-chain104916_))))) + (let* ((_g104919104929_ + (lambda (_g104920104926_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104916104922_)))) - (_g104914105094_ - (lambda (_g104916104928_) + _g104920104926_)))) + (_g104918105098_ + (lambda (_g104920104932_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104916104928_)) - (let ((_e104920104930_ + (gx#stx-pair? _g104920104932_)) + (let ((_e104924104934_ (let () (declare (not safe)) - (gx#stx-e _g104916104928_)))) - (let ((_hd104919104933_ + (gx#stx-e _g104920104932_)))) + (let ((_hd104923104937_ (let () (declare (not safe)) - (##car _e104920104930_))) - (_tl104918104935_ + (##car _e104924104934_))) + (_tl104922104939_ (let () (declare (not safe)) - (##cdr _e104920104930_)))) - ((lambda (_L104938_) - (let _lp104949_ ((_rest104951_ _L104938_) - (_r104952_ '())) - (let* ((_rest104953104961_ _rest104951_) - (_else104955104969_ + (##cdr _e104924104934_)))) + ((lambda (_L104942_) + (let _lp104953_ ((_rest104955_ _L104942_) + (_r104956_ '())) + (let* ((_rest104957104965_ _rest104955_) + (_else104959104973_ (lambda () - (let ((__tmp114949 - (reverse _r104952_))) + (let ((__tmp114953 + (reverse _r104956_))) (declare (not safe)) - (cons '%#export __tmp114949)))) - (_K104957105082_ - (lambda (_rest104972_ _out104973_) - (let* ((_out104974104987_ - _out104973_) - (_E104977104991_ + (cons '%#export __tmp114953)))) + (_K104961105086_ + (lambda (_rest104976_ _out104977_) + (let* ((_out104978104991_ + _out104977_) + (_E104981104995_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _out104974104987_))))) - (let ((_K104981105061_ - (lambda (_name105057_ - _phi105058_ - _key105059_) - (let ((__tmp114950 - (let ((__tmp114951 + _out104978104991_))))) + (let ((_K104985105065_ + (lambda (_name105061_ + _phi105062_ + _key105063_) + (let ((__tmp114954 + (let ((__tmp114955 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114952 - (let ((__tmp114953 - (let ((__tmp114956 + (let ((__tmp114956 + (let ((__tmp114957 + (let ((__tmp114960 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _key105059_))) - (__tmp114954 - (let ((__tmp114955 + _key105063_))) + (__tmp114958 + (let ((__tmp114959 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name105057_)))) + _name105061_)))) (declare (not safe)) - (cons __tmp114955 '())))) + (cons __tmp114959 '())))) (declare (not safe)) - (cons __tmp114956 __tmp114954)))) + (cons __tmp114960 __tmp114958)))) (declare (not safe)) - (cons _phi105058_ __tmp114953)))) + (cons _phi105062_ __tmp114957)))) (declare (not safe)) - (cons 'spec: __tmp114952)))) + (cons 'spec: __tmp114956)))) (declare (not safe)) - (cons __tmp114951 _r104952_)))) + (cons __tmp114955 _r104956_)))) (declare (not safe)) - (_lp104949_ _rest104972_ __tmp114950)))) + (_lp104953_ _rest104976_ __tmp114954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K104978105041_ - (lambda (_phi104995_ - _src104996_) - (let* ((_out105036_ - (if _src104996_ + (_K104982105045_ + (lambda (_phi104999_ + _src105000_) + (let* ((_out105040_ + (if _src105000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114957 - (let ((__tmp114958 - (let* ((_g104997105006_ + (let ((__tmp114961 + (let ((__tmp114962 + (let* ((_g105001105010_ (let () (declare (not safe)) - (_make-import-path104913_ - _src104996_))) - (_E105000105010_ + (_make-import-path104917_ + _src105000_))) + (_E105004105014_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g104997105006_))))) - (let ((_K105002105026_ - (lambda (_path105024_) - _path105024_)) - (_K105001105016_ - (lambda (_path105014_) + _g105001105010_))))) + (let ((_K105006105030_ + (lambda (_path105028_) + _path105028_)) + (_K105005105020_ + (lambda (_path105018_) (let () (declare (not safe)) (cons 'in: - _path105014_))))) + _path105018_))))) (if (let () (declare (not safe)) - (##pair? _g104997105006_)) - (let ((_tl105004105031_ + (##pair? _g105001105010_)) + (let ((_tl105008105035_ (let () (declare (not safe)) - (##cdr _g104997105006_))) - (_hd105003105029_ + (##cdr _g105001105010_))) + (_hd105007105033_ (let () (declare (not safe)) - (##car _g104997105006_)))) + (##car _g105001105010_)))) (if (let () (declare (not safe)) - (##null? _tl105004105031_)) - (let ((_path105034_ - _hd105003105029_)) + (##null? _tl105008105035_)) + (let ((_path105038_ + _hd105007105033_)) (declare (not safe)) - (_K105002105026_ - _path105034_)) - (let ((_path105019_ - _g104997105006_)) + (_K105006105030_ + _path105038_)) + (let ((_path105023_ + _g105001105010_)) (declare (not safe)) - (_K105001105016_ - _path105019_)))) - (let ((_path105019_ - _g104997105006_)) + (_K105005105020_ + _path105023_)))) + (let ((_path105023_ + _g105001105010_)) (declare (not safe)) - (_K105001105016_ - _path105019_))))))) + (_K105005105020_ + _path105023_))))))) (declare (not safe)) - (cons __tmp114958 '())))) + (cons __tmp114962 '())))) (declare (not safe)) - (cons 'import: __tmp114957)) + (cons 'import: __tmp114961)) '#t)) - (_out105038_ - (if (let () (declare (not safe)) (fxzero? _phi104995_)) - _out105036_ - (let ((__tmp114959 - (let ((__tmp114960 + (_out105042_ + (if (let () (declare (not safe)) (fxzero? _phi104999_)) + _out105040_ + (let ((__tmp114963 + (let ((__tmp114964 (let () (declare (not safe)) - (cons _out105036_ '())))) + (cons _out105040_ '())))) (declare (not safe)) - (cons _phi104995_ __tmp114960)))) + (cons _phi104999_ __tmp114964)))) (declare (not safe)) - (cons 'phi: __tmp114959))))) - (let ((__tmp114961 + (cons 'phi: __tmp114963))))) + (let ((__tmp114965 (let () (declare (not safe)) - (cons _out105038_ _r104952_)))) + (cons _out105042_ _r104956_)))) (declare (not safe)) - (_lp104949_ _rest104972_ __tmp114961)))))) + (_lp104953_ _rest104976_ __tmp114965)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match104976105054_ + (let ((_try-match104980105058_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out104974104987_ + _out104978104991_ 'gx#export-set::t)) - (let* ((_e104979105044_ + (let* ((_e104983105048_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _out104974104987_ + _out104978104991_ '1 gx#export-set::t '#f))) - (_e104980105049_ + (_e104984105053_ (let () (declare (not safe)) (##unchecked-structure-ref - _out104974104987_ + _out104978104991_ '2 gx#export-set::t '#f)))) - (let ((_src105047_ _e104979105044_) - (_phi105052_ _e104980105049_)) + (let ((_src105051_ _e104983105048_) + (_phi105056_ _e104984105053_)) (let () (declare (not safe)) - (_K104978105041_ _phi105052_ _src105047_)))) - (let () (declare (not safe)) (_E104977104991_)))))) + (_K104982105045_ _phi105056_ _src105051_)))) + (let () (declare (not safe)) (_E104981104995_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out104974104987_ + _out104978104991_ 'gx#module-export::t)) - (let* ((_e104982105064_ + (let* ((_e104986105068_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _out104974104987_ + _out104978104991_ '1 gx#module-export::t '#f))) - (_e104983105067_ + (_e104987105071_ (let () (declare (not safe)) (##unchecked-structure-ref - _out104974104987_ + _out104978104991_ '2 gx#module-export::t '#f))) - (_e104984105072_ + (_e104988105076_ (let () (declare (not safe)) (##unchecked-structure-ref - _out104974104987_ + _out104978104991_ '3 gx#module-export::t '#f))) - (_e104985105077_ + (_e104989105081_ (let () (declare (not safe)) (##unchecked-structure-ref - _out104974104987_ + _out104978104991_ '4 gx#module-export::t '#f)))) - (let ((_key105070_ _e104983105067_) - (_phi105075_ _e104984105072_) - (_name105080_ _e104985105077_)) + (let ((_key105074_ _e104987105071_) + (_phi105079_ _e104988105076_) + (_name105084_ _e104989105081_)) (let () (declare (not safe)) - (_K104981105061_ _name105080_ _phi105075_ _key105070_)))) + (_K104985105065_ _name105084_ _phi105079_ _key105074_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match104976105054_))))))))) + (_try-match104980105058_))))))))) (if (let () (declare (not safe)) - (##pair? _rest104953104961_)) - (let ((_hd104958105085_ + (##pair? _rest104957104965_)) + (let ((_hd104962105089_ (let () (declare (not safe)) - (##car _rest104953104961_))) - (_tl104959105087_ + (##car _rest104957104965_))) + (_tl104963105091_ (let () (declare (not safe)) - (##cdr _rest104953104961_)))) - (let* ((_out105090_ _hd104958105085_) - (_rest105092_ - _tl104959105087_)) + (##cdr _rest104957104965_)))) + (let* ((_out105094_ _hd104962105089_) + (_rest105096_ + _tl104963105091_)) (declare (not safe)) - (_K104957105082_ - _rest105092_ - _out105090_))) + (_K104961105086_ + _rest105096_ + _out105094_))) (let () (declare (not safe)) - (_else104955104969_)))))) - _tl104918104935_))) + (_else104959104973_)))))) + _tl104922104939_))) (let () (declare (not safe)) - (_g104915104925_ _g104916104928_)))))) + (_g104919104929_ _g104920104932_)))))) (declare (not safe)) - (_g104914105094_ _stx104910_))))) + (_g104918105098_ _stx104914_))))) (define gxc#generate-meta-provide% - (lambda (_self104870_ _stx104871_) - (let ((__tmp114962 + (lambda (_self104874_ _stx104875_) + (let ((__tmp114966 (let () (declare (not safe)) - (slot-ref__0 _self104870_ 'state)))) + (slot-ref__0 _self104874_ 'state)))) (declare (not safe)) - (gxc#meta-state-end-phi! __tmp114962)) - (let* ((_g104873104883_ - (lambda (_g104874104880_) + (gxc#meta-state-end-phi! __tmp114966)) + (let* ((_g104877104887_ + (lambda (_g104878104884_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104874104880_)))) - (_g104872104906_ - (lambda (_g104874104886_) + _g104878104884_)))) + (_g104876104910_ + (lambda (_g104878104890_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104874104886_)) - (let ((_e104878104888_ + (gx#stx-pair? _g104878104890_)) + (let ((_e104882104892_ (let () (declare (not safe)) - (gx#stx-e _g104874104886_)))) - (let ((_hd104877104891_ + (gx#stx-e _g104878104890_)))) + (let ((_hd104881104895_ (let () (declare (not safe)) - (##car _e104878104888_))) - (_tl104876104893_ + (##car _e104882104892_))) + (_tl104880104897_ (let () (declare (not safe)) - (##cdr _e104878104888_)))) - ((lambda (_L104896_) - (let ((__tmp114963 + (##cdr _e104882104892_)))) + ((lambda (_L104900_) + (let ((__tmp114967 (map gxc#generate-runtime-identifier - _L104896_))) + _L104900_))) (declare (not safe)) - (cons '%#provide __tmp114963))) - _tl104876104893_))) + (cons '%#provide __tmp114967))) + _tl104880104897_))) (let () (declare (not safe)) - (_g104873104883_ _g104874104886_)))))) + (_g104877104887_ _g104878104890_)))))) (declare (not safe)) - (_g104872104906_ _stx104871_)))) + (_g104876104910_ _stx104875_)))) (define gxc#generate-meta-extern% - (lambda (_self104741_ _stx104742_) - (letrec ((_generate1104744_ - (lambda (_id104865_ _eid104866_) - (let ((_eid104868_ + (lambda (_self104745_ _stx104746_) + (letrec ((_generate1104748_ + (lambda (_id104869_ _eid104870_) + (let ((_eid104872_ (let () (declare (not safe)) - (gx#stx-e _eid104866_)))) - (if (interned-symbol? _eid104868_) + (gx#stx-e _eid104870_)))) + (if (interned-symbol? _eid104872_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _stx104742_ - _eid104868_))) - (let ((__tmp114965 + _stx104746_ + _eid104872_))) + (let ((__tmp114969 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id104865_))) - (__tmp114964 + (gxc#generate-runtime-identifier _id104869_))) + (__tmp114968 (let () (declare (not safe)) - (cons _eid104868_ '())))) + (cons _eid104872_ '())))) (declare (not safe)) - (cons __tmp114965 __tmp114964)))))) - (let* ((_g104746104774_ - (lambda (_g104747104771_) + (cons __tmp114969 __tmp114968)))))) + (let* ((_g104750104778_ + (lambda (_g104751104775_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104747104771_)))) - (_g104745104862_ - (lambda (_g104747104777_) + _g104751104775_)))) + (_g104749104866_ + (lambda (_g104751104781_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104747104777_)) - (let ((_e104752104779_ + (gx#stx-pair? _g104751104781_)) + (let ((_e104756104783_ (let () (declare (not safe)) - (gx#stx-e _g104747104777_)))) - (let ((_hd104751104782_ + (gx#stx-e _g104751104781_)))) + (let ((_hd104755104786_ (let () (declare (not safe)) - (##car _e104752104779_))) - (_tl104750104784_ + (##car _e104756104783_))) + (_tl104754104788_ (let () (declare (not safe)) - (##cdr _e104752104779_)))) + (##cdr _e104756104783_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl104750104784_)) - (let ((_g114966_ + (gx#stx-pair/null? _tl104754104788_)) + (let ((_g114970_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl104750104784_ + _tl104754104788_ '0)))) (begin - (let ((_g114967_ + (let ((_g114971_ (let () (declare (not safe)) - (if (##values? _g114966_) - (##vector-length _g114966_) + (if (##values? _g114970_) + (##vector-length _g114970_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114967_ 2))) + (##fx= _g114971_ 2))) (error "Context expects 2 values" - _g114967_))) - (let ((_target104753104787_ + _g114971_))) + (let ((_target104757104791_ (let () (declare (not safe)) - (##vector-ref _g114966_ 0))) - (_tl104755104789_ + (##vector-ref _g114970_ 0))) + (_tl104759104793_ (let () (declare (not safe)) - (##vector-ref _g114966_ 1)))) + (##vector-ref _g114970_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104755104789_)) - (letrec ((_loop104756104792_ - (lambda (_hd104754104795_ - _eid104760104797_ - _id104761104799_) + (gx#stx-null? _tl104759104793_)) + (letrec ((_loop104760104796_ + (lambda (_hd104758104799_ + _eid104764104801_ + _id104765104803_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd104754104795_)) - (let ((_e104757104802_ + _hd104758104799_)) + (let ((_e104761104806_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd104754104795_)))) - (let ((_lp-hd104758104805_ + (gx#stx-e _hd104758104799_)))) + (let ((_lp-hd104762104809_ (let () (declare (not safe)) - (##car _e104757104802_))) - (_lp-tl104759104807_ + (##car _e104761104806_))) + (_lp-tl104763104811_ (let () (declare (not safe)) - (##cdr _e104757104802_)))) + (##cdr _e104761104806_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd104758104805_)) - (let ((_e104766104810_ + (gx#stx-pair? _lp-hd104762104809_)) + (let ((_e104770104814_ (let () (declare (not safe)) - (gx#stx-e _lp-hd104758104805_)))) - (let ((_hd104765104813_ + (gx#stx-e _lp-hd104762104809_)))) + (let ((_hd104769104817_ (let () (declare (not safe)) - (##car _e104766104810_))) - (_tl104764104815_ + (##car _e104770104814_))) + (_tl104768104819_ (let () (declare (not safe)) - (##cdr _e104766104810_)))) + (##cdr _e104770104814_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104764104815_)) - (let ((_e104769104818_ + (gx#stx-pair? _tl104768104819_)) + (let ((_e104773104822_ (let () (declare (not safe)) - (gx#stx-e _tl104764104815_)))) - (let ((_hd104768104821_ + (gx#stx-e _tl104768104819_)))) + (let ((_hd104772104825_ (let () (declare (not safe)) - (##car _e104769104818_))) - (_tl104767104823_ + (##car _e104773104822_))) + (_tl104771104827_ (let () (declare (not safe)) - (##cdr _e104769104818_)))) + (##cdr _e104773104822_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104767104823_)) - (let ((__tmp114972 + (gx#stx-null? _tl104771104827_)) + (let ((__tmp114976 (let () (declare (not safe)) - (cons _hd104768104821_ - _eid104760104797_))) - (__tmp114971 + (cons _hd104772104825_ + _eid104764104801_))) + (__tmp114975 (let () (declare (not safe)) - (cons _hd104765104813_ - _id104761104799_)))) + (cons _hd104769104817_ + _id104765104803_)))) (declare (not safe)) - (_loop104756104792_ - _lp-tl104759104807_ - __tmp114972 - __tmp114971)) + (_loop104760104796_ + _lp-tl104763104811_ + __tmp114976 + __tmp114975)) (let () (declare (not safe)) - (_g104746104774_ - _g104747104777_))))) + (_g104750104778_ + _g104751104781_))))) (let () (declare (not safe)) - (_g104746104774_ _g104747104777_))))) + (_g104750104778_ _g104751104781_))))) (let () (declare (not safe)) - (_g104746104774_ _g104747104777_))))) - (let ((_eid104762104826_ (reverse _eid104760104797_)) - (_id104763104828_ (reverse _id104761104799_))) - ((lambda (_L104831_ _L104832_) - (let ((__tmp114968 - (map _generate1104744_ - (let ((__tmp114969 - (lambda (_g104847104850_ - _g104848104852_) + (_g104750104778_ _g104751104781_))))) + (let ((_eid104766104830_ (reverse _eid104764104801_)) + (_id104767104832_ (reverse _id104765104803_))) + ((lambda (_L104835_ _L104836_) + (let ((__tmp114972 + (map _generate1104748_ + (let ((__tmp114973 + (lambda (_g104851104854_ + _g104852104856_) (let () (declare (not safe)) - (cons _g104847104850_ - _g104848104852_))))) + (cons _g104851104854_ + _g104852104856_))))) (declare (not safe)) - (foldr1 __tmp114969 '() _L104832_)) - (let ((__tmp114970 - (lambda (_g104854104857_ - _g104855104859_) + (foldr1 __tmp114973 '() _L104836_)) + (let ((__tmp114974 + (lambda (_g104858104861_ + _g104859104863_) (let () (declare (not safe)) - (cons _g104854104857_ - _g104855104859_))))) + (cons _g104858104861_ + _g104859104863_))))) (declare (not safe)) - (foldr1 __tmp114970 '() _L104831_))))) + (foldr1 __tmp114974 '() _L104835_))))) (declare (not safe)) - (cons '%#extern __tmp114968))) - _eid104762104826_ - _id104763104828_)))))) + (cons '%#extern __tmp114972))) + _eid104766104830_ + _id104767104832_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop104756104792_ - _target104753104787_ + (_loop104760104796_ + _target104757104791_ '() '()))) (let () (declare (not safe)) - (_g104746104774_ - _g104747104777_)))))) + (_g104750104778_ + _g104751104781_)))))) (let () (declare (not safe)) - (_g104746104774_ _g104747104777_))))) + (_g104750104778_ _g104751104781_))))) (let () (declare (not safe)) - (_g104746104774_ _g104747104777_)))))) + (_g104750104778_ _g104751104781_)))))) (declare (not safe)) - (_g104745104862_ _stx104742_))))) + (_g104749104866_ _stx104746_))))) (define gxc#generate-meta-define-values% - (lambda (_self104531_ _stx104532_) - (letrec ((_generate1104534_ - (lambda (_id104736_) - (let ((_eid104738_ + (lambda (_self104535_ _stx104536_) + (letrec ((_generate1104538_ + (lambda (_id104740_) + (let ((_eid104742_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id104736_))) - (_ident104739_ + (gxc#generate-runtime-binding-id _id104740_))) + (_ident104743_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id104736_)))) - (let ((__tmp114973 - (let ((__tmp114974 + (gxc#generate-runtime-identifier _id104740_)))) + (let ((__tmp114977 + (let ((__tmp114978 (let () (declare (not safe)) - (cons _eid104738_ '())))) + (cons _eid104742_ '())))) (declare (not safe)) - (cons _ident104739_ __tmp114974)))) + (cons _ident104743_ __tmp114978)))) (declare (not safe)) - (cons '%#define-runtime __tmp114973))))) - (_generate*104535_ - (lambda (_all104704_) - (let* ((_all104705104713_ _all104704_) - (_else104707104721_ + (cons '%#define-runtime __tmp114977))))) + (_generate*104539_ + (lambda (_all104708_) + (let* ((_all104709104717_ _all104708_) + (_else104711104725_ (lambda () (let () (declare (not safe)) - (cons '%#begin _all104704_)))) - (_K104709104726_ - (lambda (_one104724_) _one104724_))) + (cons '%#begin _all104708_)))) + (_K104713104730_ + (lambda (_one104728_) _one104728_))) (if (let () (declare (not safe)) - (##pair? _all104705104713_)) - (let ((_hd104710104729_ + (##pair? _all104709104717_)) + (let ((_hd104714104733_ (let () (declare (not safe)) - (##car _all104705104713_))) - (_tl104711104731_ + (##car _all104709104717_))) + (_tl104715104735_ (let () (declare (not safe)) - (##cdr _all104705104713_)))) - (let ((_one104734_ _hd104710104729_)) + (##cdr _all104709104717_)))) + (let ((_one104738_ _hd104714104733_)) (if (let () (declare (not safe)) - (##null? _tl104711104731_)) + (##null? _tl104715104735_)) (let () (declare (not safe)) - (_K104709104726_ _one104734_)) + (_K104713104730_ _one104738_)) (let () (declare (not safe)) - (_else104707104721_))))) + (_else104711104725_))))) (let () (declare (not safe)) - (_else104707104721_))))))) - (let* ((_g104537104554_ - (lambda (_g104538104551_) + (_else104711104725_))))))) + (let* ((_g104541104558_ + (lambda (_g104542104555_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104538104551_)))) - (_g104536104701_ - (lambda (_g104538104557_) + _g104542104555_)))) + (_g104540104705_ + (lambda (_g104542104561_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104538104557_)) - (let ((_e104543104559_ + (gx#stx-pair? _g104542104561_)) + (let ((_e104547104563_ (let () (declare (not safe)) - (gx#stx-e _g104538104557_)))) - (let ((_hd104542104562_ + (gx#stx-e _g104542104561_)))) + (let ((_hd104546104566_ (let () (declare (not safe)) - (##car _e104543104559_))) - (_tl104541104564_ + (##car _e104547104563_))) + (_tl104545104568_ (let () (declare (not safe)) - (##cdr _e104543104559_)))) + (##cdr _e104547104563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104541104564_)) - (let ((_e104546104567_ + (gx#stx-pair? _tl104545104568_)) + (let ((_e104550104571_ (let () (declare (not safe)) - (gx#stx-e _tl104541104564_)))) - (let ((_hd104545104570_ + (gx#stx-e _tl104545104568_)))) + (let ((_hd104549104574_ (let () (declare (not safe)) - (##car _e104546104567_))) - (_tl104544104572_ + (##car _e104550104571_))) + (_tl104548104576_ (let () (declare (not safe)) - (##cdr _e104546104567_)))) + (##cdr _e104550104571_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104544104572_)) - (let ((_e104549104575_ + (gx#stx-pair? _tl104548104576_)) + (let ((_e104553104579_ (let () (declare (not safe)) - (gx#stx-e _tl104544104572_)))) - (let ((_hd104548104578_ + (gx#stx-e _tl104548104576_)))) + (let ((_hd104552104582_ (let () (declare (not safe)) - (##car _e104549104575_))) - (_tl104547104580_ + (##car _e104553104579_))) + (_tl104551104584_ (let () (declare (not safe)) - (##cdr _e104549104575_)))) + (##cdr _e104553104579_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104547104580_)) - ((lambda (_L104583_ _L104584_) - (let _lp104600_ ((_rest104602_ + _tl104551104584_)) + ((lambda (_L104587_ _L104588_) + (let _lp104604_ ((_rest104606_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L104584_) - (_r104603_ '())) + _L104588_) + (_r104607_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((___stx114117114118_ - _rest104602_) - (_g104608104625_ + (let* ((___stx114121114122_ + _rest104606_) + (_g104612104629_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -16336,185 +16336,185 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx114117114118_))))) - (let ((___kont114119114120_ - (lambda (_L104688_) + ___stx114121114122_))))) + (let ((___kont114123114124_ + (lambda (_L104692_) (let () (declare (not safe)) - (_lp104600_ _L104688_ _r104603_)))) - (___kont114121114122_ - (lambda (_L104661_ _L104662_) - (let ((__tmp114975 - (let ((__tmp114976 + (_lp104604_ _L104692_ _r104607_)))) + (___kont114125114126_ + (lambda (_L104665_ _L104666_) + (let ((__tmp114979 + (let ((__tmp114980 (let () (declare (not safe)) - (_generate1104534_ _L104662_)))) + (_generate1104538_ _L104666_)))) (declare (not safe)) - (cons __tmp114976 _r104603_)))) + (cons __tmp114980 _r104607_)))) (declare (not safe)) - (_lp104600_ _L104661_ __tmp114975)))) - (___kont114123114124_ - (lambda (_L104637_) - (let ((__tmp114977 - (let ((__tmp114978 - (let ((__tmp114979 + (_lp104604_ _L104665_ __tmp114979)))) + (___kont114127114128_ + (lambda (_L104641_) + (let ((__tmp114981 + (let ((__tmp114982 + (let ((__tmp114983 (let () (declare (not safe)) - (_generate1104534_ _L104637_)))) + (_generate1104538_ _L104641_)))) (declare (not safe)) - (cons __tmp114979 '())))) + (cons __tmp114983 '())))) (declare (not safe)) - (foldl1 cons __tmp114978 _r104603_)))) + (foldl1 cons __tmp114982 _r104607_)))) (declare (not safe)) - (_generate*104535_ __tmp114977)))) - (___kont114125114126_ + (_generate*104539_ __tmp114981)))) + (___kont114129114130_ (lambda () - (let ((__tmp114980 (reverse _r104603_))) + (let ((__tmp114984 (reverse _r104607_))) (declare (not safe)) - (_generate*104535_ __tmp114980))))) - (let ((_g104606104648_ + (_generate*104539_ __tmp114984))))) + (let ((_g104610104652_ (lambda () - (let ((_L104637_ ___stx114117114118_)) + (let ((_L104641_ ___stx114121114122_)) (if (let () (declare (not safe)) - (gx#identifier? _L104637_)) - (___kont114123114124_ _L104637_) - (___kont114125114126_)))))) + (gx#identifier? _L104641_)) + (___kont114127114128_ _L104641_) + (___kont114129114130_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx114117114118_)) - (let ((_e104613104677_ + (gx#stx-pair? ___stx114121114122_)) + (let ((_e104617104681_ (let () (declare (not safe)) - (gx#stx-e ___stx114117114118_)))) - (let ((_tl104611104682_ + (gx#stx-e ___stx114121114122_)))) + (let ((_tl104615104686_ (let () (declare (not safe)) - (##cdr _e104613104677_))) - (_hd104612104680_ + (##cdr _e104617104681_))) + (_hd104616104684_ (let () (declare (not safe)) - (##car _e104613104677_)))) + (##car _e104617104681_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd104612104680_)) - (let ((_e104614104685_ + (gx#stx-datum? _hd104616104684_)) + (let ((_e104618104689_ (let () (declare (not safe)) - (gx#stx-e _hd104612104680_)))) + (gx#stx-e _hd104616104684_)))) (if (let () (declare (not safe)) - (equal? _e104614104685_ '#f)) - (___kont114119114120_ _tl104611104682_) - (___kont114121114122_ - _tl104611104682_ - _hd104612104680_))) - (___kont114121114122_ - _tl104611104682_ - _hd104612104680_)))) - (let () (declare (not safe)) (_g104606104648_)))))))) + (equal? _e104618104689_ '#f)) + (___kont114123114124_ _tl104615104686_) + (___kont114125114126_ + _tl104615104686_ + _hd104616104684_))) + (___kont114125114126_ + _tl104615104686_ + _hd104616104684_)))) + (let () (declare (not safe)) (_g104610104652_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd104548104578_ - _hd104545104570_) + _hd104552104582_ + _hd104549104574_) (let () (declare (not safe)) - (_g104537104554_ - _g104538104557_))))) + (_g104541104558_ + _g104542104561_))))) (let () (declare (not safe)) - (_g104537104554_ _g104538104557_))))) + (_g104541104558_ _g104542104561_))))) (let () (declare (not safe)) - (_g104537104554_ _g104538104557_))))) + (_g104541104558_ _g104542104561_))))) (let () (declare (not safe)) - (_g104537104554_ _g104538104557_)))))) + (_g104541104558_ _g104542104561_)))))) (declare (not safe)) - (_g104536104701_ _stx104532_))))) + (_g104540104705_ _stx104536_))))) (define gxc#generate-meta-define-syntax% - (lambda (_self104428_ _stx104429_) - (let* ((_g104431104448_ - (lambda (_g104432104445_) + (lambda (_self104432_ _stx104433_) + (let* ((_g104435104452_ + (lambda (_g104436104449_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104432104445_)))) - (_g104430104528_ - (lambda (_g104432104451_) + _g104436104449_)))) + (_g104434104532_ + (lambda (_g104436104455_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104432104451_)) - (let ((_e104437104453_ + (gx#stx-pair? _g104436104455_)) + (let ((_e104441104457_ (let () (declare (not safe)) - (gx#stx-e _g104432104451_)))) - (let ((_hd104436104456_ + (gx#stx-e _g104436104455_)))) + (let ((_hd104440104460_ (let () (declare (not safe)) - (##car _e104437104453_))) - (_tl104435104458_ + (##car _e104441104457_))) + (_tl104439104462_ (let () (declare (not safe)) - (##cdr _e104437104453_)))) + (##cdr _e104441104457_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104435104458_)) - (let ((_e104440104461_ + (gx#stx-pair? _tl104439104462_)) + (let ((_e104444104465_ (let () (declare (not safe)) - (gx#stx-e _tl104435104458_)))) - (let ((_hd104439104464_ + (gx#stx-e _tl104439104462_)))) + (let ((_hd104443104468_ (let () (declare (not safe)) - (##car _e104440104461_))) - (_tl104438104466_ + (##car _e104444104465_))) + (_tl104442104470_ (let () (declare (not safe)) - (##cdr _e104440104461_)))) + (##cdr _e104444104465_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104438104466_)) - (let ((_e104443104469_ + (gx#stx-pair? _tl104442104470_)) + (let ((_e104447104473_ (let () (declare (not safe)) - (gx#stx-e _tl104438104466_)))) - (let ((_hd104442104472_ + (gx#stx-e _tl104442104470_)))) + (let ((_hd104446104476_ (let () (declare (not safe)) - (##car _e104443104469_))) - (_tl104441104474_ + (##car _e104447104473_))) + (_tl104445104478_ (let () (declare (not safe)) - (##cdr _e104443104469_)))) + (##cdr _e104447104473_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104441104474_)) - ((lambda (_L104477_ _L104478_) - (let* ((_eid104493_ + _tl104445104478_)) + ((lambda (_L104481_ _L104482_) + (let* ((_eid104497_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L104478_))) - (_phi104495_ - (let ((__tmp114981 + _L104482_))) + (_phi104499_ + (let ((__tmp114985 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp114981 + (fx+ __tmp114985 '1))) - (_block104497_ - (let ((__tmp114982 + (_block104501_ + (let ((__tmp114986 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _self104428_ 'state)))) + (slot-ref__0 _self104432_ 'state)))) (declare (not safe)) - (gxc#meta-state-begin-phi! __tmp114982 _phi104495_)))) + (gxc#meta-state-begin-phi! __tmp114986 _phi104499_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g104500104507_ - (lambda (_g104501104504_) + (let* ((_g104504104511_ + (lambda (_g104505104508_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -16522,265 +16522,265 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104501104504_)))) - (_g104499104525_ - (lambda (_g104501104510_) - ((lambda (_L104512_) + _g104505104508_)))) + (_g104503104529_ + (lambda (_g104505104514_) + ((lambda (_L104516_) (let () - (let ((__tmp114987 + (let ((__tmp114991 (let () (declare (not safe)) - (slot-ref__0 _self104428_ 'state))) - (__tmp114983 - (let ((__tmp114986 + (slot-ref__0 _self104432_ 'state))) + (__tmp114987 + (let ((__tmp114990 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime))) - (__tmp114984 - (let ((__tmp114985 + (__tmp114988 + (let ((__tmp114989 (let () (declare (not safe)) - (cons _L104477_ '())))) + (cons _L104481_ '())))) (declare (not safe)) - (cons _L104512_ __tmp114985)))) + (cons _L104516_ __tmp114989)))) (declare (not safe)) - (cons __tmp114986 __tmp114984)))) + (cons __tmp114990 __tmp114988)))) (declare (not safe)) (gxc#meta-state-add-phi! - __tmp114987 - _phi104495_ - __tmp114983)))) - _g104501104510_)))) + __tmp114991 + _phi104499_ + __tmp114987)))) + _g104505104514_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g104499104525_ - _eid104493_)) - (if _block104497_ - (let ((__tmp114991 - (let ((__tmp114997 + (_g104503104529_ + _eid104497_)) + (if _block104501_ + (let ((__tmp114995 + (let ((__tmp115001 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114998 - (let ((__tmp114999 - (let ((__tmp115000 - (let ((__tmp115004 - (let ((__tmp115005 + (let ((__tmp115002 + (let ((__tmp115003 + (let ((__tmp115004 + (let ((__tmp115008 + (let ((__tmp115009 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp115005))) - (__tmp115001 - (let ((__tmp115002 - (let ((__tmp115003 + (cons '%#ref __tmp115009))) + (__tmp115005 + (let ((__tmp115006 + (let ((__tmp115007 (let () (declare (not safe)) - (cons _block104497_ '())))) + (cons _block104501_ '())))) (declare (not safe)) - (cons '%#quote __tmp115003)))) + (cons '%#quote __tmp115007)))) (declare (not safe)) - (cons __tmp115002 '())))) + (cons __tmp115006 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115004 - __tmp115001)))) + (cons __tmp115008 + __tmp115005)))) (declare (not safe)) - (cons '%#call __tmp115000)))) + (cons '%#call __tmp115004)))) (declare (not safe)) - (cons __tmp114999 '())))) + (cons __tmp115003 '())))) (declare (not safe)) - (cons '%#begin-syntax __tmp114998))) - (__tmp114992 - (let ((__tmp114993 - (let ((__tmp114994 - (let ((__tmp114996 + (cons '%#begin-syntax __tmp115002))) + (__tmp114996 + (let ((__tmp114997 + (let ((__tmp114998 + (let ((__tmp115000 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L104478_))) - (__tmp114995 + _L104482_))) + (__tmp114999 (let () (declare (not safe)) - (cons _eid104493_ '())))) + (cons _eid104497_ '())))) (declare (not safe)) - (cons __tmp114996 __tmp114995)))) + (cons __tmp115000 __tmp114999)))) (declare (not safe)) - (cons '%#define-syntax __tmp114994)))) + (cons '%#define-syntax __tmp114998)))) (declare (not safe)) - (cons __tmp114993 '())))) + (cons __tmp114997 '())))) (declare (not safe)) - (cons __tmp114997 __tmp114992)))) + (cons __tmp115001 __tmp114996)))) (declare (not safe)) - (cons '%#begin __tmp114991)) - (let ((__tmp114988 - (let ((__tmp114990 + (cons '%#begin __tmp114995)) + (let ((__tmp114992 + (let ((__tmp114994 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L104478_))) - (__tmp114989 + (gxc#generate-runtime-identifier _L104482_))) + (__tmp114993 (let () (declare (not safe)) - (cons _eid104493_ '())))) + (cons _eid104497_ '())))) (declare (not safe)) - (cons __tmp114990 __tmp114989)))) + (cons __tmp114994 __tmp114993)))) (declare (not safe)) - (cons '%#define-syntax __tmp114988))))) + (cons '%#define-syntax __tmp114992))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd104442104472_ - _hd104439104464_) + _hd104446104476_ + _hd104443104468_) (let () (declare (not safe)) - (_g104431104448_ - _g104432104451_))))) + (_g104435104452_ + _g104436104455_))))) (let () (declare (not safe)) - (_g104431104448_ _g104432104451_))))) + (_g104435104452_ _g104436104455_))))) (let () (declare (not safe)) - (_g104431104448_ _g104432104451_))))) + (_g104435104452_ _g104436104455_))))) (let () (declare (not safe)) - (_g104431104448_ _g104432104451_)))))) + (_g104435104452_ _g104436104455_)))))) (declare (not safe)) - (_g104430104528_ _stx104429_)))) + (_g104434104532_ _stx104433_)))) (define gxc#generate-meta-define-alias% - (lambda (_self104360_ _stx104361_) - (let* ((_g104363104380_ - (lambda (_g104364104377_) + (lambda (_self104364_ _stx104365_) + (let* ((_g104367104384_ + (lambda (_g104368104381_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104364104377_)))) - (_g104362104425_ - (lambda (_g104364104383_) + _g104368104381_)))) + (_g104366104429_ + (lambda (_g104368104387_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104364104383_)) - (let ((_e104369104385_ + (gx#stx-pair? _g104368104387_)) + (let ((_e104373104389_ (let () (declare (not safe)) - (gx#stx-e _g104364104383_)))) - (let ((_hd104368104388_ + (gx#stx-e _g104368104387_)))) + (let ((_hd104372104392_ (let () (declare (not safe)) - (##car _e104369104385_))) - (_tl104367104390_ + (##car _e104373104389_))) + (_tl104371104394_ (let () (declare (not safe)) - (##cdr _e104369104385_)))) + (##cdr _e104373104389_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104367104390_)) - (let ((_e104372104393_ + (gx#stx-pair? _tl104371104394_)) + (let ((_e104376104397_ (let () (declare (not safe)) - (gx#stx-e _tl104367104390_)))) - (let ((_hd104371104396_ + (gx#stx-e _tl104371104394_)))) + (let ((_hd104375104400_ (let () (declare (not safe)) - (##car _e104372104393_))) - (_tl104370104398_ + (##car _e104376104397_))) + (_tl104374104402_ (let () (declare (not safe)) - (##cdr _e104372104393_)))) + (##cdr _e104376104397_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104370104398_)) - (let ((_e104375104401_ + (gx#stx-pair? _tl104374104402_)) + (let ((_e104379104405_ (let () (declare (not safe)) - (gx#stx-e _tl104370104398_)))) - (let ((_hd104374104404_ + (gx#stx-e _tl104374104402_)))) + (let ((_hd104378104408_ (let () (declare (not safe)) - (##car _e104375104401_))) - (_tl104373104406_ + (##car _e104379104405_))) + (_tl104377104410_ (let () (declare (not safe)) - (##cdr _e104375104401_)))) + (##cdr _e104379104405_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104373104406_)) - ((lambda (_L104409_ _L104410_) - (let ((__tmp115006 - (let ((__tmp115009 + _tl104377104410_)) + ((lambda (_L104413_ _L104414_) + (let ((__tmp115010 + (let ((__tmp115013 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-identifier _L104410_))) - (__tmp115007 - (let ((__tmp115008 + (gxc#generate-runtime-identifier _L104414_))) + (__tmp115011 + (let ((__tmp115012 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L104409_)))) + (gxc#generate-runtime-identifier _L104413_)))) (declare (not safe)) - (cons __tmp115008 '())))) + (cons __tmp115012 '())))) (declare (not safe)) - (cons __tmp115009 __tmp115007)))) + (cons __tmp115013 __tmp115011)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#define-alias - __tmp115006))) - _hd104374104404_ - _hd104371104396_) + __tmp115010))) + _hd104378104408_ + _hd104375104400_) (let () (declare (not safe)) - (_g104363104380_ - _g104364104383_))))) + (_g104367104384_ + _g104368104387_))))) (let () (declare (not safe)) - (_g104363104380_ _g104364104383_))))) + (_g104367104384_ _g104368104387_))))) (let () (declare (not safe)) - (_g104363104380_ _g104364104383_))))) + (_g104367104384_ _g104368104387_))))) (let () (declare (not safe)) - (_g104363104380_ _g104364104383_)))))) + (_g104367104384_ _g104368104387_)))))) (declare (not safe)) - (_g104362104425_ _stx104361_)))) + (_g104366104429_ _stx104365_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_self104357_ _stx104358_) - (let ((__tmp115011 - (let () (declare (not safe)) (slot-ref__0 _self104357_ 'state))) - (__tmp115010 (gx#current-expander-phi))) + (lambda (_self104361_ _stx104362_) + (let ((__tmp115015 + (let () (declare (not safe)) (slot-ref__0 _self104361_ 'state))) + (__tmp115014 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! __tmp115011 __tmp115010 _stx104358_)) + (gxc#meta-state-add-phi! __tmp115015 __tmp115014 _stx104362_)) (let () (declare (not safe)) - (gxc#generate-meta-define-values% _self104357_ _stx104358_)))) + (gxc#generate-meta-define-values% _self104361_ _stx104362_)))) (define gxc#generate-meta-phi-expr - (lambda (_self104354_ _stx104355_) - (let ((__tmp115013 - (let () (declare (not safe)) (slot-ref__0 _self104354_ 'state))) - (__tmp115012 (gx#current-expander-phi))) + (lambda (_self104358_ _stx104359_) + (let ((__tmp115017 + (let () (declare (not safe)) (slot-ref__0 _self104358_ 'state))) + (__tmp115016 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! __tmp115013 __tmp115012 _stx104355_)) + (gxc#meta-state-add-phi! __tmp115017 __tmp115016 _stx104359_)) '#!void)) (define gxc#meta-state::t - (let ((__tmp115016 (list)) - (__tmp115014 - (let ((__tmp115015 + (let ((__tmp115020 (list)) + (__tmp115018 + (let ((__tmp115019 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp115015 '())))) + (cons __tmp115019 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state::t 'meta-state - __tmp115016 + __tmp115020 '(src n open blocks) - __tmp115014 + __tmp115018 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args104351_ - (apply make-instance gxc#meta-state::t _$args104351_))) + (lambda _$args104355_ + (apply make-instance gxc#meta-state::t _$args104355_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -16846,103 +16846,103 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_self104348_ _ctx104349_) - (if (let ((__tmp115025 + (lambda (_self104352_ _ctx104353_) + (if (let ((__tmp115029 (let () (declare (not safe)) - (##structure-length _self104348_)))) + (##structure-length _self104352_)))) (declare (not safe)) - (##fx< '4 __tmp115025)) + (##fx< '4 __tmp115029)) (begin - (let ((__tmp115019 - (let ((__tmp115020 + (let ((__tmp115023 + (let ((__tmp115024 (##structure-ref - _ctx104349_ + _ctx104353_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp115020))) - (__tmp115018 + (gxc#module-id->path-string __tmp115024))) + (__tmp115022 (let () (declare (not safe)) - (##structure-type _self104348_)))) + (##structure-type _self104352_)))) (declare (not safe)) (##unchecked-structure-set! - _self104348_ - __tmp115019 + _self104352_ + __tmp115023 '1 - __tmp115018 + __tmp115022 '#f)) - (let ((__tmp115021 + (let ((__tmp115025 (let () (declare (not safe)) - (##structure-type _self104348_)))) + (##structure-type _self104352_)))) (declare (not safe)) (##unchecked-structure-set! - _self104348_ + _self104352_ '1 '2 - __tmp115021 + __tmp115025 '#f)) - (let ((__tmp115023 + (let ((__tmp115027 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp115022 + (__tmp115026 (let () (declare (not safe)) - (##structure-type _self104348_)))) + (##structure-type _self104352_)))) (declare (not safe)) (##unchecked-structure-set! - _self104348_ - __tmp115023 + _self104352_ + __tmp115027 '3 - __tmp115022 + __tmp115026 '#f)) - (let ((__tmp115024 + (let ((__tmp115028 (let () (declare (not safe)) - (##structure-type _self104348_)))) + (##structure-type _self104352_)))) (declare (not safe)) (##unchecked-structure-set! - _self104348_ + _self104352_ '() '4 - __tmp115024 + __tmp115028 '#f))) - (let ((__tmp115017 + (let ((__tmp115021 (let () (declare (not safe)) - (##vector-length _self104348_)))) + (##vector-length _self104352_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self104348_ + _self104352_ '4 - __tmp115017))))) + __tmp115021))))) (let () (declare (not safe)) (bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp115028 (list)) - (__tmp115026 - (let ((__tmp115027 + (let ((__tmp115032 (list)) + (__tmp115030 + (let ((__tmp115031 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp115027 '())))) + (cons __tmp115031 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp115028 + __tmp115032 '(ctx phi n code) - __tmp115026 + __tmp115030 '#f))) (define gxc#meta-state-block? (let () (declare (not safe)) (make-class-predicate gxc#meta-state-block::t))) (define gxc#make-meta-state-block - (lambda _$args104223_ - (apply make-instance gxc#meta-state-block::t _$args104223_))) + (lambda _$args104227_ + (apply make-instance gxc#meta-state-block::t _$args104227_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -17008,382 +17008,382 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_state104182_ _phi104183_) - (let* ((_state104184104192_ _state104182_) - (_E104186104196_ + (lambda (_state104186_ _phi104187_) + (let* ((_state104188104196_ _state104186_) + (_E104190104200_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _state104184104192_)))) - (_K104187104205_ - (lambda (_open104199_ _n104200_ _src104201_) + (error '"No clause matching" _state104188104196_)))) + (_K104191104209_ + (lambda (_open104203_ _n104204_ _src104205_) (if (let () (declare (not safe)) - (hash-get _open104199_ _phi104183_)) + (hash-get _open104203_ _phi104187_)) '#f - (let ((_block-ref104203_ + (let ((_block-ref104207_ (string-append - _src104201_ + _src104205_ '"~" - (number->string _n104200_)))) + (number->string _n104204_)))) (##structure-set! - _state104182_ - (let () (declare (not safe)) (fx+ _n104200_ '1)) + _state104186_ + (let () (declare (not safe)) (fx+ _n104204_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp115029 - (let ((__tmp115030 + (let ((__tmp115033 + (let ((__tmp115034 (gx#current-expander-context))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp115030 - _phi104183_ - _n104200_ + __tmp115034 + _phi104187_ + _n104204_ '())))) (declare (not safe)) - (hash-put! _open104199_ _phi104183_ __tmp115029)) - _block-ref104203_))))) + (hash-put! _open104203_ _phi104187_ __tmp115033)) + _block-ref104207_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _state104184104192_ + _state104188104196_ 'gxc#meta-state::t)) - (let* ((_e104188104208_ + (let* ((_e104192104212_ (let () (declare (not safe)) (##unchecked-structure-ref - _state104184104192_ + _state104188104196_ '1 gxc#meta-state::t '#f))) - (_src104211_ _e104188104208_) - (_e104189104213_ + (_src104215_ _e104192104212_) + (_e104193104217_ (let () (declare (not safe)) (##unchecked-structure-ref - _state104184104192_ + _state104188104196_ '2 gxc#meta-state::t '#f))) - (_n104216_ _e104189104213_) - (_e104190104218_ + (_n104220_ _e104193104217_) + (_e104194104222_ (let () (declare (not safe)) (##unchecked-structure-ref - _state104184104192_ + _state104188104196_ '3 gxc#meta-state::t '#f))) - (_open104221_ _e104190104218_)) + (_open104225_ _e104194104222_)) (declare (not safe)) - (_K104187104205_ _open104221_ _n104216_ _src104211_)) - (let () (declare (not safe)) (_E104186104196_)))))) + (_K104191104209_ _open104225_ _n104220_ _src104215_)) + (let () (declare (not safe)) (_E104190104200_)))))) (define gxc#meta-state-add-phi! - (lambda (_state104176_ _phi104177_ _stx104178_) - (let ((_block104180_ - (let ((__tmp115031 + (lambda (_state104180_ _phi104181_ _stx104182_) + (let ((_block104184_ + (let ((__tmp115035 (##structure-ref - _state104176_ + _state104180_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp115031 _phi104177_)))) + (hash-get __tmp115035 _phi104181_)))) (##structure-set! - _block104180_ - (let ((__tmp115032 + _block104184_ + (let ((__tmp115036 (##structure-ref - _block104180_ + _block104184_ '4 gxc#meta-state-block::t '#f))) (declare (not safe)) - (cons _stx104178_ __tmp115032)) + (cons _stx104182_ __tmp115036)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state104171_) + (lambda (_state104175_) (##structure-set! - _state104171_ - (let ((__tmp115035 - (lambda (_g115036_ _block104173_ _r104174_) + _state104175_ + (let ((__tmp115039 + (lambda (_g115040_ _block104177_ _r104178_) (let () (declare (not safe)) - (cons _block104173_ _r104174_)))) - (__tmp115034 - (##structure-ref _state104171_ '4 gxc#meta-state::t '#f)) - (__tmp115033 - (##structure-ref _state104171_ '3 gxc#meta-state::t '#f))) + (cons _block104177_ _r104178_)))) + (__tmp115038 + (##structure-ref _state104175_ '4 gxc#meta-state::t '#f)) + (__tmp115037 + (##structure-ref _state104175_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp115035 __tmp115034 __tmp115033)) + (hash-fold __tmp115039 __tmp115038 __tmp115037)) '4 gxc#meta-state::t '#f) (##structure-set! - _state104171_ + _state104175_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state104123_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state104123_)) - (let ((__tmp115038 - (lambda (_block104125_ _r104126_) - (let* ((_block104127104136_ _block104125_) - (_E104129104140_ + (lambda (_state104127_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state104127_)) + (let ((__tmp115042 + (lambda (_block104129_ _r104130_) + (let* ((_block104131104140_ _block104129_) + (_E104133104144_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block104127104136_)))) - (_K104130104148_ - (lambda (_code104143_ - _n104144_ - _phi104145_ - _ctx104146_) + _block104131104140_)))) + (_K104134104152_ + (lambda (_code104147_ + _n104148_ + _phi104149_ + _ctx104150_) (if (let () (declare (not safe)) - (null? _code104143_)) - _r104126_ - (let ((__tmp115039 - (let ((__tmp115040 - (let ((__tmp115041 - (let ((__tmp115042 - (let ((__tmp115043 + (null? _code104147_)) + _r104130_ + (let ((__tmp115043 + (let ((__tmp115044 + (let ((__tmp115045 + (let ((__tmp115046 + (let ((__tmp115047 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115044 (reverse _code104143_))) + (let ((__tmp115048 (reverse _code104147_))) (declare (not safe)) - (cons '%#begin __tmp115044)))) + (cons '%#begin __tmp115048)))) (declare (not safe)) - (cons __tmp115043 '())))) + (cons __tmp115047 '())))) (declare (not safe)) - (cons _n104144_ __tmp115042)))) + (cons _n104148_ __tmp115046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _phi104145_ - __tmp115041)))) + (cons _phi104149_ + __tmp115045)))) (declare (not safe)) - (cons _ctx104146_ __tmp115040)))) + (cons _ctx104150_ __tmp115044)))) (declare (not safe)) - (cons __tmp115039 _r104126_)))))) + (cons __tmp115043 _r104130_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _block104127104136_ + _block104131104140_ 'gxc#meta-state-block::t)) - (let* ((_e104131104151_ + (let* ((_e104135104155_ (let () (declare (not safe)) (##unchecked-structure-ref - _block104127104136_ + _block104131104140_ '1 gxc#meta-state-block::t '#f))) - (_ctx104154_ _e104131104151_) - (_e104132104156_ + (_ctx104158_ _e104135104155_) + (_e104136104160_ (let () (declare (not safe)) (##unchecked-structure-ref - _block104127104136_ + _block104131104140_ '2 gxc#meta-state-block::t '#f))) - (_phi104159_ _e104132104156_) - (_e104133104161_ + (_phi104163_ _e104136104160_) + (_e104137104165_ (let () (declare (not safe)) (##unchecked-structure-ref - _block104127104136_ + _block104131104140_ '3 gxc#meta-state-block::t '#f))) - (_n104164_ _e104133104161_) - (_e104134104166_ + (_n104168_ _e104137104165_) + (_e104138104170_ (let () (declare (not safe)) (##unchecked-structure-ref - _block104127104136_ + _block104131104140_ '4 gxc#meta-state-block::t '#f))) - (_code104169_ _e104134104166_)) + (_code104173_ _e104138104170_)) (declare (not safe)) - (_K104130104148_ - _code104169_ - _n104164_ - _phi104159_ - _ctx104154_)) - (let () (declare (not safe)) (_E104129104140_)))))) - (__tmp115037 - (##structure-ref _state104123_ '4 gxc#meta-state::t '#f))) + (_K104134104152_ + _code104173_ + _n104168_ + _phi104163_ + _ctx104158_)) + (let () (declare (not safe)) (_E104133104144_)))))) + (__tmp115041 + (##structure-ref _state104127_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (foldl1 __tmp115038 '() __tmp115037)))) + (foldl1 __tmp115042 '() __tmp115041)))) (define gxc#collect-expression-refs - (lambda (_stx104119_) - (let ((_ht104121_ (let () (declare (not safe)) (make-hash-table-eq)))) + (lambda (_stx104123_) + (let ((_ht104125_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (gxc#apply-collect-expression-refs _stx104119_ 'table: _ht104121_)) - _ht104121_))) + (gxc#apply-collect-expression-refs _stx104123_ 'table: _ht104125_)) + _ht104125_))) (define gxc#collect-refs-ref% - (lambda (_self104062_ _stx104063_) - (let* ((_g104065104078_ - (lambda (_g104066104075_) + (lambda (_self104066_ _stx104067_) + (let* ((_g104069104082_ + (lambda (_g104070104079_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104066104075_)))) - (_g104064104116_ - (lambda (_g104066104081_) + _g104070104079_)))) + (_g104068104120_ + (lambda (_g104070104085_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104066104081_)) - (let ((_e104070104083_ + (gx#stx-pair? _g104070104085_)) + (let ((_e104074104087_ (let () (declare (not safe)) - (gx#stx-e _g104066104081_)))) - (let ((_hd104069104086_ + (gx#stx-e _g104070104085_)))) + (let ((_hd104073104090_ (let () (declare (not safe)) - (##car _e104070104083_))) - (_tl104068104088_ + (##car _e104074104087_))) + (_tl104072104092_ (let () (declare (not safe)) - (##cdr _e104070104083_)))) + (##cdr _e104074104087_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104068104088_)) - (let ((_e104073104091_ + (gx#stx-pair? _tl104072104092_)) + (let ((_e104077104095_ (let () (declare (not safe)) - (gx#stx-e _tl104068104088_)))) - (let ((_hd104072104094_ + (gx#stx-e _tl104072104092_)))) + (let ((_hd104076104098_ (let () (declare (not safe)) - (##car _e104073104091_))) - (_tl104071104096_ + (##car _e104077104095_))) + (_tl104075104100_ (let () (declare (not safe)) - (##cdr _e104073104091_)))) + (##cdr _e104077104095_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104071104096_)) - ((lambda (_L104099_) - (let* ((_bind104111_ + (gx#stx-null? _tl104075104100_)) + ((lambda (_L104103_) + (let* ((_bind104115_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L104099_))) - (_eid104113_ - (if _bind104111_ + _L104103_))) + (_eid104117_ + (if _bind104115_ (##structure-ref - _bind104111_ + _bind104115_ '1 gx#binding::t '#f) (let () (declare (not safe)) - (gx#stx-e _L104099_))))) - (let ((__tmp115045 + (gx#stx-e _L104103_))))) + (let ((__tmp115049 (let () (declare (not safe)) (slot-ref__0 - _self104062_ + _self104066_ 'table)))) (declare (not safe)) (hash-put! - __tmp115045 - _eid104113_ - _eid104113_)))) - _hd104072104094_) + __tmp115049 + _eid104117_ + _eid104117_)))) + _hd104076104098_) (let () (declare (not safe)) - (_g104065104078_ _g104066104081_))))) + (_g104069104082_ _g104070104085_))))) (let () (declare (not safe)) - (_g104065104078_ _g104066104081_))))) + (_g104069104082_ _g104070104085_))))) (let () (declare (not safe)) - (_g104065104078_ _g104066104081_)))))) + (_g104069104082_ _g104070104085_)))))) (declare (not safe)) - (_g104064104116_ _stx104063_)))) + (_g104068104120_ _stx104067_)))) (define gxc#collect-refs-setq% - (lambda (_self103989_ _stx103990_) - (let* ((_g103992104009_ - (lambda (_g103993104006_) + (lambda (_self103993_ _stx103994_) + (let* ((_g103996104013_ + (lambda (_g103997104010_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103993104006_)))) - (_g103991104059_ - (lambda (_g103993104012_) + _g103997104010_)))) + (_g103995104063_ + (lambda (_g103997104016_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103993104012_)) - (let ((_e103998104014_ + (gx#stx-pair? _g103997104016_)) + (let ((_e104002104018_ (let () (declare (not safe)) - (gx#stx-e _g103993104012_)))) - (let ((_hd103997104017_ + (gx#stx-e _g103997104016_)))) + (let ((_hd104001104021_ (let () (declare (not safe)) - (##car _e103998104014_))) - (_tl103996104019_ + (##car _e104002104018_))) + (_tl104000104023_ (let () (declare (not safe)) - (##cdr _e103998104014_)))) + (##cdr _e104002104018_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103996104019_)) - (let ((_e104001104022_ + (gx#stx-pair? _tl104000104023_)) + (let ((_e104005104026_ (let () (declare (not safe)) - (gx#stx-e _tl103996104019_)))) - (let ((_hd104000104025_ + (gx#stx-e _tl104000104023_)))) + (let ((_hd104004104029_ (let () (declare (not safe)) - (##car _e104001104022_))) - (_tl103999104027_ + (##car _e104005104026_))) + (_tl104003104031_ (let () (declare (not safe)) - (##cdr _e104001104022_)))) + (##cdr _e104005104026_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103999104027_)) - (let ((_e104004104030_ + (gx#stx-pair? _tl104003104031_)) + (let ((_e104008104034_ (let () (declare (not safe)) - (gx#stx-e _tl103999104027_)))) - (let ((_hd104003104033_ + (gx#stx-e _tl104003104031_)))) + (let ((_hd104007104037_ (let () (declare (not safe)) - (##car _e104004104030_))) - (_tl104002104035_ + (##car _e104008104034_))) + (_tl104006104039_ (let () (declare (not safe)) - (##cdr _e104004104030_)))) + (##cdr _e104008104034_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104002104035_)) - ((lambda (_L104038_ _L104039_) - (let* ((_bind104054_ + _tl104006104039_)) + ((lambda (_L104042_ _L104043_) + (let* ((_bind104058_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L104039_))) - (_eid104056_ - (if _bind104054_ + _L104043_))) + (_eid104060_ + (if _bind104058_ (##structure-ref - _bind104054_ + _bind104058_ '1 gx#binding::t '#f) @@ -17391,405 +17391,405 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _L104039_))))) + (gx#stx-e _L104043_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp115046 + (let ((__tmp115050 (let () (declare (not safe)) (slot-ref__0 - _self103989_ + _self103993_ 'table)))) (declare (not safe)) (hash-put! - __tmp115046 - _eid104056_ - _eid104056_)) + __tmp115050 + _eid104060_ + _eid104060_)) (let () (declare (not safe)) (gxc#compile-e__1 - _self103989_ - _L104038_)))) - _hd104003104033_ - _hd104000104025_) + _self103993_ + _L104042_)))) + _hd104007104037_ + _hd104004104029_) (let () (declare (not safe)) - (_g103992104009_ - _g103993104012_))))) + (_g103996104013_ + _g103997104016_))))) (let () (declare (not safe)) - (_g103992104009_ _g103993104012_))))) + (_g103996104013_ _g103997104016_))))) (let () (declare (not safe)) - (_g103992104009_ _g103993104012_))))) + (_g103996104013_ _g103997104016_))))) (let () (declare (not safe)) - (_g103992104009_ _g103993104012_)))))) + (_g103996104013_ _g103997104016_)))))) (declare (not safe)) - (_g103991104059_ _stx103990_)))) + (_g103995104063_ _stx103994_)))) (define gxc#find-runtime-begin% - (lambda (_self103946_ _stx103947_) - (let* ((_g103949103959_ - (lambda (_g103950103956_) + (lambda (_self103950_ _stx103951_) + (let* ((_g103953103963_ + (lambda (_g103954103960_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103950103956_)))) - (_g103948103986_ - (lambda (_g103950103962_) + _g103954103960_)))) + (_g103952103990_ + (lambda (_g103954103966_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103950103962_)) - (let ((_e103954103964_ + (gx#stx-pair? _g103954103966_)) + (let ((_e103958103968_ (let () (declare (not safe)) - (gx#stx-e _g103950103962_)))) - (let ((_hd103953103967_ + (gx#stx-e _g103954103966_)))) + (let ((_hd103957103971_ (let () (declare (not safe)) - (##car _e103954103964_))) - (_tl103952103969_ + (##car _e103958103968_))) + (_tl103956103973_ (let () (declare (not safe)) - (##cdr _e103954103964_)))) - ((lambda (_L103972_) - (let ((__tmp115047 - (lambda (_g103981103983_) + (##cdr _e103958103968_)))) + ((lambda (_L103976_) + (let ((__tmp115051 + (lambda (_g103985103987_) (let () (declare (not safe)) (gxc#compile-e__1 - _self103946_ - _g103981103983_))))) + _self103950_ + _g103985103987_))))) (declare (not safe)) - (ormap1 __tmp115047 _L103972_))) - _tl103952103969_))) + (ormap1 __tmp115051 _L103976_))) + _tl103956103973_))) (let () (declare (not safe)) - (_g103949103959_ _g103950103962_)))))) + (_g103953103963_ _g103954103966_)))))) (declare (not safe)) - (_g103948103986_ _stx103947_)))) - (define gxc#count-values-single% (lambda (_self103943_ _stx103944_) '1)) + (_g103952103990_ _stx103951_)))) + (define gxc#count-values-single% (lambda (_self103947_ _stx103948_) '1)) (define gxc#count-values-call% - (lambda (_self103809_ _stx103810_) - (let* ((___stx114147114148_ _stx103810_) - (_g103813103842_ + (lambda (_self103813_ _stx103814_) + (let* ((___stx114151114152_ _stx103814_) + (_g103817103846_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx114147114148_))))) - (let ((___kont114149114150_ - (lambda (_L103910_ _L103911_) - (length (let ((__tmp115048 - (lambda (_g103932103935_ _g103933103937_) + ___stx114151114152_))))) + (let ((___kont114153114154_ + (lambda (_L103914_ _L103915_) + (length (let ((__tmp115052 + (lambda (_g103936103939_ _g103937103941_) (let () (declare (not safe)) - (cons _g103932103935_ - _g103933103937_))))) + (cons _g103936103939_ + _g103937103941_))))) (declare (not safe)) - (foldr1 __tmp115048 '() _L103910_))))) - (___kont114153114154_ (lambda () '#f))) - (let ((___match114192114193_ - (lambda (_e103819103854_ - _hd103818103857_ - _tl103817103859_ - _e103822103862_ - _hd103821103865_ - _tl103820103867_ - _e103825103870_ - _hd103824103873_ - _tl103823103875_ - _e103828103878_ - _hd103827103881_ - _tl103826103883_ - ___splice114151114152_ - _target103829103886_ - _tl103831103888_) - (letrec ((_loop103832103891_ - (lambda (_hd103830103894_ _rand103836103896_) + (foldr1 __tmp115052 '() _L103914_))))) + (___kont114157114158_ (lambda () '#f))) + (let ((___match114196114197_ + (lambda (_e103823103858_ + _hd103822103861_ + _tl103821103863_ + _e103826103866_ + _hd103825103869_ + _tl103824103871_ + _e103829103874_ + _hd103828103877_ + _tl103827103879_ + _e103832103882_ + _hd103831103885_ + _tl103830103887_ + ___splice114155114156_ + _target103833103890_ + _tl103835103892_) + (letrec ((_loop103836103895_ + (lambda (_hd103834103898_ _rand103840103900_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103830103894_)) - (let ((_e103833103899_ + (gx#stx-pair? _hd103834103898_)) + (let ((_e103837103903_ (let () (declare (not safe)) - (gx#stx-e _hd103830103894_)))) - (let ((_lp-tl103835103904_ + (gx#stx-e _hd103834103898_)))) + (let ((_lp-tl103839103908_ (let () (declare (not safe)) - (##cdr _e103833103899_))) - (_lp-hd103834103902_ + (##cdr _e103837103903_))) + (_lp-hd103838103906_ (let () (declare (not safe)) - (##car _e103833103899_)))) - (let ((__tmp115049 + (##car _e103837103903_)))) + (let ((__tmp115053 (let () (declare (not safe)) - (cons _lp-hd103834103902_ - _rand103836103896_)))) + (cons _lp-hd103838103906_ + _rand103840103900_)))) (declare (not safe)) - (_loop103832103891_ - _lp-tl103835103904_ - __tmp115049)))) - (let ((_rand103837103907_ - (reverse _rand103836103896_))) - (let ((_L103910_ _rand103837103907_) - (_L103911_ _hd103827103881_)) + (_loop103836103895_ + _lp-tl103839103908_ + __tmp115053)))) + (let ((_rand103841103911_ + (reverse _rand103840103900_))) + (let ((_L103914_ _rand103841103911_) + (_L103915_ _hd103831103885_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L103911_ + _L103915_ 'values)) - (___kont114149114150_ - _L103910_ - _L103911_) - (___kont114153114154_)))))))) + (___kont114153114154_ + _L103914_ + _L103915_) + (___kont114157114158_)))))))) (let () (declare (not safe)) - (_loop103832103891_ _target103829103886_ '())))))) + (_loop103836103895_ _target103833103890_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx114147114148_)) - (let ((_e103819103854_ + (gx#stx-pair? ___stx114151114152_)) + (let ((_e103823103858_ (let () (declare (not safe)) - (gx#stx-e ___stx114147114148_)))) - (let ((_tl103817103859_ + (gx#stx-e ___stx114151114152_)))) + (let ((_tl103821103863_ (let () (declare (not safe)) - (##cdr _e103819103854_))) - (_hd103818103857_ + (##cdr _e103823103858_))) + (_hd103822103861_ (let () (declare (not safe)) - (##car _e103819103854_)))) + (##car _e103823103858_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103817103859_)) - (let ((_e103822103862_ + (gx#stx-pair? _tl103821103863_)) + (let ((_e103826103866_ (let () (declare (not safe)) - (gx#stx-e _tl103817103859_)))) - (let ((_tl103820103867_ + (gx#stx-e _tl103821103863_)))) + (let ((_tl103824103871_ (let () (declare (not safe)) - (##cdr _e103822103862_))) - (_hd103821103865_ + (##cdr _e103826103866_))) + (_hd103825103869_ (let () (declare (not safe)) - (##car _e103822103862_)))) + (##car _e103826103866_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103821103865_)) - (let ((_e103825103870_ + (gx#stx-pair? _hd103825103869_)) + (let ((_e103829103874_ (let () (declare (not safe)) - (gx#stx-e _hd103821103865_)))) - (let ((_tl103823103875_ + (gx#stx-e _hd103825103869_)))) + (let ((_tl103827103879_ (let () (declare (not safe)) - (##cdr _e103825103870_))) - (_hd103824103873_ + (##cdr _e103829103874_))) + (_hd103828103877_ (let () (declare (not safe)) - (##car _e103825103870_)))) + (##car _e103829103874_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd103824103873_)) + (gx#identifier? _hd103828103877_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd103824103873_)) + _hd103828103877_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103823103875_)) - (let ((_e103828103878_ + _tl103827103879_)) + (let ((_e103832103882_ (let () (declare (not safe)) (gx#stx-e - _tl103823103875_)))) - (let ((_tl103826103883_ + _tl103827103879_)))) + (let ((_tl103830103887_ (let () (declare (not safe)) - (##cdr _e103828103878_))) - (_hd103827103881_ + (##cdr _e103832103882_))) + (_hd103831103885_ (let () (declare (not safe)) - (##car _e103828103878_)))) + (##car _e103832103882_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103826103883_)) + _tl103830103887_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl103820103867_)) - (let ((___splice114151114152_ + (gx#stx-pair/null? _tl103824103871_)) + (let ((___splice114155114156_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl103820103867_ '0)))) - (let ((_tl103831103888_ + (gx#syntax-split-splice _tl103824103871_ '0)))) + (let ((_tl103835103892_ (let () (declare (not safe)) - (##vector-ref ___splice114151114152_ '1))) - (_target103829103886_ + (##vector-ref ___splice114155114156_ '1))) + (_target103833103890_ (let () (declare (not safe)) - (##vector-ref ___splice114151114152_ '0)))) + (##vector-ref ___splice114155114156_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103831103888_)) - (___match114192114193_ - _e103819103854_ - _hd103818103857_ - _tl103817103859_ - _e103822103862_ - _hd103821103865_ - _tl103820103867_ - _e103825103870_ - _hd103824103873_ - _tl103823103875_ - _e103828103878_ - _hd103827103881_ - _tl103826103883_ - ___splice114151114152_ - _target103829103886_ - _tl103831103888_) - (___kont114153114154_)))) - (___kont114153114154_)) - (___kont114153114154_)))) + (gx#stx-null? _tl103835103892_)) + (___match114196114197_ + _e103823103858_ + _hd103822103861_ + _tl103821103863_ + _e103826103866_ + _hd103825103869_ + _tl103824103871_ + _e103829103874_ + _hd103828103877_ + _tl103827103879_ + _e103832103882_ + _hd103831103885_ + _tl103830103887_ + ___splice114155114156_ + _target103833103890_ + _tl103835103892_) + (___kont114157114158_)))) + (___kont114157114158_)) + (___kont114157114158_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114153114154_)) - (___kont114153114154_)) - (___kont114153114154_)))) - (___kont114153114154_)))) - (___kont114153114154_)))) - (___kont114153114154_))))))) + (___kont114157114158_)) + (___kont114157114158_)) + (___kont114157114158_)))) + (___kont114157114158_)))) + (___kont114157114158_)))) + (___kont114157114158_))))))) (define gxc#count-values-if% - (lambda (_self103712_ _stx103713_) - (let* ((_g103715103736_ - (lambda (_g103716103733_) + (lambda (_self103716_ _stx103717_) + (let* ((_g103719103740_ + (lambda (_g103720103737_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103716103733_)))) - (_g103714103806_ - (lambda (_g103716103739_) + _g103720103737_)))) + (_g103718103810_ + (lambda (_g103720103743_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103716103739_)) - (let ((_e103722103741_ + (gx#stx-pair? _g103720103743_)) + (let ((_e103726103745_ (let () (declare (not safe)) - (gx#stx-e _g103716103739_)))) - (let ((_hd103721103744_ + (gx#stx-e _g103720103743_)))) + (let ((_hd103725103748_ (let () (declare (not safe)) - (##car _e103722103741_))) - (_tl103720103746_ + (##car _e103726103745_))) + (_tl103724103750_ (let () (declare (not safe)) - (##cdr _e103722103741_)))) + (##cdr _e103726103745_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103720103746_)) - (let ((_e103725103749_ + (gx#stx-pair? _tl103724103750_)) + (let ((_e103729103753_ (let () (declare (not safe)) - (gx#stx-e _tl103720103746_)))) - (let ((_hd103724103752_ + (gx#stx-e _tl103724103750_)))) + (let ((_hd103728103756_ (let () (declare (not safe)) - (##car _e103725103749_))) - (_tl103723103754_ + (##car _e103729103753_))) + (_tl103727103758_ (let () (declare (not safe)) - (##cdr _e103725103749_)))) + (##cdr _e103729103753_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103723103754_)) - (let ((_e103728103757_ + (gx#stx-pair? _tl103727103758_)) + (let ((_e103732103761_ (let () (declare (not safe)) - (gx#stx-e _tl103723103754_)))) - (let ((_hd103727103760_ + (gx#stx-e _tl103727103758_)))) + (let ((_hd103731103764_ (let () (declare (not safe)) - (##car _e103728103757_))) - (_tl103726103762_ + (##car _e103732103761_))) + (_tl103730103766_ (let () (declare (not safe)) - (##cdr _e103728103757_)))) + (##cdr _e103732103761_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103726103762_)) - (let ((_e103731103765_ + _tl103730103766_)) + (let ((_e103735103769_ (let () (declare (not safe)) (gx#stx-e - _tl103726103762_)))) - (let ((_hd103730103768_ + _tl103730103766_)))) + (let ((_hd103734103772_ (let () (declare (not safe)) - (##car _e103731103765_))) - (_tl103729103770_ + (##car _e103735103769_))) + (_tl103733103774_ (let () (declare (not safe)) - (##cdr _e103731103765_)))) + (##cdr _e103735103769_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103729103770_)) - ((lambda (_L103773_ - _L103774_ - _L103775_) - (let ((_c1103792103794_ + _tl103733103774_)) + ((lambda (_L103777_ + _L103778_ + _L103779_) + (let ((_c1103796103798_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _self103712_ _L103774_)))) - (if _c1103792103794_ - (let* ((_c1103797_ _c1103792103794_) - (_c2103798103800_ + (gxc#compile-e__1 _self103716_ _L103778_)))) + (if _c1103796103798_ + (let* ((_c1103801_ _c1103796103798_) + (_c2103802103804_ (let () (declare (not safe)) - (gxc#compile-e__1 _self103712_ _L103773_)))) - (if _c2103798103800_ - (let ((_c2103803_ _c2103798103800_)) - (if (fx= _c1103797_ _c2103803_) _c1103797_ '#f)) + (gxc#compile-e__1 _self103716_ _L103777_)))) + (if _c2103802103804_ + (let ((_c2103807_ _c2103802103804_)) + (if (fx= _c1103801_ _c2103807_) _c1103801_ '#f)) '#f)) '#f))) - _hd103730103768_ - _hd103727103760_ - _hd103724103752_) + _hd103734103772_ + _hd103731103764_ + _hd103728103756_) (let () (declare (not safe)) - (_g103715103736_ _g103716103739_))))) + (_g103719103740_ _g103720103743_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g103715103736_ - _g103716103739_))))) + (_g103719103740_ + _g103720103743_))))) (let () (declare (not safe)) - (_g103715103736_ _g103716103739_))))) + (_g103719103740_ _g103720103743_))))) (let () (declare (not safe)) - (_g103715103736_ _g103716103739_))))) + (_g103719103740_ _g103720103743_))))) (let () (declare (not safe)) - (_g103715103736_ _g103716103739_)))))) + (_g103719103740_ _g103720103743_)))))) (declare (not safe)) - (_g103714103806_ _stx103713_)))))) + (_g103718103810_ _stx103717_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index 4c5bd07f1..ae085231e 100644 --- a/src/bootstrap/gerbil/compiler/compile~1.scm +++ b/src/bootstrap/gerbil/compiler/compile~1.scm @@ -1,671 +1,671 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g115052_| + (define |gxc[1]#_g115056_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115054_| + (define |gxc[1]#_g115058_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115056_| + (define |gxc[1]#_g115060_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115058_| + (define |gxc[1]#_g115062_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115062_| + (define |gxc[1]#_g115066_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115064_| + (define |gxc[1]#_g115068_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115066_| + (define |gxc[1]#_g115070_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115070_| + (define |gxc[1]#_g115074_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115074_| + (define |gxc[1]#_g115078_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115078_| + (define |gxc[1]#_g115082_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115082_| + (define |gxc[1]#_g115086_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115084_| + (define |gxc[1]#_g115088_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115086_| + (define |gxc[1]#_g115090_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115088_| + (define |gxc[1]#_g115092_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115091_| + (define |gxc[1]#_g115095_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115093_| + (define |gxc[1]#_g115097_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115095_| + (define |gxc[1]#_g115099_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115097_| + (define |gxc[1]#_g115101_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115100_| + (define |gxc[1]#_g115104_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115102_| + (define |gxc[1]#_g115106_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115104_| + (define |gxc[1]#_g115108_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115106_| + (define |gxc[1]#_g115110_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115108_| + (define |gxc[1]#_g115112_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115110_| + (define |gxc[1]#_g115114_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115112_| + (define |gxc[1]#_g115116_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115115_| + (define |gxc[1]#_g115119_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115117_| + (define |gxc[1]#_g115121_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115119_| + (define |gxc[1]#_g115123_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115121_| + (define |gxc[1]#_g115125_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115125_| + (define |gxc[1]#_g115129_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115127_| + (define |gxc[1]#_g115131_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115129_| + (define |gxc[1]#_g115133_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115132_| + (define |gxc[1]#_g115136_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115134_| + (define |gxc[1]#_g115138_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115136_| + (define |gxc[1]#_g115140_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115138_| + (define |gxc[1]#_g115142_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115140_| + (define |gxc[1]#_g115144_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115142_| + (define |gxc[1]#_g115146_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115144_| + (define |gxc[1]#_g115148_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115148_| + (define |gxc[1]#_g115152_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115152_| + (define |gxc[1]#_g115156_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115156_| + (define |gxc[1]#_g115160_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115160_| + (define |gxc[1]#_g115164_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115163_| + (define |gxc[1]#_g115167_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115165_| + (define |gxc[1]#_g115169_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115167_| + (define |gxc[1]#_g115171_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115169_| + (define |gxc[1]#_g115173_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115173_| + (define |gxc[1]#_g115177_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115177_| + (define |gxc[1]#_g115181_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115181_| + (define |gxc[1]#_g115185_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115185_| + (define |gxc[1]#_g115189_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115187_| + (define |gxc[1]#_g115191_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115189_| + (define |gxc[1]#_g115193_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115191_| + (define |gxc[1]#_g115195_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115195_| + (define |gxc[1]#_g115199_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115199_| + (define |gxc[1]#_g115203_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115203_| + (define |gxc[1]#_g115207_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115207_| + (define |gxc[1]#_g115211_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115359_| + (define |gxc[1]#_g115363_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115361_| + (define |gxc[1]#_g115365_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115363_| + (define |gxc[1]#_g115367_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115370_| + (define |gxc[1]#_g115374_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115373_| + (define |gxc[1]#_g115377_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115376_| + (define |gxc[1]#_g115380_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115379_| + (define |gxc[1]#_g115383_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115386_| + (define |gxc[1]#_g115390_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115389_| + (define |gxc[1]#_g115393_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115392_| + (define |gxc[1]#_g115396_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115395_| + (define |gxc[1]#_g115399_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115402_| + (define |gxc[1]#_g115406_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115405_| + (define |gxc[1]#_g115409_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115408_| + (define |gxc[1]#_g115412_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115411_| + (define |gxc[1]#_g115415_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115418_| + (define |gxc[1]#_g115422_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115421_| + (define |gxc[1]#_g115425_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115424_| + (define |gxc[1]#_g115428_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115427_| + (define |gxc[1]#_g115431_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115429_| + (define |gxc[1]#_g115433_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115431_| + (define |gxc[1]#_g115435_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115433_| + (define |gxc[1]#_g115437_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115440_| + (define |gxc[1]#_g115444_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115443_| + (define |gxc[1]#_g115447_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115446_| + (define |gxc[1]#_g115450_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115449_| + (define |gxc[1]#_g115453_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115456_| + (define |gxc[1]#_g115460_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115459_| + (define |gxc[1]#_g115463_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115462_| + (define |gxc[1]#_g115466_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115465_| + (define |gxc[1]#_g115469_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115472_| + (define |gxc[1]#_g115476_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115475_| + (define |gxc[1]#_g115479_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115478_| + (define |gxc[1]#_g115482_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115481_| + (define |gxc[1]#_g115485_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115488_| + (define |gxc[1]#_g115492_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115491_| + (define |gxc[1]#_g115495_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115494_| + (define |gxc[1]#_g115498_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115497_| + (define |gxc[1]#_g115501_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj114194 + (let ((__obj114198 (let () (declare (not safe)) (##structure @@ -698,7 +698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 'gxc#::collect-bindings::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -706,7 +706,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '::collect-bindings '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -714,26 +714,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115050 - (let ((__tmp115051 |gxc[1]#_g115052_|)) + (let ((__tmp115054 + (let ((__tmp115055 |gxc[1]#_g115056_|)) (declare (not safe)) - (cons __tmp115051 '())))) + (cons __tmp115055 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114194 - __tmp115050 + __obj114198 + __tmp115054 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -741,7 +741,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -749,7 +749,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -757,39 +757,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115053 |gxc[1]#_g115054_|)) + (let ((__tmp115057 |gxc[1]#_g115058_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114194 - __tmp115053 + __obj114198 + __tmp115057 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115055 |gxc[1]#_g115056_|)) + (let ((__tmp115059 |gxc[1]#_g115060_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114194 - __tmp115055 + __obj114198 + __tmp115059 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115057 |gxc[1]#_g115058_|)) + (let ((__tmp115061 |gxc[1]#_g115062_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114194 - __tmp115057 + __obj114198 + __tmp115061 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -797,7 +797,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -805,7 +805,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -813,14 +813,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114194 + __obj114198 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114194)) + __obj114198)) (define |gxc[:0:]#::lift-modules| - (let ((__obj114196 + (let ((__obj114200 (let () (declare (not safe)) (##structure @@ -844,7 +844,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 'gxc#::lift-modules::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -852,7 +852,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 '::lift-modules '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -860,26 +860,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 '(modules) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115059 - (let ((__tmp115060 |gxc[1]#_g115052_|)) + (let ((__tmp115063 + (let ((__tmp115064 |gxc[1]#_g115056_|)) (declare (not safe)) - (cons __tmp115060 '())))) + (cons __tmp115064 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114196 - __tmp115059 + __obj114200 + __tmp115063 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -887,7 +887,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -895,7 +895,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -903,49 +903,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115061 |gxc[1]#_g115062_|)) + (let ((__tmp115065 |gxc[1]#_g115066_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114196 - __tmp115061 + __obj114200 + __tmp115065 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115063 |gxc[1]#_g115064_|)) + (let ((__tmp115067 |gxc[1]#_g115068_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114196 - __tmp115063 + __obj114200 + __tmp115067 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115065 |gxc[1]#_g115066_|)) + (let ((__tmp115069 |gxc[1]#_g115070_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114196 - __tmp115065 + __obj114200 + __tmp115069 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115067 - (let ((__tmp115068 - (let ((__tmp115069 |gxc[1]#_g115070_|)) - (declare (not safe)) - (cons 'modules __tmp115069)))) - (declare (not safe)) - (cons __tmp115068 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj114196 - __tmp115067 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp115071 (let ((__tmp115072 (let ((__tmp115073 |gxc[1]#_g115074_|)) @@ -955,9 +941,9 @@ (cons __tmp115072 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 __tmp115071 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp115075 @@ -969,9 +955,9 @@ (cons __tmp115076 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 __tmp115075 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp115079 @@ -983,14 +969,28 @@ (cons __tmp115080 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114196 + __obj114200 __tmp115079 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp115083 + (let ((__tmp115084 + (let ((__tmp115085 |gxc[1]#_g115086_|)) + (declare (not safe)) + (cons 'modules __tmp115085)))) + (declare (not safe)) + (cons __tmp115084 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj114200 + __tmp115083 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114196)) + __obj114200)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj114198 + (let ((__obj114202 (let () (declare (not safe)) (##structure @@ -1014,7 +1014,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 'gxc#::find-runtime-code::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1022,7 +1022,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '::find-runtime-code '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1038,7 +1038,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1046,7 +1046,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1054,7 +1054,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1062,7 +1062,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1070,39 +1070,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115083 |gxc[1]#_g115084_|)) + (let ((__tmp115087 |gxc[1]#_g115088_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114198 - __tmp115083 + __obj114202 + __tmp115087 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115085 |gxc[1]#_g115086_|)) + (let ((__tmp115089 |gxc[1]#_g115090_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114198 - __tmp115085 + __obj114202 + __tmp115089 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115087 |gxc[1]#_g115088_|)) + (let ((__tmp115091 |gxc[1]#_g115092_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114198 - __tmp115087 + __obj114202 + __tmp115091 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1110,7 +1110,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1118,7 +1118,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1126,14 +1126,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114202 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114198)) + __obj114202)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj114200 + (let ((__obj114204 (let () (declare (not safe)) (##structure @@ -1157,7 +1157,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 'gxc#::find-lambda-expression::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1165,7 +1165,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '::find-lambda-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1173,26 +1173,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115089 - (let ((__tmp115090 |gxc[1]#_g115091_|)) + (let ((__tmp115093 + (let ((__tmp115094 |gxc[1]#_g115095_|)) (declare (not safe)) - (cons __tmp115090 '())))) + (cons __tmp115094 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115089 + __obj114204 + __tmp115093 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1200,7 +1200,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1208,7 +1208,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1216,39 +1216,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115092 |gxc[1]#_g115093_|)) + (let ((__tmp115096 |gxc[1]#_g115097_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115092 + __obj114204 + __tmp115096 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115094 |gxc[1]#_g115095_|)) + (let ((__tmp115098 |gxc[1]#_g115099_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115094 + __obj114204 + __tmp115098 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115096 |gxc[1]#_g115097_|)) + (let ((__tmp115100 |gxc[1]#_g115101_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115096 + __obj114204 + __tmp115100 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1256,7 +1256,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1264,7 +1264,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1272,14 +1272,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114204 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114200)) + __obj114204)) (define |gxc[:0:]#::count-values| - (let ((__obj114202 + (let ((__obj114206 (let () (declare (not safe)) (##structure @@ -1303,7 +1303,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 'gxc#::count-values::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1311,7 +1311,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '::count-values '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1319,26 +1319,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115098 - (let ((__tmp115099 |gxc[1]#_g115100_|)) + (let ((__tmp115102 + (let ((__tmp115103 |gxc[1]#_g115104_|)) (declare (not safe)) - (cons __tmp115099 '())))) + (cons __tmp115103 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114202 - __tmp115098 + __obj114206 + __tmp115102 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1346,7 +1346,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1354,7 +1354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1362,39 +1362,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115101 |gxc[1]#_g115102_|)) + (let ((__tmp115105 |gxc[1]#_g115106_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114202 - __tmp115101 + __obj114206 + __tmp115105 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115103 |gxc[1]#_g115104_|)) + (let ((__tmp115107 |gxc[1]#_g115108_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114202 - __tmp115103 + __obj114206 + __tmp115107 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115105 |gxc[1]#_g115106_|)) + (let ((__tmp115109 |gxc[1]#_g115110_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114202 - __tmp115105 + __obj114206 + __tmp115109 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1402,7 +1402,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1410,7 +1410,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1418,14 +1418,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114206 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114202)) + __obj114206)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj114204 + (let ((__obj114208 (let () (declare (not safe)) (##structure @@ -1449,7 +1449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 'gxc#::generate-runtime-empty::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1457,7 +1457,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '::generate-runtime-empty '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1465,7 +1465,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1473,7 +1473,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1481,7 +1481,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1489,7 +1489,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1497,7 +1497,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1505,39 +1505,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115107 |gxc[1]#_g115108_|)) + (let ((__tmp115111 |gxc[1]#_g115112_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114204 - __tmp115107 + __obj114208 + __tmp115111 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115109 |gxc[1]#_g115110_|)) + (let ((__tmp115113 |gxc[1]#_g115114_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114204 - __tmp115109 + __obj114208 + __tmp115113 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115111 |gxc[1]#_g115112_|)) + (let ((__tmp115115 |gxc[1]#_g115116_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114204 - __tmp115111 + __obj114208 + __tmp115115 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1545,7 +1545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1553,7 +1553,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1561,14 +1561,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114208 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114204)) + __obj114208)) (define |gxc[:0:]#::generate-loader| - (let ((__obj114205 + (let ((__obj114209 (let () (declare (not safe)) (##structure @@ -1592,7 +1592,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 'gxc#::generate-loader::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1600,7 +1600,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '::generate-loader '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1608,26 +1608,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115113 - (let ((__tmp115114 |gxc[1]#_g115115_|)) + (let ((__tmp115117 + (let ((__tmp115118 |gxc[1]#_g115119_|)) (declare (not safe)) - (cons __tmp115114 '())))) + (cons __tmp115118 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114205 - __tmp115113 + __obj114209 + __tmp115117 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1635,7 +1635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1643,7 +1643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1651,39 +1651,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115116 |gxc[1]#_g115117_|)) + (let ((__tmp115120 |gxc[1]#_g115121_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114205 - __tmp115116 + __obj114209 + __tmp115120 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115118 |gxc[1]#_g115119_|)) + (let ((__tmp115122 |gxc[1]#_g115123_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114205 - __tmp115118 + __obj114209 + __tmp115122 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115120 |gxc[1]#_g115121_|)) + (let ((__tmp115124 |gxc[1]#_g115125_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114205 - __tmp115120 + __obj114209 + __tmp115124 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1691,7 +1691,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1699,7 +1699,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1707,14 +1707,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114205 + __obj114209 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114205)) + __obj114209)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj114207 + (let ((__obj114211 (let () (declare (not safe)) (##structure @@ -1738,7 +1738,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 'gxc#::generate-runtime::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1746,7 +1746,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '::generate-runtime '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1754,26 +1754,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115122 - (let ((__tmp115123 |gxc[1]#_g115115_|)) + (let ((__tmp115126 + (let ((__tmp115127 |gxc[1]#_g115119_|)) (declare (not safe)) - (cons __tmp115123 '())))) + (cons __tmp115127 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114207 - __tmp115122 + __obj114211 + __tmp115126 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1781,7 +1781,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1789,7 +1789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1797,39 +1797,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115124 |gxc[1]#_g115125_|)) + (let ((__tmp115128 |gxc[1]#_g115129_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114207 - __tmp115124 + __obj114211 + __tmp115128 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115126 |gxc[1]#_g115127_|)) + (let ((__tmp115130 |gxc[1]#_g115131_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114207 - __tmp115126 + __obj114211 + __tmp115130 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115128 |gxc[1]#_g115129_|)) + (let ((__tmp115132 |gxc[1]#_g115133_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114207 - __tmp115128 + __obj114211 + __tmp115132 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1837,7 +1837,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1845,7 +1845,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1853,14 +1853,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114207 + __obj114211 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114207)) + __obj114211)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj114209 + (let ((__obj114213 (let () (declare (not safe)) (##structure @@ -1884,7 +1884,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 'gxc#::generate-runtime-phi::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1892,7 +1892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '::generate-runtime-phi '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1900,26 +1900,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115130 - (let ((__tmp115131 |gxc[1]#_g115132_|)) + (let ((__tmp115134 + (let ((__tmp115135 |gxc[1]#_g115136_|)) (declare (not safe)) - (cons __tmp115131 '())))) + (cons __tmp115135 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114209 - __tmp115130 + __obj114213 + __tmp115134 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1927,7 +1927,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1935,7 +1935,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1943,39 +1943,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115133 |gxc[1]#_g115134_|)) + (let ((__tmp115137 |gxc[1]#_g115138_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114209 - __tmp115133 + __obj114213 + __tmp115137 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115135 |gxc[1]#_g115136_|)) + (let ((__tmp115139 |gxc[1]#_g115140_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114209 - __tmp115135 + __obj114213 + __tmp115139 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115137 |gxc[1]#_g115138_|)) + (let ((__tmp115141 |gxc[1]#_g115142_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114209 - __tmp115137 + __obj114213 + __tmp115141 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1983,7 +1983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1991,7 +1991,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1999,14 +1999,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114213 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114209)) + __obj114213)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj114211 + (let ((__obj114215 (let () (declare (not safe)) (##structure @@ -2030,7 +2030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 'gxc#::collect-expression-refs::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2038,7 +2038,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 '::collect-expression-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2046,7 +2046,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 '(table) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -2054,7 +2054,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -2062,7 +2062,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2070,7 +2070,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2078,7 +2078,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2086,49 +2086,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115139 |gxc[1]#_g115140_|)) + (let ((__tmp115143 |gxc[1]#_g115144_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114211 - __tmp115139 + __obj114215 + __tmp115143 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115141 |gxc[1]#_g115142_|)) + (let ((__tmp115145 |gxc[1]#_g115146_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114211 - __tmp115141 + __obj114215 + __tmp115145 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115143 |gxc[1]#_g115144_|)) + (let ((__tmp115147 |gxc[1]#_g115148_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114211 - __tmp115143 + __obj114215 + __tmp115147 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115145 - (let ((__tmp115146 - (let ((__tmp115147 |gxc[1]#_g115148_|)) - (declare (not safe)) - (cons 'table __tmp115147)))) - (declare (not safe)) - (cons __tmp115146 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj114211 - __tmp115145 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp115149 (let ((__tmp115150 (let ((__tmp115151 |gxc[1]#_g115152_|)) @@ -2138,9 +2124,9 @@ (cons __tmp115150 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 __tmp115149 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp115153 @@ -2152,9 +2138,9 @@ (cons __tmp115154 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 __tmp115153 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp115157 @@ -2166,14 +2152,28 @@ (cons __tmp115158 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114215 __tmp115157 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp115161 + (let ((__tmp115162 + (let ((__tmp115163 |gxc[1]#_g115164_|)) + (declare (not safe)) + (cons 'table __tmp115163)))) + (declare (not safe)) + (cons __tmp115162 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj114215 + __tmp115161 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114211)) + __obj114215)) (define |gxc[:0:]#::generate-meta| - (let ((__obj114213 + (let ((__obj114217 (let () (declare (not safe)) (##structure @@ -2197,7 +2197,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 'gxc#::generate-meta::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2205,7 +2205,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 '::generate-meta '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2213,26 +2213,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 '(state) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115161 - (let ((__tmp115162 |gxc[1]#_g115163_|)) + (let ((__tmp115165 + (let ((__tmp115166 |gxc[1]#_g115167_|)) (declare (not safe)) - (cons __tmp115162 '())))) + (cons __tmp115166 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114213 - __tmp115161 + __obj114217 + __tmp115165 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2240,7 +2240,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2248,7 +2248,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2256,49 +2256,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115164 |gxc[1]#_g115165_|)) + (let ((__tmp115168 |gxc[1]#_g115169_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114213 - __tmp115164 + __obj114217 + __tmp115168 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115166 |gxc[1]#_g115167_|)) + (let ((__tmp115170 |gxc[1]#_g115171_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114213 - __tmp115166 + __obj114217 + __tmp115170 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115168 |gxc[1]#_g115169_|)) + (let ((__tmp115172 |gxc[1]#_g115173_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114213 - __tmp115168 + __obj114217 + __tmp115172 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115170 - (let ((__tmp115171 - (let ((__tmp115172 |gxc[1]#_g115173_|)) - (declare (not safe)) - (cons 'state __tmp115172)))) - (declare (not safe)) - (cons __tmp115171 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj114213 - __tmp115170 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp115174 (let ((__tmp115175 (let ((__tmp115176 |gxc[1]#_g115177_|)) @@ -2308,9 +2294,9 @@ (cons __tmp115175 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 __tmp115174 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp115178 @@ -2322,9 +2308,9 @@ (cons __tmp115179 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 __tmp115178 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp115182 @@ -2336,14 +2322,28 @@ (cons __tmp115183 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114217 __tmp115182 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp115186 + (let ((__tmp115187 + (let ((__tmp115188 |gxc[1]#_g115189_|)) + (declare (not safe)) + (cons 'state __tmp115188)))) + (declare (not safe)) + (cons __tmp115187 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj114217 + __tmp115186 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114213)) + __obj114217)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj114215 + (let ((__obj114219 (let () (declare (not safe)) (##structure @@ -2367,7 +2367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 'gxc#::generate-meta-phi::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2375,7 +2375,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 '::generate-meta-phi '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2383,7 +2383,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 '(state) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -2391,7 +2391,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -2399,7 +2399,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2407,7 +2407,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2415,7 +2415,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2423,49 +2423,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115186 |gxc[1]#_g115187_|)) + (let ((__tmp115190 |gxc[1]#_g115191_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115186 + __obj114219 + __tmp115190 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115188 |gxc[1]#_g115189_|)) + (let ((__tmp115192 |gxc[1]#_g115193_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115188 + __obj114219 + __tmp115192 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115190 |gxc[1]#_g115191_|)) + (let ((__tmp115194 |gxc[1]#_g115195_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115190 + __obj114219 + __tmp115194 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115192 - (let ((__tmp115193 - (let ((__tmp115194 |gxc[1]#_g115195_|)) - (declare (not safe)) - (cons 'state __tmp115194)))) - (declare (not safe)) - (cons __tmp115193 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj114215 - __tmp115192 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp115196 (let ((__tmp115197 (let ((__tmp115198 |gxc[1]#_g115199_|)) @@ -2475,9 +2461,9 @@ (cons __tmp115197 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 __tmp115196 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp115200 @@ -2489,9 +2475,9 @@ (cons __tmp115201 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 __tmp115200 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp115204 @@ -2503,354 +2489,368 @@ (cons __tmp115205 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114219 __tmp115204 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp115208 + (let ((__tmp115209 + (let ((__tmp115210 |gxc[1]#_g115211_|)) + (declare (not safe)) + (cons 'state __tmp115210)))) + (declare (not safe)) + (cons __tmp115209 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj114219 + __tmp115208 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114215)) + __obj114219)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx103461_) - (let* ((_g103465103500_ - (lambda (_g103466103496_) + (lambda (_$stx103465_) + (let* ((_g103469103504_ + (lambda (_g103470103500_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103466103496_)))) - (_g103464103626_ - (lambda (_g103466103504_) + _g103470103500_)))) + (_g103468103630_ + (lambda (_g103470103508_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103466103504_)) - (let ((_e103473103507_ + (gx#stx-pair? _g103470103508_)) + (let ((_e103477103511_ (let () (declare (not safe)) - (gx#syntax-e _g103466103504_)))) - (let ((_hd103472103511_ + (gx#syntax-e _g103470103508_)))) + (let ((_hd103476103515_ (let () (declare (not safe)) - (##car _e103473103507_))) - (_tl103471103514_ + (##car _e103477103511_))) + (_tl103475103518_ (let () (declare (not safe)) - (##cdr _e103473103507_)))) + (##cdr _e103477103511_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103471103514_)) - (let ((_e103476103517_ + (gx#stx-pair? _tl103475103518_)) + (let ((_e103480103521_ (let () (declare (not safe)) - (gx#syntax-e _tl103471103514_)))) - (let ((_hd103475103521_ + (gx#syntax-e _tl103475103518_)))) + (let ((_hd103479103525_ (let () (declare (not safe)) - (##car _e103476103517_))) - (_tl103474103524_ + (##car _e103480103521_))) + (_tl103478103528_ (let () (declare (not safe)) - (##cdr _e103476103517_)))) + (##cdr _e103480103521_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103475103521_)) - (let ((_e103479103527_ + (gx#stx-pair? _hd103479103525_)) + (let ((_e103483103531_ (let () (declare (not safe)) (gx#syntax-e - _hd103475103521_)))) - (let ((_hd103478103531_ + _hd103479103525_)))) + (let ((_hd103482103535_ (let () (declare (not safe)) - (##car _e103479103527_))) - (_tl103477103534_ + (##car _e103483103531_))) + (_tl103481103538_ (let () (declare (not safe)) - (##cdr _e103479103527_)))) + (##cdr _e103483103531_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103477103534_)) - (let ((_e103482103537_ + _tl103481103538_)) + (let ((_e103486103541_ (let () (declare (not safe)) (gx#syntax-e - _tl103477103534_)))) - (let ((_hd103481103541_ + _tl103481103538_)))) + (let ((_hd103485103545_ (let () (declare (not safe)) - (##car _e103482103537_))) - (_tl103480103544_ + (##car _e103486103541_))) + (_tl103484103548_ (let () (declare (not safe)) - (##cdr _e103482103537_)))) + (##cdr _e103486103541_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103480103544_)) - (let ((_e103485103547_ + _tl103484103548_)) + (let ((_e103489103551_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl103480103544_)))) - (let ((_hd103484103551_ - (let () (declare (not safe)) (##car _e103485103547_))) - (_tl103483103554_ - (let () (declare (not safe)) (##cdr _e103485103547_)))) + (gx#syntax-e _tl103484103548_)))) + (let ((_hd103488103555_ + (let () (declare (not safe)) (##car _e103489103551_))) + (_tl103487103558_ + (let () (declare (not safe)) (##cdr _e103489103551_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103483103554_)) + (gx#stx-null? _tl103487103558_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl103474103524_)) - (let ((_g115208_ + (gx#stx-pair/null? _tl103478103528_)) + (let ((_g115212_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl103474103524_ + _tl103478103528_ '0)))) (begin - (let ((_g115209_ + (let ((_g115213_ (let () (declare (not safe)) - (if (##values? _g115208_) - (##vector-length _g115208_) + (if (##values? _g115212_) + (##vector-length _g115212_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g115209_ 2))) + (##fx= _g115213_ 2))) (error "Context expects 2 values" - _g115209_))) - (let ((_target103486103557_ + _g115213_))) + (let ((_target103490103561_ (let () (declare (not safe)) - (##vector-ref _g115208_ 0))) - (_tl103488103560_ + (##vector-ref _g115212_ 0))) + (_tl103492103564_ (let () (declare (not safe)) - (##vector-ref _g115208_ 1)))) + (##vector-ref _g115212_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103488103560_)) - (letrec ((_loop103489103563_ - (lambda (_hd103487103567_ - _body103493103570_) + (gx#stx-null? _tl103492103564_)) + (letrec ((_loop103493103567_ + (lambda (_hd103491103571_ + _body103497103574_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd103487103567_)) - (let ((_e103490103573_ + _hd103491103571_)) + (let ((_e103494103577_ (let () (declare (not safe)) (gx#syntax-e - _hd103487103567_)))) - (let ((_lp-hd103491103577_ + _hd103491103571_)))) + (let ((_lp-hd103495103581_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e103490103573_))) - (_lp-tl103492103580_ - (let () (declare (not safe)) (##cdr _e103490103573_)))) - (_loop103489103563_ - _lp-tl103492103580_ + (##car _e103494103577_))) + (_lp-tl103496103584_ + (let () (declare (not safe)) (##cdr _e103494103577_)))) + (_loop103493103567_ + _lp-tl103496103584_ (let () (declare (not safe)) - (cons _lp-hd103491103577_ _body103493103570_))))) + (cons _lp-hd103495103581_ _body103497103574_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body103494103583_ - (reverse _body103493103570_))) - ((lambda (_L103587_ - _L103589_ - _L103590_ - _L103591_) - (let ((__tmp115341 + (let ((_body103498103587_ + (reverse _body103497103574_))) + ((lambda (_L103591_ + _L103593_ + _L103594_ + _L103595_) + (let ((__tmp115345 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp115210 - (let ((__tmp115340 + (__tmp115214 + (let ((__tmp115344 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp115211 - (let ((__tmp115326 - (let ((__tmp115337 - (let ((__tmp115339 + (__tmp115215 + (let ((__tmp115330 + (let ((__tmp115341 + (let ((__tmp115343 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115338 + (__tmp115342 (let () (declare (not safe)) - (cons _L103589_ '())))) + (cons _L103593_ '())))) (declare (not safe)) - (cons __tmp115339 __tmp115338))) - (__tmp115327 - (let ((__tmp115333 - (let ((__tmp115334 - (let ((__tmp115335 + (cons __tmp115343 __tmp115342))) + (__tmp115331 + (let ((__tmp115337 + (let ((__tmp115338 + (let ((__tmp115339 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115336 + (let ((__tmp115340 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp115336 '())))) + (cons __tmp115340 '())))) (declare (not safe)) - (cons __tmp115335 '())))) + (cons __tmp115339 '())))) (declare (not safe)) - (cons _L103591_ __tmp115334))) + (cons _L103595_ __tmp115338))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp115328 - (let ((__tmp115329 - (let ((__tmp115330 + (__tmp115332 + (let ((__tmp115333 + (let ((__tmp115334 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115331 - (let ((__tmp115332 + (let ((__tmp115335 + (let ((__tmp115336 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp115332 '())))) + (cons __tmp115336 '())))) (declare (not safe)) - (cons __tmp115331 '())))) + (cons __tmp115335 '())))) (declare (not safe)) - (cons _L103590_ __tmp115330)))) + (cons _L103594_ __tmp115334)))) (declare (not safe)) - (cons __tmp115329 '())))) + (cons __tmp115333 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115333 - __tmp115328)))) + (cons __tmp115337 + __tmp115332)))) (declare (not safe)) - (cons __tmp115337 __tmp115327))) - (__tmp115212 - (let ((__tmp115213 - (let ((__tmp115325 + (cons __tmp115341 __tmp115331))) + (__tmp115216 + (let ((__tmp115217 + (let ((__tmp115329 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'match))) - (__tmp115214 - (let ((__tmp115324 + (__tmp115218 + (let ((__tmp115328 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115215 - (let ((__tmp115221 + (__tmp115219 + (let ((__tmp115225 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115319 - (let ((__tmp115323 + (let ((__tmp115323 + (let ((__tmp115327 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp115320 - (let ((__tmp115322 + (__tmp115324 + (let ((__tmp115326 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp115321 + (__tmp115325 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp115322 __tmp115321)))) + (cons __tmp115326 __tmp115325)))) (declare (not safe)) - (cons __tmp115323 __tmp115320))) - (__tmp115222 - (let ((__tmp115223 - (let ((__tmp115318 + (cons __tmp115327 __tmp115324))) + (__tmp115226 + (let ((__tmp115227 + (let ((__tmp115322 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp115224 - (let ((__tmp115317 + (__tmp115228 + (let ((__tmp115321 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp115225 - (let ((__tmp115313 - (let ((__tmp115316 + (__tmp115229 + (let ((__tmp115317 + (let ((__tmp115320 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp115314 - (let ((__tmp115315 + (__tmp115318 + (let ((__tmp115319 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)))) (declare (not safe)) - (cons __tmp115315 '())))) + (cons __tmp115319 '())))) (declare (not safe)) - (cons __tmp115316 __tmp115314))) - (__tmp115226 - (let ((__tmp115293 - (let ((__tmp115309 - (let ((__tmp115312 + (cons __tmp115320 __tmp115318))) + (__tmp115230 + (let ((__tmp115297 + (let ((__tmp115313 + (let ((__tmp115316 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp115310 - (let ((__tmp115311 + (__tmp115314 + (let ((__tmp115315 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp115311 '())))) + (cons __tmp115315 '())))) (declare (not safe)) - (cons __tmp115312 __tmp115310))) - (__tmp115294 - (let ((__tmp115295 - (let ((__tmp115308 + (cons __tmp115316 __tmp115314))) + (__tmp115298 + (let ((__tmp115299 + (let ((__tmp115312 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp115296 - (let ((__tmp115307 + (__tmp115300 + (let ((__tmp115311 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115297 - (let ((__tmp115298 - (let ((__tmp115299 + (__tmp115301 + (let ((__tmp115302 + (let ((__tmp115303 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115306 + (let ((__tmp115310 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp115300 - (let ((__tmp115302 - (let ((__tmp115305 + (__tmp115304 + (let ((__tmp115306 + (let ((__tmp115309 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp115303 - (let ((__tmp115304 + (__tmp115307 + (let ((__tmp115308 (let () (declare (not safe)) @@ -2858,462 +2858,462 @@ '#f 'e)))) (declare (not safe)) - (cons __tmp115304 '())))) + (cons __tmp115308 '())))) (declare (not safe)) - (cons __tmp115305 __tmp115303))) - (__tmp115301 + (cons __tmp115309 __tmp115307))) + (__tmp115305 (let () (declare (not safe)) - (cons _L103590_ '())))) + (cons _L103594_ '())))) (declare (not safe)) - (cons __tmp115302 __tmp115301)))) + (cons __tmp115306 __tmp115305)))) (declare (not safe)) - (cons __tmp115306 __tmp115300)))) + (cons __tmp115310 __tmp115304)))) (declare (not safe)) - (cons __tmp115299 '())))) + (cons __tmp115303 '())))) (declare (not safe)) - (cons _L103591_ __tmp115298)))) + (cons _L103595_ __tmp115302)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115307 - __tmp115297)))) + (cons __tmp115311 + __tmp115301)))) (declare (not safe)) - (cons __tmp115308 __tmp115296)))) + (cons __tmp115312 __tmp115300)))) (declare (not safe)) - (cons __tmp115295 '())))) + (cons __tmp115299 '())))) (declare (not safe)) - (cons __tmp115309 __tmp115294))) - (__tmp115227 - (let ((__tmp115273 - (let ((__tmp115289 - (let ((__tmp115292 + (cons __tmp115313 __tmp115298))) + (__tmp115231 + (let ((__tmp115277 + (let ((__tmp115293 + (let ((__tmp115296 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp115290 - (let ((__tmp115291 + (__tmp115294 + (let ((__tmp115295 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp115291 '())))) + (cons __tmp115295 '())))) (declare (not safe)) - (cons __tmp115292 __tmp115290))) - (__tmp115274 - (let ((__tmp115275 - (let ((__tmp115288 + (cons __tmp115296 __tmp115294))) + (__tmp115278 + (let ((__tmp115279 + (let ((__tmp115292 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp115276 - (let ((__tmp115287 + (__tmp115280 + (let ((__tmp115291 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115277 - (let ((__tmp115278 - (let ((__tmp115279 - (let ((__tmp115286 + (__tmp115281 + (let ((__tmp115282 + (let ((__tmp115283 + (let ((__tmp115290 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp115280 - (let ((__tmp115282 - (let ((__tmp115285 + (__tmp115284 + (let ((__tmp115286 + (let ((__tmp115289 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp115283 - (let ((__tmp115284 + (__tmp115287 + (let ((__tmp115288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp115284 '())))) + (cons __tmp115288 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115285 - __tmp115283))) - (__tmp115281 + (cons __tmp115289 + __tmp115287))) + (__tmp115285 (let () (declare (not safe)) - (cons _L103590_ '())))) + (cons _L103594_ '())))) (declare (not safe)) - (cons __tmp115282 __tmp115281)))) + (cons __tmp115286 __tmp115285)))) (declare (not safe)) - (cons __tmp115286 __tmp115280)))) + (cons __tmp115290 __tmp115284)))) (declare (not safe)) - (cons __tmp115279 '())))) + (cons __tmp115283 '())))) (declare (not safe)) - (cons _L103591_ __tmp115278)))) + (cons _L103595_ __tmp115282)))) (declare (not safe)) - (cons __tmp115287 __tmp115277)))) + (cons __tmp115291 __tmp115281)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115288 - __tmp115276)))) + (cons __tmp115292 + __tmp115280)))) (declare (not safe)) - (cons __tmp115275 '())))) + (cons __tmp115279 '())))) (declare (not safe)) - (cons __tmp115289 __tmp115274))) - (__tmp115228 - (let ((__tmp115229 - (let ((__tmp115272 + (cons __tmp115293 __tmp115278))) + (__tmp115232 + (let ((__tmp115233 + (let ((__tmp115276 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_))) - (__tmp115230 - (let ((__tmp115231 - (let ((__tmp115271 + (__tmp115234 + (let ((__tmp115235 + (let ((__tmp115275 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp115232 - (let ((__tmp115258 - (let ((__tmp115270 + (__tmp115236 + (let ((__tmp115262 + (let ((__tmp115274 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp115259 - (let ((__tmp115260 - (let ((__tmp115269 + (__tmp115263 + (let ((__tmp115264 + (let ((__tmp115273 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-symbol))) - (__tmp115261 - (let ((__tmp115262 - (let ((__tmp115268 + (__tmp115265 + (let ((__tmp115266 + (let ((__tmp115272 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gensym))) - (__tmp115263 - (let ((__tmp115264 - (let ((__tmp115267 + (__tmp115267 + (let ((__tmp115268 + (let ((__tmp115271 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp115265 - (let ((__tmp115266 + (__tmp115269 + (let ((__tmp115270 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '__tmp)))) (declare (not safe)) - (cons __tmp115266 '())))) + (cons __tmp115270 '())))) (declare (not safe)) - (cons __tmp115267 __tmp115265)))) + (cons __tmp115271 __tmp115269)))) (declare (not safe)) - (cons __tmp115264 '())))) + (cons __tmp115268 '())))) (declare (not safe)) - (cons __tmp115268 __tmp115263)))) + (cons __tmp115272 __tmp115267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115262 '())))) + (cons __tmp115266 '())))) (declare (not safe)) - (cons __tmp115269 __tmp115261)))) + (cons __tmp115273 __tmp115265)))) (declare (not safe)) - (cons __tmp115260 '())))) + (cons __tmp115264 '())))) (declare (not safe)) - (cons __tmp115270 __tmp115259))) - (__tmp115233 - (let ((__tmp115234 - (let ((__tmp115257 + (cons __tmp115274 __tmp115263))) + (__tmp115237 + (let ((__tmp115238 + (let ((__tmp115261 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp115235 - (let ((__tmp115256 + (__tmp115239 + (let ((__tmp115260 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115236 - (let ((__tmp115243 - (let ((__tmp115255 + (__tmp115240 + (let ((__tmp115247 + (let ((__tmp115259 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp115244 - (let ((__tmp115246 - (let ((__tmp115254 + (__tmp115248 + (let ((__tmp115250 + (let ((__tmp115258 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp115247 - (let ((__tmp115253 + (__tmp115251 + (let ((__tmp115257 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp115248 - (let ((__tmp115249 - (let ((__tmp115252 + (__tmp115252 + (let ((__tmp115253 + (let ((__tmp115256 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp115250 - (let ((__tmp115251 + (__tmp115254 + (let ((__tmp115255 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp115251 '())))) + (cons __tmp115255 '())))) (declare (not safe)) - (cons __tmp115252 __tmp115250)))) + (cons __tmp115256 __tmp115254)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115249 '())))) + (cons __tmp115253 '())))) (declare (not safe)) - (cons __tmp115253 __tmp115248)))) + (cons __tmp115257 __tmp115252)))) (declare (not safe)) - (cons __tmp115254 __tmp115247))) - (__tmp115245 + (cons __tmp115258 __tmp115251))) + (__tmp115249 (let () (declare (not safe)) - (cons _L103591_ '())))) + (cons _L103595_ '())))) (declare (not safe)) - (cons __tmp115246 __tmp115245)))) + (cons __tmp115250 __tmp115249)))) (declare (not safe)) - (cons __tmp115255 __tmp115244))) - (__tmp115237 - (let ((__tmp115238 - (let ((__tmp115242 + (cons __tmp115259 __tmp115248))) + (__tmp115241 + (let ((__tmp115242 + (let ((__tmp115246 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp115239 - (let ((__tmp115241 + (__tmp115243 + (let ((__tmp115245 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp115240 + (__tmp115244 (let () (declare (not safe)) - (cons _L103590_ '())))) + (cons _L103594_ '())))) (declare (not safe)) - (cons __tmp115241 __tmp115240)))) + (cons __tmp115245 __tmp115244)))) (declare (not safe)) - (cons __tmp115242 __tmp115239)))) + (cons __tmp115246 __tmp115243)))) (declare (not safe)) - (cons __tmp115238 '())))) + (cons __tmp115242 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115243 - __tmp115237)))) + (cons __tmp115247 + __tmp115241)))) (declare (not safe)) - (cons __tmp115256 __tmp115236)))) + (cons __tmp115260 __tmp115240)))) (declare (not safe)) - (cons __tmp115257 __tmp115235)))) + (cons __tmp115261 __tmp115239)))) (declare (not safe)) - (cons __tmp115234 '())))) + (cons __tmp115238 '())))) (declare (not safe)) - (cons __tmp115258 __tmp115233)))) + (cons __tmp115262 __tmp115237)))) (declare (not safe)) - (cons __tmp115271 __tmp115232)))) + (cons __tmp115275 __tmp115236)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115231 '())))) + (cons __tmp115235 '())))) (declare (not safe)) - (cons __tmp115272 __tmp115230)))) + (cons __tmp115276 __tmp115234)))) (declare (not safe)) - (cons __tmp115229 '())))) + (cons __tmp115233 '())))) (declare (not safe)) - (cons __tmp115273 __tmp115228)))) + (cons __tmp115277 __tmp115232)))) (declare (not safe)) - (cons __tmp115293 __tmp115227)))) + (cons __tmp115297 __tmp115231)))) (declare (not safe)) - (cons __tmp115313 __tmp115226)))) + (cons __tmp115317 __tmp115230)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115317 - __tmp115225)))) + (cons __tmp115321 + __tmp115229)))) (declare (not safe)) - (cons __tmp115318 __tmp115224)))) + (cons __tmp115322 __tmp115228)))) (declare (not safe)) - (cons __tmp115223 '())))) + (cons __tmp115227 '())))) (declare (not safe)) - (cons __tmp115319 __tmp115222))) - (__tmp115216 - (let ((__tmp115217 - (let ((__tmp115220 + (cons __tmp115323 __tmp115226))) + (__tmp115220 + (let ((__tmp115221 + (let ((__tmp115224 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp115218 - (let ((__tmp115219 - (lambda (_g103617103620_ - _g103618103623_) + (__tmp115222 + (let ((__tmp115223 + (lambda (_g103621103624_ + _g103622103627_) (let () (declare (not safe)) - (cons _g103617103620_ - _g103618103623_))))) + (cons _g103621103624_ + _g103622103627_))))) (declare (not safe)) - (foldr1 __tmp115219 '() _L103587_)))) + (foldr1 __tmp115223 '() _L103591_)))) (declare (not safe)) - (cons __tmp115220 __tmp115218)))) + (cons __tmp115224 __tmp115222)))) (declare (not safe)) - (cons __tmp115217 '())))) + (cons __tmp115221 '())))) (declare (not safe)) - (cons __tmp115221 __tmp115216)))) + (cons __tmp115225 __tmp115220)))) (declare (not safe)) - (cons __tmp115324 __tmp115215)))) + (cons __tmp115328 __tmp115219)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115325 - __tmp115214)))) + (cons __tmp115329 + __tmp115218)))) (declare (not safe)) - (cons __tmp115213 '())))) + (cons __tmp115217 '())))) (declare (not safe)) - (cons __tmp115326 __tmp115212)))) + (cons __tmp115330 __tmp115216)))) (declare (not safe)) - (cons __tmp115340 __tmp115211)))) + (cons __tmp115344 __tmp115215)))) (declare (not safe)) - (cons __tmp115341 __tmp115210))) - _body103494103583_ - _hd103484103551_ - _hd103481103541_ - _hd103478103531_)))))) + (cons __tmp115345 __tmp115214))) + _body103498103587_ + _hd103488103555_ + _hd103485103545_ + _hd103482103535_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop103489103563_ - _target103486103557_ + (_loop103493103567_ + _target103490103561_ '())) - (_g103465103500_ _g103466103504_))))) - (_g103465103500_ _g103466103504_)) - (_g103465103500_ _g103466103504_)))) - (_g103465103500_ _g103466103504_)))) + (_g103469103504_ _g103470103508_))))) + (_g103469103504_ _g103470103508_)) + (_g103469103504_ _g103470103508_)))) + (_g103469103504_ _g103470103508_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g103465103500_ - _g103466103504_)))) - (_g103465103500_ _g103466103504_)))) - (_g103465103500_ _g103466103504_)))) - (_g103465103500_ _g103466103504_))))) - (_g103464103626_ _$stx103461_)))) + (_g103469103504_ + _g103470103508_)))) + (_g103469103504_ _g103470103508_)))) + (_g103469103504_ _g103470103508_)))) + (_g103469103504_ _g103470103508_))))) + (_g103468103630_ _$stx103465_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx103631_) - (let* ((_g103635103653_ - (lambda (_g103636103649_) + (lambda (_$stx103635_) + (let* ((_g103639103657_ + (lambda (_g103640103653_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103636103649_)))) - (_g103634103708_ - (lambda (_g103636103657_) + _g103640103653_)))) + (_g103638103712_ + (lambda (_g103640103661_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103636103657_)) - (let ((_e103641103660_ + (gx#stx-pair? _g103640103661_)) + (let ((_e103645103664_ (let () (declare (not safe)) - (gx#syntax-e _g103636103657_)))) - (let ((_hd103640103664_ + (gx#syntax-e _g103640103661_)))) + (let ((_hd103644103668_ (let () (declare (not safe)) - (##car _e103641103660_))) - (_tl103639103667_ + (##car _e103645103664_))) + (_tl103643103671_ (let () (declare (not safe)) - (##cdr _e103641103660_)))) + (##cdr _e103645103664_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103639103667_)) - (let ((_e103644103670_ + (gx#stx-pair? _tl103643103671_)) + (let ((_e103648103674_ (let () (declare (not safe)) - (gx#syntax-e _tl103639103667_)))) - (let ((_hd103643103674_ + (gx#syntax-e _tl103643103671_)))) + (let ((_hd103647103678_ (let () (declare (not safe)) - (##car _e103644103670_))) - (_tl103642103677_ + (##car _e103648103674_))) + (_tl103646103681_ (let () (declare (not safe)) - (##cdr _e103644103670_)))) + (##cdr _e103648103674_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103642103677_)) - (let ((_e103647103680_ + (gx#stx-pair? _tl103646103681_)) + (let ((_e103651103684_ (let () (declare (not safe)) (gx#syntax-e - _tl103642103677_)))) - (let ((_hd103646103684_ + _tl103646103681_)))) + (let ((_hd103650103688_ (let () (declare (not safe)) - (##car _e103647103680_))) - (_tl103645103687_ + (##car _e103651103684_))) + (_tl103649103691_ (let () (declare (not safe)) - (##cdr _e103647103680_)))) + (##cdr _e103651103684_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103645103687_)) - ((lambda (_L103690_ _L103692_) - (let ((__tmp115357 + _tl103649103691_)) + ((lambda (_L103694_ _L103696_) + (let ((__tmp115361 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond-expand))) - (__tmp115342 - (let ((__tmp115354 - (let ((__tmp115356 + (__tmp115346 + (let ((__tmp115358 + (let ((__tmp115360 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives))) - (__tmp115355 + (__tmp115359 (let () (declare (not safe)) - (cons _L103692_ '())))) + (cons _L103696_ '())))) (declare (not safe)) - (cons __tmp115356 __tmp115355))) - (__tmp115343 - (let ((__tmp115344 - (let ((__tmp115353 + (cons __tmp115360 __tmp115359))) + (__tmp115347 + (let ((__tmp115348 + (let ((__tmp115357 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp115345 - (let ((__tmp115346 - (let ((__tmp115352 + (__tmp115349 + (let ((__tmp115350 + (let ((__tmp115356 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp115347 - (let ((__tmp115350 - (let ((__tmp115351 + (__tmp115351 + (let ((__tmp115354 + (let ((__tmp115355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -3321,40 +3321,40 @@ '#f 'current-compile-decls-unsafe?)))) (declare (not safe)) - (cons __tmp115351 '()))) - (__tmp115348 - (let ((__tmp115349 - (let () (declare (not safe)) (cons _L103690_ '())))) + (cons __tmp115355 '()))) + (__tmp115352 + (let ((__tmp115353 + (let () (declare (not safe)) (cons _L103694_ '())))) (declare (not safe)) - (cons _L103692_ __tmp115349)))) + (cons _L103696_ __tmp115353)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115350 - __tmp115348)))) + (cons __tmp115354 + __tmp115352)))) (declare (not safe)) - (cons __tmp115352 __tmp115347)))) + (cons __tmp115356 __tmp115351)))) (declare (not safe)) - (cons __tmp115346 '())))) + (cons __tmp115350 '())))) (declare (not safe)) - (cons __tmp115353 __tmp115345)))) + (cons __tmp115357 __tmp115349)))) (declare (not safe)) - (cons __tmp115344 '())))) + (cons __tmp115348 '())))) (declare (not safe)) - (cons __tmp115354 __tmp115343)))) + (cons __tmp115358 __tmp115347)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115357 - __tmp115342))) - _hd103646103684_ - _hd103643103674_) - (_g103635103653_ - _g103636103657_)))) - (_g103635103653_ _g103636103657_)))) - (_g103635103653_ _g103636103657_)))) - (_g103635103653_ _g103636103657_))))) - (_g103634103708_ _$stx103631_)))) + (cons __tmp115361 + __tmp115346))) + _hd103650103688_ + _hd103647103678_) + (_g103639103657_ + _g103640103661_)))) + (_g103639103657_ _g103640103661_)))) + (_g103639103657_ _g103640103661_)))) + (_g103639103657_ _g103640103661_))))) + (_g103638103712_ _$stx103635_)))) (define |gxc[:0:]#meta-state| - (let ((__obj114217 + (let ((__obj114221 (let () (declare (not safe)) (##structure @@ -3378,7 +3378,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114221 'gxc#meta-state::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3386,7 +3386,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114221 'meta-state '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3394,7 +3394,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114221 '(src n open blocks) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3402,7 +3402,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114221 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3410,7 +3410,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114221 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3418,7 +3418,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114221 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3426,7 +3426,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114221 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3434,182 +3434,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114221 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115358 |gxc[1]#_g115359_|)) + (let ((__tmp115362 |gxc[1]#_g115363_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115358 + __obj114221 + __tmp115362 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115360 |gxc[1]#_g115361_|)) + (let ((__tmp115364 |gxc[1]#_g115365_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115360 + __obj114221 + __tmp115364 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115362 |gxc[1]#_g115363_|)) + (let ((__tmp115366 |gxc[1]#_g115367_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115362 + __obj114221 + __tmp115366 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115364 - (let ((__tmp115377 - (let ((__tmp115378 |gxc[1]#_g115379_|)) + (let ((__tmp115368 + (let ((__tmp115381 + (let ((__tmp115382 |gxc[1]#_g115383_|)) (declare (not safe)) - (cons 'src __tmp115378))) - (__tmp115365 - (let ((__tmp115374 - (let ((__tmp115375 |gxc[1]#_g115376_|)) + (cons 'src __tmp115382))) + (__tmp115369 + (let ((__tmp115378 + (let ((__tmp115379 |gxc[1]#_g115380_|)) (declare (not safe)) - (cons 'n __tmp115375))) - (__tmp115366 - (let ((__tmp115371 - (let ((__tmp115372 |gxc[1]#_g115373_|)) + (cons 'n __tmp115379))) + (__tmp115370 + (let ((__tmp115375 + (let ((__tmp115376 |gxc[1]#_g115377_|)) (declare (not safe)) - (cons 'open __tmp115372))) - (__tmp115367 - (let ((__tmp115368 - (let ((__tmp115369 - |gxc[1]#_g115370_|)) + (cons 'open __tmp115376))) + (__tmp115371 + (let ((__tmp115372 + (let ((__tmp115373 + |gxc[1]#_g115374_|)) (declare (not safe)) - (cons 'blocks __tmp115369)))) + (cons 'blocks __tmp115373)))) (declare (not safe)) - (cons __tmp115368 '())))) + (cons __tmp115372 '())))) (declare (not safe)) - (cons __tmp115371 __tmp115367)))) + (cons __tmp115375 __tmp115371)))) (declare (not safe)) - (cons __tmp115374 __tmp115366)))) + (cons __tmp115378 __tmp115370)))) (declare (not safe)) - (cons __tmp115377 __tmp115365)))) + (cons __tmp115381 __tmp115369)))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115364 + __obj114221 + __tmp115368 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115380 - (let ((__tmp115393 - (let ((__tmp115394 |gxc[1]#_g115395_|)) + (let ((__tmp115384 + (let ((__tmp115397 + (let ((__tmp115398 |gxc[1]#_g115399_|)) (declare (not safe)) - (cons 'src __tmp115394))) - (__tmp115381 - (let ((__tmp115390 - (let ((__tmp115391 |gxc[1]#_g115392_|)) + (cons 'src __tmp115398))) + (__tmp115385 + (let ((__tmp115394 + (let ((__tmp115395 |gxc[1]#_g115396_|)) (declare (not safe)) - (cons 'n __tmp115391))) - (__tmp115382 - (let ((__tmp115387 - (let ((__tmp115388 |gxc[1]#_g115389_|)) + (cons 'n __tmp115395))) + (__tmp115386 + (let ((__tmp115391 + (let ((__tmp115392 |gxc[1]#_g115393_|)) (declare (not safe)) - (cons 'open __tmp115388))) - (__tmp115383 - (let ((__tmp115384 - (let ((__tmp115385 - |gxc[1]#_g115386_|)) + (cons 'open __tmp115392))) + (__tmp115387 + (let ((__tmp115388 + (let ((__tmp115389 + |gxc[1]#_g115390_|)) (declare (not safe)) - (cons 'blocks __tmp115385)))) + (cons 'blocks __tmp115389)))) (declare (not safe)) - (cons __tmp115384 '())))) + (cons __tmp115388 '())))) (declare (not safe)) - (cons __tmp115387 __tmp115383)))) + (cons __tmp115391 __tmp115387)))) (declare (not safe)) - (cons __tmp115390 __tmp115382)))) + (cons __tmp115394 __tmp115386)))) (declare (not safe)) - (cons __tmp115393 __tmp115381)))) + (cons __tmp115397 __tmp115385)))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115380 + __obj114221 + __tmp115384 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115396 - (let ((__tmp115409 - (let ((__tmp115410 |gxc[1]#_g115411_|)) + (let ((__tmp115400 + (let ((__tmp115413 + (let ((__tmp115414 |gxc[1]#_g115415_|)) (declare (not safe)) - (cons 'src __tmp115410))) - (__tmp115397 - (let ((__tmp115406 - (let ((__tmp115407 |gxc[1]#_g115408_|)) + (cons 'src __tmp115414))) + (__tmp115401 + (let ((__tmp115410 + (let ((__tmp115411 |gxc[1]#_g115412_|)) (declare (not safe)) - (cons 'n __tmp115407))) - (__tmp115398 - (let ((__tmp115403 - (let ((__tmp115404 |gxc[1]#_g115405_|)) + (cons 'n __tmp115411))) + (__tmp115402 + (let ((__tmp115407 + (let ((__tmp115408 |gxc[1]#_g115409_|)) (declare (not safe)) - (cons 'open __tmp115404))) - (__tmp115399 - (let ((__tmp115400 - (let ((__tmp115401 - |gxc[1]#_g115402_|)) + (cons 'open __tmp115408))) + (__tmp115403 + (let ((__tmp115404 + (let ((__tmp115405 + |gxc[1]#_g115406_|)) (declare (not safe)) - (cons 'blocks __tmp115401)))) + (cons 'blocks __tmp115405)))) (declare (not safe)) - (cons __tmp115400 '())))) + (cons __tmp115404 '())))) (declare (not safe)) - (cons __tmp115403 __tmp115399)))) + (cons __tmp115407 __tmp115403)))) (declare (not safe)) - (cons __tmp115406 __tmp115398)))) + (cons __tmp115410 __tmp115402)))) (declare (not safe)) - (cons __tmp115409 __tmp115397)))) + (cons __tmp115413 __tmp115401)))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115396 + __obj114221 + __tmp115400 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115412 - (let ((__tmp115425 - (let ((__tmp115426 |gxc[1]#_g115427_|)) + (let ((__tmp115416 + (let ((__tmp115429 + (let ((__tmp115430 |gxc[1]#_g115431_|)) (declare (not safe)) - (cons 'src __tmp115426))) - (__tmp115413 - (let ((__tmp115422 - (let ((__tmp115423 |gxc[1]#_g115424_|)) + (cons 'src __tmp115430))) + (__tmp115417 + (let ((__tmp115426 + (let ((__tmp115427 |gxc[1]#_g115428_|)) (declare (not safe)) - (cons 'n __tmp115423))) - (__tmp115414 - (let ((__tmp115419 - (let ((__tmp115420 |gxc[1]#_g115421_|)) + (cons 'n __tmp115427))) + (__tmp115418 + (let ((__tmp115423 + (let ((__tmp115424 |gxc[1]#_g115425_|)) (declare (not safe)) - (cons 'open __tmp115420))) - (__tmp115415 - (let ((__tmp115416 - (let ((__tmp115417 - |gxc[1]#_g115418_|)) + (cons 'open __tmp115424))) + (__tmp115419 + (let ((__tmp115420 + (let ((__tmp115421 + |gxc[1]#_g115422_|)) (declare (not safe)) - (cons 'blocks __tmp115417)))) + (cons 'blocks __tmp115421)))) (declare (not safe)) - (cons __tmp115416 '())))) + (cons __tmp115420 '())))) (declare (not safe)) - (cons __tmp115419 __tmp115415)))) + (cons __tmp115423 __tmp115419)))) (declare (not safe)) - (cons __tmp115422 __tmp115414)))) + (cons __tmp115426 __tmp115418)))) (declare (not safe)) - (cons __tmp115425 __tmp115413)))) + (cons __tmp115429 __tmp115417)))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115412 + __obj114221 + __tmp115416 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114217)) + __obj114221)) (define |gxc[:0:]#meta-state-block| - (let ((__obj114218 + (let ((__obj114222 (let () (declare (not safe)) (##structure @@ -3633,7 +3633,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 + __obj114222 'gxc#meta-state-block::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3641,7 +3641,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 + __obj114222 'meta-state-block '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3649,7 +3649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 + __obj114222 '(ctx phi n code) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3657,7 +3657,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 + __obj114222 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3665,7 +3665,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 + __obj114222 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3673,7 +3673,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 + __obj114222 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3681,7 +3681,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 + __obj114222 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3689,177 +3689,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 + __obj114222 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115428 |gxc[1]#_g115429_|)) + (let ((__tmp115432 |gxc[1]#_g115433_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114218 - __tmp115428 + __obj114222 + __tmp115432 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115430 |gxc[1]#_g115431_|)) + (let ((__tmp115434 |gxc[1]#_g115435_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114218 - __tmp115430 + __obj114222 + __tmp115434 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115432 |gxc[1]#_g115433_|)) + (let ((__tmp115436 |gxc[1]#_g115437_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114218 - __tmp115432 + __obj114222 + __tmp115436 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115434 - (let ((__tmp115447 - (let ((__tmp115448 |gxc[1]#_g115449_|)) + (let ((__tmp115438 + (let ((__tmp115451 + (let ((__tmp115452 |gxc[1]#_g115453_|)) (declare (not safe)) - (cons 'ctx __tmp115448))) - (__tmp115435 - (let ((__tmp115444 - (let ((__tmp115445 |gxc[1]#_g115446_|)) + (cons 'ctx __tmp115452))) + (__tmp115439 + (let ((__tmp115448 + (let ((__tmp115449 |gxc[1]#_g115450_|)) (declare (not safe)) - (cons 'phi __tmp115445))) - (__tmp115436 - (let ((__tmp115441 - (let ((__tmp115442 |gxc[1]#_g115443_|)) + (cons 'phi __tmp115449))) + (__tmp115440 + (let ((__tmp115445 + (let ((__tmp115446 |gxc[1]#_g115447_|)) (declare (not safe)) - (cons 'n __tmp115442))) - (__tmp115437 - (let ((__tmp115438 - (let ((__tmp115439 - |gxc[1]#_g115440_|)) + (cons 'n __tmp115446))) + (__tmp115441 + (let ((__tmp115442 + (let ((__tmp115443 + |gxc[1]#_g115444_|)) (declare (not safe)) - (cons 'code __tmp115439)))) + (cons 'code __tmp115443)))) (declare (not safe)) - (cons __tmp115438 '())))) + (cons __tmp115442 '())))) (declare (not safe)) - (cons __tmp115441 __tmp115437)))) + (cons __tmp115445 __tmp115441)))) (declare (not safe)) - (cons __tmp115444 __tmp115436)))) + (cons __tmp115448 __tmp115440)))) (declare (not safe)) - (cons __tmp115447 __tmp115435)))) + (cons __tmp115451 __tmp115439)))) (declare (not safe)) (##unchecked-structure-set! - __obj114218 - __tmp115434 + __obj114222 + __tmp115438 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115450 - (let ((__tmp115463 - (let ((__tmp115464 |gxc[1]#_g115465_|)) + (let ((__tmp115454 + (let ((__tmp115467 + (let ((__tmp115468 |gxc[1]#_g115469_|)) (declare (not safe)) - (cons 'ctx __tmp115464))) - (__tmp115451 - (let ((__tmp115460 - (let ((__tmp115461 |gxc[1]#_g115462_|)) + (cons 'ctx __tmp115468))) + (__tmp115455 + (let ((__tmp115464 + (let ((__tmp115465 |gxc[1]#_g115466_|)) (declare (not safe)) - (cons 'phi __tmp115461))) - (__tmp115452 - (let ((__tmp115457 - (let ((__tmp115458 |gxc[1]#_g115459_|)) + (cons 'phi __tmp115465))) + (__tmp115456 + (let ((__tmp115461 + (let ((__tmp115462 |gxc[1]#_g115463_|)) (declare (not safe)) - (cons 'n __tmp115458))) - (__tmp115453 - (let ((__tmp115454 - (let ((__tmp115455 - |gxc[1]#_g115456_|)) + (cons 'n __tmp115462))) + (__tmp115457 + (let ((__tmp115458 + (let ((__tmp115459 + |gxc[1]#_g115460_|)) (declare (not safe)) - (cons 'code __tmp115455)))) + (cons 'code __tmp115459)))) (declare (not safe)) - (cons __tmp115454 '())))) + (cons __tmp115458 '())))) (declare (not safe)) - (cons __tmp115457 __tmp115453)))) + (cons __tmp115461 __tmp115457)))) (declare (not safe)) - (cons __tmp115460 __tmp115452)))) + (cons __tmp115464 __tmp115456)))) (declare (not safe)) - (cons __tmp115463 __tmp115451)))) + (cons __tmp115467 __tmp115455)))) (declare (not safe)) (##unchecked-structure-set! - __obj114218 - __tmp115450 + __obj114222 + __tmp115454 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115466 - (let ((__tmp115479 - (let ((__tmp115480 |gxc[1]#_g115481_|)) + (let ((__tmp115470 + (let ((__tmp115483 + (let ((__tmp115484 |gxc[1]#_g115485_|)) (declare (not safe)) - (cons 'ctx __tmp115480))) - (__tmp115467 - (let ((__tmp115476 - (let ((__tmp115477 |gxc[1]#_g115478_|)) + (cons 'ctx __tmp115484))) + (__tmp115471 + (let ((__tmp115480 + (let ((__tmp115481 |gxc[1]#_g115482_|)) (declare (not safe)) - (cons 'phi __tmp115477))) - (__tmp115468 - (let ((__tmp115473 - (let ((__tmp115474 |gxc[1]#_g115475_|)) + (cons 'phi __tmp115481))) + (__tmp115472 + (let ((__tmp115477 + (let ((__tmp115478 |gxc[1]#_g115479_|)) (declare (not safe)) - (cons 'n __tmp115474))) - (__tmp115469 - (let ((__tmp115470 - (let ((__tmp115471 - |gxc[1]#_g115472_|)) + (cons 'n __tmp115478))) + (__tmp115473 + (let ((__tmp115474 + (let ((__tmp115475 + |gxc[1]#_g115476_|)) (declare (not safe)) - (cons 'code __tmp115471)))) + (cons 'code __tmp115475)))) (declare (not safe)) - (cons __tmp115470 '())))) + (cons __tmp115474 '())))) (declare (not safe)) - (cons __tmp115473 __tmp115469)))) + (cons __tmp115477 __tmp115473)))) (declare (not safe)) - (cons __tmp115476 __tmp115468)))) + (cons __tmp115480 __tmp115472)))) (declare (not safe)) - (cons __tmp115479 __tmp115467)))) + (cons __tmp115483 __tmp115471)))) (declare (not safe)) (##unchecked-structure-set! - __obj114218 - __tmp115466 + __obj114222 + __tmp115470 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115482 - (let ((__tmp115495 - (let ((__tmp115496 |gxc[1]#_g115497_|)) + (let ((__tmp115486 + (let ((__tmp115499 + (let ((__tmp115500 |gxc[1]#_g115501_|)) (declare (not safe)) - (cons 'ctx __tmp115496))) - (__tmp115483 - (let ((__tmp115492 - (let ((__tmp115493 |gxc[1]#_g115494_|)) + (cons 'ctx __tmp115500))) + (__tmp115487 + (let ((__tmp115496 + (let ((__tmp115497 |gxc[1]#_g115498_|)) (declare (not safe)) - (cons 'phi __tmp115493))) - (__tmp115484 - (let ((__tmp115489 - (let ((__tmp115490 |gxc[1]#_g115491_|)) + (cons 'phi __tmp115497))) + (__tmp115488 + (let ((__tmp115493 + (let ((__tmp115494 |gxc[1]#_g115495_|)) (declare (not safe)) - (cons 'n __tmp115490))) - (__tmp115485 - (let ((__tmp115486 - (let ((__tmp115487 - |gxc[1]#_g115488_|)) + (cons 'n __tmp115494))) + (__tmp115489 + (let ((__tmp115490 + (let ((__tmp115491 + |gxc[1]#_g115492_|)) (declare (not safe)) - (cons 'code __tmp115487)))) + (cons 'code __tmp115491)))) (declare (not safe)) - (cons __tmp115486 '())))) + (cons __tmp115490 '())))) (declare (not safe)) - (cons __tmp115489 __tmp115485)))) + (cons __tmp115493 __tmp115489)))) (declare (not safe)) - (cons __tmp115492 __tmp115484)))) + (cons __tmp115496 __tmp115488)))) (declare (not safe)) - (cons __tmp115495 __tmp115483)))) + (cons __tmp115499 __tmp115487)))) (declare (not safe)) (##unchecked-structure-set! - __obj114218 - __tmp115482 + __obj114222 + __tmp115486 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114218)))) + __obj114222)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index c66f596ce..51d72e5cb 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 1710781154) + (define gerbil/compiler/driver::timestamp 1710833429) (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 (_path160226_ _fun160227_) + (lambda (_path160230_ _fun160231_) (with-output-to-file - (let ((__tmp160320 + (let ((__tmp160324 (let () (declare (not safe)) - (cons _path160226_ gxc#scheme-file-settings)))) + (cons _path160230_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp160320)) - _fun160227_))) + (cons 'path: __tmp160324)) + _fun160231_))) (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-libdir160221_) - (string-append '"-Wl,-rpath=" _gerbil-libdir160221_))) + (lambda (_gerbil-libdir160225_) + (string-append '"-Wl,-rpath=" _gerbil-libdir160225_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -69,500 +69,500 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_dir160219_) (delete-file-or-directory _dir160219_ '#t))) + (lambda (_dir160223_) (delete-file-or-directory _dir160223_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath160193_ _opts160194_) - (if (let () (declare (not safe)) (string? _srcpath160193_)) + (lambda (_srcpath160197_ _opts160198_) + (if (let () (declare (not safe)) (string? _srcpath160197_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath160193_))) - (let ((_outdir160196_ + _srcpath160197_))) + (let ((_outdir160200_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts160194_))) - (_invoke-gsc?160197_ + (pgetq__0 'output-dir: _opts160198_))) + (_invoke-gsc?160201_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts160194_))) - (_gsc-options160198_ + (pgetq__0 'invoke-gsc: _opts160198_))) + (_gsc-options160202_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts160194_))) - (_keep-scm?160199_ + (pgetq__0 'gsc-options: _opts160198_))) + (_keep-scm?160203_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts160194_))) - (_verbosity160200_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts160194_))) - (_optimize160201_ + (pgetq__0 'keep-scm: _opts160198_))) + (_verbosity160204_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts160198_))) + (_optimize160205_ (let () (declare (not safe)) - (pgetq__0 'optimize: _opts160194_))) - (_debug160202_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts160194_))) - (_gen-ssxi160203_ + (pgetq__0 'optimize: _opts160198_))) + (_debug160206_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts160198_))) + (_gen-ssxi160207_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _opts160194_)))) - (if _outdir160196_ - (let ((__tmp160321 + (pgetq__0 'generate-ssxi: _opts160198_)))) + (if _outdir160200_ + (let ((__tmp160325 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir160196_))))) + (create-directory*__0 _outdir160200_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160321)) + (with-lock gxc#+driver-mutex+ __tmp160325)) '#!void) - (if _optimize160201_ - (let ((__tmp160322 + (if _optimize160205_ + (let ((__tmp160326 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160322)) + (with-lock gxc#+driver-mutex+ __tmp160326)) '#!void) - (let ((__tmp160326 + (let ((__tmp160330 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath160193_)) - (let ((__tmp160327 - (let ((__tmp160328 + (gxc#verbose '"compile " _srcpath160197_)) + (let ((__tmp160331 + (let ((__tmp160332 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath160193_))))) + (gx#import-module__0 _srcpath160197_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160328)))) + (with-lock gxc#+driver-mutex+ __tmp160332)))) (declare (not safe)) - (gxc#compile-top-module __tmp160327)))) - (__tmp160325 + (gxc#compile-top-module __tmp160331)))) + (__tmp160329 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp160323 - (let ((__tmp160324 + (__tmp160327 + (let ((__tmp160328 (let () (declare (not safe)) - (cons _srcpath160193_ '())))) + (cons _srcpath160197_ '())))) (declare (not safe)) - (cons 'compile-module __tmp160324)))) + (cons 'compile-module __tmp160328)))) (declare (not safe)) (call-with-parameters - __tmp160326 + __tmp160330 gxc#current-compile-output-dir - _outdir160196_ + _outdir160200_ gxc#current-compile-invoke-gsc - _invoke-gsc?160197_ + _invoke-gsc?160201_ gxc#current-compile-gsc-options - _gsc-options160198_ + _gsc-options160202_ gxc#current-compile-keep-scm - _keep-scm?160199_ + _keep-scm?160203_ gxc#current-compile-verbose - _verbosity160200_ + _verbosity160204_ gxc#current-compile-optimize - _optimize160201_ + _optimize160205_ gxc#current-compile-debug - _debug160202_ + _debug160206_ gxc#current-compile-generate-ssxi - _gen-ssxi160203_ + _gen-ssxi160207_ gxc#current-compile-timestamp - __tmp160325 + __tmp160329 gxc#current-compile-context - __tmp160323 + __tmp160327 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath160212_) - (let ((_opts160214_ '())) + (lambda (_srcpath160216_) + (let ((_opts160218_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath160212_ _opts160214_)))) + (gxc#compile-module__% _srcpath160216_ _opts160218_)))) (define gxc#compile-module - (lambda _g160330_ - (let ((_g160329_ (let () (declare (not safe)) (##length _g160330_)))) - (cond ((let () (declare (not safe)) (##fx= _g160329_ 1)) - (apply (lambda (_srcpath160212_) + (lambda _g160334_ + (let ((_g160333_ (let () (declare (not safe)) (##length _g160334_)))) + (cond ((let () (declare (not safe)) (##fx= _g160333_ 1)) + (apply (lambda (_srcpath160216_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath160212_))) - _g160330_)) - ((let () (declare (not safe)) (##fx= _g160329_ 2)) - (apply (lambda (_srcpath160216_ _opts160217_) + (gxc#compile-module__0 _srcpath160216_))) + _g160334_)) + ((let () (declare (not safe)) (##fx= _g160333_ 2)) + (apply (lambda (_srcpath160220_ _opts160221_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath160216_ - _opts160217_))) - _g160330_)) + _srcpath160220_ + _opts160221_))) + _g160334_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g160330_)))))) + _g160334_)))))) (define gxc#compile-exe__% - (lambda (_srcpath160169_ _opts160170_) - (if (let () (declare (not safe)) (string? _srcpath160169_)) + (lambda (_srcpath160173_ _opts160174_) + (if (let () (declare (not safe)) (string? _srcpath160173_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath160169_))) - (let ((_outdir160172_ + _srcpath160173_))) + (let ((_outdir160176_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts160170_))) - (_invoke-gsc?160173_ + (pgetq__0 'output-dir: _opts160174_))) + (_invoke-gsc?160177_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts160170_))) - (_gsc-options160174_ + (pgetq__0 'invoke-gsc: _opts160174_))) + (_gsc-options160178_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts160170_))) - (_keep-scm?160175_ + (pgetq__0 'gsc-options: _opts160174_))) + (_keep-scm?160179_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts160170_))) - (_verbosity160176_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts160170_))) - (_debug160177_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts160170_)))) - (if _outdir160172_ - (let ((__tmp160331 + (pgetq__0 'keep-scm: _opts160174_))) + (_verbosity160180_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts160174_))) + (_debug160181_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts160174_)))) + (if _outdir160176_ + (let ((__tmp160335 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir160172_))))) + (create-directory*__0 _outdir160176_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160331)) + (with-lock gxc#+driver-mutex+ __tmp160335)) '#!void) - (let ((__tmp160335 + (let ((__tmp160339 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath160169_)) - (let ((__tmp160336 - (let ((__tmp160337 + (gxc#verbose '"compile exe " _srcpath160173_)) + (let ((__tmp160340 + (let ((__tmp160341 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath160169_))))) + (gx#import-module__0 _srcpath160173_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160337)))) + (with-lock gxc#+driver-mutex+ __tmp160341)))) (declare (not safe)) (gxc#compile-executable-module - __tmp160336 - _opts160170_)))) - (__tmp160334 + __tmp160340 + _opts160174_)))) + (__tmp160338 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp160332 - (let ((__tmp160333 + (__tmp160336 + (let ((__tmp160337 (let () (declare (not safe)) - (cons _srcpath160169_ '())))) + (cons _srcpath160173_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp160333)))) + (cons 'compile-exe __tmp160337)))) (declare (not safe)) (call-with-parameters - __tmp160335 + __tmp160339 gxc#current-compile-output-dir - _outdir160172_ + _outdir160176_ gxc#current-compile-invoke-gsc - _invoke-gsc?160173_ + _invoke-gsc?160177_ gxc#current-compile-gsc-options - _gsc-options160174_ + _gsc-options160178_ gxc#current-compile-keep-scm - _keep-scm?160175_ + _keep-scm?160179_ gxc#current-compile-verbose - _verbosity160176_ + _verbosity160180_ gxc#current-compile-debug - _debug160177_ + _debug160181_ gxc#current-compile-timestamp - __tmp160334 + __tmp160338 gxc#current-compile-context - __tmp160332 + __tmp160336 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath160185_) - (let ((_opts160187_ '())) + (lambda (_srcpath160189_) + (let ((_opts160191_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath160185_ _opts160187_)))) + (gxc#compile-exe__% _srcpath160189_ _opts160191_)))) (define gxc#compile-exe - (lambda _g160339_ - (let ((_g160338_ (let () (declare (not safe)) (##length _g160339_)))) - (cond ((let () (declare (not safe)) (##fx= _g160338_ 1)) - (apply (lambda (_srcpath160185_) + (lambda _g160343_ + (let ((_g160342_ (let () (declare (not safe)) (##length _g160343_)))) + (cond ((let () (declare (not safe)) (##fx= _g160342_ 1)) + (apply (lambda (_srcpath160189_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath160185_))) - _g160339_)) - ((let () (declare (not safe)) (##fx= _g160338_ 2)) - (apply (lambda (_srcpath160189_ _opts160190_) + (gxc#compile-exe__0 _srcpath160189_))) + _g160343_)) + ((let () (declare (not safe)) (##fx= _g160342_ 2)) + (apply (lambda (_srcpath160193_ _opts160194_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath160189_ _opts160190_))) - _g160339_)) + (gxc#compile-exe__% _srcpath160193_ _opts160194_))) + _g160343_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g160339_)))))) + _g160343_)))))) (define gxc#compile-executable-module - (lambda (_ctx160165_ _opts160166_) + (lambda (_ctx160169_ _opts160170_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _opts160166_)) + (pgetq__0 'full-program-optimization: _opts160170_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx160165_ - _opts160166_)) + _ctx160169_ + _opts160170_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx160165_ - _opts160166_))))) + _ctx160169_ + _opts160170_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx160048_ _opts160049_) - (letrec ((_generate-stub160051_ - (lambda (_builtin-modules160161_) - (let ((_mod-main160163_ + (lambda (_ctx160052_ _opts160053_) + (letrec ((_generate-stub160055_ + (lambda (_builtin-modules160165_) + (let ((_mod-main160167_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx160048_ 'main)))) - (write (let ((__tmp160340 - (let ((__tmp160341 - (let ((__tmp160342 - (let ((__tmp160343 - (let ((__tmp160345 - (let ((__tmp160346 + (gxc#find-runtime-symbol _ctx160052_ 'main)))) + (write (let ((__tmp160344 + (let ((__tmp160345 + (let ((__tmp160346 + (let ((__tmp160347 + (let ((__tmp160349 + (let ((__tmp160350 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules160161_ '())))) + (cons _builtin-modules160165_ '())))) (declare (not safe)) - (cons 'quote __tmp160346))) - (__tmp160344 + (cons 'quote __tmp160350))) + (__tmp160348 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp160345 __tmp160344)))) + (cons __tmp160349 __tmp160348)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp160343)))) + __tmp160347)))) (declare (not safe)) - (cons __tmp160342 '())))) + (cons __tmp160346 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp160341)))) + (cons 'builtin-modules __tmp160345)))) (declare (not safe)) - (cons 'define __tmp160340))) - (write (let ((__tmp160347 - (let ((__tmp160386 + (cons 'define __tmp160344))) + (write (let ((__tmp160351 + (let ((__tmp160390 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp160348 - (let ((__tmp160349 - (let ((__tmp160350 - (let ((__tmp160374 - (let ((__tmp160375 + (__tmp160352 + (let ((__tmp160353 + (let ((__tmp160354 + (let ((__tmp160378 + (let ((__tmp160379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160376 - (let ((__tmp160384 - (let ((__tmp160385 + (let ((__tmp160380 + (let ((__tmp160388 + (let ((__tmp160389 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp160385))) - (__tmp160377 - (let ((__tmp160378 - (let ((__tmp160379 - (let ((__tmp160380 + __tmp160389))) + (__tmp160381 + (let ((__tmp160382 + (let ((__tmp160383 + (let ((__tmp160384 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160381 - (let ((__tmp160382 - (let ((__tmp160383 + (let ((__tmp160385 + (let ((__tmp160386 + (let ((__tmp160387 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp160383 '())))) + (cons __tmp160387 '())))) (declare (not safe)) - (cons 'cdr __tmp160382)))) + (cons 'cdr __tmp160386)))) (declare (not safe)) - (cons __tmp160381 '())))) + (cons __tmp160385 '())))) (declare (not safe)) - (cons _mod-main160163_ __tmp160380)))) + (cons _mod-main160167_ __tmp160384)))) (declare (not safe)) - (cons 'apply __tmp160379)))) + (cons 'apply __tmp160383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160378 '())))) + (cons __tmp160382 '())))) (declare (not safe)) - (cons __tmp160384 __tmp160377)))) + (cons __tmp160388 __tmp160381)))) (declare (not safe)) - (cons '() __tmp160376)))) + (cons '() __tmp160380)))) (declare (not safe)) - (cons 'lambda __tmp160375))) - (__tmp160351 - (let ((__tmp160352 - (let ((__tmp160353 - (let ((__tmp160354 - (let ((__tmp160365 - (let ((__tmp160366 - (let ((__tmp160367 + (cons 'lambda __tmp160379))) + (__tmp160355 + (let ((__tmp160356 + (let ((__tmp160357 + (let ((__tmp160358 + (let ((__tmp160369 + (let ((__tmp160370 + (let ((__tmp160371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160368 - (let ((__tmp160369 - (let ((__tmp160370 - (let ((__tmp160371 - (let ((__tmp160372 - (let ((__tmp160373 + (let ((__tmp160372 + (let ((__tmp160373 + (let ((__tmp160374 + (let ((__tmp160375 + (let ((__tmp160376 + (let ((__tmp160377 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp160373 '())))) + (cons __tmp160377 '())))) (declare (not safe)) - (cons 'force-output __tmp160372)))) + (cons 'force-output __tmp160376)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160371 '())))) + (cons __tmp160375 '())))) (declare (not safe)) - (cons '() __tmp160370)))) + (cons '() __tmp160374)))) (declare (not safe)) - (cons 'lambda __tmp160369)))) + (cons 'lambda __tmp160373)))) (declare (not safe)) - (cons __tmp160368 '())))) + (cons __tmp160372 '())))) (declare (not safe)) - (cons 'void __tmp160367)))) + (cons 'void __tmp160371)))) (declare (not safe)) - (cons 'with-catch __tmp160366))) + (cons 'with-catch __tmp160370))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp160355 - (let ((__tmp160356 - (let ((__tmp160357 + (__tmp160359 + (let ((__tmp160360 + (let ((__tmp160361 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160358 - (let ((__tmp160359 - (let ((__tmp160360 - (let ((__tmp160361 - (let ((__tmp160362 - (let ((__tmp160363 + (let ((__tmp160362 + (let ((__tmp160363 + (let ((__tmp160364 + (let ((__tmp160365 + (let ((__tmp160366 + (let ((__tmp160367 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160364 + (let ((__tmp160368 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp160364 '())))) + (cons __tmp160368 '())))) (declare (not safe)) - (cons 'force-output __tmp160363)))) + (cons 'force-output __tmp160367)))) (declare (not safe)) - (cons __tmp160362 '())))) + (cons __tmp160366 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp160361)))) + (cons '() __tmp160365)))) (declare (not safe)) - (cons 'lambda __tmp160360)))) + (cons 'lambda __tmp160364)))) (declare (not safe)) - (cons __tmp160359 '())))) + (cons __tmp160363 '())))) (declare (not safe)) - (cons 'void __tmp160358)))) + (cons 'void __tmp160362)))) (declare (not safe)) - (cons 'with-catch __tmp160357)))) + (cons 'with-catch __tmp160361)))) (declare (not safe)) - (cons __tmp160356 '())))) + (cons __tmp160360 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160365 - __tmp160355)))) + (cons __tmp160369 + __tmp160359)))) (declare (not safe)) - (cons '() __tmp160354)))) + (cons '() __tmp160358)))) (declare (not safe)) - (cons 'lambda __tmp160353)))) + (cons 'lambda __tmp160357)))) (declare (not safe)) - (cons __tmp160352 '())))) + (cons __tmp160356 '())))) (declare (not safe)) - (cons __tmp160374 __tmp160351)))) + (cons __tmp160378 __tmp160355)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp160350)))) + __tmp160354)))) (declare (not safe)) - (cons __tmp160349 '())))) + (cons __tmp160353 '())))) (declare (not safe)) - (cons __tmp160386 __tmp160348)))) + (cons __tmp160390 __tmp160352)))) (declare (not safe)) - (cons 'define __tmp160347))) + (cons 'define __tmp160351))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts160052_ - (lambda (_libgerbil160159_) + (_get-libgerbil-ld-opts160056_ + (lambda (_libgerbil160163_) (call-with-input-file - (string-append _libgerbil160159_ '".ldd") + (string-append _libgerbil160163_ '".ldd") read))) - (_replace-extension160053_ - (lambda (_path160156_ _ext160157_) + (_replace-extension160057_ + (lambda (_path160160_ _ext160161_) (string-append - (path-strip-extension _path160156_) - _ext160157_))) - (_not-exclude-module?160054_ - (lambda (_ctx160152_) - (let ((_id-str160154_ + (path-strip-extension _path160160_) + _ext160161_))) + (_not-exclude-module?160058_ + (lambda (_ctx160156_) + (let ((_id-str160158_ (symbol->string (##structure-ref - _ctx160152_ + _ctx160156_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp160388 + (if (let ((__tmp160392 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str160154_)))) + _id-str160158_)))) (declare (not safe)) - (not __tmp160388)) - (let ((__tmp160387 + (not __tmp160392)) + (let ((__tmp160391 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str160154_)))) + (string-prefix? '"std/" _id-str160158_)))) (declare (not safe)) - (not __tmp160387)) + (not __tmp160391)) '#f)))) - (_not-file-empty?160055_ - (lambda (_path160150_) - (let ((__tmp160389 + (_not-file-empty?160059_ + (lambda (_path160154_) + (let ((__tmp160393 (let () (declare (not safe)) - (gxc#file-empty? _path160150_)))) + (gxc#file-empty? _path160154_)))) (declare (not safe)) - (not __tmp160389)))) - (_compile-stub160056_ - (lambda (_output-scm160063_ _output-bin160064_) - (let* ((_gerbil-home160066_ + (not __tmp160393)))) + (_compile-stub160060_ + (lambda (_output-scm160067_ _output-bin160068_) + (let* ((_gerbil-home160070_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir160068_ - (path-expand '"lib" _gerbil-home160066_)) - (_gerbil-staticdir160070_ - (path-expand '"static" _gerbil-libdir160068_)) - (_gxlink160072_ + (_gerbil-libdir160072_ + (path-expand '"lib" _gerbil-home160070_)) + (_gerbil-staticdir160074_ + (path-expand '"static" _gerbil-libdir160072_)) + (_gxlink160076_ (path-expand '"libgerbil-link" - _gerbil-libdir160068_)) - (_tmp160074_ + _gerbil-libdir160072_)) + (_tmp160078_ (path-expand (string-append '"gxc." @@ -571,329 +571,329 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path160078_ - (lambda (_f160076_) + (_tmp-path160082_ + (lambda (_f160080_) (path-expand - (path-strip-directory _f160076_) - _tmp160074_))) - (_deps160080_ + (path-strip-directory _f160080_) + _tmp160078_))) + (_deps160084_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx160048_))) - (_deps160082_ - (filter _not-exclude-module?160054_ _deps160080_)) - (_src-deps-scm160084_ - (map gxc#find-static-module-file _deps160082_)) - (_src-deps-scm160086_ - (filter _not-file-empty?160055_ - _src-deps-scm160084_)) + (gxc#find-runtime-module-deps _ctx160052_))) + (_deps160086_ + (filter _not-exclude-module?160058_ _deps160084_)) (_src-deps-scm160088_ - (map path-expand _src-deps-scm160086_)) - (_deps-scm160090_ - (map _tmp-path160078_ _src-deps-scm160088_)) - (_deps-c160096_ - (map (lambda (_g160091160093_) + (map gxc#find-static-module-file _deps160086_)) + (_src-deps-scm160090_ + (filter _not-file-empty?160059_ + _src-deps-scm160088_)) + (_src-deps-scm160092_ + (map path-expand _src-deps-scm160090_)) + (_deps-scm160094_ + (map _tmp-path160082_ _src-deps-scm160092_)) + (_deps-c160100_ + (map (lambda (_g160095160097_) (let () (declare (not safe)) - (_replace-extension160053_ - _g160091160093_ + (_replace-extension160057_ + _g160095160097_ '".c"))) - _deps-scm160090_)) - (_deps-o160102_ - (map (lambda (_g160097160099_) + _deps-scm160094_)) + (_deps-o160106_ + (map (lambda (_g160101160103_) (let () (declare (not safe)) - (_replace-extension160053_ - _g160097160099_ + (_replace-extension160057_ + _g160101160103_ '".o"))) - _deps-scm160090_)) - (_src-bin-scm160104_ + _deps-scm160094_)) + (_src-bin-scm160108_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx160048_))) - (_src-bin-scm160106_ - (path-expand _src-bin-scm160104_)) - (_bin-scm160108_ + (gxc#find-static-module-file _ctx160052_))) + (_src-bin-scm160110_ + (path-expand _src-bin-scm160108_)) + (_bin-scm160112_ (let () (declare (not safe)) - (_tmp-path160078_ _src-bin-scm160106_))) - (_bin-c160110_ + (_tmp-path160082_ _src-bin-scm160110_))) + (_bin-c160114_ (let () (declare (not safe)) - (_replace-extension160053_ - _bin-scm160108_ + (_replace-extension160057_ + _bin-scm160112_ '".c"))) - (_bin-o160112_ + (_bin-o160116_ (let () (declare (not safe)) - (_replace-extension160053_ - _bin-scm160108_ + (_replace-extension160057_ + _bin-scm160112_ '".o"))) - (_output-bin160114_ - (path-expand _output-bin160064_)) - (_output-scm160116_ - (path-expand _output-scm160063_)) - (_output-c160118_ + (_output-bin160118_ + (path-expand _output-bin160068_)) + (_output-scm160120_ + (path-expand _output-scm160067_)) + (_output-c160122_ (let () (declare (not safe)) - (_replace-extension160053_ - _output-scm160116_ + (_replace-extension160057_ + _output-scm160120_ '".c"))) - (_output-o160120_ + (_output-o160124_ (let () (declare (not safe)) - (_replace-extension160053_ - _output-scm160116_ + (_replace-extension160057_ + _output-scm160120_ '".o"))) - (_output_-c160122_ + (_output_-c160126_ (let () (declare (not safe)) - (_replace-extension160053_ - _output-scm160116_ + (_replace-extension160057_ + _output-scm160120_ '"_.c"))) - (_output_-o160124_ + (_output_-o160128_ (let () (declare (not safe)) - (_replace-extension160053_ - _output-scm160116_ + (_replace-extension160057_ + _output-scm160120_ '"_.o"))) - (_gsc-link-opts160126_ + (_gsc-link-opts160130_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts160128_ + (_gsc-cc-opts160132_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts160130_ + (_gsc-static-opts160134_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir160070_))) - (_output-ld-opts160132_ + _gerbil-staticdir160074_))) + (_output-ld-opts160136_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a160134_ - (path-expand '"libgerbil.a" _gerbil-libdir160068_)) - (_libgerbil.so160136_ + (_libgerbil.a160138_ + (path-expand '"libgerbil.a" _gerbil-libdir160072_)) + (_libgerbil.so160140_ (path-expand '"libgerbil.so" - _gerbil-libdir160068_)) - (_libgerbil-ld-opts160138_ - (if (file-exists? _libgerbil.so160136_) + _gerbil-libdir160072_)) + (_libgerbil-ld-opts160142_ + (if (file-exists? _libgerbil.so160140_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts160052_ - _libgerbil.so160136_)) - (if (file-exists? _libgerbil.a160134_) + (_get-libgerbil-ld-opts160056_ + _libgerbil.so160140_)) + (if (file-exists? _libgerbil.a160138_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts160052_ - _libgerbil.a160134_)) + (_get-libgerbil-ld-opts160056_ + _libgerbil.a160138_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a160134_ - _libgerbil.so160136_))))) - (_rpath160140_ + _libgerbil.a160138_ + _libgerbil.so160140_))))) + (_rpath160144_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir160068_))) - (_builtin-modules160144_ - (map (lambda (_mod160142_) + (gxc#gerbil-rpath _gerbil-libdir160072_))) + (_builtin-modules160148_ + (map (lambda (_mod160146_) (symbol->string (##structure-ref - _mod160142_ + _mod160146_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx160048_ _deps160082_))))) - (let ((__tmp160390 + (cons _ctx160052_ _deps160086_))))) + (let ((__tmp160394 (lambda () - (let ((__tmp160391 - (path-directory _output-bin160114_))) + (let ((__tmp160395 + (path-directory _output-bin160118_))) (declare (not safe)) - (create-directory*__0 __tmp160391))))) + (create-directory*__0 __tmp160395))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160390)) - (let ((__tmp160392 + (with-lock gxc#+driver-mutex+ __tmp160394)) + (let ((__tmp160396 (lambda () (let () (declare (not safe)) - (_generate-stub160051_ - _builtin-modules160144_))))) + (_generate-stub160055_ + _builtin-modules160148_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm160116_ - __tmp160392)) + _output-scm160120_ + __tmp160396)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp160393 - (lambda () (create-directory _tmp160074_)))) + (let ((__tmp160397 + (lambda () (create-directory _tmp160078_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160393)) + (with-lock gxc#+driver-mutex+ __tmp160397)) (for-each copy-file - _src-deps-scm160088_ - _deps-scm160090_) - (copy-file _src-bin-scm160106_ _bin-scm160108_) - (let ((__tmp160401 + _src-deps-scm160092_ + _deps-scm160094_) + (copy-file _src-bin-scm160110_ _bin-scm160112_) + (let ((__tmp160405 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160394 - (let ((__tmp160395 - (let ((__tmp160396 - (let ((__tmp160397 - (let ((__tmp160398 - (let ((__tmp160399 + (__tmp160398 + (let ((__tmp160399 + (let ((__tmp160400 + (let ((__tmp160401 + (let ((__tmp160402 + (let ((__tmp160403 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160400 + (let ((__tmp160404 (let () (declare (not safe)) - (cons _output-scm160116_ '())))) + (cons _output-scm160120_ '())))) (declare (not safe)) - (cons _bin-scm160108_ __tmp160400)))) + (cons _bin-scm160112_ __tmp160404)))) (declare (not safe)) - (foldr1 cons __tmp160399 _deps-scm160090_)))) + (foldr1 cons __tmp160403 _deps-scm160094_)))) (declare (not safe)) - (foldr1 cons __tmp160398 _gsc-link-opts160126_)))) + (foldr1 cons __tmp160402 _gsc-link-opts160130_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink160072_ - __tmp160397)))) + (cons _gxlink160076_ + __tmp160401)))) (declare (not safe)) - (cons '"-l" __tmp160396)))) + (cons '"-l" __tmp160400)))) (declare (not safe)) - (cons '"-link" __tmp160395)))) + (cons '"-link" __tmp160399)))) (declare (not safe)) - (gxc#invoke __tmp160401 __tmp160394)) - (let ((__tmp160409 + (gxc#invoke __tmp160405 __tmp160398)) + (let ((__tmp160413 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160402 - (let ((__tmp160403 - (let ((__tmp160404 - (let ((__tmp160405 - (let ((__tmp160406 - (let ((__tmp160407 + (__tmp160406 + (let ((__tmp160407 + (let ((__tmp160408 + (let ((__tmp160409 + (let ((__tmp160410 + (let ((__tmp160411 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160408 + (let ((__tmp160412 (let () (declare (not safe)) - (cons _output_-c160122_ '())))) + (cons _output_-c160126_ '())))) (declare (not safe)) - (cons _output-c160118_ __tmp160408)))) + (cons _output-c160122_ __tmp160412)))) (declare (not safe)) - (cons _bin-c160110_ __tmp160407)))) + (cons _bin-c160114_ __tmp160411)))) (declare (not safe)) - (foldr1 cons __tmp160406 _deps-c160096_)))) + (foldr1 cons __tmp160410 _deps-c160100_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp160405 - _gsc-static-opts160130_)))) + __tmp160409 + _gsc-static-opts160134_)))) (declare (not safe)) (foldr1 cons - __tmp160404 - _gsc-cc-opts160128_)))) + __tmp160408 + _gsc-cc-opts160132_)))) (declare (not safe)) - (cons '"-obj" __tmp160403)))) + (cons '"-obj" __tmp160407)))) (declare (not safe)) - (gxc#invoke __tmp160409 __tmp160402)) - (let ((__tmp160422 + (gxc#invoke __tmp160413 __tmp160406)) + (let ((__tmp160426 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp160410 - (let ((__tmp160411 - (let ((__tmp160412 - (let ((__tmp160413 - (let ((__tmp160414 - (let ((__tmp160415 + (__tmp160414 + (let ((__tmp160415 + (let ((__tmp160416 + (let ((__tmp160417 + (let ((__tmp160418 + (let ((__tmp160419 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160416 - (let ((__tmp160417 - (let ((__tmp160418 - (let ((__tmp160419 - (let ((__tmp160420 + (let ((__tmp160420 + (let ((__tmp160421 + (let ((__tmp160422 + (let ((__tmp160423 + (let ((__tmp160424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160421 + (let ((__tmp160425 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts160138_)))) + _libgerbil-ld-opts160142_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp160421)))) + (cons '"-lgerbil" __tmp160425)))) (declare (not safe)) - (cons _gerbil-libdir160068_ __tmp160420)))) + (cons _gerbil-libdir160072_ __tmp160424)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp160419)))) + __tmp160423)))) (declare (not safe)) - (cons _rpath160140_ - __tmp160418)))) + (cons _rpath160144_ + __tmp160422)))) (declare (not safe)) (foldr1 cons - __tmp160417 - _output-ld-opts160132_)))) + __tmp160421 + _output-ld-opts160136_)))) (declare (not safe)) - (cons _output_-o160124_ __tmp160416)))) + (cons _output_-o160128_ __tmp160420)))) (declare (not safe)) - (cons _output-o160120_ __tmp160415)))) + (cons _output-o160124_ __tmp160419)))) (declare (not safe)) - (cons _bin-o160112_ __tmp160414)))) + (cons _bin-o160116_ __tmp160418)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp160413 - _deps-o160102_)))) + __tmp160417 + _deps-o160106_)))) (declare (not safe)) - (cons _output-bin160114_ - __tmp160412)))) + (cons _output-bin160118_ + __tmp160416)))) (declare (not safe)) - (cons '"-o" __tmp160411)))) + (cons '"-o" __tmp160415)))) (declare (not safe)) - (gxc#invoke __tmp160422 __tmp160410)) + (gxc#invoke __tmp160426 __tmp160414)) (for-each delete-file - (let ((__tmp160423 - (let ((__tmp160424 - (let ((__tmp160425 + (let ((__tmp160427 + (let ((__tmp160428 + (let ((__tmp160429 (let () (declare (not safe)) - (cons _output_-o160124_ + (cons _output_-o160128_ '())))) (declare (not safe)) - (cons _output-o160120_ - __tmp160425)))) + (cons _output-o160124_ + __tmp160429)))) (declare (not safe)) - (cons _output_-c160122_ __tmp160424)))) + (cons _output_-c160126_ __tmp160428)))) (declare (not safe)) - (cons _output-c160118_ __tmp160423))) + (cons _output-c160122_ __tmp160427))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp160074_))) + (gxc#delete-directory* _tmp160078_))) '#!void))))) - (let* ((_output-bin160058_ + (let* ((_output-bin160062_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx160048_ _opts160049_))) - (_output-scm160060_ - (string-append _output-bin160058_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx160052_ _opts160053_))) + (_output-scm160064_ + (string-append _output-bin160062_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub160056_ _output-scm160060_ _output-bin160058_)) + (_compile-stub160060_ _output-scm160064_ _output-bin160062_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm160060_)))))) + (delete-file _output-scm160064_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx159873_ _opts159874_) - (letrec ((_reset-declare159876_ + (lambda (_ctx159877_ _opts159878_) + (letrec ((_reset-declare159880_ (lambda () '(declare (gambit-scheme) @@ -915,643 +915,643 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub159877_ - (lambda (_deps160039_) - (let ((_mod-main160041_ + (_generate-stub159881_ + (lambda (_deps160043_) + (let ((_mod-main160045_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx159873_ 'main))) - (_reset-decl160042_ + (gxc#find-runtime-symbol _ctx159877_ 'main))) + (_reset-decl160046_ (let () (declare (not safe)) - (_reset-declare159876_))) - (_user-decl160043_ + (_reset-declare159880_))) + (_user-decl160047_ (let () (declare (not safe)) - (_user-declare159878_)))) + (_user-declare159882_)))) (for-each - (lambda (_dep160045_) + (lambda (_dep160049_) (write '(##namespace (""))) (newline) - (write _reset-decl160042_) + (write _reset-decl160046_) (newline) - (if _user-decl160043_ - (begin (write _user-decl160043_) (newline)) + (if _user-decl160047_ + (begin (write _user-decl160047_) (newline)) '#!void) - (write (let ((__tmp160426 + (write (let ((__tmp160430 (let () (declare (not safe)) - (cons _dep160045_ '())))) + (cons _dep160049_ '())))) (declare (not safe)) - (cons 'include __tmp160426))) + (cons 'include __tmp160430))) (newline)) - _deps160039_) - (write (let ((__tmp160427 - (let ((__tmp160440 + _deps160043_) + (write (let ((__tmp160431 + (let ((__tmp160444 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp160428 - (let ((__tmp160436 - (let ((__tmp160437 - (let ((__tmp160438 - (let ((__tmp160439 + (__tmp160432 + (let ((__tmp160440 + (let ((__tmp160441 + (let ((__tmp160442 + (let ((__tmp160443 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp160439)))) + (cons 'quote __tmp160443)))) (declare (not safe)) - (cons __tmp160438 '())))) + (cons __tmp160442 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp160437))) - (__tmp160429 - (let ((__tmp160430 - (let ((__tmp160431 - (let ((__tmp160432 + __tmp160441))) + (__tmp160433 + (let ((__tmp160434 + (let ((__tmp160435 + (let ((__tmp160436 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160433 - (let ((__tmp160434 - (let ((__tmp160435 + (let ((__tmp160437 + (let ((__tmp160438 + (let ((__tmp160439 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp160435 '())))) + (cons __tmp160439 '())))) (declare (not safe)) - (cons 'cdr __tmp160434)))) + (cons 'cdr __tmp160438)))) (declare (not safe)) - (cons __tmp160433 '())))) + (cons __tmp160437 '())))) (declare (not safe)) - (cons _mod-main160041_ __tmp160432)))) + (cons _mod-main160045_ __tmp160436)))) (declare (not safe)) - (cons 'apply __tmp160431)))) + (cons 'apply __tmp160435)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160430 '())))) + (cons __tmp160434 '())))) (declare (not safe)) - (cons __tmp160436 __tmp160429)))) + (cons __tmp160440 __tmp160433)))) (declare (not safe)) - (cons __tmp160440 __tmp160428)))) + (cons __tmp160444 __tmp160432)))) (declare (not safe)) - (cons 'define __tmp160427))) + (cons 'define __tmp160431))) (write '(gerbil-main)) (newline)))) - (_user-declare159878_ + (_user-declare159882_ (lambda () - (let* ((_gsc-opts159944_ + (let* ((_gsc-opts159948_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts159874_))) - (_gsc-prelude159946_ - (if _gsc-opts159944_ - (member '"-prelude" _gsc-opts159944_) + (pgetq__0 'gsc-options: _opts159878_))) + (_gsc-prelude159950_ + (if _gsc-opts159948_ + (member '"-prelude" _gsc-opts159948_) '#f)) - (_gsc-prelude159948_ - (if _gsc-prelude159946_ + (_gsc-prelude159952_ + (if _gsc-prelude159950_ (read (open-input-string - (cadr _gsc-prelude159946_))) + (cadr _gsc-prelude159950_))) '#f))) - (let _lp159951_ ((_rest159953_ + (let _lp159955_ ((_rest159957_ (let () (declare (not safe)) - (cons _gsc-prelude159948_ '()))) - (_user-decls159954_ '())) - (let* ((_rest159955159963_ _rest159953_) - (_else159957159971_ + (cons _gsc-prelude159952_ '()))) + (_user-decls159958_ '())) + (let* ((_rest159959159967_ _rest159957_) + (_else159961159975_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls159954_)) + (null? _user-decls159958_)) '#f - (let ((__tmp160441 - (reverse _user-decls159954_))) + (let ((__tmp160445 + (reverse _user-decls159958_))) (declare (not safe)) - (cons 'declare __tmp160441))))) - (_K159959160027_ - (lambda (_rest159974_ _expr159975_) - (let* ((_expr159976159988_ _expr159975_) - (_else159979159996_ + (cons 'declare __tmp160445))))) + (_K159963160031_ + (lambda (_rest159978_ _expr159979_) + (let* ((_expr159980159992_ _expr159979_) + (_else159983160000_ (lambda () (let () (declare (not safe)) - (_lp159951_ - _rest159974_ - _user-decls159954_))))) - (let ((_K159984160017_ - (lambda (_decls160015_) - (let ((__tmp160442 + (_lp159955_ + _rest159978_ + _user-decls159958_))))) + (let ((_K159988160021_ + (lambda (_decls160019_) + (let ((__tmp160446 (let () (declare (not safe)) (foldl1 cons - _user-decls159954_ - _decls160015_)))) + _user-decls159958_ + _decls160019_)))) (declare (not safe)) - (_lp159951_ - _rest159974_ - __tmp160442)))) - (_K159981160002_ - (lambda (_exprs160000_) - (let ((__tmp160443 - (append _exprs160000_ - _rest159974_))) + (_lp159955_ + _rest159978_ + __tmp160446)))) + (_K159985160006_ + (lambda (_exprs160004_) + (let ((__tmp160447 + (append _exprs160004_ + _rest159978_))) (declare (not safe)) - (_lp159951_ - __tmp160443 - _user-decls159954_))))) + (_lp159955_ + __tmp160447 + _user-decls159958_))))) (if (let () (declare (not safe)) - (##pair? _expr159976159988_)) - (let ((_tl159986160022_ + (##pair? _expr159980159992_)) + (let ((_tl159990160026_ (let () (declare (not safe)) - (##cdr _expr159976159988_))) - (_hd159985160020_ + (##cdr _expr159980159992_))) + (_hd159989160024_ (let () (declare (not safe)) - (##car _expr159976159988_)))) + (##car _expr159980159992_)))) (if (let () (declare (not safe)) - (##eq? _hd159985160020_ + (##eq? _hd159989160024_ 'declare)) - (let ((_decls160025_ - _tl159986160022_)) + (let ((_decls160029_ + _tl159990160026_)) (declare (not safe)) - (_K159984160017_ - _decls160025_)) + (_K159988160021_ + _decls160029_)) (if (let () (declare (not safe)) - (##eq? _hd159985160020_ + (##eq? _hd159989160024_ 'begin)) - (let ((_exprs160010_ - _tl159986160022_)) + (let ((_exprs160014_ + _tl159990160026_)) (declare (not safe)) - (_K159981160002_ - _exprs160010_)) + (_K159985160006_ + _exprs160014_)) (let () (declare (not safe)) - (_else159979159996_))))) + (_else159983160000_))))) (let () (declare (not safe)) - (_else159979159996_)))))))) + (_else159983160000_)))))))) (if (let () (declare (not safe)) - (##pair? _rest159955159963_)) - (let ((_hd159960160030_ + (##pair? _rest159959159967_)) + (let ((_hd159964160034_ (let () (declare (not safe)) - (##car _rest159955159963_))) - (_tl159961160032_ + (##car _rest159959159967_))) + (_tl159965160036_ (let () (declare (not safe)) - (##cdr _rest159955159963_)))) - (let* ((_expr160035_ _hd159960160030_) - (_rest160037_ _tl159961160032_)) + (##cdr _rest159959159967_)))) + (let* ((_expr160039_ _hd159964160034_) + (_rest160041_ _tl159965160036_)) (declare (not safe)) - (_K159959160027_ _rest160037_ _expr160035_))) + (_K159963160031_ _rest160041_ _expr160039_))) (let () (declare (not safe)) - (_else159957159971_)))))))) - (_compile-stub159879_ - (lambda (_output-scm159886_ _output-bin159887_) - (let* ((_gerbil-home159889_ + (_else159961159975_)))))))) + (_compile-stub159883_ + (lambda (_output-scm159890_ _output-bin159891_) + (let* ((_gerbil-home159893_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir159891_ - (path-expand '"lib" _gerbil-home159889_)) - (_runtime159893_ + (_gerbil-libdir159895_ + (path-expand '"lib" _gerbil-home159893_)) + (_runtime159897_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp159895_ + (_gambit-sharp159899_ (path-expand '"lib/_gambit#.scm" - _gerbil-home159889_)) - (_include-gambit-sharp159897_ + _gerbil-home159893_)) + (_include-gambit-sharp159901_ (string-append '"(include \"" - _gambit-sharp159895_ + _gambit-sharp159899_ '"\")")) - (_bin-scm159899_ + (_bin-scm159903_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx159873_))) - (_deps159901_ + (gxc#find-static-module-file _ctx159877_))) + (_deps159905_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx159873_))) - (_deps159903_ - (map gxc#find-static-module-file _deps159901_)) - (_deps159908_ - (filter (lambda (_$obj159905_) - (let ((__tmp160444 + (gxc#find-runtime-module-deps _ctx159877_))) + (_deps159907_ + (map gxc#find-static-module-file _deps159905_)) + (_deps159912_ + (filter (lambda (_$obj159909_) + (let ((__tmp160448 (let () (declare (not safe)) (gxc#file-empty? - _$obj159905_)))) + _$obj159909_)))) (declare (not safe)) - (not __tmp160444))) - _deps159903_)) - (_deps159912_ - (filter (lambda (_f159910_) - (let ((__tmp160445 - (member _f159910_ - _runtime159893_))) + (not __tmp160448))) + _deps159907_)) + (_deps159916_ + (filter (lambda (_f159914_) + (let ((__tmp160449 + (member _f159914_ + _runtime159897_))) (declare (not safe)) - (not __tmp160445))) - _deps159908_)) - (_output-base159914_ + (not __tmp160449))) + _deps159912_)) + (_output-base159918_ (string-append - (path-strip-extension _output-scm159886_))) - (_output-c159916_ - (string-append _output-base159914_ '".c")) - (_output-o159918_ - (string-append _output-base159914_ '".o")) - (_output-c_159920_ - (string-append _output-base159914_ '"_.c")) - (_output-o_159922_ - (string-append _output-base159914_ '"_.o")) - (_gsc-link-opts159924_ + (path-strip-extension _output-scm159890_))) + (_output-c159920_ + (string-append _output-base159918_ '".c")) + (_output-o159922_ + (string-append _output-base159918_ '".o")) + (_output-c_159924_ + (string-append _output-base159918_ '"_.c")) + (_output-o_159926_ + (string-append _output-base159918_ '"_.o")) + (_gsc-link-opts159928_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts159926_ + (_gsc-cc-opts159930_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts159928_ - (let ((__tmp160446 + (_gsc-static-opts159932_ + (let ((__tmp160450 (path-expand '"static" - _gerbil-libdir159891_))) + _gerbil-libdir159895_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp160446))) - (_output-ld-opts159930_ + (gxc#gsc-static-include-options __tmp160450))) + (_output-ld-opts159934_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros159932_ + (_gsc-gx-macros159936_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp160448 - (let ((__tmp160449 - (let ((__tmp160450 + (let ((__tmp160452 + (let ((__tmp160453 + (let ((__tmp160454 (let () (declare (not safe)) - (cons _include-gambit-sharp159897_ + (cons _include-gambit-sharp159901_ '())))) (declare (not safe)) - (cons '"-e" __tmp160450)))) + (cons '"-e" __tmp160454)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp160449)))) + __tmp160453)))) (declare (not safe)) - (cons '"-e" __tmp160448)) - (let ((__tmp160447 + (cons '"-e" __tmp160452)) + (let ((__tmp160451 (let () (declare (not safe)) - (cons _include-gambit-sharp159897_ + (cons _include-gambit-sharp159901_ '())))) (declare (not safe)) - (cons '"-e" __tmp160447)))) - (_gsc-link-opts159934_ - (append _gsc-link-opts159924_ - _gsc-gx-macros159932_)) - (_rpath159936_ + (cons '"-e" __tmp160451)))) + (_gsc-link-opts159938_ + (append _gsc-link-opts159928_ + _gsc-gx-macros159936_)) + (_rpath159940_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir159891_))) - (_default-ld-options159938_ - (let ((__tmp160451 + (gxc#gerbil-rpath _gerbil-libdir159895_))) + (_default-ld-options159942_ + (let ((__tmp160455 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp160451)))) - (let ((__tmp160452 + (cons '"-ldl" __tmp160455)))) + (let ((__tmp160456 (lambda () - (let ((__tmp160453 - (path-directory _output-bin159887_))) + (let ((__tmp160457 + (path-directory _output-bin159891_))) (declare (not safe)) - (create-directory*__0 __tmp160453))))) + (create-directory*__0 __tmp160457))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160452)) - (let ((__tmp160454 + (with-lock gxc#+driver-mutex+ __tmp160456)) + (let ((__tmp160458 (lambda () - (let ((__tmp160455 - (let ((__tmp160456 - (let ((__tmp160457 + (let ((__tmp160459 + (let ((__tmp160460 + (let ((__tmp160461 (let () (declare (not safe)) - (cons _bin-scm159899_ + (cons _bin-scm159903_ '())))) (declare (not safe)) (foldr1 cons - __tmp160457 - _deps159912_)))) + __tmp160461 + _deps159916_)))) (declare (not safe)) (foldr1 cons - __tmp160456 - _runtime159893_)))) + __tmp160460 + _runtime159897_)))) (declare (not safe)) - (_generate-stub159877_ __tmp160455))))) + (_generate-stub159881_ __tmp160459))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm159886_ - __tmp160454)) + _output-scm159890_ + __tmp160458)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp160463 + (let ((__tmp160467 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160458 - (let ((__tmp160459 - (let ((__tmp160460 - (let ((__tmp160461 - (let ((__tmp160462 + (__tmp160462 + (let ((__tmp160463 + (let ((__tmp160464 + (let ((__tmp160465 + (let ((__tmp160466 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm159886_ '())))) + (cons _output-scm159890_ '())))) (declare (not safe)) - (foldr1 cons __tmp160462 _gsc-link-opts159934_)))) + (foldr1 cons __tmp160466 _gsc-link-opts159938_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_159920_ - __tmp160461)))) + (cons _output-c_159924_ + __tmp160465)))) (declare (not safe)) - (cons '"-o" __tmp160460)))) + (cons '"-o" __tmp160464)))) (declare (not safe)) - (cons '"-link" __tmp160459)))) + (cons '"-link" __tmp160463)))) (declare (not safe)) - (gxc#invoke __tmp160463 __tmp160458)) - (let ((__tmp160469 + (gxc#invoke __tmp160467 __tmp160462)) + (let ((__tmp160473 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160464 - (let ((__tmp160465 - (let ((__tmp160466 - (let ((__tmp160467 - (let ((__tmp160468 + (__tmp160468 + (let ((__tmp160469 + (let ((__tmp160470 + (let ((__tmp160471 + (let ((__tmp160472 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_159920_ '())))) + (cons _output-c_159924_ '())))) (declare (not safe)) - (cons _output-c159916_ __tmp160468)))) + (cons _output-c159920_ __tmp160472)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp160467 - _gsc-static-opts159928_)))) + __tmp160471 + _gsc-static-opts159932_)))) (declare (not safe)) (foldr1 cons - __tmp160466 - _gsc-cc-opts159926_)))) + __tmp160470 + _gsc-cc-opts159930_)))) (declare (not safe)) - (cons '"-obj" __tmp160465)))) + (cons '"-obj" __tmp160469)))) (declare (not safe)) - (gxc#invoke __tmp160469 __tmp160464)) - (let ((__tmp160479 + (gxc#invoke __tmp160473 __tmp160468)) + (let ((__tmp160483 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp160470 - (let ((__tmp160471 - (let ((__tmp160472 - (let ((__tmp160473 - (let ((__tmp160474 - (let ((__tmp160475 + (__tmp160474 + (let ((__tmp160475 + (let ((__tmp160476 + (let ((__tmp160477 + (let ((__tmp160478 + (let ((__tmp160479 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160476 - (let ((__tmp160477 - (let ((__tmp160478 + (let ((__tmp160480 + (let ((__tmp160481 + (let ((__tmp160482 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options159938_)))) + _default-ld-options159942_)))) (declare (not safe)) - (cons _gerbil-libdir159891_ - __tmp160478)))) + (cons _gerbil-libdir159895_ + __tmp160482)))) (declare (not safe)) - (cons '"-L" __tmp160477)))) + (cons '"-L" __tmp160481)))) (declare (not safe)) - (cons _rpath159936_ __tmp160476)))) + (cons _rpath159940_ __tmp160480)))) (declare (not safe)) - (foldr1 cons __tmp160475 _output-ld-opts159930_)))) + (foldr1 cons __tmp160479 _output-ld-opts159934_)))) (declare (not safe)) - (cons _output-o_159922_ __tmp160474)))) + (cons _output-o_159926_ __tmp160478)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o159918_ - __tmp160473)))) + (cons _output-o159922_ + __tmp160477)))) (declare (not safe)) - (cons _output-bin159887_ - __tmp160472)))) + (cons _output-bin159891_ + __tmp160476)))) (declare (not safe)) - (cons '"-o" __tmp160471)))) + (cons '"-o" __tmp160475)))) (declare (not safe)) - (gxc#invoke __tmp160479 __tmp160470))) + (gxc#invoke __tmp160483 __tmp160474))) '#!void))))) - (let* ((_output-bin159881_ + (let* ((_output-bin159885_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx159873_ _opts159874_))) - (_output-scm159883_ - (string-append _output-bin159881_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx159877_ _opts159878_))) + (_output-scm159887_ + (string-append _output-bin159885_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub159879_ _output-scm159883_ _output-bin159881_)) + (_compile-stub159883_ _output-scm159887_ _output-bin159885_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm159883_)))))) + (delete-file _output-scm159887_)))))) (define gxc#find-export-binding - (lambda (_ctx159823_ _id159824_) - (let ((_$e159870_ - (let ((__tmp160481 - (lambda (_e159825159827_) - (let* ((_g159829159839_ _e159825159827_) - (_else159831159847_ (lambda () '#f)) - (_K159833159851_ (lambda () '#t))) + (lambda (_ctx159827_ _id159828_) + (let ((_$e159874_ + (let ((__tmp160485 + (lambda (_e159829159831_) + (let* ((_g159833159843_ _e159829159831_) + (_else159835159851_ (lambda () '#f)) + (_K159837159855_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g159829159839_ + _g159833159843_ 'gx#module-export::t)) - (let* ((_e159834159854_ + (let* ((_e159838159858_ (let () (declare (not safe)) (##unchecked-structure-ref - _g159829159839_ + _g159833159843_ '1 gx#module-export::t '#f))) - (_e159835159857_ + (_e159839159861_ (let () (declare (not safe)) (##unchecked-structure-ref - _g159829159839_ + _g159833159843_ '2 gx#module-export::t '#f))) - (_e159836159860_ + (_e159840159864_ (let () (declare (not safe)) (##unchecked-structure-ref - _g159829159839_ + _g159833159843_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e159836159860_ '0)) - (let ((_e159837159863_ + (##eq? _e159840159864_ '0)) + (let ((_e159841159867_ (let () (declare (not safe)) (##unchecked-structure-ref - _g159829159839_ + _g159833159843_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g159865159867_) + (if ((lambda (_g159869159871_) (let () (declare (not safe)) - (eq? _g159865159867_ - _id159824_))) - _e159837159863_) + (eq? _g159869159871_ + _id159828_))) + _e159841159867_) (let () (declare (not safe)) - (_K159833159851_)) + (_K159837159855_)) (let () (declare (not safe)) - (_else159831159847_)))) + (_else159835159851_)))) (let () (declare (not safe)) - (_else159831159847_)))) + (_else159835159851_)))) (let () (declare (not safe)) - (_else159831159847_)))))) - (__tmp160480 + (_else159835159851_)))))) + (__tmp160484 (##structure-ref - _ctx159823_ + _ctx159827_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp160481 __tmp160480)))) - (if _$e159870_ + (find __tmp160485 __tmp160484)))) + (if _$e159874_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e159870_)) + (gx#core-resolve-module-export _$e159874_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx159815_ _id159816_) - (let ((_$e159818_ + (lambda (_ctx159819_ _id159820_) + (let ((_$e159822_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx159815_ _id159816_)))) - (if _$e159818_ - ((lambda (_bind159821_) + (gxc#find-export-binding _ctx159819_ _id159820_)))) + (if _$e159822_ + ((lambda (_bind159825_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind159821_ + _bind159825_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id159816_))) - (##structure-ref _bind159821_ '1 gx#binding::t '#f)) - _$e159818_) - (let ((__tmp160482 + _id159820_))) + (##structure-ref _bind159825_ '1 gx#binding::t '#f)) + _$e159822_) + (let ((__tmp160486 (##structure-ref - _ctx159815_ + _ctx159819_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp160482 - _id159816_)))))) + __tmp160486 + _id159820_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx159702_) - (letrec* ((_ht159704_ + (lambda (_ctx159706_) + (letrec* ((_ht159708_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import-set-template159705_ - (lambda (_in159767_ _phi159768_) - (let ((_iphi159770_ - (fx+ _phi159768_ + (_import-set-template159709_ + (lambda (_in159771_ _phi159772_) + (let ((_iphi159774_ + (fx+ _phi159772_ (##direct-structure-ref - _in159767_ + _in159771_ '2 gx#import-set::t '#f))) - (_imports159771_ + (_imports159775_ (##structure-ref (##direct-structure-ref - _in159767_ + _in159771_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp159773_ ((_rest159775_ _imports159771_) - (_r159776_ '())) - (let* ((_rest159777159785_ _rest159775_) - (_else159779159793_ (lambda () _r159776_)) - (_K159781159803_ - (lambda (_rest159796_ _in159797_) + (let _lp159777_ ((_rest159779_ _imports159775_) + (_r159780_ '())) + (let* ((_rest159781159789_ _rest159779_) + (_else159783159797_ (lambda () _r159780_)) + (_K159785159807_ + (lambda (_rest159800_ _in159801_) (if (let () (declare (not safe)) (##structure-instance-of? - _in159797_ + _in159801_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi159770_)) - (let ((__tmp160489 + (fxzero? _iphi159774_)) + (let ((__tmp160493 (let () (declare (not safe)) - (cons _in159797_ - _r159776_)))) + (cons _in159801_ + _r159780_)))) (declare (not safe)) - (_lp159773_ - _rest159796_ - __tmp160489)) + (_lp159777_ + _rest159800_ + __tmp160493)) (let () (declare (not safe)) - (_lp159773_ - _rest159796_ - _r159776_))) + (_lp159777_ + _rest159800_ + _r159780_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in159797_ + _in159801_ 'gx#module-import::t)) - (let ((_iphi159799_ - (fx+ _phi159768_ + (let ((_iphi159803_ + (fx+ _phi159772_ (##direct-structure-ref - _in159797_ + _in159801_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi159799_)) - (let ((__tmp160487 - (let ((__tmp160488 + (fxzero? _iphi159803_)) + (let ((__tmp160491 + (let ((__tmp160492 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in159797_ + _in159801_ '1 gx#module-import::t '#f) @@ -1559,886 +1559,886 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp160488 _r159776_)))) + (cons __tmp160492 _r159780_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp159773_ - _rest159796_ - __tmp160487)) + (_lp159777_ + _rest159800_ + __tmp160491)) (let () (declare (not safe)) - (_lp159773_ - _rest159796_ - _r159776_)))) + (_lp159777_ + _rest159800_ + _r159780_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in159797_ + _in159801_ 'gx#import-set::t)) - (let ((_xphi159801_ - (fx+ _iphi159770_ + (let ((_xphi159805_ + (fx+ _iphi159774_ (##direct-structure-ref - _in159797_ + _in159801_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi159801_)) - (let ((__tmp160485 - (let ((__tmp160486 + (fxzero? _xphi159805_)) + (let ((__tmp160489 + (let ((__tmp160490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in159797_ + _in159801_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp160486 _r159776_)))) + (cons __tmp160490 _r159780_)))) (declare (not safe)) - (_lp159773_ _rest159796_ __tmp160485)) + (_lp159777_ _rest159800_ __tmp160489)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi159801_) - (let ((__tmp160483 - (let ((__tmp160484 + _xphi159805_) + (let ((__tmp160487 + (let ((__tmp160488 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template159705_ - _in159797_ - _iphi159770_)))) + (_import-set-template159709_ + _in159801_ + _iphi159774_)))) (declare (not safe)) - (foldl1 cons _r159776_ __tmp160484)))) + (foldl1 cons _r159780_ __tmp160488)))) (declare (not safe)) - (_lp159773_ _rest159796_ __tmp160483)) + (_lp159777_ _rest159800_ __tmp160487)) (let () (declare (not safe)) - (_lp159773_ _rest159796_ _r159776_))))) + (_lp159777_ _rest159800_ _r159780_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp159773_ - _rest159796_ - _r159776_)))))))) + (_lp159777_ + _rest159800_ + _r159780_)))))))) (if (let () (declare (not safe)) - (##pair? _rest159777159785_)) - (let ((_hd159782159806_ + (##pair? _rest159781159789_)) + (let ((_hd159786159810_ (let () (declare (not safe)) - (##car _rest159777159785_))) - (_tl159783159808_ + (##car _rest159781159789_))) + (_tl159787159812_ (let () (declare (not safe)) - (##cdr _rest159777159785_)))) - (let* ((_in159811_ _hd159782159806_) - (_rest159813_ _tl159783159808_)) + (##cdr _rest159781159789_)))) + (let* ((_in159815_ _hd159786159810_) + (_rest159817_ _tl159787159812_)) (declare (not safe)) - (_K159781159803_ _rest159813_ _in159811_))) + (_K159785159807_ _rest159817_ _in159815_))) (let () (declare (not safe)) - (_else159779159793_)))))))) - (_find-deps159706_ - (lambda (_rest159713_ _deps159714_) - (let* ((_rest159715159723_ _rest159713_) - (_else159717159731_ (lambda () _deps159714_)) - (_K159719159755_ - (lambda (_rest159734_ _hd159735_) + (_else159783159797_)))))))) + (_find-deps159710_ + (lambda (_rest159717_ _deps159718_) + (let* ((_rest159719159727_ _rest159717_) + (_else159721159735_ (lambda () _deps159718_)) + (_K159723159759_ + (lambda (_rest159738_ _hd159739_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd159735_ + _hd159739_ 'gx#module-context::t)) - (let ((_id159737_ + (let ((_id159741_ (##structure-ref - _hd159735_ + _hd159739_ '1 gx#expander-context::t '#f)) - (_imports159738_ + (_imports159742_ (##structure-ref - _hd159735_ + _hd159739_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (hash-get _ht159704_ _id159737_)) + (hash-get _ht159708_ _id159741_)) (let () (declare (not safe)) - (_find-deps159706_ - _rest159734_ - _deps159714_)) - (let ((_$e159740_ + (_find-deps159710_ + _rest159738_ + _deps159718_)) + (let ((_$e159744_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd159735_)))) - (if _$e159740_ - ((lambda (_pre159743_) - (let ((_xdeps159745_ - (let ((__tmp160502 + _hd159739_)))) + (if _$e159744_ + ((lambda (_pre159747_) + (let ((_xdeps159749_ + (let ((__tmp160506 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre159743_ _imports159738_)))) + (cons _pre159747_ _imports159742_)))) (declare (not safe)) - (_find-deps159706_ __tmp160502 _deps159714_)))) + (_find-deps159710_ __tmp160506 _deps159718_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (hash-put! - _ht159704_ - _id159737_ - _hd159735_)) - (let ((__tmp160503 + _ht159708_ + _id159741_ + _hd159739_)) + (let ((__tmp160507 (let () (declare (not safe)) - (cons _hd159735_ + (cons _hd159739_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps159745_)))) + _xdeps159749_)))) (declare (not safe)) - (_find-deps159706_ _rest159734_ __tmp160503)))) + (_find-deps159710_ _rest159738_ __tmp160507)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e159740_) - (let ((_xdeps159747_ + _$e159744_) + (let ((_xdeps159751_ (let () (declare (not safe)) - (_find-deps159706_ - _imports159738_ - _deps159714_)))) + (_find-deps159710_ + _imports159742_ + _deps159718_)))) (let () (declare (not safe)) (hash-put! - _ht159704_ - _id159737_ - _hd159735_)) - (let ((__tmp160501 + _ht159708_ + _id159741_ + _hd159739_)) + (let ((__tmp160505 (let () (declare (not safe)) - (cons _hd159735_ - _xdeps159747_)))) + (cons _hd159739_ + _xdeps159751_)))) (declare (not safe)) - (_find-deps159706_ - _rest159734_ - __tmp160501))))))) + (_find-deps159710_ + _rest159738_ + __tmp160505))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd159735_ + _hd159739_ 'gx#prelude-context::t)) - (let ((_id159749_ + (let ((_id159753_ (##structure-ref - _hd159735_ + _hd159739_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht159704_ - _id159749_)) + _ht159708_ + _id159753_)) (let () (declare (not safe)) - (_find-deps159706_ - _rest159734_ - _deps159714_)) - (let ((_xdeps159751_ - (let ((__tmp160499 + (_find-deps159710_ + _rest159738_ + _deps159718_)) + (let ((_xdeps159755_ + (let ((__tmp160503 (##structure-ref - _hd159735_ + _hd159739_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps159706_ - __tmp160499 - _deps159714_)))) + (_find-deps159710_ + __tmp160503 + _deps159718_)))) (if (let () (declare (not safe)) (hash-get - _ht159704_ - _id159749_)) + _ht159708_ + _id159753_)) (let () (declare (not safe)) - (_find-deps159706_ - _rest159734_ - _xdeps159751_)) + (_find-deps159710_ + _rest159738_ + _xdeps159755_)) (begin (let () (declare (not safe)) (hash-put! - _ht159704_ - _id159749_ - _hd159735_)) - (let ((__tmp160500 + _ht159708_ + _id159753_ + _hd159739_)) + (let ((__tmp160504 (let () (declare (not safe)) - (cons _hd159735_ + (cons _hd159739_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps159751_)))) + _xdeps159755_)))) (declare (not safe)) - (_find-deps159706_ _rest159734_ __tmp160500))))))) + (_find-deps159710_ _rest159738_ __tmp160504))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd159735_ + _hd159739_ 'gx#module-import::t)) - (if (let ((__tmp160498 + (if (let ((__tmp160502 (##direct-structure-ref - _hd159735_ + _hd159739_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp160498)) - (let ((__tmp160496 - (let ((__tmp160497 + (fxzero? __tmp160502)) + (let ((__tmp160500 + (let ((__tmp160501 (##direct-structure-ref - _hd159735_ + _hd159739_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp160497 - _rest159734_)))) + (cons __tmp160501 + _rest159738_)))) (declare (not safe)) - (_find-deps159706_ - __tmp160496 - _deps159714_)) + (_find-deps159710_ + __tmp160500 + _deps159718_)) (let () (declare (not safe)) - (_find-deps159706_ - _rest159734_ - _deps159714_))) + (_find-deps159710_ + _rest159738_ + _deps159718_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd159735_ + _hd159739_ 'gx#module-export::t)) - (let ((__tmp160494 - (let ((__tmp160495 + (let ((__tmp160498 + (let ((__tmp160499 (##direct-structure-ref - _hd159735_ + _hd159739_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp160495 - _rest159734_)))) + (cons __tmp160499 + _rest159738_)))) (declare (not safe)) - (_find-deps159706_ - __tmp160494 - _deps159714_)) + (_find-deps159710_ + __tmp160498 + _deps159718_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd159735_ + _hd159739_ 'gx#import-set::t)) - (if (let ((__tmp160493 + (if (let ((__tmp160497 (##direct-structure-ref - _hd159735_ + _hd159739_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp160493)) - (let ((__tmp160491 - (let ((__tmp160492 + (fxzero? __tmp160497)) + (let ((__tmp160495 + (let ((__tmp160496 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd159735_ + _hd159739_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp160492 _rest159734_)))) + (cons __tmp160496 _rest159738_)))) (declare (not safe)) - (_find-deps159706_ __tmp160491 _deps159714_)) + (_find-deps159710_ __tmp160495 _deps159718_)) (if (fxpositive? (##direct-structure-ref - _hd159735_ + _hd159739_ '2 gx#import-set::t '#f)) - (let* ((_xdeps159753_ + (let* ((_xdeps159757_ (let () (declare (not safe)) - (_import-set-template159705_ _hd159735_ '0))) - (__tmp160490 + (_import-set-template159709_ _hd159739_ '0))) + (__tmp160494 (let () (declare (not safe)) - (foldl1 cons _rest159734_ _xdeps159753_)))) + (foldl1 cons _rest159738_ _xdeps159757_)))) (declare (not safe)) - (_find-deps159706_ __tmp160490 _deps159714_)) + (_find-deps159710_ __tmp160494 _deps159718_)) (let () (declare (not safe)) - (_find-deps159706_ _rest159734_ _deps159714_)))) + (_find-deps159710_ _rest159738_ _deps159718_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _hd159735_)))))))))) + _hd159739_)))))))))) (if (let () (declare (not safe)) - (##pair? _rest159715159723_)) - (let ((_hd159720159758_ + (##pair? _rest159719159727_)) + (let ((_hd159724159762_ (let () (declare (not safe)) - (##car _rest159715159723_))) - (_tl159721159760_ + (##car _rest159719159727_))) + (_tl159725159764_ (let () (declare (not safe)) - (##cdr _rest159715159723_)))) - (let* ((_hd159763_ _hd159720159758_) - (_rest159765_ _tl159721159760_)) + (##cdr _rest159719159727_)))) + (let* ((_hd159767_ _hd159724159762_) + (_rest159769_ _tl159725159764_)) (declare (not safe)) - (_K159719159755_ _rest159765_ _hd159763_))) + (_K159723159759_ _rest159769_ _hd159767_))) (let () (declare (not safe)) - (_else159717159731_))))))) + (_else159721159735_))))))) (reverse (filter gx#expander-context-id - (let ((__tmp160504 - (let ((_$e159708_ + (let ((__tmp160508 + (let ((_$e159712_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx159702_)))) - (if _$e159708_ - ((lambda (_pre159711_) - (let ((__tmp160505 + _ctx159706_)))) + (if _$e159712_ + ((lambda (_pre159715_) + (let ((__tmp160509 (##structure-ref - _ctx159702_ + _ctx159706_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre159711_ __tmp160505))) - _$e159708_) + (cons _pre159715_ __tmp160509))) + _$e159712_) (##structure-ref - _ctx159702_ + _ctx159706_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps159706_ __tmp160504 '()))))))) + (_find-deps159710_ __tmp160508 '()))))))) (define gxc#find-static-module-file - (lambda (_ctx159633_) - (let* ((_context-id159635_ + (lambda (_ctx159637_) + (let* ((_context-id159639_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx159633_ + _ctx159637_ 'gx#module-context::t)) - (##structure-ref _ctx159633_ '1 gx#expander-context::t '#f) - (string->symbol _ctx159633_))) - (_scm159637_ + (##structure-ref _ctx159637_ '1 gx#expander-context::t '#f) + (string->symbol _ctx159637_))) + (_scm159641_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id159635_)) + (gxc#static-module-name _context-id159639_)) '".scm")) - (_dirs159639_ (let () (declare (not safe)) (load-path))) - (_dirs159645_ - (let ((_user-libpath159641_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath159641_ - (let ((_user-libpath159643_ - (path-expand '"lib" _user-libpath159641_))) - (if (member _user-libpath159643_ _dirs159639_) - _dirs159639_ + (_dirs159643_ (let () (declare (not safe)) (load-path))) + (_dirs159649_ + (let ((_user-libpath159645_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath159645_ + (let ((_user-libpath159647_ + (path-expand '"lib" _user-libpath159645_))) + (if (member _user-libpath159647_ _dirs159643_) + _dirs159643_ (let () (declare (not safe)) - (cons _user-libpath159643_ _dirs159639_)))) - _dirs159639_))) - (_dirs159654_ - (let ((_$e159647_ (gxc#current-compile-output-dir))) - (if _$e159647_ - ((lambda (_g159649159651_) + (cons _user-libpath159647_ _dirs159643_)))) + _dirs159643_))) + (_dirs159658_ + (let ((_$e159651_ (gxc#current-compile-output-dir))) + (if _$e159651_ + ((lambda (_g159653159655_) (let () (declare (not safe)) - (cons _g159649159651_ _dirs159645_))) - _$e159647_) - _dirs159645_))) - (_dirs159660_ - (map (lambda (_g159655159657_) - (path-expand '"static" _g159655159657_)) - _dirs159654_))) - (let _lp159663_ ((_rest159665_ _dirs159660_)) - (let* ((_rest159666159674_ _rest159665_) - (_else159668159682_ + (cons _g159653159655_ _dirs159649_))) + _$e159651_) + _dirs159649_))) + (_dirs159664_ + (map (lambda (_g159659159661_) + (path-expand '"static" _g159659159661_)) + _dirs159658_))) + (let _lp159667_ ((_rest159669_ _dirs159664_)) + (let* ((_rest159670159678_ _rest159669_) + (_else159672159686_ (lambda () - (let ((__tmp160506 + (let ((__tmp160510 (##structure-ref - _ctx159633_ + _ctx159637_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp160506 - _scm159637_)))) - (_K159670159690_ - (lambda (_rest159685_ _dir159686_) - (let ((_path159688_ - (path-expand _scm159637_ _dir159686_))) - (if (file-exists? _path159688_) - _path159688_ + __tmp160510 + _scm159641_)))) + (_K159674159694_ + (lambda (_rest159689_ _dir159690_) + (let ((_path159692_ + (path-expand _scm159641_ _dir159690_))) + (if (file-exists? _path159692_) + _path159692_ (let () (declare (not safe)) - (_lp159663_ _rest159685_))))))) - (if (let () (declare (not safe)) (##pair? _rest159666159674_)) - (let ((_hd159671159693_ + (_lp159667_ _rest159689_))))))) + (if (let () (declare (not safe)) (##pair? _rest159670159678_)) + (let ((_hd159675159697_ (let () (declare (not safe)) - (##car _rest159666159674_))) - (_tl159672159695_ + (##car _rest159670159678_))) + (_tl159676159699_ (let () (declare (not safe)) - (##cdr _rest159666159674_)))) - (let* ((_dir159698_ _hd159671159693_) - (_rest159700_ _tl159672159695_)) + (##cdr _rest159670159678_)))) + (let* ((_dir159702_ _hd159675159697_) + (_rest159704_ _tl159676159699_)) (declare (not safe)) - (_K159670159690_ _rest159700_ _dir159698_))) - (let () (declare (not safe)) (_else159668159682_)))))))) + (_K159674159694_ _rest159704_ _dir159702_))) + (let () (declare (not safe)) (_else159672159686_)))))))) (define gxc#file-empty? - (lambda (_path159631_) - (let ((__tmp160507 (file-info-size (file-info _path159631_ '#t)))) + (lambda (_path159635_) + (let ((__tmp160511 (file-info-size (file-info _path159635_ '#t)))) (declare (not safe)) - (zero? __tmp160507)))) + (zero? __tmp160511)))) (define gxc#compile-top-module - (lambda (_ctx159620_) - (let ((__tmp160511 + (lambda (_ctx159624_) + (let ((__tmp160515 (lambda () - (let ((__tmp160512 + (let ((__tmp160516 (##structure-ref - _ctx159620_ + _ctx159624_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp160512)) + (gxc#verbose '"compile " __tmp160516)) (if (gxc#current-compile-optimize) - (let ((__tmp160513 + (let ((__tmp160517 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx159620_))))) + (gxc#optimize! _ctx159624_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160513)) + (with-lock gxc#+driver-mutex+ __tmp160517)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx159620_)) - (if (let ((__tmp160516 + (gxc#collect-bindings _ctx159624_)) + (if (let ((__tmp160520 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx159620_)))) + (gxc#lift-nested-modules _ctx159624_)))) (declare (not safe)) - (null? __tmp160516)) - (let* ((_thr1159625_ - (let ((__tmp160514 + (null? __tmp160520)) + (let* ((_thr1159629_ + (let ((__tmp160518 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx159620_))))) + _ctx159624_))))) (declare (not safe)) - (spawn __tmp160514))) - (_thr2159628_ - (let ((__tmp160515 + (spawn __tmp160518))) + (_thr2159632_ + (let ((__tmp160519 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx159620_))))) + (gxc#compile-meta-code _ctx159624_))))) (declare (not safe)) - (spawn __tmp160515)))) - (let () (declare (not safe)) (gxc#join! _thr1159625_)) - (let () (declare (not safe)) (gxc#join! _thr2159628_))) + (spawn __tmp160519)))) + (let () (declare (not safe)) (gxc#join! _thr1159629_)) + (let () (declare (not safe)) (gxc#join! _thr2159632_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx159620_)) + (gxc#compile-runtime-code _ctx159624_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx159620_)))) + (gxc#compile-meta-code _ctx159624_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx159620_)) + (gxc#compile-ssxi-code _ctx159624_)) '#!void))) - (__tmp160510 - (let ((__obj160318 + (__tmp160514 + (let ((__obj160322 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj160318) - __obj160318)) - (__tmp160509 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp160508 (let () (declare (not safe)) (make-hash-table)))) + (gxc#symbol-table:::init! __obj160322) + __obj160322)) + (__tmp160513 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp160512 (let () (declare (not safe)) (make-hash-table)))) (declare (not safe)) (call-with-parameters - __tmp160511 + __tmp160515 gx#current-expander-context - _ctx159620_ + _ctx159624_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp160510 + __tmp160514 gxc#current-compile-runtime-sections - __tmp160509 + __tmp160513 gxc#current-compile-runtime-names - __tmp160508)))) + __tmp160512)))) (define gxc#collect-bindings - (lambda (_ctx159618_) - (let ((__tmp160517 - (##structure-ref _ctx159618_ '11 gx#module-context::t '#f))) + (lambda (_ctx159622_) + (let ((__tmp160521 + (##structure-ref _ctx159622_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp160517)))) + (gxc#apply-collect-bindings __tmp160521)))) (define gxc#compile-runtime-code - (lambda (_ctx159564_) - (letrec ((_compile1159566_ - (lambda (_ctx159607_) - (let* ((_code159609_ + (lambda (_ctx159568_) + (letrec ((_compile1159570_ + (lambda (_ctx159611_) + (let* ((_code159613_ (##structure-ref - _ctx159607_ + _ctx159611_ '11 gx#module-context::t '#f)) - (_rt159613_ + (_rt159617_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code159609_)) - (let ((_idstr159611_ - (let ((__tmp160518 + (gxc#apply-find-runtime-code _code159613_)) + (let ((_idstr159615_ + (let ((__tmp160522 (##structure-ref - _ctx159607_ + _ctx159611_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp160518)))) - (string-append _idstr159611_ '"~0")) + __tmp160522)))) + (string-append _idstr159615_ '"~0")) '#f))) - (if _rt159613_ + (if _rt159617_ (begin - (let ((__tmp160519 + (let ((__tmp160523 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-put! __tmp160519 _ctx159607_ _rt159613_)) + (hash-put! __tmp160523 _ctx159611_ _rt159617_)) (let () (declare (not safe)) - (_generate-runtime-code159568_ - _ctx159607_ - _code159609_))) - (let ((_path159616_ + (_generate-runtime-code159572_ + _ctx159611_ + _code159613_))) + (let ((_path159620_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx159607_)))) + _ctx159611_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path159616_ + _path159620_ void))) (let () (declare (not safe)) - (_generate-loader-code159569_ - _ctx159607_ - _code159609_ - _rt159613_))))) - (_context-timestamp159567_ - (lambda (_ctx159605_) + (_generate-loader-code159573_ + _ctx159611_ + _code159613_ + _rt159617_))))) + (_context-timestamp159571_ + (lambda (_ctx159609_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx159605_ + _ctx159609_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code159568_ - (lambda (_ctx159587_ _code159588_) - (let* ((_lifts159590_ + (_generate-runtime-code159572_ + (lambda (_ctx159591_ _code159592_) + (let* ((_lifts159594_ (let () (declare (not safe)) (box '()))) - (_runtime-code159593_ - (let ((__tmp160522 + (_runtime-code159597_ + (let ((__tmp160526 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code159588_)))) - (__tmp160521 + _code159592_)))) + (__tmp160525 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp160520 + (__tmp160524 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp160522 + __tmp160526 gx#current-expander-context - _ctx159587_ + _ctx159591_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts159590_ + _lifts159594_ gxc#current-compile-marks - __tmp160521 + __tmp160525 gxc#current-compile-identifiers - __tmp160520))) - (_runtime-code159595_ - (if (let ((__tmp160526 (unbox _lifts159590_))) + __tmp160524))) + (_runtime-code159599_ + (if (let ((__tmp160530 (unbox _lifts159594_))) (declare (not safe)) - (null? __tmp160526)) - _runtime-code159593_ - (let ((__tmp160523 - (let ((__tmp160525 + (null? __tmp160530)) + _runtime-code159597_ + (let ((__tmp160527 + (let ((__tmp160529 (let () (declare (not safe)) - (cons _runtime-code159593_ + (cons _runtime-code159597_ '()))) - (__tmp160524 - (reverse (unbox _lifts159590_)))) + (__tmp160528 + (reverse (unbox _lifts159594_)))) (declare (not safe)) (foldr1 cons - __tmp160525 - __tmp160524)))) + __tmp160529 + __tmp160528)))) (declare (not safe)) - (cons 'begin __tmp160523)))) - (_runtime-code159597_ - (let ((__tmp160527 - (let ((__tmp160529 - (let ((__tmp160530 - (let ((__tmp160533 + (cons 'begin __tmp160527)))) + (_runtime-code159601_ + (let ((__tmp160531 + (let ((__tmp160533 + (let ((__tmp160534 + (let ((__tmp160537 (let () (declare (not safe)) - (_context-timestamp159567_ - _ctx159587_))) - (__tmp160531 - (let ((__tmp160532 + (_context-timestamp159571_ + _ctx159591_))) + (__tmp160535 + (let ((__tmp160536 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp160532 + (cons __tmp160536 '())))) (declare (not safe)) - (cons __tmp160533 - __tmp160531)))) + (cons __tmp160537 + __tmp160535)))) (declare (not safe)) - (cons 'define __tmp160530))) - (__tmp160528 + (cons 'define __tmp160534))) + (__tmp160532 (let () (declare (not safe)) - (cons _runtime-code159595_ '())))) + (cons _runtime-code159599_ '())))) (declare (not safe)) - (cons __tmp160529 __tmp160528)))) + (cons __tmp160533 __tmp160532)))) (declare (not safe)) - (cons 'begin __tmp160527))) - (_scm0159599_ + (cons 'begin __tmp160531))) + (_scm0159603_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx159587_ + _ctx159591_ '0 '".scm")))) - (let ((_scms159602_ + (let ((_scms159606_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx159587_)))) - (let ((__tmp160534 + (gxc#compile-static-output-file _ctx159591_)))) + (let ((__tmp160538 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0159599_ - _runtime-code159597_))))) + _scm0159603_ + _runtime-code159601_))))) (declare (not safe)) (call-with-parameters - __tmp160534 + __tmp160538 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms159602_) - (delete-file _scms159602_) + (if (file-exists? _scms159606_) + (delete-file _scms159606_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0159599_ + _scm0159603_ '" => " - _scms159602_)) - (copy-file _scm0159599_ _scms159602_) + _scms159606_)) + (copy-file _scm0159603_ _scms159606_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0159599_)))))) - (_generate-loader-code159569_ - (lambda (_ctx159576_ _code159577_ _rt159578_) - (let* ((_loader-code159581_ - (let ((__tmp160535 + (delete-file _scm0159603_)))))) + (_generate-loader-code159573_ + (lambda (_ctx159580_ _code159581_ _rt159582_) + (let* ((_loader-code159585_ + (let ((__tmp160539 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code159577_))))) + _code159581_))))) (declare (not safe)) (call-with-parameters - __tmp160535 + __tmp160539 gx#current-expander-context - _ctx159576_))) - (_loader-code159583_ - (if _rt159578_ - (let ((__tmp160536 - (let ((__tmp160537 - (let ((__tmp160538 - (let ((__tmp160539 + _ctx159580_))) + (_loader-code159587_ + (if _rt159582_ + (let ((__tmp160540 + (let ((__tmp160541 + (let ((__tmp160542 + (let ((__tmp160543 (let () (declare (not safe)) - (cons _rt159578_ + (cons _rt159582_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp160539)))) + (cons 'load-module __tmp160543)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160538 '())))) + (cons __tmp160542 '())))) (declare (not safe)) - (cons _loader-code159581_ - __tmp160537)))) + (cons _loader-code159585_ + __tmp160541)))) (declare (not safe)) - (cons 'begin __tmp160536)) - _loader-code159581_))) - (let ((__tmp160540 + (cons 'begin __tmp160540)) + _loader-code159585_))) + (let ((__tmp160544 (lambda () - (let ((__tmp160541 + (let ((__tmp160545 (let () (declare (not safe)) (gxc#compile-output-file - _ctx159576_ + _ctx159580_ '#f '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp160541 - _loader-code159583_))))) + __tmp160545 + _loader-code159587_))))) (declare (not safe)) (call-with-parameters - __tmp160540 + __tmp160544 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules159571_ - (let ((__tmp160542 + (let ((_all-modules159575_ + (let ((__tmp160546 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx159564_)))) + (gxc#lift-nested-modules _ctx159568_)))) (declare (not safe)) - (cons _ctx159564_ __tmp160542)))) + (cons _ctx159568_ __tmp160546)))) (for-each - (lambda (_ctx159573_) - (let ((__tmp160543 + (lambda (_ctx159577_) + (let ((__tmp160547 (lambda () (let () (declare (not safe)) - (_compile1159566_ _ctx159573_))))) + (_compile1159570_ _ctx159577_))))) (declare (not safe)) (call-with-parameters - __tmp160543 + __tmp160547 gxc#current-compile-decls '()))) - _all-modules159571_))))) + _all-modules159575_))))) (define gxc#compile-meta-code - (lambda (_ctx159461_) - (letrec ((_compile-ssi159463_ - (lambda (_code159534_) - (let* ((_path159536_ + (lambda (_ctx159465_) + (letrec ((_compile-ssi159467_ + (lambda (_code159538_) + (let* ((_path159540_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx159461_ + _ctx159465_ '#f '".ssi"))) - (_prelude159547_ - (let* ((_super159538_ + (_prelude159551_ + (let* ((_super159542_ (##structure-ref - _ctx159461_ + _ctx159465_ '3 gx#phi-context::t '#f)) - (_$e159540_ + (_$e159544_ (##structure-ref - _super159538_ + _super159542_ '1 gx#expander-context::t '#f))) - (if _$e159540_ - ((lambda (_g159542159544_) + (if _$e159544_ + ((lambda (_g159546159548_) (let () (declare (not safe)) - (make-symbol__1 '":" _g159542159544_))) - _$e159540_) + (make-symbol__1 '":" _g159546159548_))) + _$e159544_) ':))) - (_ns159549_ + (_ns159553_ (##structure-ref - _ctx159461_ + _ctx159465_ '6 gx#module-context::t '#f)) - (_idstr159551_ + (_idstr159555_ (symbol->string (##structure-ref - _ctx159461_ + _ctx159465_ '1 gx#expander-context::t '#f))) - (_pkg159558_ - (let ((_$e159553_ + (_pkg159562_ + (let ((_$e159557_ (let () (declare (not safe)) - (string-rindex__0 _idstr159551_ '#\/)))) - (if _$e159553_ - ((lambda (_x159556_) + (string-rindex__0 _idstr159555_ '#\/)))) + (if _$e159557_ + ((lambda (_x159560_) (string->symbol - (substring _idstr159551_ '0 _x159556_))) - _$e159553_) + (substring _idstr159555_ '0 _x159560_))) + _$e159557_) '#f))) - (_rt159560_ - (let ((__tmp160544 + (_rt159564_ + (let ((__tmp160548 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-get __tmp160544 _ctx159461_)))) + (hash-get __tmp160548 _ctx159465_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path159536_)) - (let ((__tmp160545 + (gxc#verbose '"compile " _path159540_)) + (let ((__tmp160549 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude159547_)) - (if _pkg159558_ + (displayln '"prelude:" '" " _prelude159551_)) + (if _pkg159562_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg159558_)) + (displayln '"package:" '" " _pkg159562_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns159549_)) + (displayln '"namespace:" '" " _ns159553_)) (newline) - (pretty-print _code159534_) - (if _rt159560_ + (pretty-print _code159538_) + (if _rt159564_ (pretty-print - (let ((__tmp160546 - (let ((__tmp160550 - (let ((__tmp160551 + (let ((__tmp160550 + (let ((__tmp160554 + (let ((__tmp160555 (let () (declare (not safe)) (cons 'load-module @@ -2446,1096 +2446,1096 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp160551))) - (__tmp160547 - (let ((__tmp160548 - (let ((__tmp160549 + (cons '%#ref __tmp160555))) + (__tmp160551 + (let ((__tmp160552 + (let ((__tmp160553 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt159560_ '())))) + (cons _rt159564_ '())))) (declare (not safe)) - (cons '%#quote __tmp160549)))) + (cons '%#quote __tmp160553)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160548 '())))) + (cons __tmp160552 '())))) (declare (not safe)) - (cons __tmp160550 __tmp160547)))) + (cons __tmp160554 __tmp160551)))) (declare (not safe)) - (cons '%#call __tmp160546))) + (cons '%#call __tmp160550))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path159536_ - __tmp160545))))) - (_compile-phi159464_ - (lambda (_part159474_) - (let* ((_part159475159488_ _part159474_) - (_E159477159492_ + _path159540_ + __tmp160549))))) + (_compile-phi159468_ + (lambda (_part159478_) + (let* ((_part159479159492_ _part159478_) + (_E159481159496_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _part159475159488_)))) - (_K159478159503_ - (lambda (_code159495_ - _n159496_ - _phi159497_ - _phi-ctx159498_) - (let* ((_code159501_ - (let ((__tmp160552 + _part159479159492_)))) + (_K159482159507_ + (lambda (_code159499_ + _n159500_ + _phi159501_ + _phi-ctx159502_) + (let* ((_code159505_ + (let ((__tmp160556 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code159495_))))) + _code159499_))))) (declare (not safe)) (call-with-parameters - __tmp160552 + __tmp160556 gx#current-expander-context - _phi-ctx159498_ + _phi-ctx159502_ gx#current-expander-phi - _phi159497_))) - (__tmp160553 + _phi159501_))) + (__tmp160557 (let () (declare (not safe)) (gxc#compile-output-file - _ctx159461_ - _n159496_ + _ctx159465_ + _n159500_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp160553 - _code159501_ + __tmp160557 + _code159505_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part159475159488_)) - (let ((_hd159479159506_ + (##pair? _part159479159492_)) + (let ((_hd159483159510_ (let () (declare (not safe)) - (##car _part159475159488_))) - (_tl159480159508_ + (##car _part159479159492_))) + (_tl159484159512_ (let () (declare (not safe)) - (##cdr _part159475159488_)))) - (let ((_phi-ctx159511_ _hd159479159506_)) + (##cdr _part159479159492_)))) + (let ((_phi-ctx159515_ _hd159483159510_)) (if (let () (declare (not safe)) - (##pair? _tl159480159508_)) - (let ((_hd159481159513_ + (##pair? _tl159484159512_)) + (let ((_hd159485159517_ (let () (declare (not safe)) - (##car _tl159480159508_))) - (_tl159482159515_ + (##car _tl159484159512_))) + (_tl159486159519_ (let () (declare (not safe)) - (##cdr _tl159480159508_)))) - (let ((_phi159518_ _hd159481159513_)) + (##cdr _tl159484159512_)))) + (let ((_phi159522_ _hd159485159517_)) (if (let () (declare (not safe)) - (##pair? _tl159482159515_)) - (let ((_hd159483159520_ + (##pair? _tl159486159519_)) + (let ((_hd159487159524_ (let () (declare (not safe)) - (##car _tl159482159515_))) - (_tl159484159522_ + (##car _tl159486159519_))) + (_tl159488159526_ (let () (declare (not safe)) - (##cdr _tl159482159515_)))) - (let ((_n159525_ _hd159483159520_)) + (##cdr _tl159486159519_)))) + (let ((_n159529_ _hd159487159524_)) (if (let () (declare (not safe)) - (##pair? _tl159484159522_)) - (let ((_hd159485159527_ + (##pair? _tl159488159526_)) + (let ((_hd159489159531_ (let () (declare (not safe)) - (##car _tl159484159522_))) - (_tl159486159529_ + (##car _tl159488159526_))) + (_tl159490159533_ (let () (declare (not safe)) - (##cdr _tl159484159522_)))) - (let ((_code159532_ - _hd159485159527_)) + (##cdr _tl159488159526_)))) + (let ((_code159536_ + _hd159489159531_)) (if (let () (declare (not safe)) - (##null? _tl159486159529_)) + (##null? _tl159490159533_)) (let () (declare (not safe)) - (_K159478159503_ - _code159532_ - _n159525_ - _phi159518_ - _phi-ctx159511_)) + (_K159482159507_ + _code159536_ + _n159529_ + _phi159522_ + _phi-ctx159515_)) (let () (declare (not safe)) - (_E159477159492_))))) + (_E159481159496_))))) (let () (declare (not safe)) - (_E159477159492_))))) + (_E159481159496_))))) (let () (declare (not safe)) - (_E159477159492_))))) + (_E159481159496_))))) (let () (declare (not safe)) - (_E159477159492_))))) - (let () (declare (not safe)) (_E159477159492_))))))) - (let ((_g160554_ + (_E159481159496_))))) + (let () (declare (not safe)) (_E159481159496_))))))) + (let ((_g160558_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx159461_)))) + (gxc#generate-meta-code _ctx159465_)))) (begin - (let ((_g160555_ + (let ((_g160559_ (let () (declare (not safe)) - (if (##values? _g160554_) - (##vector-length _g160554_) + (if (##values? _g160558_) + (##vector-length _g160558_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g160555_ 2))) - (error "Context expects 2 values" _g160555_))) - (let ((_ssi-code159466_ - (let () (declare (not safe)) (##vector-ref _g160554_ 0))) - (_phi-code159467_ - (let () (declare (not safe)) (##vector-ref _g160554_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g160559_ 2))) + (error "Context expects 2 values" _g160559_))) + (let ((_ssi-code159470_ + (let () (declare (not safe)) (##vector-ref _g160558_ 0))) + (_phi-code159471_ + (let () (declare (not safe)) (##vector-ref _g160558_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi159463_ _ssi-code159466_)) - (let ((_threads159472_ - (map (lambda (_code159469_) - (let ((__tmp160556 + (_compile-ssi159467_ _ssi-code159470_)) + (let ((_threads159476_ + (map (lambda (_code159473_) + (let ((__tmp160560 (lambda () (let () (declare (not safe)) - (_compile-phi159464_ - _code159469_))))) + (_compile-phi159468_ + _code159473_))))) (declare (not safe)) - (spawn __tmp160556))) - _phi-code159467_))) - (for-each gxc#join! _threads159472_))))))))) + (spawn __tmp160560))) + _phi-code159471_))) + (for-each gxc#join! _threads159476_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx159444_) - (let* ((_path159446_ + (lambda (_ctx159448_) + (let* ((_path159450_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx159444_ '#f '".ssxi.ss"))) - (_code159448_ - (let ((__tmp160557 + (gxc#compile-output-file _ctx159448_ '#f '".ssxi.ss"))) + (_code159452_ + (let ((__tmp160561 (##structure-ref - _ctx159444_ + _ctx159448_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp160557))) - (_idstr159450_ + (gxc#apply-generate-ssxi __tmp160561))) + (_idstr159454_ (symbol->string - (##structure-ref _ctx159444_ '1 gx#expander-context::t '#f))) - (_pkg159457_ - (let ((_$e159452_ + (##structure-ref _ctx159448_ '1 gx#expander-context::t '#f))) + (_pkg159461_ + (let ((_$e159456_ (let () (declare (not safe)) - (string-rindex__0 _idstr159450_ '#\/)))) - (if _$e159452_ - ((lambda (_x159455_) + (string-rindex__0 _idstr159454_ '#\/)))) + (if _$e159456_ + ((lambda (_x159459_) (string->symbol - (substring _idstr159450_ '0 _x159455_))) - _$e159452_) + (substring _idstr159454_ '0 _x159459_))) + _$e159456_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path159446_)) - (let ((__tmp160558 + (let () (declare (not safe)) (gxc#verbose '"compile " _path159450_)) + (let ((__tmp160562 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg159457_ + (if _pkg159461_ (let () (declare (not safe)) - (displayln '"package: " _pkg159457_)) + (displayln '"package: " _pkg159461_)) '#!void) (newline) - (pretty-print _code159448_)))) + (pretty-print _code159452_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path159446_ __tmp160558))))) + (gxc#with-output-to-scheme-file _path159450_ __tmp160562))))) (define gxc#generate-meta-code - (lambda (_ctx159437_) - (let* ((_state159439_ - (let ((__obj160319 + (lambda (_ctx159441_) + (let* ((_state159443_ + (let ((__obj160323 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj160319 _ctx159437_) - __obj160319)) - (_ssi-code159441_ - (let ((__tmp160559 + (gxc#meta-state:::init! __obj160323 _ctx159441_) + __obj160323)) + (_ssi-code159445_ + (let ((__tmp160563 (##structure-ref - _ctx159437_ + _ctx159441_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta - __tmp160559 + __tmp160563 'state: - _state159439_)))) - (values _ssi-code159441_ + _state159443_)))) + (values _ssi-code159445_ (let () (declare (not safe)) - (gxc#meta-state-end! _state159439_)))))) + (gxc#meta-state-end! _state159443_)))))) (define gxc#generate-runtime-phi - (lambda (_stx159430_) - (let ((_lifts159432_ (let () (declare (not safe)) (box '())))) - (let ((__tmp160562 + (lambda (_stx159434_) + (let ((_lifts159436_ (let () (declare (not safe)) (box '())))) + (let ((__tmp160566 (lambda () - (let ((_code159435_ + (let ((_code159439_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx159430_)))) - (if (let ((__tmp160566 (unbox _lifts159432_))) + (gxc#apply-generate-runtime-phi _stx159434_)))) + (if (let ((__tmp160570 (unbox _lifts159436_))) (declare (not safe)) - (null? __tmp160566)) - _code159435_ - (let ((__tmp160563 - (let ((__tmp160565 + (null? __tmp160570)) + _code159439_ + (let ((__tmp160567 + (let ((__tmp160569 (let () (declare (not safe)) - (cons _code159435_ '()))) - (__tmp160564 - (reverse (unbox _lifts159432_)))) + (cons _code159439_ '()))) + (__tmp160568 + (reverse (unbox _lifts159436_)))) (declare (not safe)) - (foldr1 cons __tmp160565 __tmp160564)))) + (foldr1 cons __tmp160569 __tmp160568)))) (declare (not safe)) - (cons 'begin __tmp160563)))))) - (__tmp160561 + (cons 'begin __tmp160567)))))) + (__tmp160565 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp160560 + (__tmp160564 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp160562 + __tmp160566 gxc#current-compile-lift - _lifts159432_ + _lifts159436_ gxc#current-compile-marks - __tmp160561 + __tmp160565 gxc#current-compile-identifiers - __tmp160560))))) + __tmp160564))))) (define gxc#lift-nested-modules - (lambda (_ctx159426_) - (let ((_modules159428_ (let () (declare (not safe)) (box '())))) - (let ((__tmp160567 - (##structure-ref _ctx159426_ '11 gx#module-context::t '#f))) + (lambda (_ctx159430_) + (let ((_modules159432_ (let () (declare (not safe)) (box '())))) + (let ((__tmp160571 + (##structure-ref _ctx159430_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp160567 'modules: _modules159428_)) - (reverse (unbox _modules159428_))))) + (gxc#apply-lift-modules __tmp160571 'modules: _modules159432_)) + (reverse (unbox _modules159432_))))) (define gxc#compile-scm-file__% - (lambda (_path159409_ _code159410_ _phi?159411_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path159409_)) - (let ((__tmp160568 + (lambda (_path159413_ _code159414_ _phi?159415_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path159413_)) + (let ((__tmp160572 (lambda () (pretty-print - (let ((__tmp160569 - (let ((__tmp160576 + (let ((__tmp160573 + (let ((__tmp160580 (let () (declare (not safe)) (cons 'block '()))) - (__tmp160570 - (let ((__tmp160575 + (__tmp160574 + (let ((__tmp160579 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp160571 - (let ((__tmp160574 + (__tmp160575 + (let ((__tmp160578 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp160572 - (let ((__tmp160573 - (if _phi?159411_ + (__tmp160576 + (let ((__tmp160577 + (if _phi?159415_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp160573)))) + __tmp160577)))) (declare (not safe)) - (cons __tmp160574 __tmp160572)))) + (cons __tmp160578 __tmp160576)))) (declare (not safe)) - (cons __tmp160575 __tmp160571)))) + (cons __tmp160579 __tmp160575)))) (declare (not safe)) - (cons __tmp160576 __tmp160570)))) + (cons __tmp160580 __tmp160574)))) (declare (not safe)) - (cons 'declare __tmp160569))) - (pretty-print _code159410_)))) + (cons 'declare __tmp160573))) + (pretty-print _code159414_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path159409_ __tmp160568)) + (gxc#with-output-to-scheme-file _path159413_ __tmp160572)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path159409_ _phi?159411_)) + (gxc#gsc-compile-file _path159413_ _phi?159415_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path159409_)))) + (delete-file _path159413_)))) (define gxc#compile-scm-file__0 - (lambda (_path159417_ _code159418_) - (let ((_phi?159420_ '#f)) + (lambda (_path159421_ _code159422_) + (let ((_phi?159424_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path159417_ _code159418_ _phi?159420_)))) + (gxc#compile-scm-file__% _path159421_ _code159422_ _phi?159424_)))) (define gxc#compile-scm-file - (lambda _g160578_ - (let ((_g160577_ (let () (declare (not safe)) (##length _g160578_)))) - (cond ((let () (declare (not safe)) (##fx= _g160577_ 2)) - (apply (lambda (_path159417_ _code159418_) + (lambda _g160582_ + (let ((_g160581_ (let () (declare (not safe)) (##length _g160582_)))) + (cond ((let () (declare (not safe)) (##fx= _g160581_ 2)) + (apply (lambda (_path159421_ _code159422_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path159417_ - _code159418_))) - _g160578_)) - ((let () (declare (not safe)) (##fx= _g160577_ 3)) - (apply (lambda (_path159422_ _code159423_ _phi?159424_) + _path159421_ + _code159422_))) + _g160582_)) + ((let () (declare (not safe)) (##fx= _g160581_ 3)) + (apply (lambda (_path159426_ _code159427_ _phi?159428_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path159422_ - _code159423_ - _phi?159424_))) - _g160578_)) + _path159426_ + _code159427_ + _phi?159428_))) + _g160582_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g160578_)))))) + _g160582_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?159310_) - (let _lp159312_ ((_rest159314_ (gxc#current-compile-gsc-options)) - (_opts159315_ '())) - (let* ((_rest159316159336_ _rest159314_) - (_else159320159344_ + (lambda (_phi?159314_) + (let _lp159316_ ((_rest159318_ (gxc#current-compile-gsc-options)) + (_opts159319_ '())) + (let* ((_rest159320159340_ _rest159318_) + (_else159324159348_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?159310_)) + (if (and (let () (declare (not safe)) (not _phi?159314_)) (gxc#current-compile-debug)) - (let ((__tmp160579 - (let ((__tmp160580 (reverse _opts159315_))) + (let ((__tmp160583 + (let ((__tmp160584 (reverse _opts159319_))) (declare (not safe)) - (cons '"-track-scheme" __tmp160580)))) + (cons '"-track-scheme" __tmp160584)))) (declare (not safe)) - (cons '"-debug-source" __tmp160579)) - (reverse _opts159315_))))) - (let ((_K159330159387_ - (lambda (_rest159385_) + (cons '"-debug-source" __tmp160583)) + (reverse _opts159319_))))) + (let ((_K159334159391_ + (lambda (_rest159389_) (let () (declare (not safe)) - (_lp159312_ _rest159385_ _opts159315_)))) - (_K159325159369_ - (lambda (_rest159367_) + (_lp159316_ _rest159389_ _opts159319_)))) + (_K159329159373_ + (lambda (_rest159371_) (let () (declare (not safe)) - (_lp159312_ _rest159367_ _opts159315_)))) - (_K159322159351_ - (lambda (_rest159348_ _opt159349_) - (let ((__tmp160581 + (_lp159316_ _rest159371_ _opts159319_)))) + (_K159326159355_ + (lambda (_rest159352_ _opt159353_) + (let ((__tmp160585 (let () (declare (not safe)) - (cons _opt159349_ _opts159315_)))) + (cons _opt159353_ _opts159319_)))) (declare (not safe)) - (_lp159312_ _rest159348_ __tmp160581))))) - (if (let () (declare (not safe)) (##pair? _rest159316159336_)) - (let ((_tl159332159392_ + (_lp159316_ _rest159352_ __tmp160585))))) + (if (let () (declare (not safe)) (##pair? _rest159320159340_)) + (let ((_tl159336159396_ (let () (declare (not safe)) - (##cdr _rest159316159336_))) - (_hd159331159390_ + (##cdr _rest159320159340_))) + (_hd159335159394_ (let () (declare (not safe)) - (##car _rest159316159336_)))) + (##car _rest159320159340_)))) (if (let () (declare (not safe)) - (equal? _hd159331159390_ '"-cc-options")) + (equal? _hd159335159394_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl159332159392_)) - (let* ((_tl159334159395_ + (##pair? _tl159336159396_)) + (let* ((_tl159338159399_ (let () (declare (not safe)) - (##cdr _tl159332159392_))) - (_rest159398_ _tl159334159395_)) + (##cdr _tl159336159396_))) + (_rest159402_ _tl159338159399_)) (declare (not safe)) - (_K159330159387_ _rest159398_)) - (let ((_opt159359_ _hd159331159390_) - (_rest159361_ _tl159332159392_)) + (_K159334159391_ _rest159402_)) + (let ((_opt159363_ _hd159335159394_) + (_rest159365_ _tl159336159396_)) (let () (declare (not safe)) - (_K159322159351_ _rest159361_ _opt159359_)))) + (_K159326159355_ _rest159365_ _opt159363_)))) (if (let () (declare (not safe)) - (equal? _hd159331159390_ '"-ld-options")) + (equal? _hd159335159394_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl159332159392_)) - (let* ((_tl159329159377_ + (##pair? _tl159336159396_)) + (let* ((_tl159333159381_ (let () (declare (not safe)) - (##cdr _tl159332159392_))) - (_rest159380_ _tl159329159377_)) + (##cdr _tl159336159396_))) + (_rest159384_ _tl159333159381_)) (declare (not safe)) - (_K159325159369_ _rest159380_)) - (let ((_opt159359_ _hd159331159390_) - (_rest159361_ _tl159332159392_)) + (_K159329159373_ _rest159384_)) + (let ((_opt159363_ _hd159335159394_) + (_rest159365_ _tl159336159396_)) (let () (declare (not safe)) - (_K159322159351_ - _rest159361_ - _opt159359_)))) - (let ((_opt159359_ _hd159331159390_) - (_rest159361_ _tl159332159392_)) + (_K159326159355_ + _rest159365_ + _opt159363_)))) + (let ((_opt159363_ _hd159335159394_) + (_rest159365_ _tl159336159396_)) (let () (declare (not safe)) - (_K159322159351_ _rest159361_ _opt159359_)))))) - (let () (declare (not safe)) (_else159320159344_)))))))) + (_K159326159355_ _rest159365_ _opt159363_)))))) + (let () (declare (not safe)) (_else159324159348_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?159404_ '#f)) + (let ((_phi?159408_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?159404_)))) + (gxc#gsc-link-options__% _phi?159408_)))) (define gxc#gsc-link-options - (lambda _g160583_ - (let ((_g160582_ (let () (declare (not safe)) (##length _g160583_)))) - (cond ((let () (declare (not safe)) (##fx= _g160582_ 0)) + (lambda _g160587_ + (let ((_g160586_ (let () (declare (not safe)) (##length _g160587_)))) + (cond ((let () (declare (not safe)) (##fx= _g160586_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g160583_)) - ((let () (declare (not safe)) (##fx= _g160582_ 1)) - (apply (lambda (_phi?159406_) + _g160587_)) + ((let () (declare (not safe)) (##fx= _g160586_ 1)) + (apply (lambda (_phi?159410_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?159406_))) - _g160583_)) + (gxc#gsc-link-options__% _phi?159410_))) + _g160587_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g160583_)))))) + _g160587_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?159211_) - (let _lp159213_ ((_rest159215_ (gxc#current-compile-gsc-options)) - (_opts159216_ '())) - (let* ((_rest159217159237_ _rest159215_) - (_else159221159245_ + (lambda (_phi?159215_) + (let _lp159217_ ((_rest159219_ (gxc#current-compile-gsc-options)) + (_opts159220_ '())) + (let* ((_rest159221159241_ _rest159219_) + (_else159225159249_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?159211_)) + (if (and (let () (declare (not safe)) (not _phi?159215_)) (gxc#current-compile-debug)) - (let ((__tmp160584 - (let ((__tmp160585 (reverse _opts159216_))) + (let ((__tmp160588 + (let ((__tmp160589 (reverse _opts159220_))) (declare (not safe)) - (cons '"-g" __tmp160585)))) + (cons '"-g" __tmp160589)))) (declare (not safe)) - (cons '"-cc-options" __tmp160584)) - (reverse _opts159216_))))) - (let ((_K159231159284_ - (lambda (_rest159281_ _opt159282_) - (let ((__tmp160586 - (let ((__tmp160587 + (cons '"-cc-options" __tmp160588)) + (reverse _opts159220_))))) + (let ((_K159235159288_ + (lambda (_rest159285_ _opt159286_) + (let ((__tmp160590 + (let ((__tmp160591 (let () (declare (not safe)) - (cons '"-cc-options" _opts159216_)))) + (cons '"-cc-options" _opts159220_)))) (declare (not safe)) - (cons _opt159282_ __tmp160587)))) + (cons _opt159286_ __tmp160591)))) (declare (not safe)) - (_lp159213_ _rest159281_ __tmp160586)))) - (_K159226159265_ - (lambda (_rest159263_) + (_lp159217_ _rest159285_ __tmp160590)))) + (_K159230159269_ + (lambda (_rest159267_) (let () (declare (not safe)) - (_lp159213_ _rest159263_ _opts159216_)))) - (_K159223159251_ - (lambda (_rest159249_) + (_lp159217_ _rest159267_ _opts159220_)))) + (_K159227159255_ + (lambda (_rest159253_) (let () (declare (not safe)) - (_lp159213_ _rest159249_ _opts159216_))))) - (if (let () (declare (not safe)) (##pair? _rest159217159237_)) - (let ((_tl159233159289_ + (_lp159217_ _rest159253_ _opts159220_))))) + (if (let () (declare (not safe)) (##pair? _rest159221159241_)) + (let ((_tl159237159293_ (let () (declare (not safe)) - (##cdr _rest159217159237_))) - (_hd159232159287_ + (##cdr _rest159221159241_))) + (_hd159236159291_ (let () (declare (not safe)) - (##car _rest159217159237_)))) + (##car _rest159221159241_)))) (if (let () (declare (not safe)) - (equal? _hd159232159287_ '"-cc-options")) + (equal? _hd159236159291_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl159233159289_)) - (let ((_tl159235159294_ + (##pair? _tl159237159293_)) + (let ((_tl159239159298_ (let () (declare (not safe)) - (##cdr _tl159233159289_))) - (_hd159234159292_ + (##cdr _tl159237159293_))) + (_hd159238159296_ (let () (declare (not safe)) - (##car _tl159233159289_)))) - (let ((_opt159297_ _hd159234159292_) - (_rest159299_ _tl159235159294_)) + (##car _tl159237159293_)))) + (let ((_opt159301_ _hd159238159296_) + (_rest159303_ _tl159239159298_)) (let () (declare (not safe)) - (_K159231159284_ _rest159299_ _opt159297_)))) - (let ((_rest159257_ _tl159233159289_)) + (_K159235159288_ _rest159303_ _opt159301_)))) + (let ((_rest159261_ _tl159237159293_)) (declare (not safe)) - (_K159223159251_ _rest159257_))) + (_K159227159255_ _rest159261_))) (if (let () (declare (not safe)) - (equal? _hd159232159287_ '"-ld-options")) + (equal? _hd159236159291_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl159233159289_)) - (let* ((_tl159230159273_ + (##pair? _tl159237159293_)) + (let* ((_tl159234159277_ (let () (declare (not safe)) - (##cdr _tl159233159289_))) - (_rest159276_ _tl159230159273_)) + (##cdr _tl159237159293_))) + (_rest159280_ _tl159234159277_)) (declare (not safe)) - (_K159226159265_ _rest159276_)) - (let ((_rest159257_ _tl159233159289_)) + (_K159230159269_ _rest159280_)) + (let ((_rest159261_ _tl159237159293_)) (declare (not safe)) - (_K159223159251_ _rest159257_))) - (let ((_rest159257_ _tl159233159289_)) + (_K159227159255_ _rest159261_))) + (let ((_rest159261_ _tl159237159293_)) (declare (not safe)) - (_K159223159251_ _rest159257_))))) - (let () (declare (not safe)) (_else159221159245_)))))))) + (_K159227159255_ _rest159261_))))) + (let () (declare (not safe)) (_else159225159249_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?159305_ '#f)) + (let ((_phi?159309_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?159305_)))) + (gxc#gsc-cc-options__% _phi?159309_)))) (define gxc#gsc-cc-options - (lambda _g160589_ - (let ((_g160588_ (let () (declare (not safe)) (##length _g160589_)))) - (cond ((let () (declare (not safe)) (##fx= _g160588_ 0)) + (lambda _g160593_ + (let ((_g160592_ (let () (declare (not safe)) (##length _g160593_)))) + (cond ((let () (declare (not safe)) (##fx= _g160592_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g160589_)) - ((let () (declare (not safe)) (##fx= _g160588_ 1)) - (apply (lambda (_phi?159307_) + _g160593_)) + ((let () (declare (not safe)) (##fx= _g160592_ 1)) + (apply (lambda (_phi?159311_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?159307_))) - _g160589_)) + (gxc#gsc-cc-options__% _phi?159311_))) + _g160593_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g160589_)))))) + _g160593_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir159206_) - (let* ((_user-staticdir159208_ + (lambda (_staticdir159210_) + (let* ((_user-staticdir159212_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp160590 - (let ((__tmp160591 + (__tmp160594 + (let ((__tmp160595 (string-append '"-I " - _staticdir159206_ + _staticdir159210_ '" -I " - _user-staticdir159208_))) + _user-staticdir159212_))) (declare (not safe)) - (cons __tmp160591 '())))) + (cons __tmp160595 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp160590)))) + (cons '"-cc-options" __tmp160594)))) (define gxc#gcc-ld-options (lambda () - (let _lp159118_ ((_rest159120_ (gxc#current-compile-gsc-options)) - (_opts159121_ '())) - (let* ((_rest159122159142_ _rest159120_) - (_else159126159150_ (lambda () _opts159121_))) - (let ((_K159136159193_ - (lambda (_rest159191_) + (let _lp159122_ ((_rest159124_ (gxc#current-compile-gsc-options)) + (_opts159125_ '())) + (let* ((_rest159126159146_ _rest159124_) + (_else159130159154_ (lambda () _opts159125_))) + (let ((_K159140159197_ + (lambda (_rest159195_) (let () (declare (not safe)) - (_lp159118_ _rest159191_ _opts159121_)))) - (_K159131159171_ - (lambda (_rest159168_ _opt159169_) - (let ((__tmp160592 - (append _opts159121_ + (_lp159122_ _rest159195_ _opts159125_)))) + (_K159135159175_ + (lambda (_rest159172_ _opt159173_) + (let ((__tmp160596 + (append _opts159125_ (filter gxc#not-string-empty? (let () (declare (not safe)) (string-split - _opt159169_ + _opt159173_ '#\space)))))) (declare (not safe)) - (_lp159118_ _rest159168_ __tmp160592)))) - (_K159128159156_ - (lambda (_rest159154_) + (_lp159122_ _rest159172_ __tmp160596)))) + (_K159132159160_ + (lambda (_rest159158_) (let () (declare (not safe)) - (_lp159118_ _rest159154_ _opts159121_))))) - (if (let () (declare (not safe)) (##pair? _rest159122159142_)) - (let ((_tl159138159198_ + (_lp159122_ _rest159158_ _opts159125_))))) + (if (let () (declare (not safe)) (##pair? _rest159126159146_)) + (let ((_tl159142159202_ (let () (declare (not safe)) - (##cdr _rest159122159142_))) - (_hd159137159196_ + (##cdr _rest159126159146_))) + (_hd159141159200_ (let () (declare (not safe)) - (##car _rest159122159142_)))) + (##car _rest159126159146_)))) (if (let () (declare (not safe)) - (equal? _hd159137159196_ '"-cc-options")) + (equal? _hd159141159200_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl159138159198_)) - (let* ((_tl159140159201_ + (##pair? _tl159142159202_)) + (let* ((_tl159144159205_ (let () (declare (not safe)) - (##cdr _tl159138159198_))) - (_rest159204_ _tl159140159201_)) + (##cdr _tl159142159202_))) + (_rest159208_ _tl159144159205_)) (declare (not safe)) - (_K159136159193_ _rest159204_)) - (let ((_rest159162_ _tl159138159198_)) + (_K159140159197_ _rest159208_)) + (let ((_rest159166_ _tl159142159202_)) (declare (not safe)) - (_K159128159156_ _rest159162_))) + (_K159132159160_ _rest159166_))) (if (let () (declare (not safe)) - (equal? _hd159137159196_ '"-ld-options")) + (equal? _hd159141159200_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl159138159198_)) - (let ((_tl159135159181_ + (##pair? _tl159142159202_)) + (let ((_tl159139159185_ (let () (declare (not safe)) - (##cdr _tl159138159198_))) - (_hd159134159179_ + (##cdr _tl159142159202_))) + (_hd159138159183_ (let () (declare (not safe)) - (##car _tl159138159198_)))) - (let ((_opt159184_ _hd159134159179_) - (_rest159186_ _tl159135159181_)) + (##car _tl159142159202_)))) + (let ((_opt159188_ _hd159138159183_) + (_rest159190_ _tl159139159185_)) (let () (declare (not safe)) - (_K159131159171_ - _rest159186_ - _opt159184_)))) - (let ((_rest159162_ _tl159138159198_)) + (_K159135159175_ + _rest159190_ + _opt159188_)))) + (let ((_rest159166_ _tl159142159202_)) (declare (not safe)) - (_K159128159156_ _rest159162_))) - (let ((_rest159162_ _tl159138159198_)) + (_K159132159160_ _rest159166_))) + (let ((_rest159166_ _tl159142159202_)) (declare (not safe)) - (_K159128159156_ _rest159162_))))) - (let () (declare (not safe)) (_else159126159150_)))))))) + (_K159132159160_ _rest159166_))))) + (let () (declare (not safe)) (_else159130159154_)))))))) (define gxc#not-string-empty? - (lambda (_str159115_) - (let ((__tmp160593 - (let () (declare (not safe)) (string-empty? _str159115_)))) + (lambda (_str159119_) + (let ((__tmp160597 + (let () (declare (not safe)) (string-empty? _str159119_)))) (declare (not safe)) - (not __tmp160593)))) + (not __tmp160597)))) (define gxc#gsc-compile-file - (lambda (_path159083_ _phi?159084_) - (letrec ((_gsc-link-path159086_ - (lambda (_base-path159107_) - (let _lp159109_ ((_n159111_ '1)) - (let ((_path159113_ + (lambda (_path159087_ _phi?159088_) + (letrec ((_gsc-link-path159090_ + (lambda (_base-path159111_) + (let _lp159113_ ((_n159115_ '1)) + (let ((_path159117_ (string-append - _base-path159107_ + _base-path159111_ '".o" - (number->string _n159111_)))) - (if (file-exists? _path159113_) - (let ((__tmp160594 + (number->string _n159115_)))) + (if (file-exists? _path159117_) + (let ((__tmp160598 (let () (declare (not safe)) - (+ _n159111_ '1)))) + (+ _n159115_ '1)))) (declare (not safe)) - (_lp159109_ __tmp160594)) - _path159113_)))))) - (let* ((_base-path159088_ (path-strip-extension _path159083_)) - (_path-c159090_ (string-append _base-path159088_ '".c")) - (_path-o159092_ (string-append _base-path159088_ '".o")) - (_link-path159094_ + (_lp159113_ __tmp160598)) + _path159117_)))))) + (let* ((_base-path159092_ (path-strip-extension _path159087_)) + (_path-c159094_ (string-append _base-path159092_ '".c")) + (_path-o159096_ (string-append _base-path159092_ '".o")) + (_link-path159098_ (let () (declare (not safe)) - (_gsc-link-path159086_ _base-path159088_))) - (_link-path-c159096_ (string-append _link-path159094_ '".c")) - (_link-path-o159098_ (string-append _link-path159094_ '".o")) - (_gsc-link-opts159100_ + (_gsc-link-path159090_ _base-path159092_))) + (_link-path-c159100_ (string-append _link-path159098_ '".c")) + (_link-path-o159102_ (string-append _link-path159098_ '".o")) + (_gsc-link-opts159104_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?159084_))) - (_gsc-cc-opts159102_ + (gxc#gsc-link-options__% _phi?159088_))) + (_gsc-cc-opts159106_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?159084_))) - (_gcc-ld-opts159104_ + (gxc#gsc-cc-options__% _phi?159088_))) + (_gcc-ld-opts159108_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp160601 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160595 - (let ((__tmp160596 - (let ((__tmp160597 - (let ((__tmp160598 - (let ((__tmp160599 - (let ((__tmp160600 + (let ((__tmp160605 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp160599 + (let ((__tmp160600 + (let ((__tmp160601 + (let ((__tmp160602 + (let ((__tmp160603 + (let ((__tmp160604 (let () (declare (not safe)) - (cons _path159083_ + (cons _path159087_ '())))) (declare (not safe)) (foldr1 cons - __tmp160600 - _gsc-link-opts159100_)))) + __tmp160604 + _gsc-link-opts159104_)))) (declare (not safe)) - (cons _link-path-c159096_ - __tmp160599)))) + (cons _link-path-c159100_ + __tmp160603)))) (declare (not safe)) - (cons '"-o" __tmp160598)))) + (cons '"-o" __tmp160602)))) (declare (not safe)) - (cons '"-flat" __tmp160597)))) + (cons '"-flat" __tmp160601)))) (declare (not safe)) - (cons '"-link" __tmp160596)))) + (cons '"-link" __tmp160600)))) (declare (not safe)) - (gxc#invoke __tmp160601 __tmp160595 'stdout-redirection: '#t)) - (let ((__tmp160608 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160602 - (let ((__tmp160603 - (let ((__tmp160604 - (let ((__tmp160605 - (let ((__tmp160606 - (let ((__tmp160607 + (gxc#invoke __tmp160605 __tmp160599 'stdout-redirection: '#t)) + (let ((__tmp160612 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp160606 + (let ((__tmp160607 + (let ((__tmp160608 + (let ((__tmp160609 + (let ((__tmp160610 + (let ((__tmp160611 (let () (declare (not safe)) - (cons _link-path-c159096_ + (cons _link-path-c159100_ '())))) (declare (not safe)) - (cons _path-c159090_ - __tmp160607)))) + (cons _path-c159094_ + __tmp160611)))) (declare (not safe)) (foldr1 cons - __tmp160606 - _gsc-cc-opts159102_)))) + __tmp160610 + _gsc-cc-opts159106_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp160605)))) + (cons '"-D___DYNAMIC" __tmp160609)))) (declare (not safe)) - (cons '"-cc-options" __tmp160604)))) + (cons '"-cc-options" __tmp160608)))) (declare (not safe)) - (cons '"-obj" __tmp160603)))) + (cons '"-obj" __tmp160607)))) (declare (not safe)) - (gxc#invoke __tmp160608 __tmp160602 'stdout-redirection: '#t)) - (let ((__tmp160614 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp160609 - (let ((__tmp160610 - (let ((__tmp160611 - (let ((__tmp160612 - (let ((__tmp160613 + (gxc#invoke __tmp160612 __tmp160606 'stdout-redirection: '#t)) + (let ((__tmp160618 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp160613 + (let ((__tmp160614 + (let ((__tmp160615 + (let ((__tmp160616 + (let ((__tmp160617 (let () (declare (not safe)) - (cons _link-path-o159098_ - _gcc-ld-opts159104_)))) + (cons _link-path-o159102_ + _gcc-ld-opts159108_)))) (declare (not safe)) - (cons _path-o159092_ __tmp160613)))) + (cons _path-o159096_ __tmp160617)))) (declare (not safe)) - (cons _link-path159094_ __tmp160612)))) + (cons _link-path159098_ __tmp160616)))) (declare (not safe)) - (cons '"-o" __tmp160611)))) + (cons '"-o" __tmp160615)))) (declare (not safe)) - (cons '"-shared" __tmp160610)))) + (cons '"-shared" __tmp160614)))) (declare (not safe)) - (gxc#invoke __tmp160614 __tmp160609)) + (gxc#invoke __tmp160618 __tmp160613)) (for-each delete-file - (let ((__tmp160615 - (let ((__tmp160616 - (let ((__tmp160617 + (let ((__tmp160619 + (let ((__tmp160620 + (let ((__tmp160621 (let () (declare (not safe)) - (cons _link-path-o159098_ '())))) + (cons _link-path-o159102_ '())))) (declare (not safe)) - (cons _link-path-c159096_ __tmp160617)))) + (cons _link-path-c159100_ __tmp160621)))) (declare (not safe)) - (cons _path-o159092_ __tmp160616)))) + (cons _path-o159096_ __tmp160620)))) (declare (not safe)) - (cons _path-c159090_ __tmp160615))))))) + (cons _path-c159094_ __tmp160619))))))) (define gxc#compile-output-file - (lambda (_ctx159054_ _n159055_ _ext159056_) - (letrec ((_module-relative-path159058_ - (lambda (_ctx159081_) + (lambda (_ctx159058_ _n159059_ _ext159060_) + (letrec ((_module-relative-path159062_ + (lambda (_ctx159085_) (path-strip-directory - (let ((__tmp160618 + (let ((__tmp160622 (##structure-ref - _ctx159081_ + _ctx159085_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp160618))))) - (_module-source-directory159059_ - (lambda (_ctx159077_) + (gxc#module-id->path-string __tmp160622))))) + (_module-source-directory159063_ + (lambda (_ctx159081_) (path-directory - (let ((_mpath159079_ + (let ((_mpath159083_ (##structure-ref - _ctx159077_ + _ctx159081_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (string? _mpath159079_)) - _mpath159079_ - (last _mpath159079_)))))) - (_section-string159060_ - (lambda (_n159075_) - (if (let () (declare (not safe)) (number? _n159075_)) - (number->string _n159075_) - (if (let () (declare (not safe)) (symbol? _n159075_)) - (symbol->string _n159075_) + (string? _mpath159083_)) + _mpath159083_ + (last _mpath159083_)))))) + (_section-string159064_ + (lambda (_n159079_) + (if (let () (declare (not safe)) (number? _n159079_)) + (number->string _n159079_) + (if (let () (declare (not safe)) (symbol? _n159079_)) + (symbol->string _n159079_) (if (let () (declare (not safe)) - (string? _n159075_)) - _n159075_ + (string? _n159079_)) + _n159079_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n159075_))))))) - (_file-name159061_ - (lambda (_path159073_) - (if _n159055_ + _n159079_))))))) + (_file-name159065_ + (lambda (_path159077_) + (if _n159059_ (string-append - _path159073_ + _path159077_ '"~" (let () (declare (not safe)) - (_section-string159060_ _n159055_)) - _ext159056_) - (string-append _path159073_ _ext159056_)))) - (_file-path159062_ + (_section-string159064_ _n159059_)) + _ext159060_) + (string-append _path159077_ _ext159060_)))) + (_file-path159066_ (lambda () - (let ((_$e159068_ (gxc#current-compile-output-dir))) - (if _$e159068_ - ((lambda (_outdir159071_) + (let ((_$e159072_ (gxc#current-compile-output-dir))) + (if _$e159072_ + ((lambda (_outdir159075_) (path-expand - (let ((__tmp160620 - (let ((__tmp160621 + (let ((__tmp160624 + (let ((__tmp160625 (##structure-ref - _ctx159054_ + _ctx159058_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp160621)))) + __tmp160625)))) (declare (not safe)) - (_file-name159061_ __tmp160620)) - _outdir159071_)) - _$e159068_) + (_file-name159065_ __tmp160624)) + _outdir159075_)) + _$e159072_) (path-expand - (let ((__tmp160619 + (let ((__tmp160623 (let () (declare (not safe)) - (_module-relative-path159058_ - _ctx159054_)))) + (_module-relative-path159062_ + _ctx159058_)))) (declare (not safe)) - (_file-name159061_ __tmp160619)) + (_file-name159065_ __tmp160623)) (let () (declare (not safe)) - (_module-source-directory159059_ - _ctx159054_)))))))) - (let ((_path159064_ - (let () (declare (not safe)) (_file-path159062_)))) - (let ((__tmp160622 + (_module-source-directory159063_ + _ctx159058_)))))))) + (let ((_path159068_ + (let () (declare (not safe)) (_file-path159066_)))) + (let ((__tmp160626 (lambda () - (let ((__tmp160623 (path-directory _path159064_))) + (let ((__tmp160627 (path-directory _path159068_))) (declare (not safe)) - (create-directory*__0 __tmp160623))))) + (create-directory*__0 __tmp160627))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160622)) - _path159064_)))) + (with-lock gxc#+driver-mutex+ __tmp160626)) + _path159068_)))) (define gxc#compile-static-output-file - (lambda (_ctx159036_) - (letrec ((_file-name159038_ - (lambda (_id159052_) + (lambda (_ctx159040_) + (letrec ((_file-name159042_ + (lambda (_id159056_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id159052_)) + (gxc#static-module-name _id159056_)) '".scm"))) - (_file-path159039_ + (_file-path159043_ (lambda () - (let* ((_file159045_ - (let ((__tmp160624 + (let* ((_file159049_ + (let ((__tmp160628 (##structure-ref - _ctx159036_ + _ctx159040_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name159038_ __tmp160624))) - (_$e159047_ (gxc#current-compile-output-dir))) - (if _$e159047_ - ((lambda (_outdir159050_) + (_file-name159042_ __tmp160628))) + (_$e159051_ (gxc#current-compile-output-dir))) + (if _$e159051_ + ((lambda (_outdir159054_) (path-expand - _file159045_ - (path-expand '"static" _outdir159050_))) - _$e159047_) - (path-expand _file159045_ '"static")))))) - (let ((_path159041_ - (let () (declare (not safe)) (_file-path159039_)))) - (let ((__tmp160625 + _file159049_ + (path-expand '"static" _outdir159054_))) + _$e159051_) + (path-expand _file159049_ '"static")))))) + (let ((_path159045_ + (let () (declare (not safe)) (_file-path159043_)))) + (let ((__tmp160629 (lambda () - (let ((__tmp160626 (path-directory _path159041_))) + (let ((__tmp160630 (path-directory _path159045_))) (declare (not safe)) - (create-directory*__0 __tmp160626))))) + (create-directory*__0 __tmp160630))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160625)) - _path159041_)))) + (with-lock gxc#+driver-mutex+ __tmp160629)) + _path159045_)))) (define gxc#compile-exe-output-file - (lambda (_ctx159030_ _opts159031_) - (let ((_$e159033_ + (lambda (_ctx159034_ _opts159035_) + (let ((_$e159037_ (let () (declare (not safe)) - (pgetq__0 'output-file: _opts159031_)))) - (if _$e159033_ - (values _$e159033_) + (pgetq__0 'output-file: _opts159035_)))) + (if _$e159037_ + (values _$e159037_) (path-strip-directory (symbol->string (##structure-ref - _ctx159030_ + _ctx159034_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr159023_) - (if (let () (declare (not safe)) (string? _idstr159023_)) - (let* ((_str159025_ + (lambda (_idstr159027_) + (if (let () (declare (not safe)) (string? _idstr159027_)) + (let* ((_str159029_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr159023_))) - (_strs159027_ + (gxc#module-id->path-string _idstr159027_))) + (_strs159031_ (let () (declare (not safe)) - (string-split _str159025_ '#\/)))) - (let () (declare (not safe)) (string-join _strs159027_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr159023_)) - (let ((__tmp160627 (symbol->string _idstr159023_))) + (string-split _str159029_ '#\/)))) + (let () (declare (not safe)) (string-join _strs159031_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr159027_)) + (let ((__tmp160631 (symbol->string _idstr159027_))) (declare (not safe)) - (gxc#static-module-name __tmp160627)) + (gxc#static-module-name __tmp160631)) (let () (declare (not safe)) - (error '"Bad module id" _idstr159023_)))))) + (error '"Bad module id" _idstr159027_)))))) (define gxc#invoke__% - (lambda (_g160628_ - _stdout-redirection158984158988_ - _stderr-redirection158985158990_ - _program158992_ - _args158993_) - (let* ((_stdout-redirection158995_ + (lambda (_g160632_ + _stdout-redirection158988158992_ + _stderr-redirection158989158994_ + _program158996_ + _args158997_) + (let* ((_stdout-redirection158999_ (if (let () (declare (not safe)) - (eq? _stdout-redirection158984158988_ absent-value)) + (eq? _stdout-redirection158988158992_ absent-value)) '#f - _stdout-redirection158984158988_)) - (_stderr-redirection158997_ + _stdout-redirection158988158992_)) + (_stderr-redirection159001_ (if (let () (declare (not safe)) - (eq? _stderr-redirection158985158990_ absent-value)) + (eq? _stderr-redirection158989158994_ absent-value)) '#f - _stderr-redirection158985158990_))) - (let ((__tmp160629 + _stderr-redirection158989158994_))) + (let ((__tmp160633 (let () (declare (not safe)) - (cons _program158992_ _args158993_)))) + (cons _program158996_ _args158997_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp160629)) - (let* ((_proc158999_ + (gxc#verbose '"invoke " __tmp160633)) + (let* ((_proc159003_ (open-process - (let ((__tmp160630 - (let ((__tmp160631 - (let ((__tmp160632 - (let ((__tmp160633 - (let ((__tmp160634 - (let ((__tmp160635 - (let ((__tmp160636 + (let ((__tmp160634 + (let ((__tmp160635 + (let ((__tmp160636 + (let ((__tmp160637 + (let ((__tmp160638 + (let ((__tmp160639 + (let ((__tmp160640 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _stderr-redirection158997_ '())))) + (cons _stderr-redirection159001_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp160636)))) + (cons 'stderr-redirection: __tmp160640)))) (declare (not safe)) - (cons _stdout-redirection158995_ __tmp160635)))) + (cons _stdout-redirection158999_ __tmp160639)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp160634)))) + __tmp160638)))) (declare (not safe)) - (cons _args158993_ __tmp160633)))) + (cons _args158997_ __tmp160637)))) (declare (not safe)) - (cons 'arguments: __tmp160632)))) + (cons 'arguments: __tmp160636)))) (declare (not safe)) - (cons _program158992_ __tmp160631)))) + (cons _program158996_ __tmp160635)))) (declare (not safe)) - (cons 'path: __tmp160630)))) - (_output159004_ - (if (or _stdout-redirection158995_ - _stderr-redirection158997_) - (read-line _proc158999_ '#f) + (cons 'path: __tmp160634)))) + (_output159008_ + (if (or _stdout-redirection158999_ + _stderr-redirection159001_) + (read-line _proc159003_ '#f) '#f))) - (let ((_status159007_ (process-status _proc158999_))) - (close-port _proc158999_) - (if (let () (declare (not safe)) (zero? _status159007_)) + (let ((_status159011_ (process-status _proc159003_))) + (close-port _proc159003_) + (if (let () (declare (not safe)) (zero? _status159011_)) '#!void (begin - (display _output159004_) - (let ((__tmp160637 + (display _output159008_) + (let ((__tmp160641 (let () (declare (not safe)) - (cons _program158992_ _args158993_)))) + (cons _program158996_ _args158997_)))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp160637 - _status159007_))))))))) + __tmp160641 + _status159011_))))))))) (define gxc#invoke__@ - (lambda (_keys158983159012_ . _args159014_) + (lambda (_keys158987159016_ . _args159018_) (apply gxc#invoke__% - _keys158983159012_ + _keys158987159016_ (let () (declare (not safe)) (symbolic-table-ref - _keys158983159012_ + _keys158987159016_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys158983159012_ + _keys158987159016_ 'stderr-redirection: absent-value)) - _args159014_))) + _args159018_))) (define gxc#invoke - (lambda _args158986159020_ + (lambda _args158990159024_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args158986159020_))) + _args158990159024_))) (define gxc#join! - (lambda (_thread158977_) - (let ((__tmp160639 - (lambda (_exn158979_) + (lambda (_thread158981_) + (let ((__tmp160643 + (lambda (_exn158983_) (if (let () (declare (not safe)) - (uncaught-exception? _exn158979_)) + (uncaught-exception? _exn158983_)) (raise (let () (declare (not safe)) - (uncaught-exception-reason _exn158979_))) - (raise _exn158979_)))) - (__tmp160638 (lambda () (thread-join! _thread158977_)))) + (uncaught-exception-reason _exn158983_))) + (raise _exn158983_)))) + (__tmp160642 (lambda () (thread-join! _thread158981_)))) (declare (not safe)) - (with-catch __tmp160639 __tmp160638)))))) + (with-catch __tmp160643 __tmp160642)))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index 3dcd7267b..6d20e55b9 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 (_$stx158850_) - (let* ((_g158854158868_ - (lambda (_g158855158864_) + (lambda (_$stx158854_) + (let* ((_g158858158872_ + (lambda (_g158859158868_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158855158864_)))) - (_g158853158910_ - (lambda (_g158855158872_) + _g158859158868_)))) + (_g158857158914_ + (lambda (_g158859158876_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158855158872_)) - (let ((_e158859158875_ + (gx#stx-pair? _g158859158876_)) + (let ((_e158863158879_ (let () (declare (not safe)) - (gx#syntax-e _g158855158872_)))) - (let ((_hd158858158879_ + (gx#syntax-e _g158859158876_)))) + (let ((_hd158862158883_ (let () (declare (not safe)) - (##car _e158859158875_))) - (_tl158857158882_ + (##car _e158863158879_))) + (_tl158861158886_ (let () (declare (not safe)) - (##cdr _e158859158875_)))) + (##cdr _e158863158879_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158857158882_)) - (let ((_e158862158885_ + (gx#stx-pair? _tl158861158886_)) + (let ((_e158866158889_ (let () (declare (not safe)) - (gx#syntax-e _tl158857158882_)))) - (let ((_hd158861158889_ + (gx#syntax-e _tl158861158886_)))) + (let ((_hd158865158893_ (let () (declare (not safe)) - (##car _e158862158885_))) - (_tl158860158892_ + (##car _e158866158889_))) + (_tl158864158896_ (let () (declare (not safe)) - (##cdr _e158862158885_)))) + (##cdr _e158866158889_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158860158892_)) - ((lambda (_L158895_) - (let ((__tmp160647 + (gx#stx-null? _tl158864158896_)) + ((lambda (_L158899_) + (let ((__tmp160651 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp160640 - (let ((__tmp160646 + (__tmp160644 + (let ((__tmp160650 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp160641 - (let ((__tmp160642 - (let ((__tmp160645 + (__tmp160645 + (let ((__tmp160646 + (let ((__tmp160649 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp160643 - (let ((__tmp160644 + (__tmp160647 + (let ((__tmp160648 (let () (declare (not safe)) - (cons _L158895_ '())))) + (cons _L158899_ '())))) (declare (not safe)) - (cons '() __tmp160644)))) + (cons '() __tmp160648)))) (declare (not safe)) - (cons __tmp160645 __tmp160643)))) + (cons __tmp160649 __tmp160647)))) (declare (not safe)) - (cons __tmp160642 '())))) + (cons __tmp160646 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160646 - __tmp160641)))) + (cons __tmp160650 + __tmp160645)))) (declare (not safe)) - (cons __tmp160647 __tmp160640))) - _hd158861158889_) - (_g158854158868_ _g158855158872_)))) - (_g158854158868_ _g158855158872_)))) - (_g158854158868_ _g158855158872_))))) - (_g158853158910_ _$stx158850_)))) + (cons __tmp160651 __tmp160644))) + _hd158865158893_) + (_g158858158872_ _g158859158876_)))) + (_g158858158872_ _g158859158876_)))) + (_g158858158872_ _g158859158876_))))) + (_g158857158914_ _$stx158854_)))) (define |gxc[:0:]#go!| - (lambda (_$stx158914_) - (let* ((_g158918158932_ - (lambda (_g158919158928_) + (lambda (_$stx158918_) + (let* ((_g158922158936_ + (lambda (_g158923158932_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158919158928_)))) - (_g158917158973_ - (lambda (_g158919158936_) + _g158923158932_)))) + (_g158921158977_ + (lambda (_g158923158940_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158919158936_)) - (let ((_e158923158939_ + (gx#stx-pair? _g158923158940_)) + (let ((_e158927158943_ (let () (declare (not safe)) - (gx#syntax-e _g158919158936_)))) - (let ((_hd158922158943_ + (gx#syntax-e _g158923158940_)))) + (let ((_hd158926158947_ (let () (declare (not safe)) - (##car _e158923158939_))) - (_tl158921158946_ + (##car _e158927158943_))) + (_tl158925158950_ (let () (declare (not safe)) - (##cdr _e158923158939_)))) + (##cdr _e158927158943_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158921158946_)) - (let ((_e158926158949_ + (gx#stx-pair? _tl158925158950_)) + (let ((_e158930158953_ (let () (declare (not safe)) - (gx#syntax-e _tl158921158946_)))) - (let ((_hd158925158953_ + (gx#syntax-e _tl158925158950_)))) + (let ((_hd158929158957_ (let () (declare (not safe)) - (##car _e158926158949_))) - (_tl158924158956_ + (##car _e158930158953_))) + (_tl158928158960_ (let () (declare (not safe)) - (##cdr _e158926158949_)))) + (##cdr _e158930158953_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158924158956_)) - ((lambda (_L158959_) - (let ((__tmp160653 + (gx#stx-null? _tl158928158960_)) + ((lambda (_L158963_) + (let ((__tmp160657 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp160648 - (let ((__tmp160649 - (let ((__tmp160652 + (__tmp160652 + (let ((__tmp160653 + (let ((__tmp160656 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp160650 - (let ((__tmp160651 + (__tmp160654 + (let ((__tmp160655 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L158959_ '())))) + (let () (declare (not safe)) (cons _L158963_ '())))) (declare (not safe)) - (cons '() __tmp160651)))) + (cons '() __tmp160655)))) (declare (not safe)) - (cons __tmp160652 __tmp160650)))) + (cons __tmp160656 __tmp160654)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160649 '())))) + (cons __tmp160653 '())))) (declare (not safe)) - (cons __tmp160653 __tmp160648))) - _hd158925158953_) - (_g158918158932_ _g158919158936_)))) - (_g158918158932_ _g158919158936_)))) - (_g158918158932_ _g158919158936_))))) - (_g158917158973_ _$stx158914_))))) + (cons __tmp160657 __tmp160652))) + _hd158929158957_) + (_g158922158936_ _g158923158940_)))) + (_g158922158936_ _g158923158940_)))) + (_g158922158936_ _g158923158940_))))) + (_g158921158977_ _$stx158918_))))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index d1d5fca93..0f0446a73 100644 --- a/src/bootstrap/gerbil/compiler/method~0.scm +++ b/src/bootstrap/gerbil/compiler/method~0.scm @@ -1,96 +1,96 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/method::timestamp 1710781149) + (define gerbil/compiler/method::timestamp 1710833425) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_stx102908_) - (let* ((_self102910_ (gxc#current-compile-method)) - (_$e102912_ - (let ((__tmp103081 + (lambda (_stx102912_) + (let* ((_self102914_ (gxc#current-compile-method)) + (_$e102916_ + (let ((__tmp103085 (let () (declare (not safe)) - (gxc#stx-car-e _stx102908_)))) + (gxc#stx-car-e _stx102912_)))) (declare (not safe)) - (method-ref _self102910_ __tmp103081)))) - (if _$e102912_ - ((lambda (_method102915_) + (method-ref _self102914_ __tmp103085)))) + (if _$e102916_ + ((lambda (_method102919_) (declare (not safe)) - (_method102915_ _self102910_ _stx102908_)) - _$e102912_) - (let ((__tmp103083 - (let () (declare (not safe)) (gxc#stx-car-e _stx102908_))) - (__tmp103082 + (_method102919_ _self102914_ _stx102912_)) + _$e102916_) + (let ((__tmp103087 + (let () (declare (not safe)) (gxc#stx-car-e _stx102912_))) + (__tmp103086 (let () (declare (not safe)) - (gx#syntax->datum _stx102908_)))) + (gx#syntax->datum _stx102912_)))) (declare (not safe)) (error '"missing method" - _self102910_ - __tmp103083 - __tmp103082)))))) + _self102914_ + __tmp103087 + __tmp103086)))))) (define gxc#compile-e__1 - (lambda (_self102918_ _stx102919_) - (let ((_$e102921_ - (let ((__tmp103084 + (lambda (_self102922_ _stx102923_) + (let ((_$e102925_ + (let ((__tmp103088 (let () (declare (not safe)) - (gxc#stx-car-e _stx102919_)))) + (gxc#stx-car-e _stx102923_)))) (declare (not safe)) - (method-ref _self102918_ __tmp103084)))) - (if _$e102921_ - ((lambda (_method102924_) + (method-ref _self102922_ __tmp103088)))) + (if _$e102925_ + ((lambda (_method102928_) (declare (not safe)) - (_method102924_ _self102918_ _stx102919_)) - _$e102921_) - (let ((__tmp103086 - (let () (declare (not safe)) (gxc#stx-car-e _stx102919_))) - (__tmp103085 + (_method102928_ _self102922_ _stx102923_)) + _$e102925_) + (let ((__tmp103090 + (let () (declare (not safe)) (gxc#stx-car-e _stx102923_))) + (__tmp103089 (let () (declare (not safe)) - (gx#syntax->datum _stx102919_)))) + (gx#syntax->datum _stx102923_)))) (declare (not safe)) (error '"missing method" - _self102918_ - __tmp103086 - __tmp103085)))))) + _self102922_ + __tmp103090 + __tmp103089)))))) (define gxc#compile-e - (lambda _g103088_ - (let ((_g103087_ (let () (declare (not safe)) (##length _g103088_)))) - (cond ((let () (declare (not safe)) (##fx= _g103087_ 1)) - (apply (lambda (_stx102908_) + (lambda _g103092_ + (let ((_g103091_ (let () (declare (not safe)) (##length _g103092_)))) + (cond ((let () (declare (not safe)) (##fx= _g103091_ 1)) + (apply (lambda (_stx102912_) (let () (declare (not safe)) - (gxc#compile-e__0 _stx102908_))) - _g103088_)) - ((let () (declare (not safe)) (##fx= _g103087_ 2)) - (apply (lambda (_self102918_ _stx102919_) + (gxc#compile-e__0 _stx102912_))) + _g103092_)) + ((let () (declare (not safe)) (##fx= _g103091_ 2)) + (apply (lambda (_self102922_ _stx102923_) (let () (declare (not safe)) - (gxc#compile-e__1 _self102918_ _stx102919_))) - _g103088_)) + (gxc#compile-e__1 _self102922_ _stx102923_))) + _g103092_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g103088_)))))) + _g103092_)))))) (define gxc#stx-car-e - (lambda (_stx102906_) - (let ((__tmp103089 - (car (let () (declare (not safe)) (gx#stx-e _stx102906_))))) + (lambda (_stx102910_) + (let ((__tmp103093 + (car (let () (declare (not safe)) (gx#stx-e _stx102910_))))) (declare (not safe)) - (gx#stx-e __tmp103089)))) - (define gxc#void-method (lambda (_self102903_ _stx102904_) '#!void)) - (define gxc#false-method (lambda (_self102900_ _stx102901_) '#f)) - (define gxc#true-method (lambda (_self102897_ _stx102898_) '#t)) + (gx#stx-e __tmp103093)))) + (define gxc#void-method (lambda (_self102907_ _stx102908_) '#!void)) + (define gxc#false-method (lambda (_self102904_ _stx102905_) '#f)) + (define gxc#true-method (lambda (_self102901_ _stx102902_) '#t)) (define gxc#identity-method - (lambda (_self102894_ _stx102895_) _stx102895_)) + (lambda (_self102898_ _stx102899_) _stx102899_)) (define gxc#::void-expression::t - (let ((__tmp103090 (list))) + (let ((__tmp103094 (list))) (declare (not safe)) (make-class-type 'gxc#::void-expression::t '::void-expression - __tmp103090 + __tmp103094 '() '() '#f))) @@ -99,8 +99,8 @@ (declare (not safe)) (make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _$args102891_ - (apply make-instance gxc#::void-expression::t _$args102891_))) + (lambda _$args102895_ + (apply make-instance gxc#::void-expression::t _$args102895_))) (define gxc#::void-expression-bind-methods! (make-promise (lambda () @@ -216,12 +216,12 @@ '%#struct-unchecked-set! gxc#void-method))))) (define gxc#::void-special-form::t - (let ((__tmp103091 (list))) + (let ((__tmp103095 (list))) (declare (not safe)) (make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp103091 + __tmp103095 '() '() '#f))) @@ -230,8 +230,8 @@ (declare (not safe)) (make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _$args102887_ - (apply make-instance gxc#::void-special-form::t _$args102887_))) + (lambda _$args102891_ + (apply make-instance gxc#::void-special-form::t _$args102891_))) (define gxc#::void-special-form-bind-methods! (make-promise (lambda () @@ -308,26 +308,26 @@ '%#declare gxc#void-method))))) (define gxc#::void::t - (let ((__tmp103092 + (let ((__tmp103096 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (make-class-type 'gxc#::void::t '::void __tmp103092 '() '() '#f))) + (make-class-type 'gxc#::void::t '::void __tmp103096 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _$args102883_ (apply make-instance gxc#::void::t _$args102883_))) + (lambda _$args102887_ (apply make-instance gxc#::void::t _$args102887_))) (define gxc#::void-bind-methods! (make-promise (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (define gxc#::false-expression::t - (let ((__tmp103093 (list))) + (let ((__tmp103097 (list))) (declare (not safe)) (make-class-type 'gxc#::false-expression::t '::false-expression - __tmp103093 + __tmp103097 '() '() '#f))) @@ -336,8 +336,8 @@ (declare (not safe)) (make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _$args102879_ - (apply make-instance gxc#::false-expression::t _$args102879_))) + (lambda _$args102883_ + (apply make-instance gxc#::false-expression::t _$args102883_))) (define gxc#::false-expression-bind-methods! (make-promise (lambda () @@ -462,12 +462,12 @@ '%#struct-unchecked-set! gxc#false-method))))) (define gxc#::false-special-form::t - (let ((__tmp103094 (list))) + (let ((__tmp103098 (list))) (declare (not safe)) (make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp103094 + __tmp103098 '() '() '#f))) @@ -476,8 +476,8 @@ (declare (not safe)) (make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _$args102875_ - (apply make-instance gxc#::false-special-form::t _$args102875_))) + (lambda _$args102879_ + (apply make-instance gxc#::false-special-form::t _$args102879_))) (define gxc#::false-special-form-bind-methods! (make-promise (lambda () @@ -554,27 +554,27 @@ '%#declare gxc#false-method))))) (define gxc#::false::t - (let ((__tmp103095 + (let ((__tmp103099 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (make-class-type 'gxc#::false::t '::false __tmp103095 '() '() '#f))) + (make-class-type 'gxc#::false::t '::false __tmp103099 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _$args102871_ - (apply make-instance gxc#::false::t _$args102871_))) + (lambda _$args102875_ + (apply make-instance gxc#::false::t _$args102875_))) (define gxc#::false-bind-methods! (make-promise (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (define gxc#::identity-expression::t - (let ((__tmp103096 (list))) + (let ((__tmp103100 (list))) (declare (not safe)) (make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp103096 + __tmp103100 '() '() '#f))) @@ -583,8 +583,8 @@ (declare (not safe)) (make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _$args102867_ - (apply make-instance gxc#::identity-expression::t _$args102867_))) + (lambda _$args102871_ + (apply make-instance gxc#::identity-expression::t _$args102871_))) (define gxc#::identity-expression-bind-methods! (make-promise (lambda () @@ -715,12 +715,12 @@ '%#struct-unchecked-set! gxc#identity-method))))) (define gxc#::identity-special-form::t - (let ((__tmp103097 (list))) + (let ((__tmp103101 (list))) (declare (not safe)) (make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp103097 + __tmp103101 '() '() '#f))) @@ -729,8 +729,8 @@ (declare (not safe)) (make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _$args102863_ - (apply make-instance gxc#::identity-special-form::t _$args102863_))) + (lambda _$args102867_ + (apply make-instance gxc#::identity-special-form::t _$args102867_))) (define gxc#::identity-special-form-bind-methods! (make-promise (lambda () @@ -807,34 +807,34 @@ '%#declare gxc#identity-method))))) (define gxc#::identity::t - (let ((__tmp103098 + (let ((__tmp103102 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (make-class-type 'gxc#::identity::t '::identity - __tmp103098 + __tmp103102 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _$args102859_ - (apply make-instance gxc#::identity::t _$args102859_))) + (lambda _$args102863_ + (apply make-instance gxc#::identity::t _$args102863_))) (define gxc#::identity-bind-methods! (make-promise (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (define gxc#::basic-xform-expression::t - (let ((__tmp103099 (list))) + (let ((__tmp103103 (list))) (declare (not safe)) (make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp103099 + __tmp103103 '() '() '#f))) @@ -843,8 +843,8 @@ (declare (not safe)) (make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _$args102855_ - (apply make-instance gxc#::basic-xform-expression::t _$args102855_))) + (lambda _$args102859_ + (apply make-instance gxc#::basic-xform-expression::t _$args102859_))) (define gxc#::basic-xform-expression-bind-methods! (make-promise (lambda () @@ -975,13 +975,13 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (define gxc#::basic-xform::t - (let ((__tmp103100 + (let ((__tmp103104 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp103100 + __tmp103104 '() '() '#f))) @@ -990,8 +990,8 @@ (declare (not safe)) (make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _$args102851_ - (apply make-instance gxc#::basic-xform::t _$args102851_))) + (lambda _$args102855_ + (apply make-instance gxc#::basic-xform::t _$args102855_))) (define gxc#::basic-xform-bind-methods! (make-promise (lambda () @@ -1022,2380 +1022,2380 @@ '%#define-syntax gxc#xform-define-syntax%))))) (define gxc#apply-begin% - (lambda (_self102807_ _stx102808_) - (let* ((_g102810102820_ - (lambda (_g102811102817_) + (lambda (_self102811_ _stx102812_) + (let* ((_g102814102824_ + (lambda (_g102815102821_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102811102817_)))) - (_g102809102847_ - (lambda (_g102811102823_) + _g102815102821_)))) + (_g102813102851_ + (lambda (_g102815102827_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102811102823_)) - (let ((_e102815102825_ + (gx#stx-pair? _g102815102827_)) + (let ((_e102819102829_ (let () (declare (not safe)) - (gx#stx-e _g102811102823_)))) - (let ((_hd102814102828_ + (gx#stx-e _g102815102827_)))) + (let ((_hd102818102832_ (let () (declare (not safe)) - (##car _e102815102825_))) - (_tl102813102830_ + (##car _e102819102829_))) + (_tl102817102834_ (let () (declare (not safe)) - (##cdr _e102815102825_)))) - ((lambda (_L102833_) + (##cdr _e102819102829_)))) + ((lambda (_L102837_) (for-each - (lambda (_g102842102844_) + (lambda (_g102846102848_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102807_ - _g102842102844_))) + _self102811_ + _g102846102848_))) (let () (declare (not safe)) - (gx#stx-e _L102833_)))) - _tl102813102830_))) + (gx#stx-e _L102837_)))) + _tl102817102834_))) (let () (declare (not safe)) - (_g102810102820_ _g102811102823_)))))) + (_g102814102824_ _g102815102827_)))))) (declare (not safe)) - (_g102809102847_ _stx102808_)))) + (_g102813102851_ _stx102812_)))) (define gxc#apply-last-begin% - (lambda (_self102768_ _stx102769_) - (let* ((_g102771102781_ - (lambda (_g102772102778_) + (lambda (_self102772_ _stx102773_) + (let* ((_g102775102785_ + (lambda (_g102776102782_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102772102778_)))) - (_g102770102804_ - (lambda (_g102772102784_) + _g102776102782_)))) + (_g102774102808_ + (lambda (_g102776102788_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102772102784_)) - (let ((_e102776102786_ + (gx#stx-pair? _g102776102788_)) + (let ((_e102780102790_ (let () (declare (not safe)) - (gx#stx-e _g102772102784_)))) - (let ((_hd102775102789_ + (gx#stx-e _g102776102788_)))) + (let ((_hd102779102793_ (let () (declare (not safe)) - (##car _e102776102786_))) - (_tl102774102791_ + (##car _e102780102790_))) + (_tl102778102795_ (let () (declare (not safe)) - (##cdr _e102776102786_)))) - ((lambda (_L102794_) - (let ((__tmp103101 (last _L102794_))) + (##cdr _e102780102790_)))) + ((lambda (_L102798_) + (let ((__tmp103105 (last _L102798_))) (declare (not safe)) - (gxc#compile-e__1 _self102768_ __tmp103101))) - _tl102774102791_))) + (gxc#compile-e__1 _self102772_ __tmp103105))) + _tl102778102795_))) (let () (declare (not safe)) - (_g102771102781_ _g102772102784_)))))) + (_g102775102785_ _g102776102788_)))))) (declare (not safe)) - (_g102770102804_ _stx102769_)))) + (_g102774102808_ _stx102773_)))) (define gxc#apply-begin-syntax% - (lambda (_self102764_ _stx102765_) - (let ((__tmp103104 + (lambda (_self102768_ _stx102769_) + (let ((__tmp103108 (lambda () (let () (declare (not safe)) - (gxc#apply-begin% _self102764_ _stx102765_)))) - (__tmp103102 - (let ((__tmp103103 (gx#current-expander-phi))) + (gxc#apply-begin% _self102768_ _stx102769_)))) + (__tmp103106 + (let ((__tmp103107 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp103103 '1)))) + (fx+ __tmp103107 '1)))) (declare (not safe)) (call-with-parameters - __tmp103104 + __tmp103108 gx#current-expander-phi - __tmp103102)))) + __tmp103106)))) (define gxc#apply-module% - (lambda (_self102703_ _stx102704_) - (let* ((_g102706102720_ - (lambda (_g102707102717_) + (lambda (_self102707_ _stx102708_) + (let* ((_g102710102724_ + (lambda (_g102711102721_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102707102717_)))) - (_g102705102761_ - (lambda (_g102707102723_) + _g102711102721_)))) + (_g102709102765_ + (lambda (_g102711102727_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102707102723_)) - (let ((_e102712102725_ + (gx#stx-pair? _g102711102727_)) + (let ((_e102716102729_ (let () (declare (not safe)) - (gx#stx-e _g102707102723_)))) - (let ((_hd102711102728_ + (gx#stx-e _g102711102727_)))) + (let ((_hd102715102732_ (let () (declare (not safe)) - (##car _e102712102725_))) - (_tl102710102730_ + (##car _e102716102729_))) + (_tl102714102734_ (let () (declare (not safe)) - (##cdr _e102712102725_)))) + (##cdr _e102716102729_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102710102730_)) - (let ((_e102715102733_ + (gx#stx-pair? _tl102714102734_)) + (let ((_e102719102737_ (let () (declare (not safe)) - (gx#stx-e _tl102710102730_)))) - (let ((_hd102714102736_ + (gx#stx-e _tl102714102734_)))) + (let ((_hd102718102740_ (let () (declare (not safe)) - (##car _e102715102733_))) - (_tl102713102738_ + (##car _e102719102737_))) + (_tl102717102742_ (let () (declare (not safe)) - (##cdr _e102715102733_)))) - ((lambda (_L102741_ _L102742_) - (let* ((_ctx102755_ + (##cdr _e102719102737_)))) + ((lambda (_L102745_ _L102746_) + (let* ((_ctx102759_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L102742_))) - (_ctx-stx102757_ + _L102746_))) + (_ctx-stx102761_ (##structure-ref - _ctx102755_ + _ctx102759_ '11 gx#module-context::t '#f))) - (let ((__tmp103105 + (let ((__tmp103109 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self102703_ - _ctx-stx102757_))))) + _self102707_ + _ctx-stx102761_))))) (declare (not safe)) (call-with-parameters - __tmp103105 + __tmp103109 gx#current-expander-context - _ctx102755_)))) - _tl102713102738_ - _hd102714102736_))) + _ctx102759_)))) + _tl102717102742_ + _hd102718102740_))) (let () (declare (not safe)) - (_g102706102720_ _g102707102723_))))) + (_g102710102724_ _g102711102727_))))) (let () (declare (not safe)) - (_g102706102720_ _g102707102723_)))))) + (_g102710102724_ _g102711102727_)))))) (declare (not safe)) - (_g102705102761_ _stx102704_)))) + (_g102709102765_ _stx102708_)))) (define gxc#apply-begin-annotation% - (lambda (_self102635_ _stx102636_) - (let* ((_g102638102655_ - (lambda (_g102639102652_) + (lambda (_self102639_ _stx102640_) + (let* ((_g102642102659_ + (lambda (_g102643102656_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102639102652_)))) - (_g102637102700_ - (lambda (_g102639102658_) + _g102643102656_)))) + (_g102641102704_ + (lambda (_g102643102662_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102639102658_)) - (let ((_e102644102660_ + (gx#stx-pair? _g102643102662_)) + (let ((_e102648102664_ (let () (declare (not safe)) - (gx#stx-e _g102639102658_)))) - (let ((_hd102643102663_ + (gx#stx-e _g102643102662_)))) + (let ((_hd102647102667_ (let () (declare (not safe)) - (##car _e102644102660_))) - (_tl102642102665_ + (##car _e102648102664_))) + (_tl102646102669_ (let () (declare (not safe)) - (##cdr _e102644102660_)))) + (##cdr _e102648102664_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102642102665_)) - (let ((_e102647102668_ + (gx#stx-pair? _tl102646102669_)) + (let ((_e102651102672_ (let () (declare (not safe)) - (gx#stx-e _tl102642102665_)))) - (let ((_hd102646102671_ + (gx#stx-e _tl102646102669_)))) + (let ((_hd102650102675_ (let () (declare (not safe)) - (##car _e102647102668_))) - (_tl102645102673_ + (##car _e102651102672_))) + (_tl102649102677_ (let () (declare (not safe)) - (##cdr _e102647102668_)))) + (##cdr _e102651102672_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102645102673_)) - (let ((_e102650102676_ + (gx#stx-pair? _tl102649102677_)) + (let ((_e102654102680_ (let () (declare (not safe)) - (gx#stx-e _tl102645102673_)))) - (let ((_hd102649102679_ + (gx#stx-e _tl102649102677_)))) + (let ((_hd102653102683_ (let () (declare (not safe)) - (##car _e102650102676_))) - (_tl102648102681_ + (##car _e102654102680_))) + (_tl102652102685_ (let () (declare (not safe)) - (##cdr _e102650102676_)))) + (##cdr _e102654102680_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102648102681_)) - ((lambda (_L102684_ _L102685_) + _tl102652102685_)) + ((lambda (_L102688_ _L102689_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102635_ - _L102684_))) - _hd102649102679_ - _hd102646102671_) + _self102639_ + _L102688_))) + _hd102653102683_ + _hd102650102675_) (let () (declare (not safe)) - (_g102638102655_ - _g102639102658_))))) + (_g102642102659_ + _g102643102662_))))) (let () (declare (not safe)) - (_g102638102655_ _g102639102658_))))) + (_g102642102659_ _g102643102662_))))) (let () (declare (not safe)) - (_g102638102655_ _g102639102658_))))) + (_g102642102659_ _g102643102662_))))) (let () (declare (not safe)) - (_g102638102655_ _g102639102658_)))))) + (_g102642102659_ _g102643102662_)))))) (declare (not safe)) - (_g102637102700_ _stx102636_)))) + (_g102641102704_ _stx102640_)))) (define gxc#apply-define-values% - (lambda (_self102567_ _stx102568_) - (let* ((_g102570102587_ - (lambda (_g102571102584_) + (lambda (_self102571_ _stx102572_) + (let* ((_g102574102591_ + (lambda (_g102575102588_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102571102584_)))) - (_g102569102632_ - (lambda (_g102571102590_) + _g102575102588_)))) + (_g102573102636_ + (lambda (_g102575102594_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102571102590_)) - (let ((_e102576102592_ + (gx#stx-pair? _g102575102594_)) + (let ((_e102580102596_ (let () (declare (not safe)) - (gx#stx-e _g102571102590_)))) - (let ((_hd102575102595_ + (gx#stx-e _g102575102594_)))) + (let ((_hd102579102599_ (let () (declare (not safe)) - (##car _e102576102592_))) - (_tl102574102597_ + (##car _e102580102596_))) + (_tl102578102601_ (let () (declare (not safe)) - (##cdr _e102576102592_)))) + (##cdr _e102580102596_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102574102597_)) - (let ((_e102579102600_ + (gx#stx-pair? _tl102578102601_)) + (let ((_e102583102604_ (let () (declare (not safe)) - (gx#stx-e _tl102574102597_)))) - (let ((_hd102578102603_ + (gx#stx-e _tl102578102601_)))) + (let ((_hd102582102607_ (let () (declare (not safe)) - (##car _e102579102600_))) - (_tl102577102605_ + (##car _e102583102604_))) + (_tl102581102609_ (let () (declare (not safe)) - (##cdr _e102579102600_)))) + (##cdr _e102583102604_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102577102605_)) - (let ((_e102582102608_ + (gx#stx-pair? _tl102581102609_)) + (let ((_e102586102612_ (let () (declare (not safe)) - (gx#stx-e _tl102577102605_)))) - (let ((_hd102581102611_ + (gx#stx-e _tl102581102609_)))) + (let ((_hd102585102615_ (let () (declare (not safe)) - (##car _e102582102608_))) - (_tl102580102613_ + (##car _e102586102612_))) + (_tl102584102617_ (let () (declare (not safe)) - (##cdr _e102582102608_)))) + (##cdr _e102586102612_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102580102613_)) - ((lambda (_L102616_ _L102617_) + _tl102584102617_)) + ((lambda (_L102620_ _L102621_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102567_ - _L102616_))) - _hd102581102611_ - _hd102578102603_) + _self102571_ + _L102620_))) + _hd102585102615_ + _hd102582102607_) (let () (declare (not safe)) - (_g102570102587_ - _g102571102590_))))) + (_g102574102591_ + _g102575102594_))))) (let () (declare (not safe)) - (_g102570102587_ _g102571102590_))))) + (_g102574102591_ _g102575102594_))))) (let () (declare (not safe)) - (_g102570102587_ _g102571102590_))))) + (_g102574102591_ _g102575102594_))))) (let () (declare (not safe)) - (_g102570102587_ _g102571102590_)))))) + (_g102574102591_ _g102575102594_)))))) (declare (not safe)) - (_g102569102632_ _stx102568_)))) + (_g102573102636_ _stx102572_)))) (define gxc#apply-define-syntax% - (lambda (_self102498_ _stx102499_) - (let* ((_g102501102518_ - (lambda (_g102502102515_) + (lambda (_self102502_ _stx102503_) + (let* ((_g102505102522_ + (lambda (_g102506102519_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102502102515_)))) - (_g102500102564_ - (lambda (_g102502102521_) + _g102506102519_)))) + (_g102504102568_ + (lambda (_g102506102525_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102502102521_)) - (let ((_e102507102523_ + (gx#stx-pair? _g102506102525_)) + (let ((_e102511102527_ (let () (declare (not safe)) - (gx#stx-e _g102502102521_)))) - (let ((_hd102506102526_ + (gx#stx-e _g102506102525_)))) + (let ((_hd102510102530_ (let () (declare (not safe)) - (##car _e102507102523_))) - (_tl102505102528_ + (##car _e102511102527_))) + (_tl102509102532_ (let () (declare (not safe)) - (##cdr _e102507102523_)))) + (##cdr _e102511102527_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102505102528_)) - (let ((_e102510102531_ + (gx#stx-pair? _tl102509102532_)) + (let ((_e102514102535_ (let () (declare (not safe)) - (gx#stx-e _tl102505102528_)))) - (let ((_hd102509102534_ + (gx#stx-e _tl102509102532_)))) + (let ((_hd102513102538_ (let () (declare (not safe)) - (##car _e102510102531_))) - (_tl102508102536_ + (##car _e102514102535_))) + (_tl102512102540_ (let () (declare (not safe)) - (##cdr _e102510102531_)))) + (##cdr _e102514102535_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102508102536_)) - (let ((_e102513102539_ + (gx#stx-pair? _tl102512102540_)) + (let ((_e102517102543_ (let () (declare (not safe)) - (gx#stx-e _tl102508102536_)))) - (let ((_hd102512102542_ + (gx#stx-e _tl102512102540_)))) + (let ((_hd102516102546_ (let () (declare (not safe)) - (##car _e102513102539_))) - (_tl102511102544_ + (##car _e102517102543_))) + (_tl102515102548_ (let () (declare (not safe)) - (##cdr _e102513102539_)))) + (##cdr _e102517102543_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102511102544_)) - ((lambda (_L102547_ _L102548_) - (let ((__tmp103108 + _tl102515102548_)) + ((lambda (_L102551_ _L102552_) + (let ((__tmp103112 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self102498_ - _L102547_)))) - (__tmp103106 - (let ((__tmp103107 + _self102502_ + _L102551_)))) + (__tmp103110 + (let ((__tmp103111 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp103107 + (fx+ __tmp103111 '1)))) (declare (not safe)) (call-with-parameters - __tmp103108 + __tmp103112 gx#current-expander-phi - __tmp103106))) - _hd102512102542_ - _hd102509102534_) + __tmp103110))) + _hd102516102546_ + _hd102513102538_) (let () (declare (not safe)) - (_g102501102518_ - _g102502102521_))))) + (_g102505102522_ + _g102506102525_))))) (let () (declare (not safe)) - (_g102501102518_ _g102502102521_))))) + (_g102505102522_ _g102506102525_))))) (let () (declare (not safe)) - (_g102501102518_ _g102502102521_))))) + (_g102505102522_ _g102506102525_))))) (let () (declare (not safe)) - (_g102501102518_ _g102502102521_)))))) + (_g102505102522_ _g102506102525_)))))) (declare (not safe)) - (_g102500102564_ _stx102499_)))) + (_g102504102568_ _stx102503_)))) (define gxc#apply-body-lambda% - (lambda (_self102430_ _stx102431_) - (let* ((_g102433102450_ - (lambda (_g102434102447_) + (lambda (_self102434_ _stx102435_) + (let* ((_g102437102454_ + (lambda (_g102438102451_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102434102447_)))) - (_g102432102495_ - (lambda (_g102434102453_) + _g102438102451_)))) + (_g102436102499_ + (lambda (_g102438102457_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102434102453_)) - (let ((_e102439102455_ + (gx#stx-pair? _g102438102457_)) + (let ((_e102443102459_ (let () (declare (not safe)) - (gx#stx-e _g102434102453_)))) - (let ((_hd102438102458_ + (gx#stx-e _g102438102457_)))) + (let ((_hd102442102462_ (let () (declare (not safe)) - (##car _e102439102455_))) - (_tl102437102460_ + (##car _e102443102459_))) + (_tl102441102464_ (let () (declare (not safe)) - (##cdr _e102439102455_)))) + (##cdr _e102443102459_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102437102460_)) - (let ((_e102442102463_ + (gx#stx-pair? _tl102441102464_)) + (let ((_e102446102467_ (let () (declare (not safe)) - (gx#stx-e _tl102437102460_)))) - (let ((_hd102441102466_ + (gx#stx-e _tl102441102464_)))) + (let ((_hd102445102470_ (let () (declare (not safe)) - (##car _e102442102463_))) - (_tl102440102468_ + (##car _e102446102467_))) + (_tl102444102472_ (let () (declare (not safe)) - (##cdr _e102442102463_)))) + (##cdr _e102446102467_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102440102468_)) - (let ((_e102445102471_ + (gx#stx-pair? _tl102444102472_)) + (let ((_e102449102475_ (let () (declare (not safe)) - (gx#stx-e _tl102440102468_)))) - (let ((_hd102444102474_ + (gx#stx-e _tl102444102472_)))) + (let ((_hd102448102478_ (let () (declare (not safe)) - (##car _e102445102471_))) - (_tl102443102476_ + (##car _e102449102475_))) + (_tl102447102480_ (let () (declare (not safe)) - (##cdr _e102445102471_)))) + (##cdr _e102449102475_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102443102476_)) - ((lambda (_L102479_ _L102480_) + _tl102447102480_)) + ((lambda (_L102483_ _L102484_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102430_ - _L102479_))) - _hd102444102474_ - _hd102441102466_) + _self102434_ + _L102483_))) + _hd102448102478_ + _hd102445102470_) (let () (declare (not safe)) - (_g102433102450_ - _g102434102453_))))) + (_g102437102454_ + _g102438102457_))))) (let () (declare (not safe)) - (_g102433102450_ _g102434102453_))))) + (_g102437102454_ _g102438102457_))))) (let () (declare (not safe)) - (_g102433102450_ _g102434102453_))))) + (_g102437102454_ _g102438102457_))))) (let () (declare (not safe)) - (_g102433102450_ _g102434102453_)))))) + (_g102437102454_ _g102438102457_)))))) (declare (not safe)) - (_g102432102495_ _stx102431_)))) + (_g102436102499_ _stx102435_)))) (define gxc#apply-body-case-lambda% - (lambda (_self102312_ _stx102313_) - (let* ((_g102315102343_ - (lambda (_g102316102340_) + (lambda (_self102316_ _stx102317_) + (let* ((_g102319102347_ + (lambda (_g102320102344_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102316102340_)))) - (_g102314102427_ - (lambda (_g102316102346_) + _g102320102344_)))) + (_g102318102431_ + (lambda (_g102320102350_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102316102346_)) - (let ((_e102321102348_ + (gx#stx-pair? _g102320102350_)) + (let ((_e102325102352_ (let () (declare (not safe)) - (gx#stx-e _g102316102346_)))) - (let ((_hd102320102351_ + (gx#stx-e _g102320102350_)))) + (let ((_hd102324102355_ (let () (declare (not safe)) - (##car _e102321102348_))) - (_tl102319102353_ + (##car _e102325102352_))) + (_tl102323102357_ (let () (declare (not safe)) - (##cdr _e102321102348_)))) + (##cdr _e102325102352_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl102319102353_)) - (let ((_g103109_ + (gx#stx-pair/null? _tl102323102357_)) + (let ((_g103113_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl102319102353_ + _tl102323102357_ '0)))) (begin - (let ((_g103110_ + (let ((_g103114_ (let () (declare (not safe)) - (if (##values? _g103109_) - (##vector-length _g103109_) + (if (##values? _g103113_) + (##vector-length _g103113_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103110_ 2))) + (##fx= _g103114_ 2))) (error "Context expects 2 values" - _g103110_))) - (let ((_target102322102356_ + _g103114_))) + (let ((_target102326102360_ (let () (declare (not safe)) - (##vector-ref _g103109_ 0))) - (_tl102324102358_ + (##vector-ref _g103113_ 0))) + (_tl102328102362_ (let () (declare (not safe)) - (##vector-ref _g103109_ 1)))) + (##vector-ref _g103113_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102324102358_)) - (letrec ((_loop102325102361_ - (lambda (_hd102323102364_ - _body102329102366_ - _hd102330102368_) + (gx#stx-null? _tl102328102362_)) + (letrec ((_loop102329102365_ + (lambda (_hd102327102368_ + _body102333102370_ + _hd102334102372_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd102323102364_)) - (let ((_e102326102371_ + _hd102327102368_)) + (let ((_e102330102375_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd102323102364_)))) - (let ((_lp-hd102327102374_ - (let () (declare (not safe)) (##car _e102326102371_))) - (_lp-tl102328102376_ + (gx#stx-e _hd102327102368_)))) + (let ((_lp-hd102331102378_ + (let () (declare (not safe)) (##car _e102330102375_))) + (_lp-tl102332102380_ (let () (declare (not safe)) - (##cdr _e102326102371_)))) + (##cdr _e102330102375_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd102327102374_)) - (let ((_e102335102379_ + (gx#stx-pair? _lp-hd102331102378_)) + (let ((_e102339102383_ (let () (declare (not safe)) - (gx#stx-e _lp-hd102327102374_)))) - (let ((_hd102334102382_ + (gx#stx-e _lp-hd102331102378_)))) + (let ((_hd102338102386_ (let () (declare (not safe)) - (##car _e102335102379_))) - (_tl102333102384_ + (##car _e102339102383_))) + (_tl102337102388_ (let () (declare (not safe)) - (##cdr _e102335102379_)))) + (##cdr _e102339102383_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102333102384_)) - (let ((_e102338102387_ + (gx#stx-pair? _tl102337102388_)) + (let ((_e102342102391_ (let () (declare (not safe)) - (gx#stx-e _tl102333102384_)))) - (let ((_hd102337102390_ + (gx#stx-e _tl102337102388_)))) + (let ((_hd102341102394_ (let () (declare (not safe)) - (##car _e102338102387_))) - (_tl102336102392_ + (##car _e102342102391_))) + (_tl102340102396_ (let () (declare (not safe)) - (##cdr _e102338102387_)))) + (##cdr _e102342102391_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102336102392_)) - (let ((__tmp103113 + (gx#stx-null? _tl102340102396_)) + (let ((__tmp103117 (let () (declare (not safe)) - (cons _hd102337102390_ - _body102329102366_))) - (__tmp103112 + (cons _hd102341102394_ + _body102333102370_))) + (__tmp103116 (let () (declare (not safe)) - (cons _hd102334102382_ - _hd102330102368_)))) + (cons _hd102338102386_ + _hd102334102372_)))) (declare (not safe)) - (_loop102325102361_ - _lp-tl102328102376_ - __tmp103113 - __tmp103112)) + (_loop102329102365_ + _lp-tl102332102380_ + __tmp103117 + __tmp103116)) (let () (declare (not safe)) - (_g102315102343_ _g102316102346_))))) + (_g102319102347_ _g102320102350_))))) (let () (declare (not safe)) - (_g102315102343_ _g102316102346_))))) + (_g102319102347_ _g102320102350_))))) (let () (declare (not safe)) - (_g102315102343_ _g102316102346_))))) - (let ((_body102331102395_ (reverse _body102329102366_)) - (_hd102332102397_ (reverse _hd102330102368_))) - ((lambda (_L102400_ _L102401_) + (_g102319102347_ _g102320102350_))))) + (let ((_body102335102399_ (reverse _body102333102370_)) + (_hd102336102401_ (reverse _hd102334102372_))) + ((lambda (_L102404_ _L102405_) (for-each - (lambda (_g102415102417_) + (lambda (_g102419102421_) (let () (declare (not safe)) - (gxc#compile-e__1 _self102312_ _g102415102417_))) - (let ((__tmp103111 - (lambda (_g102419102422_ _g102420102424_) + (gxc#compile-e__1 _self102316_ _g102419102421_))) + (let ((__tmp103115 + (lambda (_g102423102426_ _g102424102428_) (let () (declare (not safe)) - (cons _g102419102422_ _g102420102424_))))) + (cons _g102423102426_ _g102424102428_))))) (declare (not safe)) - (foldr1 __tmp103111 '() _L102400_)))) - _body102331102395_ - _hd102332102397_)))))) + (foldr1 __tmp103115 '() _L102404_)))) + _body102335102399_ + _hd102336102401_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop102325102361_ - _target102322102356_ + (_loop102329102365_ + _target102326102360_ '() '()))) (let () (declare (not safe)) - (_g102315102343_ - _g102316102346_)))))) + (_g102319102347_ + _g102320102350_)))))) (let () (declare (not safe)) - (_g102315102343_ _g102316102346_))))) + (_g102319102347_ _g102320102350_))))) (let () (declare (not safe)) - (_g102315102343_ _g102316102346_)))))) + (_g102319102347_ _g102320102350_)))))) (declare (not safe)) - (_g102314102427_ _stx102313_)))) + (_g102318102431_ _stx102317_)))) (define gxc#apply-body-let-values% - (lambda (_self102165_ _stx102166_) - (let* ((_g102168102203_ - (lambda (_g102169102200_) + (lambda (_self102169_ _stx102170_) + (let* ((_g102172102207_ + (lambda (_g102173102204_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102169102200_)))) - (_g102167102309_ - (lambda (_g102169102206_) + _g102173102204_)))) + (_g102171102313_ + (lambda (_g102173102210_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102169102206_)) - (let ((_e102175102208_ + (gx#stx-pair? _g102173102210_)) + (let ((_e102179102212_ (let () (declare (not safe)) - (gx#stx-e _g102169102206_)))) - (let ((_hd102174102211_ + (gx#stx-e _g102173102210_)))) + (let ((_hd102178102215_ (let () (declare (not safe)) - (##car _e102175102208_))) - (_tl102173102213_ + (##car _e102179102212_))) + (_tl102177102217_ (let () (declare (not safe)) - (##cdr _e102175102208_)))) + (##cdr _e102179102212_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102173102213_)) - (let ((_e102178102216_ + (gx#stx-pair? _tl102177102217_)) + (let ((_e102182102220_ (let () (declare (not safe)) - (gx#stx-e _tl102173102213_)))) - (let ((_hd102177102219_ + (gx#stx-e _tl102177102217_)))) + (let ((_hd102181102223_ (let () (declare (not safe)) - (##car _e102178102216_))) - (_tl102176102221_ + (##car _e102182102220_))) + (_tl102180102225_ (let () (declare (not safe)) - (##cdr _e102178102216_)))) + (##cdr _e102182102220_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd102177102219_)) - (let ((_g103114_ + (gx#stx-pair/null? _hd102181102223_)) + (let ((_g103118_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd102177102219_ + _hd102181102223_ '0)))) (begin - (let ((_g103115_ + (let ((_g103119_ (let () (declare (not safe)) - (if (##values? _g103114_) + (if (##values? _g103118_) (##vector-length - _g103114_) + _g103118_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103115_ 2))) + (##fx= _g103119_ 2))) (error "Context expects 2 values" - _g103115_))) - (let ((_target102179102224_ + _g103119_))) + (let ((_target102183102228_ (let () (declare (not safe)) - (##vector-ref _g103114_ 0))) - (_tl102181102226_ + (##vector-ref _g103118_ 0))) + (_tl102185102230_ (let () (declare (not safe)) (##vector-ref - _g103114_ + _g103118_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102181102226_)) - (letrec ((_loop102182102229_ - (lambda (_hd102180102232_ + _tl102185102230_)) + (letrec ((_loop102186102233_ + (lambda (_hd102184102236_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr102186102234_ - _hd102187102236_) + _expr102190102238_ + _hd102191102240_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd102180102232_)) - (let ((_e102183102239_ + (gx#stx-pair? _hd102184102236_)) + (let ((_e102187102243_ (let () (declare (not safe)) - (gx#stx-e _hd102180102232_)))) - (let ((_lp-hd102184102242_ + (gx#stx-e _hd102184102236_)))) + (let ((_lp-hd102188102246_ (let () (declare (not safe)) - (##car _e102183102239_))) - (_lp-tl102185102244_ + (##car _e102187102243_))) + (_lp-tl102189102248_ (let () (declare (not safe)) - (##cdr _e102183102239_)))) + (##cdr _e102187102243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd102184102242_)) - (let ((_e102192102247_ + (gx#stx-pair? _lp-hd102188102246_)) + (let ((_e102196102251_ (let () (declare (not safe)) - (gx#stx-e _lp-hd102184102242_)))) - (let ((_hd102191102250_ + (gx#stx-e _lp-hd102188102246_)))) + (let ((_hd102195102254_ (let () (declare (not safe)) - (##car _e102192102247_))) - (_tl102190102252_ + (##car _e102196102251_))) + (_tl102194102256_ (let () (declare (not safe)) - (##cdr _e102192102247_)))) + (##cdr _e102196102251_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102190102252_)) - (let ((_e102195102255_ + (gx#stx-pair? _tl102194102256_)) + (let ((_e102199102259_ (let () (declare (not safe)) - (gx#stx-e _tl102190102252_)))) - (let ((_hd102194102258_ + (gx#stx-e _tl102194102256_)))) + (let ((_hd102198102262_ (let () (declare (not safe)) - (##car _e102195102255_))) - (_tl102193102260_ + (##car _e102199102259_))) + (_tl102197102264_ (let () (declare (not safe)) - (##cdr _e102195102255_)))) + (##cdr _e102199102259_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102193102260_)) - (let ((__tmp103119 + _tl102197102264_)) + (let ((__tmp103123 (let () (declare (not safe)) - (cons _hd102194102258_ - _expr102186102234_))) - (__tmp103118 + (cons _hd102198102262_ + _expr102190102238_))) + (__tmp103122 (let () (declare (not safe)) - (cons _hd102191102250_ - _hd102187102236_)))) + (cons _hd102195102254_ + _hd102191102240_)))) (declare (not safe)) - (_loop102182102229_ - _lp-tl102185102244_ - __tmp103119 - __tmp103118)) + (_loop102186102233_ + _lp-tl102189102248_ + __tmp103123 + __tmp103122)) (let () (declare (not safe)) - (_g102168102203_ - _g102169102206_))))) + (_g102172102207_ + _g102173102210_))))) (let () (declare (not safe)) - (_g102168102203_ _g102169102206_))))) + (_g102172102207_ _g102173102210_))))) (let () (declare (not safe)) - (_g102168102203_ _g102169102206_))))) - (let ((_expr102188102263_ (reverse _expr102186102234_)) - (_hd102189102265_ (reverse _hd102187102236_))) + (_g102172102207_ _g102173102210_))))) + (let ((_expr102192102267_ (reverse _expr102190102238_)) + (_hd102193102269_ (reverse _hd102191102240_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102176102221_)) - (let ((_e102198102268_ + (gx#stx-pair? _tl102180102225_)) + (let ((_e102202102272_ (let () (declare (not safe)) - (gx#stx-e _tl102176102221_)))) - (let ((_hd102197102271_ + (gx#stx-e _tl102180102225_)))) + (let ((_hd102201102275_ (let () (declare (not safe)) - (##car _e102198102268_))) - (_tl102196102273_ + (##car _e102202102272_))) + (_tl102200102277_ (let () (declare (not safe)) - (##cdr _e102198102268_)))) + (##cdr _e102202102272_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102196102273_)) - ((lambda (_L102276_ _L102277_ _L102278_) + (gx#stx-null? _tl102200102277_)) + ((lambda (_L102280_ _L102281_ _L102282_) (for-each - (lambda (_g102297102299_) + (lambda (_g102301102303_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102165_ - _g102297102299_))) - (let ((__tmp103117 - (lambda (_g102301102304_ - _g102302102306_) + _self102169_ + _g102301102303_))) + (let ((__tmp103121 + (lambda (_g102305102308_ + _g102306102310_) (let () (declare (not safe)) - (cons _g102301102304_ - _g102302102306_)))) - (__tmp103116 + (cons _g102305102308_ + _g102306102310_)))) + (__tmp103120 (let () (declare (not safe)) - (cons _L102276_ '())))) + (cons _L102280_ '())))) (declare (not safe)) - (foldr1 __tmp103117 - __tmp103116 - _L102277_)))) - _hd102197102271_ - _expr102188102263_ - _hd102189102265_) + (foldr1 __tmp103121 + __tmp103120 + _L102281_)))) + _hd102201102275_ + _expr102192102267_ + _hd102193102269_) (let () (declare (not safe)) - (_g102168102203_ _g102169102206_))))) + (_g102172102207_ _g102173102210_))))) (let () (declare (not safe)) - (_g102168102203_ _g102169102206_)))))))) + (_g102172102207_ _g102173102210_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop102182102229_ - _target102179102224_ + (_loop102186102233_ + _target102183102228_ '() '()))) (let () (declare (not safe)) - (_g102168102203_ - _g102169102206_)))))) + (_g102172102207_ + _g102173102210_)))))) (let () (declare (not safe)) - (_g102168102203_ _g102169102206_))))) + (_g102172102207_ _g102173102210_))))) (let () (declare (not safe)) - (_g102168102203_ _g102169102206_))))) + (_g102172102207_ _g102173102210_))))) (let () (declare (not safe)) - (_g102168102203_ _g102169102206_)))))) + (_g102172102207_ _g102173102210_)))))) (declare (not safe)) - (_g102167102309_ _stx102166_)))) + (_g102171102313_ _stx102170_)))) (define gxc#apply-body-last-let-values% - (lambda (_self102110_ _stx102111_) - (let* ((_g102113102127_ - (lambda (_g102114102124_) + (lambda (_self102114_ _stx102115_) + (let* ((_g102117102131_ + (lambda (_g102118102128_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102114102124_)))) - (_g102112102162_ - (lambda (_g102114102130_) + _g102118102128_)))) + (_g102116102166_ + (lambda (_g102118102134_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102114102130_)) - (let ((_e102119102132_ + (gx#stx-pair? _g102118102134_)) + (let ((_e102123102136_ (let () (declare (not safe)) - (gx#stx-e _g102114102130_)))) - (let ((_hd102118102135_ + (gx#stx-e _g102118102134_)))) + (let ((_hd102122102139_ (let () (declare (not safe)) - (##car _e102119102132_))) - (_tl102117102137_ + (##car _e102123102136_))) + (_tl102121102141_ (let () (declare (not safe)) - (##cdr _e102119102132_)))) + (##cdr _e102123102136_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102117102137_)) - (let ((_e102122102140_ + (gx#stx-pair? _tl102121102141_)) + (let ((_e102126102144_ (let () (declare (not safe)) - (gx#stx-e _tl102117102137_)))) - (let ((_hd102121102143_ + (gx#stx-e _tl102121102141_)))) + (let ((_hd102125102147_ (let () (declare (not safe)) - (##car _e102122102140_))) - (_tl102120102145_ + (##car _e102126102144_))) + (_tl102124102149_ (let () (declare (not safe)) - (##cdr _e102122102140_)))) - ((lambda (_L102148_ _L102149_) - (let ((__tmp103120 (last _L102148_))) + (##cdr _e102126102144_)))) + ((lambda (_L102152_ _L102153_) + (let ((__tmp103124 (last _L102152_))) (declare (not safe)) (gxc#compile-e__1 - _self102110_ - __tmp103120))) - _tl102120102145_ - _hd102121102143_))) + _self102114_ + __tmp103124))) + _tl102124102149_ + _hd102125102147_))) (let () (declare (not safe)) - (_g102113102127_ _g102114102130_))))) + (_g102117102131_ _g102118102134_))))) (let () (declare (not safe)) - (_g102113102127_ _g102114102130_)))))) + (_g102117102131_ _g102118102134_)))))) (declare (not safe)) - (_g102112102162_ _stx102111_)))) + (_g102116102166_ _stx102115_)))) (define gxc#apply-body-setq% - (lambda (_self102042_ _stx102043_) - (let* ((_g102045102062_ - (lambda (_g102046102059_) + (lambda (_self102046_ _stx102047_) + (let* ((_g102049102066_ + (lambda (_g102050102063_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102046102059_)))) - (_g102044102107_ - (lambda (_g102046102065_) + _g102050102063_)))) + (_g102048102111_ + (lambda (_g102050102069_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102046102065_)) - (let ((_e102051102067_ + (gx#stx-pair? _g102050102069_)) + (let ((_e102055102071_ (let () (declare (not safe)) - (gx#stx-e _g102046102065_)))) - (let ((_hd102050102070_ + (gx#stx-e _g102050102069_)))) + (let ((_hd102054102074_ (let () (declare (not safe)) - (##car _e102051102067_))) - (_tl102049102072_ + (##car _e102055102071_))) + (_tl102053102076_ (let () (declare (not safe)) - (##cdr _e102051102067_)))) + (##cdr _e102055102071_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102049102072_)) - (let ((_e102054102075_ + (gx#stx-pair? _tl102053102076_)) + (let ((_e102058102079_ (let () (declare (not safe)) - (gx#stx-e _tl102049102072_)))) - (let ((_hd102053102078_ + (gx#stx-e _tl102053102076_)))) + (let ((_hd102057102082_ (let () (declare (not safe)) - (##car _e102054102075_))) - (_tl102052102080_ + (##car _e102058102079_))) + (_tl102056102084_ (let () (declare (not safe)) - (##cdr _e102054102075_)))) + (##cdr _e102058102079_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102052102080_)) - (let ((_e102057102083_ + (gx#stx-pair? _tl102056102084_)) + (let ((_e102061102087_ (let () (declare (not safe)) - (gx#stx-e _tl102052102080_)))) - (let ((_hd102056102086_ + (gx#stx-e _tl102056102084_)))) + (let ((_hd102060102090_ (let () (declare (not safe)) - (##car _e102057102083_))) - (_tl102055102088_ + (##car _e102061102087_))) + (_tl102059102092_ (let () (declare (not safe)) - (##cdr _e102057102083_)))) + (##cdr _e102061102087_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102055102088_)) - ((lambda (_L102091_ _L102092_) + _tl102059102092_)) + ((lambda (_L102095_ _L102096_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102042_ - _L102091_))) - _hd102056102086_ - _hd102053102078_) + _self102046_ + _L102095_))) + _hd102060102090_ + _hd102057102082_) (let () (declare (not safe)) - (_g102045102062_ - _g102046102065_))))) + (_g102049102066_ + _g102050102069_))))) (let () (declare (not safe)) - (_g102045102062_ _g102046102065_))))) + (_g102049102066_ _g102050102069_))))) (let () (declare (not safe)) - (_g102045102062_ _g102046102065_))))) + (_g102049102066_ _g102050102069_))))) (let () (declare (not safe)) - (_g102045102062_ _g102046102065_)))))) + (_g102049102066_ _g102050102069_)))))) (declare (not safe)) - (_g102044102107_ _stx102043_)))) + (_g102048102111_ _stx102047_)))) (define gxc#apply-operands - (lambda (_self101955_ _stx101956_) - (let* ((_g101958101977_ - (lambda (_g101959101974_) + (lambda (_self101959_ _stx101960_) + (let* ((_g101962101981_ + (lambda (_g101963101978_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101959101974_)))) - (_g101957102039_ - (lambda (_g101959101980_) + _g101963101978_)))) + (_g101961102043_ + (lambda (_g101963101984_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101959101980_)) - (let ((_e101963101982_ + (gx#stx-pair? _g101963101984_)) + (let ((_e101967101986_ (let () (declare (not safe)) - (gx#stx-e _g101959101980_)))) - (let ((_hd101962101985_ + (gx#stx-e _g101963101984_)))) + (let ((_hd101966101989_ (let () (declare (not safe)) - (##car _e101963101982_))) - (_tl101961101987_ + (##car _e101967101986_))) + (_tl101965101991_ (let () (declare (not safe)) - (##cdr _e101963101982_)))) + (##cdr _e101967101986_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl101961101987_)) - (let ((_g103121_ + (gx#stx-pair/null? _tl101965101991_)) + (let ((_g103125_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl101961101987_ + _tl101965101991_ '0)))) (begin - (let ((_g103122_ + (let ((_g103126_ (let () (declare (not safe)) - (if (##values? _g103121_) - (##vector-length _g103121_) + (if (##values? _g103125_) + (##vector-length _g103125_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103122_ 2))) + (##fx= _g103126_ 2))) (error "Context expects 2 values" - _g103122_))) - (let ((_target101964101990_ + _g103126_))) + (let ((_target101968101994_ (let () (declare (not safe)) - (##vector-ref _g103121_ 0))) - (_tl101966101992_ + (##vector-ref _g103125_ 0))) + (_tl101970101996_ (let () (declare (not safe)) - (##vector-ref _g103121_ 1)))) + (##vector-ref _g103125_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101966101992_)) - (letrec ((_loop101967101995_ - (lambda (_hd101965101998_ - _rands101971102000_) + (gx#stx-null? _tl101970101996_)) + (letrec ((_loop101971101999_ + (lambda (_hd101969102002_ + _rands101975102004_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd101965101998_)) - (let ((_e101968102003_ + _hd101969102002_)) + (let ((_e101972102007_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd101965101998_)))) - (let ((_lp-hd101969102006_ - (let () (declare (not safe)) (##car _e101968102003_))) - (_lp-tl101970102008_ + (gx#stx-e _hd101969102002_)))) + (let ((_lp-hd101973102010_ + (let () (declare (not safe)) (##car _e101972102007_))) + (_lp-tl101974102012_ (let () (declare (not safe)) - (##cdr _e101968102003_)))) - (let ((__tmp103124 + (##cdr _e101972102007_)))) + (let ((__tmp103128 (let () (declare (not safe)) - (cons _lp-hd101969102006_ _rands101971102000_)))) + (cons _lp-hd101973102010_ _rands101975102004_)))) (declare (not safe)) - (_loop101967101995_ _lp-tl101970102008_ __tmp103124)))) - (let ((_rands101972102011_ (reverse _rands101971102000_))) - ((lambda (_L102014_) + (_loop101971101999_ _lp-tl101974102012_ __tmp103128)))) + (let ((_rands101976102015_ (reverse _rands101975102004_))) + ((lambda (_L102018_) (for-each - (lambda (_g102027102029_) + (lambda (_g102031102033_) (let () (declare (not safe)) - (gxc#compile-e__1 _self101955_ _g102027102029_))) - (let ((__tmp103123 - (lambda (_g102031102034_ _g102032102036_) + (gxc#compile-e__1 _self101959_ _g102031102033_))) + (let ((__tmp103127 + (lambda (_g102035102038_ _g102036102040_) (let () (declare (not safe)) - (cons _g102031102034_ _g102032102036_))))) + (cons _g102035102038_ _g102036102040_))))) (declare (not safe)) - (foldr1 __tmp103123 '() _L102014_)))) - _rands101972102011_)))))) + (foldr1 __tmp103127 '() _L102018_)))) + _rands101976102015_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop101967101995_ - _target101964101990_ + (_loop101971101999_ + _target101968101994_ '()))) (let () (declare (not safe)) - (_g101958101977_ - _g101959101980_)))))) + (_g101962101981_ + _g101963101984_)))))) (let () (declare (not safe)) - (_g101958101977_ _g101959101980_))))) + (_g101962101981_ _g101963101984_))))) (let () (declare (not safe)) - (_g101958101977_ _g101959101980_)))))) + (_g101962101981_ _g101963101984_)))))) (declare (not safe)) - (_g101957102039_ _stx101956_)))) + (_g101961102043_ _stx101960_)))) (define gxc#xform-wrap-source - (lambda (_stx101952_ _src-stx101953_) - (let ((__tmp103125 - (let () (declare (not safe)) (gx#stx-source _src-stx101953_)))) + (lambda (_stx101956_ _src-stx101957_) + (let ((__tmp103129 + (let () (declare (not safe)) (gx#stx-source _src-stx101957_)))) (declare (not safe)) - (gx#stx-wrap-source _stx101952_ __tmp103125)))) + (gx#stx-wrap-source _stx101956_ __tmp103129)))) (define gxc#xform-begin% - (lambda (_self101907_ _stx101908_) - (let* ((_g101910101920_ - (lambda (_g101911101917_) + (lambda (_self101911_ _stx101912_) + (let* ((_g101914101924_ + (lambda (_g101915101921_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101911101917_)))) - (_g101909101949_ - (lambda (_g101911101923_) + _g101915101921_)))) + (_g101913101953_ + (lambda (_g101915101927_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101911101923_)) - (let ((_e101915101925_ + (gx#stx-pair? _g101915101927_)) + (let ((_e101919101929_ (let () (declare (not safe)) - (gx#stx-e _g101911101923_)))) - (let ((_hd101914101928_ + (gx#stx-e _g101915101927_)))) + (let ((_hd101918101932_ (let () (declare (not safe)) - (##car _e101915101925_))) - (_tl101913101930_ + (##car _e101919101929_))) + (_tl101917101934_ (let () (declare (not safe)) - (##cdr _e101915101925_)))) - ((lambda (_L101933_) - (let* ((_forms101947_ - (map (lambda (_g101942101944_) + (##cdr _e101919101929_)))) + ((lambda (_L101937_) + (let* ((_forms101951_ + (map (lambda (_g101946101948_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101907_ - _g101942101944_))) - _L101933_)) - (__tmp103126 + _self101911_ + _g101946101948_))) + _L101937_)) + (__tmp103130 (let () (declare (not safe)) - (cons '%#begin _forms101947_)))) + (cons '%#begin _forms101951_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103126 - _stx101908_))) - _tl101913101930_))) + __tmp103130 + _stx101912_))) + _tl101917101934_))) (let () (declare (not safe)) - (_g101910101920_ _g101911101923_)))))) + (_g101914101924_ _g101915101927_)))))) (declare (not safe)) - (_g101909101949_ _stx101908_)))) + (_g101913101953_ _stx101912_)))) (define gxc#xform-begin-syntax% - (lambda (_self101861_ _stx101862_) - (let* ((_g101864101874_ - (lambda (_g101865101871_) + (lambda (_self101865_ _stx101866_) + (let* ((_g101868101878_ + (lambda (_g101869101875_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101865101871_)))) - (_g101863101904_ - (lambda (_g101865101877_) + _g101869101875_)))) + (_g101867101908_ + (lambda (_g101869101881_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101865101877_)) - (let ((_e101869101879_ + (gx#stx-pair? _g101869101881_)) + (let ((_e101873101883_ (let () (declare (not safe)) - (gx#stx-e _g101865101877_)))) - (let ((_hd101868101882_ + (gx#stx-e _g101869101881_)))) + (let ((_hd101872101886_ (let () (declare (not safe)) - (##car _e101869101879_))) - (_tl101867101884_ + (##car _e101873101883_))) + (_tl101871101888_ (let () (declare (not safe)) - (##cdr _e101869101879_)))) - ((lambda (_L101887_) - (let ((__tmp103129 + (##cdr _e101873101883_)))) + ((lambda (_L101891_) + (let ((__tmp103133 (lambda () - (let* ((_forms101902_ - (map (lambda (_g101897101899_) + (let* ((_forms101906_ + (map (lambda (_g101901101903_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101861_ - _g101897101899_))) - _L101887_)) - (__tmp103130 + _self101865_ + _g101901101903_))) + _L101891_)) + (__tmp103134 (let () (declare (not safe)) (cons '%#begin-syntax - _forms101902_)))) + _forms101906_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103130 - _stx101862_)))) - (__tmp103127 - (let ((__tmp103128 + __tmp103134 + _stx101866_)))) + (__tmp103131 + (let ((__tmp103132 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp103128 '1)))) + (fx+ __tmp103132 '1)))) (declare (not safe)) (call-with-parameters - __tmp103129 + __tmp103133 gx#current-expander-phi - __tmp103127))) - _tl101867101884_))) + __tmp103131))) + _tl101871101888_))) (let () (declare (not safe)) - (_g101864101874_ _g101865101877_)))))) + (_g101868101878_ _g101869101881_)))))) (declare (not safe)) - (_g101863101904_ _stx101862_)))) + (_g101867101908_ _stx101866_)))) (define gxc#xform-module% - (lambda (_self101798_ _stx101799_) - (let* ((_g101801101815_ - (lambda (_g101802101812_) + (lambda (_self101802_ _stx101803_) + (let* ((_g101805101819_ + (lambda (_g101806101816_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101802101812_)))) - (_g101800101858_ - (lambda (_g101802101818_) + _g101806101816_)))) + (_g101804101862_ + (lambda (_g101806101822_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101802101818_)) - (let ((_e101807101820_ + (gx#stx-pair? _g101806101822_)) + (let ((_e101811101824_ (let () (declare (not safe)) - (gx#stx-e _g101802101818_)))) - (let ((_hd101806101823_ + (gx#stx-e _g101806101822_)))) + (let ((_hd101810101827_ (let () (declare (not safe)) - (##car _e101807101820_))) - (_tl101805101825_ + (##car _e101811101824_))) + (_tl101809101829_ (let () (declare (not safe)) - (##cdr _e101807101820_)))) + (##cdr _e101811101824_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101805101825_)) - (let ((_e101810101828_ + (gx#stx-pair? _tl101809101829_)) + (let ((_e101814101832_ (let () (declare (not safe)) - (gx#stx-e _tl101805101825_)))) - (let ((_hd101809101831_ + (gx#stx-e _tl101809101829_)))) + (let ((_hd101813101835_ (let () (declare (not safe)) - (##car _e101810101828_))) - (_tl101808101833_ + (##car _e101814101832_))) + (_tl101812101837_ (let () (declare (not safe)) - (##cdr _e101810101828_)))) - ((lambda (_L101836_ _L101837_) - (let* ((_ctx101850_ + (##cdr _e101814101832_)))) + ((lambda (_L101840_ _L101841_) + (let* ((_ctx101854_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L101837_))) - (_code101852_ + _L101841_))) + (_code101856_ (##structure-ref - _ctx101850_ + _ctx101854_ '11 gx#module-context::t '#f)) - (_code101855_ - (let ((__tmp103131 + (_code101859_ + (let ((__tmp103135 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self101798_ - _code101852_))))) + _self101802_ + _code101856_))))) (declare (not safe)) (call-with-parameters - __tmp103131 + __tmp103135 gx#current-expander-context - _ctx101850_)))) + _ctx101854_)))) (##structure-set! - _ctx101850_ - _code101855_ + _ctx101854_ + _code101859_ '11 gx#module-context::t '#f) - (let ((__tmp103132 - (let ((__tmp103133 - (let ((__tmp103134 + (let ((__tmp103136 + (let ((__tmp103137 + (let ((__tmp103138 (let () (declare (not safe)) - (cons _code101855_ + (cons _code101859_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L101837_ __tmp103134)))) + (cons _L101841_ __tmp103138)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp103133)))) + (cons '%#module __tmp103137)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103132 - _stx101799_)))) - _tl101808101833_ - _hd101809101831_))) + __tmp103136 + _stx101803_)))) + _tl101812101837_ + _hd101813101835_))) (let () (declare (not safe)) - (_g101801101815_ _g101802101818_))))) + (_g101805101819_ _g101806101822_))))) (let () (declare (not safe)) - (_g101801101815_ _g101802101818_)))))) + (_g101805101819_ _g101806101822_)))))) (declare (not safe)) - (_g101800101858_ _stx101799_)))) + (_g101804101862_ _stx101803_)))) (define gxc#xform-define-values% - (lambda (_self101728_ _stx101729_) - (let* ((_g101731101748_ - (lambda (_g101732101745_) + (lambda (_self101732_ _stx101733_) + (let* ((_g101735101752_ + (lambda (_g101736101749_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101732101745_)))) - (_g101730101795_ - (lambda (_g101732101751_) + _g101736101749_)))) + (_g101734101799_ + (lambda (_g101736101755_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101732101751_)) - (let ((_e101737101753_ + (gx#stx-pair? _g101736101755_)) + (let ((_e101741101757_ (let () (declare (not safe)) - (gx#stx-e _g101732101751_)))) - (let ((_hd101736101756_ + (gx#stx-e _g101736101755_)))) + (let ((_hd101740101760_ (let () (declare (not safe)) - (##car _e101737101753_))) - (_tl101735101758_ + (##car _e101741101757_))) + (_tl101739101762_ (let () (declare (not safe)) - (##cdr _e101737101753_)))) + (##cdr _e101741101757_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101735101758_)) - (let ((_e101740101761_ + (gx#stx-pair? _tl101739101762_)) + (let ((_e101744101765_ (let () (declare (not safe)) - (gx#stx-e _tl101735101758_)))) - (let ((_hd101739101764_ + (gx#stx-e _tl101739101762_)))) + (let ((_hd101743101768_ (let () (declare (not safe)) - (##car _e101740101761_))) - (_tl101738101766_ + (##car _e101744101765_))) + (_tl101742101770_ (let () (declare (not safe)) - (##cdr _e101740101761_)))) + (##cdr _e101744101765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101738101766_)) - (let ((_e101743101769_ + (gx#stx-pair? _tl101742101770_)) + (let ((_e101747101773_ (let () (declare (not safe)) - (gx#stx-e _tl101738101766_)))) - (let ((_hd101742101772_ + (gx#stx-e _tl101742101770_)))) + (let ((_hd101746101776_ (let () (declare (not safe)) - (##car _e101743101769_))) - (_tl101741101774_ + (##car _e101747101773_))) + (_tl101745101778_ (let () (declare (not safe)) - (##cdr _e101743101769_)))) + (##cdr _e101747101773_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101741101774_)) - ((lambda (_L101777_ _L101778_) - (let* ((_expr101793_ + _tl101745101778_)) + ((lambda (_L101781_ _L101782_) + (let* ((_expr101797_ (let () (declare (not safe)) (gxc#compile-e__1 - _self101728_ - _L101777_))) - (__tmp103135 - (let ((__tmp103136 - (let ((__tmp103137 + _self101732_ + _L101781_))) + (__tmp103139 + (let ((__tmp103140 + (let ((__tmp103141 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr101793_ '())))) + (cons _expr101797_ '())))) (declare (not safe)) - (cons _L101778_ __tmp103137)))) + (cons _L101782_ __tmp103141)))) (declare (not safe)) - (cons '%#define-values __tmp103136)))) + (cons '%#define-values __tmp103140)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp103135 - _stx101729_))) - _hd101742101772_ - _hd101739101764_) + __tmp103139 + _stx101733_))) + _hd101746101776_ + _hd101743101768_) (let () (declare (not safe)) - (_g101731101748_ - _g101732101751_))))) + (_g101735101752_ + _g101736101755_))))) (let () (declare (not safe)) - (_g101731101748_ _g101732101751_))))) + (_g101735101752_ _g101736101755_))))) (let () (declare (not safe)) - (_g101731101748_ _g101732101751_))))) + (_g101735101752_ _g101736101755_))))) (let () (declare (not safe)) - (_g101731101748_ _g101732101751_)))))) + (_g101735101752_ _g101736101755_)))))) (declare (not safe)) - (_g101730101795_ _stx101729_)))) + (_g101734101799_ _stx101733_)))) (define gxc#xform-define-syntax% - (lambda (_self101657_ _stx101658_) - (let* ((_g101660101677_ - (lambda (_g101661101674_) + (lambda (_self101661_ _stx101662_) + (let* ((_g101664101681_ + (lambda (_g101665101678_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101661101674_)))) - (_g101659101725_ - (lambda (_g101661101680_) + _g101665101678_)))) + (_g101663101729_ + (lambda (_g101665101684_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101661101680_)) - (let ((_e101666101682_ + (gx#stx-pair? _g101665101684_)) + (let ((_e101670101686_ (let () (declare (not safe)) - (gx#stx-e _g101661101680_)))) - (let ((_hd101665101685_ + (gx#stx-e _g101665101684_)))) + (let ((_hd101669101689_ (let () (declare (not safe)) - (##car _e101666101682_))) - (_tl101664101687_ + (##car _e101670101686_))) + (_tl101668101691_ (let () (declare (not safe)) - (##cdr _e101666101682_)))) + (##cdr _e101670101686_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101664101687_)) - (let ((_e101669101690_ + (gx#stx-pair? _tl101668101691_)) + (let ((_e101673101694_ (let () (declare (not safe)) - (gx#stx-e _tl101664101687_)))) - (let ((_hd101668101693_ + (gx#stx-e _tl101668101691_)))) + (let ((_hd101672101697_ (let () (declare (not safe)) - (##car _e101669101690_))) - (_tl101667101695_ + (##car _e101673101694_))) + (_tl101671101699_ (let () (declare (not safe)) - (##cdr _e101669101690_)))) + (##cdr _e101673101694_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101667101695_)) - (let ((_e101672101698_ + (gx#stx-pair? _tl101671101699_)) + (let ((_e101676101702_ (let () (declare (not safe)) - (gx#stx-e _tl101667101695_)))) - (let ((_hd101671101701_ + (gx#stx-e _tl101671101699_)))) + (let ((_hd101675101705_ (let () (declare (not safe)) - (##car _e101672101698_))) - (_tl101670101703_ + (##car _e101676101702_))) + (_tl101674101707_ (let () (declare (not safe)) - (##cdr _e101672101698_)))) + (##cdr _e101676101702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101670101703_)) - ((lambda (_L101706_ _L101707_) - (let ((__tmp103140 + _tl101674101707_)) + ((lambda (_L101710_ _L101711_) + (let ((__tmp103144 (lambda () - (let* ((_expr101723_ + (let* ((_expr101727_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self101657_ _L101706_))) - (__tmp103141 - (let ((__tmp103142 - (let ((__tmp103143 + (gxc#compile-e__1 _self101661_ _L101710_))) + (__tmp103145 + (let ((__tmp103146 + (let ((__tmp103147 (let () (declare (not safe)) - (cons _expr101723_ '())))) + (cons _expr101727_ '())))) (declare (not safe)) - (cons _L101707_ __tmp103143)))) + (cons _L101711_ __tmp103147)))) (declare (not safe)) - (cons '%#define-syntax __tmp103142)))) + (cons '%#define-syntax __tmp103146)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp103141 _stx101658_)))) - (__tmp103138 - (let ((__tmp103139 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp103145 _stx101662_)))) + (__tmp103142 + (let ((__tmp103143 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp103139 '1)))) + (fx+ __tmp103143 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp103140 + __tmp103144 gx#current-expander-phi - __tmp103138))) - _hd101671101701_ - _hd101668101693_) + __tmp103142))) + _hd101675101705_ + _hd101672101697_) (let () (declare (not safe)) - (_g101660101677_ - _g101661101680_))))) + (_g101664101681_ + _g101665101684_))))) (let () (declare (not safe)) - (_g101660101677_ _g101661101680_))))) + (_g101664101681_ _g101665101684_))))) (let () (declare (not safe)) - (_g101660101677_ _g101661101680_))))) + (_g101664101681_ _g101665101684_))))) (let () (declare (not safe)) - (_g101660101677_ _g101661101680_)))))) + (_g101664101681_ _g101665101684_)))))) (declare (not safe)) - (_g101659101725_ _stx101658_)))) + (_g101663101729_ _stx101662_)))) (define gxc#xform-begin-annotation% - (lambda (_self101587_ _stx101588_) - (let* ((_g101590101607_ - (lambda (_g101591101604_) + (lambda (_self101591_ _stx101592_) + (let* ((_g101594101611_ + (lambda (_g101595101608_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101591101604_)))) - (_g101589101654_ - (lambda (_g101591101610_) + _g101595101608_)))) + (_g101593101658_ + (lambda (_g101595101614_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101591101610_)) - (let ((_e101596101612_ + (gx#stx-pair? _g101595101614_)) + (let ((_e101600101616_ (let () (declare (not safe)) - (gx#stx-e _g101591101610_)))) - (let ((_hd101595101615_ + (gx#stx-e _g101595101614_)))) + (let ((_hd101599101619_ (let () (declare (not safe)) - (##car _e101596101612_))) - (_tl101594101617_ + (##car _e101600101616_))) + (_tl101598101621_ (let () (declare (not safe)) - (##cdr _e101596101612_)))) + (##cdr _e101600101616_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101594101617_)) - (let ((_e101599101620_ + (gx#stx-pair? _tl101598101621_)) + (let ((_e101603101624_ (let () (declare (not safe)) - (gx#stx-e _tl101594101617_)))) - (let ((_hd101598101623_ + (gx#stx-e _tl101598101621_)))) + (let ((_hd101602101627_ (let () (declare (not safe)) - (##car _e101599101620_))) - (_tl101597101625_ + (##car _e101603101624_))) + (_tl101601101629_ (let () (declare (not safe)) - (##cdr _e101599101620_)))) + (##cdr _e101603101624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101597101625_)) - (let ((_e101602101628_ + (gx#stx-pair? _tl101601101629_)) + (let ((_e101606101632_ (let () (declare (not safe)) - (gx#stx-e _tl101597101625_)))) - (let ((_hd101601101631_ + (gx#stx-e _tl101601101629_)))) + (let ((_hd101605101635_ (let () (declare (not safe)) - (##car _e101602101628_))) - (_tl101600101633_ + (##car _e101606101632_))) + (_tl101604101637_ (let () (declare (not safe)) - (##cdr _e101602101628_)))) + (##cdr _e101606101632_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101600101633_)) - ((lambda (_L101636_ _L101637_) - (let* ((_expr101652_ + _tl101604101637_)) + ((lambda (_L101640_ _L101641_) + (let* ((_expr101656_ (let () (declare (not safe)) (gxc#compile-e__1 - _self101587_ - _L101636_))) - (__tmp103144 - (let ((__tmp103145 - (let ((__tmp103146 + _self101591_ + _L101640_))) + (__tmp103148 + (let ((__tmp103149 + (let ((__tmp103150 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr101652_ '())))) + (cons _expr101656_ '())))) (declare (not safe)) - (cons _L101637_ __tmp103146)))) + (cons _L101641_ __tmp103150)))) (declare (not safe)) - (cons '%#begin-annotation __tmp103145)))) + (cons '%#begin-annotation __tmp103149)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp103144 - _stx101588_))) - _hd101601101631_ - _hd101598101623_) + __tmp103148 + _stx101592_))) + _hd101605101635_ + _hd101602101627_) (let () (declare (not safe)) - (_g101590101607_ - _g101591101610_))))) + (_g101594101611_ + _g101595101614_))))) (let () (declare (not safe)) - (_g101590101607_ _g101591101610_))))) + (_g101594101611_ _g101595101614_))))) (let () (declare (not safe)) - (_g101590101607_ _g101591101610_))))) + (_g101594101611_ _g101595101614_))))) (let () (declare (not safe)) - (_g101590101607_ _g101591101610_)))))) + (_g101594101611_ _g101595101614_)))))) (declare (not safe)) - (_g101589101654_ _stx101588_)))) + (_g101593101658_ _stx101592_)))) (define gxc#xform-lambda% - (lambda (_self101526_ _stx101527_) - (let* ((_g101529101543_ - (lambda (_g101530101540_) + (lambda (_self101530_ _stx101531_) + (let* ((_g101533101547_ + (lambda (_g101534101544_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101530101540_)))) - (_g101528101584_ - (lambda (_g101530101546_) + _g101534101544_)))) + (_g101532101588_ + (lambda (_g101534101550_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101530101546_)) - (let ((_e101535101548_ + (gx#stx-pair? _g101534101550_)) + (let ((_e101539101552_ (let () (declare (not safe)) - (gx#stx-e _g101530101546_)))) - (let ((_hd101534101551_ + (gx#stx-e _g101534101550_)))) + (let ((_hd101538101555_ (let () (declare (not safe)) - (##car _e101535101548_))) - (_tl101533101553_ + (##car _e101539101552_))) + (_tl101537101557_ (let () (declare (not safe)) - (##cdr _e101535101548_)))) + (##cdr _e101539101552_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101533101553_)) - (let ((_e101538101556_ + (gx#stx-pair? _tl101537101557_)) + (let ((_e101542101560_ (let () (declare (not safe)) - (gx#stx-e _tl101533101553_)))) - (let ((_hd101537101559_ + (gx#stx-e _tl101537101557_)))) + (let ((_hd101541101563_ (let () (declare (not safe)) - (##car _e101538101556_))) - (_tl101536101561_ + (##car _e101542101560_))) + (_tl101540101565_ (let () (declare (not safe)) - (##cdr _e101538101556_)))) - ((lambda (_L101564_ _L101565_) - (let* ((_body101582_ - (map (lambda (_g101577101579_) + (##cdr _e101542101560_)))) + ((lambda (_L101568_ _L101569_) + (let* ((_body101586_ + (map (lambda (_g101581101583_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101526_ - _g101577101579_))) - _L101564_)) - (__tmp103147 - (let ((__tmp103148 + _self101530_ + _g101581101583_))) + _L101568_)) + (__tmp103151 + (let ((__tmp103152 (let () (declare (not safe)) - (cons _L101565_ - _body101582_)))) + (cons _L101569_ + _body101586_)))) (declare (not safe)) - (cons '%#lambda __tmp103148)))) + (cons '%#lambda __tmp103152)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103147 - _stx101527_))) - _tl101536101561_ - _hd101537101559_))) + __tmp103151 + _stx101531_))) + _tl101540101565_ + _hd101541101563_))) (let () (declare (not safe)) - (_g101529101543_ _g101530101546_))))) + (_g101533101547_ _g101534101550_))))) (let () (declare (not safe)) - (_g101529101543_ _g101530101546_)))))) + (_g101533101547_ _g101534101550_)))))) (declare (not safe)) - (_g101528101584_ _stx101527_)))) + (_g101532101588_ _stx101531_)))) (define gxc#xform-case-lambda% - (lambda (_self101435_ _stx101436_) - (letrec ((_clause-e101438_ - (lambda (_clause101479_) - (let* ((_g101481101492_ - (lambda (_g101482101489_) + (lambda (_self101439_ _stx101440_) + (letrec ((_clause-e101442_ + (lambda (_clause101483_) + (let* ((_g101485101496_ + (lambda (_g101486101493_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101482101489_)))) - (_g101480101523_ - (lambda (_g101482101495_) + _g101486101493_)))) + (_g101484101527_ + (lambda (_g101486101499_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101482101495_)) - (let ((_e101487101497_ + (gx#stx-pair? _g101486101499_)) + (let ((_e101491101501_ (let () (declare (not safe)) - (gx#stx-e _g101482101495_)))) - (let ((_hd101486101500_ + (gx#stx-e _g101486101499_)))) + (let ((_hd101490101504_ (let () (declare (not safe)) - (##car _e101487101497_))) - (_tl101485101502_ + (##car _e101491101501_))) + (_tl101489101506_ (let () (declare (not safe)) - (##cdr _e101487101497_)))) - ((lambda (_L101505_ _L101506_) - (let ((_body101521_ - (map (lambda (_g101516101518_) + (##cdr _e101491101501_)))) + ((lambda (_L101509_ _L101510_) + (let ((_body101525_ + (map (lambda (_g101520101522_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101435_ - _g101516101518_))) - _L101505_))) + _self101439_ + _g101520101522_))) + _L101509_))) (declare (not safe)) - (cons _L101506_ _body101521_))) - _tl101485101502_ - _hd101486101500_))) + (cons _L101510_ _body101525_))) + _tl101489101506_ + _hd101490101504_))) (let () (declare (not safe)) - (_g101481101492_ _g101482101495_)))))) + (_g101485101496_ _g101486101499_)))))) (declare (not safe)) - (_g101480101523_ _clause101479_))))) - (let* ((_g101440101450_ - (lambda (_g101441101447_) + (_g101484101527_ _clause101483_))))) + (let* ((_g101444101454_ + (lambda (_g101445101451_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101441101447_)))) - (_g101439101476_ - (lambda (_g101441101453_) + _g101445101451_)))) + (_g101443101480_ + (lambda (_g101445101457_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101441101453_)) - (let ((_e101445101455_ + (gx#stx-pair? _g101445101457_)) + (let ((_e101449101459_ (let () (declare (not safe)) - (gx#stx-e _g101441101453_)))) - (let ((_hd101444101458_ + (gx#stx-e _g101445101457_)))) + (let ((_hd101448101462_ (let () (declare (not safe)) - (##car _e101445101455_))) - (_tl101443101460_ + (##car _e101449101459_))) + (_tl101447101464_ (let () (declare (not safe)) - (##cdr _e101445101455_)))) - ((lambda (_L101463_) - (let* ((_clauses101474_ - (map _clause-e101438_ _L101463_)) - (__tmp103149 + (##cdr _e101449101459_)))) + ((lambda (_L101467_) + (let* ((_clauses101478_ + (map _clause-e101442_ _L101467_)) + (__tmp103153 (let () (declare (not safe)) (cons '%#case-lambda - _clauses101474_)))) + _clauses101478_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103149 - _stx101436_))) - _tl101443101460_))) + __tmp103153 + _stx101440_))) + _tl101447101464_))) (let () (declare (not safe)) - (_g101440101450_ _g101441101453_)))))) + (_g101444101454_ _g101445101457_)))))) (declare (not safe)) - (_g101439101476_ _stx101436_))))) + (_g101443101480_ _stx101440_))))) (define gxc#xform-let-values% - (lambda (_self101221_ _stx101222_) - (let* ((_g101224101257_ - (lambda (_g101225101254_) + (lambda (_self101225_ _stx101226_) + (let* ((_g101228101261_ + (lambda (_g101229101258_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101225101254_)))) - (_g101223101432_ - (lambda (_g101225101260_) + _g101229101258_)))) + (_g101227101436_ + (lambda (_g101229101264_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101225101260_)) - (let ((_e101232101262_ + (gx#stx-pair? _g101229101264_)) + (let ((_e101236101266_ (let () (declare (not safe)) - (gx#stx-e _g101225101260_)))) - (let ((_hd101231101265_ + (gx#stx-e _g101229101264_)))) + (let ((_hd101235101269_ (let () (declare (not safe)) - (##car _e101232101262_))) - (_tl101230101267_ + (##car _e101236101266_))) + (_tl101234101271_ (let () (declare (not safe)) - (##cdr _e101232101262_)))) + (##cdr _e101236101266_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101230101267_)) - (let ((_e101235101270_ + (gx#stx-pair? _tl101234101271_)) + (let ((_e101239101274_ (let () (declare (not safe)) - (gx#stx-e _tl101230101267_)))) - (let ((_hd101234101273_ + (gx#stx-e _tl101234101271_)))) + (let ((_hd101238101277_ (let () (declare (not safe)) - (##car _e101235101270_))) - (_tl101233101275_ + (##car _e101239101274_))) + (_tl101237101279_ (let () (declare (not safe)) - (##cdr _e101235101270_)))) + (##cdr _e101239101274_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd101234101273_)) - (let ((_g103150_ + (gx#stx-pair/null? _hd101238101277_)) + (let ((_g103154_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd101234101273_ + _hd101238101277_ '0)))) (begin - (let ((_g103151_ + (let ((_g103155_ (let () (declare (not safe)) - (if (##values? _g103150_) + (if (##values? _g103154_) (##vector-length - _g103150_) + _g103154_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103151_ 2))) + (##fx= _g103155_ 2))) (error "Context expects 2 values" - _g103151_))) - (let ((_target101236101278_ + _g103155_))) + (let ((_target101240101282_ (let () (declare (not safe)) - (##vector-ref _g103150_ 0))) - (_tl101238101280_ + (##vector-ref _g103154_ 0))) + (_tl101242101284_ (let () (declare (not safe)) (##vector-ref - _g103150_ + _g103154_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101238101280_)) - (letrec ((_loop101239101283_ - (lambda (_hd101237101286_ + _tl101242101284_)) + (letrec ((_loop101243101287_ + (lambda (_hd101241101290_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr101243101288_ - _hd101244101290_) + _expr101247101292_ + _hd101248101294_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd101237101286_)) - (let ((_e101240101293_ + (gx#stx-pair? _hd101241101290_)) + (let ((_e101244101297_ (let () (declare (not safe)) - (gx#stx-e _hd101237101286_)))) - (let ((_lp-hd101241101296_ + (gx#stx-e _hd101241101290_)))) + (let ((_lp-hd101245101300_ (let () (declare (not safe)) - (##car _e101240101293_))) - (_lp-tl101242101298_ + (##car _e101244101297_))) + (_lp-tl101246101302_ (let () (declare (not safe)) - (##cdr _e101240101293_)))) + (##cdr _e101244101297_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd101241101296_)) - (let ((_e101249101301_ + (gx#stx-pair? _lp-hd101245101300_)) + (let ((_e101253101305_ (let () (declare (not safe)) - (gx#stx-e _lp-hd101241101296_)))) - (let ((_hd101248101304_ + (gx#stx-e _lp-hd101245101300_)))) + (let ((_hd101252101308_ (let () (declare (not safe)) - (##car _e101249101301_))) - (_tl101247101306_ + (##car _e101253101305_))) + (_tl101251101310_ (let () (declare (not safe)) - (##cdr _e101249101301_)))) + (##cdr _e101253101305_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101247101306_)) - (let ((_e101252101309_ + (gx#stx-pair? _tl101251101310_)) + (let ((_e101256101313_ (let () (declare (not safe)) - (gx#stx-e _tl101247101306_)))) - (let ((_hd101251101312_ + (gx#stx-e _tl101251101310_)))) + (let ((_hd101255101316_ (let () (declare (not safe)) - (##car _e101252101309_))) - (_tl101250101314_ + (##car _e101256101313_))) + (_tl101254101318_ (let () (declare (not safe)) - (##cdr _e101252101309_)))) + (##cdr _e101256101313_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101250101314_)) - (let ((__tmp103164 + _tl101254101318_)) + (let ((__tmp103168 (let () (declare (not safe)) - (cons _hd101251101312_ - _expr101243101288_))) - (__tmp103163 + (cons _hd101255101316_ + _expr101247101292_))) + (__tmp103167 (let () (declare (not safe)) - (cons _hd101248101304_ - _hd101244101290_)))) + (cons _hd101252101308_ + _hd101248101294_)))) (declare (not safe)) - (_loop101239101283_ - _lp-tl101242101298_ - __tmp103164 - __tmp103163)) + (_loop101243101287_ + _lp-tl101246101302_ + __tmp103168 + __tmp103167)) (let () (declare (not safe)) - (_g101224101257_ - _g101225101260_))))) + (_g101228101261_ + _g101229101264_))))) (let () (declare (not safe)) - (_g101224101257_ _g101225101260_))))) + (_g101228101261_ _g101229101264_))))) (let () (declare (not safe)) - (_g101224101257_ _g101225101260_))))) - (let ((_expr101245101317_ (reverse _expr101243101288_)) - (_hd101246101319_ (reverse _hd101244101290_))) - ((lambda (_L101322_ _L101323_ _L101324_ _L101325_) - (let* ((_g101344101360_ - (lambda (_g101345101357_) + (_g101228101261_ _g101229101264_))))) + (let ((_expr101249101321_ (reverse _expr101247101292_)) + (_hd101250101323_ (reverse _hd101248101294_))) + ((lambda (_L101326_ _L101327_ _L101328_ _L101329_) + (let* ((_g101348101364_ + (lambda (_g101349101361_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101345101357_)))) - (_g101343101418_ - (lambda (_g101345101363_) + _g101349101361_)))) + (_g101347101422_ + (lambda (_g101349101367_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g101345101363_)) - (let ((_g103152_ + _g101349101367_)) + (let ((_g103156_ (let () (declare (not safe)) (gx#syntax-split-splice - _g101345101363_ + _g101349101367_ '0)))) (begin - (let ((_g103153_ + (let ((_g103157_ (let () (declare (not safe)) (if (##values? - _g103152_) + _g103156_) (##vector-length - _g103152_) + _g103156_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103153_ + (##fx= _g103157_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g103153_))) - (let ((_target101347101365_ + _g103157_))) + (let ((_target101351101369_ (let () (declare (not safe)) (##vector-ref - _g103152_ + _g103156_ 0))) - (_tl101349101367_ + (_tl101353101371_ (let () (declare (not safe)) (##vector-ref - _g103152_ + _g103156_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101349101367_)) - (letrec ((_loop101350101370_ - (lambda (_hd101348101373_ + _tl101353101371_)) + (letrec ((_loop101354101374_ + (lambda (_hd101352101377_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr101354101375_) + _expr101358101379_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd101348101373_)) - (let ((_e101351101378_ + (gx#stx-pair? _hd101352101377_)) + (let ((_e101355101382_ (let () (declare (not safe)) - (gx#syntax-e _hd101348101373_)))) - (let ((_lp-hd101352101381_ + (gx#syntax-e _hd101352101377_)))) + (let ((_lp-hd101356101385_ (let () (declare (not safe)) - (##car _e101351101378_))) - (_lp-tl101353101383_ + (##car _e101355101382_))) + (_lp-tl101357101387_ (let () (declare (not safe)) - (##cdr _e101351101378_)))) - (let ((__tmp103160 + (##cdr _e101355101382_)))) + (let ((__tmp103164 (let () (declare (not safe)) - (cons _lp-hd101352101381_ - _expr101354101375_)))) + (cons _lp-hd101356101385_ + _expr101358101379_)))) (declare (not safe)) - (_loop101350101370_ - _lp-tl101353101383_ - __tmp103160)))) - (let ((_expr101355101386_ - (reverse _expr101354101375_))) - ((lambda (_L101389_) + (_loop101354101374_ + _lp-tl101357101387_ + __tmp103164)))) + (let ((_expr101359101390_ + (reverse _expr101358101379_))) + ((lambda (_L101393_) (let () - (let* ((_body101406_ - (map (lambda (_g101401101403_) + (let* ((_body101410_ + (map (lambda (_g101405101407_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101221_ - _g101401101403_))) - _L101322_)) - (__tmp103154 - (let ((__tmp103155 - (let ((__tmp103156 + _self101225_ + _g101405101407_))) + _L101326_)) + (__tmp103158 + (let ((__tmp103159 + (let ((__tmp103160 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L101389_ - _L101324_)) - (let ((__tmp103157 + _L101393_ + _L101328_)) + (let ((__tmp103161 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g101407101411_ - _g101408101413_ - _g101409101415_) - (let ((__tmp103158 - (let ((__tmp103159 + (lambda (_g101411101415_ + _g101412101417_ + _g101413101419_) + (let ((__tmp103162 + (let ((__tmp103163 (let () (declare (not safe)) - (cons _g101407101411_ '())))) + (cons _g101411101415_ '())))) (declare (not safe)) - (cons _g101408101413_ __tmp103159)))) + (cons _g101412101417_ __tmp103163)))) (declare (not safe)) - (cons __tmp103158 _g101409101415_))))) + (cons __tmp103162 _g101413101419_))))) (declare (not safe)) - (foldr2 __tmp103157 '() _L101389_ _L101324_))))) + (foldr2 __tmp103161 '() _L101393_ _L101328_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103156 - _body101406_)))) + (cons __tmp103160 + _body101410_)))) (declare (not safe)) - (cons _L101325_ __tmp103155)))) + (cons _L101329_ __tmp103159)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103154 - _stx101222_)))) - _expr101355101386_)))))) + __tmp103158 + _stx101226_)))) + _expr101359101390_)))))) (let () (declare (not safe)) - (_loop101350101370_ _target101347101365_ '()))) + (_loop101354101374_ _target101351101369_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101344101360_ - _g101345101363_)))))) + (_g101348101364_ + _g101349101367_)))))) (let () (declare (not safe)) - (_g101344101360_ - _g101345101363_))))) - (__tmp103161 - (map (lambda (_g101420101422_) + (_g101348101364_ + _g101349101367_))))) + (__tmp103165 + (map (lambda (_g101424101426_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101221_ - _g101420101422_))) - (let ((__tmp103162 - (lambda (_g101424101427_ - _g101425101429_) + _self101225_ + _g101424101426_))) + (let ((__tmp103166 + (lambda (_g101428101431_ + _g101429101433_) (let () (declare (not safe)) - (cons _g101424101427_ - _g101425101429_))))) + (cons _g101428101431_ + _g101429101433_))))) (declare (not safe)) - (foldr1 __tmp103162 + (foldr1 __tmp103166 '() - _L101323_))))) + _L101327_))))) (declare (not safe)) - (_g101343101418_ __tmp103161))) - _tl101233101275_ - _expr101245101317_ - _hd101246101319_ - _hd101231101265_)))))) + (_g101347101422_ __tmp103165))) + _tl101237101279_ + _expr101249101321_ + _hd101250101323_ + _hd101235101269_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop101239101283_ - _target101236101278_ + (_loop101243101287_ + _target101240101282_ '() '()))) (let () (declare (not safe)) - (_g101224101257_ - _g101225101260_)))))) + (_g101228101261_ + _g101229101264_)))))) (let () (declare (not safe)) - (_g101224101257_ _g101225101260_))))) + (_g101228101261_ _g101229101264_))))) (let () (declare (not safe)) - (_g101224101257_ _g101225101260_))))) + (_g101228101261_ _g101229101264_))))) (let () (declare (not safe)) - (_g101224101257_ _g101225101260_)))))) + (_g101228101261_ _g101229101264_)))))) (declare (not safe)) - (_g101223101432_ _stx101222_)))) + (_g101227101436_ _stx101226_)))) (define gxc#xform-operands - (lambda (_self101173_ _stx101174_) - (let* ((_g101176101187_ - (lambda (_g101177101184_) + (lambda (_self101177_ _stx101178_) + (let* ((_g101180101191_ + (lambda (_g101181101188_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101177101184_)))) - (_g101175101218_ - (lambda (_g101177101190_) + _g101181101188_)))) + (_g101179101222_ + (lambda (_g101181101194_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101177101190_)) - (let ((_e101182101192_ + (gx#stx-pair? _g101181101194_)) + (let ((_e101186101196_ (let () (declare (not safe)) - (gx#stx-e _g101177101190_)))) - (let ((_hd101181101195_ + (gx#stx-e _g101181101194_)))) + (let ((_hd101185101199_ (let () (declare (not safe)) - (##car _e101182101192_))) - (_tl101180101197_ + (##car _e101186101196_))) + (_tl101184101201_ (let () (declare (not safe)) - (##cdr _e101182101192_)))) - ((lambda (_L101200_ _L101201_) - (let* ((_rands101216_ - (map (lambda (_g101211101213_) + (##cdr _e101186101196_)))) + ((lambda (_L101204_ _L101205_) + (let* ((_rands101220_ + (map (lambda (_g101215101217_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101173_ - _g101211101213_))) - _L101200_)) - (__tmp103165 + _self101177_ + _g101215101217_))) + _L101204_)) + (__tmp103169 (let () (declare (not safe)) - (cons _L101201_ _rands101216_)))) + (cons _L101205_ _rands101220_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103165 - _stx101174_))) - _tl101180101197_ - _hd101181101195_))) + __tmp103169 + _stx101178_))) + _tl101184101201_ + _hd101185101199_))) (let () (declare (not safe)) - (_g101176101187_ _g101177101190_)))))) + (_g101180101191_ _g101181101194_)))))) (declare (not safe)) - (_g101175101218_ _stx101174_)))) + (_g101179101222_ _stx101178_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_self101103_ _stx101104_) - (let* ((_g101106101123_ - (lambda (_g101107101120_) + (lambda (_self101107_ _stx101108_) + (let* ((_g101110101127_ + (lambda (_g101111101124_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101107101120_)))) - (_g101105101170_ - (lambda (_g101107101126_) + _g101111101124_)))) + (_g101109101174_ + (lambda (_g101111101130_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101107101126_)) - (let ((_e101112101128_ + (gx#stx-pair? _g101111101130_)) + (let ((_e101116101132_ (let () (declare (not safe)) - (gx#stx-e _g101107101126_)))) - (let ((_hd101111101131_ + (gx#stx-e _g101111101130_)))) + (let ((_hd101115101135_ (let () (declare (not safe)) - (##car _e101112101128_))) - (_tl101110101133_ + (##car _e101116101132_))) + (_tl101114101137_ (let () (declare (not safe)) - (##cdr _e101112101128_)))) + (##cdr _e101116101132_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101110101133_)) - (let ((_e101115101136_ + (gx#stx-pair? _tl101114101137_)) + (let ((_e101119101140_ (let () (declare (not safe)) - (gx#stx-e _tl101110101133_)))) - (let ((_hd101114101139_ + (gx#stx-e _tl101114101137_)))) + (let ((_hd101118101143_ (let () (declare (not safe)) - (##car _e101115101136_))) - (_tl101113101141_ + (##car _e101119101140_))) + (_tl101117101145_ (let () (declare (not safe)) - (##cdr _e101115101136_)))) + (##cdr _e101119101140_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101113101141_)) - (let ((_e101118101144_ + (gx#stx-pair? _tl101117101145_)) + (let ((_e101122101148_ (let () (declare (not safe)) - (gx#stx-e _tl101113101141_)))) - (let ((_hd101117101147_ + (gx#stx-e _tl101117101145_)))) + (let ((_hd101121101151_ (let () (declare (not safe)) - (##car _e101118101144_))) - (_tl101116101149_ + (##car _e101122101148_))) + (_tl101120101153_ (let () (declare (not safe)) - (##cdr _e101118101144_)))) + (##cdr _e101122101148_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101116101149_)) - ((lambda (_L101152_ _L101153_) - (let* ((_expr101168_ + _tl101120101153_)) + ((lambda (_L101156_ _L101157_) + (let* ((_expr101172_ (let () (declare (not safe)) (gxc#compile-e__1 - _self101103_ - _L101152_))) - (__tmp103166 - (let ((__tmp103167 - (let ((__tmp103168 + _self101107_ + _L101156_))) + (__tmp103170 + (let ((__tmp103171 + (let ((__tmp103172 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr101168_ '())))) + (cons _expr101172_ '())))) (declare (not safe)) - (cons _L101153_ __tmp103168)))) + (cons _L101157_ __tmp103172)))) (declare (not safe)) - (cons '%#set! __tmp103167)))) + (cons '%#set! __tmp103171)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp103166 - _stx101104_))) - _hd101117101147_ - _hd101114101139_) + __tmp103170 + _stx101108_))) + _hd101121101151_ + _hd101118101143_) (let () (declare (not safe)) - (_g101106101123_ - _g101107101126_))))) + (_g101110101127_ + _g101111101130_))))) (let () (declare (not safe)) - (_g101106101123_ _g101107101126_))))) + (_g101110101127_ _g101111101130_))))) (let () (declare (not safe)) - (_g101106101123_ _g101107101126_))))) + (_g101110101127_ _g101111101130_))))) (let () (declare (not safe)) - (_g101106101123_ _g101107101126_)))))) + (_g101110101127_ _g101111101130_)))))) (declare (not safe)) - (_g101105101170_ _stx101104_)))))) + (_g101109101174_ _stx101108_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index 703c240bd..49a72d82c 100644 --- a/src/bootstrap/gerbil/compiler/method~1.scm +++ b/src/bootstrap/gerbil/compiler/method~1.scm @@ -1,286 +1,286 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g103370_| + (define |gxc[1]#_g103374_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103372_| + (define |gxc[1]#_g103376_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103374_| + (define |gxc[1]#_g103378_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103376_| + (define |gxc[1]#_g103380_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103378_| + (define |gxc[1]#_g103382_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103380_| + (define |gxc[1]#_g103384_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103384_| + (define |gxc[1]#_g103388_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103386_| + (define |gxc[1]#_g103390_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103388_| + (define |gxc[1]#_g103392_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103390_| + (define |gxc[1]#_g103394_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103392_| + (define |gxc[1]#_g103396_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103394_| + (define |gxc[1]#_g103398_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103396_| + (define |gxc[1]#_g103400_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103398_| + (define |gxc[1]#_g103402_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103400_| + (define |gxc[1]#_g103404_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103402_| + (define |gxc[1]#_g103406_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103404_| + (define |gxc[1]#_g103408_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103408_| + (define |gxc[1]#_g103412_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103410_| + (define |gxc[1]#_g103414_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103412_| + (define |gxc[1]#_g103416_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103414_| + (define |gxc[1]#_g103418_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103416_| + (define |gxc[1]#_g103420_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103418_| + (define |gxc[1]#_g103422_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103420_| + (define |gxc[1]#_g103424_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103422_| + (define |gxc[1]#_g103426_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103424_| + (define |gxc[1]#_g103428_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103426_| + (define |gxc[1]#_g103430_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103428_| + (define |gxc[1]#_g103432_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103432_| + (define |gxc[1]#_g103436_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103434_| + (define |gxc[1]#_g103438_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103436_| + (define |gxc[1]#_g103440_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103438_| + (define |gxc[1]#_g103442_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103440_| + (define |gxc[1]#_g103444_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103442_| + (define |gxc[1]#_g103446_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103444_| + (define |gxc[1]#_g103448_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103446_| + (define |gxc[1]#_g103450_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103450_| + (define |gxc[1]#_g103454_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103452_| + (define |gxc[1]#_g103456_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103454_| + (define |gxc[1]#_g103458_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103456_| + (define |gxc[1]#_g103460_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103458_| + (define |gxc[1]#_g103462_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,2697 +289,2697 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_stx99645_) - (let* ((___stx102927102928_ _stx99645_) - (_g9965199845_ + (lambda (_stx99649_) + (let* ((___stx102931102932_ _stx99649_) + (_g9965599849_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx102927102928_))))) - (let ((___kont102930102931_ - (lambda (_L101065_ _L101067_ _L101068_ _L101069_) - (let ((__tmp103173 + ___stx102931102932_))))) + (let ((___kont102934102935_ + (lambda (_L101069_ _L101071_ _L101072_ _L101073_) + (let ((__tmp103177 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method))) - (__tmp103169 - (let ((__tmp103170 - (let ((__tmp103172 + (__tmp103173 + (let ((__tmp103174 + (let ((__tmp103176 (let () (declare (not safe)) - (cons _L101068_ '()))) - (__tmp103171 + (cons _L101072_ '()))) + (__tmp103175 (let () (declare (not safe)) - (cons _L101067_ _L101065_)))) + (cons _L101071_ _L101069_)))) (declare (not safe)) - (cons __tmp103172 __tmp103171)))) + (cons __tmp103176 __tmp103175)))) (declare (not safe)) - (cons _L101069_ __tmp103170)))) + (cons _L101073_ __tmp103174)))) (declare (not safe)) - (cons __tmp103173 __tmp103169)))) - (___kont102932102933_ - (lambda (_L100819_ _L100821_ _L100822_ _L100823_ _L100824_) - (let* ((_g100855100883_ - (lambda (_g100856100879_) + (cons __tmp103177 __tmp103173)))) + (___kont102936102937_ + (lambda (_L100823_ _L100825_ _L100826_ _L100827_ _L100828_) + (let* ((_g100859100887_ + (lambda (_g100860100883_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100856100879_)))) - (_g100854101003_ - (lambda (_g100856100887_) + _g100860100883_)))) + (_g100858101007_ + (lambda (_g100860100891_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100856100887_)) - (let ((_e100862100890_ + (gx#stx-pair? _g100860100891_)) + (let ((_e100866100894_ (let () (declare (not safe)) - (gx#syntax-e _g100856100887_)))) - (let ((_hd100861100894_ + (gx#syntax-e _g100860100891_)))) + (let ((_hd100865100898_ (let () (declare (not safe)) - (##car _e100862100890_))) - (_tl100860100897_ + (##car _e100866100894_))) + (_tl100864100901_ (let () (declare (not safe)) - (##cdr _e100862100890_)))) + (##cdr _e100866100894_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100860100897_)) - (let ((_e100865100900_ + (gx#stx-pair? _tl100864100901_)) + (let ((_e100869100904_ (let () (declare (not safe)) (gx#syntax-e - _tl100860100897_)))) - (let ((_hd100864100904_ + _tl100864100901_)))) + (let ((_hd100868100908_ (let () (declare (not safe)) - (##car _e100865100900_))) - (_tl100863100907_ + (##car _e100869100904_))) + (_tl100867100911_ (let () (declare (not safe)) - (##cdr _e100865100900_)))) + (##cdr _e100869100904_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd100864100904_)) - (let ((_g103174_ + _hd100868100908_)) + (let ((_g103178_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd100864100904_ + _hd100868100908_ '0)))) (begin - (let ((_g103175_ + (let ((_g103179_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103174_) - (##vector-length _g103174_) + _g103178_) + (##vector-length _g103178_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g103175_ 2))) - (error "Context expects 2 values" _g103175_))) + (if (not (let () (declare (not safe)) (##fx= _g103179_ 2))) + (error "Context expects 2 values" _g103179_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target100866100910_ + (let ((_target100870100914_ (let () (declare (not safe)) (##vector-ref - _g103174_ + _g103178_ 0))) - (_tl100868100913_ + (_tl100872100917_ (let () (declare (not safe)) (##vector-ref - _g103174_ + _g103178_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100868100913_)) - (letrec ((_loop100869100916_ + _tl100872100917_)) + (letrec ((_loop100873100920_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd100867100920_ - _super-bind-methods!100873100923_) + (lambda (_hd100871100924_ + _super-bind-methods!100877100927_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd100867100920_)) - (let ((_e100870100926_ + (gx#stx-pair? _hd100871100924_)) + (let ((_e100874100930_ (let () (declare (not safe)) - (gx#syntax-e _hd100867100920_)))) - (let ((_lp-hd100871100930_ + (gx#syntax-e _hd100871100924_)))) + (let ((_lp-hd100875100934_ (let () (declare (not safe)) - (##car _e100870100926_))) - (_lp-tl100872100933_ + (##car _e100874100930_))) + (_lp-tl100876100937_ (let () (declare (not safe)) - (##cdr _e100870100926_)))) - (_loop100869100916_ - _lp-tl100872100933_ + (##cdr _e100874100930_)))) + (_loop100873100920_ + _lp-tl100876100937_ (let () (declare (not safe)) - (cons _lp-hd100871100930_ - _super-bind-methods!100873100923_))))) - (let ((_super-bind-methods!100874100936_ - (reverse _super-bind-methods!100873100923_))) + (cons _lp-hd100875100934_ + _super-bind-methods!100877100927_))))) + (let ((_super-bind-methods!100878100940_ + (reverse _super-bind-methods!100877100927_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100863100907_)) - (let ((_e100877100940_ + (gx#stx-pair? _tl100867100911_)) + (let ((_e100881100944_ (let () (declare (not safe)) (gx#syntax-e - _tl100863100907_)))) - (let ((_hd100876100944_ + _tl100867100911_)))) + (let ((_hd100880100948_ (let () (declare (not safe)) - (##car _e100877100940_))) - (_tl100875100947_ + (##car _e100881100944_))) + (_tl100879100951_ (let () (declare (not safe)) - (##cdr _e100877100940_)))) + (##cdr _e100881100944_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100875100947_)) - ((lambda (_L100950_ - _L100952_ - _L100953_) + _tl100879100951_)) + ((lambda (_L100954_ + _L100956_ + _L100957_) (let () - (let ((__tmp103209 + (let ((__tmp103213 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103176 - (let ((__tmp103202 - (let ((__tmp103208 + (__tmp103180 + (let ((__tmp103206 + (let ((__tmp103212 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass))) - (__tmp103203 - (let ((__tmp103205 - (let ((__tmp103206 - (let ((__tmp103207 - (lambda (_g100980100983_ + (__tmp103207 + (let ((__tmp103209 + (let ((__tmp103210 + (let ((__tmp103211 + (lambda (_g100984100987_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g100981100986_) + _g100985100990_) (let () (declare (not safe)) - (cons _g100980100983_ _g100981100986_))))) + (cons _g100984100987_ _g100985100990_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp103207 + (foldr1 __tmp103211 '() - _L100823_)))) + _L100827_)))) (declare (not safe)) - (cons _L100824_ __tmp103206))) - (__tmp103204 + (cons _L100828_ __tmp103210))) + (__tmp103208 (let () (declare (not safe)) - (cons _L100822_ '())))) + (cons _L100826_ '())))) (declare (not safe)) - (cons __tmp103205 __tmp103204)))) + (cons __tmp103209 __tmp103208)))) (declare (not safe)) - (cons __tmp103208 __tmp103203))) - (__tmp103177 - (let ((__tmp103178 - (let ((__tmp103201 + (cons __tmp103212 __tmp103207))) + (__tmp103181 + (let ((__tmp103182 + (let ((__tmp103205 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103179 - (let ((__tmp103180 - (let ((__tmp103181 - (let ((__tmp103200 + (__tmp103183 + (let ((__tmp103184 + (let ((__tmp103185 + (let ((__tmp103204 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp103182 - (let ((__tmp103183 - (let ((__tmp103199 + (__tmp103186 + (let ((__tmp103187 + (let ((__tmp103203 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103184 - (let ((__tmp103195 - (lambda (_g100975100989_ - _g100976100992_) - (let ((__tmp103196 - (let ((__tmp103198 + (__tmp103188 + (let ((__tmp103199 + (lambda (_g100979100993_ + _g100980100996_) + (let ((__tmp103200 + (let ((__tmp103202 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103197 + (__tmp103201 (let () (declare (not safe)) - (cons _g100975100989_ + (cons _g100979100993_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp103198 __tmp103197)))) + (cons __tmp103202 __tmp103201)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103196 - _g100976100992_)))) - (__tmp103185 + (cons __tmp103200 + _g100980100996_)))) + (__tmp103189 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L100819_ - _L100821_)) - (let ((__tmp103186 - (lambda (_g100977100995_ - _g100978100998_ - _g100979101000_) - (let ((__tmp103187 - (let ((__tmp103194 + _L100823_ + _L100825_)) + (let ((__tmp103190 + (lambda (_g100981100999_ + _g100982101002_ + _g100983101004_) + (let ((__tmp103191 + (let ((__tmp103198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!))) - (__tmp103188 - (let ((__tmp103189 - (let ((__tmp103191 - (let ((__tmp103193 + (__tmp103192 + (let ((__tmp103193 + (let ((__tmp103195 + (let ((__tmp103197 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp103192 + (__tmp103196 (let () (declare (not safe)) - (cons _g100978100998_ + (cons _g100982101002_ '())))) (declare (not safe)) - (cons __tmp103193 __tmp103192))) - (__tmp103190 + (cons __tmp103197 __tmp103196))) + (__tmp103194 (let () (declare (not safe)) - (cons _g100977100995_ '())))) + (cons _g100981100999_ '())))) (declare (not safe)) - (cons __tmp103191 __tmp103190)))) + (cons __tmp103195 __tmp103194)))) (declare (not safe)) - (cons _L100950_ __tmp103189)))) + (cons _L100954_ __tmp103193)))) (declare (not safe)) - (cons __tmp103194 __tmp103188)))) + (cons __tmp103198 __tmp103192)))) (declare (not safe)) - (cons __tmp103187 _g100979101000_))))) + (cons __tmp103191 _g100983101004_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp103186 + (foldr2 __tmp103190 '() - _L100819_ - _L100821_))))) + _L100823_ + _L100825_))))) (declare (not safe)) - (foldr1 __tmp103195 - __tmp103185 - _L100952_)))) + (foldr1 __tmp103199 + __tmp103189 + _L100956_)))) (declare (not safe)) - (cons __tmp103199 __tmp103184)))) + (cons __tmp103203 __tmp103188)))) (declare (not safe)) - (cons __tmp103183 '())))) + (cons __tmp103187 '())))) (declare (not safe)) - (cons __tmp103200 __tmp103182)))) + (cons __tmp103204 __tmp103186)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103181 '())))) + (cons __tmp103185 '())))) (declare (not safe)) - (cons _L100953_ __tmp103180)))) + (cons _L100957_ __tmp103184)))) (declare (not safe)) - (cons __tmp103201 __tmp103179)))) + (cons __tmp103205 __tmp103183)))) (declare (not safe)) - (cons __tmp103178 '())))) + (cons __tmp103182 '())))) (declare (not safe)) - (cons __tmp103202 __tmp103177)))) + (cons __tmp103206 __tmp103181)))) (declare (not safe)) - (cons __tmp103209 __tmp103176)))) + (cons __tmp103213 __tmp103180)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100876100944_ - _super-bind-methods!100874100936_ - _hd100861100894_) - (_g100855100883_ - _g100856100887_)))) - (_g100855100883_ - _g100856100887_))))))) - (_loop100869100916_ _target100866100910_ '())) - (_g100855100883_ _g100856100887_))))) + _hd100880100948_ + _super-bind-methods!100878100940_ + _hd100865100898_) + (_g100859100887_ + _g100860100891_)))) + (_g100859100887_ + _g100860100891_))))))) + (_loop100873100920_ _target100870100914_ '())) + (_g100859100887_ _g100860100891_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g100855100883_ - _g100856100887_)))) - (_g100855100883_ _g100856100887_)))) - (_g100855100883_ _g100856100887_))))) - (_g100854101003_ + (_g100859100887_ + _g100860100891_)))) + (_g100859100887_ _g100860100891_)))) + (_g100859100887_ _g100860100891_))))) + (_g100858101007_ (list (let () (declare (not safe)) (gx#stx-identifier - _L100824_ - _L100824_ + _L100828_ + _L100828_ '"-bind-methods!")) - (map (lambda (_super101007_) + (map (lambda (_super101011_) (let () (declare (not safe)) (gx#stx-identifier - _super101007_ - _super101007_ + _super101011_ + _super101011_ '"-bind-methods!"))) - (let ((__tmp103210 - (lambda (_g101009101012_ - _g101010101015_) + (let ((__tmp103214 + (lambda (_g101013101016_ + _g101014101019_) (let () (declare (not safe)) - (cons _g101009101012_ - _g101010101015_))))) + (cons _g101013101016_ + _g101014101019_))))) (declare (not safe)) - (foldr1 __tmp103210 '() _L100823_))) + (foldr1 __tmp103214 '() _L100827_))) (let () (declare (not safe)) (gx#stx-identifier - _L100824_ - _L100824_ + _L100828_ + _L100828_ '"::t"))))))) - (___kont102938102939_ - (lambda (_L100450_ - _L100452_ - _L100453_ - _L100454_ - _L100455_ + (___kont102942102943_ + (lambda (_L100454_ _L100456_ - _L100457_) - (let* ((_g100495100523_ - (lambda (_g100496100519_) + _L100457_ + _L100458_ + _L100459_ + _L100460_ + _L100461_) + (let* ((_g100499100527_ + (lambda (_g100500100523_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100496100519_)))) - (_g100494100659_ - (lambda (_g100496100527_) + _g100500100523_)))) + (_g100498100663_ + (lambda (_g100500100531_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100496100527_)) - (let ((_e100502100530_ + (gx#stx-pair? _g100500100531_)) + (let ((_e100506100534_ (let () (declare (not safe)) - (gx#syntax-e _g100496100527_)))) - (let ((_hd100501100534_ + (gx#syntax-e _g100500100531_)))) + (let ((_hd100505100538_ (let () (declare (not safe)) - (##car _e100502100530_))) - (_tl100500100537_ + (##car _e100506100534_))) + (_tl100504100541_ (let () (declare (not safe)) - (##cdr _e100502100530_)))) + (##cdr _e100506100534_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100500100537_)) - (let ((_e100505100540_ + (gx#stx-pair? _tl100504100541_)) + (let ((_e100509100544_ (let () (declare (not safe)) (gx#syntax-e - _tl100500100537_)))) - (let ((_hd100504100544_ + _tl100504100541_)))) + (let ((_hd100508100548_ (let () (declare (not safe)) - (##car _e100505100540_))) - (_tl100503100547_ + (##car _e100509100544_))) + (_tl100507100551_ (let () (declare (not safe)) - (##cdr _e100505100540_)))) + (##cdr _e100509100544_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd100504100544_)) - (let ((_g103211_ + _hd100508100548_)) + (let ((_g103215_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd100504100544_ + _hd100508100548_ '0)))) (begin - (let ((_g103212_ + (let ((_g103216_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103211_) - (##vector-length _g103211_) + _g103215_) + (##vector-length _g103215_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g103212_ 2))) - (error "Context expects 2 values" _g103212_))) + (if (not (let () (declare (not safe)) (##fx= _g103216_ 2))) + (error "Context expects 2 values" _g103216_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target100506100550_ + (let ((_target100510100554_ (let () (declare (not safe)) (##vector-ref - _g103211_ + _g103215_ 0))) - (_tl100508100553_ + (_tl100512100557_ (let () (declare (not safe)) (##vector-ref - _g103211_ + _g103215_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100508100553_)) - (letrec ((_loop100509100556_ + _tl100512100557_)) + (letrec ((_loop100513100560_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd100507100560_ - _super-bind-methods!100513100563_) + (lambda (_hd100511100564_ + _super-bind-methods!100517100567_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd100507100560_)) - (let ((_e100510100566_ + (gx#stx-pair? _hd100511100564_)) + (let ((_e100514100570_ (let () (declare (not safe)) - (gx#syntax-e _hd100507100560_)))) - (let ((_lp-hd100511100570_ + (gx#syntax-e _hd100511100564_)))) + (let ((_lp-hd100515100574_ (let () (declare (not safe)) - (##car _e100510100566_))) - (_lp-tl100512100573_ + (##car _e100514100570_))) + (_lp-tl100516100577_ (let () (declare (not safe)) - (##cdr _e100510100566_)))) - (_loop100509100556_ - _lp-tl100512100573_ + (##cdr _e100514100570_)))) + (_loop100513100560_ + _lp-tl100516100577_ (let () (declare (not safe)) - (cons _lp-hd100511100570_ - _super-bind-methods!100513100563_))))) - (let ((_super-bind-methods!100514100576_ - (reverse _super-bind-methods!100513100563_))) + (cons _lp-hd100515100574_ + _super-bind-methods!100517100567_))))) + (let ((_super-bind-methods!100518100580_ + (reverse _super-bind-methods!100517100567_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100503100547_)) - (let ((_e100517100580_ + (gx#stx-pair? _tl100507100551_)) + (let ((_e100521100584_ (let () (declare (not safe)) (gx#syntax-e - _tl100503100547_)))) - (let ((_hd100516100584_ + _tl100507100551_)))) + (let ((_hd100520100588_ (let () (declare (not safe)) - (##car _e100517100580_))) - (_tl100515100587_ + (##car _e100521100584_))) + (_tl100519100591_ (let () (declare (not safe)) - (##cdr _e100517100580_)))) + (##cdr _e100521100584_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100515100587_)) - ((lambda (_L100590_ - _L100592_ - _L100593_) + _tl100519100591_)) + ((lambda (_L100594_ + _L100596_ + _L100597_) (let () - (let ((__tmp103285 + (let ((__tmp103289 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103213 - (let ((__tmp103278 - (let ((__tmp103284 + (__tmp103217 + (let ((__tmp103282 + (let ((__tmp103288 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass))) - (__tmp103279 - (let ((__tmp103281 - (let ((__tmp103282 - (let ((__tmp103283 - (lambda (_g100624100627_ + (__tmp103283 + (let ((__tmp103285 + (let ((__tmp103286 + (let ((__tmp103287 + (lambda (_g100628100631_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g100625100630_) + _g100629100634_) (let () (declare (not safe)) - (cons _g100624100627_ _g100625100630_))))) + (cons _g100628100631_ _g100629100634_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp103283 + (foldr1 __tmp103287 '() - _L100454_)))) + _L100458_)))) (declare (not safe)) - (cons _L100455_ __tmp103282))) - (__tmp103280 + (cons _L100459_ __tmp103286))) + (__tmp103284 (let () (declare (not safe)) - (cons _L100453_ '())))) + (cons _L100457_ '())))) (declare (not safe)) - (cons __tmp103281 __tmp103280)))) + (cons __tmp103285 __tmp103284)))) (declare (not safe)) - (cons __tmp103284 __tmp103279))) - (__tmp103214 - (let ((__tmp103254 - (let ((__tmp103277 + (cons __tmp103288 __tmp103283))) + (__tmp103218 + (let ((__tmp103258 + (let ((__tmp103281 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103255 - (let ((__tmp103256 - (let ((__tmp103257 - (let ((__tmp103276 + (__tmp103259 + (let ((__tmp103260 + (let ((__tmp103261 + (let ((__tmp103280 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp103258 - (let ((__tmp103259 - (let ((__tmp103275 + (__tmp103262 + (let ((__tmp103263 + (let ((__tmp103279 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103260 - (let ((__tmp103271 - (lambda (_g100619100633_ - _g100620100636_) - (let ((__tmp103272 - (let ((__tmp103274 + (__tmp103264 + (let ((__tmp103275 + (lambda (_g100623100637_ + _g100624100640_) + (let ((__tmp103276 + (let ((__tmp103278 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103273 + (__tmp103277 (let () (declare (not safe)) - (cons _g100619100633_ + (cons _g100623100637_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp103274 __tmp103273)))) + (cons __tmp103278 __tmp103277)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103272 - _g100620100636_)))) - (__tmp103261 + (cons __tmp103276 + _g100624100640_)))) + (__tmp103265 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L100450_ - _L100452_)) - (let ((__tmp103262 - (lambda (_g100621100639_ - _g100622100642_ - _g100623100644_) - (let ((__tmp103263 - (let ((__tmp103270 + _L100454_ + _L100456_)) + (let ((__tmp103266 + (lambda (_g100625100643_ + _g100626100646_ + _g100627100648_) + (let ((__tmp103267 + (let ((__tmp103274 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!))) - (__tmp103264 - (let ((__tmp103265 - (let ((__tmp103267 - (let ((__tmp103269 + (__tmp103268 + (let ((__tmp103269 + (let ((__tmp103271 + (let ((__tmp103273 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp103268 + (__tmp103272 (let () (declare (not safe)) - (cons _g100622100642_ + (cons _g100626100646_ '())))) (declare (not safe)) - (cons __tmp103269 __tmp103268))) - (__tmp103266 + (cons __tmp103273 __tmp103272))) + (__tmp103270 (let () (declare (not safe)) - (cons _g100621100639_ '())))) + (cons _g100625100643_ '())))) (declare (not safe)) - (cons __tmp103267 __tmp103266)))) + (cons __tmp103271 __tmp103270)))) (declare (not safe)) - (cons _L100590_ __tmp103265)))) + (cons _L100594_ __tmp103269)))) (declare (not safe)) - (cons __tmp103270 __tmp103264)))) + (cons __tmp103274 __tmp103268)))) (declare (not safe)) - (cons __tmp103263 _g100623100644_))))) + (cons __tmp103267 _g100627100648_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp103262 + (foldr2 __tmp103266 '() - _L100450_ - _L100452_))))) + _L100454_ + _L100456_))))) (declare (not safe)) - (foldr1 __tmp103271 - __tmp103261 - _L100592_)))) + (foldr1 __tmp103275 + __tmp103265 + _L100596_)))) (declare (not safe)) - (cons __tmp103275 __tmp103260)))) + (cons __tmp103279 __tmp103264)))) (declare (not safe)) - (cons __tmp103259 '())))) + (cons __tmp103263 '())))) (declare (not safe)) - (cons __tmp103276 __tmp103258)))) + (cons __tmp103280 __tmp103262)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103257 '())))) + (cons __tmp103261 '())))) (declare (not safe)) - (cons _L100593_ __tmp103256)))) + (cons _L100597_ __tmp103260)))) (declare (not safe)) - (cons __tmp103277 __tmp103255))) - (__tmp103215 - (let ((__tmp103216 - (let ((__tmp103253 + (cons __tmp103281 __tmp103259))) + (__tmp103219 + (let ((__tmp103220 + (let ((__tmp103257 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103217 - (let ((__tmp103248 - (let ((__tmp103249 - (let ((__tmp103252 + (__tmp103221 + (let ((__tmp103252 + (let ((__tmp103253 + (let ((__tmp103256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp103250 - (let ((__tmp103251 - (lambda (_g100617100647_ _g100618100650_) + (__tmp103254 + (let ((__tmp103255 + (lambda (_g100621100651_ _g100622100654_) (let () (declare (not safe)) - (cons _g100617100647_ - _g100618100650_))))) + (cons _g100621100651_ + _g100622100654_))))) (declare (not safe)) - (foldr1 __tmp103251 '() _L100456_)))) + (foldr1 __tmp103255 '() _L100460_)))) (declare (not safe)) - (cons __tmp103252 __tmp103250)))) + (cons __tmp103256 __tmp103254)))) (declare (not safe)) - (cons _L100457_ __tmp103249))) - (__tmp103218 - (let ((__tmp103245 - (let ((__tmp103247 + (cons _L100461_ __tmp103253))) + (__tmp103222 + (let ((__tmp103249 + (let ((__tmp103251 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103246 + (__tmp103250 (let () (declare (not safe)) - (cons _L100593_ '())))) + (cons _L100597_ '())))) (declare (not safe)) - (cons __tmp103247 __tmp103246))) - (__tmp103219 - (let ((__tmp103220 - (let ((__tmp103244 + (cons __tmp103251 __tmp103250))) + (__tmp103223 + (let ((__tmp103224 + (let ((__tmp103248 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp103221 - (let ((__tmp103238 - (let ((__tmp103243 + (__tmp103225 + (let ((__tmp103242 + (let ((__tmp103247 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self))) - (__tmp103239 - (let ((__tmp103240 - (let ((__tmp103241 + (__tmp103243 + (let ((__tmp103244 + (let ((__tmp103245 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103242 - (lambda (_g100615100653_ _g100616100656_) + (let ((__tmp103246 + (lambda (_g100619100657_ _g100620100660_) (let () (declare (not safe)) - (cons _g100615100653_ _g100616100656_))))) + (cons _g100619100657_ _g100620100660_))))) (declare (not safe)) - (foldr1 __tmp103242 '() _L100456_)))) + (foldr1 __tmp103246 '() _L100460_)))) (declare (not safe)) - (cons _L100455_ __tmp103241)))) + (cons _L100459_ __tmp103245)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103240 '())))) + (cons __tmp103244 '())))) (declare (not safe)) - (cons __tmp103243 __tmp103239))) - (__tmp103222 - (let ((__tmp103223 - (let ((__tmp103237 + (cons __tmp103247 __tmp103243))) + (__tmp103226 + (let ((__tmp103227 + (let ((__tmp103241 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp103224 - (let ((__tmp103232 + (__tmp103228 + (let ((__tmp103236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103233 - (let ((__tmp103236 + (let ((__tmp103237 + (let ((__tmp103240 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-method))) - (__tmp103234 - (let ((__tmp103235 + (__tmp103238 + (let ((__tmp103239 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)))) (declare (not safe)) - (cons __tmp103235 '())))) + (cons __tmp103239 '())))) (declare (not safe)) - (cons __tmp103236 __tmp103234)))) + (cons __tmp103240 __tmp103238)))) (declare (not safe)) - (cons __tmp103233 '()))) - (__tmp103225 - (let ((__tmp103226 - (let ((__tmp103231 + (cons __tmp103237 '()))) + (__tmp103229 + (let ((__tmp103230 + (let ((__tmp103235 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp103227 - (let ((__tmp103230 + (__tmp103231 + (let ((__tmp103234 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self))) - (__tmp103228 - (let ((__tmp103229 + (__tmp103232 + (let ((__tmp103233 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)))) (declare (not safe)) - (cons __tmp103229 '())))) + (cons __tmp103233 '())))) (declare (not safe)) - (cons __tmp103230 __tmp103228)))) + (cons __tmp103234 __tmp103232)))) (declare (not safe)) - (cons __tmp103231 __tmp103227)))) + (cons __tmp103235 __tmp103231)))) (declare (not safe)) - (cons __tmp103226 '())))) + (cons __tmp103230 '())))) (declare (not safe)) - (cons __tmp103232 __tmp103225)))) + (cons __tmp103236 __tmp103229)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103237 - __tmp103224)))) + (cons __tmp103241 + __tmp103228)))) (declare (not safe)) - (cons __tmp103223 '())))) + (cons __tmp103227 '())))) (declare (not safe)) - (cons __tmp103238 __tmp103222)))) + (cons __tmp103242 __tmp103226)))) (declare (not safe)) - (cons __tmp103244 __tmp103221)))) + (cons __tmp103248 __tmp103225)))) (declare (not safe)) - (cons __tmp103220 '())))) + (cons __tmp103224 '())))) (declare (not safe)) - (cons __tmp103245 __tmp103219)))) + (cons __tmp103249 __tmp103223)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103248 - __tmp103218)))) + (cons __tmp103252 + __tmp103222)))) (declare (not safe)) - (cons __tmp103253 __tmp103217)))) + (cons __tmp103257 __tmp103221)))) (declare (not safe)) - (cons __tmp103216 '())))) + (cons __tmp103220 '())))) (declare (not safe)) - (cons __tmp103254 __tmp103215)))) + (cons __tmp103258 __tmp103219)))) (declare (not safe)) - (cons __tmp103278 __tmp103214)))) + (cons __tmp103282 __tmp103218)))) (declare (not safe)) - (cons __tmp103285 __tmp103213)))) + (cons __tmp103289 __tmp103217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100516100584_ - _super-bind-methods!100514100576_ - _hd100501100534_) - (_g100495100523_ - _g100496100527_)))) - (_g100495100523_ - _g100496100527_))))))) - (_loop100509100556_ _target100506100550_ '())) - (_g100495100523_ _g100496100527_))))) + _hd100520100588_ + _super-bind-methods!100518100580_ + _hd100505100538_) + (_g100499100527_ + _g100500100531_)))) + (_g100499100527_ + _g100500100531_))))))) + (_loop100513100560_ _target100510100554_ '())) + (_g100499100527_ _g100500100531_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g100495100523_ - _g100496100527_)))) - (_g100495100523_ _g100496100527_)))) - (_g100495100523_ _g100496100527_))))) - (_g100494100659_ + (_g100499100527_ + _g100500100531_)))) + (_g100499100527_ _g100500100531_)))) + (_g100499100527_ _g100500100531_))))) + (_g100498100663_ (list (let () (declare (not safe)) (gx#stx-identifier - _L100455_ - _L100455_ + _L100459_ + _L100459_ '"-bind-methods!")) - (map (lambda (_super100663_) + (map (lambda (_super100667_) (let () (declare (not safe)) (gx#stx-identifier - _super100663_ - _super100663_ + _super100667_ + _super100667_ '"-bind-methods!"))) - (let ((__tmp103286 - (lambda (_g100665100668_ - _g100666100671_) + (let ((__tmp103290 + (lambda (_g100669100672_ + _g100670100675_) (let () (declare (not safe)) - (cons _g100665100668_ - _g100666100671_))))) + (cons _g100669100672_ + _g100670100675_))))) (declare (not safe)) - (foldr1 __tmp103286 '() _L100454_))) + (foldr1 __tmp103290 '() _L100458_))) (let () (declare (not safe)) (gx#stx-identifier - _L100455_ - _L100455_ + _L100459_ + _L100459_ '"::t"))))))) - (___kont102946102947_ - (lambda (_L100040_ - _L100042_ - _L100043_ - _L100044_ - _L100045_ + (___kont102950102951_ + (lambda (_L100044_ _L100046_ - _L100047_) - (let* ((_g100090100118_ - (lambda (_g100091100114_) + _L100047_ + _L100048_ + _L100049_ + _L100050_ + _L100051_) + (let* ((_g100094100122_ + (lambda (_g100095100118_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100091100114_)))) - (_g100089100254_ - (lambda (_g100091100122_) + _g100095100118_)))) + (_g100093100258_ + (lambda (_g100095100126_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100091100122_)) - (let ((_e100097100125_ + (gx#stx-pair? _g100095100126_)) + (let ((_e100101100129_ (let () (declare (not safe)) - (gx#syntax-e _g100091100122_)))) - (let ((_hd100096100129_ + (gx#syntax-e _g100095100126_)))) + (let ((_hd100100100133_ (let () (declare (not safe)) - (##car _e100097100125_))) - (_tl100095100132_ + (##car _e100101100129_))) + (_tl100099100136_ (let () (declare (not safe)) - (##cdr _e100097100125_)))) + (##cdr _e100101100129_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100095100132_)) - (let ((_e100100100135_ + (gx#stx-pair? _tl100099100136_)) + (let ((_e100104100139_ (let () (declare (not safe)) (gx#syntax-e - _tl100095100132_)))) - (let ((_hd100099100139_ + _tl100099100136_)))) + (let ((_hd100103100143_ (let () (declare (not safe)) - (##car _e100100100135_))) - (_tl100098100142_ + (##car _e100104100139_))) + (_tl100102100146_ (let () (declare (not safe)) - (##cdr _e100100100135_)))) + (##cdr _e100104100139_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd100099100139_)) - (let ((_g103287_ + _hd100103100143_)) + (let ((_g103291_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd100099100139_ + _hd100103100143_ '0)))) (begin - (let ((_g103288_ + (let ((_g103292_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103287_) - (##vector-length _g103287_) + _g103291_) + (##vector-length _g103291_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g103288_ 2))) - (error "Context expects 2 values" _g103288_))) + (if (not (let () (declare (not safe)) (##fx= _g103292_ 2))) + (error "Context expects 2 values" _g103292_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target100101100145_ + (let ((_target100105100149_ (let () (declare (not safe)) (##vector-ref - _g103287_ + _g103291_ 0))) - (_tl100103100148_ + (_tl100107100152_ (let () (declare (not safe)) (##vector-ref - _g103287_ + _g103291_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100103100148_)) - (letrec ((_loop100104100151_ + _tl100107100152_)) + (letrec ((_loop100108100155_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd100102100155_ - _super-bind-methods!100108100158_) + (lambda (_hd100106100159_ + _super-bind-methods!100112100162_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd100102100155_)) - (let ((_e100105100161_ + (gx#stx-pair? _hd100106100159_)) + (let ((_e100109100165_ (let () (declare (not safe)) - (gx#syntax-e _hd100102100155_)))) - (let ((_lp-hd100106100165_ + (gx#syntax-e _hd100106100159_)))) + (let ((_lp-hd100110100169_ (let () (declare (not safe)) - (##car _e100105100161_))) - (_lp-tl100107100168_ + (##car _e100109100165_))) + (_lp-tl100111100172_ (let () (declare (not safe)) - (##cdr _e100105100161_)))) - (_loop100104100151_ - _lp-tl100107100168_ + (##cdr _e100109100165_)))) + (_loop100108100155_ + _lp-tl100111100172_ (let () (declare (not safe)) - (cons _lp-hd100106100165_ - _super-bind-methods!100108100158_))))) - (let ((_super-bind-methods!100109100171_ - (reverse _super-bind-methods!100108100158_))) + (cons _lp-hd100110100169_ + _super-bind-methods!100112100162_))))) + (let ((_super-bind-methods!100113100175_ + (reverse _super-bind-methods!100112100162_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100098100142_)) - (let ((_e100112100175_ + (gx#stx-pair? _tl100102100146_)) + (let ((_e100116100179_ (let () (declare (not safe)) (gx#syntax-e - _tl100098100142_)))) - (let ((_hd100111100179_ + _tl100102100146_)))) + (let ((_hd100115100183_ (let () (declare (not safe)) - (##car _e100112100175_))) - (_tl100110100182_ + (##car _e100116100179_))) + (_tl100114100186_ (let () (declare (not safe)) - (##cdr _e100112100175_)))) + (##cdr _e100116100179_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100110100182_)) - ((lambda (_L100185_ - _L100187_ - _L100188_) + _tl100114100186_)) + ((lambda (_L100189_ + _L100191_ + _L100192_) (let () - (let ((__tmp103367 + (let ((__tmp103371 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103289 - (let ((__tmp103358 - (let ((__tmp103366 + (__tmp103293 + (let ((__tmp103362 + (let ((__tmp103370 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass))) - (__tmp103359 - (let ((__tmp103363 - (let ((__tmp103364 - (let ((__tmp103365 - (lambda (_g100219100222_ + (__tmp103363 + (let ((__tmp103367 + (let ((__tmp103368 + (let ((__tmp103369 + (lambda (_g100223100226_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g100220100225_) + _g100224100229_) (let () (declare (not safe)) - (cons _g100219100222_ _g100220100225_))))) + (cons _g100223100226_ _g100224100229_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp103365 + (foldr1 __tmp103369 '() - _L100044_)))) + _L100048_)))) (declare (not safe)) - (cons _L100045_ __tmp103364))) - (__tmp103360 - (let ((__tmp103361 - (let ((__tmp103362 + (cons _L100049_ __tmp103368))) + (__tmp103364 + (let ((__tmp103365 + (let ((__tmp103366 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) (cons 'final: - __tmp103362)))) + __tmp103366)))) (declare (not safe)) - (cons _L100043_ __tmp103361)))) + (cons _L100047_ __tmp103365)))) (declare (not safe)) - (cons __tmp103363 __tmp103360)))) + (cons __tmp103367 __tmp103364)))) (declare (not safe)) - (cons __tmp103366 __tmp103359))) - (__tmp103290 - (let ((__tmp103330 - (let ((__tmp103357 + (cons __tmp103370 __tmp103363))) + (__tmp103294 + (let ((__tmp103334 + (let ((__tmp103361 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103331 - (let ((__tmp103332 - (let ((__tmp103333 - (let ((__tmp103356 + (__tmp103335 + (let ((__tmp103336 + (let ((__tmp103337 + (let ((__tmp103360 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp103334 - (let ((__tmp103335 - (let ((__tmp103355 + (__tmp103338 + (let ((__tmp103339 + (let ((__tmp103359 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103336 - (let ((__tmp103351 - (lambda (_g100214100228_ - _g100215100231_) - (let ((__tmp103352 - (let ((__tmp103354 + (__tmp103340 + (let ((__tmp103355 + (lambda (_g100218100232_ + _g100219100235_) + (let ((__tmp103356 + (let ((__tmp103358 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103353 + (__tmp103357 (let () (declare (not safe)) - (cons _g100214100228_ + (cons _g100218100232_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp103354 __tmp103353)))) + (cons __tmp103358 __tmp103357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103352 - _g100215100231_)))) - (__tmp103337 + (cons __tmp103356 + _g100219100235_)))) + (__tmp103341 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L100040_ - _L100042_)) - (let ((__tmp103342 - (lambda (_g100216100234_ - _g100217100237_ - _g100218100239_) - (let ((__tmp103343 - (let ((__tmp103350 + _L100044_ + _L100046_)) + (let ((__tmp103346 + (lambda (_g100220100238_ + _g100221100241_ + _g100222100243_) + (let ((__tmp103347 + (let ((__tmp103354 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!))) - (__tmp103344 - (let ((__tmp103345 - (let ((__tmp103347 - (let ((__tmp103349 + (__tmp103348 + (let ((__tmp103349 + (let ((__tmp103351 + (let ((__tmp103353 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp103348 + (__tmp103352 (let () (declare (not safe)) - (cons _g100217100237_ + (cons _g100221100241_ '())))) (declare (not safe)) - (cons __tmp103349 __tmp103348))) - (__tmp103346 + (cons __tmp103353 __tmp103352))) + (__tmp103350 (let () (declare (not safe)) - (cons _g100216100234_ '())))) + (cons _g100220100238_ '())))) (declare (not safe)) - (cons __tmp103347 __tmp103346)))) + (cons __tmp103351 __tmp103350)))) (declare (not safe)) - (cons _L100185_ __tmp103345)))) + (cons _L100189_ __tmp103349)))) (declare (not safe)) - (cons __tmp103350 __tmp103344)))) + (cons __tmp103354 __tmp103348)))) (declare (not safe)) - (cons __tmp103343 _g100218100239_)))) + (cons __tmp103347 _g100222100243_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp103338 - (let ((__tmp103339 - (let ((__tmp103341 + (__tmp103342 + (let ((__tmp103343 + (let ((__tmp103345 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!))) - (__tmp103340 - (let () (declare (not safe)) (cons _L100185_ '())))) + (__tmp103344 + (let () (declare (not safe)) (cons _L100189_ '())))) (declare (not safe)) - (cons __tmp103341 __tmp103340)))) + (cons __tmp103345 __tmp103344)))) (declare (not safe)) - (cons __tmp103339 '())))) + (cons __tmp103343 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp103342 - __tmp103338 - _L100040_ - _L100042_))))) + (foldr2 __tmp103346 + __tmp103342 + _L100044_ + _L100046_))))) (declare (not safe)) - (foldr1 __tmp103351 - __tmp103337 - _L100187_)))) + (foldr1 __tmp103355 + __tmp103341 + _L100191_)))) (declare (not safe)) - (cons __tmp103355 __tmp103336)))) + (cons __tmp103359 __tmp103340)))) (declare (not safe)) - (cons __tmp103335 '())))) + (cons __tmp103339 '())))) (declare (not safe)) - (cons __tmp103356 __tmp103334)))) + (cons __tmp103360 __tmp103338)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103333 '())))) + (cons __tmp103337 '())))) (declare (not safe)) - (cons _L100188_ __tmp103332)))) + (cons _L100192_ __tmp103336)))) (declare (not safe)) - (cons __tmp103357 __tmp103331))) - (__tmp103291 - (let ((__tmp103292 - (let ((__tmp103329 + (cons __tmp103361 __tmp103335))) + (__tmp103295 + (let ((__tmp103296 + (let ((__tmp103333 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103293 - (let ((__tmp103324 - (let ((__tmp103325 - (let ((__tmp103328 + (__tmp103297 + (let ((__tmp103328 + (let ((__tmp103329 + (let ((__tmp103332 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp103326 - (let ((__tmp103327 - (lambda (_g100212100242_ _g100213100245_) + (__tmp103330 + (let ((__tmp103331 + (lambda (_g100216100246_ _g100217100249_) (let () (declare (not safe)) - (cons _g100212100242_ - _g100213100245_))))) + (cons _g100216100246_ + _g100217100249_))))) (declare (not safe)) - (foldr1 __tmp103327 '() _L100046_)))) + (foldr1 __tmp103331 '() _L100050_)))) (declare (not safe)) - (cons __tmp103328 __tmp103326)))) + (cons __tmp103332 __tmp103330)))) (declare (not safe)) - (cons _L100047_ __tmp103325))) - (__tmp103294 - (let ((__tmp103321 - (let ((__tmp103323 + (cons _L100051_ __tmp103329))) + (__tmp103298 + (let ((__tmp103325 + (let ((__tmp103327 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103322 + (__tmp103326 (let () (declare (not safe)) - (cons _L100188_ '())))) + (cons _L100192_ '())))) (declare (not safe)) - (cons __tmp103323 __tmp103322))) - (__tmp103295 - (let ((__tmp103296 - (let ((__tmp103320 + (cons __tmp103327 __tmp103326))) + (__tmp103299 + (let ((__tmp103300 + (let ((__tmp103324 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp103297 - (let ((__tmp103314 - (let ((__tmp103319 + (__tmp103301 + (let ((__tmp103318 + (let ((__tmp103323 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self))) - (__tmp103315 - (let ((__tmp103316 - (let ((__tmp103317 + (__tmp103319 + (let ((__tmp103320 + (let ((__tmp103321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103318 - (lambda (_g100210100248_ _g100211100251_) + (let ((__tmp103322 + (lambda (_g100214100252_ _g100215100255_) (let () (declare (not safe)) - (cons _g100210100248_ _g100211100251_))))) + (cons _g100214100252_ _g100215100255_))))) (declare (not safe)) - (foldr1 __tmp103318 '() _L100046_)))) + (foldr1 __tmp103322 '() _L100050_)))) (declare (not safe)) - (cons _L100045_ __tmp103317)))) + (cons _L100049_ __tmp103321)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103316 '())))) + (cons __tmp103320 '())))) (declare (not safe)) - (cons __tmp103319 __tmp103315))) - (__tmp103298 - (let ((__tmp103299 - (let ((__tmp103313 + (cons __tmp103323 __tmp103319))) + (__tmp103302 + (let ((__tmp103303 + (let ((__tmp103317 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp103300 - (let ((__tmp103308 + (__tmp103304 + (let ((__tmp103312 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103309 - (let ((__tmp103312 + (let ((__tmp103313 + (let ((__tmp103316 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-method))) - (__tmp103310 - (let ((__tmp103311 + (__tmp103314 + (let ((__tmp103315 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)))) (declare (not safe)) - (cons __tmp103311 '())))) + (cons __tmp103315 '())))) (declare (not safe)) - (cons __tmp103312 __tmp103310)))) + (cons __tmp103316 __tmp103314)))) (declare (not safe)) - (cons __tmp103309 '()))) - (__tmp103301 - (let ((__tmp103302 - (let ((__tmp103307 + (cons __tmp103313 '()))) + (__tmp103305 + (let ((__tmp103306 + (let ((__tmp103311 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp103303 - (let ((__tmp103306 + (__tmp103307 + (let ((__tmp103310 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self))) - (__tmp103304 - (let ((__tmp103305 + (__tmp103308 + (let ((__tmp103309 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)))) (declare (not safe)) - (cons __tmp103305 '())))) + (cons __tmp103309 '())))) (declare (not safe)) - (cons __tmp103306 __tmp103304)))) + (cons __tmp103310 __tmp103308)))) (declare (not safe)) - (cons __tmp103307 __tmp103303)))) + (cons __tmp103311 __tmp103307)))) (declare (not safe)) - (cons __tmp103302 '())))) + (cons __tmp103306 '())))) (declare (not safe)) - (cons __tmp103308 __tmp103301)))) + (cons __tmp103312 __tmp103305)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103313 - __tmp103300)))) + (cons __tmp103317 + __tmp103304)))) (declare (not safe)) - (cons __tmp103299 '())))) + (cons __tmp103303 '())))) (declare (not safe)) - (cons __tmp103314 __tmp103298)))) + (cons __tmp103318 __tmp103302)))) (declare (not safe)) - (cons __tmp103320 __tmp103297)))) + (cons __tmp103324 __tmp103301)))) (declare (not safe)) - (cons __tmp103296 '())))) + (cons __tmp103300 '())))) (declare (not safe)) - (cons __tmp103321 __tmp103295)))) + (cons __tmp103325 __tmp103299)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103324 - __tmp103294)))) + (cons __tmp103328 + __tmp103298)))) (declare (not safe)) - (cons __tmp103329 __tmp103293)))) + (cons __tmp103333 __tmp103297)))) (declare (not safe)) - (cons __tmp103292 '())))) + (cons __tmp103296 '())))) (declare (not safe)) - (cons __tmp103330 __tmp103291)))) + (cons __tmp103334 __tmp103295)))) (declare (not safe)) - (cons __tmp103358 __tmp103290)))) + (cons __tmp103362 __tmp103294)))) (declare (not safe)) - (cons __tmp103367 __tmp103289)))) + (cons __tmp103371 __tmp103293)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100111100179_ - _super-bind-methods!100109100171_ - _hd100096100129_) - (_g100090100118_ - _g100091100122_)))) - (_g100090100118_ - _g100091100122_))))))) - (_loop100104100151_ _target100101100145_ '())) - (_g100090100118_ _g100091100122_))))) + _hd100115100183_ + _super-bind-methods!100113100175_ + _hd100100100133_) + (_g100094100122_ + _g100095100126_)))) + (_g100094100122_ + _g100095100126_))))))) + (_loop100108100155_ _target100105100149_ '())) + (_g100094100122_ _g100095100126_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g100090100118_ - _g100091100122_)))) - (_g100090100118_ _g100091100122_)))) - (_g100090100118_ _g100091100122_))))) - (_g100089100254_ + (_g100094100122_ + _g100095100126_)))) + (_g100094100122_ _g100095100126_)))) + (_g100094100122_ _g100095100126_))))) + (_g100093100258_ (list (let () (declare (not safe)) (gx#stx-identifier - _L100045_ - _L100045_ + _L100049_ + _L100049_ '"-bind-methods!")) - (map (lambda (_super100258_) + (map (lambda (_super100262_) (let () (declare (not safe)) (gx#stx-identifier - _super100258_ - _super100258_ + _super100262_ + _super100262_ '"-bind-methods!"))) - (let ((__tmp103368 - (lambda (_g100260100263_ - _g100261100266_) + (let ((__tmp103372 + (lambda (_g100264100267_ + _g100265100270_) (let () (declare (not safe)) - (cons _g100260100263_ - _g100261100266_))))) + (cons _g100264100267_ + _g100265100270_))))) (declare (not safe)) - (foldr1 __tmp103368 '() _L100044_))) + (foldr1 __tmp103372 '() _L100048_))) (let () (declare (not safe)) (gx#stx-identifier - _L100045_ - _L100045_ + _L100049_ + _L100049_ '"::t")))))))) - (let* ((___match103068103069_ - (lambda (_e9978599852_ - _hd9978499856_ - _tl9978399859_ - _e9978899862_ - _hd9978799866_ - _tl9978699869_ - _e9979199872_ - _hd9979099876_ - _tl9978999879_ - ___splice102948102949_ - _target9979299882_ - _tl9979499885_) - (letrec ((_loop9979599888_ - (lambda (_hd9979399892_ _arg9979999895_) + (let* ((___match103072103073_ + (lambda (_e9978999856_ + _hd9978899860_ + _tl9978799863_ + _e9979299866_ + _hd9979199870_ + _tl9979099873_ + _e9979599876_ + _hd9979499880_ + _tl9979399883_ + ___splice102952102953_ + _target9979699886_ + _tl9979899889_) + (letrec ((_loop9979999892_ + (lambda (_hd9979799896_ _arg9980399899_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9979399892_)) - (let ((_e9979699898_ + (gx#stx-pair? _hd9979799896_)) + (let ((_e9980099902_ (let () (declare (not safe)) - (gx#syntax-e _hd9979399892_)))) - (let ((_lp-tl9979899905_ + (gx#syntax-e _hd9979799896_)))) + (let ((_lp-tl9980299909_ (let () (declare (not safe)) - (##cdr _e9979699898_))) - (_lp-hd9979799902_ + (##cdr _e9980099902_))) + (_lp-hd9980199906_ (let () (declare (not safe)) - (##car _e9979699898_)))) - (_loop9979599888_ - _lp-tl9979899905_ + (##car _e9980099902_)))) + (_loop9979999892_ + _lp-tl9980299909_ (let () (declare (not safe)) - (cons _lp-hd9979799902_ - _arg9979999895_))))) - (let ((_arg9980099908_ - (reverse _arg9979999895_))) + (cons _lp-hd9980199906_ + _arg9980399899_))))) + (let ((_arg9980499912_ + (reverse _arg9980399899_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9978699869_)) - (let ((_e9980399912_ + (gx#stx-pair? _tl9979099873_)) + (let ((_e9980799916_ (let () (declare (not safe)) (gx#syntax-e - _tl9978699869_)))) - (let ((_tl9980199919_ + _tl9979099873_)))) + (let ((_tl9980599923_ (let () (declare (not safe)) - (##cdr _e9980399912_))) - (_hd9980299916_ + (##cdr _e9980799916_))) + (_hd9980699920_ (let () (declare (not safe)) - (##car _e9980399912_)))) + (##car _e9980799916_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd9980299916_)) - (let ((_e9980699922_ + _hd9980699920_)) + (let ((_e9981099926_ (let () (declare (not safe)) (gx#syntax-e - _hd9980299916_)))) - (let ((_tl9980499929_ + _hd9980699920_)))) + (let ((_tl9980899933_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e9980699922_))) - (_hd9980599926_ - (let () (declare (not safe)) (##car _e9980699922_)))) + (##cdr _e9981099926_))) + (_hd9980999930_ + (let () (declare (not safe)) (##car _e9981099926_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9980499929_)) - (let ((___splice102950102951_ + (gx#stx-pair/null? _tl9980899933_)) + (let ((___splice102954102955_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl9980499929_ '0)))) - (let ((_tl9980999935_ + (gx#syntax-split-splice _tl9980899933_ '0)))) + (let ((_tl9981399939_ (let () (declare (not safe)) - (##vector-ref ___splice102950102951_ '1))) - (_target9980799932_ + (##vector-ref ___splice102954102955_ '1))) + (_target9981199936_ (let () (declare (not safe)) - (##vector-ref ___splice102950102951_ '0)))) + (##vector-ref ___splice102954102955_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9980999935_)) - (letrec ((_loop9981099938_ - (lambda (_hd9980899942_ - _super9981499945_) + (gx#stx-null? _tl9981399939_)) + (letrec ((_loop9981499942_ + (lambda (_hd9981299946_ + _super9981899949_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9980899942_)) - (let ((_e9981199948_ + (gx#stx-pair? _hd9981299946_)) + (let ((_e9981599952_ (let () (declare (not safe)) (gx#syntax-e - _hd9980899942_)))) - (let ((_lp-tl9981399955_ + _hd9981299946_)))) + (let ((_lp-tl9981799959_ (let () (declare (not safe)) - (##cdr _e9981199948_))) - (_lp-hd9981299952_ + (##cdr _e9981599952_))) + (_lp-hd9981699956_ (let () (declare (not safe)) - (##car _e9981199948_)))) - (_loop9981099938_ - _lp-tl9981399955_ + (##car _e9981599952_)))) + (_loop9981499942_ + _lp-tl9981799959_ (let () (declare (not safe)) - (cons _lp-hd9981299952_ - _super9981499945_))))) - (let ((_super9981599958_ - (reverse _super9981499945_))) + (cons _lp-hd9981699956_ + _super9981899949_))))) + (let ((_super9981999962_ + (reverse _super9981899949_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9980199919_)) - (let ((_e9981899962_ + _tl9980599923_)) + (let ((_e9982299966_ (let () (declare (not safe)) (gx#syntax-e - _tl9980199919_)))) - (let ((_tl9981699969_ + _tl9980599923_)))) + (let ((_tl9982099973_ (let () (declare (not safe)) - (##cdr _e9981899962_))) - (_hd9981799966_ + (##cdr _e9982299966_))) + (_hd9982199970_ (let () (declare (not safe)) - (##car _e9981899962_)))) + (##car _e9982299966_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9981699969_)) - (let ((_e9982199972_ + _tl9982099973_)) + (let ((_e9982599976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _tl9981699969_)))) - (let ((_tl9981999979_ - (let () (declare (not safe)) (##cdr _e9982199972_))) - (_hd9982099976_ + (gx#syntax-e _tl9982099973_)))) + (let ((_tl9982399983_ + (let () (declare (not safe)) (##cdr _e9982599976_))) + (_hd9982499980_ (let () (declare (not safe)) - (##car _e9982199972_)))) + (##car _e9982599976_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd9982099976_)) - (let ((_e9982299982_ + (gx#stx-datum? _hd9982499980_)) + (let ((_e9982699986_ (let () (declare (not safe)) - (gx#stx-e _hd9982099976_)))) + (gx#stx-e _hd9982499980_)))) (if (let () (declare (not safe)) - (equal? _e9982299982_ 'final:)) + (equal? _e9982699986_ 'final:)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9981999979_)) - (let ((___splice102952102953_ + (gx#stx-pair/null? _tl9982399983_)) + (let ((___splice102956102957_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9981999979_ + _tl9982399983_ '0)))) - (let ((_tl9982599989_ + (let ((_tl9982999993_ (let () (declare (not safe)) (##vector-ref - ___splice102952102953_ + ___splice102956102957_ '1))) - (_target9982399986_ + (_target9982799990_ (let () (declare (not safe)) (##vector-ref - ___splice102952102953_ + ___splice102956102957_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9982599989_)) - (letrec ((_loop9982699992_ - (lambda (_hd9982499996_ - _implementation9983099999_ - _method99831100001_) + (gx#stx-null? _tl9982999993_)) + (letrec ((_loop9983099996_ + (lambda (_hd99828100000_ + _implementation99834100003_ + _method99835100005_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd9982499996_)) - (let ((_e99827100004_ + _hd99828100000_)) + (let ((_e99831100008_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _hd9982499996_)))) - (let ((_lp-tl99829100011_ + (gx#syntax-e _hd99828100000_)))) + (let ((_lp-tl99833100015_ (let () (declare (not safe)) - (##cdr _e99827100004_))) - (_lp-hd99828100008_ + (##cdr _e99831100008_))) + (_lp-hd99832100012_ (let () (declare (not safe)) - (##car _e99827100004_)))) + (##car _e99831100008_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd99828100008_)) - (let ((_e99836100014_ + (gx#stx-pair? _lp-hd99832100012_)) + (let ((_e99840100018_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd99828100008_)))) - (let ((_tl99834100021_ + (gx#syntax-e _lp-hd99832100012_)))) + (let ((_tl99838100025_ (let () (declare (not safe)) - (##cdr _e99836100014_))) - (_hd99835100018_ + (##cdr _e99840100018_))) + (_hd99839100022_ (let () (declare (not safe)) - (##car _e99836100014_)))) + (##car _e99840100018_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99834100021_)) - (let ((_e99839100024_ + (gx#stx-pair? _tl99838100025_)) + (let ((_e99843100028_ (let () (declare (not safe)) - (gx#syntax-e _tl99834100021_)))) - (let ((_tl99837100031_ + (gx#syntax-e _tl99838100025_)))) + (let ((_tl99841100035_ (let () (declare (not safe)) - (##cdr _e99839100024_))) - (_hd99838100028_ + (##cdr _e99843100028_))) + (_hd99842100032_ (let () (declare (not safe)) - (##car _e99839100024_)))) + (##car _e99843100028_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99837100031_)) - (_loop9982699992_ - _lp-tl99829100011_ + (gx#stx-null? _tl99841100035_)) + (_loop9983099996_ + _lp-tl99833100015_ (let () (declare (not safe)) - (cons _hd99838100028_ - _implementation9983099999_)) + (cons _hd99842100032_ + _implementation99834100003_)) (let () (declare (not safe)) - (cons _hd99835100018_ - _method99831100001_))) + (cons _hd99839100022_ + _method99835100005_))) (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))))) - (let () (declare (not safe)) (_g9965199845_))))) - (let ((_method99833100037_ (reverse _method99831100001_)) - (_implementation99832100034_ - (reverse _implementation9983099999_))) - (___kont102946102947_ - _implementation99832100034_ - _method99833100037_ - _hd9981799966_ - _super9981599958_ - _hd9980599926_ - _arg9980099908_ - _hd9979099876_)))))) + (_g9965599849_))))) + (let () (declare (not safe)) (_g9965599849_))))) + (let ((_method99837100041_ (reverse _method99835100005_)) + (_implementation99836100038_ + (reverse _implementation99834100003_))) + (___kont102950102951_ + _implementation99836100038_ + _method99837100041_ + _hd9982199970_ + _super9981999962_ + _hd9980999930_ + _arg9980499912_ + _hd9979499880_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9982699992_ - _target9982399986_ + (_loop9983099996_ + _target9982799990_ '() '())) (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))) - (let () (declare (not safe)) (_g9965199845_)))) - (let () (declare (not safe)) (_g9965199845_))))) - (let () (declare (not safe)) (_g9965199845_))))) + (_g9965599849_))) + (let () (declare (not safe)) (_g9965599849_)))) + (let () (declare (not safe)) (_g9965599849_))))) + (let () (declare (not safe)) (_g9965599849_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965199845_)))))))) - (_loop9981099938_ _target9980799932_ '())) - (let () (declare (not safe)) (_g9965199845_))))) - (let () (declare (not safe)) (_g9965199845_))))) + (_g9965599849_)))))))) + (_loop9981499942_ _target9981199936_ '())) + (let () (declare (not safe)) (_g9965599849_))))) + (let () (declare (not safe)) (_g9965599849_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_)))))))) - (_loop9979599888_ _target9979299882_ '())))) - (___match103042103043_ - (lambda (_e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_) - (letrec ((_loop99735100312_ - (lambda (_hd99733100316_ _arg99739100319_) + (_g9965599849_)))))))) + (_loop9979999892_ _target9979699886_ '())))) + (___match103046103047_ + (lambda (_e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_) + (letrec ((_loop99739100316_ + (lambda (_hd99737100320_ _arg99743100323_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99733100316_)) - (let ((_e99736100322_ + (gx#stx-pair? _hd99737100320_)) + (let ((_e99740100326_ (let () (declare (not safe)) - (gx#syntax-e _hd99733100316_)))) - (let ((_lp-tl99738100329_ + (gx#syntax-e _hd99737100320_)))) + (let ((_lp-tl99742100333_ (let () (declare (not safe)) - (##cdr _e99736100322_))) - (_lp-hd99737100326_ + (##cdr _e99740100326_))) + (_lp-hd99741100330_ (let () (declare (not safe)) - (##car _e99736100322_)))) - (_loop99735100312_ - _lp-tl99738100329_ + (##car _e99740100326_)))) + (_loop99739100316_ + _lp-tl99742100333_ (let () (declare (not safe)) - (cons _lp-hd99737100326_ - _arg99739100319_))))) - (let ((_arg99740100332_ - (reverse _arg99739100319_))) + (cons _lp-hd99741100330_ + _arg99743100323_))))) + (let ((_arg99744100336_ + (reverse _arg99743100323_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99726100293_)) - (let ((_e99743100336_ + (gx#stx-pair? _tl99730100297_)) + (let ((_e99747100340_ (let () (declare (not safe)) (gx#syntax-e - _tl99726100293_)))) - (let ((_tl99741100343_ + _tl99730100297_)))) + (let ((_tl99745100347_ (let () (declare (not safe)) - (##cdr _e99743100336_))) - (_hd99742100340_ + (##cdr _e99747100340_))) + (_hd99746100344_ (let () (declare (not safe)) - (##car _e99743100336_)))) + (##car _e99747100340_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd99742100340_)) - (let ((_e99746100346_ + _hd99746100344_)) + (let ((_e99750100350_ (let () (declare (not safe)) (gx#syntax-e - _hd99742100340_)))) - (let ((_tl99744100353_ + _hd99746100344_)))) + (let ((_tl99748100357_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e99746100346_))) - (_hd99745100350_ - (let () (declare (not safe)) (##car _e99746100346_)))) + (##cdr _e99750100350_))) + (_hd99749100354_ + (let () (declare (not safe)) (##car _e99750100350_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl99744100353_)) - (let ((___splice102942102943_ + (gx#stx-pair/null? _tl99748100357_)) + (let ((___splice102946102947_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl99744100353_ '0)))) - (let ((_tl99749100359_ + (gx#syntax-split-splice _tl99748100357_ '0)))) + (let ((_tl99753100363_ (let () (declare (not safe)) - (##vector-ref ___splice102942102943_ '1))) - (_target99747100356_ + (##vector-ref ___splice102946102947_ '1))) + (_target99751100360_ (let () (declare (not safe)) - (##vector-ref ___splice102942102943_ '0)))) + (##vector-ref ___splice102946102947_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99749100359_)) - (letrec ((_loop99750100362_ - (lambda (_hd99748100366_ - _super99754100369_) + (gx#stx-null? _tl99753100363_)) + (letrec ((_loop99754100366_ + (lambda (_hd99752100370_ + _super99758100373_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99748100366_)) - (let ((_e99751100372_ + (gx#stx-pair? _hd99752100370_)) + (let ((_e99755100376_ (let () (declare (not safe)) (gx#syntax-e - _hd99748100366_)))) - (let ((_lp-tl99753100379_ + _hd99752100370_)))) + (let ((_lp-tl99757100383_ (let () (declare (not safe)) - (##cdr _e99751100372_))) - (_lp-hd99752100376_ + (##cdr _e99755100376_))) + (_lp-hd99756100380_ (let () (declare (not safe)) - (##car _e99751100372_)))) - (_loop99750100362_ - _lp-tl99753100379_ + (##car _e99755100376_)))) + (_loop99754100366_ + _lp-tl99757100383_ (let () (declare (not safe)) - (cons _lp-hd99752100376_ - _super99754100369_))))) - (let ((_super99755100382_ - (reverse _super99754100369_))) + (cons _lp-hd99756100380_ + _super99758100373_))))) + (let ((_super99759100386_ + (reverse _super99758100373_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl99741100343_)) - (let ((_e99758100386_ + _tl99745100347_)) + (let ((_e99762100390_ (let () (declare (not safe)) (gx#syntax-e - _tl99741100343_)))) - (let ((_tl99756100393_ + _tl99745100347_)))) + (let ((_tl99760100397_ (let () (declare (not safe)) - (##cdr _e99758100386_))) - (_hd99757100390_ + (##cdr _e99762100390_))) + (_hd99761100394_ (let () (declare (not safe)) - (##car _e99758100386_)))) + (##car _e99762100390_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99756100393_)) - (let ((___splice102944102945_ + _tl99760100397_)) + (let ((___splice102948102949_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl99756100393_ '0)))) - (let ((_tl99761100399_ + (gx#syntax-split-splice _tl99760100397_ '0)))) + (let ((_tl99765100403_ (let () (declare (not safe)) - (##vector-ref ___splice102944102945_ '1))) - (_target99759100396_ + (##vector-ref ___splice102948102949_ '1))) + (_target99763100400_ (let () (declare (not safe)) - (##vector-ref ___splice102944102945_ '0)))) + (##vector-ref ___splice102948102949_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99761100399_)) - (letrec ((_loop99762100402_ - (lambda (_hd99760100406_ - _implementation99766100409_ - _method99767100411_) + (gx#stx-null? _tl99765100403_)) + (letrec ((_loop99766100406_ + (lambda (_hd99764100410_ + _implementation99770100413_ + _method99771100415_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99760100406_)) - (let ((_e99763100414_ + (gx#stx-pair? _hd99764100410_)) + (let ((_e99767100418_ (let () (declare (not safe)) (gx#syntax-e - _hd99760100406_)))) - (let ((_lp-tl99765100421_ + _hd99764100410_)))) + (let ((_lp-tl99769100425_ (let () (declare (not safe)) - (##cdr _e99763100414_))) - (_lp-hd99764100418_ + (##cdr _e99767100418_))) + (_lp-hd99768100422_ (let () (declare (not safe)) - (##car _e99763100414_)))) + (##car _e99767100418_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd99764100418_)) - (let ((_e99772100424_ + _lp-hd99768100422_)) + (let ((_e99776100428_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd99764100418_)))) - (let ((_tl99770100431_ + _lp-hd99768100422_)))) + (let ((_tl99774100435_ (let () (declare (not safe)) - (##cdr _e99772100424_))) - (_hd99771100428_ + (##cdr _e99776100428_))) + (_hd99775100432_ (let () (declare (not safe)) - (##car _e99772100424_)))) + (##car _e99776100428_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl99770100431_)) - (let ((_e99775100434_ + _tl99774100435_)) + (let ((_e99779100438_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _tl99770100431_)))) - (let ((_tl99773100441_ + (gx#syntax-e _tl99774100435_)))) + (let ((_tl99777100445_ (let () (declare (not safe)) - (##cdr _e99775100434_))) - (_hd99774100438_ + (##cdr _e99779100438_))) + (_hd99778100442_ (let () (declare (not safe)) - (##car _e99775100434_)))) + (##car _e99779100438_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99773100441_)) - (_loop99762100402_ - _lp-tl99765100421_ + (gx#stx-null? _tl99777100445_)) + (_loop99766100406_ + _lp-tl99769100425_ (let () (declare (not safe)) - (cons _hd99774100438_ - _implementation99766100409_)) + (cons _hd99778100442_ + _implementation99770100413_)) (let () (declare (not safe)) - (cons _hd99771100428_ _method99767100411_))) - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_)))) - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_)))) + (cons _hd99775100432_ _method99771100415_))) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_)))) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_)))) - (let ((_method99769100447_ - (reverse _method99767100411_)) - (_implementation99768100444_ - (reverse _implementation99766100409_))) - (___kont102938102939_ - _implementation99768100444_ - _method99769100447_ - _hd99757100390_ - _super99755100382_ - _hd99745100350_ - _arg99740100332_ - _hd99730100300_)))))) - (_loop99762100402_ _target99759100396_ '() '())) - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_)))) - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_)))) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_)))) + (let ((_method99773100451_ + (reverse _method99771100415_)) + (_implementation99772100448_ + (reverse _implementation99770100413_))) + (___kont102942102943_ + _implementation99772100448_ + _method99773100451_ + _hd99761100394_ + _super99759100386_ + _hd99749100354_ + _arg99744100336_ + _hd99734100304_)))))) + (_loop99766100406_ _target99763100400_ '() '())) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_)))) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_))))))) - (_loop99750100362_ _target99747100356_ '())) - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_)))) - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_)))) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_))))))) + (_loop99754100366_ _target99751100360_ '())) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_)))) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_)))) - (___match103068103069_ - _e99725100276_ - _hd99724100280_ - _tl99723100283_ - _e99728100286_ - _hd99727100290_ - _tl99726100293_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_))))))) - (_loop99735100312_ _target99732100306_ '())))) - (___match103016103017_ - (lambda (_e99676100681_ - _hd99675100685_ - _tl99674100688_ - _e99679100691_ - _hd99678100695_ - _tl99677100698_ - _e99680100701_ - _e99683100705_ - _hd99682100709_ - _tl99681100712_ - _e99686100715_ - _hd99685100719_ - _tl99684100722_ - ___splice102934102935_ - _target99687100725_ - _tl99689100728_) - (letrec ((_loop99690100731_ - (lambda (_hd99688100735_ _super99694100738_) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_)))) + (___match103072103073_ + _e99729100280_ + _hd99728100284_ + _tl99727100287_ + _e99732100290_ + _hd99731100294_ + _tl99730100297_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_))))))) + (_loop99739100316_ _target99736100310_ '())))) + (___match103020103021_ + (lambda (_e99680100685_ + _hd99679100689_ + _tl99678100692_ + _e99683100695_ + _hd99682100699_ + _tl99681100702_ + _e99684100705_ + _e99687100709_ + _hd99686100713_ + _tl99685100716_ + _e99690100719_ + _hd99689100723_ + _tl99688100726_ + ___splice102938102939_ + _target99691100729_ + _tl99693100732_) + (letrec ((_loop99694100735_ + (lambda (_hd99692100739_ _super99698100742_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99688100735_)) - (let ((_e99691100741_ + (gx#stx-pair? _hd99692100739_)) + (let ((_e99695100745_ (let () (declare (not safe)) - (gx#syntax-e _hd99688100735_)))) - (let ((_lp-tl99693100748_ + (gx#syntax-e _hd99692100739_)))) + (let ((_lp-tl99697100752_ (let () (declare (not safe)) - (##cdr _e99691100741_))) - (_lp-hd99692100745_ + (##cdr _e99695100745_))) + (_lp-hd99696100749_ (let () (declare (not safe)) - (##car _e99691100741_)))) - (_loop99690100731_ - _lp-tl99693100748_ + (##car _e99695100745_)))) + (_loop99694100735_ + _lp-tl99697100752_ (let () (declare (not safe)) - (cons _lp-hd99692100745_ - _super99694100738_))))) - (let ((_super99695100751_ - (reverse _super99694100738_))) + (cons _lp-hd99696100749_ + _super99698100742_))))) + (let ((_super99699100755_ + (reverse _super99698100742_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99681100712_)) - (let ((_e99698100755_ + (gx#stx-pair? _tl99685100716_)) + (let ((_e99702100759_ (let () (declare (not safe)) (gx#syntax-e - _tl99681100712_)))) - (let ((_tl99696100762_ + _tl99685100716_)))) + (let ((_tl99700100766_ (let () (declare (not safe)) - (##cdr _e99698100755_))) - (_hd99697100759_ + (##cdr _e99702100759_))) + (_hd99701100763_ (let () (declare (not safe)) - (##car _e99698100755_)))) + (##car _e99702100759_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99696100762_)) - (let ((___splice102936102937_ + _tl99700100766_)) + (let ((___splice102940102941_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl99696100762_ + _tl99700100766_ '0)))) - (let ((_tl99701100768_ + (let ((_tl99705100772_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice102936102937_ '1))) - (_target99699100765_ + (##vector-ref ___splice102940102941_ '1))) + (_target99703100769_ (let () (declare (not safe)) - (##vector-ref ___splice102936102937_ '0)))) + (##vector-ref ___splice102940102941_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99701100768_)) - (letrec ((_loop99702100771_ - (lambda (_hd99700100775_ - _implementation99706100778_ - _method99707100780_) + (gx#stx-null? _tl99705100772_)) + (letrec ((_loop99706100775_ + (lambda (_hd99704100779_ + _implementation99710100782_ + _method99711100784_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99700100775_)) - (let ((_e99703100783_ + (gx#stx-pair? _hd99704100779_)) + (let ((_e99707100787_ (let () (declare (not safe)) - (gx#syntax-e _hd99700100775_)))) - (let ((_lp-tl99705100790_ + (gx#syntax-e _hd99704100779_)))) + (let ((_lp-tl99709100794_ (let () (declare (not safe)) - (##cdr _e99703100783_))) - (_lp-hd99704100787_ + (##cdr _e99707100787_))) + (_lp-hd99708100791_ (let () (declare (not safe)) - (##car _e99703100783_)))) + (##car _e99707100787_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd99704100787_)) - (let ((_e99712100793_ + _lp-hd99708100791_)) + (let ((_e99716100797_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd99704100787_)))) - (let ((_tl99710100800_ + _lp-hd99708100791_)))) + (let ((_tl99714100804_ (let () (declare (not safe)) - (##cdr _e99712100793_))) - (_hd99711100797_ + (##cdr _e99716100797_))) + (_hd99715100801_ (let () (declare (not safe)) - (##car _e99712100793_)))) + (##car _e99716100797_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl99710100800_)) - (let ((_e99715100803_ + _tl99714100804_)) + (let ((_e99719100807_ (let () (declare (not safe)) (gx#syntax-e - _tl99710100800_)))) - (let ((_tl99713100810_ + _tl99714100804_)))) + (let ((_tl99717100814_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e99715100803_))) - (_hd99714100807_ - (let () (declare (not safe)) (##car _e99715100803_)))) + (##cdr _e99719100807_))) + (_hd99718100811_ + (let () (declare (not safe)) (##car _e99719100807_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99713100810_)) - (_loop99702100771_ - _lp-tl99705100790_ + (gx#stx-null? _tl99717100814_)) + (_loop99706100775_ + _lp-tl99709100794_ (let () (declare (not safe)) - (cons _hd99714100807_ _implementation99706100778_)) + (cons _hd99718100811_ _implementation99710100782_)) (let () (declare (not safe)) - (cons _hd99711100797_ _method99707100780_))) - (let () (declare (not safe)) (_g9965199845_))))) + (cons _hd99715100801_ _method99711100784_))) + (let () (declare (not safe)) (_g9965599849_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))))) - (let ((_method99709100816_ - (reverse _method99707100780_)) - (_implementation99708100813_ - (reverse _implementation99706100778_))) - (___kont102932102933_ - _implementation99708100813_ - _method99709100816_ - _hd99697100759_ - _super99695100751_ - _hd99685100719_)))))) - (_loop99702100771_ _target99699100765_ '() '())) - (let () (declare (not safe)) (_g9965199845_))))) + (_g9965599849_))))) + (let ((_method99713100820_ + (reverse _method99711100784_)) + (_implementation99712100817_ + (reverse _implementation99710100782_))) + (___kont102936102937_ + _implementation99712100817_ + _method99713100820_ + _hd99701100763_ + _super99699100755_ + _hd99689100723_)))))) + (_loop99706100775_ _target99703100769_ '() '())) + (let () (declare (not safe)) (_g9965599849_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_)))))))) - (_loop99690100731_ _target99687100725_ '())))) - (___match102978102979_ - (lambda (_e99659101025_ - _hd99658101029_ - _tl99657101032_ - _e99662101035_ - _hd99661101039_ - _tl99660101042_ - _e99665101045_ - _hd99664101049_ - _tl99663101052_ - _e99668101055_ - _hd99667101059_ - _tl99666101062_) - (let ((_L101065_ _tl99666101062_) - (_L101067_ _hd99667101059_) - (_L101068_ _hd99664101049_) - (_L101069_ _hd99661101039_)) + (_g9965599849_)))))))) + (_loop99694100735_ _target99691100729_ '())))) + (___match102982102983_ + (lambda (_e99663101029_ + _hd99662101033_ + _tl99661101036_ + _e99666101039_ + _hd99665101043_ + _tl99664101046_ + _e99669101049_ + _hd99668101053_ + _tl99667101056_ + _e99672101059_ + _hd99671101063_ + _tl99670101066_) + (let ((_L101069_ _tl99670101066_) + (_L101071_ _hd99671101063_) + (_L101072_ _hd99668101053_) + (_L101073_ _hd99665101043_)) (if (let () (declare (not safe)) - (gx#identifier? _L101068_)) - (___kont102930102931_ - _L101065_ - _L101067_ - _L101068_ - _L101069_) + (gx#identifier? _L101072_)) + (___kont102934102935_ + _L101069_ + _L101071_ + _L101072_ + _L101073_) (if (let () (declare (not safe)) - (gx#stx-datum? _hd99661101039_)) - (let ((_e99680100701_ + (gx#stx-datum? _hd99665101043_)) + (let ((_e99684100705_ (let () (declare (not safe)) - (gx#stx-e _hd99661101039_)))) + (gx#stx-e _hd99665101043_)))) (if (let () (declare (not safe)) - (equal? _e99680100701_ '#f)) + (equal? _e99684100705_ '#f)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99664101049_)) - (let ((_e99686100715_ + (gx#stx-pair? _hd99668101053_)) + (let ((_e99690100719_ (let () (declare (not safe)) (gx#syntax-e - _hd99664101049_)))) - (let ((_tl99684100722_ + _hd99668101053_)))) + (let ((_tl99688100726_ (let () (declare (not safe)) - (##cdr _e99686100715_))) - (_hd99685100719_ + (##cdr _e99690100719_))) + (_hd99689100723_ (let () (declare (not safe)) - (##car _e99686100715_)))) + (##car _e99690100719_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99684100722_)) - (let ((___splice102934102935_ + _tl99688100726_)) + (let ((___splice102938102939_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl99684100722_ + _tl99688100726_ '0)))) - (let ((_tl99689100728_ + (let ((_tl99693100732_ (let () (declare (not safe)) (##vector-ref - ___splice102934102935_ + ___splice102938102939_ '1))) - (_target99687100725_ + (_target99691100729_ (let () (declare (not safe)) (##vector-ref - ___splice102934102935_ + ___splice102938102939_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl99689100728_)) - (___match103016103017_ - _e99659101025_ - _hd99658101029_ - _tl99657101032_ - _e99662101035_ - _hd99661101039_ - _tl99660101042_ - _e99680100701_ - _e99665101045_ - _hd99664101049_ - _tl99663101052_ - _e99686100715_ - _hd99685100719_ - _tl99684100722_ - ___splice102934102935_ - _target99687100725_ - _tl99689100728_) + _tl99693100732_)) + (___match103020103021_ + _e99663101029_ + _hd99662101033_ + _tl99661101036_ + _e99666101039_ + _hd99665101043_ + _tl99664101046_ + _e99684100705_ + _e99669101049_ + _hd99668101053_ + _tl99667101056_ + _e99690100719_ + _hd99689100723_ + _tl99688100726_ + ___splice102938102939_ + _target99691100729_ + _tl99693100732_) (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))) + (_g9965599849_))) (let () (declare (not safe)) - (_g9965199845_)))) + (_g9965599849_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99661101039_)) - (let ((_e99731100296_ + (gx#stx-pair? _hd99665101043_)) + (let ((_e99735100300_ (let () (declare (not safe)) - (gx#syntax-e _hd99661101039_)))) - (let ((_tl99729100303_ + (gx#syntax-e _hd99665101043_)))) + (let ((_tl99733100307_ (let () (declare (not safe)) - (##cdr _e99731100296_))) - (_hd99730100300_ + (##cdr _e99735100300_))) + (_hd99734100304_ (let () (declare (not safe)) - (##car _e99731100296_)))) + (##car _e99735100300_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99729100303_)) - (let ((___splice102940102941_ + _tl99733100307_)) + (let ((___splice102944102945_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl99729100303_ + _tl99733100307_ '0)))) - (let ((_tl99734100309_ + (let ((_tl99738100313_ (let () (declare (not safe)) (##vector-ref - ___splice102940102941_ + ___splice102944102945_ '1))) - (_target99732100306_ + (_target99736100310_ (let () (declare (not safe)) (##vector-ref - ___splice102940102941_ + ___splice102944102945_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl99734100309_)) - (___match103042103043_ - _e99659101025_ - _hd99658101029_ - _tl99657101032_ - _e99662101035_ - _hd99661101039_ - _tl99660101042_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_) + _tl99738100313_)) + (___match103046103047_ + _e99663101029_ + _hd99662101033_ + _tl99661101036_ + _e99666101039_ + _hd99665101043_ + _tl99664101046_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_) (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))))))))) + (_g9965599849_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx102927102928_)) - (let ((_e99659101025_ + (gx#stx-pair? ___stx102931102932_)) + (let ((_e99663101029_ (let () (declare (not safe)) - (gx#syntax-e ___stx102927102928_)))) - (let ((_tl99657101032_ + (gx#syntax-e ___stx102931102932_)))) + (let ((_tl99661101036_ (let () (declare (not safe)) - (##cdr _e99659101025_))) - (_hd99658101029_ + (##cdr _e99663101029_))) + (_hd99662101033_ (let () (declare (not safe)) - (##car _e99659101025_)))) + (##car _e99663101029_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99657101032_)) - (let ((_e99662101035_ + (gx#stx-pair? _tl99661101036_)) + (let ((_e99666101039_ (let () (declare (not safe)) - (gx#syntax-e _tl99657101032_)))) - (let ((_tl99660101042_ + (gx#syntax-e _tl99661101036_)))) + (let ((_tl99664101046_ (let () (declare (not safe)) - (##cdr _e99662101035_))) - (_hd99661101039_ + (##cdr _e99666101039_))) + (_hd99665101043_ (let () (declare (not safe)) - (##car _e99662101035_)))) + (##car _e99666101039_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99660101042_)) - (let ((_e99665101045_ + (gx#stx-pair? _tl99664101046_)) + (let ((_e99669101049_ (let () (declare (not safe)) - (gx#syntax-e _tl99660101042_)))) - (let ((_tl99663101052_ + (gx#syntax-e _tl99664101046_)))) + (let ((_tl99667101056_ (let () (declare (not safe)) - (##cdr _e99665101045_))) - (_hd99664101049_ + (##cdr _e99669101049_))) + (_hd99668101053_ (let () (declare (not safe)) - (##car _e99665101045_)))) + (##car _e99669101049_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99663101052_)) - (let ((_e99668101055_ + (gx#stx-pair? _tl99667101056_)) + (let ((_e99672101059_ (let () (declare (not safe)) (gx#syntax-e - _tl99663101052_)))) - (let ((_tl99666101062_ + _tl99667101056_)))) + (let ((_tl99670101066_ (let () (declare (not safe)) - (##cdr _e99668101055_))) - (_hd99667101059_ + (##cdr _e99672101059_))) + (_hd99671101063_ (let () (declare (not safe)) - (##car _e99668101055_)))) - (___match102978102979_ - _e99659101025_ - _hd99658101029_ - _tl99657101032_ - _e99662101035_ - _hd99661101039_ - _tl99660101042_ - _e99665101045_ - _hd99664101049_ - _tl99663101052_ - _e99668101055_ - _hd99667101059_ - _tl99666101062_))) + (##car _e99672101059_)))) + (___match102982102983_ + _e99663101029_ + _hd99662101033_ + _tl99661101036_ + _e99666101039_ + _hd99665101043_ + _tl99664101046_ + _e99669101049_ + _hd99668101053_ + _tl99667101056_ + _e99672101059_ + _hd99671101063_ + _tl99670101066_))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd99661101039_)) - (let ((_e99680100701_ + _hd99665101043_)) + (let ((_e99684100705_ (let () (declare (not safe)) (gx#stx-e - _hd99661101039_)))) + _hd99665101043_)))) (if (let () (declare (not safe)) - (equal? _e99680100701_ + (equal? _e99684100705_ '#f)) (if (let () (declare (not safe)) (gx#stx-pair? - _hd99664101049_)) - (let ((_e99686100715_ + _hd99668101053_)) + (let ((_e99690100719_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd99664101049_)))) - (let ((_tl99684100722_ - (let () (declare (not safe)) (##cdr _e99686100715_))) - (_hd99685100719_ - (let () (declare (not safe)) (##car _e99686100715_)))) + (gx#syntax-e _hd99668101053_)))) + (let ((_tl99688100726_ + (let () (declare (not safe)) (##cdr _e99690100719_))) + (_hd99689100723_ + (let () (declare (not safe)) (##car _e99690100719_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl99684100722_)) - (let ((___splice102934102935_ + (gx#stx-pair/null? _tl99688100726_)) + (let ((___splice102938102939_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl99684100722_ '0)))) - (let ((_tl99689100728_ + (gx#syntax-split-splice _tl99688100726_ '0)))) + (let ((_tl99693100732_ (let () (declare (not safe)) - (##vector-ref ___splice102934102935_ '1))) - (_target99687100725_ + (##vector-ref ___splice102938102939_ '1))) + (_target99691100729_ (let () (declare (not safe)) - (##vector-ref ___splice102934102935_ '0)))) + (##vector-ref ___splice102938102939_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99689100728_)) - (___match103016103017_ - _e99659101025_ - _hd99658101029_ - _tl99657101032_ - _e99662101035_ - _hd99661101039_ - _tl99660101042_ - _e99680100701_ - _e99665101045_ - _hd99664101049_ - _tl99663101052_ - _e99686100715_ - _hd99685100719_ - _tl99684100722_ - ___splice102934102935_ - _target99687100725_ - _tl99689100728_) + (gx#stx-null? _tl99693100732_)) + (___match103020103021_ + _e99663101029_ + _hd99662101033_ + _tl99661101036_ + _e99666101039_ + _hd99665101043_ + _tl99664101046_ + _e99684100705_ + _e99669101049_ + _hd99668101053_ + _tl99667101056_ + _e99690100719_ + _hd99689100723_ + _tl99688100726_ + ___splice102938102939_ + _target99691100729_ + _tl99693100732_) (let () (declare (not safe)) - (_g9965199845_))))) - (let () (declare (not safe)) (_g9965199845_))))) - (let () (declare (not safe)) (_g9965199845_))) + (_g9965599849_))))) + (let () (declare (not safe)) (_g9965599849_))))) + (let () (declare (not safe)) (_g9965599849_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965199845_)))) + (_g9965599849_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd99661101039_)) - (let ((_e99731100296_ + _hd99665101043_)) + (let ((_e99735100300_ (let () (declare (not safe)) (gx#syntax-e - _hd99661101039_)))) - (let ((_tl99729100303_ + _hd99665101043_)))) + (let ((_tl99733100307_ (let () (declare (not safe)) - (##cdr _e99731100296_))) - (_hd99730100300_ + (##cdr _e99735100300_))) + (_hd99734100304_ (let () (declare (not safe)) - (##car _e99731100296_)))) + (##car _e99735100300_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99729100303_)) - (let ((___splice102940102941_ + _tl99733100307_)) + (let ((___splice102944102945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl99729100303_ '0)))) - (let ((_tl99734100309_ + (gx#syntax-split-splice _tl99733100307_ '0)))) + (let ((_tl99738100313_ (let () (declare (not safe)) - (##vector-ref ___splice102940102941_ '1))) - (_target99732100306_ + (##vector-ref ___splice102944102945_ '1))) + (_target99736100310_ (let () (declare (not safe)) - (##vector-ref ___splice102940102941_ '0)))) + (##vector-ref ___splice102944102945_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99734100309_)) - (___match103042103043_ - _e99659101025_ - _hd99658101029_ - _tl99657101032_ - _e99662101035_ - _hd99661101039_ - _tl99660101042_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_) - (let () (declare (not safe)) (_g9965199845_))))) - (let () (declare (not safe)) (_g9965199845_))))) + (gx#stx-null? _tl99738100313_)) + (___match103046103047_ + _e99663101029_ + _hd99662101033_ + _tl99661101036_ + _e99666101039_ + _hd99665101043_ + _tl99664101046_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_) + (let () (declare (not safe)) (_g9965599849_))))) + (let () (declare (not safe)) (_g9965599849_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965199845_))))))) + (_g9965599849_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd99661101039_)) - (let ((_e99680100701_ + (gx#stx-datum? _hd99665101043_)) + (let ((_e99684100705_ (let () (declare (not safe)) - (gx#stx-e _hd99661101039_)))) + (gx#stx-e _hd99665101043_)))) (declare (not safe)) - (_g9965199845_)) + (_g9965599849_)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99661101039_)) - (let ((_e99731100296_ + (gx#stx-pair? _hd99665101043_)) + (let ((_e99735100300_ (let () (declare (not safe)) (gx#syntax-e - _hd99661101039_)))) - (let ((_tl99729100303_ + _hd99665101043_)))) + (let ((_tl99733100307_ (let () (declare (not safe)) - (##cdr _e99731100296_))) - (_hd99730100300_ + (##cdr _e99735100300_))) + (_hd99734100304_ (let () (declare (not safe)) - (##car _e99731100296_)))) + (##car _e99735100300_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99729100303_)) - (let ((___splice102940102941_ + _tl99733100307_)) + (let ((___splice102944102945_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl99729100303_ + _tl99733100307_ '0)))) - (let ((_tl99734100309_ + (let ((_tl99738100313_ (let () (declare (not safe)) (##vector-ref - ___splice102940102941_ + ___splice102944102945_ '1))) - (_target99732100306_ + (_target99736100310_ (let () (declare (not safe)) (##vector-ref - ___splice102940102941_ + ___splice102944102945_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl99734100309_)) - (___match103042103043_ - _e99659101025_ - _hd99658101029_ - _tl99657101032_ - _e99662101035_ - _hd99661101039_ - _tl99660101042_ - _e99731100296_ - _hd99730100300_ - _tl99729100303_ - ___splice102940102941_ - _target99732100306_ - _tl99734100309_) + _tl99738100313_)) + (___match103046103047_ + _e99663101029_ + _hd99662101033_ + _tl99661101036_ + _e99666101039_ + _hd99665101043_ + _tl99664101046_ + _e99735100300_ + _hd99734100304_ + _tl99733100307_ + ___splice102944102945_ + _target99736100310_ + _tl99738100313_) (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))))) + (_g9965599849_))))) (let () (declare (not safe)) - (_g9965199845_))))))) - (let () (declare (not safe)) (_g9965199845_))))) - (let () (declare (not safe)) (_g9965199845_)))))))) + (_g9965599849_))))))) + (let () (declare (not safe)) (_g9965599849_))))) + (let () (declare (not safe)) (_g9965599849_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj103070 + (let ((__obj103074 (let () (declare (not safe)) (##structure @@ -3003,7 +3003,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 'gxc#::void-expression::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3011,7 +3011,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '::void-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3019,7 +3019,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3027,7 +3027,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3035,7 +3035,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3043,7 +3043,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3051,7 +3051,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3059,39 +3059,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103369 |gxc[1]#_g103370_|)) + (let ((__tmp103373 |gxc[1]#_g103374_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103070 - __tmp103369 + __obj103074 + __tmp103373 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103371 |gxc[1]#_g103372_|)) + (let ((__tmp103375 |gxc[1]#_g103376_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103070 - __tmp103371 + __obj103074 + __tmp103375 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103373 |gxc[1]#_g103374_|)) + (let ((__tmp103377 |gxc[1]#_g103378_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103070 - __tmp103373 + __obj103074 + __tmp103377 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3099,7 +3099,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3107,7 +3107,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3115,14 +3115,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103070 + __obj103074 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103070)) + __obj103074)) (define |gxc[:0:]#::void-special-form| - (let ((__obj103071 + (let ((__obj103075 (let () (declare (not safe)) (##structure @@ -3146,7 +3146,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 'gxc#::void-special-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3154,7 +3154,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '::void-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3162,7 +3162,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3170,7 +3170,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3178,7 +3178,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3186,7 +3186,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3194,7 +3194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3202,39 +3202,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103375 |gxc[1]#_g103376_|)) + (let ((__tmp103379 |gxc[1]#_g103380_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103071 - __tmp103375 + __obj103075 + __tmp103379 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103377 |gxc[1]#_g103378_|)) + (let ((__tmp103381 |gxc[1]#_g103382_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103071 - __tmp103377 + __obj103075 + __tmp103381 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103379 |gxc[1]#_g103380_|)) + (let ((__tmp103383 |gxc[1]#_g103384_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103071 - __tmp103379 + __obj103075 + __tmp103383 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3242,7 +3242,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3258,14 +3258,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103071 + __obj103075 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103071)) + __obj103075)) (define |gxc[:0:]#::void| - (let ((__obj103072 + (let ((__obj103076 (let () (declare (not safe)) (##structure @@ -3289,7 +3289,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 'gxc#::void::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3297,7 +3297,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '::void '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3305,30 +3305,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103381 - (let ((__tmp103385 |gxc[1]#_g103386_|) - (__tmp103382 - (let ((__tmp103383 |gxc[1]#_g103384_|)) + (let ((__tmp103385 + (let ((__tmp103389 |gxc[1]#_g103390_|) + (__tmp103386 + (let ((__tmp103387 |gxc[1]#_g103388_|)) (declare (not safe)) - (cons __tmp103383 '())))) + (cons __tmp103387 '())))) (declare (not safe)) - (cons __tmp103385 __tmp103382)))) + (cons __tmp103389 __tmp103386)))) (declare (not safe)) (##unchecked-structure-set! - __obj103072 - __tmp103381 + __obj103076 + __tmp103385 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3336,7 +3336,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3344,7 +3344,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3352,39 +3352,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103387 |gxc[1]#_g103388_|)) + (let ((__tmp103391 |gxc[1]#_g103392_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103072 - __tmp103387 + __obj103076 + __tmp103391 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103389 |gxc[1]#_g103390_|)) + (let ((__tmp103393 |gxc[1]#_g103394_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103072 - __tmp103389 + __obj103076 + __tmp103393 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103391 |gxc[1]#_g103392_|)) + (let ((__tmp103395 |gxc[1]#_g103396_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103072 - __tmp103391 + __obj103076 + __tmp103395 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3392,7 +3392,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3400,7 +3400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3408,14 +3408,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103072 + __obj103076 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103072)) + __obj103076)) (define |gxc[:0:]#::false-expression| - (let ((__obj103073 + (let ((__obj103077 (let () (declare (not safe)) (##structure @@ -3439,7 +3439,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 'gxc#::false-expression::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3447,7 +3447,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '::false-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3455,7 +3455,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3463,7 +3463,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3471,7 +3471,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3479,7 +3479,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3487,7 +3487,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3495,39 +3495,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103393 |gxc[1]#_g103394_|)) + (let ((__tmp103397 |gxc[1]#_g103398_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103073 - __tmp103393 + __obj103077 + __tmp103397 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103395 |gxc[1]#_g103396_|)) + (let ((__tmp103399 |gxc[1]#_g103400_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103073 - __tmp103395 + __obj103077 + __tmp103399 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103397 |gxc[1]#_g103398_|)) + (let ((__tmp103401 |gxc[1]#_g103402_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103073 - __tmp103397 + __obj103077 + __tmp103401 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3535,7 +3535,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3543,7 +3543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3551,14 +3551,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103073 + __obj103077 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103073)) + __obj103077)) (define |gxc[:0:]#::false-special-form| - (let ((__obj103074 + (let ((__obj103078 (let () (declare (not safe)) (##structure @@ -3582,7 +3582,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 'gxc#::false-special-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3590,7 +3590,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '::false-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3598,7 +3598,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3606,7 +3606,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3614,7 +3614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3622,7 +3622,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3630,7 +3630,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3638,39 +3638,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103399 |gxc[1]#_g103400_|)) + (let ((__tmp103403 |gxc[1]#_g103404_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103074 - __tmp103399 + __obj103078 + __tmp103403 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103401 |gxc[1]#_g103402_|)) + (let ((__tmp103405 |gxc[1]#_g103406_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103074 - __tmp103401 + __obj103078 + __tmp103405 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103403 |gxc[1]#_g103404_|)) + (let ((__tmp103407 |gxc[1]#_g103408_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103074 - __tmp103403 + __obj103078 + __tmp103407 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3678,7 +3678,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3686,7 +3686,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3694,14 +3694,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103078 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103074)) + __obj103078)) (define |gxc[:0:]#::false| - (let ((__obj103075 + (let ((__obj103079 (let () (declare (not safe)) (##structure @@ -3725,7 +3725,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 'gxc#::false::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3733,7 +3733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '::false '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3741,30 +3741,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103405 - (let ((__tmp103409 |gxc[1]#_g103410_|) - (__tmp103406 - (let ((__tmp103407 |gxc[1]#_g103408_|)) + (let ((__tmp103409 + (let ((__tmp103413 |gxc[1]#_g103414_|) + (__tmp103410 + (let ((__tmp103411 |gxc[1]#_g103412_|)) (declare (not safe)) - (cons __tmp103407 '())))) + (cons __tmp103411 '())))) (declare (not safe)) - (cons __tmp103409 __tmp103406)))) + (cons __tmp103413 __tmp103410)))) (declare (not safe)) (##unchecked-structure-set! - __obj103075 - __tmp103405 + __obj103079 + __tmp103409 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3772,7 +3772,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3780,7 +3780,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3788,39 +3788,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103411 |gxc[1]#_g103412_|)) + (let ((__tmp103415 |gxc[1]#_g103416_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103075 - __tmp103411 + __obj103079 + __tmp103415 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103413 |gxc[1]#_g103414_|)) + (let ((__tmp103417 |gxc[1]#_g103418_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103075 - __tmp103413 + __obj103079 + __tmp103417 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103415 |gxc[1]#_g103416_|)) + (let ((__tmp103419 |gxc[1]#_g103420_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103075 - __tmp103415 + __obj103079 + __tmp103419 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3828,7 +3828,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3836,7 +3836,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3844,14 +3844,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103079 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103075)) + __obj103079)) (define |gxc[:0:]#::identity-expression| - (let ((__obj103076 + (let ((__obj103080 (let () (declare (not safe)) (##structure @@ -3875,7 +3875,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 'gxc#::identity-expression::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3883,7 +3883,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '::identity-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3891,7 +3891,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3899,7 +3899,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3907,7 +3907,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3915,7 +3915,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3923,7 +3923,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3931,39 +3931,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103417 |gxc[1]#_g103418_|)) + (let ((__tmp103421 |gxc[1]#_g103422_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103076 - __tmp103417 + __obj103080 + __tmp103421 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103419 |gxc[1]#_g103420_|)) + (let ((__tmp103423 |gxc[1]#_g103424_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103076 - __tmp103419 + __obj103080 + __tmp103423 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103421 |gxc[1]#_g103422_|)) + (let ((__tmp103425 |gxc[1]#_g103426_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103076 - __tmp103421 + __obj103080 + __tmp103425 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3971,7 +3971,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3979,7 +3979,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3987,14 +3987,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103080 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103076)) + __obj103080)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj103077 + (let ((__obj103081 (let () (declare (not safe)) (##structure @@ -4018,7 +4018,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 'gxc#::identity-special-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4026,7 +4026,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '::identity-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4034,7 +4034,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -4042,7 +4042,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -4050,7 +4050,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4058,7 +4058,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4066,7 +4066,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4074,39 +4074,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103423 |gxc[1]#_g103424_|)) + (let ((__tmp103427 |gxc[1]#_g103428_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103077 - __tmp103423 + __obj103081 + __tmp103427 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103425 |gxc[1]#_g103426_|)) + (let ((__tmp103429 |gxc[1]#_g103430_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103077 - __tmp103425 + __obj103081 + __tmp103429 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103427 |gxc[1]#_g103428_|)) + (let ((__tmp103431 |gxc[1]#_g103432_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103077 - __tmp103427 + __obj103081 + __tmp103431 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4114,7 +4114,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4122,7 +4122,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4130,14 +4130,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103081 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103077)) + __obj103081)) (define |gxc[:0:]#::identity| - (let ((__obj103078 + (let ((__obj103082 (let () (declare (not safe)) (##structure @@ -4161,7 +4161,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 'gxc#::identity::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4169,7 +4169,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '::identity '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4177,30 +4177,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103429 - (let ((__tmp103433 |gxc[1]#_g103434_|) - (__tmp103430 - (let ((__tmp103431 |gxc[1]#_g103432_|)) + (let ((__tmp103433 + (let ((__tmp103437 |gxc[1]#_g103438_|) + (__tmp103434 + (let ((__tmp103435 |gxc[1]#_g103436_|)) (declare (not safe)) - (cons __tmp103431 '())))) + (cons __tmp103435 '())))) (declare (not safe)) - (cons __tmp103433 __tmp103430)))) + (cons __tmp103437 __tmp103434)))) (declare (not safe)) (##unchecked-structure-set! - __obj103078 - __tmp103429 + __obj103082 + __tmp103433 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4208,7 +4208,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4216,7 +4216,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4224,39 +4224,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103435 |gxc[1]#_g103436_|)) + (let ((__tmp103439 |gxc[1]#_g103440_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103078 - __tmp103435 + __obj103082 + __tmp103439 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103437 |gxc[1]#_g103438_|)) + (let ((__tmp103441 |gxc[1]#_g103442_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103078 - __tmp103437 + __obj103082 + __tmp103441 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103439 |gxc[1]#_g103440_|)) + (let ((__tmp103443 |gxc[1]#_g103444_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103078 - __tmp103439 + __obj103082 + __tmp103443 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4264,7 +4264,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4272,7 +4272,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4280,14 +4280,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103082 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103078)) + __obj103082)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj103079 + (let ((__obj103083 (let () (declare (not safe)) (##structure @@ -4311,7 +4311,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 'gxc#::basic-xform-expression::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4319,7 +4319,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '::basic-xform-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4327,7 +4327,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -4335,7 +4335,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -4343,7 +4343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4351,7 +4351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4359,7 +4359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4367,39 +4367,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103441 |gxc[1]#_g103442_|)) + (let ((__tmp103445 |gxc[1]#_g103446_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103079 - __tmp103441 + __obj103083 + __tmp103445 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103443 |gxc[1]#_g103444_|)) + (let ((__tmp103447 |gxc[1]#_g103448_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103079 - __tmp103443 + __obj103083 + __tmp103447 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103445 |gxc[1]#_g103446_|)) + (let ((__tmp103449 |gxc[1]#_g103450_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103079 - __tmp103445 + __obj103083 + __tmp103449 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4407,7 +4407,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4415,7 +4415,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4423,14 +4423,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103083 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103079)) + __obj103083)) (define |gxc[:0:]#::basic-xform| - (let ((__obj103080 + (let ((__obj103084 (let () (declare (not safe)) (##structure @@ -4454,7 +4454,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 'gxc#::basic-xform::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4462,7 +4462,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '::basic-xform '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4470,30 +4470,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103447 - (let ((__tmp103451 |gxc[1]#_g103452_|) - (__tmp103448 - (let ((__tmp103449 |gxc[1]#_g103450_|)) + (let ((__tmp103451 + (let ((__tmp103455 |gxc[1]#_g103456_|) + (__tmp103452 + (let ((__tmp103453 |gxc[1]#_g103454_|)) (declare (not safe)) - (cons __tmp103449 '())))) + (cons __tmp103453 '())))) (declare (not safe)) - (cons __tmp103451 __tmp103448)))) + (cons __tmp103455 __tmp103452)))) (declare (not safe)) (##unchecked-structure-set! - __obj103080 - __tmp103447 + __obj103084 + __tmp103451 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4501,7 +4501,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4509,7 +4509,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4517,39 +4517,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103453 |gxc[1]#_g103454_|)) + (let ((__tmp103457 |gxc[1]#_g103458_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103080 - __tmp103453 + __obj103084 + __tmp103457 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103455 |gxc[1]#_g103456_|)) + (let ((__tmp103459 |gxc[1]#_g103460_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103080 - __tmp103455 + __obj103084 + __tmp103459 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103457 |gxc[1]#_g103458_|)) + (let ((__tmp103461 |gxc[1]#_g103462_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103080 - __tmp103457 + __obj103084 + __tmp103461 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4557,7 +4557,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4565,7 +4565,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4573,9 +4573,9 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103084 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103080)))) + __obj103084)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index 13bcbf54d..134fea064 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm @@ -1,30 +1,30 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1710781152) + (define gerbil/compiler/optimize-ann::timestamp 1710833427) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp152101 (list gxc#::basic-xform::t)) - (__tmp152099 - (let ((__tmp152100 + (let ((__tmp152105 (list gxc#::basic-xform::t)) + (__tmp152103 + (let ((__tmp152104 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp152100 '())))) + (cons __tmp152104 '())))) (declare (not safe)) (make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp152101 + __tmp152105 '() - __tmp152099 + __tmp152103 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _$args148971_ - (apply make-instance gxc#::optimize-annotated::t _$args148971_))) + (lambda _$args148975_ + (apply make-instance gxc#::optimize-annotated::t _$args148975_))) (define gxc#::optimize-annotated-bind-methods! (make-promise (lambda () @@ -39,46 +39,46 @@ (declare (not safe)) (seal-class! gxc#::optimize-annotated::t))))) (define gxc#apply-optimize-annotated - (lambda (_stx148963_) + (lambda (_stx148967_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_self148966_ - (let ((__obj152091 + (let* ((_self148970_ + (let ((__obj152095 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj152091)) - (__tmp152102 + __obj152095)) + (__tmp152106 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self148966_ _stx148963_))))) + (gxc#compile-e__1 _self148970_ _stx148967_))))) (declare (not safe)) (call-with-parameters - __tmp152102 + __tmp152106 gxc#current-compile-method - _self148966_)))) + _self148970_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp152105 (list gxc#::generate-runtime::t)) - (__tmp152103 - (let ((__tmp152104 + (let ((__tmp152109 (list gxc#::generate-runtime::t)) + (__tmp152107 + (let ((__tmp152108 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp152104 '())))) + (cons __tmp152108 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp152105 + __tmp152109 '() - __tmp152103 + __tmp152107 '#f))) (define gxc#::generate-runtime-repr? (let () (declare (not safe)) (make-class-predicate gxc#::generate-runtime-repr::t))) (define gxc#make-::generate-runtime-repr - (lambda _$args148960_ - (apply make-instance gxc#::generate-runtime-repr::t _$args148960_))) + (lambda _$args148964_ + (apply make-instance gxc#::generate-runtime-repr::t _$args148964_))) (define gxc#::generate-runtime-repr-bind-methods! (make-promise (lambda () @@ -93,46 +93,46 @@ (declare (not safe)) (seal-class! gxc#::generate-runtime-repr::t))))) (define gxc#apply-generate-runtime-repr - (lambda (_stx148952_) + (lambda (_stx148956_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_self148955_ - (let ((__obj152093 + (let* ((_self148959_ + (let ((__obj152097 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj152093)) - (__tmp152106 + __obj152097)) + (__tmp152110 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self148955_ _stx148952_))))) + (gxc#compile-e__1 _self148959_ _stx148956_))))) (declare (not safe)) (call-with-parameters - __tmp152106 + __tmp152110 gxc#current-compile-method - _self148955_)))) + _self148959_)))) (define gxc#::push-match-vars::t - (let ((__tmp152109 (list)) - (__tmp152107 - (let ((__tmp152108 + (let ((__tmp152113 (list)) + (__tmp152111 + (let ((__tmp152112 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp152108 '())))) + (cons __tmp152112 '())))) (declare (not safe)) (make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp152109 + __tmp152113 '(vars K) - __tmp152107 + __tmp152111 '#f))) (define gxc#::push-match-vars? (let () (declare (not safe)) (make-class-predicate gxc#::push-match-vars::t))) (define gxc#make-::push-match-vars - (lambda _$args148949_ - (apply make-instance gxc#::push-match-vars::t _$args148949_))) + (lambda _$args148953_ + (apply make-instance gxc#::push-match-vars::t _$args148953_))) (define gxc#::push-match-vars-vars (let () (declare (not safe)) @@ -202,95 +202,95 @@ (declare (not safe)) (seal-class! gxc#::push-match-vars::t))))) (define gxc#apply-push-match-vars__% - (lambda (_g152110_ _vars148915148919_ _K148916148921_ _stx148923_) - (let* ((_vars148926_ + (lambda (_g152114_ _vars148919148923_ _K148920148925_ _stx148927_) + (let* ((_vars148930_ (if (let () (declare (not safe)) - (eq? _vars148915148919_ absent-value)) + (eq? _vars148919148923_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _vars148915148919_)) - (_K148928_ + _vars148919148923_)) + (_K148932_ (if (let () (declare (not safe)) - (eq? _K148916148921_ absent-value)) + (eq? _K148920148925_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _K148916148921_))) + _K148920148925_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_self148930_ - (let ((__obj152095 + (let* ((_self148934_ + (let ((__obj152099 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152095 - _vars148926_ + __obj152099 + _vars148930_ '1 gxc#::push-match-vars::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152095 - _K148928_ + __obj152099 + _K148932_ '2 gxc#::push-match-vars::t '#f)) - __obj152095)) - (__tmp152111 + __obj152099)) + (__tmp152115 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self148930_ _stx148923_))))) + (gxc#compile-e__1 _self148934_ _stx148927_))))) (declare (not safe)) (call-with-parameters - __tmp152111 + __tmp152115 gxc#current-compile-method - _self148930_))))) + _self148934_))))) (define gxc#apply-push-match-vars__@ - (lambda (_keys148914148937_ . _args148939_) + (lambda (_keys148918148941_ . _args148943_) (apply gxc#apply-push-match-vars__% - _keys148914148937_ + _keys148918148941_ (let () (declare (not safe)) - (symbolic-table-ref _keys148914148937_ 'vars: absent-value)) + (symbolic-table-ref _keys148918148941_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys148914148937_ 'K: absent-value)) - _args148939_))) + (symbolic-table-ref _keys148918148941_ 'K: absent-value)) + _args148943_))) (define gxc#apply-push-match-vars - (lambda _args148917148945_ + (lambda _args148921148949_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _args148917148945_))) + _args148921148949_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_self148721_ _stx148722_) - (let* ((___stx148987148988_ _stx148722_) - (_g148726148767_ + (lambda (_self148725_ _stx148726_) + (let* ((___stx148991148992_ _stx148726_) + (_g148730148771_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148987148988_))))) - (let ((___kont148989148990_ - (lambda (_L148889_ _L148890_) - (let ((_ann148904_ - (let () (declare (not safe)) (gx#stx-e _L148890_)))) - (let ((__tmp152114 + ___stx148991148992_))))) + (let ((___kont148993148994_ + (lambda (_L148893_ _L148894_) + (let ((_ann148908_ + (let () (declare (not safe)) (gx#stx-e _L148894_)))) + (let ((__tmp152118 (lambda () - (let ((_$e148907_ _ann148904_)) + (let ((_$e148911_ _ann148908_)) (if (let () (declare (not safe)) - (eq? '@match _$e148907_)) + (eq? '@match _$e148911_)) (begin (let () (declare (not safe)) @@ -298,10 +298,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L148889_))) + (gxc#optimize-match _L148893_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e148907_)) + (eq? '@syntax-case _$e148911_)) (begin (let () (declare (not safe)) @@ -310,2011 +310,2011 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L148889_))) + _L148893_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L148889_))))))) - (__tmp152112 - (let ((__tmp152113 + (gxc#compile-e__0 _L148893_))))))) + (__tmp152116 + (let ((__tmp152117 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann148904_ __tmp152113)))) + (cons _ann148908_ __tmp152117)))) (declare (not safe)) (call-with-parameters - __tmp152114 + __tmp152118 gxc#current-annotation-optimizer - __tmp152112))))) - (___kont148991148992_ - (lambda (_L148835_ _L148836_ _L148837_) - (let () (declare (not safe)) (gxc#compile-e__0 _L148835_)))) + __tmp152116))))) (___kont148995148996_ + (lambda (_L148839_ _L148840_ _L148841_) + (let () (declare (not safe)) (gxc#compile-e__0 _L148839_)))) + (___kont148999149000_ (lambda () (let () (declare (not safe)) - (gxc#xform-begin-annotation% _self148721_ _stx148722_))))) - (let* ((___match149042149043_ - (lambda (_e148744148779_ - _hd148743148782_ - _tl148742148784_ - _e148747148787_ - _hd148746148790_ - _tl148745148792_ - _e148750148795_ - _hd148749148798_ - _tl148748148800_ - ___splice148993148994_ - _target148751148803_ - _tl148753148805_) - (letrec ((_loop148754148808_ - (lambda (_hd148752148811_ _param148758148813_) + (gxc#xform-begin-annotation% _self148725_ _stx148726_))))) + (let* ((___match149046149047_ + (lambda (_e148748148783_ + _hd148747148786_ + _tl148746148788_ + _e148751148791_ + _hd148750148794_ + _tl148749148796_ + _e148754148799_ + _hd148753148802_ + _tl148752148804_ + ___splice148997148998_ + _target148755148807_ + _tl148757148809_) + (letrec ((_loop148758148812_ + (lambda (_hd148756148815_ _param148762148817_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148752148811_)) - (let ((_e148755148816_ + (gx#stx-pair? _hd148756148815_)) + (let ((_e148759148820_ (let () (declare (not safe)) - (gx#stx-e _hd148752148811_)))) - (let ((_lp-tl148757148821_ + (gx#stx-e _hd148756148815_)))) + (let ((_lp-tl148761148825_ (let () (declare (not safe)) - (##cdr _e148755148816_))) - (_lp-hd148756148819_ + (##cdr _e148759148820_))) + (_lp-hd148760148823_ (let () (declare (not safe)) - (##car _e148755148816_)))) - (let ((__tmp152116 + (##car _e148759148820_)))) + (let ((__tmp152120 (let () (declare (not safe)) - (cons _lp-hd148756148819_ - _param148758148813_)))) + (cons _lp-hd148760148823_ + _param148762148817_)))) (declare (not safe)) - (_loop148754148808_ - _lp-tl148757148821_ - __tmp152116)))) - (let ((_param148759148824_ - (reverse _param148758148813_))) + (_loop148758148812_ + _lp-tl148761148825_ + __tmp152120)))) + (let ((_param148763148828_ + (reverse _param148762148817_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148745148792_)) - (let ((_e148762148827_ + (gx#stx-pair? _tl148749148796_)) + (let ((_e148766148831_ (let () (declare (not safe)) (gx#stx-e - _tl148745148792_)))) - (let ((_tl148760148832_ + _tl148749148796_)))) + (let ((_tl148764148836_ (let () (declare (not safe)) - (##cdr _e148762148827_))) - (_hd148761148830_ + (##cdr _e148766148831_))) + (_hd148765148834_ (let () (declare (not safe)) - (##car _e148762148827_)))) + (##car _e148766148831_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148760148832_)) - (let ((_L148835_ - _hd148761148830_) - (_L148836_ - _param148759148824_) - (_L148837_ - _hd148749148798_)) + _tl148764148836_)) + (let ((_L148839_ + _hd148765148834_) + (_L148840_ + _param148763148828_) + (_L148841_ + _hd148753148802_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L148837_)) - (let ((__tmp152115 + (gx#identifier? _L148841_)) + (let ((__tmp152119 (memq (let () (declare (not safe)) - (gx#stx-e _L148837_)) + (gx#stx-e _L148841_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp152115))) - (___kont148991148992_ _L148835_ _L148836_ _L148837_) - (___kont148995148996_))) + (not __tmp152119))) + (___kont148995148996_ _L148839_ _L148840_ _L148841_) + (___kont148999149000_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148995148996_)))) - (___kont148995148996_))))))) + (___kont148999149000_)))) + (___kont148999149000_))))))) (let () (declare (not safe)) - (_loop148754148808_ _target148751148803_ '()))))) - (___match149016149017_ - (lambda (_e148732148865_ - _hd148731148868_ - _tl148730148870_ - _e148735148873_ - _hd148734148876_ - _tl148733148878_ - _e148738148881_ - _hd148737148884_ - _tl148736148886_) - (let ((_L148889_ _hd148737148884_) - (_L148890_ _hd148734148876_)) + (_loop148758148812_ _target148755148807_ '()))))) + (___match149020149021_ + (lambda (_e148736148869_ + _hd148735148872_ + _tl148734148874_ + _e148739148877_ + _hd148738148880_ + _tl148737148882_ + _e148742148885_ + _hd148741148888_ + _tl148740148890_) + (let ((_L148893_ _hd148741148888_) + (_L148894_ _hd148738148880_)) (if (let () (declare (not safe)) - (gx#identifier? _L148890_)) - (___kont148989148990_ _L148889_ _L148890_) + (gx#identifier? _L148894_)) + (___kont148993148994_ _L148893_ _L148894_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148734148876_)) - (let ((_e148750148795_ + (gx#stx-pair? _hd148738148880_)) + (let ((_e148754148799_ (let () (declare (not safe)) - (gx#stx-e _hd148734148876_)))) - (let ((_tl148748148800_ + (gx#stx-e _hd148738148880_)))) + (let ((_tl148752148804_ (let () (declare (not safe)) - (##cdr _e148750148795_))) - (_hd148749148798_ + (##cdr _e148754148799_))) + (_hd148753148802_ (let () (declare (not safe)) - (##car _e148750148795_)))) + (##car _e148754148799_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl148748148800_)) - (let ((___splice148993148994_ + (gx#stx-pair/null? _tl148752148804_)) + (let ((___splice148997148998_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl148748148800_ + _tl148752148804_ '0)))) - (let ((_tl148753148805_ + (let ((_tl148757148809_ (let () (declare (not safe)) (##vector-ref - ___splice148993148994_ + ___splice148997148998_ '1))) - (_target148751148803_ + (_target148755148807_ (let () (declare (not safe)) (##vector-ref - ___splice148993148994_ + ___splice148997148998_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148753148805_)) - (___match149042149043_ - _e148732148865_ - _hd148731148868_ - _tl148730148870_ - _e148735148873_ - _hd148734148876_ - _tl148733148878_ - _e148750148795_ - _hd148749148798_ - _tl148748148800_ - ___splice148993148994_ - _target148751148803_ - _tl148753148805_) - (___kont148995148996_)))) - (___kont148995148996_)))) - (___kont148995148996_))))))) + _tl148757148809_)) + (___match149046149047_ + _e148736148869_ + _hd148735148872_ + _tl148734148874_ + _e148739148877_ + _hd148738148880_ + _tl148737148882_ + _e148754148799_ + _hd148753148802_ + _tl148752148804_ + ___splice148997148998_ + _target148755148807_ + _tl148757148809_) + (___kont148999149000_)))) + (___kont148999149000_)))) + (___kont148999149000_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148987148988_)) - (let ((_e148732148865_ + (gx#stx-pair? ___stx148991148992_)) + (let ((_e148736148869_ (let () (declare (not safe)) - (gx#stx-e ___stx148987148988_)))) - (let ((_tl148730148870_ + (gx#stx-e ___stx148991148992_)))) + (let ((_tl148734148874_ (let () (declare (not safe)) - (##cdr _e148732148865_))) - (_hd148731148868_ + (##cdr _e148736148869_))) + (_hd148735148872_ (let () (declare (not safe)) - (##car _e148732148865_)))) + (##car _e148736148869_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148730148870_)) - (let ((_e148735148873_ + (gx#stx-pair? _tl148734148874_)) + (let ((_e148739148877_ (let () (declare (not safe)) - (gx#stx-e _tl148730148870_)))) - (let ((_tl148733148878_ + (gx#stx-e _tl148734148874_)))) + (let ((_tl148737148882_ (let () (declare (not safe)) - (##cdr _e148735148873_))) - (_hd148734148876_ + (##cdr _e148739148877_))) + (_hd148738148880_ (let () (declare (not safe)) - (##car _e148735148873_)))) + (##car _e148739148877_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148733148878_)) - (let ((_e148738148881_ + (gx#stx-pair? _tl148737148882_)) + (let ((_e148742148885_ (let () (declare (not safe)) - (gx#stx-e _tl148733148878_)))) - (let ((_tl148736148886_ + (gx#stx-e _tl148737148882_)))) + (let ((_tl148740148890_ (let () (declare (not safe)) - (##cdr _e148738148881_))) - (_hd148737148884_ + (##cdr _e148742148885_))) + (_hd148741148888_ (let () (declare (not safe)) - (##car _e148738148881_)))) + (##car _e148742148885_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148736148886_)) - (___match149016149017_ - _e148732148865_ - _hd148731148868_ - _tl148730148870_ - _e148735148873_ - _hd148734148876_ - _tl148733148878_ - _e148738148881_ - _hd148737148884_ - _tl148736148886_) + (gx#stx-null? _tl148740148890_)) + (___match149020149021_ + _e148736148869_ + _hd148735148872_ + _tl148734148874_ + _e148739148877_ + _hd148738148880_ + _tl148737148882_ + _e148742148885_ + _hd148741148888_ + _tl148740148890_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd148734148876_)) - (let ((_e148750148795_ + _hd148738148880_)) + (let ((_e148754148799_ (let () (declare (not safe)) (gx#stx-e - _hd148734148876_)))) - (let ((_tl148748148800_ + _hd148738148880_)))) + (let ((_tl148752148804_ (let () (declare (not safe)) - (##cdr _e148750148795_))) - (_hd148749148798_ + (##cdr _e148754148799_))) + (_hd148753148802_ (let () (declare (not safe)) - (##car _e148750148795_)))) + (##car _e148754148799_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl148748148800_)) - (let ((___splice148993148994_ + _tl148752148804_)) + (let ((___splice148997148998_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl148748148800_ '0)))) - (let ((_tl148753148805_ + (gx#syntax-split-splice _tl148752148804_ '0)))) + (let ((_tl148757148809_ (let () (declare (not safe)) - (##vector-ref ___splice148993148994_ '1))) - (_target148751148803_ + (##vector-ref ___splice148997148998_ '1))) + (_target148755148807_ (let () (declare (not safe)) - (##vector-ref ___splice148993148994_ '0)))) + (##vector-ref ___splice148997148998_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148753148805_)) - (___match149042149043_ - _e148732148865_ - _hd148731148868_ - _tl148730148870_ - _e148735148873_ - _hd148734148876_ - _tl148733148878_ - _e148750148795_ - _hd148749148798_ - _tl148748148800_ - ___splice148993148994_ - _target148751148803_ - _tl148753148805_) - (___kont148995148996_)))) - (___kont148995148996_)))) + (gx#stx-null? _tl148757148809_)) + (___match149046149047_ + _e148736148869_ + _hd148735148872_ + _tl148734148874_ + _e148739148877_ + _hd148738148880_ + _tl148737148882_ + _e148754148799_ + _hd148753148802_ + _tl148752148804_ + ___splice148997148998_ + _target148755148807_ + _tl148757148809_) + (___kont148999149000_)))) + (___kont148999149000_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148995148996_))))) + (___kont148999149000_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148734148876_)) - (let ((_e148750148795_ + (gx#stx-pair? _hd148738148880_)) + (let ((_e148754148799_ (let () (declare (not safe)) - (gx#stx-e _hd148734148876_)))) - (let ((_tl148748148800_ + (gx#stx-e _hd148738148880_)))) + (let ((_tl148752148804_ (let () (declare (not safe)) - (##cdr _e148750148795_))) - (_hd148749148798_ + (##cdr _e148754148799_))) + (_hd148753148802_ (let () (declare (not safe)) - (##car _e148750148795_)))) + (##car _e148754148799_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl148748148800_)) - (let ((___splice148993148994_ + _tl148752148804_)) + (let ((___splice148997148998_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl148748148800_ + _tl148752148804_ '0)))) - (let ((_tl148753148805_ + (let ((_tl148757148809_ (let () (declare (not safe)) (##vector-ref - ___splice148993148994_ + ___splice148997148998_ '1))) - (_target148751148803_ + (_target148755148807_ (let () (declare (not safe)) (##vector-ref - ___splice148993148994_ + ___splice148997148998_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148753148805_)) - (___match149042149043_ - _e148732148865_ - _hd148731148868_ - _tl148730148870_ - _e148735148873_ - _hd148734148876_ - _tl148733148878_ - _e148750148795_ - _hd148749148798_ - _tl148748148800_ - ___splice148993148994_ - _target148751148803_ - _tl148753148805_) - (___kont148995148996_)))) - (___kont148995148996_)))) - (___kont148995148996_))))) - (___kont148995148996_)))) - (___kont148995148996_))))))) + _tl148757148809_)) + (___match149046149047_ + _e148736148869_ + _hd148735148872_ + _tl148734148874_ + _e148739148877_ + _hd148738148880_ + _tl148737148882_ + _e148754148799_ + _hd148753148802_ + _tl148752148804_ + ___splice148997148998_ + _target148755148807_ + _tl148757148809_) + (___kont148999149000_)))) + (___kont148999149000_)))) + (___kont148999149000_))))) + (___kont148999149000_)))) + (___kont148999149000_))))))) (define gxc#optimize-match - (lambda (_stx148020_) - (let* ((_g148022148052_ - (lambda (_g148023148049_) + (lambda (_stx148024_) + (let* ((_g148026148056_ + (lambda (_g148027148053_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g148023148049_)))) - (_g148021148718_ - (lambda (_g148023148055_) + _g148027148053_)))) + (_g148025148722_ + (lambda (_g148027148059_) (if (let () (declare (not safe)) - (gx#stx-pair? _g148023148055_)) - (let ((_e148029148057_ + (gx#stx-pair? _g148027148059_)) + (let ((_e148033148061_ (let () (declare (not safe)) - (gx#stx-e _g148023148055_)))) - (let ((_hd148028148060_ + (gx#stx-e _g148027148059_)))) + (let ((_hd148032148064_ (let () (declare (not safe)) - (##car _e148029148057_))) - (_tl148027148062_ + (##car _e148033148061_))) + (_tl148031148066_ (let () (declare (not safe)) - (##cdr _e148029148057_)))) + (##cdr _e148033148061_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd148028148060_)) + (gx#identifier? _hd148032148064_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd148028148060_)) + _hd148032148064_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148027148062_)) - (let ((_e148032148065_ + (gx#stx-pair? _tl148031148066_)) + (let ((_e148036148069_ (let () (declare (not safe)) - (gx#stx-e _tl148027148062_)))) - (let ((_hd148031148068_ + (gx#stx-e _tl148031148066_)))) + (let ((_hd148035148072_ (let () (declare (not safe)) - (##car _e148032148065_))) - (_tl148030148070_ + (##car _e148036148069_))) + (_tl148034148074_ (let () (declare (not safe)) - (##cdr _e148032148065_)))) + (##cdr _e148036148069_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd148031148068_)) - (let ((_e148035148073_ + _hd148035148072_)) + (let ((_e148039148077_ (let () (declare (not safe)) (gx#stx-e - _hd148031148068_)))) - (let ((_hd148034148076_ + _hd148035148072_)))) + (let ((_hd148038148080_ (let () (declare (not safe)) - (##car _e148035148073_))) - (_tl148033148078_ + (##car _e148039148077_))) + (_tl148037148082_ (let () (declare (not safe)) - (##cdr _e148035148073_)))) + (##cdr _e148039148077_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd148034148076_)) - (let ((_e148038148081_ + _hd148038148080_)) + (let ((_e148042148085_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd148034148076_)))) - (let ((_hd148037148084_ - (let () (declare (not safe)) (##car _e148038148081_))) - (_tl148036148086_ - (let () (declare (not safe)) (##cdr _e148038148081_)))) + (gx#stx-e _hd148038148080_)))) + (let ((_hd148041148088_ + (let () (declare (not safe)) (##car _e148042148085_))) + (_tl148040148090_ + (let () (declare (not safe)) (##cdr _e148042148085_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148037148084_)) - (let ((_e148041148089_ + (gx#stx-pair? _hd148041148088_)) + (let ((_e148045148093_ (let () (declare (not safe)) - (gx#stx-e _hd148037148084_)))) - (let ((_hd148040148092_ + (gx#stx-e _hd148041148088_)))) + (let ((_hd148044148096_ (let () (declare (not safe)) - (##car _e148041148089_))) - (_tl148039148094_ + (##car _e148045148093_))) + (_tl148043148098_ (let () (declare (not safe)) - (##cdr _e148041148089_)))) + (##cdr _e148045148093_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148039148094_)) + (gx#stx-null? _tl148043148098_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148036148086_)) - (let ((_e148044148097_ + (gx#stx-pair? _tl148040148090_)) + (let ((_e148048148101_ (let () (declare (not safe)) - (gx#stx-e _tl148036148086_)))) - (let ((_hd148043148100_ + (gx#stx-e _tl148040148090_)))) + (let ((_hd148047148104_ (let () (declare (not safe)) - (##car _e148044148097_))) - (_tl148042148102_ + (##car _e148048148101_))) + (_tl148046148106_ (let () (declare (not safe)) - (##cdr _e148044148097_)))) + (##cdr _e148048148101_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148042148102_)) + (gx#stx-null? _tl148046148106_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl148033148078_)) + _tl148037148082_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148030148070_)) - (let ((_e148047148105_ + _tl148034148074_)) + (let ((_e148051148109_ (let () (declare (not safe)) (gx#stx-e - _tl148030148070_)))) - (let ((_hd148046148108_ + _tl148034148074_)))) + (let ((_hd148050148112_ (let () (declare (not safe)) - (##car _e148047148105_))) - (_tl148045148110_ + (##car _e148051148109_))) + (_tl148049148114_ (let () (declare (not safe)) - (##cdr _e148047148105_)))) + (##cdr _e148051148109_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148045148110_)) - ((lambda (_L148113_ + _tl148049148114_)) + ((lambda (_L148117_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L148114_ - _L148115_) - (let _lp148139_ ((_body148141_ _L148113_) - (_negation148142_ + _L148118_ + _L148119_) + (let _lp148143_ ((_body148145_ _L148117_) + (_negation148146_ (let () (declare (not safe)) - (cons _L148115_ _L148114_))) - (_clauses148143_ '()) - (_konts148144_ '())) - (let* ((___stx149225149226_ _body148141_) - (_g148147148187_ + (cons _L148119_ _L148118_))) + (_clauses148147_ '()) + (_konts148148_ '())) + (let* ((___stx149229149230_ _body148145_) + (_g148151148191_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149225149226_))))) - (let ((___kont149227149228_ - (lambda (_L148517_) - (let* ((___stx149161149162_ _L148517_) - (_g148531148561_ + ___stx149229149230_))))) + (let ((___kont149231149232_ + (lambda (_L148521_) + (let* ((___stx149165149166_ _L148521_) + (_g148535148565_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149161149162_))))) - (let ((___kont149163149164_ - (lambda (_L148657_ - _L148658_ - _L148659_) + ___stx149165149166_))))) + (let ((___kont149167149168_ + (lambda (_L148661_ + _L148662_ + _L148663_) (if (let () (declare (not safe)) - (null? _clauses148143_)) - (let* ((_negation148683148690_ - _negation148142_) - (_E148685148694_ + (null? _clauses148147_)) + (let* ((_negation148687148694_ + _negation148146_) + (_E148689148698_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation148683148690_)))) - (_K148686148700_ - (lambda (_negate148697_ _E148698_) - (let ((__tmp152126 - (let ((__tmp152127 - (let ((__tmp152137 - (let ((__tmp152138 - (let ((__tmp152140 + _negation148687148694_)))) + (_K148690148704_ + (lambda (_negate148701_ _E148702_) + (let ((__tmp152130 + (let ((__tmp152131 + (let ((__tmp152141 + (let ((__tmp152142 + (let ((__tmp152144 (let () (declare (not safe)) - (cons _E148698_ '()))) - (__tmp152139 + (cons _E148702_ '()))) + (__tmp152143 (let () (declare (not safe)) - (cons _negate148697_ + (cons _negate148701_ '())))) (declare (not safe)) - (cons __tmp152140 - __tmp152139)))) + (cons __tmp152144 + __tmp152143)))) (declare (not safe)) - (cons __tmp152138 '()))) - (__tmp152128 - (let ((__tmp152129 - (let ((__tmp152130 - (let ((__tmp152132 - (let ((__tmp152133 + (cons __tmp152142 '()))) + (__tmp152132 + (let ((__tmp152133 + (let ((__tmp152134 + (let ((__tmp152136 + (let ((__tmp152137 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152136 + (let ((__tmp152140 (let () (declare (not safe)) - (cons _L148659_ '()))) - (__tmp152134 - (let ((__tmp152135 + (cons _L148663_ '()))) + (__tmp152138 + (let ((__tmp152139 (let () (declare (not safe)) - (gxc#compile-e__0 _L148658_)))) + (gxc#compile-e__0 _L148662_)))) (declare (not safe)) - (cons __tmp152135 '())))) + (cons __tmp152139 '())))) (declare (not safe)) - (cons __tmp152136 __tmp152134)))) + (cons __tmp152140 __tmp152138)))) (declare (not safe)) - (cons __tmp152133 '()))) - (__tmp152131 - (let () (declare (not safe)) (cons _L148657_ '())))) + (cons __tmp152137 '()))) + (__tmp152135 + (let () (declare (not safe)) (cons _L148661_ '())))) (declare (not safe)) - (cons __tmp152132 __tmp152131)))) + (cons __tmp152136 __tmp152135)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152130)))) + __tmp152134)))) (declare (not safe)) - (cons __tmp152129 '())))) + (cons __tmp152133 '())))) (declare (not safe)) - (cons __tmp152137 __tmp152128)))) + (cons __tmp152141 __tmp152132)))) (declare (not safe)) - (cons '%#let-values __tmp152127)))) + (cons '%#let-values __tmp152131)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152126 _stx148020_))))) + (gxc#xform-wrap-source __tmp152130 _stx148024_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation148683148690_)) - (let ((_hd148687148703_ + (##pair? _negation148687148694_)) + (let ((_hd148691148707_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation148683148690_))) - (_tl148688148705_ + (##car _negation148687148694_))) + (_tl148692148709_ (let () (declare (not safe)) - (##cdr _negation148683148690_)))) - (let* ((_E148708_ _hd148687148703_) - (_negate148710_ _tl148688148705_)) + (##cdr _negation148687148694_)))) + (let* ((_E148712_ _hd148691148707_) + (_negate148714_ _tl148692148709_)) (declare (not safe)) - (_K148686148700_ _negate148710_ _E148708_))) - (let () (declare (not safe)) (_E148685148694_)))) + (_K148690148704_ _negate148714_ _E148712_))) + (let () (declare (not safe)) (_E148689148698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp152120 - (let ((__tmp152121 - (let ((__tmp152122 + (let ((__tmp152124 + (let ((__tmp152125 + (let ((__tmp152126 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152125 + (let ((__tmp152129 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp152123 - (let ((__tmp152124 + (__tmp152127 + (let ((__tmp152128 (let () (declare (not safe)) - (cons _L148657_ '())))) + (cons _L148661_ '())))) (declare (not safe)) - (cons '() __tmp152124)))) + (cons '() __tmp152128)))) (declare (not safe)) - (cons __tmp152125 __tmp152123)))) + (cons __tmp152129 __tmp152127)))) (declare (not safe)) - (cons '#f __tmp152122)))) + (cons '#f __tmp152126)))) (declare (not safe)) - (cons __tmp152121 _clauses148143_))) - (__tmp152117 - (let ((__tmp152118 - (let ((__tmp152119 + (cons __tmp152125 _clauses148147_))) + (__tmp152121 + (let ((__tmp152122 + (let ((__tmp152123 (let () (declare (not safe)) - (gxc#compile-e__0 _L148658_)))) + (gxc#compile-e__0 _L148662_)))) (declare (not safe)) - (cons _L148659_ __tmp152119)))) + (cons _L148663_ __tmp152123)))) (declare (not safe)) - (cons __tmp152118 _konts148144_)))) + (cons __tmp152122 _konts148148_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx148020_ - _negation148142_ - __tmp152120 - __tmp152117))))) - (___kont149165149166_ + _stx148024_ + _negation148146_ + __tmp152124 + __tmp152121))))) + (___kont149169149170_ (lambda () - (let* ((_negation148567148574_ - _negation148142_) - (_E148569148578_ + (let* ((_negation148571148578_ + _negation148146_) + (_E148573148582_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation148567148574_)))) - (_K148570148584_ - (lambda (_negate148581_ - _E148582_) - (let ((__tmp152141 - (let ((__tmp152142 + _negation148571148578_)))) + (_K148574148588_ + (lambda (_negate148585_ + _E148586_) + (let ((__tmp152145 + (let ((__tmp152146 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152144 - (let ((__tmp152145 - (let ((__tmp152147 + (let ((__tmp152148 + (let ((__tmp152149 + (let ((__tmp152151 (let () (declare (not safe)) - (cons _E148582_ '()))) - (__tmp152146 + (cons _E148586_ '()))) + (__tmp152150 (let () (declare (not safe)) - (cons _negate148581_ + (cons _negate148585_ '())))) (declare (not safe)) - (cons __tmp152147 __tmp152146)))) + (cons __tmp152151 __tmp152150)))) (declare (not safe)) - (cons __tmp152145 '()))) - (__tmp152143 + (cons __tmp152149 '()))) + (__tmp152147 (let () (declare (not safe)) - (cons _L148517_ '())))) + (cons _L148521_ '())))) (declare (not safe)) - (cons __tmp152144 __tmp152143)))) + (cons __tmp152148 __tmp152147)))) (declare (not safe)) - (cons '%#let-values __tmp152142)))) + (cons '%#let-values __tmp152146)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152141 _stx148020_))))) + (gxc#xform-wrap-source __tmp152145 _stx148024_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation148567148574_)) - (let ((_hd148571148587_ + (##pair? _negation148571148578_)) + (let ((_hd148575148591_ (let () (declare (not safe)) - (##car _negation148567148574_))) - (_tl148572148589_ + (##car _negation148571148578_))) + (_tl148576148593_ (let () (declare (not safe)) - (##cdr _negation148567148574_)))) - (let* ((_E148592_ - _hd148571148587_) - (_negate148594_ - _tl148572148589_)) + (##cdr _negation148571148578_)))) + (let* ((_E148596_ + _hd148575148591_) + (_negate148598_ + _tl148576148593_)) (declare (not safe)) - (_K148570148584_ - _negate148594_ - _E148592_))) + (_K148574148588_ + _negate148598_ + _E148596_))) (let () (declare (not safe)) - (_E148569148578_))))))) - (let ((_g148530148596_ + (_E148573148582_))))))) + (let ((_g148534148600_ (lambda () (if (let () (declare (not safe)) - (null? _clauses148143_)) - (___kont149165149166_) + (null? _clauses148147_)) + (___kont149169149170_) (let () (declare (not safe)) - (_g148531148561_)))))) + (_g148535148565_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx149161149162_)) - (let ((_e148538148601_ + ___stx149165149166_)) + (let ((_e148542148605_ (let () (declare (not safe)) (gx#stx-e - ___stx149161149162_)))) - (let ((_tl148536148606_ + ___stx149165149166_)))) + (let ((_tl148540148610_ (let () (declare (not safe)) - (##cdr _e148538148601_))) - (_hd148537148604_ + (##cdr _e148542148605_))) + (_hd148541148608_ (let () (declare (not safe)) - (##car _e148538148601_)))) + (##car _e148542148605_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd148537148604_)) + _hd148541148608_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd148537148604_)) + _hd148541148608_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148536148606_)) - (let ((_e148541148609_ + _tl148540148610_)) + (let ((_e148545148613_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl148536148606_)))) - (let ((_tl148539148614_ + (gx#stx-e _tl148540148610_)))) + (let ((_tl148543148618_ (let () (declare (not safe)) - (##cdr _e148541148609_))) - (_hd148540148612_ + (##cdr _e148545148613_))) + (_hd148544148616_ (let () (declare (not safe)) - (##car _e148541148609_)))) + (##car _e148545148613_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148540148612_)) - (let ((_e148544148617_ + (gx#stx-pair? _hd148544148616_)) + (let ((_e148548148621_ (let () (declare (not safe)) - (gx#stx-e _hd148540148612_)))) - (let ((_tl148542148622_ + (gx#stx-e _hd148544148616_)))) + (let ((_tl148546148626_ (let () (declare (not safe)) - (##cdr _e148544148617_))) - (_hd148543148620_ + (##cdr _e148548148621_))) + (_hd148547148624_ (let () (declare (not safe)) - (##car _e148544148617_)))) + (##car _e148548148621_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148543148620_)) - (let ((_e148547148625_ + (gx#stx-pair? _hd148547148624_)) + (let ((_e148551148629_ (let () (declare (not safe)) - (gx#stx-e _hd148543148620_)))) - (let ((_tl148545148630_ + (gx#stx-e _hd148547148624_)))) + (let ((_tl148549148634_ (let () (declare (not safe)) - (##cdr _e148547148625_))) - (_hd148546148628_ + (##cdr _e148551148629_))) + (_hd148550148632_ (let () (declare (not safe)) - (##car _e148547148625_)))) + (##car _e148551148629_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148546148628_)) - (let ((_e148550148633_ + (gx#stx-pair? _hd148550148632_)) + (let ((_e148554148637_ (let () (declare (not safe)) (gx#stx-e - _hd148546148628_)))) - (let ((_tl148548148638_ + _hd148550148632_)))) + (let ((_tl148552148642_ (let () (declare (not safe)) - (##cdr _e148550148633_))) - (_hd148549148636_ + (##cdr _e148554148637_))) + (_hd148553148640_ (let () (declare (not safe)) - (##car _e148550148633_)))) + (##car _e148554148637_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148548148638_)) + _tl148552148642_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148545148630_)) - (let ((_e148553148641_ + _tl148549148634_)) + (let ((_e148557148645_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl148545148630_)))) - (let ((_tl148551148646_ - (let () (declare (not safe)) (##cdr _e148553148641_))) - (_hd148552148644_ + (gx#stx-e _tl148549148634_)))) + (let ((_tl148555148650_ + (let () (declare (not safe)) (##cdr _e148557148645_))) + (_hd148556148648_ (let () (declare (not safe)) - (##car _e148553148641_)))) + (##car _e148557148645_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148551148646_)) + (gx#stx-null? _tl148555148650_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl148542148622_)) + (gx#stx-null? _tl148546148626_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148539148614_)) - (let ((_e148556148649_ + (gx#stx-pair? _tl148543148618_)) + (let ((_e148560148653_ (let () (declare (not safe)) - (gx#stx-e _tl148539148614_)))) - (let ((_tl148554148654_ + (gx#stx-e _tl148543148618_)))) + (let ((_tl148558148658_ (let () (declare (not safe)) - (##cdr _e148556148649_))) - (_hd148555148652_ + (##cdr _e148560148653_))) + (_hd148559148656_ (let () (declare (not safe)) - (##car _e148556148649_)))) + (##car _e148560148653_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148554148654_)) - (___kont149163149164_ - _hd148555148652_ - _hd148552148644_ - _hd148549148636_) + (gx#stx-null? _tl148558148658_)) + (___kont149167149168_ + _hd148559148656_ + _hd148556148648_ + _hd148553148640_) (let () (declare (not safe)) - (_g148530148596_))))) + (_g148534148600_))))) (let () (declare (not safe)) - (_g148530148596_))) - (let () (declare (not safe)) (_g148530148596_))) - (let () (declare (not safe)) (_g148530148596_))))) - (let () (declare (not safe)) (_g148530148596_))) + (_g148534148600_))) + (let () (declare (not safe)) (_g148534148600_))) + (let () (declare (not safe)) (_g148534148600_))))) + (let () (declare (not safe)) (_g148534148600_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148530148596_))))) + (_g148534148600_))))) (let () (declare (not safe)) - (_g148530148596_))))) + (_g148534148600_))))) (let () (declare (not safe)) - (_g148530148596_))))) - (let () (declare (not safe)) (_g148530148596_))))) - (let () (declare (not safe)) (_g148530148596_))) - (let () (declare (not safe)) (_g148530148596_))) + (_g148534148600_))))) + (let () (declare (not safe)) (_g148534148600_))))) + (let () (declare (not safe)) (_g148534148600_))) + (let () (declare (not safe)) (_g148534148600_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148530148596_))))) + (_g148534148600_))))) (let () (declare (not safe)) - (_g148530148596_)))))))) - (___kont149229149230_ - (lambda (_L148248_ _L148249_ _L148250_) - (let* ((___stx149045149046_ _L148249_) - (_g148277148326_ + (_g148534148600_)))))))) + (___kont149233149234_ + (lambda (_L148252_ _L148253_ _L148254_) + (let* ((___stx149049149050_ _L148253_) + (_g148281148330_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149045149046_))))) - (let ((___kont149047149048_ - (lambda (_L148454_ - _L148455_ - _L148456_) - (let ((__tmp152151 - (let ((__tmp152152 - (let ((__tmp152153 + ___stx149049149050_))))) + (let ((___kont149051149052_ + (lambda (_L148458_ + _L148459_ + _L148460_) + (let ((__tmp152155 + (let ((__tmp152156 + (let ((__tmp152157 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152156 + (let ((__tmp152160 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp152154 - (let ((__tmp152155 + (__tmp152158 + (let ((__tmp152159 (let () (declare (not safe)) - (cons _L148454_ '())))) + (cons _L148458_ '())))) (declare (not safe)) - (cons '() __tmp152155)))) + (cons '() __tmp152159)))) (declare (not safe)) - (cons __tmp152156 __tmp152154)))) + (cons __tmp152160 __tmp152158)))) (declare (not safe)) - (cons _L148250_ __tmp152153)))) + (cons _L148254_ __tmp152157)))) (declare (not safe)) - (cons __tmp152152 _clauses148143_))) + (cons __tmp152156 _clauses148147_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp152148 - (let ((__tmp152149 - (let ((__tmp152150 + (__tmp152152 + (let ((__tmp152153 + (let ((__tmp152154 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L148455_)))) + (gxc#compile-e__0 _L148459_)))) (declare (not safe)) - (cons _L148456_ __tmp152150)))) + (cons _L148460_ __tmp152154)))) (declare (not safe)) - (cons __tmp152149 _konts148144_)))) + (cons __tmp152153 _konts148148_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp148139_ - _L148248_ - _negation148142_ - __tmp152151 - __tmp152148)))) - (___kont149049149050_ - (lambda (_L148355_) - (let ((__tmp152157 - (let ((__tmp152158 + (_lp148143_ + _L148252_ + _negation148146_ + __tmp152155 + __tmp152152)))) + (___kont149053149054_ + (lambda (_L148359_) + (let ((__tmp152161 + (let ((__tmp152162 (let () (declare (not safe)) (gxc#compile-e__0 - _L148355_)))) + _L148359_)))) (declare (not safe)) - (cons _L148250_ - __tmp152158)))) + (cons _L148254_ + __tmp152162)))) (declare (not safe)) - (_lp148139_ - _L148248_ - __tmp152157 - _clauses148143_ - _konts148144_))))) + (_lp148143_ + _L148252_ + __tmp152161 + _clauses148147_ + _konts148148_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149045149046_)) - (let ((_e148284148374_ + (gx#stx-pair? ___stx149049149050_)) + (let ((_e148288148378_ (let () (declare (not safe)) (gx#stx-e - ___stx149045149046_)))) - (let ((_tl148282148379_ + ___stx149049149050_)))) + (let ((_tl148286148383_ (let () (declare (not safe)) - (##cdr _e148284148374_))) - (_hd148283148377_ + (##cdr _e148288148378_))) + (_hd148287148381_ (let () (declare (not safe)) - (##car _e148284148374_)))) + (##car _e148288148378_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd148283148377_)) + _hd148287148381_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd148283148377_)) + _hd148287148381_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148282148379_)) - (let ((_e148287148382_ + _tl148286148383_)) + (let ((_e148291148386_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl148282148379_)))) - (let ((_tl148285148387_ + (gx#stx-e _tl148286148383_)))) + (let ((_tl148289148391_ (let () (declare (not safe)) - (##cdr _e148287148382_))) - (_hd148286148385_ + (##cdr _e148291148386_))) + (_hd148290148389_ (let () (declare (not safe)) - (##car _e148287148382_)))) + (##car _e148291148386_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd148286148385_)) + (gx#stx-null? _hd148290148389_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148285148387_)) - (let ((_e148290148390_ + (gx#stx-pair? _tl148289148391_)) + (let ((_e148294148394_ (let () (declare (not safe)) - (gx#stx-e _tl148285148387_)))) - (let ((_tl148288148395_ + (gx#stx-e _tl148289148391_)))) + (let ((_tl148292148399_ (let () (declare (not safe)) - (##cdr _e148290148390_))) - (_hd148289148393_ + (##cdr _e148294148394_))) + (_hd148293148397_ (let () (declare (not safe)) - (##car _e148290148390_)))) + (##car _e148294148394_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148289148393_)) - (let ((_e148293148398_ + (gx#stx-pair? _hd148293148397_)) + (let ((_e148297148402_ (let () (declare (not safe)) - (gx#stx-e _hd148289148393_)))) - (let ((_tl148291148403_ + (gx#stx-e _hd148293148397_)))) + (let ((_tl148295148407_ (let () (declare (not safe)) - (##cdr _e148293148398_))) - (_hd148292148401_ + (##cdr _e148297148402_))) + (_hd148296148405_ (let () (declare (not safe)) - (##car _e148293148398_)))) + (##car _e148297148402_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd148292148401_)) + _hd148296148405_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd148292148401_)) + _hd148296148405_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148291148403_)) - (let ((_e148296148406_ + _tl148295148407_)) + (let ((_e148300148410_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl148291148403_)))) - (let ((_tl148294148411_ - (let () (declare (not safe)) (##cdr _e148296148406_))) - (_hd148295148409_ - (let () (declare (not safe)) (##car _e148296148406_)))) + (gx#stx-e _tl148295148407_)))) + (let ((_tl148298148415_ + (let () (declare (not safe)) (##cdr _e148300148410_))) + (_hd148299148413_ + (let () (declare (not safe)) (##car _e148300148410_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148295148409_)) - (let ((_e148299148414_ + (gx#stx-pair? _hd148299148413_)) + (let ((_e148303148418_ (let () (declare (not safe)) - (gx#stx-e _hd148295148409_)))) - (let ((_tl148297148419_ + (gx#stx-e _hd148299148413_)))) + (let ((_tl148301148423_ (let () (declare (not safe)) - (##cdr _e148299148414_))) - (_hd148298148417_ + (##cdr _e148303148418_))) + (_hd148302148421_ (let () (declare (not safe)) - (##car _e148299148414_)))) + (##car _e148303148418_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148298148417_)) - (let ((_e148302148422_ + (gx#stx-pair? _hd148302148421_)) + (let ((_e148306148426_ (let () (declare (not safe)) - (gx#stx-e _hd148298148417_)))) - (let ((_tl148300148427_ + (gx#stx-e _hd148302148421_)))) + (let ((_tl148304148431_ (let () (declare (not safe)) - (##cdr _e148302148422_))) - (_hd148301148425_ + (##cdr _e148306148426_))) + (_hd148305148429_ (let () (declare (not safe)) - (##car _e148302148422_)))) + (##car _e148306148426_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148301148425_)) - (let ((_e148305148430_ + (gx#stx-pair? _hd148305148429_)) + (let ((_e148309148434_ (let () (declare (not safe)) - (gx#stx-e _hd148301148425_)))) - (let ((_tl148303148435_ + (gx#stx-e _hd148305148429_)))) + (let ((_tl148307148439_ (let () (declare (not safe)) - (##cdr _e148305148430_))) - (_hd148304148433_ + (##cdr _e148309148434_))) + (_hd148308148437_ (let () (declare (not safe)) - (##car _e148305148430_)))) + (##car _e148309148434_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148303148435_)) + _tl148307148439_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148300148427_)) - (let ((_e148308148438_ + _tl148304148431_)) + (let ((_e148312148442_ (let () (declare (not safe)) (gx#stx-e - _tl148300148427_)))) - (let ((_tl148306148443_ + _tl148304148431_)))) + (let ((_tl148310148447_ (let () (declare (not safe)) - (##cdr _e148308148438_))) - (_hd148307148441_ + (##cdr _e148312148442_))) + (_hd148311148445_ (let () (declare (not safe)) - (##car _e148308148438_)))) + (##car _e148312148442_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148306148443_)) + _tl148310148447_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl148297148419_)) + (gx#stx-null? _tl148301148423_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148294148411_)) - (let ((_e148311148446_ + (gx#stx-pair? _tl148298148415_)) + (let ((_e148315148450_ (let () (declare (not safe)) - (gx#stx-e _tl148294148411_)))) - (let ((_tl148309148451_ + (gx#stx-e _tl148298148415_)))) + (let ((_tl148313148455_ (let () (declare (not safe)) - (##cdr _e148311148446_))) - (_hd148310148449_ + (##cdr _e148315148450_))) + (_hd148314148453_ (let () (declare (not safe)) - (##car _e148311148446_)))) + (##car _e148315148450_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148309148451_)) + (gx#stx-null? _tl148313148455_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl148288148395_)) - (___kont149047149048_ - _hd148310148449_ - _hd148307148441_ - _hd148304148433_) + (gx#stx-null? _tl148292148399_)) + (___kont149051149052_ + _hd148314148453_ + _hd148311148445_ + _hd148308148437_) (let () (declare (not safe)) - (_g148277148326_))) + (_g148281148330_))) (let () (declare (not safe)) - (_g148277148326_))))) - (let () (declare (not safe)) (_g148277148326_))) - (let () (declare (not safe)) (_g148277148326_))) - (let () (declare (not safe)) (_g148277148326_))))) + (_g148281148330_))))) + (let () (declare (not safe)) (_g148281148330_))) + (let () (declare (not safe)) (_g148281148330_))) + (let () (declare (not safe)) (_g148281148330_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148277148326_))) + (_g148281148330_))) (let () (declare (not safe)) - (_g148277148326_))))) + (_g148281148330_))))) (let () (declare (not safe)) - (_g148277148326_))))) + (_g148281148330_))))) (let () (declare (not safe)) - (_g148277148326_))))) - (let () (declare (not safe)) (_g148277148326_))))) - (let () (declare (not safe)) (_g148277148326_))) + (_g148281148330_))))) + (let () (declare (not safe)) (_g148281148330_))))) + (let () (declare (not safe)) (_g148281148330_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148277148326_))) + (_g148281148330_))) (let () (declare (not safe)) - (_g148277148326_))))) + (_g148281148330_))))) (let () (declare (not safe)) - (_g148277148326_))))) - (let () (declare (not safe)) (_g148277148326_))) - (let () (declare (not safe)) (_g148277148326_))))) - (let () (declare (not safe)) (_g148277148326_))) + (_g148281148330_))))) + (let () (declare (not safe)) (_g148281148330_))) + (let () (declare (not safe)) (_g148281148330_))))) + (let () (declare (not safe)) (_g148281148330_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd148283148377_)) + (gx#stx-eq? '%#begin-annotation _hd148287148381_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148282148379_)) - (let ((_e148318148339_ + (gx#stx-pair? _tl148286148383_)) + (let ((_e148322148343_ (let () (declare (not safe)) - (gx#stx-e _tl148282148379_)))) - (let ((_tl148316148344_ + (gx#stx-e _tl148286148383_)))) + (let ((_tl148320148348_ (let () (declare (not safe)) - (##cdr _e148318148339_))) - (_hd148317148342_ + (##cdr _e148322148343_))) + (_hd148321148346_ (let () (declare (not safe)) - (##car _e148318148339_)))) + (##car _e148322148343_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd148317148342_)) + (gx#identifier? _hd148321148346_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd148317148342_)) + (gx#stx-eq? '@match-else _hd148321148346_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148316148344_)) - (let ((_e148321148347_ + (gx#stx-pair? _tl148320148348_)) + (let ((_e148325148351_ (let () (declare (not safe)) - (gx#stx-e _tl148316148344_)))) - (let ((_tl148319148352_ + (gx#stx-e _tl148320148348_)))) + (let ((_tl148323148356_ (let () (declare (not safe)) - (##cdr _e148321148347_))) - (_hd148320148350_ + (##cdr _e148325148351_))) + (_hd148324148354_ (let () (declare (not safe)) - (##car _e148321148347_)))) + (##car _e148325148351_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148319148352_)) - (___kont149049149050_ - _hd148320148350_) + _tl148323148356_)) + (___kont149053149054_ + _hd148324148354_) (let () (declare (not safe)) - (_g148277148326_))))) + (_g148281148330_))))) (let () (declare (not safe)) - (_g148277148326_))) + (_g148281148330_))) (let () (declare (not safe)) - (_g148277148326_))) + (_g148281148330_))) (let () (declare (not safe)) - (_g148277148326_))))) - (let () (declare (not safe)) (_g148277148326_))) - (let () (declare (not safe)) (_g148277148326_)))) + (_g148281148330_))))) + (let () (declare (not safe)) (_g148281148330_))) + (let () (declare (not safe)) (_g148281148330_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148277148326_))))) + (_g148281148330_))))) (let () (declare (not safe)) - (_g148277148326_)))))))) + (_g148281148330_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149225149226_)) - (let ((_e148152148493_ + (gx#stx-pair? ___stx149229149230_)) + (let ((_e148156148497_ (let () (declare (not safe)) - (gx#stx-e ___stx149225149226_)))) - (let ((_tl148150148498_ + (gx#stx-e ___stx149229149230_)))) + (let ((_tl148154148502_ (let () (declare (not safe)) - (##cdr _e148152148493_))) - (_hd148151148496_ + (##cdr _e148156148497_))) + (_hd148155148500_ (let () (declare (not safe)) - (##car _e148152148493_)))) + (##car _e148156148497_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd148151148496_)) + (gx#identifier? _hd148155148500_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd148151148496_)) + _hd148155148500_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148150148498_)) - (let ((_e148155148501_ + _tl148154148502_)) + (let ((_e148159148505_ (let () (declare (not safe)) (gx#stx-e - _tl148150148498_)))) - (let ((_tl148153148506_ + _tl148154148502_)))) + (let ((_tl148157148510_ (let () (declare (not safe)) - (##cdr _e148155148501_))) - (_hd148154148504_ + (##cdr _e148159148505_))) + (_hd148158148508_ (let () (declare (not safe)) - (##car _e148155148501_)))) + (##car _e148159148505_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd148154148504_)) + _hd148158148508_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd148154148504_)) + _hd148158148508_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl148153148506_)) - (let ((_e148158148509_ + (gx#stx-pair? _tl148157148510_)) + (let ((_e148162148513_ (let () (declare (not safe)) - (gx#stx-e _tl148153148506_)))) - (let ((_tl148156148514_ + (gx#stx-e _tl148157148510_)))) + (let ((_tl148160148518_ (let () (declare (not safe)) - (##cdr _e148158148509_))) - (_hd148157148512_ + (##cdr _e148162148513_))) + (_hd148161148516_ (let () (declare (not safe)) - (##car _e148158148509_)))) + (##car _e148162148513_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148156148514_)) - (___kont149227149228_ _hd148157148512_) + (gx#stx-null? _tl148160148518_)) + (___kont149231149232_ _hd148161148516_) (let () (declare (not safe)) - (_g148147148187_))))) - (let () (declare (not safe)) (_g148147148187_))) - (let () (declare (not safe)) (_g148147148187_))) - (let () (declare (not safe)) (_g148147148187_))))) + (_g148151148191_))))) + (let () (declare (not safe)) (_g148151148191_))) + (let () (declare (not safe)) (_g148151148191_))) + (let () (declare (not safe)) (_g148151148191_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148147148187_))) + (_g148151148191_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd148151148496_)) + _hd148155148500_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148150148498_)) - (let ((_e148167148200_ + _tl148154148502_)) + (let ((_e148171148204_ (let () (declare (not safe)) (gx#stx-e - _tl148150148498_)))) - (let ((_tl148165148205_ + _tl148154148502_)))) + (let ((_tl148169148209_ (let () (declare (not safe)) - (##cdr _e148167148200_))) - (_hd148166148203_ + (##cdr _e148171148204_))) + (_hd148170148207_ (let () (declare (not safe)) - (##car _e148167148200_)))) + (##car _e148171148204_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd148166148203_)) - (let ((_e148170148208_ + _hd148170148207_)) + (let ((_e148174148212_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd148166148203_)))) - (let ((_tl148168148213_ + (gx#stx-e _hd148170148207_)))) + (let ((_tl148172148217_ (let () (declare (not safe)) - (##cdr _e148170148208_))) - (_hd148169148211_ + (##cdr _e148174148212_))) + (_hd148173148215_ (let () (declare (not safe)) - (##car _e148170148208_)))) + (##car _e148174148212_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148169148211_)) - (let ((_e148173148216_ + (gx#stx-pair? _hd148173148215_)) + (let ((_e148177148220_ (let () (declare (not safe)) - (gx#stx-e _hd148169148211_)))) - (let ((_tl148171148221_ + (gx#stx-e _hd148173148215_)))) + (let ((_tl148175148225_ (let () (declare (not safe)) - (##cdr _e148173148216_))) - (_hd148172148219_ + (##cdr _e148177148220_))) + (_hd148176148223_ (let () (declare (not safe)) - (##car _e148173148216_)))) + (##car _e148177148220_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148172148219_)) - (let ((_e148176148224_ + (gx#stx-pair? _hd148176148223_)) + (let ((_e148180148228_ (let () (declare (not safe)) - (gx#stx-e _hd148172148219_)))) - (let ((_tl148174148229_ + (gx#stx-e _hd148176148223_)))) + (let ((_tl148178148233_ (let () (declare (not safe)) - (##cdr _e148176148224_))) - (_hd148175148227_ + (##cdr _e148180148228_))) + (_hd148179148231_ (let () (declare (not safe)) - (##car _e148176148224_)))) + (##car _e148180148228_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148174148229_)) + (gx#stx-null? _tl148178148233_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148171148221_)) - (let ((_e148179148232_ + _tl148175148225_)) + (let ((_e148183148236_ (let () (declare (not safe)) (gx#stx-e - _tl148171148221_)))) - (let ((_tl148177148237_ + _tl148175148225_)))) + (let ((_tl148181148241_ (let () (declare (not safe)) - (##cdr _e148179148232_))) - (_hd148178148235_ + (##cdr _e148183148236_))) + (_hd148182148239_ (let () (declare (not safe)) - (##car _e148179148232_)))) + (##car _e148183148236_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148177148237_)) + _tl148181148241_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl148168148213_)) + _tl148172148217_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl148165148205_)) - (let ((_e148182148240_ + (gx#stx-pair? _tl148169148209_)) + (let ((_e148186148244_ (let () (declare (not safe)) - (gx#stx-e _tl148165148205_)))) - (let ((_tl148180148245_ + (gx#stx-e _tl148169148209_)))) + (let ((_tl148184148249_ (let () (declare (not safe)) - (##cdr _e148182148240_))) - (_hd148181148243_ + (##cdr _e148186148244_))) + (_hd148185148247_ (let () (declare (not safe)) - (##car _e148182148240_)))) + (##car _e148186148244_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148180148245_)) - (___kont149229149230_ - _hd148181148243_ - _hd148178148235_ - _hd148175148227_) + (gx#stx-null? _tl148184148249_)) + (___kont149233149234_ + _hd148185148247_ + _hd148182148239_ + _hd148179148231_) (let () (declare (not safe)) - (_g148147148187_))))) - (let () (declare (not safe)) (_g148147148187_))) - (let () (declare (not safe)) (_g148147148187_))) - (let () (declare (not safe)) (_g148147148187_))))) + (_g148151148191_))))) + (let () (declare (not safe)) (_g148151148191_))) + (let () (declare (not safe)) (_g148151148191_))) + (let () (declare (not safe)) (_g148151148191_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148147148187_))) + (_g148151148191_))) (let () (declare (not safe)) - (_g148147148187_))))) + (_g148151148191_))))) (let () (declare (not safe)) - (_g148147148187_))))) - (let () (declare (not safe)) (_g148147148187_))))) - (let () (declare (not safe)) (_g148147148187_))))) + (_g148151148191_))))) + (let () (declare (not safe)) (_g148151148191_))))) + (let () (declare (not safe)) (_g148151148191_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148147148187_))) + (_g148151148191_))) (let () (declare (not safe)) - (_g148147148187_)))) + (_g148151148191_)))) (let () (declare (not safe)) - (_g148147148187_))))) + (_g148151148191_))))) (let () (declare (not safe)) - (_g148147148187_))))))) - _hd148046148108_ - _hd148043148100_ - _hd148040148092_) + (_g148151148191_))))))) + _hd148050148112_ + _hd148047148104_ + _hd148044148096_) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_))))) + (_g148026148056_ _g148027148059_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148022148052_ - _g148023148055_))) + (_g148026148056_ + _g148027148059_))) (let () (declare (not safe)) - (_g148022148052_ - _g148023148055_))) + (_g148026148056_ + _g148027148059_))) (let () (declare (not safe)) - (_g148022148052_ - _g148023148055_))))) + (_g148026148056_ + _g148027148059_))))) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_))) + (_g148026148056_ _g148027148059_))) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_))))) + (_g148026148056_ _g148027148059_))))) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_))))) + (_g148026148056_ _g148027148059_))))) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_))))) + (_g148026148056_ _g148027148059_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148022148052_ - _g148023148055_))))) + (_g148026148056_ + _g148027148059_))))) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_))) + (_g148026148056_ _g148027148059_))) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_))) + (_g148026148056_ _g148027148059_))) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_))))) + (_g148026148056_ _g148027148059_))))) (let () (declare (not safe)) - (_g148022148052_ _g148023148055_)))))) + (_g148026148056_ _g148027148059_)))))) (declare (not safe)) - (_g148021148718_ _stx148020_)))) + (_g148025148722_ _stx148024_)))) (define gxc#optimize-match-body - (lambda (_stx147726_ _negation147727_ _clauses147728_ _konts147729_) - (letrec ((_push-variables147731_ - (lambda (_clause147978_ _kont147979_) - (let ((_clause147980147990_ _clause147978_) - (_kont147981147992_ _kont147979_)) - (let* ((_E147983147996_ + (lambda (_stx147730_ _negation147731_ _clauses147732_ _konts147733_) + (letrec ((_push-variables147735_ + (lambda (_clause147982_ _kont147983_) + (let ((_clause147984147994_ _clause147982_) + (_kont147985147996_ _kont147983_)) + (let* ((_E147987148000_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause147980147990_ - _kont147981147992_)))) - (_K147984148003_ - (lambda (_clause-lambda147999_ - _clause-name148000_ - _K148001_) - (let ((__tmp152159 + _clause147984147994_ + _kont147985147996_)))) + (_K147988148007_ + (lambda (_clause-lambda148003_ + _clause-name148004_ + _K148005_) + (let ((__tmp152163 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda147999_ + _clause-lambda148003_ 'vars: '() 'K: - _K148001_)))) + _K148005_)))) (declare (not safe)) - (cons _clause-name148000_ __tmp152159))))) + (cons _clause-name148004_ __tmp152163))))) (if (let () (declare (not safe)) - (##pair? _clause147980147990_)) - (let ((_hd147987148006_ + (##pair? _clause147984147994_)) + (let ((_hd147991148010_ (let () (declare (not safe)) - (##car _clause147980147990_))) - (_tl147988148008_ + (##car _clause147984147994_))) + (_tl147992148012_ (let () (declare (not safe)) - (##cdr _clause147980147990_)))) - (let* ((_clause-name148011_ _hd147987148006_) - (_clause-lambda148013_ _tl147988148008_)) + (##cdr _clause147984147994_)))) + (let* ((_clause-name148015_ _hd147991148010_) + (_clause-lambda148017_ _tl147992148012_)) (if (let () (declare (not safe)) - (##pair? _kont147981147992_)) - (let* ((_hd147985148015_ + (##pair? _kont147985147996_)) + (let* ((_hd147989148019_ (let () (declare (not safe)) - (##car _kont147981147992_))) - (_K148018_ _hd147985148015_)) + (##car _kont147985147996_))) + (_K148022_ _hd147989148019_)) (declare (not safe)) - (_K147984148003_ - _clause-lambda148013_ - _clause-name148011_ - _K148018_)) + (_K147988148007_ + _clause-lambda148017_ + _clause-name148015_ + _K148022_)) (let () (declare (not safe)) - (_E147983147996_))))) + (_E147987148000_))))) (let () (declare (not safe)) - (_E147983147996_))))))) - (_start-match147732_ - (lambda (_kont147912_) - (let* ((_g147914147930_ - (lambda (_g147915147927_) + (_E147987148000_))))))) + (_start-match147736_ + (lambda (_kont147916_) + (let* ((_g147918147934_ + (lambda (_g147919147931_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g147915147927_)))) - (_g147913147975_ - (lambda (_g147915147933_) + _g147919147931_)))) + (_g147917147979_ + (lambda (_g147919147937_) (if (let () (declare (not safe)) - (gx#stx-pair? _g147915147933_)) - (let ((_e147919147935_ + (gx#stx-pair? _g147919147937_)) + (let ((_e147923147939_ (let () (declare (not safe)) - (gx#stx-e _g147915147933_)))) - (let ((_hd147918147938_ + (gx#stx-e _g147919147937_)))) + (let ((_hd147922147942_ (let () (declare (not safe)) - (##car _e147919147935_))) - (_tl147917147940_ + (##car _e147923147939_))) + (_tl147921147944_ (let () (declare (not safe)) - (##cdr _e147919147935_)))) + (##cdr _e147923147939_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd147918147938_)) + (gx#identifier? _hd147922147942_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd147918147938_)) + _hd147922147942_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147917147940_)) - (let ((_e147922147943_ + _tl147921147944_)) + (let ((_e147926147947_ (let () (declare (not safe)) (gx#stx-e - _tl147917147940_)))) - (let ((_hd147921147946_ + _tl147921147944_)))) + (let ((_hd147925147950_ (let () (declare (not safe)) - (##car _e147922147943_))) - (_tl147920147948_ + (##car _e147926147947_))) + (_tl147924147952_ (let () (declare (not safe)) - (##cdr _e147922147943_)))) + (##cdr _e147926147947_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd147921147946_)) + _hd147925147950_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl147920147948_)) - (let ((_e147925147951_ + (gx#stx-pair? _tl147924147952_)) + (let ((_e147929147955_ (let () (declare (not safe)) - (gx#stx-e _tl147920147948_)))) - (let ((_hd147924147954_ + (gx#stx-e _tl147924147952_)))) + (let ((_hd147928147958_ (let () (declare (not safe)) - (##car _e147925147951_))) - (_tl147923147956_ + (##car _e147929147955_))) + (_tl147927147960_ (let () (declare (not safe)) - (##cdr _e147925147951_)))) + (##cdr _e147929147955_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147923147956_)) - ((lambda (_L147959_) _L147959_) _hd147924147954_) + (gx#stx-null? _tl147927147960_)) + ((lambda (_L147963_) _L147963_) _hd147928147958_) (let () (declare (not safe)) - (_g147914147930_ _g147915147933_))))) + (_g147918147934_ _g147919147937_))))) (let () (declare (not safe)) - (_g147914147930_ _g147915147933_))) + (_g147918147934_ _g147919147937_))) (let () (declare (not safe)) - (_g147914147930_ _g147915147933_))))) + (_g147918147934_ _g147919147937_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g147914147930_ - _g147915147933_))) + (_g147918147934_ + _g147919147937_))) (let () (declare (not safe)) - (_g147914147930_ - _g147915147933_))) + (_g147918147934_ + _g147919147937_))) (let () (declare (not safe)) - (_g147914147930_ - _g147915147933_))))) + (_g147918147934_ + _g147919147937_))))) (let () (declare (not safe)) - (_g147914147930_ _g147915147933_)))))) + (_g147918147934_ _g147919147937_)))))) (declare (not safe)) - (_g147913147975_ _kont147912_)))) - (_match-body147733_ - (lambda (_blocks147809_) - (let* ((_blocks147810147819_ _blocks147809_) - (_E147812147823_ + (_g147917147979_ _kont147916_)))) + (_match-body147737_ + (lambda (_blocks147813_) + (let* ((_blocks147814147823_ _blocks147813_) + (_E147816147827_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _blocks147810147819_)))) - (_K147813147895_ - (lambda (_rest147826_ _start147827_) - (let _lp147829_ ((_rest147831_ _rest147826_) - (_body147832_ + _blocks147814147823_)))) + (_K147817147899_ + (lambda (_rest147830_ _start147831_) + (let _lp147833_ ((_rest147835_ _rest147830_) + (_body147836_ (let () (declare (not safe)) - (_start-match147732_ - _start147827_)))) - (let* ((_rest147833147841_ _rest147831_) - (_else147835147849_ - (lambda () _body147832_)) - (_K147837147883_ - (lambda (_rest147852_ _block147853_) - (let* ((_block147854147861_ - _block147853_) - (_E147856147865_ + (_start-match147736_ + _start147831_)))) + (let* ((_rest147837147845_ _rest147835_) + (_else147839147853_ + (lambda () _body147836_)) + (_K147841147887_ + (lambda (_rest147856_ _block147857_) + (let* ((_block147858147865_ + _block147857_) + (_E147860147869_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block147854147861_)))) - (_K147857147871_ - (lambda (_kont147868_ - _K147869_) - (let ((__tmp152160 - (let ((__tmp152161 + _block147858147865_)))) + (_K147861147875_ + (lambda (_kont147872_ + _K147873_) + (let ((__tmp152164 + (let ((__tmp152165 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152163 - (let ((__tmp152164 - (let ((__tmp152166 + (let ((__tmp152167 + (let ((__tmp152168 + (let ((__tmp152170 (let () (declare (not safe)) - (cons _K147869_ '()))) - (__tmp152165 + (cons _K147873_ '()))) + (__tmp152169 (let () (declare (not safe)) - (cons _kont147868_ '())))) + (cons _kont147872_ '())))) (declare (not safe)) - (cons __tmp152166 __tmp152165)))) + (cons __tmp152170 __tmp152169)))) (declare (not safe)) - (cons __tmp152164 '()))) - (__tmp152162 + (cons __tmp152168 '()))) + (__tmp152166 (let () (declare (not safe)) - (cons _body147832_ '())))) + (cons _body147836_ '())))) (declare (not safe)) - (cons __tmp152163 __tmp152162)))) + (cons __tmp152167 __tmp152166)))) (declare (not safe)) - (cons '%#let-values __tmp152161)))) + (cons '%#let-values __tmp152165)))) (declare (not safe)) - (_lp147829_ _rest147852_ __tmp152160))))) + (_lp147833_ _rest147856_ __tmp152164))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block147854147861_)) - (let ((_hd147858147874_ + (##pair? _block147858147865_)) + (let ((_hd147862147878_ (let () (declare (not safe)) - (##car _block147854147861_))) - (_tl147859147876_ + (##car _block147858147865_))) + (_tl147863147880_ (let () (declare (not safe)) - (##cdr _block147854147861_)))) - (let* ((_K147879_ - _hd147858147874_) - (_kont147881_ - _tl147859147876_)) + (##cdr _block147858147865_)))) + (let* ((_K147883_ + _hd147862147878_) + (_kont147885_ + _tl147863147880_)) (declare (not safe)) - (_K147857147871_ - _kont147881_ - _K147879_))) + (_K147861147875_ + _kont147885_ + _K147883_))) (let () (declare (not safe)) - (_E147856147865_))))))) + (_E147860147869_))))))) (if (let () (declare (not safe)) - (##pair? _rest147833147841_)) - (let ((_hd147838147886_ + (##pair? _rest147837147845_)) + (let ((_hd147842147890_ (let () (declare (not safe)) - (##car _rest147833147841_))) - (_tl147839147888_ + (##car _rest147837147845_))) + (_tl147843147892_ (let () (declare (not safe)) - (##cdr _rest147833147841_)))) - (let* ((_block147891_ _hd147838147886_) - (_rest147893_ _tl147839147888_)) + (##cdr _rest147837147845_)))) + (let* ((_block147895_ _hd147842147890_) + (_rest147897_ _tl147843147892_)) (declare (not safe)) - (_K147837147883_ - _rest147893_ - _block147891_))) + (_K147841147887_ + _rest147897_ + _block147895_))) (let () (declare (not safe)) - (_else147835147849_)))))))) + (_else147839147853_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks147810147819_)) - (let ((_hd147814147898_ + (##pair? _blocks147814147823_)) + (let ((_hd147818147902_ (let () (declare (not safe)) - (##car _blocks147810147819_))) - (_tl147815147900_ + (##car _blocks147814147823_))) + (_tl147819147904_ (let () (declare (not safe)) - (##cdr _blocks147810147819_)))) + (##cdr _blocks147814147823_)))) (if (let () (declare (not safe)) - (##pair? _hd147814147898_)) - (let ((_hd147816147903_ + (##pair? _hd147818147902_)) + (let ((_hd147820147907_ (let () (declare (not safe)) - (##car _hd147814147898_))) - (_tl147817147905_ + (##car _hd147818147902_))) + (_tl147821147909_ (let () (declare (not safe)) - (##cdr _hd147814147898_)))) + (##cdr _hd147818147902_)))) (if (let () (declare (not safe)) - (##eq? _hd147816147903_ '#f)) - (let* ((_start147908_ _tl147817147905_) - (_rest147910_ _tl147815147900_)) + (##eq? _hd147820147907_ '#f)) + (let* ((_start147912_ _tl147821147909_) + (_rest147914_ _tl147819147904_)) (declare (not safe)) - (_K147813147895_ - _rest147910_ - _start147908_)) + (_K147817147899_ + _rest147914_ + _start147912_)) (let () (declare (not safe)) - (_E147812147823_)))) + (_E147816147827_)))) (let () (declare (not safe)) - (_E147812147823_)))) - (let () (declare (not safe)) (_E147812147823_))))))) - (let ((__tmp152168 + (_E147816147827_)))) + (let () (declare (not safe)) (_E147816147827_))))))) + (let ((__tmp152172 (lambda () - (let* ((_clauses147736_ - (map _push-variables147731_ - _clauses147728_ - _konts147729_)) - (_blocks147738_ + (let* ((_clauses147740_ + (map _push-variables147735_ + _clauses147732_ + _konts147733_)) + (_blocks147742_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses147736_))) - (_blocks147740_ + _clauses147740_))) + (_blocks147744_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks147738_))) - (_body147742_ + _blocks147742_))) + (_body147746_ (let () (declare (not safe)) - (_match-body147733_ _blocks147740_))) - (_bind147776_ - (map (lambda (_e147743147745_) - (let* ((_g147747147754_ _e147743147745_) - (_E147749147758_ + (_match-body147737_ _blocks147744_))) + (_bind147780_ + (map (lambda (_e147747147749_) + (let* ((_g147751147758_ _e147747147749_) + (_E147753147762_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g147747147754_)))) - (_K147750147764_ - (lambda (_kont147761_ _K147762_) - (let ((__tmp152170 + _g147751147758_)))) + (_K147754147768_ + (lambda (_kont147765_ _K147766_) + (let ((__tmp152174 (let () (declare (not safe)) - (cons _K147762_ '()))) - (__tmp152169 + (cons _K147766_ '()))) + (__tmp152173 (let () (declare (not safe)) - (cons _kont147761_ '())))) + (cons _kont147765_ '())))) (declare (not safe)) - (cons __tmp152170 - __tmp152169))))) + (cons __tmp152174 + __tmp152173))))) (if (let () (declare (not safe)) - (##pair? _g147747147754_)) - (let ((_hd147751147767_ + (##pair? _g147751147758_)) + (let ((_hd147755147771_ (let () (declare (not safe)) - (##car _g147747147754_))) - (_tl147752147769_ + (##car _g147751147758_))) + (_tl147756147773_ (let () (declare (not safe)) - (##cdr _g147747147754_)))) - (let* ((_K147772_ _hd147751147767_) - (_kont147774_ - _tl147752147769_)) + (##cdr _g147751147758_)))) + (let* ((_K147776_ _hd147755147771_) + (_kont147778_ + _tl147756147773_)) (declare (not safe)) - (_K147750147764_ - _kont147774_ - _K147772_))) + (_K147754147768_ + _kont147778_ + _K147776_))) (let () (declare (not safe)) - (_E147749147758_))))) - _konts147729_)) - (_negate147806_ - (let* ((_negation147777147784_ _negation147727_) - (_E147779147788_ + (_E147753147762_))))) + _konts147733_)) + (_negate147810_ + (let* ((_negation147781147788_ _negation147731_) + (_E147783147792_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation147777147784_)))) - (_K147780147794_ - (lambda (_kont147791_ _K147792_) - (let ((__tmp152172 + _negation147781147788_)))) + (_K147784147798_ + (lambda (_kont147795_ _K147796_) + (let ((__tmp152176 (let () (declare (not safe)) - (cons _K147792_ '()))) - (__tmp152171 + (cons _K147796_ '()))) + (__tmp152175 (let () (declare (not safe)) - (cons _kont147791_ '())))) + (cons _kont147795_ '())))) (declare (not safe)) - (cons __tmp152172 __tmp152171))))) + (cons __tmp152176 __tmp152175))))) (if (let () (declare (not safe)) - (##pair? _negation147777147784_)) - (let ((_hd147781147797_ + (##pair? _negation147781147788_)) + (let ((_hd147785147801_ (let () (declare (not safe)) - (##car _negation147777147784_))) - (_tl147782147799_ + (##car _negation147781147788_))) + (_tl147786147803_ (let () (declare (not safe)) - (##cdr _negation147777147784_)))) - (let* ((_K147802_ _hd147781147797_) - (_kont147804_ _tl147782147799_)) + (##cdr _negation147781147788_)))) + (let* ((_K147806_ _hd147785147801_) + (_kont147808_ _tl147786147803_)) (declare (not safe)) - (_K147780147794_ _kont147804_ _K147802_))) + (_K147784147798_ _kont147808_ _K147806_))) (let () (declare (not safe)) - (_E147779147788_)))))) - (let ((__tmp152173 - (let ((__tmp152174 - (let ((__tmp152179 + (_E147783147792_)))))) + (let ((__tmp152177 + (let ((__tmp152178 + (let ((__tmp152183 (let () (declare (not safe)) - (cons _negate147806_ '()))) - (__tmp152175 - (let ((__tmp152176 - (let ((__tmp152177 - (let ((__tmp152178 + (cons _negate147810_ '()))) + (__tmp152179 + (let ((__tmp152180 + (let ((__tmp152181 + (let ((__tmp152182 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body147742_ '())))) + (cons _body147746_ '())))) (declare (not safe)) - (cons _bind147776_ __tmp152178)))) + (cons _bind147780_ __tmp152182)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152177)))) + __tmp152181)))) (declare (not safe)) - (cons __tmp152176 '())))) + (cons __tmp152180 '())))) (declare (not safe)) - (cons __tmp152179 __tmp152175)))) + (cons __tmp152183 __tmp152179)))) (declare (not safe)) - (cons '%#let-values __tmp152174)))) + (cons '%#let-values __tmp152178)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152173 _stx147726_))))) - (__tmp152167 - (let ((__obj152096 + (gxc#xform-wrap-source __tmp152177 _stx147730_))))) + (__tmp152171 + (let ((__obj152100 (let () (declare (not safe)) (##structure @@ -2324,2112 +2324,2112 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj152096) - __obj152096))) + (gx#local-context:::init! __obj152100) + __obj152100))) (declare (not safe)) (call-with-parameters - __tmp152168 + __tmp152172 gx#current-expander-context - __tmp152167))))) + __tmp152171))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses147686_) - (let _lp147688_ ((_rest147690_ _clauses147686_) (_blocks147691_ '())) - (let* ((_rest147692147700_ _rest147690_) - (_else147694147708_ (lambda () (reverse _blocks147691_))) - (_K147696147714_ - (lambda (_rest147711_ _clause147712_) - (let ((__tmp152180 + (lambda (_clauses147690_) + (let _lp147692_ ((_rest147694_ _clauses147690_) (_blocks147695_ '())) + (let* ((_rest147696147704_ _rest147694_) + (_else147698147712_ (lambda () (reverse _blocks147695_))) + (_K147700147718_ + (lambda (_rest147715_ _clause147716_) + (let ((__tmp152184 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause147712_ - _blocks147691_)))) + _clause147716_ + _blocks147695_)))) (declare (not safe)) - (_lp147688_ _rest147711_ __tmp152180))))) - (if (let () (declare (not safe)) (##pair? _rest147692147700_)) - (let ((_hd147697147717_ + (_lp147692_ _rest147715_ __tmp152184))))) + (if (let () (declare (not safe)) (##pair? _rest147696147704_)) + (let ((_hd147701147721_ (let () (declare (not safe)) - (##car _rest147692147700_))) - (_tl147698147719_ + (##car _rest147696147704_))) + (_tl147702147723_ (let () (declare (not safe)) - (##cdr _rest147692147700_)))) - (let* ((_clause147722_ _hd147697147717_) - (_rest147724_ _tl147698147719_)) + (##cdr _rest147696147704_)))) + (let* ((_clause147726_ _hd147701147721_) + (_rest147728_ _tl147702147723_)) (declare (not safe)) - (_K147696147714_ _rest147724_ _clause147722_))) - (let () (declare (not safe)) (_else147694147708_))))))) + (_K147700147718_ _rest147728_ _clause147726_))) + (let () (declare (not safe)) (_else147698147712_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause147030_ _blocks147031_) - (letrec ((_bind->args147033_ - (lambda (_bind147681_) - (let ((__tmp152181 - (lambda (_b147683_ _r147684_) - (let ((__tmp152182 - (let ((__tmp152183 - (let ((__tmp152184 (car _b147683_))) + (lambda (_clause147034_ _blocks147035_) + (letrec ((_bind->args147037_ + (lambda (_bind147685_) + (let ((__tmp152185 + (lambda (_b147687_ _r147688_) + (let ((__tmp152186 + (let ((__tmp152187 + (let ((__tmp152188 (car _b147687_))) (declare (not safe)) - (cons __tmp152184 '())))) + (cons __tmp152188 '())))) (declare (not safe)) - (cons '%#ref __tmp152183)))) + (cons '%#ref __tmp152187)))) (declare (not safe)) - (cons __tmp152182 _r147684_))))) + (cons __tmp152186 _r147688_))))) (declare (not safe)) - (foldl1 __tmp152181 '() _bind147681_)))) - (_create-block147034_ - (lambda (_body147630_ - _let-bind147631_ - _bind147632_ - _assert147633_) - (let* ((_id147635_ - (let ((__tmp152185 (gensym '__match))) + (foldl1 __tmp152185 '() _bind147685_)))) + (_create-block147038_ + (lambda (_body147634_ + _let-bind147635_ + _bind147636_ + _assert147637_) + (let* ((_id147639_ + (let ((__tmp152189 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp152185))) - (_id147637_ + (make-symbol__0 __tmp152189))) + (_id147641_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id147635_))) - (_g152186_ + (gx#core-quote-syntax__0 _id147639_))) + (_g152190_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id147637_))) - (_block147640_ - (let ((__tmp152187 - (let ((__tmp152188 - (let ((__tmp152189 + (gx#core-bind-runtime!__0 _id147641_))) + (_block147644_ + (let ((__tmp152191 + (let ((__tmp152192 + (let ((__tmp152193 (let () (declare (not safe)) - (cons _assert147633_ '())))) + (cons _assert147637_ '())))) (declare (not safe)) - (cons _bind147632_ __tmp152189)))) + (cons _bind147636_ __tmp152193)))) (declare (not safe)) - (cons _body147630_ __tmp152188)))) + (cons _body147634_ __tmp152192)))) (declare (not safe)) - (cons _id147637_ __tmp152187))) - (_continue147642_ - (let ((__tmp152190 - (let ((__tmp152192 - (let ((__tmp152193 + (cons _id147641_ __tmp152191))) + (_continue147646_ + (let ((__tmp152194 + (let ((__tmp152196 + (let ((__tmp152197 (let () (declare (not safe)) - (cons _id147637_ '())))) + (cons _id147641_ '())))) (declare (not safe)) - (cons '%#ref __tmp152193))) - (__tmp152191 + (cons '%#ref __tmp152197))) + (__tmp152195 (let () (declare (not safe)) - (_bind->args147033_ - _bind147632_)))) + (_bind->args147037_ + _bind147636_)))) (declare (not safe)) - (cons __tmp152192 __tmp152191)))) + (cons __tmp152196 __tmp152195)))) (declare (not safe)) - (cons '%#call __tmp152190))) - (_continue147678_ + (cons '%#call __tmp152194))) + (_continue147682_ (if (let () (declare (not safe)) - (null? _let-bind147631_)) - _continue147642_ - (let* ((_locals147676_ - (map (lambda (_e147643147645_) - (let* ((_g147647147654_ - _e147643147645_) - (_E147649147658_ + (null? _let-bind147635_)) + _continue147646_ + (let* ((_locals147680_ + (map (lambda (_e147647147649_) + (let* ((_g147651147658_ + _e147647147649_) + (_E147653147662_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g147647147654_)))) - (_K147650147664_ - (lambda (_expr147661_ _id147662_) - (let ((__tmp152195 - (let () (declare (not safe)) (cons _id147662_ '()))) - (__tmp152194 - (let () (declare (not safe)) (cons _expr147661_ '())))) + _g147651147658_)))) + (_K147654147668_ + (lambda (_expr147665_ _id147666_) + (let ((__tmp152199 + (let () (declare (not safe)) (cons _id147666_ '()))) + (__tmp152198 + (let () (declare (not safe)) (cons _expr147665_ '())))) (declare (not safe)) - (cons __tmp152195 __tmp152194))))) + (cons __tmp152199 __tmp152198))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g147647147654_)) - (let ((_hd147651147667_ + (##pair? _g147651147658_)) + (let ((_hd147655147671_ (let () (declare (not safe)) - (##car _g147647147654_))) - (_tl147652147669_ + (##car _g147651147658_))) + (_tl147656147673_ (let () (declare (not safe)) - (##cdr _g147647147654_)))) - (let* ((_id147672_ - _hd147651147667_) - (_expr147674_ - _tl147652147669_)) + (##cdr _g147651147658_)))) + (let* ((_id147676_ + _hd147655147671_) + (_expr147678_ + _tl147656147673_)) (declare (not safe)) - (_K147650147664_ - _expr147674_ - _id147672_))) + (_K147654147668_ + _expr147678_ + _id147676_))) (let () (declare (not safe)) - (_E147649147658_))))) - _let-bind147631_)) - (__tmp152196 - (let ((__tmp152197 + (_E147653147662_))))) + _let-bind147635_)) + (__tmp152200 + (let ((__tmp152201 (let () (declare (not safe)) - (cons _continue147642_ '())))) + (cons _continue147646_ '())))) (declare (not safe)) - (cons _locals147676_ __tmp152197)))) + (cons _locals147680_ __tmp152201)))) (declare (not safe)) - (cons '%#let-values __tmp152196))))) - (values _continue147678_ _block147640_)))) - (_basic-block147035_ - (lambda (_body147216_ _bind147217_ _assert147218_) - (let* ((___stx149333149334_ _body147216_) - (_g147223147307_ + (cons '%#let-values __tmp152200))))) + (values _continue147682_ _block147644_)))) + (_basic-block147039_ + (lambda (_body147220_ _bind147221_ _assert147222_) + (let* ((___stx149337149338_ _body147220_) + (_g147227147311_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149333149334_))))) - (let ((___kont149335149336_ - (lambda (_L147566_ _L147567_ _L147568_) - (let ((_g152198_ - (let ((__tmp152200 - (let ((__tmp152201 + ___stx149337149338_))))) + (let ((___kont149339149340_ + (lambda (_L147570_ _L147571_ _L147572_) + (let ((_g152202_ + (let ((__tmp152204 + (let ((__tmp152205 (let () (declare (not safe)) - (cons _L147568_ '#t)))) + (cons _L147572_ '#t)))) (declare (not safe)) - (cons __tmp152201 - _assert147218_)))) + (cons __tmp152205 + _assert147222_)))) (declare (not safe)) - (_create-block147034_ - _L147567_ + (_create-block147038_ + _L147571_ '() - _bind147217_ - __tmp152200)))) + _bind147221_ + __tmp152204)))) (begin - (let ((_g152199_ + (let ((_g152203_ (let () (declare (not safe)) - (if (##values? _g152198_) - (##vector-length _g152198_) + (if (##values? _g152202_) + (##vector-length _g152202_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152199_ 2))) + (##fx= _g152203_ 2))) (error "Context expects 2 values" - _g152199_))) - (let ((_k-continue147586_ + _g152203_))) + (let ((_k-continue147590_ (let () (declare (not safe)) - (##vector-ref _g152198_ 0))) - (_k-block147587_ + (##vector-ref _g152202_ 0))) + (_k-block147591_ (let () (declare (not safe)) - (##vector-ref _g152198_ 1)))) - (let* ((___stx149315149316_ _L147566_) - (_g147590147599_ + (##vector-ref _g152202_ 1)))) + (let* ((___stx149319149320_ _L147570_) + (_g147594147603_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149315149316_))))) - (let ((___kont149317149318_ + ___stx149319149320_))))) + (let ((___kont149321149322_ (lambda () - (values (let ((__tmp152202 - (let ((__tmp152203 + (values (let ((__tmp152206 + (let ((__tmp152207 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152204 + (let ((__tmp152208 (let () (declare (not safe)) - (cons _L147566_ '())))) + (cons _L147570_ '())))) (declare (not safe)) - (cons _k-continue147586_ __tmp152204)))) + (cons _k-continue147590_ __tmp152208)))) (declare (not safe)) - (cons _L147568_ __tmp152203)))) + (cons _L147572_ __tmp152207)))) (declare (not safe)) - (cons '%#if __tmp152202)) - (let () (declare (not safe)) (cons _k-block147587_ '()))))) + (cons '%#if __tmp152206)) + (let () (declare (not safe)) (cons _k-block147591_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149319149320_ + (___kont149323149324_ (lambda () - (let ((_g152205_ - (let ((__tmp152207 - (let ((__tmp152208 + (let ((_g152209_ + (let ((__tmp152211 + (let ((__tmp152212 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L147568_ '#f)))) + (cons _L147572_ '#f)))) (declare (not safe)) - (cons __tmp152208 _assert147218_)))) + (cons __tmp152212 _assert147222_)))) (declare (not safe)) - (_create-block147034_ - _L147566_ + (_create-block147038_ + _L147570_ '() - _bind147217_ - __tmp152207)))) + _bind147221_ + __tmp152211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g152206_ + (let ((_g152210_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g152205_) - (##vector-length _g152205_) + _g152209_) + (##vector-length _g152209_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g152206_ 2))) - (error "Context expects 2 values" _g152206_))) + (if (not (let () (declare (not safe)) (##fx= _g152210_ 2))) + (error "Context expects 2 values" _g152210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue147606_ + (let ((_e-continue147610_ (let () (declare (not safe)) (##vector-ref - _g152205_ + _g152209_ 0))) - (_e-block147607_ + (_e-block147611_ (let () (declare (not safe)) (##vector-ref - _g152205_ + _g152209_ 1)))) - (values (let ((__tmp152209 + (values (let ((__tmp152213 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152210 - (let ((__tmp152211 + (let ((__tmp152214 + (let ((__tmp152215 (let () (declare (not safe)) - (cons _e-continue147606_ '())))) + (cons _e-continue147610_ '())))) (declare (not safe)) - (cons _k-continue147586_ __tmp152211)))) + (cons _k-continue147590_ __tmp152215)))) (declare (not safe)) - (cons _L147568_ __tmp152210)))) + (cons _L147572_ __tmp152214)))) (declare (not safe)) - (cons '%#if __tmp152209)) - (let ((__tmp152212 + (cons '%#if __tmp152213)) + (let ((__tmp152216 (let () (declare (not safe)) - (cons _e-block147607_ '())))) + (cons _e-block147611_ '())))) (declare (not safe)) - (cons _k-block147587_ __tmp152212))))))))) + (cons _k-block147591_ __tmp152216))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx149315149316_)) - (let ((_e147594147614_ + ___stx149319149320_)) + (let ((_e147598147618_ (let () (declare (not safe)) (gx#stx-e - ___stx149315149316_)))) - (let ((_tl147592147619_ + ___stx149319149320_)))) + (let ((_tl147596147623_ (let () (declare (not safe)) - (##cdr _e147594147614_))) - (_hd147593147617_ + (##cdr _e147598147618_))) + (_hd147597147621_ (let () (declare (not safe)) - (##car _e147594147614_)))) + (##car _e147598147618_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd147593147617_)) + _hd147597147621_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd147593147617_)) - (___kont149317149318_) - (___kont149319149320_)) - (___kont149319149320_)))) - (___kont149319149320_))))))))) - (___kont149337149338_ - (lambda () (values _body147216_ '()))) + _hd147597147621_)) + (___kont149321149322_) + (___kont149323149324_)) + (___kont149323149324_)))) + (___kont149323149324_))))))))) (___kont149341149342_ - (lambda (_L147395_ _L147396_ _L147397_) - (let* ((_let-bind147432_ + (lambda () (values _body147220_ '()))) + (___kont149345149346_ + (lambda (_L147399_ _L147400_ _L147401_) + (let* ((_let-bind147436_ (map cons - (let ((__tmp152213 - (lambda (_g147417147420_ - _g147418147422_) + (let ((__tmp152217 + (lambda (_g147421147424_ + _g147422147426_) (let () (declare (not safe)) - (cons _g147417147420_ - _g147418147422_))))) + (cons _g147421147424_ + _g147422147426_))))) (declare (not safe)) - (foldr1 __tmp152213 + (foldr1 __tmp152217 '() - _L147397_)) - (let ((__tmp152214 - (lambda (_g147424147427_ - _g147425147429_) + _L147401_)) + (let ((__tmp152218 + (lambda (_g147428147431_ + _g147429147433_) (let () (declare (not safe)) - (cons _g147424147427_ - _g147425147429_))))) + (cons _g147428147431_ + _g147429147433_))))) (declare (not safe)) - (foldr1 __tmp152214 + (foldr1 __tmp152218 '() - _L147396_)))) - (_g152215_ - (let ((__tmp152217 + _L147400_)))) + (_g152219_ + (let ((__tmp152221 (let () (declare (not safe)) (foldl1 cons - _bind147217_ - _let-bind147432_)))) + _bind147221_ + _let-bind147436_)))) (declare (not safe)) - (_create-block147034_ - _L147395_ - _let-bind147432_ - __tmp152217 - _assert147218_)))) + (_create-block147038_ + _L147399_ + _let-bind147436_ + __tmp152221 + _assert147222_)))) (begin - (let ((_g152216_ + (let ((_g152220_ (let () (declare (not safe)) - (if (##values? _g152215_) - (##vector-length _g152215_) + (if (##values? _g152219_) + (##vector-length _g152219_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152216_ 2))) + (##fx= _g152220_ 2))) (error "Context expects 2 values" - _g152216_))) - (let ((_continue147434_ + _g152220_))) + (let ((_continue147438_ (let () (declare (not safe)) - (##vector-ref _g152215_ 0))) - (_block147435_ + (##vector-ref _g152219_ 0))) + (_block147439_ (let () (declare (not safe)) - (##vector-ref _g152215_ 1)))) + (##vector-ref _g152219_ 1)))) (let () - (values _continue147434_ + (values _continue147438_ (let () (declare (not safe)) - (cons _block147435_ + (cons _block147439_ '()))))))))) - (___kont149345149346_ - (lambda () (values _body147216_ '())))) - (let* ((___match149424149425_ - (lambda (_e147276147319_ - _hd147275147322_ - _tl147274147324_ - _e147279147327_ - _hd147278147330_ - _tl147277147332_ - ___splice149343149344_ - _target147280147335_ - _tl147282147337_) - (letrec ((_loop147283147340_ - (lambda (_hd147281147343_ - _expr147287147345_ - _id147288147347_) + (___kont149349149350_ + (lambda () (values _body147220_ '())))) + (let* ((___match149428149429_ + (lambda (_e147280147323_ + _hd147279147326_ + _tl147278147328_ + _e147283147331_ + _hd147282147334_ + _tl147281147336_ + ___splice149347149348_ + _target147284147339_ + _tl147286147341_) + (letrec ((_loop147287147344_ + (lambda (_hd147285147347_ + _expr147291147349_ + _id147292147351_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd147281147343_)) - (let ((_e147284147350_ + _hd147285147347_)) + (let ((_e147288147354_ (let () (declare (not safe)) (gx#stx-e - _hd147281147343_)))) - (let ((_lp-tl147286147355_ + _hd147285147347_)))) + (let ((_lp-tl147290147359_ (let () (declare (not safe)) - (##cdr _e147284147350_))) - (_lp-hd147285147353_ + (##cdr _e147288147354_))) + (_lp-hd147289147357_ (let () (declare (not safe)) - (##car _e147284147350_)))) + (##car _e147288147354_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd147285147353_)) - (let ((_e147293147358_ + _lp-hd147289147357_)) + (let ((_e147297147362_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd147285147353_)))) - (let ((_tl147291147363_ + (gx#stx-e _lp-hd147289147357_)))) + (let ((_tl147295147367_ (let () (declare (not safe)) - (##cdr _e147293147358_))) - (_hd147292147361_ + (##cdr _e147297147362_))) + (_hd147296147365_ (let () (declare (not safe)) - (##car _e147293147358_)))) + (##car _e147297147362_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd147292147361_)) - (let ((_e147296147366_ + (gx#stx-pair? _hd147296147365_)) + (let ((_e147300147370_ (let () (declare (not safe)) - (gx#stx-e _hd147292147361_)))) - (let ((_tl147294147371_ + (gx#stx-e _hd147296147365_)))) + (let ((_tl147298147375_ (let () (declare (not safe)) - (##cdr _e147296147366_))) - (_hd147295147369_ + (##cdr _e147300147370_))) + (_hd147299147373_ (let () (declare (not safe)) - (##car _e147296147366_)))) + (##car _e147300147370_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147294147371_)) + (gx#stx-null? _tl147298147375_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl147291147363_)) - (let ((_e147299147374_ + (gx#stx-pair? _tl147295147367_)) + (let ((_e147303147378_ (let () (declare (not safe)) - (gx#stx-e _tl147291147363_)))) - (let ((_tl147297147379_ + (gx#stx-e _tl147295147367_)))) + (let ((_tl147301147383_ (let () (declare (not safe)) - (##cdr _e147299147374_))) - (_hd147298147377_ + (##cdr _e147303147378_))) + (_hd147302147381_ (let () (declare (not safe)) - (##car _e147299147374_)))) + (##car _e147303147378_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl147297147379_)) - (let ((__tmp152219 + _tl147301147383_)) + (let ((__tmp152223 (let () (declare (not safe)) - (cons _hd147298147377_ - _expr147287147345_))) - (__tmp152218 + (cons _hd147302147381_ + _expr147291147349_))) + (__tmp152222 (let () (declare (not safe)) - (cons _hd147295147369_ - _id147288147347_)))) + (cons _hd147299147373_ + _id147292147351_)))) (declare (not safe)) - (_loop147283147340_ - _lp-tl147286147355_ - __tmp152219 - __tmp152218)) - (___kont149345149346_)))) - (___kont149345149346_)) - (___kont149345149346_)))) - (___kont149345149346_)))) - (___kont149345149346_)))) + (_loop147287147344_ + _lp-tl147290147359_ + __tmp152223 + __tmp152222)) + (___kont149349149350_)))) + (___kont149349149350_)) + (___kont149349149350_)))) + (___kont149349149350_)))) + (___kont149349149350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id147290147384_ - (reverse _id147288147347_)) - (_expr147289147382_ - (reverse _expr147287147345_))) + (let ((_id147294147388_ + (reverse _id147292147351_)) + (_expr147293147386_ + (reverse _expr147291147349_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147277147332_)) - (let ((_e147302147387_ + _tl147281147336_)) + (let ((_e147306147391_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl147277147332_)))) - (let ((_tl147300147392_ - (let () (declare (not safe)) (##cdr _e147302147387_))) - (_hd147301147390_ + (gx#stx-e _tl147281147336_)))) + (let ((_tl147304147396_ + (let () (declare (not safe)) (##cdr _e147306147391_))) + (_hd147305147394_ (let () (declare (not safe)) - (##car _e147302147387_)))) + (##car _e147306147391_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147300147392_)) - (___kont149341149342_ - _hd147301147390_ - _expr147289147382_ - _id147290147384_) - (___kont149345149346_)))) - (___kont149345149346_))))))) + (gx#stx-null? _tl147304147396_)) + (___kont149345149346_ + _hd147305147394_ + _expr147293147386_ + _id147294147388_) + (___kont149349149350_)))) + (___kont149349149350_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop147283147340_ - _target147280147335_ + (_loop147287147344_ + _target147284147339_ '() '()))))) - (___match149400149401_ - (lambda (_e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_) - (letrec ((_loop147249147464_ - (lambda (_hd147247147467_) + (___match149404149405_ + (lambda (_e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_) + (letrec ((_loop147253147468_ + (lambda (_hd147251147471_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd147247147467_)) - (let ((_e147250147470_ + _hd147251147471_)) + (let ((_e147254147474_ (let () (declare (not safe)) (gx#stx-e - _hd147247147467_)))) - (let ((_lp-tl147252147475_ + _hd147251147471_)))) + (let ((_lp-tl147256147479_ (let () (declare (not safe)) - (##cdr _e147250147470_))) - (_lp-hd147251147473_ + (##cdr _e147254147474_))) + (_lp-hd147255147477_ (let () (declare (not safe)) - (##car _e147250147470_)))) + (##car _e147254147474_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd147251147473_)) - (let ((_e147255147478_ + _lp-hd147255147477_)) + (let ((_e147259147482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd147251147473_)))) - (let ((_tl147253147483_ + (gx#stx-e _lp-hd147255147477_)))) + (let ((_tl147257147487_ (let () (declare (not safe)) - (##cdr _e147255147478_))) - (_hd147254147481_ + (##cdr _e147259147482_))) + (_hd147258147485_ (let () (declare (not safe)) - (##car _e147255147478_)))) + (##car _e147259147482_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd147254147481_)) - (let ((_e147258147486_ + (gx#stx-pair? _hd147258147485_)) + (let ((_e147262147490_ (let () (declare (not safe)) - (gx#stx-e _hd147254147481_)))) - (let ((_tl147256147491_ + (gx#stx-e _hd147258147485_)))) + (let ((_tl147260147495_ (let () (declare (not safe)) - (##cdr _e147258147486_))) - (_hd147257147489_ + (##cdr _e147262147490_))) + (_hd147261147493_ (let () (declare (not safe)) - (##car _e147258147486_)))) + (##car _e147262147490_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147256147491_)) + (gx#stx-null? _tl147260147495_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl147253147483_)) - (let ((_e147261147494_ + (gx#stx-pair? _tl147257147487_)) + (let ((_e147265147498_ (let () (declare (not safe)) - (gx#stx-e _tl147253147483_)))) - (let ((_tl147259147499_ + (gx#stx-e _tl147257147487_)))) + (let ((_tl147263147503_ (let () (declare (not safe)) - (##cdr _e147261147494_))) - (_hd147260147497_ + (##cdr _e147265147498_))) + (_hd147264147501_ (let () (declare (not safe)) - (##car _e147261147494_)))) + (##car _e147265147498_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd147260147497_)) - (let ((_e147264147502_ + _hd147264147501_)) + (let ((_e147268147506_ (let () (declare (not safe)) (gx#stx-e - _hd147260147497_)))) - (let ((_tl147262147507_ + _hd147264147501_)))) + (let ((_tl147266147511_ (let () (declare (not safe)) - (##cdr _e147264147502_))) - (_hd147263147505_ + (##cdr _e147268147506_))) + (_hd147267147509_ (let () (declare (not safe)) - (##car _e147264147502_)))) + (##car _e147268147506_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd147263147505_)) + _hd147267147509_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd147263147505_)) + _hd147267147509_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl147262147507_)) - (let ((_e147267147510_ + (gx#stx-pair? _tl147266147511_)) + (let ((_e147271147514_ (let () (declare (not safe)) - (gx#stx-e _tl147262147507_)))) - (let ((_tl147265147515_ + (gx#stx-e _tl147266147511_)))) + (let ((_tl147269147519_ (let () (declare (not safe)) - (##cdr _e147267147510_))) - (_hd147266147513_ + (##cdr _e147271147514_))) + (_hd147270147517_ (let () (declare (not safe)) - (##car _e147267147510_)))) + (##car _e147271147514_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147265147515_)) + (gx#stx-null? _tl147269147519_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl147259147499_)) + (gx#stx-null? _tl147263147503_)) (let () (declare (not safe)) - (_loop147249147464_ _lp-tl147252147475_)) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)))) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)))) + (_loop147253147468_ _lp-tl147256147479_)) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)))) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)))) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)))) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)))) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)))) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)))) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)))) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)))) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl147243147456_)) - (let ((_e147270147519_ + _tl147247147460_)) + (let ((_e147274147523_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl147243147456_)))) - (let ((_tl147268147524_ - (let () (declare (not safe)) (##cdr _e147270147519_))) - (_hd147269147522_ + (gx#stx-e _tl147247147460_)))) + (let ((_tl147272147528_ + (let () (declare (not safe)) (##cdr _e147274147523_))) + (_hd147273147526_ (let () (declare (not safe)) - (##car _e147270147519_)))) + (##car _e147274147523_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147268147524_)) - (___kont149337149338_) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_)))) - (___match149424149425_ - _e147242147443_ - _hd147241147446_ - _tl147240147448_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_))))))) + (gx#stx-null? _tl147272147528_)) + (___kont149341149342_) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_)))) + (___match149428149429_ + _e147246147447_ + _hd147245147450_ + _tl147244147452_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop147249147464_ - _target147246147459_)))))) + (_loop147253147468_ + _target147250147463_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149333149334_)) - (let ((_e147230147534_ + (gx#stx-pair? ___stx149337149338_)) + (let ((_e147234147538_ (let () (declare (not safe)) - (gx#stx-e ___stx149333149334_)))) - (let ((_tl147228147539_ + (gx#stx-e ___stx149337149338_)))) + (let ((_tl147232147543_ (let () (declare (not safe)) - (##cdr _e147230147534_))) - (_hd147229147537_ + (##cdr _e147234147538_))) + (_hd147233147541_ (let () (declare (not safe)) - (##car _e147230147534_)))) + (##car _e147234147538_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd147229147537_)) + (gx#identifier? _hd147233147541_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd147229147537_)) + _hd147233147541_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147228147539_)) - (let ((_e147233147542_ + _tl147232147543_)) + (let ((_e147237147546_ (let () (declare (not safe)) (gx#stx-e - _tl147228147539_)))) - (let ((_tl147231147547_ + _tl147232147543_)))) + (let ((_tl147235147551_ (let () (declare (not safe)) - (##cdr _e147233147542_))) - (_hd147232147545_ + (##cdr _e147237147546_))) + (_hd147236147549_ (let () (declare (not safe)) - (##car _e147233147542_)))) + (##car _e147237147546_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147231147547_)) - (let ((_e147236147550_ + _tl147235147551_)) + (let ((_e147240147554_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl147231147547_)))) - (let ((_tl147234147555_ - (let () (declare (not safe)) (##cdr _e147236147550_))) - (_hd147235147553_ - (let () (declare (not safe)) (##car _e147236147550_)))) + (gx#stx-e _tl147235147551_)))) + (let ((_tl147238147559_ + (let () (declare (not safe)) (##cdr _e147240147554_))) + (_hd147239147557_ + (let () (declare (not safe)) (##car _e147240147554_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl147234147555_)) - (let ((_e147239147558_ + (gx#stx-pair? _tl147238147559_)) + (let ((_e147243147562_ (let () (declare (not safe)) - (gx#stx-e _tl147234147555_)))) - (let ((_tl147237147563_ + (gx#stx-e _tl147238147559_)))) + (let ((_tl147241147567_ (let () (declare (not safe)) - (##cdr _e147239147558_))) - (_hd147238147561_ + (##cdr _e147243147562_))) + (_hd147242147565_ (let () (declare (not safe)) - (##car _e147239147558_)))) + (##car _e147243147562_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147237147563_)) - (___kont149335149336_ - _hd147238147561_ - _hd147235147553_ - _hd147232147545_) - (___kont149345149346_)))) - (___kont149345149346_)))) - (___kont149345149346_)))) + (gx#stx-null? _tl147241147567_)) + (___kont149339149340_ + _hd147242147565_ + _hd147239147557_ + _hd147236147549_) + (___kont149349149350_)))) + (___kont149349149350_)))) + (___kont149349149350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149345149346_)) + (___kont149349149350_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd147229147537_)) + _hd147233147541_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147228147539_)) - (let ((_e147245147451_ + _tl147232147543_)) + (let ((_e147249147455_ (let () (declare (not safe)) (gx#stx-e - _tl147228147539_)))) - (let ((_tl147243147456_ + _tl147232147543_)))) + (let ((_tl147247147460_ (let () (declare (not safe)) - (##cdr _e147245147451_))) - (_hd147244147454_ + (##cdr _e147249147455_))) + (_hd147248147458_ (let () (declare (not safe)) - (##car _e147245147451_)))) + (##car _e147249147455_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd147244147454_)) - (let ((___splice149339149340_ + _hd147248147458_)) + (let ((___splice149343149344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd147244147454_ '0)))) - (let ((_tl147248147461_ + (gx#syntax-split-splice _hd147248147458_ '0)))) + (let ((_tl147252147465_ (let () (declare (not safe)) - (##vector-ref ___splice149339149340_ '1))) - (_target147246147459_ + (##vector-ref ___splice149343149344_ '1))) + (_target147250147463_ (let () (declare (not safe)) - (##vector-ref ___splice149339149340_ '0)))) + (##vector-ref ___splice149343149344_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147248147461_)) - (___match149400149401_ - _e147230147534_ - _hd147229147537_ - _tl147228147539_ - _e147245147451_ - _hd147244147454_ - _tl147243147456_ - ___splice149339149340_ - _target147246147459_ - _tl147248147461_) - (___kont149345149346_)))) - (___kont149345149346_)))) + (gx#stx-null? _tl147252147465_)) + (___match149404149405_ + _e147234147538_ + _hd147233147541_ + _tl147232147543_ + _e147249147455_ + _hd147248147458_ + _tl147247147460_ + ___splice149343149344_ + _target147250147463_ + _tl147252147465_) + (___kont149349149350_)))) + (___kont149349149350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149345149346_)) - (___kont149345149346_))) - (___kont149345149346_)))) - (___kont149345149346_))))))) - (_fold-blocks147036_ - (lambda (_rest147135_ _blocks147136_) - (let* ((_rest147137147154_ _rest147135_) - (_E147140147158_ + (___kont149349149350_)) + (___kont149349149350_))) + (___kont149349149350_)))) + (___kont149349149350_))))))) + (_fold-blocks147040_ + (lambda (_rest147139_ _blocks147140_) + (let* ((_rest147141147158_ _rest147139_) + (_E147144147162_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest147137147154_))))) - (let ((_K147142147178_ - (lambda (_rest147169_ - _assert147170_ - _bind147171_ - _body147172_ - _name147173_) - (let ((_g152220_ + _rest147141147158_))))) + (let ((_K147146147182_ + (lambda (_rest147173_ + _assert147174_ + _bind147175_ + _body147176_ + _name147177_) + (let ((_g152224_ (let () (declare (not safe)) - (_basic-block147035_ - _body147172_ - _bind147171_ - _assert147170_)))) + (_basic-block147039_ + _body147176_ + _bind147175_ + _assert147174_)))) (begin - (let ((_g152221_ + (let ((_g152225_ (let () (declare (not safe)) - (if (##values? _g152220_) - (##vector-length _g152220_) + (if (##values? _g152224_) + (##vector-length _g152224_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152221_ 2))) + (##fx= _g152225_ 2))) (error "Context expects 2 values" - _g152221_))) - (let ((_body147175_ + _g152225_))) + (let ((_body147179_ (let () (declare (not safe)) - (##vector-ref _g152220_ 0))) - (_body-blocks147176_ + (##vector-ref _g152224_ 0))) + (_body-blocks147180_ (let () (declare (not safe)) - (##vector-ref _g152220_ 1)))) - (let ((__tmp152232 + (##vector-ref _g152224_ 1)))) + (let ((__tmp152236 (let () (declare (not safe)) (foldl1 cons - _rest147169_ - _body-blocks147176_))) - (__tmp152222 - (let ((__tmp152223 - (let ((__tmp152224 - (let ((__tmp152225 + _rest147173_ + _body-blocks147180_))) + (__tmp152226 + (let ((__tmp152227 + (let ((__tmp152228 + (let ((__tmp152229 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152228 - (let ((__tmp152229 - (let ((__tmp152231 - (reverse (map car _bind147171_))) - (__tmp152230 + (let ((__tmp152232 + (let ((__tmp152233 + (let ((__tmp152235 + (reverse (map car _bind147175_))) + (__tmp152234 (let () (declare (not safe)) - (cons _body147175_ '())))) + (cons _body147179_ '())))) (declare (not safe)) - (cons __tmp152231 __tmp152230)))) + (cons __tmp152235 __tmp152234)))) (declare (not safe)) - (cons '%#lambda __tmp152229))) - (__tmp152226 - (let ((__tmp152227 + (cons '%#lambda __tmp152233))) + (__tmp152230 + (let ((__tmp152231 (let () (declare (not safe)) - (cons _bind147171_ '())))) + (cons _bind147175_ '())))) (declare (not safe)) - (cons _assert147170_ __tmp152227)))) + (cons _assert147174_ __tmp152231)))) (declare (not safe)) - (cons __tmp152228 __tmp152226)))) + (cons __tmp152232 __tmp152230)))) (declare (not safe)) - (cons 'continue: __tmp152225)))) + (cons 'continue: __tmp152229)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name147173_ - __tmp152224)))) + (cons _name147177_ + __tmp152228)))) (declare (not safe)) - (cons __tmp152223 - _blocks147136_)))) + (cons __tmp152227 + _blocks147140_)))) (declare (not safe)) - (_fold-blocks147036_ - __tmp152232 - __tmp152222))))))) - (_K147141147163_ (lambda () _blocks147136_))) - (let ((_try-match147139147166_ + (_fold-blocks147040_ + __tmp152236 + __tmp152226))))))) + (_K147145147167_ (lambda () _blocks147140_))) + (let ((_try-match147143147170_ (lambda () (if (let () (declare (not safe)) - (##null? _rest147137147154_)) + (##null? _rest147141147158_)) (let () (declare (not safe)) - (_K147141147163_)) + (_K147145147167_)) (let () (declare (not safe)) - (_E147140147158_)))))) + (_E147144147162_)))))) (if (let () (declare (not safe)) - (##pair? _rest147137147154_)) - (let ((_tl147144147183_ + (##pair? _rest147141147158_)) + (let ((_tl147148147187_ (let () (declare (not safe)) - (##cdr _rest147137147154_))) - (_hd147143147181_ + (##cdr _rest147141147158_))) + (_hd147147147185_ (let () (declare (not safe)) - (##car _rest147137147154_)))) + (##car _rest147141147158_)))) (if (let () (declare (not safe)) - (##pair? _hd147143147181_)) - (let ((_tl147146147188_ + (##pair? _hd147147147185_)) + (let ((_tl147150147192_ (let () (declare (not safe)) - (##cdr _hd147143147181_))) - (_hd147145147186_ + (##cdr _hd147147147185_))) + (_hd147149147190_ (let () (declare (not safe)) - (##car _hd147143147181_)))) + (##car _hd147147147185_)))) (if (let () (declare (not safe)) - (##pair? _tl147146147188_)) - (let ((_tl147148147195_ + (##pair? _tl147150147192_)) + (let ((_tl147152147199_ (let () (declare (not safe)) - (##cdr _tl147146147188_))) - (_hd147147147193_ + (##cdr _tl147150147192_))) + (_hd147151147197_ (let () (declare (not safe)) - (##car _tl147146147188_)))) + (##car _tl147150147192_)))) (if (let () (declare (not safe)) - (##pair? _tl147148147195_)) - (let ((_tl147150147202_ + (##pair? _tl147152147199_)) + (let ((_tl147154147206_ (let () (declare (not safe)) - (##cdr _tl147148147195_))) - (_hd147149147200_ + (##cdr _tl147152147199_))) + (_hd147153147204_ (let () (declare (not safe)) - (##car _tl147148147195_)))) + (##car _tl147152147199_)))) (if (let () (declare (not safe)) - (##pair? _tl147150147202_)) - (let ((_tl147152147209_ + (##pair? _tl147154147206_)) + (let ((_tl147156147213_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl147150147202_))) - (_hd147151147207_ - (let () (declare (not safe)) (##car _tl147150147202_)))) - (if (let () (declare (not safe)) (##null? _tl147152147209_)) - (let ((_name147191_ _hd147145147186_) - (_body147198_ _hd147147147193_) - (_bind147205_ _hd147149147200_) - (_assert147212_ _hd147151147207_) - (_rest147214_ _tl147144147183_)) + (##cdr _tl147154147206_))) + (_hd147155147211_ + (let () (declare (not safe)) (##car _tl147154147206_)))) + (if (let () (declare (not safe)) (##null? _tl147156147213_)) + (let ((_name147195_ _hd147149147190_) + (_body147202_ _hd147151147197_) + (_bind147209_ _hd147153147204_) + (_assert147216_ _hd147155147211_) + (_rest147218_ _tl147148147187_)) (let () (declare (not safe)) - (_K147142147178_ - _rest147214_ - _assert147212_ - _bind147205_ - _body147198_ - _name147191_))) - (let () (declare (not safe)) (_E147140147158_)))) - (let () (declare (not safe)) (_E147140147158_)))) + (_K147146147182_ + _rest147218_ + _assert147216_ + _bind147209_ + _body147202_ + _name147195_))) + (let () (declare (not safe)) (_E147144147162_)))) + (let () (declare (not safe)) (_E147144147162_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E147140147158_)))) + (_E147144147162_)))) (let () (declare (not safe)) - (_E147140147158_)))) + (_E147144147162_)))) (let () (declare (not safe)) - (_E147140147158_)))) + (_E147144147162_)))) (let () (declare (not safe)) - (_try-match147139147166_))))))))) - (let* ((_clause147037147044_ _clause147030_) - (_E147039147048_ + (_try-match147143147170_))))))))) + (let* ((_clause147041147048_ _clause147034_) + (_E147043147052_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause147037147044_)))) - (_K147040147123_ - (lambda (_body147051_ _name147052_) - (let* ((_g147054147070_ - (lambda (_g147055147067_) + (error '"No clause matching" _clause147041147048_)))) + (_K147044147127_ + (lambda (_body147055_ _name147056_) + (let* ((_g147058147074_ + (lambda (_g147059147071_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g147055147067_)))) - (_g147053147120_ - (lambda (_g147055147073_) + _g147059147071_)))) + (_g147057147124_ + (lambda (_g147059147077_) (if (let () (declare (not safe)) - (gx#stx-pair? _g147055147073_)) - (let ((_e147059147075_ + (gx#stx-pair? _g147059147077_)) + (let ((_e147063147079_ (let () (declare (not safe)) - (gx#stx-e _g147055147073_)))) - (let ((_hd147058147078_ + (gx#stx-e _g147059147077_)))) + (let ((_hd147062147082_ (let () (declare (not safe)) - (##car _e147059147075_))) - (_tl147057147080_ + (##car _e147063147079_))) + (_tl147061147084_ (let () (declare (not safe)) - (##cdr _e147059147075_)))) + (##cdr _e147063147079_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd147058147078_)) + (gx#identifier? _hd147062147082_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd147058147078_)) + _hd147062147082_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147057147080_)) - (let ((_e147062147083_ + _tl147061147084_)) + (let ((_e147066147087_ (let () (declare (not safe)) (gx#stx-e - _tl147057147080_)))) - (let ((_hd147061147086_ + _tl147061147084_)))) + (let ((_hd147065147090_ (let () (declare (not safe)) - (##car _e147062147083_))) - (_tl147060147088_ + (##car _e147066147087_))) + (_tl147064147092_ (let () (declare (not safe)) - (##cdr _e147062147083_)))) + (##cdr _e147066147087_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd147061147086_)) + _hd147065147090_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl147060147088_)) - (let ((_e147065147091_ + (gx#stx-pair? _tl147064147092_)) + (let ((_e147069147095_ (let () (declare (not safe)) - (gx#stx-e _tl147060147088_)))) - (let ((_hd147064147094_ + (gx#stx-e _tl147064147092_)))) + (let ((_hd147068147098_ (let () (declare (not safe)) - (##car _e147065147091_))) - (_tl147063147096_ + (##car _e147069147095_))) + (_tl147067147100_ (let () (declare (not safe)) - (##cdr _e147065147091_)))) + (##cdr _e147069147095_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147063147096_)) - ((lambda (_L147099_) - (let ((_g152233_ + (gx#stx-null? _tl147067147100_)) + ((lambda (_L147103_) + (let ((_g152237_ (let () (declare (not safe)) - (_basic-block147035_ - _L147099_ + (_basic-block147039_ + _L147103_ '() '())))) (begin - (let ((_g152234_ + (let ((_g152238_ (let () (declare (not safe)) - (if (##values? _g152233_) - (##vector-length _g152233_) + (if (##values? _g152237_) + (##vector-length _g152237_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152234_ 2))) + (##fx= _g152238_ 2))) (error "Context expects 2 values" - _g152234_))) - (let ((_body147117_ + _g152238_))) + (let ((_body147121_ (let () (declare (not safe)) - (##vector-ref _g152233_ 0))) - (_body-blocks147118_ + (##vector-ref _g152237_ 0))) + (_body-blocks147122_ (let () (declare (not safe)) - (##vector-ref _g152233_ 1)))) - (let ((__tmp152235 - (let ((__tmp152236 - (let ((__tmp152237 - (let ((__tmp152238 + (##vector-ref _g152237_ 1)))) + (let ((__tmp152239 + (let ((__tmp152240 + (let ((__tmp152241 + (let ((__tmp152242 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152240 - (let ((__tmp152241 - (let ((__tmp152242 + (let ((__tmp152244 + (let ((__tmp152245 + (let ((__tmp152246 (let () (declare (not safe)) - (cons _body147117_ '())))) + (cons _body147121_ '())))) (declare (not safe)) - (cons '() __tmp152242)))) + (cons '() __tmp152246)))) (declare (not safe)) - (cons '%#lambda __tmp152241))) - (__tmp152239 + (cons '%#lambda __tmp152245))) + (__tmp152243 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp152240 __tmp152239)))) + (cons __tmp152244 __tmp152243)))) (declare (not safe)) - (cons 'restart: __tmp152238)))) + (cons 'restart: __tmp152242)))) (declare (not safe)) - (cons _name147052_ __tmp152237)))) + (cons _name147056_ __tmp152241)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152236 - _blocks147031_)))) + (cons __tmp152240 + _blocks147035_)))) (declare (not safe)) - (_fold-blocks147036_ - _body-blocks147118_ - __tmp152235)))))) - _hd147064147094_) + (_fold-blocks147040_ + _body-blocks147122_ + __tmp152239)))))) + _hd147068147098_) (let () (declare (not safe)) - (_g147054147070_ _g147055147073_))))) + (_g147058147074_ _g147059147077_))))) (let () (declare (not safe)) - (_g147054147070_ _g147055147073_))) + (_g147058147074_ _g147059147077_))) (let () (declare (not safe)) - (_g147054147070_ _g147055147073_))))) + (_g147058147074_ _g147059147077_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g147054147070_ - _g147055147073_))) + (_g147058147074_ + _g147059147077_))) (let () (declare (not safe)) - (_g147054147070_ - _g147055147073_))) + (_g147058147074_ + _g147059147077_))) (let () (declare (not safe)) - (_g147054147070_ - _g147055147073_))))) + (_g147058147074_ + _g147059147077_))))) (let () (declare (not safe)) - (_g147054147070_ _g147055147073_)))))) + (_g147058147074_ _g147059147077_)))))) (declare (not safe)) - (_g147053147120_ _body147051_))))) - (if (let () (declare (not safe)) (##pair? _clause147037147044_)) - (let ((_hd147041147126_ + (_g147057147124_ _body147055_))))) + (if (let () (declare (not safe)) (##pair? _clause147041147048_)) + (let ((_hd147045147130_ (let () (declare (not safe)) - (##car _clause147037147044_))) - (_tl147042147128_ + (##car _clause147041147048_))) + (_tl147046147132_ (let () (declare (not safe)) - (##cdr _clause147037147044_)))) - (let* ((_name147131_ _hd147041147126_) - (_body147133_ _tl147042147128_)) + (##cdr _clause147041147048_)))) + (let* ((_name147135_ _hd147045147130_) + (_body147137_ _tl147046147132_)) (declare (not safe)) - (_K147040147123_ _body147133_ _name147131_))) - (let () (declare (not safe)) (_E147039147048_))))))) + (_K147044147127_ _body147137_ _name147135_))) + (let () (declare (not safe)) (_E147043147052_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks146636_) - (let _lp146638_ ((_rest146640_ _blocks146636_) (_blocks146641_ '())) - (let* ((_rest146642146650_ _rest146640_) - (_else146644146699_ + (lambda (_blocks146640_) + (let _lp146642_ ((_rest146644_ _blocks146640_) (_blocks146645_ '())) + (let* ((_rest146646146654_ _rest146644_) + (_else146648146703_ (lambda () - (let ((__tmp152243 - (lambda (_block146658_ _r146659_) - (let* ((_block146660146671_ _block146658_) - (_E146662146675_ + (let ((__tmp152247 + (lambda (_block146662_ _r146663_) + (let* ((_block146664146675_ _block146662_) + (_E146666146679_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block146660146671_)))) - (_K146663146681_ - (lambda (_kont146678_ _name146679_) - (let ((__tmp152244 + _block146664146675_)))) + (_K146667146685_ + (lambda (_kont146682_ _name146683_) + (let ((__tmp152248 (let () (declare (not safe)) - (cons _name146679_ - _kont146678_)))) + (cons _name146683_ + _kont146682_)))) (declare (not safe)) - (cons __tmp152244 _r146659_))))) + (cons __tmp152248 _r146663_))))) (if (let () (declare (not safe)) - (##pair? _block146660146671_)) - (let ((_hd146664146684_ + (##pair? _block146664146675_)) + (let ((_hd146668146688_ (let () (declare (not safe)) - (##car _block146660146671_))) - (_tl146665146686_ + (##car _block146664146675_))) + (_tl146669146690_ (let () (declare (not safe)) - (##cdr _block146660146671_)))) - (let ((_name146689_ _hd146664146684_)) + (##cdr _block146664146675_)))) + (let ((_name146693_ _hd146668146688_)) (if (let () (declare (not safe)) - (##pair? _tl146665146686_)) - (let ((_tl146667146691_ + (##pair? _tl146669146690_)) + (let ((_tl146671146695_ (let () (declare (not safe)) - (##cdr _tl146665146686_)))) + (##cdr _tl146669146690_)))) (if (let () (declare (not safe)) - (##pair? _tl146667146691_)) - (let* ((_hd146668146694_ + (##pair? _tl146671146695_)) + (let* ((_hd146672146698_ (let () (declare (not safe)) - (##car _tl146667146691_))) - (_kont146697_ - _hd146668146694_)) + (##car _tl146671146695_))) + (_kont146701_ + _hd146672146698_)) (declare (not safe)) - (_K146663146681_ - _kont146697_ - _name146689_)) + (_K146667146685_ + _kont146701_ + _name146693_)) (let () (declare (not safe)) - (_E146662146675_)))) + (_E146666146679_)))) (let () (declare (not safe)) - (_E146662146675_))))) + (_E146666146679_))))) (let () (declare (not safe)) - (_E146662146675_))))))) + (_E146666146679_))))))) (declare (not safe)) - (foldl1 __tmp152243 '() _blocks146641_)))) - (_K146646147018_ - (lambda (_rest146702_ _block146703_) - (let* ((_block146704146729_ _block146703_) - (_E146707146733_ + (foldl1 __tmp152247 '() _blocks146645_)))) + (_K146650147022_ + (lambda (_rest146706_ _block146707_) + (let* ((_block146708146733_ _block146707_) + (_E146711146737_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block146704146729_))))) - (let ((_K146719146989_ - (lambda (_assert146911_ _kont146912_ _name146913_) - (let* ((_g146915146931_ - (lambda (_g146916146928_) + _block146708146733_))))) + (let ((_K146723146993_ + (lambda (_assert146915_ _kont146916_ _name146917_) + (let* ((_g146919146935_ + (lambda (_g146920146932_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g146916146928_)))) - (_g146914146986_ - (lambda (_g146916146934_) + _g146920146932_)))) + (_g146918146990_ + (lambda (_g146920146938_) (if (let () (declare (not safe)) - (gx#stx-pair? _g146916146934_)) - (let ((_e146920146936_ + (gx#stx-pair? _g146920146938_)) + (let ((_e146924146940_ (let () (declare (not safe)) (gx#stx-e - _g146916146934_)))) - (let ((_hd146919146939_ + _g146920146938_)))) + (let ((_hd146923146943_ (let () (declare (not safe)) - (##car _e146920146936_))) - (_tl146918146941_ + (##car _e146924146940_))) + (_tl146922146945_ (let () (declare (not safe)) - (##cdr _e146920146936_)))) + (##cdr _e146924146940_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146919146939_)) + _hd146923146943_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd146919146939_)) + _hd146923146943_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl146918146941_)) - (let ((_e146923146944_ + (gx#stx-pair? _tl146922146945_)) + (let ((_e146927146948_ (let () (declare (not safe)) - (gx#stx-e _tl146918146941_)))) - (let ((_hd146922146947_ + (gx#stx-e _tl146922146945_)))) + (let ((_hd146926146951_ (let () (declare (not safe)) - (##car _e146923146944_))) - (_tl146921146949_ + (##car _e146927146948_))) + (_tl146925146953_ (let () (declare (not safe)) - (##cdr _e146923146944_)))) + (##cdr _e146927146948_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd146922146947_)) + (gx#stx-null? _hd146926146951_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146921146949_)) - (let ((_e146926146952_ + (gx#stx-pair? _tl146925146953_)) + (let ((_e146930146956_ (let () (declare (not safe)) - (gx#stx-e _tl146921146949_)))) - (let ((_hd146925146955_ + (gx#stx-e _tl146925146953_)))) + (let ((_hd146929146959_ (let () (declare (not safe)) - (##car _e146926146952_))) - (_tl146924146957_ + (##car _e146930146956_))) + (_tl146928146961_ (let () (declare (not safe)) - (##cdr _e146926146952_)))) + (##cdr _e146930146956_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146924146957_)) - ((lambda (_L146960_) - (let* ((_body146975_ + (gx#stx-null? _tl146928146961_)) + ((lambda (_L146964_) + (let* ((_body146979_ (let () (declare (not safe)) (gxc#optimize-match-block - _L146960_ - _assert146911_ + _L146964_ + _assert146915_ '() - _rest146702_))) - (_block146977_ - (let ((__tmp152245 - (let ((__tmp152246 + _rest146706_))) + (_block146981_ + (let ((__tmp152249 + (let ((__tmp152250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152248 - (let ((__tmp152249 - (let ((__tmp152250 + (let ((__tmp152252 + (let ((__tmp152253 + (let ((__tmp152254 (let () (declare (not safe)) - (cons _body146975_ '())))) + (cons _body146979_ '())))) (declare (not safe)) - (cons '() __tmp152250)))) + (cons '() __tmp152254)))) (declare (not safe)) - (cons '%#lambda __tmp152249))) - (__tmp152247 + (cons '%#lambda __tmp152253))) + (__tmp152251 (let () (declare (not safe)) - (cons _assert146911_ '())))) + (cons _assert146915_ '())))) (declare (not safe)) - (cons __tmp152248 __tmp152247)))) + (cons __tmp152252 __tmp152251)))) (declare (not safe)) - (cons 'restart: __tmp152246)))) + (cons 'restart: __tmp152250)))) (declare (not safe)) - (cons _name146913_ __tmp152245))) + (cons _name146917_ __tmp152249))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks146979_ + (_blocks146983_ (let () (declare (not safe)) - (cons _block146977_ - _blocks146641_))) - (_rest146981_ + (cons _block146981_ + _blocks146645_))) + (_rest146985_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest146702_ - _blocks146979_))) - (_rest146983_ + _rest146706_ + _blocks146983_))) + (_rest146987_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest146981_ - _blocks146979_)))) + _rest146985_ + _blocks146983_)))) (let () (declare (not safe)) - (_lp146638_ - _rest146983_ - _blocks146979_)))) - _hd146925146955_) + (_lp146642_ + _rest146987_ + _blocks146983_)))) + _hd146929146959_) (let () (declare (not safe)) - (_g146915146931_ - _g146916146934_))))) + (_g146919146935_ + _g146920146938_))))) (let () (declare (not safe)) - (_g146915146931_ _g146916146934_))) + (_g146919146935_ _g146920146938_))) (let () (declare (not safe)) - (_g146915146931_ _g146916146934_))))) + (_g146919146935_ _g146920146938_))))) (let () (declare (not safe)) - (_g146915146931_ _g146916146934_))) + (_g146919146935_ _g146920146938_))) (let () (declare (not safe)) - (_g146915146931_ _g146916146934_))) + (_g146919146935_ _g146920146938_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146915146931_ - _g146916146934_))))) + (_g146919146935_ + _g146920146938_))))) (let () (declare (not safe)) - (_g146915146931_ - _g146916146934_)))))) + (_g146919146935_ + _g146920146938_)))))) (declare (not safe)) - (_g146914146986_ _kont146912_)))) - (_K146708146872_ - (lambda (_bind146737_ - _assert146738_ - _kont146739_ - _name146740_) - (let* ((_g146742146768_ - (lambda (_g146743146765_) + (_g146918146990_ _kont146916_)))) + (_K146712146876_ + (lambda (_bind146741_ + _assert146742_ + _kont146743_ + _name146744_) + (let* ((_g146746146772_ + (lambda (_g146747146769_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g146743146765_)))) - (_g146741146869_ - (lambda (_g146743146771_) + _g146747146769_)))) + (_g146745146873_ + (lambda (_g146747146775_) (if (let () (declare (not safe)) - (gx#stx-pair? _g146743146771_)) - (let ((_e146748146773_ + (gx#stx-pair? _g146747146775_)) + (let ((_e146752146777_ (let () (declare (not safe)) (gx#stx-e - _g146743146771_)))) - (let ((_hd146747146776_ + _g146747146775_)))) + (let ((_hd146751146780_ (let () (declare (not safe)) - (##car _e146748146773_))) - (_tl146746146778_ + (##car _e146752146777_))) + (_tl146750146782_ (let () (declare (not safe)) - (##cdr _e146748146773_)))) + (##cdr _e146752146777_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146747146776_)) + _hd146751146780_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd146747146776_)) + _hd146751146780_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl146746146778_)) - (let ((_e146751146781_ + (gx#stx-pair? _tl146750146782_)) + (let ((_e146755146785_ (let () (declare (not safe)) - (gx#stx-e _tl146746146778_)))) - (let ((_hd146750146784_ + (gx#stx-e _tl146750146782_)))) + (let ((_hd146754146788_ (let () (declare (not safe)) - (##car _e146751146781_))) - (_tl146749146786_ + (##car _e146755146785_))) + (_tl146753146790_ (let () (declare (not safe)) - (##cdr _e146751146781_)))) + (##cdr _e146755146785_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd146750146784_)) - (let ((_g152251_ + (gx#stx-pair/null? _hd146754146788_)) + (let ((_g152255_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd146750146784_ + _hd146754146788_ '0)))) (begin - (let ((_g152252_ + (let ((_g152256_ (let () (declare (not safe)) - (if (##values? _g152251_) - (##vector-length _g152251_) + (if (##values? _g152255_) + (##vector-length _g152255_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152252_ 2))) + (##fx= _g152256_ 2))) (error "Context expects 2 values" - _g152252_))) - (let ((_target146752146789_ + _g152256_))) + (let ((_target146756146793_ (let () (declare (not safe)) - (##vector-ref _g152251_ 0))) - (_tl146754146791_ + (##vector-ref _g152255_ 0))) + (_tl146758146795_ (let () (declare (not safe)) - (##vector-ref _g152251_ 1)))) + (##vector-ref _g152255_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146754146791_)) - (letrec ((_loop146755146794_ - (lambda (_hd146753146797_ - _id146759146799_) + (gx#stx-null? _tl146758146795_)) + (letrec ((_loop146759146798_ + (lambda (_hd146757146801_ + _id146763146803_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd146753146797_)) - (let ((_e146756146802_ + _hd146757146801_)) + (let ((_e146760146806_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd146753146797_)))) - (let ((_lp-hd146757146805_ - (let () (declare (not safe)) (##car _e146756146802_))) - (_lp-tl146758146807_ - (let () (declare (not safe)) (##cdr _e146756146802_)))) - (let ((__tmp152262 + (gx#stx-e _hd146757146801_)))) + (let ((_lp-hd146761146809_ + (let () (declare (not safe)) (##car _e146760146806_))) + (_lp-tl146762146811_ + (let () (declare (not safe)) (##cdr _e146760146806_)))) + (let ((__tmp152266 (let () (declare (not safe)) - (cons _lp-hd146757146805_ _id146759146799_)))) + (cons _lp-hd146761146809_ _id146763146803_)))) (declare (not safe)) - (_loop146755146794_ _lp-tl146758146807_ __tmp152262)))) - (let ((_id146760146810_ (reverse _id146759146799_))) + (_loop146759146798_ _lp-tl146762146811_ __tmp152266)))) + (let ((_id146764146814_ (reverse _id146763146803_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146749146786_)) - (let ((_e146763146813_ + (gx#stx-pair? _tl146753146790_)) + (let ((_e146767146817_ (let () (declare (not safe)) - (gx#stx-e _tl146749146786_)))) - (let ((_hd146762146816_ + (gx#stx-e _tl146753146790_)))) + (let ((_hd146766146820_ (let () (declare (not safe)) - (##car _e146763146813_))) - (_tl146761146818_ + (##car _e146767146817_))) + (_tl146765146822_ (let () (declare (not safe)) - (##cdr _e146763146813_)))) + (##cdr _e146767146817_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146761146818_)) - ((lambda (_L146821_ _L146822_) - (let* ((_body146851_ + (gx#stx-null? _tl146765146822_)) + ((lambda (_L146825_ _L146826_) + (let* ((_body146855_ (let () (declare (not safe)) (gxc#optimize-match-block - _L146821_ - _assert146738_ - _bind146737_ - _rest146702_))) - (_block146860_ - (let ((__tmp152253 - (let ((__tmp152254 - (let ((__tmp152257 - (let ((__tmp152258 + _L146825_ + _assert146742_ + _bind146741_ + _rest146706_))) + (_block146864_ + (let ((__tmp152257 + (let ((__tmp152258 + (let ((__tmp152261 + (let ((__tmp152262 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152260 - (let ((__tmp152261 - (lambda (_g146852146855_ - _g146853146857_) + (let ((__tmp152264 + (let ((__tmp152265 + (lambda (_g146856146859_ + _g146857146861_) (let () (declare (not safe)) - (cons _g146852146855_ - _g146853146857_))))) + (cons _g146856146859_ + _g146857146861_))))) (declare (not safe)) - (foldr1 __tmp152261 '() _L146822_))) - (__tmp152259 + (foldr1 __tmp152265 '() _L146826_))) + (__tmp152263 (let () (declare (not safe)) - (cons _body146851_ '())))) + (cons _body146855_ '())))) (declare (not safe)) - (cons __tmp152260 __tmp152259)))) + (cons __tmp152264 __tmp152263)))) (declare (not safe)) - (cons '%#lambda __tmp152258))) - (__tmp152255 - (let ((__tmp152256 + (cons '%#lambda __tmp152262))) + (__tmp152259 + (let ((__tmp152260 (let () (declare (not safe)) - (cons _bind146737_ '())))) + (cons _bind146741_ '())))) (declare (not safe)) - (cons _assert146738_ __tmp152256)))) + (cons _assert146742_ __tmp152260)))) (declare (not safe)) - (cons __tmp152257 __tmp152255)))) + (cons __tmp152261 __tmp152259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp152254)))) + __tmp152258)))) (declare (not safe)) - (cons _name146740_ __tmp152253))) - (_blocks146862_ + (cons _name146744_ __tmp152257))) + (_blocks146866_ (let () (declare (not safe)) - (cons _block146860_ _blocks146641_))) - (_rest146864_ + (cons _block146864_ _blocks146645_))) + (_rest146868_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest146702_ - _blocks146862_))) - (_rest146866_ + _rest146706_ + _blocks146866_))) + (_rest146870_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest146864_ - _blocks146862_)))) + _rest146868_ + _blocks146866_)))) (let () (declare (not safe)) - (_lp146638_ _rest146866_ _blocks146862_)))) - _hd146762146816_ - _id146760146810_) + (_lp146642_ _rest146870_ _blocks146866_)))) + _hd146766146820_ + _id146764146814_) (let () (declare (not safe)) - (_g146742146768_ _g146743146771_))))) + (_g146746146772_ _g146747146775_))))) (let () (declare (not safe)) - (_g146742146768_ _g146743146771_)))))))) + (_g146746146772_ _g146747146775_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop146755146794_ - _target146752146789_ + (_loop146759146798_ + _target146756146793_ '()))) (let () (declare (not safe)) - (_g146742146768_ _g146743146771_)))))) + (_g146746146772_ _g146747146775_)))))) (let () (declare (not safe)) - (_g146742146768_ _g146743146771_))))) + (_g146746146772_ _g146747146775_))))) (let () (declare (not safe)) - (_g146742146768_ _g146743146771_))) + (_g146746146772_ _g146747146775_))) (let () (declare (not safe)) - (_g146742146768_ _g146743146771_))) + (_g146746146772_ _g146747146775_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146742146768_ - _g146743146771_))))) + (_g146746146772_ + _g146747146775_))))) (let () (declare (not safe)) - (_g146742146768_ - _g146743146771_)))))) + (_g146746146772_ + _g146747146775_)))))) (declare (not safe)) - (_g146741146869_ _kont146739_))))) + (_g146745146873_ _kont146743_))))) (if (let () (declare (not safe)) - (##pair? _block146704146729_)) - (let ((_tl146721146994_ + (##pair? _block146708146733_)) + (let ((_tl146725146998_ (let () (declare (not safe)) - (##cdr _block146704146729_))) - (_hd146720146992_ + (##cdr _block146708146733_))) + (_hd146724146996_ (let () (declare (not safe)) - (##car _block146704146729_)))) + (##car _block146708146733_)))) (if (let () (declare (not safe)) - (##pair? _tl146721146994_)) - (let ((_tl146723147001_ + (##pair? _tl146725146998_)) + (let ((_tl146727147005_ (let () (declare (not safe)) - (##cdr _tl146721146994_))) - (_hd146722146999_ + (##cdr _tl146725146998_))) + (_hd146726147003_ (let () (declare (not safe)) - (##car _tl146721146994_)))) + (##car _tl146725146998_)))) (if (let () (declare (not safe)) - (##eq? _hd146722146999_ 'restart:)) + (##eq? _hd146726147003_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl146723147001_)) - (let ((_tl146725147006_ + (##pair? _tl146727147005_)) + (let ((_tl146729147010_ (let () (declare (not safe)) - (##cdr _tl146723147001_))) - (_hd146724147004_ + (##cdr _tl146727147005_))) + (_hd146728147008_ (let () (declare (not safe)) - (##car _tl146723147001_)))) + (##car _tl146727147005_)))) (if (let () (declare (not safe)) - (##pair? _tl146725147006_)) - (let ((_tl146727147013_ + (##pair? _tl146729147010_)) + (let ((_tl146731147017_ (let () (declare (not safe)) - (##cdr _tl146725147006_))) - (_hd146726147011_ + (##cdr _tl146729147010_))) + (_hd146730147015_ (let () (declare (not safe)) - (##car _tl146725147006_)))) + (##car _tl146729147010_)))) (if (let () (declare (not safe)) - (##null? _tl146727147013_)) - (let ((_name146997_ - _hd146720146992_) - (_kont147009_ - _hd146724147004_) - (_assert147016_ - _hd146726147011_)) + (##null? _tl146731147017_)) + (let ((_name147001_ + _hd146724146996_) + (_kont147013_ + _hd146728147008_) + (_assert147020_ + _hd146730147015_)) (let () (declare (not safe)) - (_K146719146989_ - _assert147016_ - _kont147009_ - _name146997_))) + (_K146723146993_ + _assert147020_ + _kont147013_ + _name147001_))) (let () (declare (not safe)) - (_E146707146733_)))) + (_E146711146737_)))) (let () (declare (not safe)) - (_E146707146733_)))) + (_E146711146737_)))) (let () (declare (not safe)) - (_E146707146733_))) + (_E146711146737_))) (if (let () (declare (not safe)) - (##eq? _hd146722146999_ + (##eq? _hd146726147003_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl146723147001_)) - (let ((_tl146714146889_ + (##pair? _tl146727147005_)) + (let ((_tl146718146893_ (let () (declare (not safe)) - (##cdr _tl146723147001_))) - (_hd146713146887_ + (##cdr _tl146727147005_))) + (_hd146717146891_ (let () (declare (not safe)) - (##car _tl146723147001_)))) + (##car _tl146727147005_)))) (if (let () (declare (not safe)) - (##pair? _tl146714146889_)) - (let ((_tl146716146896_ + (##pair? _tl146718146893_)) + (let ((_tl146720146900_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl146714146889_))) - (_hd146715146894_ - (let () (declare (not safe)) (##car _tl146714146889_)))) - (if (let () (declare (not safe)) (##pair? _tl146716146896_)) - (let ((_tl146718146903_ + (##cdr _tl146718146893_))) + (_hd146719146898_ + (let () (declare (not safe)) (##car _tl146718146893_)))) + (if (let () (declare (not safe)) (##pair? _tl146720146900_)) + (let ((_tl146722146907_ (let () (declare (not safe)) - (##cdr _tl146716146896_))) - (_hd146717146901_ + (##cdr _tl146720146900_))) + (_hd146721146905_ (let () (declare (not safe)) - (##car _tl146716146896_)))) + (##car _tl146720146900_)))) (if (let () (declare (not safe)) - (##null? _tl146718146903_)) - (let ((_name146880_ _hd146720146992_) - (_kont146892_ _hd146713146887_) - (_assert146899_ _hd146715146894_) - (_bind146906_ _hd146717146901_)) + (##null? _tl146722146907_)) + (let ((_name146884_ _hd146724146996_) + (_kont146896_ _hd146717146891_) + (_assert146903_ _hd146719146898_) + (_bind146910_ _hd146721146905_)) (let () (declare (not safe)) - (_K146708146872_ - _bind146906_ - _assert146899_ - _kont146892_ - _name146880_))) - (let () (declare (not safe)) (_E146707146733_)))) - (let () (declare (not safe)) (_E146707146733_)))) - (let () (declare (not safe)) (_E146707146733_)))) + (_K146712146876_ + _bind146910_ + _assert146903_ + _kont146896_ + _name146884_))) + (let () (declare (not safe)) (_E146711146737_)))) + (let () (declare (not safe)) (_E146711146737_)))) + (let () (declare (not safe)) (_E146711146737_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E146707146733_))) + (_E146711146737_))) (let () (declare (not safe)) - (_E146707146733_))))) + (_E146711146737_))))) (let () (declare (not safe)) - (_E146707146733_)))) + (_E146711146737_)))) (let () (declare (not safe)) - (_E146707146733_)))))))) - (if (let () (declare (not safe)) (##pair? _rest146642146650_)) - (let ((_hd146647147021_ + (_E146711146737_)))))))) + (if (let () (declare (not safe)) (##pair? _rest146646146654_)) + (let ((_hd146651147025_ (let () (declare (not safe)) - (##car _rest146642146650_))) - (_tl146648147023_ + (##car _rest146646146654_))) + (_tl146652147027_ (let () (declare (not safe)) - (##cdr _rest146642146650_)))) - (let* ((_block147026_ _hd146647147021_) - (_rest147028_ _tl146648147023_)) + (##cdr _rest146646146654_)))) + (let* ((_block147030_ _hd146651147025_) + (_rest147032_ _tl146652147027_)) (declare (not safe)) - (_K146646147018_ _rest147028_ _block147026_))) - (let () (declare (not safe)) (_else146644146699_))))))) + (_K146650147022_ _rest147032_ _block147030_))) + (let () (declare (not safe)) (_else146648146703_))))))) (define gxc#optimize-match-block - (lambda (_body141269_ _assert141270_ _bind141271_ _blocks141272_) - (letrec* ((_env-assert141507_ '()) - (_env-type141508_ '()) - (_env-bind141509_ '()) - (_in-splice?141510_ '#f) - (_do-assert141511_ - (lambda (_assert146559_ _K146560_) - (if (let () (declare (not safe)) (pair? _assert146559_)) - (let _lp146562_ ((_rest146564_ _assert146559_) - (_env-assert146565_ - _env-assert141507_) - (_env-type146566_ _env-type141508_)) - (let* ((_rest146567146575_ _rest146564_) - (_else146569146583_ + (lambda (_body141273_ _assert141274_ _bind141275_ _blocks141276_) + (letrec* ((_env-assert141511_ '()) + (_env-type141512_ '()) + (_env-bind141513_ '()) + (_in-splice?141514_ '#f) + (_do-assert141515_ + (lambda (_assert146563_ _K146564_) + (if (let () (declare (not safe)) (pair? _assert146563_)) + (let _lp146566_ ((_rest146568_ _assert146563_) + (_env-assert146569_ + _env-assert141511_) + (_env-type146570_ _env-type141512_)) + (let* ((_rest146571146579_ _rest146568_) + (_else146573146587_ (lambda () (let () (declare (not safe)) - (_do-assert!141517_ - _env-assert146565_ - _env-type146566_ - _K146560_)))) - (_K146571146624_ - (lambda (_rest146586_ _assert146587_) - (let* ((_assert146588146595_ - _assert146587_) - (_E146590146599_ + (_do-assert!141521_ + _env-assert146569_ + _env-type146570_ + _K146564_)))) + (_K146575146628_ + (lambda (_rest146590_ _assert146591_) + (let* ((_assert146592146599_ + _assert146591_) + (_E146594146603_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _assert146588146595_)))) - (_K146591146612_ - (lambda (_val146602_ _expr146603_) - (let* ((_sexpr146605_ + _assert146592146599_)))) + (_K146595146616_ + (lambda (_val146606_ _expr146607_) + (let* ((_sexpr146609_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr146603_))) - (_env-assert146607_ - (let ((__tmp152263 + _expr146607_))) + (_env-assert146611_ + (let ((__tmp152267 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr146605_ _val146602_)))) + (cons _sexpr146609_ _val146606_)))) (declare (not safe)) - (cons __tmp152263 _env-assert146565_))) - (_env-type146609_ + (cons __tmp152267 _env-assert146569_))) + (_env-type146613_ (let () (declare (not safe)) - (_fold-assert-type141513_ - _expr146603_ - _val146602_ - _env-type146566_)))) + (_fold-assert-type141517_ + _expr146607_ + _val146606_ + _env-type146570_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp146562_ - _rest146586_ - _env-assert146607_ - _env-type146609_)))))) + (_lp146566_ + _rest146590_ + _env-assert146611_ + _env-type146613_)))))) (if (let () (declare (not safe)) - (##pair? _assert146588146595_)) - (let ((_hd146592146615_ + (##pair? _assert146592146599_)) + (let ((_hd146596146619_ (let () (declare (not safe)) - (##car _assert146588146595_))) - (_tl146593146617_ + (##car _assert146592146599_))) + (_tl146597146621_ (let () (declare (not safe)) - (##cdr _assert146588146595_)))) - (let* ((_expr146620_ - _hd146592146615_) - (_val146622_ - _tl146593146617_)) + (##cdr _assert146592146599_)))) + (let* ((_expr146624_ + _hd146596146619_) + (_val146626_ + _tl146597146621_)) (declare (not safe)) - (_K146591146612_ - _val146622_ - _expr146620_))) + (_K146595146616_ + _val146626_ + _expr146624_))) (let () (declare (not safe)) - (_E146590146599_))))))) + (_E146594146603_))))))) (if (let () (declare (not safe)) - (##pair? _rest146567146575_)) - (let ((_hd146572146627_ + (##pair? _rest146571146579_)) + (let ((_hd146576146631_ (let () (declare (not safe)) - (##car _rest146567146575_))) - (_tl146573146629_ + (##car _rest146571146579_))) + (_tl146577146633_ (let () (declare (not safe)) - (##cdr _rest146567146575_)))) - (let* ((_assert146632_ _hd146572146627_) - (_rest146634_ _tl146573146629_)) + (##cdr _rest146571146579_)))) + (let* ((_assert146636_ _hd146576146631_) + (_rest146638_ _tl146577146633_)) (declare (not safe)) - (_K146571146624_ - _rest146634_ - _assert146632_))) + (_K146575146628_ + _rest146638_ + _assert146636_))) (let () (declare (not safe)) - (_else146569146583_))))) - (_K146560_)))) - (_predicate-type141512_ - (lambda (_id146504_) - (let* ((_sym146506_ + (_else146573146587_))))) + (_K146564_)))) + (_predicate-type141516_ + (lambda (_id146508_) + (let* ((_sym146510_ (let () (declare (not safe)) - (gxc#identifier-symbol _id146504_))) - (_$e146508_ _sym146506_)) - (let ((_default146510146541_ + (gxc#identifier-symbol _id146508_))) + (_$e146512_ _sym146510_)) + (let ((_default146514146545_ (lambda () - (let* ((_g146513146520_ + (let* ((_g146517146524_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym146506_))) - (_else146515146528_ (lambda () '#f)) - (_K146517146533_ - (lambda (_t146531_) + _sym146510_))) + (_else146519146532_ (lambda () '#f)) + (_K146521146537_ + (lambda (_t146535_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t146531_))))) + _t146535_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g146513146520_ + _g146517146524_ 'gxc#!predicate::t)) - (let* ((_e146518146536_ + (let* ((_e146522146540_ (let () (declare (not safe)) (##unchecked-structure-ref - _g146513146520_ + _g146517146524_ '1 gxc#!type::t '#f))) - (_t146539_ _e146518146536_)) + (_t146543_ _e146522146540_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t146539_)) + (gxc#optimizer-resolve-type _t146543_)) (let () (declare (not safe)) - (_else146515146528_)))))) - (_table146511146543_ + (_else146519146532_)))))) + (_table146515146547_ '#(#f (##box? . 3) #f @@ -4493,50 +4493,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e146508_)) - (let* ((_h146546_ + (if (let () (declare (not safe)) (symbol? _$e146512_)) + (let* ((_h146550_ (let () (declare (not safe)) - (##symbol-hash _$e146508_))) - (_ix146549_ + (##symbol-hash _$e146512_))) + (_ix146553_ (let () (declare (not safe)) - (##fxmodulo _h146546_ '63))) - (_q146552_ + (##fxmodulo _h146550_ '63))) + (_q146556_ (let () (declare (not safe)) (##vector-ref - _table146511146543_ - _ix146549_)))) - (if _q146552_ - (if (let ((__tmp152264 + _table146515146547_ + _ix146553_)))) + (if _q146556_ + (if (let ((__tmp152268 (let () (declare (not safe)) - (##car _q146552_)))) + (##car _q146556_)))) (declare (not safe)) - (eq? __tmp152264 _$e146508_)) - (let ((_x146556_ + (eq? __tmp152268 _$e146512_)) + (let ((_x146560_ (let () (declare (not safe)) - (##cdr _q146552_)))) + (##cdr _q146556_)))) (if (let () (declare (not safe)) - (##fx< _x146556_ '5)) + (##fx< _x146560_ '5)) (if (let () (declare (not safe)) - (##fx< _x146556_ '2)) + (##fx< _x146560_ '2)) (if (let () (declare (not safe)) - (##fx= _x146556_ '0)) + (##fx= _x146560_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x146556_ '2)) + (##fx= _x146560_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x146556_ + (##fx= _x146560_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4544,19 +4544,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x146556_ '7)) + (##fx< _x146560_ '7)) (if (let () (declare (not safe)) - (##fx= _x146556_ '5)) + (##fx= _x146560_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x146556_ '7)) + (##fx= _x146560_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x146556_ + (##fx= _x146560_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4564,5308 +4564,5308 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default146510146541_))) + (_default146514146545_))) (let () (declare (not safe)) - (_default146510146541_)))) + (_default146514146545_)))) (let () (declare (not safe)) - (_default146510146541_))))))) - (_fold-assert-type141513_ - (lambda (_expr145452_ _val145453_ _env145454_) - (let* ((___stx149591149592_ _expr145452_) - (_g145462145641_ + (_default146514146545_))))))) + (_fold-assert-type141517_ + (lambda (_expr145456_ _val145457_ _env145458_) + (let* ((___stx149595149596_ _expr145456_) + (_g145466145645_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149591149592_))))) - (let ((___kont149593149594_ - (lambda (_L146473_ _L146474_) - (let ((_$e146496_ + ___stx149595149596_))))) + (let ((___kont149597149598_ + (lambda (_L146477_ _L146478_) + (let ((_$e146500_ (let () (declare (not safe)) - (_predicate-type141512_ _L146474_)))) - (if _$e146496_ - ((lambda (_t146499_) - (let ((__tmp152265 - (let ((__tmp152266 - (let ((__tmp152267 + (_predicate-type141516_ _L146478_)))) + (if _$e146500_ + ((lambda (_t146503_) + (let ((__tmp152269 + (let ((__tmp152270 + (let ((__tmp152271 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val145453_ '())))) + (cons _val145457_ '())))) (declare (not safe)) - (cons _t146499_ __tmp152267)))) + (cons _t146503_ __tmp152271)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L146473_ - __tmp152266)))) + (cons _L146477_ + __tmp152270)))) (declare (not safe)) - (cons __tmp152265 _env145454_))) - _$e146496_) - _env145454_)))) - (___kont149595149596_ - (lambda (_L146163_ _L146164_ _L146165_) - (let ((_$e146190_ + (cons __tmp152269 _env145458_))) + _$e146500_) + _env145458_)))) + (___kont149599149600_ + (lambda (_L146167_ _L146168_ _L146169_) + (let ((_$e146194_ (let () (declare (not safe)) - (gxc#identifier-symbol _L146165_)))) + (gxc#identifier-symbol _L146169_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e146190_)) + (eq? '##fx= _$e146194_)) (let () (declare (not safe)) - (eq? 'fx= _$e146190_))) - (let* ((___stx149497149498_ _L146164_) - (_g146197146226_ + (eq? 'fx= _$e146194_))) + (let* ((___stx149501149502_ _L146168_) + (_g146201146230_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149497149498_))))) - (let ((___kont149499149500_ - (lambda (_L146294_ _L146295_) - (let ((_$e146320_ + ___stx149501149502_))))) + (let ((___kont149503149504_ + (lambda (_L146298_ _L146299_) + (let ((_$e146324_ (let () (declare (not safe)) - (_countf-symbol141514_ - _L146295_)))) - (if _$e146320_ - ((lambda (_sym146323_) - (let ((__tmp152273 + (_countf-symbol141518_ + _L146299_)))) + (if _$e146324_ + ((lambda (_sym146327_) + (let ((__tmp152277 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152274 - (let ((__tmp152275 - (let ((__tmp152277 + (let ((__tmp152278 + (let ((__tmp152279 + (let ((__tmp152281 (let () (declare (not safe)) - (gx#stx-e _L146163_))) - (__tmp152276 + (gx#stx-e _L146167_))) + (__tmp152280 (let () (declare (not safe)) - (cons _val145453_ '())))) + (cons _val145457_ '())))) (declare (not safe)) - (cons __tmp152277 __tmp152276)))) + (cons __tmp152281 __tmp152280)))) (declare (not safe)) - (cons _sym146323_ __tmp152275)))) + (cons _sym146327_ __tmp152279)))) (declare (not safe)) - (cons _L146294_ __tmp152274)))) + (cons _L146298_ __tmp152278)))) (declare (not safe)) - (cons __tmp152273 _env145454_))) - _$e146320_) - _env145454_)))) + (cons __tmp152277 _env145458_))) + _$e146324_) + _env145458_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149501149502_ - (lambda () _env145454_))) + (___kont149505149506_ + (lambda () _env145458_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx149497149498_)) - (let ((_e146203146238_ + ___stx149501149502_)) + (let ((_e146207146242_ (let () (declare (not safe)) (gx#stx-e - ___stx149497149498_)))) - (let ((_tl146201146243_ + ___stx149501149502_)))) + (let ((_tl146205146247_ (let () (declare (not safe)) - (##cdr _e146203146238_))) - (_hd146202146241_ + (##cdr _e146207146242_))) + (_hd146206146245_ (let () (declare (not safe)) - (##car _e146203146238_)))) + (##car _e146207146242_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146202146241_)) + _hd146206146245_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd146202146241_)) + _hd146206146245_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl146201146243_)) - (let ((_e146206146246_ + (gx#stx-pair? _tl146205146247_)) + (let ((_e146210146250_ (let () (declare (not safe)) - (gx#stx-e _tl146201146243_)))) - (let ((_tl146204146251_ + (gx#stx-e _tl146205146247_)))) + (let ((_tl146208146255_ (let () (declare (not safe)) - (##cdr _e146206146246_))) - (_hd146205146249_ + (##cdr _e146210146250_))) + (_hd146209146253_ (let () (declare (not safe)) - (##car _e146206146246_)))) + (##car _e146210146250_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146205146249_)) - (let ((_e146209146254_ + (gx#stx-pair? _hd146209146253_)) + (let ((_e146213146258_ (let () (declare (not safe)) - (gx#stx-e _hd146205146249_)))) - (let ((_tl146207146259_ + (gx#stx-e _hd146209146253_)))) + (let ((_tl146211146263_ (let () (declare (not safe)) - (##cdr _e146209146254_))) - (_hd146208146257_ + (##cdr _e146213146258_))) + (_hd146212146261_ (let () (declare (not safe)) - (##car _e146209146254_)))) + (##car _e146213146258_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146208146257_)) + (gx#identifier? _hd146212146261_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd146208146257_)) + _hd146212146261_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146207146259_)) - (let ((_e146212146262_ + _tl146211146263_)) + (let ((_e146216146266_ (let () (declare (not safe)) (gx#stx-e - _tl146207146259_)))) - (let ((_tl146210146267_ + _tl146211146263_)))) + (let ((_tl146214146271_ (let () (declare (not safe)) - (##cdr _e146212146262_))) - (_hd146211146265_ + (##cdr _e146216146266_))) + (_hd146215146269_ (let () (declare (not safe)) - (##car _e146212146262_)))) + (##car _e146216146266_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146210146267_)) + _tl146214146271_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146204146251_)) - (let ((_e146215146270_ + _tl146208146255_)) + (let ((_e146219146274_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl146204146251_)))) - (let ((_tl146213146275_ + (gx#stx-e _tl146208146255_)))) + (let ((_tl146217146279_ (let () (declare (not safe)) - (##cdr _e146215146270_))) - (_hd146214146273_ + (##cdr _e146219146274_))) + (_hd146218146277_ (let () (declare (not safe)) - (##car _e146215146270_)))) + (##car _e146219146274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146214146273_)) - (let ((_e146218146278_ + (gx#stx-pair? _hd146218146277_)) + (let ((_e146222146282_ (let () (declare (not safe)) - (gx#stx-e _hd146214146273_)))) - (let ((_tl146216146283_ + (gx#stx-e _hd146218146277_)))) + (let ((_tl146220146287_ (let () (declare (not safe)) - (##cdr _e146218146278_))) - (_hd146217146281_ + (##cdr _e146222146282_))) + (_hd146221146285_ (let () (declare (not safe)) - (##car _e146218146278_)))) + (##car _e146222146282_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146217146281_)) + (gx#identifier? _hd146221146285_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd146217146281_)) + (gx#stx-eq? '%#ref _hd146221146285_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146216146283_)) - (let ((_e146221146286_ + (gx#stx-pair? _tl146220146287_)) + (let ((_e146225146290_ (let () (declare (not safe)) (gx#stx-e - _tl146216146283_)))) - (let ((_tl146219146291_ + _tl146220146287_)))) + (let ((_tl146223146295_ (let () (declare (not safe)) - (##cdr _e146221146286_))) - (_hd146220146289_ + (##cdr _e146225146290_))) + (_hd146224146293_ (let () (declare (not safe)) - (##car _e146221146286_)))) + (##car _e146225146290_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146219146291_)) + _tl146223146295_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl146213146275_)) - (___kont149499149500_ - _hd146220146289_ - _hd146211146265_) - (___kont149501149502_)) - (___kont149501149502_)))) - (___kont149501149502_)) - (___kont149501149502_)) - (___kont149501149502_)))) - (___kont149501149502_)))) - (___kont149501149502_)) - (___kont149501149502_)))) + _tl146217146279_)) + (___kont149503149504_ + _hd146224146293_ + _hd146215146269_) + (___kont149505149506_)) + (___kont149505149506_)))) + (___kont149505149506_)) + (___kont149505149506_)) + (___kont149505149506_)))) + (___kont149505149506_)))) + (___kont149505149506_)) + (___kont149505149506_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149501149502_)) - (___kont149501149502_)) - (___kont149501149502_)))) - (___kont149501149502_)))) - (___kont149501149502_)) - (___kont149501149502_)) - (___kont149501149502_)))) + (___kont149505149506_)) + (___kont149505149506_)) + (___kont149505149506_)))) + (___kont149505149506_)))) + (___kont149505149506_)) + (___kont149505149506_)) + (___kont149505149506_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149501149502_)))) + (___kont149505149506_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e146190_)) + (eq? '##eq? _$e146194_)) (let () (declare (not safe)) - (eq? 'eq? _$e146190_)) + (eq? 'eq? _$e146194_)) (let () (declare (not safe)) - (eq? '##eqv? _$e146190_)) + (eq? '##eqv? _$e146194_)) (let () (declare (not safe)) - (eq? 'eqv? _$e146190_)) + (eq? 'eqv? _$e146194_)) (let () (declare (not safe)) - (eq? '##equal? _$e146190_)) + (eq? '##equal? _$e146194_)) (let () (declare (not safe)) - (eq? 'equal? _$e146190_)) + (eq? 'equal? _$e146194_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e146190_)) + _$e146194_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e146190_))) - ((lambda (_sym146349_) - (let* ((_sym146351_ + (eq? 'gx#stx-eq? _$e146194_))) + ((lambda (_sym146353_) + (let* ((_sym146355_ (let () (declare (not safe)) - (_eqf-symbol141515_ - _sym146349_))) - (___stx149565149566_ - _L146164_) - (_g146354146367_ + (_eqf-symbol141519_ + _sym146353_))) + (___stx149569149570_ + _L146168_) + (_g146358146371_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149565149566_))))) - (let ((___kont149567149568_ - (lambda (_L146395_) - (let ((__tmp152268 - (let ((__tmp152269 + ___stx149569149570_))))) + (let ((___kont149571149572_ + (lambda (_L146399_) + (let ((__tmp152272 + (let ((__tmp152273 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152270 - (let ((__tmp152272 + (let ((__tmp152274 + (let ((__tmp152276 (let () (declare (not safe)) - (gx#stx-e _L146163_))) - (__tmp152271 + (gx#stx-e _L146167_))) + (__tmp152275 (let () (declare (not safe)) - (cons _val145453_ '())))) + (cons _val145457_ '())))) (declare (not safe)) - (cons __tmp152272 __tmp152271)))) + (cons __tmp152276 __tmp152275)))) (declare (not safe)) - (cons _sym146351_ __tmp152270)))) + (cons _sym146355_ __tmp152274)))) (declare (not safe)) - (cons _L146395_ __tmp152269)))) + (cons _L146399_ __tmp152273)))) (declare (not safe)) - (cons __tmp152268 _env145454_)))) + (cons __tmp152272 _env145458_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149569149570_ - (lambda () _env145454_))) + (___kont149573149574_ + (lambda () _env145458_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx149565149566_)) - (let ((_e146359146379_ + ___stx149569149570_)) + (let ((_e146363146383_ (let () (declare (not safe)) (gx#stx-e - ___stx149565149566_)))) - (let ((_tl146357146384_ + ___stx149569149570_)))) + (let ((_tl146361146388_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e146359146379_))) - (_hd146358146382_ - (let () (declare (not safe)) (##car _e146359146379_)))) + (##cdr _e146363146383_))) + (_hd146362146386_ + (let () (declare (not safe)) (##car _e146363146383_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146358146382_)) + (gx#identifier? _hd146362146386_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd146358146382_)) + (gx#stx-eq? '%#ref _hd146362146386_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146357146384_)) - (let ((_e146362146387_ + (gx#stx-pair? _tl146361146388_)) + (let ((_e146366146391_ (let () (declare (not safe)) - (gx#stx-e _tl146357146384_)))) - (let ((_tl146360146392_ + (gx#stx-e _tl146361146388_)))) + (let ((_tl146364146396_ (let () (declare (not safe)) - (##cdr _e146362146387_))) - (_hd146361146390_ + (##cdr _e146366146391_))) + (_hd146365146394_ (let () (declare (not safe)) - (##car _e146362146387_)))) + (##car _e146366146391_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146360146392_)) - (___kont149567149568_ _hd146361146390_) - (___kont149569149570_)))) - (___kont149569149570_)) - (___kont149569149570_)) - (___kont149569149570_)))) + (gx#stx-null? _tl146364146396_)) + (___kont149571149572_ _hd146365146394_) + (___kont149573149574_)))) + (___kont149573149574_)) + (___kont149573149574_)) + (___kont149573149574_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149569149570_))))) - _$e146190_) - _env145454_))))) - (___kont149597149598_ - (lambda (_L146067_ _L146068_ _L146069_) - (let ((__tmp152278 - (let ((__tmp152288 + (___kont149573149574_))))) + _$e146194_) + _env145458_))))) + (___kont149601149602_ + (lambda (_L146071_ _L146072_ _L146073_) + (let ((__tmp152282 + (let ((__tmp152292 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152279 - (let ((__tmp152285 - (let ((__tmp152287 + (__tmp152283 + (let ((__tmp152289 + (let ((__tmp152291 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152286 + (__tmp152290 (let () (declare (not safe)) - (cons _L146069_ + (cons _L146073_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp152287 __tmp152286))) + (cons __tmp152291 __tmp152290))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp152280 - (let ((__tmp152281 - (let ((__tmp152282 + (__tmp152284 + (let ((__tmp152285 + (let ((__tmp152286 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152284 + (let ((__tmp152288 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp152283 + (__tmp152287 (let () (declare (not safe)) - (cons _L146068_ '())))) + (cons _L146072_ '())))) (declare (not safe)) - (cons __tmp152284 __tmp152283)))) + (cons __tmp152288 __tmp152287)))) (declare (not safe)) - (cons __tmp152282 '())))) + (cons __tmp152286 '())))) (declare (not safe)) - (cons _L146067_ __tmp152281)))) + (cons _L146071_ __tmp152285)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152285 - __tmp152280)))) + (cons __tmp152289 + __tmp152284)))) (declare (not safe)) - (cons __tmp152288 __tmp152279)))) + (cons __tmp152292 __tmp152283)))) (declare (not safe)) - (_fold-assert-type141513_ - __tmp152278 - _val145453_ - _env145454_)))) - (___kont149599149600_ - (lambda (_L145957_ _L145958_ _L145959_) - (let ((_$e145988_ + (_fold-assert-type141517_ + __tmp152282 + _val145457_ + _env145458_)))) + (___kont149603149604_ + (lambda (_L145961_ _L145962_ _L145963_) + (let ((_$e145992_ (let () (declare (not safe)) - (gxc#identifier-symbol _L145959_)))) + (gxc#identifier-symbol _L145963_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e145988_)) + _$e145992_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e145988_))) - ((lambda (_sym145994_) - (let* ((_sym145996_ + (eq? 'gx#stx-eq? _$e145992_))) + ((lambda (_sym145998_) + (let* ((_sym146000_ (let () (declare (not safe)) - (_eqf-symbol141515_ - _sym145994_))) - (__tmp152289 - (let ((__tmp152290 - (let ((__tmp152291 - (let ((__tmp152292 + (_eqf-symbol141519_ + _sym145998_))) + (__tmp152293 + (let ((__tmp152294 + (let ((__tmp152295 + (let ((__tmp152296 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val145453_ '())))) + (cons _val145457_ '())))) (declare (not safe)) - (cons _L145957_ __tmp152292)))) + (cons _L145961_ __tmp152296)))) (declare (not safe)) - (cons _sym145996_ __tmp152291)))) + (cons _sym146000_ __tmp152295)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L145958_ - __tmp152290)))) + (cons _L145962_ + __tmp152294)))) (declare (not safe)) - (cons __tmp152289 _env145454_))) - _$e145988_) - _env145454_)))) - (___kont149601149602_ - (lambda (_L145841_ _L145842_ _L145843_) - (let ((__tmp152293 - (let ((__tmp152306 + (cons __tmp152293 _env145458_))) + _$e145992_) + _env145458_)))) + (___kont149605149606_ + (lambda (_L145845_ _L145846_ _L145847_) + (let ((__tmp152297 + (let ((__tmp152310 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152294 - (let ((__tmp152303 - (let ((__tmp152305 + (__tmp152298 + (let ((__tmp152307 + (let ((__tmp152309 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152304 + (__tmp152308 (let () (declare (not safe)) - (cons _L145843_ + (cons _L145847_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp152305 __tmp152304))) + (cons __tmp152309 __tmp152308))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp152295 - (let ((__tmp152300 - (let ((__tmp152302 + (__tmp152299 + (let ((__tmp152304 + (let ((__tmp152306 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152301 - (let () (declare (not safe)) (cons _L145841_ '())))) + (__tmp152305 + (let () (declare (not safe)) (cons _L145845_ '())))) (declare (not safe)) - (cons __tmp152302 __tmp152301))) - (__tmp152296 - (let ((__tmp152297 - (let ((__tmp152299 + (cons __tmp152306 __tmp152305))) + (__tmp152300 + (let ((__tmp152301 + (let ((__tmp152303 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp152298 + (__tmp152302 (let () (declare (not safe)) - (cons _L145842_ '())))) + (cons _L145846_ '())))) (declare (not safe)) - (cons __tmp152299 __tmp152298)))) + (cons __tmp152303 __tmp152302)))) (declare (not safe)) - (cons __tmp152297 '())))) + (cons __tmp152301 '())))) (declare (not safe)) - (cons __tmp152300 __tmp152296)))) + (cons __tmp152304 __tmp152300)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152303 - __tmp152295)))) + (cons __tmp152307 + __tmp152299)))) (declare (not safe)) - (cons __tmp152306 __tmp152294)))) + (cons __tmp152310 __tmp152298)))) (declare (not safe)) - (_fold-assert-type141513_ - __tmp152293 - _val145453_ - _env145454_)))) - (___kont149603149604_ - (lambda (_L145725_ _L145726_ _L145727_) - (let ((__tmp152307 + (_fold-assert-type141517_ + __tmp152297 + _val145457_ + _env145458_)))) + (___kont149607149608_ + (lambda (_L145729_ _L145730_ _L145731_) + (let ((__tmp152311 (let () (declare (not safe)) (gxc#apply-expression-subst - _L145726_ + _L145730_ 'id: - _L145727_ + _L145731_ 'new-id: - _L145725_)))) + _L145729_)))) (declare (not safe)) - (_fold-assert-type141513_ - __tmp152307 - _val145453_ - _env145454_)))) - (___kont149605149606_ (lambda () _env145454_))) + (_fold-assert-type141517_ + __tmp152311 + _val145457_ + _env145458_)))) + (___kont149609149610_ (lambda () _env145458_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149591149592_)) - (let ((_e145468146417_ + (gx#stx-pair? ___stx149595149596_)) + (let ((_e145472146421_ (let () (declare (not safe)) - (gx#stx-e ___stx149591149592_)))) - (let ((_tl145466146422_ + (gx#stx-e ___stx149595149596_)))) + (let ((_tl145470146426_ (let () (declare (not safe)) - (##cdr _e145468146417_))) - (_hd145467146420_ + (##cdr _e145472146421_))) + (_hd145471146424_ (let () (declare (not safe)) - (##car _e145468146417_)))) + (##car _e145472146421_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145467146420_)) + (gx#identifier? _hd145471146424_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd145467146420_)) + _hd145471146424_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145466146422_)) - (let ((_e145471146425_ + (gx#stx-pair? _tl145470146426_)) + (let ((_e145475146429_ (let () (declare (not safe)) (gx#stx-e - _tl145466146422_)))) - (let ((_tl145469146430_ + _tl145470146426_)))) + (let ((_tl145473146434_ (let () (declare (not safe)) - (##cdr _e145471146425_))) - (_hd145470146428_ + (##cdr _e145475146429_))) + (_hd145474146432_ (let () (declare (not safe)) - (##car _e145471146425_)))) + (##car _e145475146429_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145470146428_)) - (let ((_e145474146433_ + _hd145474146432_)) + (let ((_e145478146437_ (let () (declare (not safe)) (gx#stx-e - _hd145470146428_)))) - (let ((_tl145472146438_ + _hd145474146432_)))) + (let ((_tl145476146442_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145474146433_))) - (_hd145473146436_ - (let () (declare (not safe)) (##car _e145474146433_)))) + (##cdr _e145478146437_))) + (_hd145477146440_ + (let () (declare (not safe)) (##car _e145478146437_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145473146436_)) + (gx#identifier? _hd145477146440_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd145473146436_)) + (gx#stx-eq? '%#ref _hd145477146440_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145472146438_)) - (let ((_e145477146441_ + (gx#stx-pair? _tl145476146442_)) + (let ((_e145481146445_ (let () (declare (not safe)) - (gx#stx-e _tl145472146438_)))) - (let ((_tl145475146446_ + (gx#stx-e _tl145476146442_)))) + (let ((_tl145479146450_ (let () (declare (not safe)) - (##cdr _e145477146441_))) - (_hd145476146444_ + (##cdr _e145481146445_))) + (_hd145480146448_ (let () (declare (not safe)) - (##car _e145477146441_)))) + (##car _e145481146445_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145475146446_)) + (gx#stx-null? _tl145479146450_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145469146430_)) - (let ((_e145480146449_ + (gx#stx-pair? _tl145473146434_)) + (let ((_e145484146453_ (let () (declare (not safe)) (gx#stx-e - _tl145469146430_)))) - (let ((_tl145478146454_ + _tl145473146434_)))) + (let ((_tl145482146458_ (let () (declare (not safe)) - (##cdr _e145480146449_))) - (_hd145479146452_ + (##cdr _e145484146453_))) + (_hd145483146456_ (let () (declare (not safe)) - (##car _e145480146449_)))) + (##car _e145484146453_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145479146452_)) - (let ((_e145483146457_ + _hd145483146456_)) + (let ((_e145487146461_ (let () (declare (not safe)) (gx#stx-e - _hd145479146452_)))) - (let ((_tl145481146462_ + _hd145483146456_)))) + (let ((_tl145485146466_ (let () (declare (not safe)) - (##cdr _e145483146457_))) - (_hd145482146460_ + (##cdr _e145487146461_))) + (_hd145486146464_ (let () (declare (not safe)) - (##car _e145483146457_)))) + (##car _e145487146461_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd145482146460_)) + (gx#stx-eq? '%#ref _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145486146465_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145490146469_ (let () (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145484146470_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145488146474_ (let () (declare (not safe)) - (##cdr _e145486146465_))) - (_hd145485146468_ + (##cdr _e145490146469_))) + (_hd145489146472_ (let () (declare (not safe)) - (##car _e145486146465_)))) + (##car _e145490146469_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145484146470_)) + (gx#stx-null? _tl145488146474_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145478146454_)) - (___kont149593149594_ - _hd145485146468_ - _hd145476146444_) + (gx#stx-null? _tl145482146458_)) + (___kont149597149598_ + _hd145489146472_ + _hd145480146448_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145478146454_)) - (let ((_e145507146139_ + (gx#stx-pair? _tl145482146458_)) + (let ((_e145511146143_ (let () (declare (not safe)) (gx#stx-e - _tl145478146454_)))) - (let ((_tl145505146144_ + _tl145482146458_)))) + (let ((_tl145509146148_ (let () (declare (not safe)) - (##cdr _e145507146139_))) - (_hd145506146142_ + (##cdr _e145511146143_))) + (_hd145510146146_ (let () (declare (not safe)) - (##car _e145507146139_)))) + (##car _e145511146143_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145506146142_)) - (let ((_e145510146147_ + _hd145510146146_)) + (let ((_e145514146151_ (let () (declare (not safe)) (gx#stx-e - _hd145506146142_)))) - (let ((_tl145508146152_ + _hd145510146146_)))) + (let ((_tl145512146156_ (let () (declare (not safe)) - (##cdr _e145510146147_))) - (_hd145509146150_ + (##cdr _e145514146151_))) + (_hd145513146154_ (let () (declare (not safe)) - (##car _e145510146147_)))) + (##car _e145514146151_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145509146150_)) + _hd145513146154_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd145509146150_)) + (gx#stx-eq? '%#quote _hd145513146154_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145508146152_)) - (let ((_e145513146155_ + (gx#stx-pair? _tl145512146156_)) + (let ((_e145517146159_ (let () (declare (not safe)) - (gx#stx-e _tl145508146152_)))) - (let ((_tl145511146160_ + (gx#stx-e _tl145512146156_)))) + (let ((_tl145515146164_ (let () (declare (not safe)) - (##cdr _e145513146155_))) - (_hd145512146158_ + (##cdr _e145517146159_))) + (_hd145516146162_ (let () (declare (not safe)) - (##car _e145513146155_)))) + (##car _e145517146159_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145511146160_)) + (gx#stx-null? _tl145515146164_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149595149596_ - _hd145512146158_ - _hd145479146452_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) + (gx#stx-null? _tl145509146148_)) + (___kont149599149600_ + _hd145516146162_ + _hd145483146456_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd145509146150_)) + (gx#stx-eq? '%#quote-syntax _hd145513146154_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145508146152_)) - (let ((_e145573145949_ + (gx#stx-pair? _tl145512146156_)) + (let ((_e145577145953_ (let () (declare (not safe)) - (gx#stx-e _tl145508146152_)))) - (let ((_tl145571145954_ + (gx#stx-e _tl145512146156_)))) + (let ((_tl145575145958_ (let () (declare (not safe)) - (##cdr _e145573145949_))) - (_hd145572145952_ + (##cdr _e145577145953_))) + (_hd145576145956_ (let () (declare (not safe)) - (##car _e145573145949_)))) + (##car _e145577145953_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145571145954_)) + (gx#stx-null? _tl145575145958_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149599149600_ - _hd145572145952_ - _hd145485146468_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) - (___kont149605149606_))) - (___kont149605149606_)))) + (gx#stx-null? _tl145509146148_)) + (___kont149603149604_ + _hd145576145956_ + _hd145489146472_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) + (___kont149609149610_))) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)))) - (___kont149605149606_))) + (___kont149609149610_)))) + (___kont149609149610_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145478146454_)) - (let ((_e145507146139_ + (gx#stx-pair? _tl145482146458_)) + (let ((_e145511146143_ (let () (declare (not safe)) - (gx#stx-e _tl145478146454_)))) - (let ((_tl145505146144_ + (gx#stx-e _tl145482146458_)))) + (let ((_tl145509146148_ (let () (declare (not safe)) - (##cdr _e145507146139_))) - (_hd145506146142_ + (##cdr _e145511146143_))) + (_hd145510146146_ (let () (declare (not safe)) - (##car _e145507146139_)))) + (##car _e145511146143_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145506146142_)) - (let ((_e145510146147_ + (gx#stx-pair? _hd145510146146_)) + (let ((_e145514146151_ (let () (declare (not safe)) (gx#stx-e - _hd145506146142_)))) - (let ((_tl145508146152_ + _hd145510146146_)))) + (let ((_tl145512146156_ (let () (declare (not safe)) - (##cdr _e145510146147_))) - (_hd145509146150_ + (##cdr _e145514146151_))) + (_hd145513146154_ (let () (declare (not safe)) - (##car _e145510146147_)))) + (##car _e145514146151_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145509146150_)) + _hd145513146154_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145509146150_)) + _hd145513146154_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145508146152_)) - (let ((_e145513146155_ + (gx#stx-pair? _tl145512146156_)) + (let ((_e145517146159_ (let () (declare (not safe)) - (gx#stx-e _tl145508146152_)))) - (let ((_tl145511146160_ + (gx#stx-e _tl145512146156_)))) + (let ((_tl145515146164_ (let () (declare (not safe)) - (##cdr _e145513146155_))) - (_hd145512146158_ + (##cdr _e145517146159_))) + (_hd145516146162_ (let () (declare (not safe)) - (##car _e145513146155_)))) + (##car _e145517146159_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145511146160_)) + (gx#stx-null? _tl145515146164_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149595149596_ - _hd145512146158_ - _hd145479146452_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) - (___kont149605149606_)) + (gx#stx-null? _tl145509146148_)) + (___kont149599149600_ + _hd145516146162_ + _hd145483146456_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) + (___kont149609149610_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)))) - (___kont149605149606_)))) - (___kont149605149606_))))) + (___kont149609149610_)))) + (___kont149609149610_)))) + (___kont149609149610_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145478146454_)) - (let ((_e145507146139_ + (gx#stx-pair? _tl145482146458_)) + (let ((_e145511146143_ (let () (declare (not safe)) - (gx#stx-e _tl145478146454_)))) - (let ((_tl145505146144_ + (gx#stx-e _tl145482146458_)))) + (let ((_tl145509146148_ (let () (declare (not safe)) - (##cdr _e145507146139_))) - (_hd145506146142_ + (##cdr _e145511146143_))) + (_hd145510146146_ (let () (declare (not safe)) - (##car _e145507146139_)))) + (##car _e145511146143_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145506146142_)) - (let ((_e145510146147_ + (gx#stx-pair? _hd145510146146_)) + (let ((_e145514146151_ (let () (declare (not safe)) - (gx#stx-e _hd145506146142_)))) - (let ((_tl145508146152_ + (gx#stx-e _hd145510146146_)))) + (let ((_tl145512146156_ (let () (declare (not safe)) - (##cdr _e145510146147_))) - (_hd145509146150_ + (##cdr _e145514146151_))) + (_hd145513146154_ (let () (declare (not safe)) - (##car _e145510146147_)))) + (##car _e145514146151_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145509146150_)) + _hd145513146154_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145509146150_)) + _hd145513146154_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145508146152_)) - (let ((_e145513146155_ + _tl145512146156_)) + (let ((_e145517146159_ (let () (declare (not safe)) (gx#stx-e - _tl145508146152_)))) - (let ((_tl145511146160_ + _tl145512146156_)))) + (let ((_tl145515146164_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145513146155_))) - (_hd145512146158_ - (let () (declare (not safe)) (##car _e145513146155_)))) + (##cdr _e145517146159_))) + (_hd145516146162_ + (let () (declare (not safe)) (##car _e145517146159_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145511146160_)) + (gx#stx-null? _tl145515146164_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149595149596_ - _hd145512146158_ - _hd145479146452_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) + (gx#stx-null? _tl145509146148_)) + (___kont149599149600_ + _hd145516146162_ + _hd145483146456_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)))) - (___kont149605149606_))) + (___kont149609149610_)) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)))) + (___kont149609149610_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145478146454_)) - (let ((_e145507146139_ + (gx#stx-pair? _tl145482146458_)) + (let ((_e145511146143_ (let () (declare (not safe)) - (gx#stx-e _tl145478146454_)))) - (let ((_tl145505146144_ + (gx#stx-e _tl145482146458_)))) + (let ((_tl145509146148_ (let () (declare (not safe)) - (##cdr _e145507146139_))) - (_hd145506146142_ + (##cdr _e145511146143_))) + (_hd145510146146_ (let () (declare (not safe)) - (##car _e145507146139_)))) + (##car _e145511146143_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145506146142_)) - (let ((_e145510146147_ + (gx#stx-pair? _hd145510146146_)) + (let ((_e145514146151_ (let () (declare (not safe)) - (gx#stx-e _hd145506146142_)))) - (let ((_tl145508146152_ + (gx#stx-e _hd145510146146_)))) + (let ((_tl145512146156_ (let () (declare (not safe)) - (##cdr _e145510146147_))) - (_hd145509146150_ + (##cdr _e145514146151_))) + (_hd145513146154_ (let () (declare (not safe)) - (##car _e145510146147_)))) + (##car _e145514146151_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145509146150_)) + (gx#identifier? _hd145513146154_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145509146150_)) + _hd145513146154_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145508146152_)) - (let ((_e145513146155_ + _tl145512146156_)) + (let ((_e145517146159_ (let () (declare (not safe)) (gx#stx-e - _tl145508146152_)))) - (let ((_tl145511146160_ + _tl145512146156_)))) + (let ((_tl145515146164_ (let () (declare (not safe)) - (##cdr _e145513146155_))) - (_hd145512146158_ + (##cdr _e145517146159_))) + (_hd145516146162_ (let () (declare (not safe)) - (##car _e145513146155_)))) + (##car _e145517146159_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145511146160_)) + _tl145515146164_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149595149596_ - _hd145512146158_ - _hd145479146452_ - _hd145476146444_) + (gx#stx-null? _tl145509146148_)) + (___kont149599149600_ + _hd145516146162_ + _hd145483146456_ + _hd145480146448_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145482146460_)) + (gx#stx-eq? '%#quote _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145537146051_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145541146055_ (let () (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145535146056_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145539146060_ (let () (declare (not safe)) - (##cdr _e145537146051_))) - (_hd145536146054_ + (##cdr _e145541146055_))) + (_hd145540146058_ (let () (declare (not safe)) - (##car _e145537146051_)))) - (___kont149605149606_))) - (___kont149605149606_)) + (##car _e145541146055_)))) + (___kont149609149610_))) + (___kont149609149610_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd145482146460_)) + (gx#stx-eq? '%#quote-syntax _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145597145809_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145601145813_ (let () (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145595145814_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145599145818_ (let () (declare (not safe)) - (##cdr _e145597145809_))) - (_hd145596145812_ + (##cdr _e145601145813_))) + (_hd145600145816_ (let () (declare (not safe)) - (##car _e145597145809_)))) - (___kont149605149606_))) - (___kont149605149606_)) - (___kont149605149606_)))) + (##car _e145601145813_)))) + (___kont149609149610_))) + (___kont149609149610_)) + (___kont149609149610_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145482146460_)) + (gx#stx-eq? '%#quote _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145537146051_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145541146055_ (let () (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145535146056_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145539146060_ (let () (declare (not safe)) - (##cdr _e145537146051_))) - (_hd145536146054_ + (##cdr _e145541146055_))) + (_hd145540146058_ (let () (declare (not safe)) - (##car _e145537146051_)))) + (##car _e145541146055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145535146056_)) + (gx#stx-null? _tl145539146060_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149597149598_ - _hd145506146142_ - _hd145536146054_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) + (gx#stx-null? _tl145509146148_)) + (___kont149601149602_ + _hd145510146146_ + _hd145540146058_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd145482146460_)) + (gx#stx-eq? '%#quote-syntax _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145597145809_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145601145813_ (let () (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145595145814_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145599145818_ (let () (declare (not safe)) - (##cdr _e145597145809_))) - (_hd145596145812_ + (##cdr _e145601145813_))) + (_hd145600145816_ (let () (declare (not safe)) - (##car _e145597145809_)))) - (___kont149605149606_))) - (___kont149605149606_)) - (___kont149605149606_)))))) + (##car _e145601145813_)))) + (___kont149609149610_))) + (___kont149609149610_)) + (___kont149609149610_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145481146462_)) - (let ((_e145537146051_ + _tl145485146466_)) + (let ((_e145541146055_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145535146056_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145539146060_ (let () (declare (not safe)) - (##cdr _e145537146051_))) - (_hd145536146054_ + (##cdr _e145541146055_))) + (_hd145540146058_ (let () (declare (not safe)) - (##car _e145537146051_)))) + (##car _e145541146055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145535146056_)) + (gx#stx-null? _tl145539146060_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149597149598_ - _hd145506146142_ - _hd145536146054_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) + (gx#stx-null? _tl145509146148_)) + (___kont149601149602_ + _hd145510146146_ + _hd145540146058_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145597145809_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145601145813_ (let () (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145595145814_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145599145818_ (let () (declare (not safe)) - (##cdr _e145597145809_))) - (_hd145596145812_ + (##cdr _e145601145813_))) + (_hd145600145816_ (let () (declare (not safe)) - (##car _e145597145809_)))) - (___kont149605149606_))) - (___kont149605149606_)) - (___kont149605149606_)))) + (##car _e145601145813_)))) + (___kont149609149610_))) + (___kont149609149610_)) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145481146462_)) - (let ((_e145537146051_ + _tl145485146466_)) + (let ((_e145541146055_ (let () (declare (not safe)) (gx#stx-e - _tl145481146462_)))) - (let ((_tl145535146056_ + _tl145485146466_)))) + (let ((_tl145539146060_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145537146051_))) - (_hd145536146054_ - (let () (declare (not safe)) (##car _e145537146051_)))) + (##cdr _e145541146055_))) + (_hd145540146058_ + (let () (declare (not safe)) (##car _e145541146055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145535146056_)) + (gx#stx-null? _tl145539146060_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149597149598_ - _hd145506146142_ - _hd145536146054_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) + (gx#stx-null? _tl145509146148_)) + (___kont149601149602_ + _hd145510146146_ + _hd145540146058_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)) + (___kont149609149610_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145481146462_)) - (let ((_e145597145809_ + _tl145485146466_)) + (let ((_e145601145813_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145595145814_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145599145818_ (let () (declare (not safe)) - (##cdr _e145597145809_))) - (_hd145596145812_ + (##cdr _e145601145813_))) + (_hd145600145816_ (let () (declare (not safe)) - (##car _e145597145809_)))) + (##car _e145601145813_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145595145814_)) + (gx#stx-null? _tl145599145818_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd145509146150_)) + (gx#stx-eq? '%#ref _hd145513146154_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145508146152_)) - (let ((_e145606145833_ + (gx#stx-pair? _tl145512146156_)) + (let ((_e145610145837_ (let () (declare (not safe)) - (gx#stx-e _tl145508146152_)))) - (let ((_tl145604145838_ + (gx#stx-e _tl145512146156_)))) + (let ((_tl145608145842_ (let () (declare (not safe)) - (##cdr _e145606145833_))) - (_hd145605145836_ + (##cdr _e145610145837_))) + (_hd145609145840_ (let () (declare (not safe)) - (##car _e145606145833_)))) + (##car _e145610145837_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145604145838_)) + (gx#stx-null? _tl145608145842_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149601149602_ - _hd145605145836_ - _hd145596145812_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) + (gx#stx-null? _tl145509146148_)) + (___kont149605149606_ + _hd145609145840_ + _hd145600145816_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)))) + (___kont149609149610_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145481146462_)) - (let ((_e145537146051_ + _tl145485146466_)) + (let ((_e145541146055_ (let () (declare (not safe)) (gx#stx-e - _tl145481146462_)))) - (let ((_tl145535146056_ + _tl145485146466_)))) + (let ((_tl145539146060_ (let () (declare (not safe)) - (##cdr _e145537146051_))) - (_hd145536146054_ + (##cdr _e145541146055_))) + (_hd145540146058_ (let () (declare (not safe)) - (##car _e145537146051_)))) + (##car _e145541146055_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145535146056_)) + _tl145539146060_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl145505146144_)) - (___kont149597149598_ - _hd145506146142_ - _hd145536146054_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) + (gx#stx-null? _tl145509146148_)) + (___kont149601149602_ + _hd145510146146_ + _hd145540146058_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)) + (___kont149609149610_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145481146462_)) - (let ((_e145597145809_ + _tl145485146466_)) + (let ((_e145601145813_ (let () (declare (not safe)) (gx#stx-e - _tl145481146462_)))) - (let ((_tl145595145814_ + _tl145485146466_)))) + (let ((_tl145599145818_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145597145809_))) - (_hd145596145812_ - (let () (declare (not safe)) (##car _e145597145809_)))) - (___kont149605149606_))) + (##cdr _e145601145813_))) + (_hd145600145816_ + (let () (declare (not safe)) (##car _e145601145813_)))) + (___kont149609149610_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)) - (___kont149605149606_)))))) + (___kont149609149610_)) + (___kont149609149610_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145482146460_)) + (gx#stx-eq? '%#quote _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145537146051_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145541146055_ (let () (declare (not safe)) (gx#stx-e - _tl145481146462_)))) - (let ((_tl145535146056_ + _tl145485146466_)))) + (let ((_tl145539146060_ (let () (declare (not safe)) - (##cdr _e145537146051_))) - (_hd145536146054_ + (##cdr _e145541146055_))) + (_hd145540146058_ (let () (declare (not safe)) - (##car _e145537146051_)))) + (##car _e145541146055_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145535146056_)) + _tl145539146060_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145505146144_)) - (___kont149597149598_ - _hd145506146142_ - _hd145536146054_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) + _tl145509146148_)) + (___kont149601149602_ + _hd145510146146_ + _hd145540146058_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145597145809_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145601145813_ (let () (declare (not safe)) (gx#stx-e - _tl145481146462_)))) - (let ((_tl145595145814_ + _tl145485146466_)))) + (let ((_tl145599145818_ (let () (declare (not safe)) - (##cdr _e145597145809_))) - (_hd145596145812_ + (##cdr _e145601145813_))) + (_hd145600145816_ (let () (declare (not safe)) - (##car _e145597145809_)))) - (___kont149605149606_))) - (___kont149605149606_)) - (___kont149605149606_)))))) + (##car _e145601145813_)))) + (___kont149609149610_))) + (___kont149609149610_)) + (___kont149609149610_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145482146460_)) + (gx#stx-eq? '%#quote _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145537146051_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145541146055_ (let () (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145535146056_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145539146060_ (let () (declare (not safe)) - (##cdr _e145537146051_))) - (_hd145536146054_ + (##cdr _e145541146055_))) + (_hd145540146058_ (let () (declare (not safe)) - (##car _e145537146051_)))) - (___kont149605149606_))) - (___kont149605149606_)) + (##car _e145541146055_)))) + (___kont149609149610_))) + (___kont149609149610_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145482146460_)) + _hd145486146464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145481146462_)) - (let ((_e145597145809_ + (gx#stx-pair? _tl145485146466_)) + (let ((_e145601145813_ (let () (declare (not safe)) - (gx#stx-e _tl145481146462_)))) - (let ((_tl145595145814_ + (gx#stx-e _tl145485146466_)))) + (let ((_tl145599145818_ (let () (declare (not safe)) - (##cdr _e145597145809_))) - (_hd145596145812_ + (##cdr _e145601145813_))) + (_hd145600145816_ (let () (declare (not safe)) - (##car _e145597145809_)))) - (___kont149605149606_))) - (___kont149605149606_)) - (___kont149605149606_))))) + (##car _e145601145813_)))) + (___kont149609149610_))) + (___kont149609149610_)) + (___kont149609149610_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145478146454_)) - (let ((_e145507146139_ + (gx#stx-pair? _tl145482146458_)) + (let ((_e145511146143_ (let () (declare (not safe)) - (gx#stx-e _tl145478146454_)))) - (let ((_tl145505146144_ + (gx#stx-e _tl145482146458_)))) + (let ((_tl145509146148_ (let () (declare (not safe)) - (##cdr _e145507146139_))) - (_hd145506146142_ + (##cdr _e145511146143_))) + (_hd145510146146_ (let () (declare (not safe)) - (##car _e145507146139_)))) + (##car _e145511146143_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145506146142_)) - (let ((_e145510146147_ + (gx#stx-pair? _hd145510146146_)) + (let ((_e145514146151_ (let () (declare (not safe)) - (gx#stx-e _hd145506146142_)))) - (let ((_tl145508146152_ + (gx#stx-e _hd145510146146_)))) + (let ((_tl145512146156_ (let () (declare (not safe)) - (##cdr _e145510146147_))) - (_hd145509146150_ + (##cdr _e145514146151_))) + (_hd145513146154_ (let () (declare (not safe)) - (##car _e145510146147_)))) + (##car _e145514146151_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145509146150_)) + (gx#identifier? _hd145513146154_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145509146150_)) + _hd145513146154_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145508146152_)) - (let ((_e145513146155_ + (gx#stx-pair? _tl145512146156_)) + (let ((_e145517146159_ (let () (declare (not safe)) (gx#stx-e - _tl145508146152_)))) - (let ((_tl145511146160_ + _tl145512146156_)))) + (let ((_tl145515146164_ (let () (declare (not safe)) - (##cdr _e145513146155_))) - (_hd145512146158_ + (##cdr _e145517146159_))) + (_hd145516146162_ (let () (declare (not safe)) - (##car _e145513146155_)))) + (##car _e145517146159_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145511146160_)) + _tl145515146164_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145505146144_)) - (___kont149595149596_ - _hd145512146158_ - _hd145479146452_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)))) - (___kont149605149606_))))) + _tl145509146148_)) + (___kont149599149600_ + _hd145516146162_ + _hd145483146456_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)))) + (___kont149609149610_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl145478146454_)) - (let ((_e145507146139_ + _tl145482146458_)) + (let ((_e145511146143_ (let () (declare (not safe)) (gx#stx-e - _tl145478146454_)))) - (let ((_tl145505146144_ + _tl145482146458_)))) + (let ((_tl145509146148_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145507146139_))) - (_hd145506146142_ - (let () (declare (not safe)) (##car _e145507146139_)))) + (##cdr _e145511146143_))) + (_hd145510146146_ + (let () (declare (not safe)) (##car _e145511146143_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145506146142_)) - (let ((_e145510146147_ + (gx#stx-pair? _hd145510146146_)) + (let ((_e145514146151_ (let () (declare (not safe)) - (gx#stx-e _hd145506146142_)))) - (let ((_tl145508146152_ + (gx#stx-e _hd145510146146_)))) + (let ((_tl145512146156_ (let () (declare (not safe)) - (##cdr _e145510146147_))) - (_hd145509146150_ + (##cdr _e145514146151_))) + (_hd145513146154_ (let () (declare (not safe)) - (##car _e145510146147_)))) + (##car _e145514146151_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145509146150_)) + (gx#identifier? _hd145513146154_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145509146150_)) + (gx#stx-eq? '%#quote _hd145513146154_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145508146152_)) - (let ((_e145513146155_ + (gx#stx-pair? _tl145512146156_)) + (let ((_e145517146159_ (let () (declare (not safe)) - (gx#stx-e _tl145508146152_)))) - (let ((_tl145511146160_ + (gx#stx-e _tl145512146156_)))) + (let ((_tl145515146164_ (let () (declare (not safe)) - (##cdr _e145513146155_))) - (_hd145512146158_ + (##cdr _e145517146159_))) + (_hd145516146162_ (let () (declare (not safe)) - (##car _e145513146155_)))) + (##car _e145517146159_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145511146160_)) + (gx#stx-null? _tl145515146164_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145505146144_)) - (___kont149595149596_ - _hd145512146158_ - _hd145479146452_ - _hd145476146444_) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)))) + _tl145509146148_)) + (___kont149599149600_ + _hd145516146162_ + _hd145483146456_ + _hd145480146448_) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_))))) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)) + (___kont149609149610_))))) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd145473146436_)) + (gx#stx-eq? '%#lambda _hd145477146440_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145472146438_)) - (let ((_e145621145677_ + (gx#stx-pair? _tl145476146442_)) + (let ((_e145625145681_ (let () (declare (not safe)) - (gx#stx-e _tl145472146438_)))) - (let ((_tl145619145682_ + (gx#stx-e _tl145476146442_)))) + (let ((_tl145623145686_ (let () (declare (not safe)) - (##cdr _e145621145677_))) - (_hd145620145680_ + (##cdr _e145625145681_))) + (_hd145624145684_ (let () (declare (not safe)) - (##car _e145621145677_)))) + (##car _e145625145681_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145620145680_)) - (let ((_e145624145685_ + (gx#stx-pair? _hd145624145684_)) + (let ((_e145628145689_ (let () (declare (not safe)) (gx#stx-e - _hd145620145680_)))) - (let ((_tl145622145690_ + _hd145624145684_)))) + (let ((_tl145626145694_ (let () (declare (not safe)) - (##cdr _e145624145685_))) - (_hd145623145688_ + (##cdr _e145628145689_))) + (_hd145627145692_ (let () (declare (not safe)) - (##car _e145624145685_)))) + (##car _e145628145689_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145622145690_)) + _tl145626145694_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145619145682_)) - (let ((_e145627145693_ + _tl145623145686_)) + (let ((_e145631145697_ (let () (declare (not safe)) (gx#stx-e - _tl145619145682_)))) - (let ((_tl145625145698_ + _tl145623145686_)))) + (let ((_tl145629145702_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145627145693_))) - (_hd145626145696_ - (let () (declare (not safe)) (##car _e145627145693_)))) + (##cdr _e145631145697_))) + (_hd145630145700_ + (let () (declare (not safe)) (##car _e145631145697_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145625145698_)) + (gx#stx-null? _tl145629145702_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145469146430_)) - (let ((_e145630145701_ + (gx#stx-pair? _tl145473146434_)) + (let ((_e145634145705_ (let () (declare (not safe)) - (gx#stx-e _tl145469146430_)))) - (let ((_tl145628145706_ + (gx#stx-e _tl145473146434_)))) + (let ((_tl145632145710_ (let () (declare (not safe)) - (##cdr _e145630145701_))) - (_hd145629145704_ + (##cdr _e145634145705_))) + (_hd145633145708_ (let () (declare (not safe)) - (##car _e145630145701_)))) + (##car _e145634145705_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145629145704_)) - (let ((_e145633145709_ + (gx#stx-pair? _hd145633145708_)) + (let ((_e145637145713_ (let () (declare (not safe)) - (gx#stx-e _hd145629145704_)))) - (let ((_tl145631145714_ + (gx#stx-e _hd145633145708_)))) + (let ((_tl145635145718_ (let () (declare (not safe)) - (##cdr _e145633145709_))) - (_hd145632145712_ + (##cdr _e145637145713_))) + (_hd145636145716_ (let () (declare (not safe)) - (##car _e145633145709_)))) + (##car _e145637145713_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145632145712_)) + (gx#identifier? _hd145636145716_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd145632145712_)) + _hd145636145716_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145631145714_)) - (let ((_e145636145717_ + _tl145635145718_)) + (let ((_e145640145721_ (let () (declare (not safe)) (gx#stx-e - _tl145631145714_)))) - (let ((_tl145634145722_ + _tl145635145718_)))) + (let ((_tl145638145726_ (let () (declare (not safe)) - (##cdr _e145636145717_))) - (_hd145635145720_ + (##cdr _e145640145721_))) + (_hd145639145724_ (let () (declare (not safe)) - (##car _e145636145717_)))) + (##car _e145640145721_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145634145722_)) + _tl145638145726_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl145628145706_)) - (___kont149603149604_ - _hd145635145720_ - _hd145626145696_ - _hd145623145688_) - (___kont149605149606_)) - (___kont149605149606_)))) + (gx#stx-null? _tl145632145710_)) + (___kont149607149608_ + _hd145639145724_ + _hd145630145700_ + _hd145627145692_) + (___kont149609149610_)) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)))) - (___kont149605149606_)) - (___kont149605149606_)))) + (___kont149609149610_)) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)))) + (___kont149609149610_)) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)))) - (___kont149605149606_)) - (___kont149605149606_))) - (___kont149605149606_)))) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)))) + (___kont149609149610_)) + (___kont149609149610_))) + (___kont149609149610_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149605149606_)))) - (___kont149605149606_)) - (___kont149605149606_)) - (___kont149605149606_)))) - (___kont149605149606_)))))) - (_countf-symbol141514_ - (lambda (_id145444_) - (let ((_$e145446_ + (___kont149609149610_)))) + (___kont149609149610_)) + (___kont149609149610_)) + (___kont149609149610_)))) + (___kont149609149610_)))))) + (_countf-symbol141518_ + (lambda (_id145448_) + (let ((_$e145450_ (let () (declare (not safe)) - (gxc#identifier-symbol _id145444_)))) + (gxc#identifier-symbol _id145448_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e145446_)) + (eq? '##vector-length _$e145450_)) (let () (declare (not safe)) - (eq? 'vector-length _$e145446_))) + (eq? 'vector-length _$e145450_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e145446_)) + (eq? 'values-count _$e145450_)) 'values-count '#f))))) - (_eqf-symbol141515_ - (lambda (_sym145430_) - (let ((_$e145432_ _sym145430_)) + (_eqf-symbol141519_ + (lambda (_sym145434_) + (let ((_$e145436_ _sym145434_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e145432_)) + (eq? '##eq? _$e145436_)) (let () (declare (not safe)) - (eq? 'eq? _$e145432_))) + (eq? 'eq? _$e145436_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e145432_)) + (eq? '##eqv? _$e145436_)) (let () (declare (not safe)) - (eq? 'eqv? _$e145432_))) + (eq? 'eqv? _$e145436_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e145432_)) + (eq? '##equal? _$e145436_)) (let () (declare (not safe)) - (eq? 'equal? _$e145432_))) + (eq? 'equal? _$e145436_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e145432_)) + _$e145436_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e145432_)) + (eq? 'gx#stx-eq? _$e145436_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?141516_ - (lambda (_sym145413_) - (let ((_$e145415_ _sym145413_)) + (_eqf-symbol?141520_ + (lambda (_sym145417_) + (let ((_$e145419_ _sym145417_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e145415_)) + (eq? 'eq? _$e145419_)) (let () (declare (not safe)) - (eq? 'eqv? _$e145415_)) + (eq? 'eqv? _$e145419_)) (let () (declare (not safe)) - (eq? 'equal? _$e145415_)) + (eq? 'equal? _$e145419_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e145415_)) + (eq? 'free-identifier=? _$e145419_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e145415_))) + (eq? 'stx-eq? _$e145419_))) '#t '#f)))) - (_do-assert!141517_ - (lambda (_assert145404_ _type145405_ _K145406_) - (let ((_unwind-assert145408_ _env-assert141507_) - (_unwind-type145409_ _env-type141508_)) - (set! _env-assert141507_ _assert145404_) - (set! _env-type141508_ _type145405_) - (let ((_val145411_ (_K145406_))) - (set! _env-assert141507_ _unwind-assert145408_) - (set! _env-type141508_ _unwind-type145409_) - _val145411_)))) - (_do-bind141518_ - (lambda (_bind145401_ _K145402_) - (if (let () (declare (not safe)) (pair? _bind145401_)) - (let ((__tmp152308 + (_do-assert!141521_ + (lambda (_assert145408_ _type145409_ _K145410_) + (let ((_unwind-assert145412_ _env-assert141511_) + (_unwind-type145413_ _env-type141512_)) + (set! _env-assert141511_ _assert145408_) + (set! _env-type141512_ _type145409_) + (let ((_val145415_ (_K145410_))) + (set! _env-assert141511_ _unwind-assert145412_) + (set! _env-type141512_ _unwind-type145413_) + _val145415_)))) + (_do-bind141522_ + (lambda (_bind145405_ _K145406_) + (if (let () (declare (not safe)) (pair? _bind145405_)) + (let ((__tmp152312 (let () (declare (not safe)) - (_fold-bind-env141519_ - _bind145401_ - _env-bind141509_)))) + (_fold-bind-env141523_ + _bind145405_ + _env-bind141513_)))) (declare (not safe)) - (_do-bind!141520_ __tmp152308 _K145402_)) - (_K145402_)))) - (_fold-bind-env141519_ - (lambda (_bind145330_ _env145331_) - (let _lp145333_ ((_rest145335_ _bind145330_) - (_env145336_ _env145331_)) - (let* ((_rest145337145345_ _rest145335_) - (_else145339145353_ (lambda () _env145336_)) - (_K145341145389_ - (lambda (_rest145356_ _bind145357_) - (let* ((_bind145358145365_ _bind145357_) - (_E145360145369_ + (_do-bind!141524_ __tmp152312 _K145406_)) + (_K145406_)))) + (_fold-bind-env141523_ + (lambda (_bind145334_ _env145335_) + (let _lp145337_ ((_rest145339_ _bind145334_) + (_env145340_ _env145335_)) + (let* ((_rest145341145349_ _rest145339_) + (_else145343145357_ (lambda () _env145340_)) + (_K145345145393_ + (lambda (_rest145360_ _bind145361_) + (let* ((_bind145362145369_ _bind145361_) + (_E145364145373_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind145358145365_)))) - (_K145361145377_ - (lambda (_expr145372_ _id145373_) - (let* ((_sexpr145375_ + _bind145362145369_)))) + (_K145365145381_ + (lambda (_expr145376_ _id145377_) + (let* ((_sexpr145379_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr145372_))) - (__tmp152309 - (let ((__tmp152310 + _expr145376_))) + (__tmp152313 + (let ((__tmp152314 (let () (declare (not safe)) - (cons _sexpr145375_ + (cons _sexpr145379_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id145373_)))) + _id145377_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152310 - _env145336_)))) + (cons __tmp152314 + _env145340_)))) (declare (not safe)) - (_lp145333_ - _rest145356_ - __tmp152309))))) + (_lp145337_ + _rest145360_ + __tmp152313))))) (if (let () (declare (not safe)) - (##pair? _bind145358145365_)) - (let ((_hd145362145380_ + (##pair? _bind145362145369_)) + (let ((_hd145366145384_ (let () (declare (not safe)) - (##car _bind145358145365_))) - (_tl145363145382_ + (##car _bind145362145369_))) + (_tl145367145386_ (let () (declare (not safe)) - (##cdr _bind145358145365_)))) - (let* ((_id145385_ _hd145362145380_) - (_expr145387_ - _tl145363145382_)) + (##cdr _bind145362145369_)))) + (let* ((_id145389_ _hd145366145384_) + (_expr145391_ + _tl145367145386_)) (declare (not safe)) - (_K145361145377_ - _expr145387_ - _id145385_))) + (_K145365145381_ + _expr145391_ + _id145389_))) (let () (declare (not safe)) - (_E145360145369_))))))) + (_E145364145373_))))))) (if (let () (declare (not safe)) - (##pair? _rest145337145345_)) - (let ((_hd145342145392_ + (##pair? _rest145341145349_)) + (let ((_hd145346145396_ (let () (declare (not safe)) - (##car _rest145337145345_))) - (_tl145343145394_ + (##car _rest145341145349_))) + (_tl145347145398_ (let () (declare (not safe)) - (##cdr _rest145337145345_)))) - (let* ((_bind145397_ _hd145342145392_) - (_rest145399_ _tl145343145394_)) + (##cdr _rest145341145349_)))) + (let* ((_bind145401_ _hd145346145396_) + (_rest145403_ _tl145347145398_)) (declare (not safe)) - (_K145341145389_ _rest145399_ _bind145397_))) + (_K145345145393_ _rest145403_ _bind145401_))) (let () (declare (not safe)) - (_else145339145353_))))))) - (_do-bind!141520_ - (lambda (_env145323_ _K145324_) - (let ((_unwind145326_ _env-bind141509_)) - (set! _env-bind141509_ _env145323_) - (let ((_val145328_ (_K145324_))) - (set! _env-bind141509_ _unwind145326_) - _val145328_)))) - (_do-splice!141521_ - (lambda (_K145317_) - (let ((_unwind145319_ _in-splice?141510_)) - (set! _in-splice?141510_ '#t) - (let ((_val145321_ (_K145317_))) - (set! _in-splice?141510_ _unwind145319_) - _val145321_)))) - (_optimize-e141522_ - (lambda (_expr144514_) - (let* ((___stx150043150044_ _expr144514_) - (_g144521144694_ + (_else145343145357_))))))) + (_do-bind!141524_ + (lambda (_env145327_ _K145328_) + (let ((_unwind145330_ _env-bind141513_)) + (set! _env-bind141513_ _env145327_) + (let ((_val145332_ (_K145328_))) + (set! _env-bind141513_ _unwind145330_) + _val145332_)))) + (_do-splice!141525_ + (lambda (_K145321_) + (let ((_unwind145323_ _in-splice?141514_)) + (set! _in-splice?141514_ '#t) + (let ((_val145325_ (_K145321_))) + (set! _in-splice?141514_ _unwind145323_) + _val145325_)))) + (_optimize-e141526_ + (lambda (_expr144518_) + (let* ((___stx150047150048_ _expr144518_) + (_g144525144698_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150043150044_))))) - (let ((___kont150045150046_ - (lambda (_L145289_ _L145290_ _L145291_) - (let ((_$e145308_ + ___stx150047150048_))))) + (let ((___kont150049150050_ + (lambda (_L145293_ _L145294_ _L145295_) + (let ((_$e145312_ (let () (declare (not safe)) - (_assert-e141525_ _L145291_)))) + (_assert-e141529_ _L145295_)))) (if (let () (declare (not safe)) - (eq? '#t _$e145308_)) + (eq? '#t _$e145312_)) (let () (declare (not safe)) - (_optimize-e141522_ _L145290_)) + (_optimize-e141526_ _L145294_)) (if (let () (declare (not safe)) - (eq? '#f _$e145308_)) + (eq? '#f _$e145312_)) (let () (declare (not safe)) - (_optimize-e141522_ _L145289_)) - (let ((_K145311_ + (_optimize-e141526_ _L145293_)) + (let ((_K145315_ (let () (declare (not safe)) - (_optimize-t__0__148976148977_ - _L145290_ - _L145291_))) - (_E145312_ + (_optimize-t__0__148980148981_ + _L145294_ + _L145295_))) + (_E145316_ (let () (declare (not safe)) - (_optimize-f__148978148979_ - _L145289_ - _L145291_)))) - (if (let ((__tmp152315 + (_optimize-f__148982148983_ + _L145293_ + _L145295_)))) + (if (let ((__tmp152319 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K145311_))) - (__tmp152314 + _K145315_))) + (__tmp152318 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E145312_)))) + _E145316_)))) (declare (not safe)) - (equal? __tmp152315 - __tmp152314)) - _K145311_ - (let ((__tmp152311 - (let ((__tmp152312 - (let ((__tmp152313 + (equal? __tmp152319 + __tmp152318)) + _K145315_ + (let ((__tmp152315 + (let ((__tmp152316 + (let ((__tmp152317 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E145312_ '())))) + (cons _E145316_ '())))) (declare (not safe)) - (cons _K145311_ __tmp152313)))) + (cons _K145315_ __tmp152317)))) (declare (not safe)) - (cons _L145291_ __tmp152312)))) + (cons _L145295_ __tmp152316)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp152311))))))))) - (___kont150047150048_ - (lambda (_L145219_ _L145220_) - (let ((_$e145240_ + __tmp152315))))))))) + (___kont150051150052_ + (lambda (_L145223_ _L145224_) + (let ((_$e145244_ (let () (declare (not safe)) - (_lookup-block141530_ _L145220_)))) - (if _$e145240_ - ((lambda (_block145243_) + (_lookup-block141534_ _L145224_)))) + (if _$e145244_ + ((lambda (_block145247_) (if (let () (declare (not safe)) - (_nonlinear-block?141532_ - _block145243_)) - _expr144514_ - (let ((__tmp152316 - (let ((__tmp152317 - (let ((__tmp152318 + (_nonlinear-block?141536_ + _block145247_)) + _expr144518_ + (let ((__tmp152320 + (let ((__tmp152321 + (let ((__tmp152322 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g145244145247_ _g145245145249_) + (lambda (_g145248145251_ _g145249145253_) (let () (declare (not safe)) - (cons _g145244145247_ _g145245145249_))))) + (cons _g145248145251_ _g145249145253_))))) (declare (not safe)) - (foldr1 __tmp152318 '() _L145219_)))) + (foldr1 __tmp152322 '() _L145223_)))) (declare (not safe)) - (_inline-block141531_ _block145243_ __tmp152317)))) + (_inline-block141535_ _block145247_ __tmp152321)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e141522_ - __tmp152316)))) - _$e145240_) - _expr144514_)))) - (___kont150051150052_ - (lambda (_L145109_ _L145110_ _L145111_) - (let* ((_body145130_ + (_optimize-e141526_ + __tmp152320)))) + _$e145244_) + _expr144518_)))) + (___kont150055150056_ + (lambda (_L145113_ _L145114_ _L145115_) + (let* ((_body145134_ (let () (declare (not safe)) - (_optimize-e141522_ _L145109_))) - (__tmp152319 - (let ((__tmp152321 + (_optimize-e141526_ _L145113_))) + (__tmp152323 + (let ((__tmp152325 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L145110_ - _L145111_)) - (let ((__tmp152322 - (lambda (_g145131145135_ + _L145114_ + _L145115_)) + (let ((__tmp152326 + (lambda (_g145135145139_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g145132145137_ - _g145133145139_) - (let ((__tmp152323 - (let ((__tmp152328 + _g145136145141_ + _g145137145143_) + (let ((__tmp152327 + (let ((__tmp152332 (let () (declare (not safe)) - (cons _g145132145137_ '()))) - (__tmp152324 - (let ((__tmp152325 - (let ((__tmp152327 + (cons _g145136145141_ '()))) + (__tmp152328 + (let ((__tmp152329 + (let ((__tmp152331 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152326 + (__tmp152330 (let () (declare (not safe)) - (cons _g145131145135_ '())))) + (cons _g145135145139_ '())))) (declare (not safe)) - (cons __tmp152327 __tmp152326)))) + (cons __tmp152331 __tmp152330)))) (declare (not safe)) - (cons __tmp152325 '())))) + (cons __tmp152329 '())))) (declare (not safe)) - (cons __tmp152328 __tmp152324)))) + (cons __tmp152332 __tmp152328)))) (declare (not safe)) - (cons __tmp152323 _g145133145139_))))) + (cons __tmp152327 _g145137145143_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp152322 + (foldr2 __tmp152326 '() - _L145110_ - _L145111_)))) - (__tmp152320 + _L145114_ + _L145115_)))) + (__tmp152324 (let () (declare (not safe)) - (cons _body145130_ '())))) + (cons _body145134_ '())))) (declare (not safe)) - (cons __tmp152321 __tmp152320)))) + (cons __tmp152325 __tmp152324)))) (declare (not safe)) - (cons '%#let-values __tmp152319)))) - (___kont150055150056_ - (lambda (_L144977_ _L144978_ _L144979_) - (let ((__tmp152329 + (cons '%#let-values __tmp152323)))) + (___kont150059150060_ + (lambda (_L144981_ _L144982_ _L144983_) + (let ((__tmp152333 (map cons - (let ((__tmp152330 - (lambda (_g144997145000_ - _g144998145002_) + (let ((__tmp152334 + (lambda (_g145001145004_ + _g145002145006_) (let () (declare (not safe)) - (cons _g144997145000_ - _g144998145002_))))) + (cons _g145001145004_ + _g145002145006_))))) (declare (not safe)) - (foldr1 __tmp152330 + (foldr1 __tmp152334 '() - _L144979_)) - (let ((__tmp152331 - (lambda (_g145004145007_ - _g145005145009_) + _L144983_)) + (let ((__tmp152335 + (lambda (_g145008145011_ + _g145009145013_) (let () (declare (not safe)) - (cons _g145004145007_ - _g145005145009_))))) + (cons _g145008145011_ + _g145009145013_))))) (declare (not safe)) - (foldr1 __tmp152331 + (foldr1 __tmp152335 '() - _L144978_))))) + _L144982_))))) (declare (not safe)) - (_bind-e__0__148984148985_ - __tmp152329 - _L144977_)))) - (___kont150059150060_ - (lambda (_L144834_ - _L144835_ - _L144836_ - _L144837_ - _L144838_) - (let ((__tmp152332 + (_bind-e__0__148988148989_ + __tmp152333 + _L144981_)))) + (___kont150063150064_ + (lambda (_L144838_ + _L144839_ + _L144840_ + _L144841_ + _L144842_) + (let ((__tmp152336 (lambda () - (let* ((_expr144880_ + (let* ((_expr144884_ (let () (declare (not safe)) - (_optimize-e141522_ - _L144836_))) - (__tmp152333 - (let ((__tmp152335 - (let ((__tmp152338 - (let ((__tmp152345 + (_optimize-e141526_ + _L144840_))) + (__tmp152337 + (let ((__tmp152339 + (let ((__tmp152342 + (let ((__tmp152349 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L144838_ '()))) - (__tmp152339 - (let ((__tmp152340 - (let ((__tmp152341 - (let ((__tmp152343 - (let ((__tmp152344 - (lambda (_g144881144884_ + (cons _L144842_ '()))) + (__tmp152343 + (let ((__tmp152344 + (let ((__tmp152345 + (let ((__tmp152347 + (let ((__tmp152348 + (lambda (_g144885144888_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g144882144886_) + _g144886144890_) (let () (declare (not safe)) - (cons _g144881144884_ _g144882144886_))))) + (cons _g144885144888_ _g144886144890_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp152344 + (foldr1 __tmp152348 '() - _L144837_))) - (__tmp152342 + _L144841_))) + (__tmp152346 (let () (declare (not safe)) - (cons _expr144880_ '())))) + (cons _expr144884_ '())))) (declare (not safe)) - (cons __tmp152343 __tmp152342)))) + (cons __tmp152347 __tmp152346)))) (declare (not safe)) - (cons '%#lambda __tmp152341)))) + (cons '%#lambda __tmp152345)))) (declare (not safe)) - (cons __tmp152340 '())))) + (cons __tmp152344 '())))) (declare (not safe)) - (cons __tmp152345 __tmp152339))) - (__tmp152336 - (let ((__tmp152337 - (lambda (_g144888144891_ _g144889144893_) + (cons __tmp152349 __tmp152343))) + (__tmp152340 + (let ((__tmp152341 + (lambda (_g144892144895_ _g144893144897_) (let () (declare (not safe)) - (cons _g144888144891_ _g144889144893_))))) + (cons _g144892144895_ _g144893144897_))))) (declare (not safe)) - (foldr1 __tmp152337 '() _L144835_)))) + (foldr1 __tmp152341 '() _L144839_)))) (declare (not safe)) - (cons __tmp152338 __tmp152336))) - (__tmp152334 - (let () (declare (not safe)) (cons _L144834_ '())))) + (cons __tmp152342 __tmp152340))) + (__tmp152338 + (let () (declare (not safe)) (cons _L144838_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152335 - __tmp152334)))) + (cons __tmp152339 + __tmp152338)))) (declare (not safe)) (cons '%#letrec-values - __tmp152333))))) + __tmp152337))))) (declare (not safe)) - (_do-splice!141521_ __tmp152332)))) - (___kont150065150066_ (lambda () _expr144514_))) - (let* ((___match150252150253_ - (lambda (_e144644144706_ - _hd144643144709_ - _tl144642144711_ - _e144647144714_ - _hd144646144717_ - _tl144645144719_ - _e144650144722_ - _hd144649144725_ - _tl144648144727_ - _e144653144730_ - _hd144652144733_ - _tl144651144735_ - _e144656144738_ - _hd144655144741_ - _tl144654144743_ - _e144659144746_ - _hd144658144749_ - _tl144657144751_ - _e144662144754_ - _hd144661144757_ - _tl144660144759_ - _e144665144762_ - _hd144664144765_ - _tl144663144767_ - ___splice150061150062_ - _target144666144770_ - _tl144668144772_) - (letrec ((_loop144669144775_ - (lambda (_hd144667144778_ - _id144673144780_) + (_do-splice!141525_ __tmp152336)))) + (___kont150069150070_ (lambda () _expr144518_))) + (let* ((___match150256150257_ + (lambda (_e144648144710_ + _hd144647144713_ + _tl144646144715_ + _e144651144718_ + _hd144650144721_ + _tl144649144723_ + _e144654144726_ + _hd144653144729_ + _tl144652144731_ + _e144657144734_ + _hd144656144737_ + _tl144655144739_ + _e144660144742_ + _hd144659144745_ + _tl144658144747_ + _e144663144750_ + _hd144662144753_ + _tl144661144755_ + _e144666144758_ + _hd144665144761_ + _tl144664144763_ + _e144669144766_ + _hd144668144769_ + _tl144667144771_ + ___splice150065150066_ + _target144670144774_ + _tl144672144776_) + (letrec ((_loop144673144779_ + (lambda (_hd144671144782_ + _id144677144784_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144667144778_)) - (let ((_e144670144783_ + _hd144671144782_)) + (let ((_e144674144787_ (let () (declare (not safe)) (gx#stx-e - _hd144667144778_)))) - (let ((_lp-tl144672144788_ + _hd144671144782_)))) + (let ((_lp-tl144676144792_ (let () (declare (not safe)) - (##cdr _e144670144783_))) - (_lp-hd144671144786_ + (##cdr _e144674144787_))) + (_lp-hd144675144790_ (let () (declare (not safe)) - (##car _e144670144783_)))) - (let ((__tmp152347 + (##car _e144674144787_)))) + (let ((__tmp152351 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd144671144786_ _id144673144780_)))) + (cons _lp-hd144675144790_ _id144677144784_)))) (declare (not safe)) - (_loop144669144775_ _lp-tl144672144788_ __tmp152347)))) + (_loop144673144779_ _lp-tl144676144792_ __tmp152351)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id144674144791_ - (reverse _id144673144780_))) + (let ((_id144678144795_ + (reverse _id144677144784_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144663144767_)) - (let ((_e144677144794_ + _tl144667144771_)) + (let ((_e144681144798_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl144663144767_)))) - (let ((_tl144675144799_ + (gx#stx-e _tl144667144771_)))) + (let ((_tl144679144803_ (let () (declare (not safe)) - (##cdr _e144677144794_))) - (_hd144676144797_ + (##cdr _e144681144798_))) + (_hd144680144801_ (let () (declare (not safe)) - (##car _e144677144794_)))) + (##car _e144681144798_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144675144799_)) + (gx#stx-null? _tl144679144803_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl144657144751_)) + (gx#stx-null? _tl144661144755_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl144648144727_)) - (let ((___splice150063150064_ + (gx#stx-pair/null? _tl144652144731_)) + (let ((___splice150067150068_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl144648144727_ + _tl144652144731_ '0)))) - (let ((_tl144680144804_ + (let ((_tl144684144808_ (let () (declare (not safe)) (##vector-ref - ___splice150063150064_ + ___splice150067150068_ '1))) - (_target144678144802_ + (_target144682144806_ (let () (declare (not safe)) (##vector-ref - ___splice150063150064_ + ___splice150067150068_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144680144804_)) - (letrec ((_loop144681144807_ - (lambda (_hd144679144810_ - _bind144685144812_) + (gx#stx-null? _tl144684144808_)) + (letrec ((_loop144685144811_ + (lambda (_hd144683144814_ + _bind144689144816_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144679144810_)) - (let ((_e144682144815_ + _hd144683144814_)) + (let ((_e144686144819_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd144679144810_)))) - (let ((_lp-tl144684144820_ + (gx#stx-e _hd144683144814_)))) + (let ((_lp-tl144688144824_ (let () (declare (not safe)) - (##cdr _e144682144815_))) - (_lp-hd144683144818_ + (##cdr _e144686144819_))) + (_lp-hd144687144822_ (let () (declare (not safe)) - (##car _e144682144815_)))) - (let ((__tmp152346 + (##car _e144686144819_)))) + (let ((__tmp152350 (let () (declare (not safe)) - (cons _lp-hd144683144818_ _bind144685144812_)))) + (cons _lp-hd144687144822_ _bind144689144816_)))) (declare (not safe)) - (_loop144681144807_ _lp-tl144684144820_ __tmp152346)))) - (let ((_bind144686144823_ (reverse _bind144685144812_))) + (_loop144685144811_ _lp-tl144688144824_ __tmp152350)))) + (let ((_bind144690144827_ (reverse _bind144689144816_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144645144719_)) - (let ((_e144689144826_ + (gx#stx-pair? _tl144649144723_)) + (let ((_e144693144830_ (let () (declare (not safe)) - (gx#stx-e _tl144645144719_)))) - (let ((_tl144687144831_ + (gx#stx-e _tl144649144723_)))) + (let ((_tl144691144835_ (let () (declare (not safe)) - (##cdr _e144689144826_))) - (_hd144688144829_ + (##cdr _e144693144830_))) + (_hd144692144833_ (let () (declare (not safe)) - (##car _e144689144826_)))) + (##car _e144693144830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144687144831_)) - (___kont150059150060_ - _hd144688144829_ - _bind144686144823_ - _hd144676144797_ - _id144674144791_ - _hd144655144741_) - (___kont150065150066_)))) - (___kont150065150066_))))))) + (gx#stx-null? _tl144691144835_)) + (___kont150063150064_ + _hd144692144833_ + _bind144690144827_ + _hd144680144801_ + _id144678144795_ + _hd144659144745_) + (___kont150069150070_)))) + (___kont150069150070_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144681144807_ - _target144678144802_ + (_loop144685144811_ + _target144682144806_ '()))) - (___kont150065150066_)))) - (___kont150065150066_)) - (___kont150065150066_)) - (___kont150065150066_)))) - (___kont150065150066_))))))) + (___kont150069150070_)))) + (___kont150069150070_)) + (___kont150069150070_)) + (___kont150069150070_)))) + (___kont150069150070_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144669144775_ - _target144666144770_ + (_loop144673144779_ + _target144670144774_ '()))))) - (___match150186150187_ - (lambda (_e144610144901_ - _hd144609144904_ - _tl144608144906_ - _e144613144909_ - _hd144612144912_ - _tl144611144914_ - ___splice150057150058_ - _target144614144917_ - _tl144616144919_) - (letrec ((_loop144617144922_ - (lambda (_hd144615144925_ - _expr144621144927_ - _id144622144929_) + (___match150190150191_ + (lambda (_e144614144905_ + _hd144613144908_ + _tl144612144910_ + _e144617144913_ + _hd144616144916_ + _tl144615144918_ + ___splice150061150062_ + _target144618144921_ + _tl144620144923_) + (letrec ((_loop144621144926_ + (lambda (_hd144619144929_ + _expr144625144931_ + _id144626144933_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144615144925_)) - (let ((_e144618144932_ + _hd144619144929_)) + (let ((_e144622144936_ (let () (declare (not safe)) (gx#stx-e - _hd144615144925_)))) - (let ((_lp-tl144620144937_ + _hd144619144929_)))) + (let ((_lp-tl144624144941_ (let () (declare (not safe)) - (##cdr _e144618144932_))) - (_lp-hd144619144935_ + (##cdr _e144622144936_))) + (_lp-hd144623144939_ (let () (declare (not safe)) - (##car _e144618144932_)))) + (##car _e144622144936_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd144619144935_)) - (let ((_e144627144940_ + _lp-hd144623144939_)) + (let ((_e144631144944_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd144619144935_)))) - (let ((_tl144625144945_ + (gx#stx-e _lp-hd144623144939_)))) + (let ((_tl144629144949_ (let () (declare (not safe)) - (##cdr _e144627144940_))) - (_hd144626144943_ + (##cdr _e144631144944_))) + (_hd144630144947_ (let () (declare (not safe)) - (##car _e144627144940_)))) + (##car _e144631144944_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144626144943_)) - (let ((_e144630144948_ + (gx#stx-pair? _hd144630144947_)) + (let ((_e144634144952_ (let () (declare (not safe)) - (gx#stx-e _hd144626144943_)))) - (let ((_tl144628144953_ + (gx#stx-e _hd144630144947_)))) + (let ((_tl144632144957_ (let () (declare (not safe)) - (##cdr _e144630144948_))) - (_hd144629144951_ + (##cdr _e144634144952_))) + (_hd144633144955_ (let () (declare (not safe)) - (##car _e144630144948_)))) + (##car _e144634144952_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144628144953_)) + (gx#stx-null? _tl144632144957_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144625144945_)) - (let ((_e144633144956_ + (gx#stx-pair? _tl144629144949_)) + (let ((_e144637144960_ (let () (declare (not safe)) - (gx#stx-e _tl144625144945_)))) - (let ((_tl144631144961_ + (gx#stx-e _tl144629144949_)))) + (let ((_tl144635144965_ (let () (declare (not safe)) - (##cdr _e144633144956_))) - (_hd144632144959_ + (##cdr _e144637144960_))) + (_hd144636144963_ (let () (declare (not safe)) - (##car _e144633144956_)))) + (##car _e144637144960_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144631144961_)) - (let ((__tmp152349 + _tl144635144965_)) + (let ((__tmp152353 (let () (declare (not safe)) - (cons _hd144632144959_ - _expr144621144927_))) - (__tmp152348 + (cons _hd144636144963_ + _expr144625144931_))) + (__tmp152352 (let () (declare (not safe)) - (cons _hd144629144951_ - _id144622144929_)))) + (cons _hd144633144955_ + _id144626144933_)))) (declare (not safe)) - (_loop144617144922_ - _lp-tl144620144937_ - __tmp152349 - __tmp152348)) - (___kont150065150066_)))) - (___kont150065150066_)) - (___kont150065150066_)))) - (___kont150065150066_)))) - (___kont150065150066_)))) + (_loop144621144926_ + _lp-tl144624144941_ + __tmp152353 + __tmp152352)) + (___kont150069150070_)))) + (___kont150069150070_)) + (___kont150069150070_)))) + (___kont150069150070_)))) + (___kont150069150070_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id144624144966_ - (reverse _id144622144929_)) - (_expr144623144964_ - (reverse _expr144621144927_))) + (let ((_id144628144970_ + (reverse _id144626144933_)) + (_expr144627144968_ + (reverse _expr144625144931_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144611144914_)) - (let ((_e144636144969_ + _tl144615144918_)) + (let ((_e144640144973_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl144611144914_)))) - (let ((_tl144634144974_ + (gx#stx-e _tl144615144918_)))) + (let ((_tl144638144978_ (let () (declare (not safe)) - (##cdr _e144636144969_))) - (_hd144635144972_ + (##cdr _e144640144973_))) + (_hd144639144976_ (let () (declare (not safe)) - (##car _e144636144969_)))) + (##car _e144640144973_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144634144974_)) - (___kont150055150056_ - _hd144635144972_ - _expr144623144964_ - _id144624144966_) - (___kont150065150066_)))) - (___kont150065150066_))))))) + (gx#stx-null? _tl144638144978_)) + (___kont150059150060_ + _hd144639144976_ + _expr144627144968_ + _id144628144970_) + (___kont150069150070_)))) + (___kont150069150070_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144617144922_ - _target144614144917_ + (_loop144621144926_ + _target144618144921_ '() '()))))) - (___match150162150163_ - (lambda (_e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_) - (letrec ((_loop144579145038_ - (lambda (_hd144577145041_ - _xid144583145043_ - _id144584145045_) + (___match150166150167_ + (lambda (_e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_) + (letrec ((_loop144583145042_ + (lambda (_hd144581145045_ + _xid144587145047_ + _id144588145049_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144577145041_)) - (let ((_e144580145048_ + _hd144581145045_)) + (let ((_e144584145052_ (let () (declare (not safe)) (gx#stx-e - _hd144577145041_)))) - (let ((_lp-tl144582145053_ + _hd144581145045_)))) + (let ((_lp-tl144586145057_ (let () (declare (not safe)) - (##cdr _e144580145048_))) - (_lp-hd144581145051_ + (##cdr _e144584145052_))) + (_lp-hd144585145055_ (let () (declare (not safe)) - (##car _e144580145048_)))) + (##car _e144584145052_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd144581145051_)) - (let ((_e144589145056_ + _lp-hd144585145055_)) + (let ((_e144593145060_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd144581145051_)))) - (let ((_tl144587145061_ + (gx#stx-e _lp-hd144585145055_)))) + (let ((_tl144591145065_ (let () (declare (not safe)) - (##cdr _e144589145056_))) - (_hd144588145059_ + (##cdr _e144593145060_))) + (_hd144592145063_ (let () (declare (not safe)) - (##car _e144589145056_)))) + (##car _e144593145060_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144588145059_)) - (let ((_e144592145064_ + (gx#stx-pair? _hd144592145063_)) + (let ((_e144596145068_ (let () (declare (not safe)) - (gx#stx-e _hd144588145059_)))) - (let ((_tl144590145069_ + (gx#stx-e _hd144592145063_)))) + (let ((_tl144594145073_ (let () (declare (not safe)) - (##cdr _e144592145064_))) - (_hd144591145067_ + (##cdr _e144596145068_))) + (_hd144595145071_ (let () (declare (not safe)) - (##car _e144592145064_)))) + (##car _e144596145068_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144590145069_)) + (gx#stx-null? _tl144594145073_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144587145061_)) - (let ((_e144595145072_ + (gx#stx-pair? _tl144591145065_)) + (let ((_e144599145076_ (let () (declare (not safe)) - (gx#stx-e _tl144587145061_)))) - (let ((_tl144593145077_ + (gx#stx-e _tl144591145065_)))) + (let ((_tl144597145081_ (let () (declare (not safe)) - (##cdr _e144595145072_))) - (_hd144594145075_ + (##cdr _e144599145076_))) + (_hd144598145079_ (let () (declare (not safe)) - (##car _e144595145072_)))) + (##car _e144599145076_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144594145075_)) - (let ((_e144598145080_ + _hd144598145079_)) + (let ((_e144602145084_ (let () (declare (not safe)) (gx#stx-e - _hd144594145075_)))) - (let ((_tl144596145085_ + _hd144598145079_)))) + (let ((_tl144600145089_ (let () (declare (not safe)) - (##cdr _e144598145080_))) - (_hd144597145083_ + (##cdr _e144602145084_))) + (_hd144601145087_ (let () (declare (not safe)) - (##car _e144598145080_)))) + (##car _e144602145084_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144597145083_)) + _hd144601145087_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd144597145083_)) + _hd144601145087_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl144596145085_)) - (let ((_e144601145088_ + (gx#stx-pair? _tl144600145089_)) + (let ((_e144605145092_ (let () (declare (not safe)) - (gx#stx-e _tl144596145085_)))) - (let ((_tl144599145093_ + (gx#stx-e _tl144600145089_)))) + (let ((_tl144603145097_ (let () (declare (not safe)) - (##cdr _e144601145088_))) - (_hd144600145091_ + (##cdr _e144605145092_))) + (_hd144604145095_ (let () (declare (not safe)) - (##car _e144601145088_)))) + (##car _e144605145092_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144599145093_)) + (gx#stx-null? _tl144603145097_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl144593145077_)) - (let ((__tmp152351 + (gx#stx-null? _tl144597145081_)) + (let ((__tmp152355 (let () (declare (not safe)) - (cons _hd144600145091_ - _xid144583145043_))) - (__tmp152350 + (cons _hd144604145095_ + _xid144587145047_))) + (__tmp152354 (let () (declare (not safe)) - (cons _hd144591145067_ - _id144584145045_)))) + (cons _hd144595145071_ + _id144588145049_)))) (declare (not safe)) - (_loop144579145038_ - _lp-tl144582145053_ - __tmp152351 - __tmp152350)) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)))) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)))) + (_loop144583145042_ + _lp-tl144586145057_ + __tmp152355 + __tmp152354)) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)))) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)))) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)))) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)))) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)))) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)))) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)))) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)))) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id144586145098_ - (reverse _id144584145045_)) - (_xid144585145096_ - (reverse _xid144583145043_))) + (let ((_id144590145102_ + (reverse _id144588145049_)) + (_xid144589145100_ + (reverse _xid144587145047_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144573145030_)) - (let ((_e144604145101_ + _tl144577145034_)) + (let ((_e144608145105_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl144573145030_)))) - (let ((_tl144602145106_ + (gx#stx-e _tl144577145034_)))) + (let ((_tl144606145110_ (let () (declare (not safe)) - (##cdr _e144604145101_))) - (_hd144603145104_ + (##cdr _e144608145105_))) + (_hd144607145108_ (let () (declare (not safe)) - (##car _e144604145101_)))) + (##car _e144608145105_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144602145106_)) - (___kont150051150052_ - _hd144603145104_ - _xid144585145096_ - _id144586145098_) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_)))) - (___match150186150187_ - _e144572145017_ - _hd144571145020_ - _tl144570145022_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_))))))) + (gx#stx-null? _tl144606145110_)) + (___kont150055150056_ + _hd144607145108_ + _xid144589145100_ + _id144590145102_) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_)))) + (___match150190150191_ + _e144576145021_ + _hd144575145024_ + _tl144574145026_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144579145038_ - _target144576145033_ + (_loop144583145042_ + _target144580145037_ '() '()))))) - (___match150138150139_ - (lambda (_e144542145147_ - _hd144541145150_ - _tl144540145152_ - _e144545145155_ - _hd144544145158_ - _tl144543145160_ - _e144548145163_ - _hd144547145166_ - _tl144546145168_ - _e144551145171_ - _hd144550145174_ - _tl144549145176_ - ___splice150049150050_ - _target144552145179_ - _tl144554145181_) - (letrec ((_loop144555145184_ - (lambda (_hd144553145187_ - _id144559145189_) + (___match150142150143_ + (lambda (_e144546145151_ + _hd144545145154_ + _tl144544145156_ + _e144549145159_ + _hd144548145162_ + _tl144547145164_ + _e144552145167_ + _hd144551145170_ + _tl144550145172_ + _e144555145175_ + _hd144554145178_ + _tl144553145180_ + ___splice150053150054_ + _target144556145183_ + _tl144558145185_) + (letrec ((_loop144559145188_ + (lambda (_hd144557145191_ + _id144563145193_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144553145187_)) - (let ((_e144556145192_ + _hd144557145191_)) + (let ((_e144560145196_ (let () (declare (not safe)) (gx#stx-e - _hd144553145187_)))) - (let ((_lp-tl144558145197_ + _hd144557145191_)))) + (let ((_lp-tl144562145201_ (let () (declare (not safe)) - (##cdr _e144556145192_))) - (_lp-hd144557145195_ + (##cdr _e144560145196_))) + (_lp-hd144561145199_ (let () (declare (not safe)) - (##car _e144556145192_)))) + (##car _e144560145196_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd144557145195_)) - (let ((_e144563145200_ + _lp-hd144561145199_)) + (let ((_e144567145204_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd144557145195_)))) - (let ((_tl144561145205_ + (gx#stx-e _lp-hd144561145199_)))) + (let ((_tl144565145209_ (let () (declare (not safe)) - (##cdr _e144563145200_))) - (_hd144562145203_ + (##cdr _e144567145204_))) + (_hd144566145207_ (let () (declare (not safe)) - (##car _e144563145200_)))) + (##car _e144567145204_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144562145203_)) + (gx#identifier? _hd144566145207_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144562145203_)) + (gx#stx-eq? '%#ref _hd144566145207_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144561145205_)) - (let ((_e144566145208_ + (gx#stx-pair? _tl144565145209_)) + (let ((_e144570145212_ (let () (declare (not safe)) - (gx#stx-e _tl144561145205_)))) - (let ((_tl144564145213_ + (gx#stx-e _tl144565145209_)))) + (let ((_tl144568145217_ (let () (declare (not safe)) - (##cdr _e144566145208_))) - (_hd144565145211_ + (##cdr _e144570145212_))) + (_hd144569145215_ (let () (declare (not safe)) - (##car _e144566145208_)))) + (##car _e144570145212_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144564145213_)) - (let ((__tmp152352 + (gx#stx-null? _tl144568145217_)) + (let ((__tmp152356 (let () (declare (not safe)) - (cons _hd144565145211_ - _id144559145189_)))) + (cons _hd144569145215_ + _id144563145193_)))) (declare (not safe)) - (_loop144555145184_ - _lp-tl144558145197_ - __tmp152352)) - (___kont150065150066_)))) - (___kont150065150066_)) - (___kont150065150066_)) - (___kont150065150066_)))) - (___kont150065150066_)))) + (_loop144559145188_ + _lp-tl144562145201_ + __tmp152356)) + (___kont150069150070_)))) + (___kont150069150070_)) + (___kont150069150070_)) + (___kont150069150070_)))) + (___kont150069150070_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id144560145216_ - (reverse _id144559145189_))) - (___kont150047150048_ - _id144560145216_ - _hd144550145174_)))))) + (let ((_id144564145220_ + (reverse _id144563145193_))) + (___kont150051150052_ + _id144564145220_ + _hd144554145178_)))))) (let () (declare (not safe)) - (_loop144555145184_ - _target144552145179_ + (_loop144559145188_ + _target144556145183_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150043150044_)) - (let ((_e144528145257_ + (gx#stx-pair? ___stx150047150048_)) + (let ((_e144532145261_ (let () (declare (not safe)) - (gx#stx-e ___stx150043150044_)))) - (let ((_tl144526145262_ + (gx#stx-e ___stx150047150048_)))) + (let ((_tl144530145266_ (let () (declare (not safe)) - (##cdr _e144528145257_))) - (_hd144527145260_ + (##cdr _e144532145261_))) + (_hd144531145264_ (let () (declare (not safe)) - (##car _e144528145257_)))) + (##car _e144532145261_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144527145260_)) + (gx#identifier? _hd144531145264_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd144527145260_)) + _hd144531145264_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144526145262_)) - (let ((_e144531145265_ + _tl144530145266_)) + (let ((_e144535145269_ (let () (declare (not safe)) (gx#stx-e - _tl144526145262_)))) - (let ((_tl144529145270_ + _tl144530145266_)))) + (let ((_tl144533145274_ (let () (declare (not safe)) - (##cdr _e144531145265_))) - (_hd144530145268_ + (##cdr _e144535145269_))) + (_hd144534145272_ (let () (declare (not safe)) - (##car _e144531145265_)))) + (##car _e144535145269_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144529145270_)) - (let ((_e144534145273_ + _tl144533145274_)) + (let ((_e144538145277_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl144529145270_)))) - (let ((_tl144532145278_ - (let () (declare (not safe)) (##cdr _e144534145273_))) - (_hd144533145276_ - (let () (declare (not safe)) (##car _e144534145273_)))) + (gx#stx-e _tl144533145274_)))) + (let ((_tl144536145282_ + (let () (declare (not safe)) (##cdr _e144538145277_))) + (_hd144537145280_ + (let () (declare (not safe)) (##car _e144538145277_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144532145278_)) - (let ((_e144537145281_ + (gx#stx-pair? _tl144536145282_)) + (let ((_e144541145285_ (let () (declare (not safe)) - (gx#stx-e _tl144532145278_)))) - (let ((_tl144535145286_ + (gx#stx-e _tl144536145282_)))) + (let ((_tl144539145290_ (let () (declare (not safe)) - (##cdr _e144537145281_))) - (_hd144536145284_ + (##cdr _e144541145285_))) + (_hd144540145288_ (let () (declare (not safe)) - (##car _e144537145281_)))) + (##car _e144541145285_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144535145286_)) - (___kont150045150046_ - _hd144536145284_ - _hd144533145276_ - _hd144530145268_) - (___kont150065150066_)))) - (___kont150065150066_)))) - (___kont150065150066_)))) + (gx#stx-null? _tl144539145290_)) + (___kont150049150050_ + _hd144540145288_ + _hd144537145280_ + _hd144534145272_) + (___kont150069150070_)))) + (___kont150069150070_)))) + (___kont150069150070_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150065150066_)) + (___kont150069150070_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd144527145260_)) + _hd144531145264_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144526145262_)) - (let ((_e144545145155_ + _tl144530145266_)) + (let ((_e144549145159_ (let () (declare (not safe)) (gx#stx-e - _tl144526145262_)))) - (let ((_tl144543145160_ + _tl144530145266_)))) + (let ((_tl144547145164_ (let () (declare (not safe)) - (##cdr _e144545145155_))) - (_hd144544145158_ + (##cdr _e144549145159_))) + (_hd144548145162_ (let () (declare (not safe)) - (##car _e144545145155_)))) + (##car _e144549145159_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144544145158_)) - (let ((_e144548145163_ + _hd144548145162_)) + (let ((_e144552145167_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd144544145158_)))) - (let ((_tl144546145168_ + (gx#stx-e _hd144548145162_)))) + (let ((_tl144550145172_ (let () (declare (not safe)) - (##cdr _e144548145163_))) - (_hd144547145166_ + (##cdr _e144552145167_))) + (_hd144551145170_ (let () (declare (not safe)) - (##car _e144548145163_)))) + (##car _e144552145167_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144547145166_)) + (gx#identifier? _hd144551145170_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144547145166_)) + (gx#stx-eq? '%#ref _hd144551145170_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144546145168_)) - (let ((_e144551145171_ + (gx#stx-pair? _tl144550145172_)) + (let ((_e144555145175_ (let () (declare (not safe)) - (gx#stx-e _tl144546145168_)))) - (let ((_tl144549145176_ + (gx#stx-e _tl144550145172_)))) + (let ((_tl144553145180_ (let () (declare (not safe)) - (##cdr _e144551145171_))) - (_hd144550145174_ + (##cdr _e144555145175_))) + (_hd144554145178_ (let () (declare (not safe)) - (##car _e144551145171_)))) + (##car _e144555145175_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144549145176_)) + (gx#stx-null? _tl144553145180_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl144543145160_)) - (let ((___splice150049150050_ + _tl144547145164_)) + (let ((___splice150053150054_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl144543145160_ + _tl144547145164_ '0)))) - (let ((_tl144554145181_ + (let ((_tl144558145185_ (let () (declare (not safe)) (##vector-ref - ___splice150049150050_ + ___splice150053150054_ '1))) - (_target144552145179_ + (_target144556145183_ (let () (declare (not safe)) (##vector-ref - ___splice150049150050_ + ___splice150053150054_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144554145181_)) - (___match150138150139_ - _e144528145257_ - _hd144527145260_ - _tl144526145262_ - _e144545145155_ - _hd144544145158_ - _tl144543145160_ - _e144548145163_ - _hd144547145166_ - _tl144546145168_ - _e144551145171_ - _hd144550145174_ - _tl144549145176_ - ___splice150049150050_ - _target144552145179_ - _tl144554145181_) - (___kont150065150066_)))) - (___kont150065150066_)) - (___kont150065150066_)))) - (___kont150065150066_)) - (___kont150065150066_)) - (___kont150065150066_)))) - (___kont150065150066_)))) + _tl144558145185_)) + (___match150142150143_ + _e144532145261_ + _hd144531145264_ + _tl144530145266_ + _e144549145159_ + _hd144548145162_ + _tl144547145164_ + _e144552145167_ + _hd144551145170_ + _tl144550145172_ + _e144555145175_ + _hd144554145178_ + _tl144553145180_ + ___splice150053150054_ + _target144556145183_ + _tl144558145185_) + (___kont150069150070_)))) + (___kont150069150070_)) + (___kont150069150070_)))) + (___kont150069150070_)) + (___kont150069150070_)) + (___kont150069150070_)))) + (___kont150069150070_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150065150066_)) + (___kont150069150070_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd144527145260_)) + _hd144531145264_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144526145262_)) - (let ((_e144575145025_ + _tl144530145266_)) + (let ((_e144579145029_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl144526145262_)))) - (let ((_tl144573145030_ - (let () (declare (not safe)) (##cdr _e144575145025_))) - (_hd144574145028_ - (let () (declare (not safe)) (##car _e144575145025_)))) + (gx#stx-e _tl144530145266_)))) + (let ((_tl144577145034_ + (let () (declare (not safe)) (##cdr _e144579145029_))) + (_hd144578145032_ + (let () (declare (not safe)) (##car _e144579145029_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd144574145028_)) - (let ((___splice150053150054_ + (gx#stx-pair/null? _hd144578145032_)) + (let ((___splice150057150058_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd144574145028_ '0)))) - (let ((_tl144578145035_ + (gx#syntax-split-splice _hd144578145032_ '0)))) + (let ((_tl144582145039_ (let () (declare (not safe)) - (##vector-ref ___splice150053150054_ '1))) - (_target144576145033_ + (##vector-ref ___splice150057150058_ '1))) + (_target144580145037_ (let () (declare (not safe)) - (##vector-ref ___splice150053150054_ '0)))) + (##vector-ref ___splice150057150058_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144578145035_)) - (___match150162150163_ - _e144528145257_ - _hd144527145260_ - _tl144526145262_ - _e144575145025_ - _hd144574145028_ - _tl144573145030_ - ___splice150053150054_ - _target144576145033_ - _tl144578145035_) - (___kont150065150066_)))) - (___kont150065150066_)))) - (___kont150065150066_)) + (gx#stx-null? _tl144582145039_)) + (___match150166150167_ + _e144532145261_ + _hd144531145264_ + _tl144530145266_ + _e144579145029_ + _hd144578145032_ + _tl144577145034_ + ___splice150057150058_ + _target144580145037_ + _tl144582145039_) + (___kont150069150070_)))) + (___kont150069150070_)))) + (___kont150069150070_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd144527145260_)) + _hd144531145264_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144526145262_)) - (let ((_e144647144714_ + _tl144530145266_)) + (let ((_e144651144718_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl144526145262_)))) - (let ((_tl144645144719_ + (gx#stx-e _tl144530145266_)))) + (let ((_tl144649144723_ (let () (declare (not safe)) - (##cdr _e144647144714_))) - (_hd144646144717_ + (##cdr _e144651144718_))) + (_hd144650144721_ (let () (declare (not safe)) - (##car _e144647144714_)))) + (##car _e144651144718_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144646144717_)) - (let ((_e144650144722_ + (gx#stx-pair? _hd144650144721_)) + (let ((_e144654144726_ (let () (declare (not safe)) - (gx#stx-e _hd144646144717_)))) - (let ((_tl144648144727_ + (gx#stx-e _hd144650144721_)))) + (let ((_tl144652144731_ (let () (declare (not safe)) - (##cdr _e144650144722_))) - (_hd144649144725_ + (##cdr _e144654144726_))) + (_hd144653144729_ (let () (declare (not safe)) - (##car _e144650144722_)))) + (##car _e144654144726_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144649144725_)) - (let ((_e144653144730_ + (gx#stx-pair? _hd144653144729_)) + (let ((_e144657144734_ (let () (declare (not safe)) - (gx#stx-e _hd144649144725_)))) - (let ((_tl144651144735_ + (gx#stx-e _hd144653144729_)))) + (let ((_tl144655144739_ (let () (declare (not safe)) - (##cdr _e144653144730_))) - (_hd144652144733_ + (##cdr _e144657144734_))) + (_hd144656144737_ (let () (declare (not safe)) - (##car _e144653144730_)))) + (##car _e144657144734_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144652144733_)) - (let ((_e144656144738_ + (gx#stx-pair? _hd144656144737_)) + (let ((_e144660144742_ (let () (declare (not safe)) (gx#stx-e - _hd144652144733_)))) - (let ((_tl144654144743_ + _hd144656144737_)))) + (let ((_tl144658144747_ (let () (declare (not safe)) - (##cdr _e144656144738_))) - (_hd144655144741_ + (##cdr _e144660144742_))) + (_hd144659144745_ (let () (declare (not safe)) - (##car _e144656144738_)))) + (##car _e144660144742_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144654144743_)) + _tl144658144747_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144651144735_)) - (let ((_e144659144746_ + _tl144655144739_)) + (let ((_e144663144750_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl144651144735_)))) - (let ((_tl144657144751_ - (let () (declare (not safe)) (##cdr _e144659144746_))) - (_hd144658144749_ - (let () (declare (not safe)) (##car _e144659144746_)))) + (gx#stx-e _tl144655144739_)))) + (let ((_tl144661144755_ + (let () (declare (not safe)) (##cdr _e144663144750_))) + (_hd144662144753_ + (let () (declare (not safe)) (##car _e144663144750_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144658144749_)) - (let ((_e144662144754_ + (gx#stx-pair? _hd144662144753_)) + (let ((_e144666144758_ (let () (declare (not safe)) - (gx#stx-e _hd144658144749_)))) - (let ((_tl144660144759_ + (gx#stx-e _hd144662144753_)))) + (let ((_tl144664144763_ (let () (declare (not safe)) - (##cdr _e144662144754_))) - (_hd144661144757_ + (##cdr _e144666144758_))) + (_hd144665144761_ (let () (declare (not safe)) - (##car _e144662144754_)))) + (##car _e144666144758_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144661144757_)) + (gx#identifier? _hd144665144761_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd144661144757_)) + (gx#stx-eq? '%#lambda _hd144665144761_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144660144759_)) - (let ((_e144665144762_ + (gx#stx-pair? _tl144664144763_)) + (let ((_e144669144766_ (let () (declare (not safe)) - (gx#stx-e _tl144660144759_)))) - (let ((_tl144663144767_ + (gx#stx-e _tl144664144763_)))) + (let ((_tl144667144771_ (let () (declare (not safe)) - (##cdr _e144665144762_))) - (_hd144664144765_ + (##cdr _e144669144766_))) + (_hd144668144769_ (let () (declare (not safe)) - (##car _e144665144762_)))) + (##car _e144669144766_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd144664144765_)) - (let ((___splice150061150062_ + _hd144668144769_)) + (let ((___splice150065150066_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd144664144765_ + _hd144668144769_ '0)))) - (let ((_tl144668144772_ + (let ((_tl144672144776_ (let () (declare (not safe)) (##vector-ref - ___splice150061150062_ + ___splice150065150066_ '1))) - (_target144666144770_ + (_target144670144774_ (let () (declare (not safe)) (##vector-ref - ___splice150061150062_ + ___splice150065150066_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144668144772_)) - (___match150252150253_ - _e144528145257_ - _hd144527145260_ - _tl144526145262_ - _e144647144714_ - _hd144646144717_ - _tl144645144719_ - _e144650144722_ - _hd144649144725_ - _tl144648144727_ - _e144653144730_ - _hd144652144733_ - _tl144651144735_ - _e144656144738_ - _hd144655144741_ - _tl144654144743_ - _e144659144746_ - _hd144658144749_ - _tl144657144751_ - _e144662144754_ - _hd144661144757_ - _tl144660144759_ - _e144665144762_ - _hd144664144765_ - _tl144663144767_ - ___splice150061150062_ - _target144666144770_ - _tl144668144772_) - (___kont150065150066_)))) - (___kont150065150066_)))) - (___kont150065150066_)) - (___kont150065150066_)) - (___kont150065150066_)))) - (___kont150065150066_)))) - (___kont150065150066_)) + _tl144672144776_)) + (___match150256150257_ + _e144532145261_ + _hd144531145264_ + _tl144530145266_ + _e144651144718_ + _hd144650144721_ + _tl144649144723_ + _e144654144726_ + _hd144653144729_ + _tl144652144731_ + _e144657144734_ + _hd144656144737_ + _tl144655144739_ + _e144660144742_ + _hd144659144745_ + _tl144658144747_ + _e144663144750_ + _hd144662144753_ + _tl144661144755_ + _e144666144758_ + _hd144665144761_ + _tl144664144763_ + _e144669144766_ + _hd144668144769_ + _tl144667144771_ + ___splice150065150066_ + _target144670144774_ + _tl144672144776_) + (___kont150069150070_)))) + (___kont150069150070_)))) + (___kont150069150070_)) + (___kont150069150070_)) + (___kont150069150070_)))) + (___kont150069150070_)))) + (___kont150069150070_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150065150066_)))) - (___kont150065150066_)))) - (___kont150065150066_)))) - (___kont150065150066_)))) - (___kont150065150066_)) - (___kont150065150066_))))) + (___kont150069150070_)))) + (___kont150069150070_)))) + (___kont150069150070_)))) + (___kont150069150070_)))) + (___kont150069150070_)) + (___kont150069150070_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150065150066_)))) - (___kont150065150066_))))))) - (_optimize-t__148974148975_ - (lambda (_expr144497_ _test144498_ _continue144499_) - (let ((__tmp152354 - (let ((__tmp152355 + (___kont150069150070_)))) + (___kont150069150070_))))))) + (_optimize-t__148978148979_ + (lambda (_expr144501_ _test144502_ _continue144503_) + (let ((__tmp152358 + (let ((__tmp152359 (let () (declare (not safe)) - (cons _test144498_ '#t)))) + (cons _test144502_ '#t)))) (declare (not safe)) - (cons __tmp152355 '()))) - (__tmp152353 - (lambda () (_continue144499_ _expr144497_)))) + (cons __tmp152359 '()))) + (__tmp152357 + (lambda () (_continue144503_ _expr144501_)))) (declare (not safe)) - (_do-assert141511_ __tmp152354 __tmp152353)))) - (_optimize-t__0__148976148977_ - (lambda (_expr144505_ _test144506_) - (let ((_continue144508_ _optimize-e141522_)) + (_do-assert141515_ __tmp152358 __tmp152357)))) + (_optimize-t__0__148980148981_ + (lambda (_expr144509_ _test144510_) + (let ((_continue144512_ _optimize-e141526_)) (declare (not safe)) - (_optimize-t__148974148975_ - _expr144505_ - _test144506_ - _continue144508_)))) - (_optimize-t141523_ - (lambda _g152357_ - (let ((_g152356_ + (_optimize-t__148978148979_ + _expr144509_ + _test144510_ + _continue144512_)))) + (_optimize-t141527_ + (lambda _g152361_ + (let ((_g152360_ (let () (declare (not safe)) - (##length _g152357_)))) - (cond ((let () (declare (not safe)) (##fx= _g152356_ 2)) - (apply (lambda (_expr144505_ _test144506_) + (##length _g152361_)))) + (cond ((let () (declare (not safe)) (##fx= _g152360_ 2)) + (apply (lambda (_expr144509_ _test144510_) (let () (declare (not safe)) - (_optimize-t__0__148976148977_ - _expr144505_ - _test144506_))) - _g152357_)) - ((let () (declare (not safe)) (##fx= _g152356_ 3)) - (apply (lambda (_expr144510_ - _test144511_ - _continue144512_) + (_optimize-t__0__148980148981_ + _expr144509_ + _test144510_))) + _g152361_)) + ((let () (declare (not safe)) (##fx= _g152360_ 3)) + (apply (lambda (_expr144514_ + _test144515_ + _continue144516_) (let () (declare (not safe)) - (_optimize-t__148974148975_ - _expr144510_ - _test144511_ - _continue144512_))) - _g152357_)) + (_optimize-t__148978148979_ + _expr144514_ + _test144515_ + _continue144516_))) + _g152361_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g152357_)))))) - (_optimize-f__148978148979_ - (lambda (_expr143582_ _test143583_) - (let ((__tmp152400 - (if _test143583_ - (let ((__tmp152401 + _g152361_)))))) + (_optimize-f__148982148983_ + (lambda (_expr143586_ _test143587_) + (let ((__tmp152404 + (if _test143587_ + (let ((__tmp152405 (let () (declare (not safe)) - (cons _test143583_ '#f)))) + (cons _test143587_ '#f)))) (declare (not safe)) - (cons __tmp152401 '())) + (cons __tmp152405 '())) '())) - (__tmp152358 + (__tmp152362 (lambda () - (let* ((___stx150293150294_ _expr143582_) - (_g143591143764_ + (let* ((___stx150297150298_ _expr143586_) + (_g143595143768_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150293150294_))))) - (let ((___kont150295150296_ - (lambda (_L144352_ _L144353_) - (let ((_$e144373_ + ___stx150297150298_))))) + (let ((___kont150299150300_ + (lambda (_L144356_ _L144357_) + (let ((_$e144377_ (let () (declare (not safe)) - (_lookup-block141530_ - _L144353_)))) - (if _$e144373_ - ((lambda (_block144376_) + (_lookup-block141534_ + _L144357_)))) + (if _$e144377_ + ((lambda (_block144380_) (if (let () (declare (not safe)) - (_nonlinear-block?141532_ - _block144376_)) - _expr143582_ - (let* ((_inline144385_ - (let ((__tmp152359 + (_nonlinear-block?141536_ + _block144380_)) + _expr143586_ + (let* ((_inline144389_ + (let ((__tmp152363 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152360 - (lambda (_g144377144380_ _g144378144382_) + (let ((__tmp152364 + (lambda (_g144381144384_ _g144382144386_) (let () (declare (not safe)) - (cons _g144377144380_ - _g144378144382_))))) + (cons _g144381144384_ + _g144382144386_))))) (declare (not safe)) - (foldr1 __tmp152360 '() _L144352_)))) + (foldr1 __tmp152364 '() _L144356_)))) (declare (not safe)) - (_inline-block141531_ _block144376_ __tmp152359))) - (___stx150255150256_ _inline144385_) - (_g144388144409_ + (_inline-block141535_ _block144380_ __tmp152363))) + (___stx150259150260_ _inline144389_) + (_g144392144413_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150255150256_))))) - (let ((___kont150257150258_ - (lambda (_L144453_ _L144454_ _L144455_) - (let ((_$e144477_ + ___stx150259150260_))))) + (let ((___kont150261150262_ + (lambda (_L144457_ _L144458_ _L144459_) + (let ((_$e144481_ (let () (declare (not safe)) - (_assert-e141525_ _L144455_)))) + (_assert-e141529_ _L144459_)))) (if (let () (declare (not safe)) - (eq? '#t _$e144477_)) - (if _in-splice?141510_ + (eq? '#t _$e144481_)) + (if _in-splice?141514_ (let () (declare (not safe)) - (_optimize-f__0__148980148981_ _L144454_)) + (_optimize-f__0__148984148985_ _L144458_)) (let () (declare (not safe)) - (_optimize-e141522_ _L144454_))) + (_optimize-e141526_ _L144458_))) (if (let () (declare (not safe)) - (eq? '#f _$e144477_)) + (eq? '#f _$e144481_)) (let () (declare (not safe)) - (_optimize-f__0__148980148981_ _L144453_)) - _expr143582_))))) - (___kont150259150260_ + (_optimize-f__0__148984148985_ _L144457_)) + _expr143586_))))) + (___kont150263150264_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__148980148981_ _inline144385_))))) + (_optimize-f__0__148984148985_ _inline144389_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150255150256_)) - (let ((_e144395144421_ + (gx#stx-pair? ___stx150259150260_)) + (let ((_e144399144425_ (let () (declare (not safe)) - (gx#stx-e ___stx150255150256_)))) - (let ((_tl144393144426_ + (gx#stx-e ___stx150259150260_)))) + (let ((_tl144397144430_ (let () (declare (not safe)) - (##cdr _e144395144421_))) - (_hd144394144424_ + (##cdr _e144399144425_))) + (_hd144398144428_ (let () (declare (not safe)) - (##car _e144395144421_)))) + (##car _e144399144425_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144394144424_)) + (gx#identifier? _hd144398144428_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd144394144424_)) + (gx#stx-eq? '%#if _hd144398144428_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144393144426_)) - (let ((_e144398144429_ + (gx#stx-pair? _tl144397144430_)) + (let ((_e144402144433_ (let () (declare (not safe)) - (gx#stx-e _tl144393144426_)))) - (let ((_tl144396144434_ + (gx#stx-e _tl144397144430_)))) + (let ((_tl144400144438_ (let () (declare (not safe)) - (##cdr _e144398144429_))) - (_hd144397144432_ + (##cdr _e144402144433_))) + (_hd144401144436_ (let () (declare (not safe)) - (##car _e144398144429_)))) + (##car _e144402144433_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144396144434_)) - (let ((_e144401144437_ + _tl144400144438_)) + (let ((_e144405144441_ (let () (declare (not safe)) (gx#stx-e - _tl144396144434_)))) - (let ((_tl144399144442_ + _tl144400144438_)))) + (let ((_tl144403144446_ (let () (declare (not safe)) - (##cdr _e144401144437_))) - (_hd144400144440_ + (##cdr _e144405144441_))) + (_hd144404144444_ (let () (declare (not safe)) - (##car _e144401144437_)))) + (##car _e144405144441_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144399144442_)) - (let ((_e144404144445_ + _tl144403144446_)) + (let ((_e144408144449_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl144399144442_)))) - (let ((_tl144402144450_ - (let () (declare (not safe)) (##cdr _e144404144445_))) - (_hd144403144448_ - (let () (declare (not safe)) (##car _e144404144445_)))) + (gx#stx-e _tl144403144446_)))) + (let ((_tl144406144454_ + (let () (declare (not safe)) (##cdr _e144408144449_))) + (_hd144407144452_ + (let () (declare (not safe)) (##car _e144408144449_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144402144450_)) - (___kont150257150258_ - _hd144403144448_ - _hd144400144440_ - _hd144397144432_) - (___kont150259150260_)))) - (___kont150259150260_)))) + (gx#stx-null? _tl144406144454_)) + (___kont150261150262_ + _hd144407144452_ + _hd144404144444_ + _hd144401144436_) + (___kont150263150264_)))) + (___kont150263150264_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150259150260_)))) - (___kont150259150260_)) - (___kont150259150260_)) - (___kont150259150260_)))) - (___kont150259150260_)))))) + (___kont150263150264_)))) + (___kont150263150264_)) + (___kont150263150264_)) + (___kont150263150264_)))) + (___kont150263150264_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e144373_) - _expr143582_)))) - (___kont150299150300_ - (lambda (_L144250_ _L144251_ _L144252_) - (let ((_$e144269_ + _$e144377_) + _expr143586_)))) + (___kont150303150304_ + (lambda (_L144254_ _L144255_ _L144256_) + (let ((_$e144273_ (let () (declare (not safe)) - (_assert-e141525_ - _L144252_)))) + (_assert-e141529_ + _L144256_)))) (if (let () (declare (not safe)) - (eq? '#t _$e144269_)) - (if _in-splice?141510_ + (eq? '#t _$e144273_)) + (if _in-splice?141514_ (let () (declare (not safe)) - (_optimize-f__0__148980148981_ - _L144251_)) + (_optimize-f__0__148984148985_ + _L144255_)) (let () (declare (not safe)) - (_optimize-e141522_ - _L144251_))) + (_optimize-e141526_ + _L144255_))) (if (let () (declare (not safe)) - (eq? '#f _$e144269_)) + (eq? '#f _$e144273_)) (let () (declare (not safe)) - (_optimize-f__0__148980148981_ - _L144250_)) - (let ((_K144272_ + (_optimize-f__0__148984148985_ + _L144254_)) + (let ((_K144276_ (let () (declare (not safe)) - (_optimize-t__148974148975_ - _L144251_ - _L144252_ - _optimize-f141524_))) - (_E144273_ + (_optimize-t__148978148979_ + _L144255_ + _L144256_ + _optimize-f141528_))) + (_E144277_ (let () (declare (not safe)) - (_optimize-f__148978148979_ - _L144250_ - _L144252_)))) - (if (let ((__tmp152365 + (_optimize-f__148982148983_ + _L144254_ + _L144256_)))) + (if (let ((__tmp152369 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K144272_))) - (__tmp152364 + (gxc#apply-generate-runtime-repr _K144276_))) + (__tmp152368 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E144273_)))) + (gxc#apply-generate-runtime-repr _E144277_)))) (declare (not safe)) - (equal? __tmp152365 __tmp152364)) - _K144272_ - (let ((__tmp152361 - (let ((__tmp152362 - (let ((__tmp152363 + (equal? __tmp152369 __tmp152368)) + _K144276_ + (let ((__tmp152365 + (let ((__tmp152366 + (let ((__tmp152367 (let () (declare (not safe)) - (cons _E144273_ '())))) + (cons _E144277_ '())))) (declare (not safe)) - (cons _K144272_ __tmp152363)))) + (cons _K144276_ __tmp152367)))) (declare (not safe)) - (cons _L144252_ __tmp152362)))) + (cons _L144256_ __tmp152366)))) (declare (not safe)) - (cons '%#if __tmp152361))))))))) + (cons '%#if __tmp152365))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150301150302_ - (lambda (_L144180_ _L144181_ _L144182_) - (let* ((_body144201_ + (___kont150305150306_ + (lambda (_L144184_ _L144185_ _L144186_) + (let* ((_body144205_ (let () (declare (not safe)) - (_optimize-f__0__148980148981_ - _L144180_))) - (__tmp152366 - (let ((__tmp152368 + (_optimize-f__0__148984148985_ + _L144184_))) + (__tmp152370 + (let ((__tmp152372 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L144181_ - _L144182_)) - (let ((__tmp152369 + _L144185_ + _L144186_)) + (let ((__tmp152373 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g144202144206_ - _g144203144208_ - _g144204144210_) - (let ((__tmp152370 - (let ((__tmp152375 + (lambda (_g144206144210_ + _g144207144212_ + _g144208144214_) + (let ((__tmp152374 + (let ((__tmp152379 (let () (declare (not safe)) - (cons _g144203144208_ '()))) - (__tmp152371 - (let ((__tmp152372 - (let ((__tmp152374 + (cons _g144207144212_ '()))) + (__tmp152375 + (let ((__tmp152376 + (let ((__tmp152378 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152373 + (__tmp152377 (let () (declare (not safe)) - (cons _g144202144206_ + (cons _g144206144210_ '())))) (declare (not safe)) - (cons __tmp152374 - __tmp152373)))) + (cons __tmp152378 + __tmp152377)))) (declare (not safe)) - (cons __tmp152372 '())))) + (cons __tmp152376 '())))) (declare (not safe)) - (cons __tmp152375 __tmp152371)))) + (cons __tmp152379 __tmp152375)))) (declare (not safe)) - (cons __tmp152370 _g144204144210_))))) + (cons __tmp152374 _g144208144214_))))) (declare (not safe)) - (foldr2 __tmp152369 '() _L144181_ _L144182_)))) - (__tmp152367 - (let () (declare (not safe)) (cons _body144201_ '())))) + (foldr2 __tmp152373 '() _L144185_ _L144186_)))) + (__tmp152371 + (let () (declare (not safe)) (cons _body144205_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152368 - __tmp152367)))) + (cons __tmp152372 + __tmp152371)))) (declare (not safe)) - (cons '%#let-values __tmp152366)))) - (___kont150305150306_ - (lambda (_L144048_ _L144049_ _L144050_) - (let ((__tmp152376 + (cons '%#let-values __tmp152370)))) + (___kont150309150310_ + (lambda (_L144052_ _L144053_ _L144054_) + (let ((__tmp152380 (map cons - (let ((__tmp152377 - (lambda (_g144068144071_ + (let ((__tmp152381 + (lambda (_g144072144075_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g144069144073_) + _g144073144077_) (let () (declare (not safe)) - (cons _g144068144071_ _g144069144073_))))) + (cons _g144072144075_ _g144073144077_))))) (declare (not safe)) - (foldr1 __tmp152377 '() _L144050_)) + (foldr1 __tmp152381 '() _L144054_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp152378 - (lambda (_g144075144078_ + (let ((__tmp152382 + (lambda (_g144079144082_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g144076144080_) + _g144080144084_) (let () (declare (not safe)) - (cons _g144075144078_ _g144076144080_))))) + (cons _g144079144082_ _g144080144084_))))) (declare (not safe)) - (foldr1 __tmp152378 '() _L144049_))))) + (foldr1 __tmp152382 '() _L144053_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__148982148983_ - __tmp152376 - _L144048_ - _optimize-f141524_)))) - (___kont150309150310_ - (lambda (_L143904_ - _L143905_ - _L143906_ - _L143907_ - _L143908_) - (let ((__tmp152379 + (_bind-e__148986148987_ + __tmp152380 + _L144052_ + _optimize-f141528_)))) + (___kont150313150314_ + (lambda (_L143908_ + _L143909_ + _L143910_ + _L143911_ + _L143912_) + (let ((__tmp152383 (lambda () - (let* ((_expr143951_ + (let* ((_expr143955_ (let () (declare (not safe)) - (_optimize-f__0__148980148981_ - _L143906_))) - (__tmp152380 - (let ((__tmp152382 + (_optimize-f__0__148984148985_ + _L143910_))) + (__tmp152384 + (let ((__tmp152386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152385 - (let ((__tmp152392 + (let ((__tmp152389 + (let ((__tmp152396 (let () (declare (not safe)) - (cons _L143908_ '()))) - (__tmp152386 - (let ((__tmp152387 - (let ((__tmp152388 - (let ((__tmp152390 - (let ((__tmp152391 + (cons _L143912_ '()))) + (__tmp152390 + (let ((__tmp152391 + (let ((__tmp152392 + (let ((__tmp152394 + (let ((__tmp152395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g143952143955_ _g143953143957_) + (lambda (_g143956143959_ _g143957143961_) (let () (declare (not safe)) - (cons _g143952143955_ _g143953143957_))))) + (cons _g143956143959_ _g143957143961_))))) (declare (not safe)) - (foldr1 __tmp152391 '() _L143907_))) - (__tmp152389 - (let () (declare (not safe)) (cons _expr143951_ '())))) + (foldr1 __tmp152395 '() _L143911_))) + (__tmp152393 + (let () (declare (not safe)) (cons _expr143955_ '())))) (declare (not safe)) - (cons __tmp152390 __tmp152389)))) + (cons __tmp152394 __tmp152393)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp152388)))) + (cons '%#lambda __tmp152392)))) (declare (not safe)) - (cons __tmp152387 '())))) + (cons __tmp152391 '())))) (declare (not safe)) - (cons __tmp152392 __tmp152386))) - (__tmp152383 - (let ((__tmp152384 - (lambda (_g143959143962_ - _g143960143964_) + (cons __tmp152396 __tmp152390))) + (__tmp152387 + (let ((__tmp152388 + (lambda (_g143963143966_ + _g143964143968_) (let () (declare (not safe)) - (cons _g143959143962_ - _g143960143964_))))) + (cons _g143963143966_ + _g143964143968_))))) (declare (not safe)) - (foldr1 __tmp152384 '() _L143905_)))) + (foldr1 __tmp152388 '() _L143909_)))) (declare (not safe)) - (cons __tmp152385 __tmp152383))) - (__tmp152381 - (let () (declare (not safe)) (cons _L143904_ '())))) + (cons __tmp152389 __tmp152387))) + (__tmp152385 + (let () (declare (not safe)) (cons _L143908_ '())))) (declare (not safe)) - (cons __tmp152382 __tmp152381)))) + (cons __tmp152386 __tmp152385)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp152380))))) + __tmp152384))))) (declare (not safe)) - (_do-splice!141521_ __tmp152379)))) - (___kont150315150316_ - (lambda () _expr143582_))) - (let* ((___match150502150503_ - (lambda (_e143714143776_ - _hd143713143779_ - _tl143712143781_ - _e143717143784_ - _hd143716143787_ - _tl143715143789_ - _e143720143792_ - _hd143719143795_ - _tl143718143797_ - _e143723143800_ - _hd143722143803_ - _tl143721143805_ - _e143726143808_ - _hd143725143811_ - _tl143724143813_ - _e143729143816_ - _hd143728143819_ - _tl143727143821_ - _e143732143824_ - _hd143731143827_ - _tl143730143829_ - _e143735143832_ - _hd143734143835_ - _tl143733143837_ - ___splice150311150312_ - _target143736143840_ - _tl143738143842_) - (letrec ((_loop143739143845_ - (lambda (_hd143737143848_ - _id143743143850_) + (_do-splice!141525_ __tmp152383)))) + (___kont150319150320_ + (lambda () _expr143586_))) + (let* ((___match150506150507_ + (lambda (_e143718143780_ + _hd143717143783_ + _tl143716143785_ + _e143721143788_ + _hd143720143791_ + _tl143719143793_ + _e143724143796_ + _hd143723143799_ + _tl143722143801_ + _e143727143804_ + _hd143726143807_ + _tl143725143809_ + _e143730143812_ + _hd143729143815_ + _tl143728143817_ + _e143733143820_ + _hd143732143823_ + _tl143731143825_ + _e143736143828_ + _hd143735143831_ + _tl143734143833_ + _e143739143836_ + _hd143738143839_ + _tl143737143841_ + ___splice150315150316_ + _target143740143844_ + _tl143742143846_) + (letrec ((_loop143743143849_ + (lambda (_hd143741143852_ + _id143747143854_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143737143848_)) - (let ((_e143740143853_ + _hd143741143852_)) + (let ((_e143744143857_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd143737143848_)))) - (let ((_lp-tl143742143858_ + (gx#stx-e _hd143741143852_)))) + (let ((_lp-tl143746143862_ (let () (declare (not safe)) - (##cdr _e143740143853_))) - (_lp-hd143741143856_ + (##cdr _e143744143857_))) + (_lp-hd143745143860_ (let () (declare (not safe)) - (##car _e143740143853_)))) - (let ((__tmp152394 + (##car _e143744143857_)))) + (let ((__tmp152398 (let () (declare (not safe)) - (cons _lp-hd143741143856_ _id143743143850_)))) + (cons _lp-hd143745143860_ _id143747143854_)))) (declare (not safe)) - (_loop143739143845_ - _lp-tl143742143858_ - __tmp152394)))) - (let ((_id143744143861_ (reverse _id143743143850_))) + (_loop143743143849_ + _lp-tl143746143862_ + __tmp152398)))) + (let ((_id143748143865_ (reverse _id143747143854_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143733143837_)) - (let ((_e143747143864_ + (gx#stx-pair? _tl143737143841_)) + (let ((_e143751143868_ (let () (declare (not safe)) - (gx#stx-e _tl143733143837_)))) - (let ((_tl143745143869_ + (gx#stx-e _tl143737143841_)))) + (let ((_tl143749143873_ (let () (declare (not safe)) - (##cdr _e143747143864_))) - (_hd143746143867_ + (##cdr _e143751143868_))) + (_hd143750143871_ (let () (declare (not safe)) - (##car _e143747143864_)))) + (##car _e143751143868_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143745143869_)) + (gx#stx-null? _tl143749143873_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143727143821_)) + (gx#stx-null? _tl143731143825_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl143718143797_)) - (let ((___splice150313150314_ + _tl143722143801_)) + (let ((___splice150317150318_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl143718143797_ + _tl143722143801_ '0)))) - (let ((_tl143750143874_ + (let ((_tl143754143878_ (let () (declare (not safe)) (##vector-ref - ___splice150313150314_ + ___splice150317150318_ '1))) - (_target143748143872_ + (_target143752143876_ (let () (declare (not safe)) (##vector-ref - ___splice150313150314_ + ___splice150317150318_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143750143874_)) - (letrec ((_loop143751143877_ - (lambda (_hd143749143880_ + _tl143754143878_)) + (letrec ((_loop143755143881_ + (lambda (_hd143753143884_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind143755143882_) + _bind143759143886_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143749143880_)) - (let ((_e143752143885_ + (gx#stx-pair? _hd143753143884_)) + (let ((_e143756143889_ (let () (declare (not safe)) - (gx#stx-e _hd143749143880_)))) - (let ((_lp-tl143754143890_ + (gx#stx-e _hd143753143884_)))) + (let ((_lp-tl143758143894_ (let () (declare (not safe)) - (##cdr _e143752143885_))) - (_lp-hd143753143888_ + (##cdr _e143756143889_))) + (_lp-hd143757143892_ (let () (declare (not safe)) - (##car _e143752143885_)))) - (let ((__tmp152393 + (##car _e143756143889_)))) + (let ((__tmp152397 (let () (declare (not safe)) - (cons _lp-hd143753143888_ - _bind143755143882_)))) + (cons _lp-hd143757143892_ + _bind143759143886_)))) (declare (not safe)) - (_loop143751143877_ - _lp-tl143754143890_ - __tmp152393)))) - (let ((_bind143756143893_ - (reverse _bind143755143882_))) + (_loop143755143881_ + _lp-tl143758143894_ + __tmp152397)))) + (let ((_bind143760143897_ + (reverse _bind143759143886_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143715143789_)) - (let ((_e143759143896_ + (gx#stx-pair? _tl143719143793_)) + (let ((_e143763143900_ (let () (declare (not safe)) - (gx#stx-e _tl143715143789_)))) - (let ((_tl143757143901_ + (gx#stx-e _tl143719143793_)))) + (let ((_tl143761143905_ (let () (declare (not safe)) - (##cdr _e143759143896_))) - (_hd143758143899_ + (##cdr _e143763143900_))) + (_hd143762143903_ (let () (declare (not safe)) - (##car _e143759143896_)))) + (##car _e143763143900_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143757143901_)) - (___kont150309150310_ - _hd143758143899_ - _bind143756143893_ - _hd143746143867_ - _id143744143861_ - _hd143725143811_) - (___kont150315150316_)))) - (___kont150315150316_))))))) + (gx#stx-null? _tl143761143905_)) + (___kont150313150314_ + _hd143762143903_ + _bind143760143897_ + _hd143750143871_ + _id143748143865_ + _hd143729143815_) + (___kont150319150320_)))) + (___kont150319150320_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143751143877_ - _target143748143872_ + (_loop143755143881_ + _target143752143876_ '()))) - (___kont150315150316_)))) - (___kont150315150316_)) - (___kont150315150316_)) - (___kont150315150316_)))) - (___kont150315150316_))))))) + (___kont150319150320_)))) + (___kont150319150320_)) + (___kont150319150320_)) + (___kont150319150320_)))) + (___kont150319150320_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143739143845_ - _target143736143840_ + (_loop143743143849_ + _target143740143844_ '()))))) - (___match150436150437_ - (lambda (_e143680143972_ - _hd143679143975_ - _tl143678143977_ - _e143683143980_ - _hd143682143983_ - _tl143681143985_ - ___splice150307150308_ - _target143684143988_ - _tl143686143990_) - (letrec ((_loop143687143993_ - (lambda (_hd143685143996_ - _expr143691143998_ - _id143692144000_) + (___match150440150441_ + (lambda (_e143684143976_ + _hd143683143979_ + _tl143682143981_ + _e143687143984_ + _hd143686143987_ + _tl143685143989_ + ___splice150311150312_ + _target143688143992_ + _tl143690143994_) + (letrec ((_loop143691143997_ + (lambda (_hd143689144000_ + _expr143695144002_ + _id143696144004_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143685143996_)) - (let ((_e143688144003_ + _hd143689144000_)) + (let ((_e143692144007_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd143685143996_)))) - (let ((_lp-tl143690144008_ + (gx#stx-e _hd143689144000_)))) + (let ((_lp-tl143694144012_ (let () (declare (not safe)) - (##cdr _e143688144003_))) - (_lp-hd143689144006_ + (##cdr _e143692144007_))) + (_lp-hd143693144010_ (let () (declare (not safe)) - (##car _e143688144003_)))) + (##car _e143692144007_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd143689144006_)) - (let ((_e143697144011_ + (gx#stx-pair? _lp-hd143693144010_)) + (let ((_e143701144015_ (let () (declare (not safe)) - (gx#stx-e _lp-hd143689144006_)))) - (let ((_tl143695144016_ + (gx#stx-e _lp-hd143693144010_)))) + (let ((_tl143699144020_ (let () (declare (not safe)) - (##cdr _e143697144011_))) - (_hd143696144014_ + (##cdr _e143701144015_))) + (_hd143700144018_ (let () (declare (not safe)) - (##car _e143697144011_)))) + (##car _e143701144015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143696144014_)) - (let ((_e143700144019_ + (gx#stx-pair? _hd143700144018_)) + (let ((_e143704144023_ (let () (declare (not safe)) - (gx#stx-e _hd143696144014_)))) - (let ((_tl143698144024_ + (gx#stx-e _hd143700144018_)))) + (let ((_tl143702144028_ (let () (declare (not safe)) - (##cdr _e143700144019_))) - (_hd143699144022_ + (##cdr _e143704144023_))) + (_hd143703144026_ (let () (declare (not safe)) - (##car _e143700144019_)))) + (##car _e143704144023_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143698144024_)) + (gx#stx-null? _tl143702144028_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143695144016_)) - (let ((_e143703144027_ + _tl143699144020_)) + (let ((_e143707144031_ (let () (declare (not safe)) (gx#stx-e - _tl143695144016_)))) - (let ((_tl143701144032_ + _tl143699144020_)))) + (let ((_tl143705144036_ (let () (declare (not safe)) - (##cdr _e143703144027_))) - (_hd143702144030_ + (##cdr _e143707144031_))) + (_hd143706144034_ (let () (declare (not safe)) - (##car _e143703144027_)))) + (##car _e143707144031_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143701144032_)) - (let ((__tmp152396 + _tl143705144036_)) + (let ((__tmp152400 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd143702144030_ _expr143691143998_))) - (__tmp152395 + (cons _hd143706144034_ _expr143695144002_))) + (__tmp152399 (let () (declare (not safe)) - (cons _hd143699144022_ _id143692144000_)))) + (cons _hd143703144026_ _id143696144004_)))) (declare (not safe)) - (_loop143687143993_ - _lp-tl143690144008_ - __tmp152396 - __tmp152395)) - (___kont150315150316_)))) + (_loop143691143997_ + _lp-tl143694144012_ + __tmp152400 + __tmp152399)) + (___kont150319150320_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150315150316_)) - (___kont150315150316_)))) - (___kont150315150316_)))) - (___kont150315150316_)))) - (let ((_id143694144037_ (reverse _id143692144000_)) - (_expr143693144035_ (reverse _expr143691143998_))) + (___kont150319150320_)) + (___kont150319150320_)))) + (___kont150319150320_)))) + (___kont150319150320_)))) + (let ((_id143698144041_ (reverse _id143696144004_)) + (_expr143697144039_ (reverse _expr143695144002_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143681143985_)) - (let ((_e143706144040_ + (gx#stx-pair? _tl143685143989_)) + (let ((_e143710144044_ (let () (declare (not safe)) - (gx#stx-e _tl143681143985_)))) - (let ((_tl143704144045_ + (gx#stx-e _tl143685143989_)))) + (let ((_tl143708144049_ (let () (declare (not safe)) - (##cdr _e143706144040_))) - (_hd143705144043_ + (##cdr _e143710144044_))) + (_hd143709144047_ (let () (declare (not safe)) - (##car _e143706144040_)))) + (##car _e143710144044_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143704144045_)) - (___kont150305150306_ - _hd143705144043_ - _expr143693144035_ - _id143694144037_) - (___kont150315150316_)))) - (___kont150315150316_))))))) + (gx#stx-null? _tl143708144049_)) + (___kont150309150310_ + _hd143709144047_ + _expr143697144039_ + _id143698144041_) + (___kont150319150320_)))) + (___kont150319150320_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143687143993_ - _target143684143988_ + (_loop143691143997_ + _target143688143992_ '() '()))))) - (___match150412150413_ - (lambda (_e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_) - (letrec ((_loop143649144109_ - (lambda (_hd143647144112_ - _xid143653144114_ - _id143654144116_) + (___match150416150417_ + (lambda (_e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_) + (letrec ((_loop143653144113_ + (lambda (_hd143651144116_ + _xid143657144118_ + _id143658144120_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143647144112_)) - (let ((_e143650144119_ + _hd143651144116_)) + (let ((_e143654144123_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd143647144112_)))) - (let ((_lp-tl143652144124_ + (gx#stx-e _hd143651144116_)))) + (let ((_lp-tl143656144128_ (let () (declare (not safe)) - (##cdr _e143650144119_))) - (_lp-hd143651144122_ + (##cdr _e143654144123_))) + (_lp-hd143655144126_ (let () (declare (not safe)) - (##car _e143650144119_)))) + (##car _e143654144123_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd143651144122_)) - (let ((_e143659144127_ + (gx#stx-pair? _lp-hd143655144126_)) + (let ((_e143663144131_ (let () (declare (not safe)) - (gx#stx-e _lp-hd143651144122_)))) - (let ((_tl143657144132_ + (gx#stx-e _lp-hd143655144126_)))) + (let ((_tl143661144136_ (let () (declare (not safe)) - (##cdr _e143659144127_))) - (_hd143658144130_ + (##cdr _e143663144131_))) + (_hd143662144134_ (let () (declare (not safe)) - (##car _e143659144127_)))) + (##car _e143663144131_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143658144130_)) - (let ((_e143662144135_ + (gx#stx-pair? _hd143662144134_)) + (let ((_e143666144139_ (let () (declare (not safe)) - (gx#stx-e _hd143658144130_)))) - (let ((_tl143660144140_ + (gx#stx-e _hd143662144134_)))) + (let ((_tl143664144144_ (let () (declare (not safe)) - (##cdr _e143662144135_))) - (_hd143661144138_ + (##cdr _e143666144139_))) + (_hd143665144142_ (let () (declare (not safe)) - (##car _e143662144135_)))) + (##car _e143666144139_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143660144140_)) + (gx#stx-null? _tl143664144144_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143657144132_)) - (let ((_e143665144143_ + _tl143661144136_)) + (let ((_e143669144147_ (let () (declare (not safe)) (gx#stx-e - _tl143657144132_)))) - (let ((_tl143663144148_ + _tl143661144136_)))) + (let ((_tl143667144152_ (let () (declare (not safe)) - (##cdr _e143665144143_))) - (_hd143664144146_ + (##cdr _e143669144147_))) + (_hd143668144150_ (let () (declare (not safe)) - (##car _e143665144143_)))) + (##car _e143669144147_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143664144146_)) - (let ((_e143668144151_ + _hd143668144150_)) + (let ((_e143672144155_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd143664144146_)))) - (let ((_tl143666144156_ - (let () (declare (not safe)) (##cdr _e143668144151_))) - (_hd143667144154_ + (gx#stx-e _hd143668144150_)))) + (let ((_tl143670144160_ + (let () (declare (not safe)) (##cdr _e143672144155_))) + (_hd143671144158_ (let () (declare (not safe)) - (##car _e143668144151_)))) + (##car _e143672144155_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143667144154_)) + (gx#identifier? _hd143671144158_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143667144154_)) + (gx#stx-eq? '%#ref _hd143671144158_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143666144156_)) - (let ((_e143671144159_ + (gx#stx-pair? _tl143670144160_)) + (let ((_e143675144163_ (let () (declare (not safe)) - (gx#stx-e _tl143666144156_)))) - (let ((_tl143669144164_ + (gx#stx-e _tl143670144160_)))) + (let ((_tl143673144168_ (let () (declare (not safe)) - (##cdr _e143671144159_))) - (_hd143670144162_ + (##cdr _e143675144163_))) + (_hd143674144166_ (let () (declare (not safe)) - (##car _e143671144159_)))) + (##car _e143675144163_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143669144164_)) + (gx#stx-null? _tl143673144168_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143663144148_)) - (let ((__tmp152398 + (gx#stx-null? _tl143667144152_)) + (let ((__tmp152402 (let () (declare (not safe)) - (cons _hd143670144162_ - _xid143653144114_))) - (__tmp152397 + (cons _hd143674144166_ + _xid143657144118_))) + (__tmp152401 (let () (declare (not safe)) - (cons _hd143661144138_ - _id143654144116_)))) + (cons _hd143665144142_ + _id143658144120_)))) (declare (not safe)) - (_loop143649144109_ - _lp-tl143652144124_ - __tmp152398 - __tmp152397)) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)))) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)))) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)))) + (_loop143653144113_ + _lp-tl143656144128_ + __tmp152402 + __tmp152401)) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)))) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)))) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)))) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)))) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)))) - (let ((_id143656144169_ (reverse _id143654144116_)) - (_xid143655144167_ (reverse _xid143653144114_))) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)))) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)))) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)))) + (let ((_id143660144173_ (reverse _id143658144120_)) + (_xid143659144171_ (reverse _xid143657144118_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143643144101_)) - (let ((_e143674144172_ + (gx#stx-pair? _tl143647144105_)) + (let ((_e143678144176_ (let () (declare (not safe)) - (gx#stx-e _tl143643144101_)))) - (let ((_tl143672144177_ + (gx#stx-e _tl143647144105_)))) + (let ((_tl143676144181_ (let () (declare (not safe)) - (##cdr _e143674144172_))) - (_hd143673144175_ + (##cdr _e143678144176_))) + (_hd143677144179_ (let () (declare (not safe)) - (##car _e143674144172_)))) + (##car _e143678144176_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143672144177_)) - (___kont150301150302_ - _hd143673144175_ - _xid143655144167_ - _id143656144169_) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_)))) - (___match150436150437_ - _e143642144088_ - _hd143641144091_ - _tl143640144093_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_))))))) + (gx#stx-null? _tl143676144181_)) + (___kont150305150306_ + _hd143677144179_ + _xid143659144171_ + _id143660144173_) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_)))) + (___match150440150441_ + _e143646144092_ + _hd143645144095_ + _tl143644144097_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143649144109_ - _target143646144104_ + (_loop143653144113_ + _target143650144108_ '() '()))))) - (___match150358150359_ - (lambda (_e143597144280_ - _hd143596144283_ - _tl143595144285_ - _e143600144288_ - _hd143599144291_ - _tl143598144293_ - _e143603144296_ - _hd143602144299_ - _tl143601144301_ - _e143606144304_ - _hd143605144307_ - _tl143604144309_ - ___splice150297150298_ - _target143607144312_ - _tl143609144314_) - (letrec ((_loop143610144317_ - (lambda (_hd143608144320_ - _id143614144322_) + (___match150362150363_ + (lambda (_e143601144284_ + _hd143600144287_ + _tl143599144289_ + _e143604144292_ + _hd143603144295_ + _tl143602144297_ + _e143607144300_ + _hd143606144303_ + _tl143605144305_ + _e143610144308_ + _hd143609144311_ + _tl143608144313_ + ___splice150301150302_ + _target143611144316_ + _tl143613144318_) + (letrec ((_loop143614144321_ + (lambda (_hd143612144324_ + _id143618144326_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143608144320_)) - (let ((_e143611144325_ + _hd143612144324_)) + (let ((_e143615144329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd143608144320_)))) - (let ((_lp-tl143613144330_ + (gx#stx-e _hd143612144324_)))) + (let ((_lp-tl143617144334_ (let () (declare (not safe)) - (##cdr _e143611144325_))) - (_lp-hd143612144328_ + (##cdr _e143615144329_))) + (_lp-hd143616144332_ (let () (declare (not safe)) - (##car _e143611144325_)))) + (##car _e143615144329_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd143612144328_)) - (let ((_e143618144333_ + (gx#stx-pair? _lp-hd143616144332_)) + (let ((_e143622144337_ (let () (declare (not safe)) - (gx#stx-e _lp-hd143612144328_)))) - (let ((_tl143616144338_ + (gx#stx-e _lp-hd143616144332_)))) + (let ((_tl143620144342_ (let () (declare (not safe)) - (##cdr _e143618144333_))) - (_hd143617144336_ + (##cdr _e143622144337_))) + (_hd143621144340_ (let () (declare (not safe)) - (##car _e143618144333_)))) + (##car _e143622144337_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143617144336_)) + (gx#identifier? _hd143621144340_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143617144336_)) + (gx#stx-eq? '%#ref _hd143621144340_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143616144338_)) - (let ((_e143621144341_ + (gx#stx-pair? _tl143620144342_)) + (let ((_e143625144345_ (let () (declare (not safe)) (gx#stx-e - _tl143616144338_)))) - (let ((_tl143619144346_ + _tl143620144342_)))) + (let ((_tl143623144350_ (let () (declare (not safe)) - (##cdr _e143621144341_))) - (_hd143620144344_ + (##cdr _e143625144345_))) + (_hd143624144348_ (let () (declare (not safe)) - (##car _e143621144341_)))) + (##car _e143625144345_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143619144346_)) - (let ((__tmp152399 + _tl143623144350_)) + (let ((__tmp152403 (let () (declare (not safe)) - (cons _hd143620144344_ + (cons _hd143624144348_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id143614144322_)))) + _id143618144326_)))) (declare (not safe)) - (_loop143610144317_ _lp-tl143613144330_ __tmp152399)) + (_loop143614144321_ _lp-tl143617144334_ __tmp152403)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150315150316_)))) - (___kont150315150316_)) - (___kont150315150316_)) - (___kont150315150316_)))) - (___kont150315150316_)))) - (let ((_id143615144349_ (reverse _id143614144322_))) - (___kont150295150296_ - _id143615144349_ - _hd143605144307_)))))) + (___kont150319150320_)))) + (___kont150319150320_)) + (___kont150319150320_)) + (___kont150319150320_)))) + (___kont150319150320_)))) + (let ((_id143619144353_ (reverse _id143618144326_))) + (___kont150299150300_ + _id143619144353_ + _hd143609144311_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143610144317_ - _target143607144312_ + (_loop143614144321_ + _target143611144316_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150293150294_)) - (let ((_e143597144280_ + (gx#stx-pair? ___stx150297150298_)) + (let ((_e143601144284_ (let () (declare (not safe)) (gx#stx-e - ___stx150293150294_)))) - (let ((_tl143595144285_ + ___stx150297150298_)))) + (let ((_tl143599144289_ (let () (declare (not safe)) - (##cdr _e143597144280_))) - (_hd143596144283_ + (##cdr _e143601144284_))) + (_hd143600144287_ (let () (declare (not safe)) - (##car _e143597144280_)))) + (##car _e143601144284_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143596144283_)) + _hd143600144287_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd143596144283_)) + _hd143600144287_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143595144285_)) - (let ((_e143600144288_ + _tl143599144289_)) + (let ((_e143604144292_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl143595144285_)))) - (let ((_tl143598144293_ - (let () (declare (not safe)) (##cdr _e143600144288_))) - (_hd143599144291_ + (gx#stx-e _tl143599144289_)))) + (let ((_tl143602144297_ + (let () (declare (not safe)) (##cdr _e143604144292_))) + (_hd143603144295_ (let () (declare (not safe)) - (##car _e143600144288_)))) + (##car _e143604144292_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143599144291_)) - (let ((_e143603144296_ + (gx#stx-pair? _hd143603144295_)) + (let ((_e143607144300_ (let () (declare (not safe)) - (gx#stx-e _hd143599144291_)))) - (let ((_tl143601144301_ + (gx#stx-e _hd143603144295_)))) + (let ((_tl143605144305_ (let () (declare (not safe)) - (##cdr _e143603144296_))) - (_hd143602144299_ + (##cdr _e143607144300_))) + (_hd143606144303_ (let () (declare (not safe)) - (##car _e143603144296_)))) + (##car _e143607144300_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143602144299_)) + (gx#identifier? _hd143606144303_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143602144299_)) + (gx#stx-eq? '%#ref _hd143606144303_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143601144301_)) - (let ((_e143606144304_ + (gx#stx-pair? _tl143605144305_)) + (let ((_e143610144308_ (let () (declare (not safe)) - (gx#stx-e _tl143601144301_)))) - (let ((_tl143604144309_ + (gx#stx-e _tl143605144305_)))) + (let ((_tl143608144313_ (let () (declare (not safe)) - (##cdr _e143606144304_))) - (_hd143605144307_ + (##cdr _e143610144308_))) + (_hd143609144311_ (let () (declare (not safe)) - (##car _e143606144304_)))) + (##car _e143610144308_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143604144309_)) + _tl143608144313_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl143598144293_)) - (let ((___splice150297150298_ + _tl143602144297_)) + (let ((___splice150301150302_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl143598144293_ + _tl143602144297_ '0)))) - (let ((_tl143609144314_ + (let ((_tl143613144318_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice150297150298_ '1))) - (_target143607144312_ + (##vector-ref ___splice150301150302_ '1))) + (_target143611144316_ (let () (declare (not safe)) - (##vector-ref ___splice150297150298_ '0)))) + (##vector-ref ___splice150301150302_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143609144314_)) - (___match150358150359_ - _e143597144280_ - _hd143596144283_ - _tl143595144285_ - _e143600144288_ - _hd143599144291_ - _tl143598144293_ - _e143603144296_ - _hd143602144299_ - _tl143601144301_ - _e143606144304_ - _hd143605144307_ - _tl143604144309_ - ___splice150297150298_ - _target143607144312_ - _tl143609144314_) - (___kont150315150316_)))) + (gx#stx-null? _tl143613144318_)) + (___match150362150363_ + _e143601144284_ + _hd143600144287_ + _tl143599144289_ + _e143604144292_ + _hd143603144295_ + _tl143602144297_ + _e143607144300_ + _hd143606144303_ + _tl143605144305_ + _e143610144308_ + _hd143609144311_ + _tl143608144313_ + ___splice150301150302_ + _target143611144316_ + _tl143613144318_) + (___kont150319150320_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150315150316_)) - (___kont150315150316_)))) - (___kont150315150316_)) - (___kont150315150316_)) - (___kont150315150316_)))) - (___kont150315150316_)))) - (___kont150315150316_)) + (___kont150319150320_)) + (___kont150319150320_)))) + (___kont150319150320_)) + (___kont150319150320_)) + (___kont150319150320_)))) + (___kont150319150320_)))) + (___kont150319150320_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd143596144283_)) + _hd143600144287_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143595144285_)) - (let ((_e143630144226_ + _tl143599144289_)) + (let ((_e143634144230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl143595144285_)))) - (let ((_tl143628144231_ + (gx#stx-e _tl143599144289_)))) + (let ((_tl143632144235_ (let () (declare (not safe)) - (##cdr _e143630144226_))) - (_hd143629144229_ + (##cdr _e143634144230_))) + (_hd143633144233_ (let () (declare (not safe)) - (##car _e143630144226_)))) + (##car _e143634144230_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143628144231_)) - (let ((_e143633144234_ + (gx#stx-pair? _tl143632144235_)) + (let ((_e143637144238_ (let () (declare (not safe)) - (gx#stx-e _tl143628144231_)))) - (let ((_tl143631144239_ + (gx#stx-e _tl143632144235_)))) + (let ((_tl143635144243_ (let () (declare (not safe)) - (##cdr _e143633144234_))) - (_hd143632144237_ + (##cdr _e143637144238_))) + (_hd143636144241_ (let () (declare (not safe)) - (##car _e143633144234_)))) + (##car _e143637144238_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143631144239_)) - (let ((_e143636144242_ + (gx#stx-pair? _tl143635144243_)) + (let ((_e143640144246_ (let () (declare (not safe)) - (gx#stx-e _tl143631144239_)))) - (let ((_tl143634144247_ + (gx#stx-e _tl143635144243_)))) + (let ((_tl143638144251_ (let () (declare (not safe)) - (##cdr _e143636144242_))) - (_hd143635144245_ + (##cdr _e143640144246_))) + (_hd143639144249_ (let () (declare (not safe)) - (##car _e143636144242_)))) + (##car _e143640144246_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143634144247_)) - (___kont150299150300_ - _hd143635144245_ - _hd143632144237_ - _hd143629144229_) - (___kont150315150316_)))) - (___kont150315150316_)))) - (___kont150315150316_)))) - (___kont150315150316_)) + (gx#stx-null? _tl143638144251_)) + (___kont150303150304_ + _hd143639144249_ + _hd143636144241_ + _hd143633144233_) + (___kont150319150320_)))) + (___kont150319150320_)))) + (___kont150319150320_)))) + (___kont150319150320_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd143596144283_)) + (gx#stx-eq? '%#let-values _hd143600144287_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143595144285_)) - (let ((_e143645144096_ + (gx#stx-pair? _tl143599144289_)) + (let ((_e143649144100_ (let () (declare (not safe)) - (gx#stx-e _tl143595144285_)))) - (let ((_tl143643144101_ + (gx#stx-e _tl143599144289_)))) + (let ((_tl143647144105_ (let () (declare (not safe)) - (##cdr _e143645144096_))) - (_hd143644144099_ + (##cdr _e143649144100_))) + (_hd143648144103_ (let () (declare (not safe)) - (##car _e143645144096_)))) + (##car _e143649144100_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd143644144099_)) - (let ((___splice150303150304_ + (gx#stx-pair/null? _hd143648144103_)) + (let ((___splice150307150308_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd143644144099_ + _hd143648144103_ '0)))) - (let ((_tl143648144106_ + (let ((_tl143652144110_ (let () (declare (not safe)) (##vector-ref - ___splice150303150304_ + ___splice150307150308_ '1))) - (_target143646144104_ + (_target143650144108_ (let () (declare (not safe)) (##vector-ref - ___splice150303150304_ + ___splice150307150308_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143648144106_)) - (___match150412150413_ - _e143597144280_ - _hd143596144283_ - _tl143595144285_ - _e143645144096_ - _hd143644144099_ - _tl143643144101_ - ___splice150303150304_ - _target143646144104_ - _tl143648144106_) - (___kont150315150316_)))) - (___kont150315150316_)))) - (___kont150315150316_)) + (gx#stx-null? _tl143652144110_)) + (___match150416150417_ + _e143601144284_ + _hd143600144287_ + _tl143599144289_ + _e143649144100_ + _hd143648144103_ + _tl143647144105_ + ___splice150307150308_ + _target143650144108_ + _tl143652144110_) + (___kont150319150320_)))) + (___kont150319150320_)))) + (___kont150319150320_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd143596144283_)) + (gx#stx-eq? '%#letrec-values _hd143600144287_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143595144285_)) - (let ((_e143717143784_ + (gx#stx-pair? _tl143599144289_)) + (let ((_e143721143788_ (let () (declare (not safe)) - (gx#stx-e _tl143595144285_)))) - (let ((_tl143715143789_ + (gx#stx-e _tl143599144289_)))) + (let ((_tl143719143793_ (let () (declare (not safe)) - (##cdr _e143717143784_))) - (_hd143716143787_ + (##cdr _e143721143788_))) + (_hd143720143791_ (let () (declare (not safe)) - (##car _e143717143784_)))) + (##car _e143721143788_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143716143787_)) - (let ((_e143720143792_ + (gx#stx-pair? _hd143720143791_)) + (let ((_e143724143796_ (let () (declare (not safe)) - (gx#stx-e _hd143716143787_)))) - (let ((_tl143718143797_ + (gx#stx-e _hd143720143791_)))) + (let ((_tl143722143801_ (let () (declare (not safe)) - (##cdr _e143720143792_))) - (_hd143719143795_ + (##cdr _e143724143796_))) + (_hd143723143799_ (let () (declare (not safe)) - (##car _e143720143792_)))) + (##car _e143724143796_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143719143795_)) - (let ((_e143723143800_ + (gx#stx-pair? _hd143723143799_)) + (let ((_e143727143804_ (let () (declare (not safe)) (gx#stx-e - _hd143719143795_)))) - (let ((_tl143721143805_ + _hd143723143799_)))) + (let ((_tl143725143809_ (let () (declare (not safe)) - (##cdr _e143723143800_))) - (_hd143722143803_ + (##cdr _e143727143804_))) + (_hd143726143807_ (let () (declare (not safe)) - (##car _e143723143800_)))) + (##car _e143727143804_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143722143803_)) - (let ((_e143726143808_ + _hd143726143807_)) + (let ((_e143730143812_ (let () (declare (not safe)) (gx#stx-e - _hd143722143803_)))) - (let ((_tl143724143813_ + _hd143726143807_)))) + (let ((_tl143728143817_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143726143808_))) - (_hd143725143811_ - (let () (declare (not safe)) (##car _e143726143808_)))) + (##cdr _e143730143812_))) + (_hd143729143815_ + (let () (declare (not safe)) (##car _e143730143812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143724143813_)) + (gx#stx-null? _tl143728143817_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143721143805_)) - (let ((_e143729143816_ + (gx#stx-pair? _tl143725143809_)) + (let ((_e143733143820_ (let () (declare (not safe)) - (gx#stx-e _tl143721143805_)))) - (let ((_tl143727143821_ + (gx#stx-e _tl143725143809_)))) + (let ((_tl143731143825_ (let () (declare (not safe)) - (##cdr _e143729143816_))) - (_hd143728143819_ + (##cdr _e143733143820_))) + (_hd143732143823_ (let () (declare (not safe)) - (##car _e143729143816_)))) + (##car _e143733143820_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143728143819_)) - (let ((_e143732143824_ + (gx#stx-pair? _hd143732143823_)) + (let ((_e143736143828_ (let () (declare (not safe)) - (gx#stx-e _hd143728143819_)))) - (let ((_tl143730143829_ + (gx#stx-e _hd143732143823_)))) + (let ((_tl143734143833_ (let () (declare (not safe)) - (##cdr _e143732143824_))) - (_hd143731143827_ + (##cdr _e143736143828_))) + (_hd143735143831_ (let () (declare (not safe)) - (##car _e143732143824_)))) + (##car _e143736143828_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143731143827_)) + (gx#identifier? _hd143735143831_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd143731143827_)) + _hd143735143831_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143730143829_)) - (let ((_e143735143832_ + _tl143734143833_)) + (let ((_e143739143836_ (let () (declare (not safe)) (gx#stx-e - _tl143730143829_)))) - (let ((_tl143733143837_ + _tl143734143833_)))) + (let ((_tl143737143841_ (let () (declare (not safe)) - (##cdr _e143735143832_))) - (_hd143734143835_ + (##cdr _e143739143836_))) + (_hd143738143839_ (let () (declare (not safe)) - (##car _e143735143832_)))) + (##car _e143739143836_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd143734143835_)) - (let ((___splice150311150312_ + _hd143738143839_)) + (let ((___splice150315150316_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd143734143835_ '0)))) - (let ((_tl143738143842_ + (gx#syntax-split-splice _hd143738143839_ '0)))) + (let ((_tl143742143846_ (let () (declare (not safe)) - (##vector-ref ___splice150311150312_ '1))) - (_target143736143840_ + (##vector-ref ___splice150315150316_ '1))) + (_target143740143844_ (let () (declare (not safe)) - (##vector-ref ___splice150311150312_ '0)))) + (##vector-ref ___splice150315150316_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143738143842_)) - (___match150502150503_ - _e143597144280_ - _hd143596144283_ - _tl143595144285_ - _e143717143784_ - _hd143716143787_ - _tl143715143789_ - _e143720143792_ - _hd143719143795_ - _tl143718143797_ - _e143723143800_ - _hd143722143803_ - _tl143721143805_ - _e143726143808_ - _hd143725143811_ - _tl143724143813_ - _e143729143816_ - _hd143728143819_ - _tl143727143821_ - _e143732143824_ - _hd143731143827_ - _tl143730143829_ - _e143735143832_ - _hd143734143835_ - _tl143733143837_ - ___splice150311150312_ - _target143736143840_ - _tl143738143842_) - (___kont150315150316_)))) - (___kont150315150316_)))) + (gx#stx-null? _tl143742143846_)) + (___match150506150507_ + _e143601144284_ + _hd143600144287_ + _tl143599144289_ + _e143721143788_ + _hd143720143791_ + _tl143719143793_ + _e143724143796_ + _hd143723143799_ + _tl143722143801_ + _e143727143804_ + _hd143726143807_ + _tl143725143809_ + _e143730143812_ + _hd143729143815_ + _tl143728143817_ + _e143733143820_ + _hd143732143823_ + _tl143731143825_ + _e143736143828_ + _hd143735143831_ + _tl143734143833_ + _e143739143836_ + _hd143738143839_ + _tl143737143841_ + ___splice150315150316_ + _target143740143844_ + _tl143742143846_) + (___kont150319150320_)))) + (___kont150319150320_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150315150316_)) - (___kont150315150316_)) - (___kont150315150316_)))) - (___kont150315150316_)))) - (___kont150315150316_)) - (___kont150315150316_)))) + (___kont150319150320_)) + (___kont150319150320_)) + (___kont150319150320_)))) + (___kont150319150320_)))) + (___kont150319150320_)) + (___kont150319150320_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150315150316_)))) - (___kont150315150316_)))) - (___kont150315150316_)))) - (___kont150315150316_)) - (___kont150315150316_))))) + (___kont150319150320_)))) + (___kont150319150320_)))) + (___kont150319150320_)))) + (___kont150319150320_)) + (___kont150319150320_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150315150316_)))) - (___kont150315150316_)))))))) + (___kont150319150320_)))) + (___kont150319150320_)))))))) (declare (not safe)) - (_do-assert141511_ __tmp152400 __tmp152358)))) - (_optimize-f__0__148980148981_ - (lambda (_expr144489_) - (let ((_test144491_ '#f)) + (_do-assert141515_ __tmp152404 __tmp152362)))) + (_optimize-f__0__148984148985_ + (lambda (_expr144493_) + (let ((_test144495_ '#f)) (declare (not safe)) - (_optimize-f__148978148979_ - _expr144489_ - _test144491_)))) - (_optimize-f141524_ - (lambda _g152403_ - (let ((_g152402_ + (_optimize-f__148982148983_ + _expr144493_ + _test144495_)))) + (_optimize-f141528_ + (lambda _g152407_ + (let ((_g152406_ (let () (declare (not safe)) - (##length _g152403_)))) - (cond ((let () (declare (not safe)) (##fx= _g152402_ 1)) - (apply (lambda (_expr144489_) + (##length _g152407_)))) + (cond ((let () (declare (not safe)) (##fx= _g152406_ 1)) + (apply (lambda (_expr144493_) (let () (declare (not safe)) - (_optimize-f__0__148980148981_ - _expr144489_))) - _g152403_)) - ((let () (declare (not safe)) (##fx= _g152402_ 2)) - (apply (lambda (_expr144493_ _test144494_) + (_optimize-f__0__148984148985_ + _expr144493_))) + _g152407_)) + ((let () (declare (not safe)) (##fx= _g152406_ 2)) + (apply (lambda (_expr144497_ _test144498_) (let () (declare (not safe)) - (_optimize-f__148978148979_ - _expr144493_ - _test144494_))) - _g152403_)) + (_optimize-f__148982148983_ + _expr144497_ + _test144498_))) + _g152407_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g152403_)))))) - (_assert-e141525_ - (lambda (_expr142523_) - (let* ((_sexpr142525_ + _g152407_)))))) + (_assert-e141529_ + (lambda (_expr142527_) + (let* ((_sexpr142529_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr142523_))) - (_$e142527_ - (assoc _sexpr142525_ _env-assert141507_))) - (if _$e142527_ - (cdr _$e142527_) - (let _assert142530_ ((_expr142532_ _expr142523_)) - (let* ((___stx150599150600_ _expr142532_) - (_g142540142719_ + (gxc#apply-generate-runtime-repr _expr142527_))) + (_$e142531_ + (assoc _sexpr142529_ _env-assert141511_))) + (if _$e142531_ + (cdr _$e142531_) + (let _assert142534_ ((_expr142536_ _expr142527_)) + (let* ((___stx150603150604_ _expr142536_) + (_g142544142723_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150599150600_))))) - (let ((___kont150601150602_ - (lambda (_L143550_ _L143551_) - (let ((_$e143573_ + ___stx150603150604_))))) + (let ((___kont150605150606_ + (lambda (_L143554_ _L143555_) + (let ((_$e143577_ (let () (declare (not safe)) - (_predicate-type141512_ - _L143551_)))) - (if _$e143573_ - ((lambda (_t143576_) + (_predicate-type141516_ + _L143555_)))) + (if _$e143577_ + ((lambda (_t143580_) (let () (declare (not safe)) - (_assert-type141526_ - _L143550_ - _t143576_))) - _$e143573_) + (_assert-type141530_ + _L143554_ + _t143580_))) + _$e143577_) '#!void)))) - (___kont150603150604_ - (lambda (_L143243_ _L143244_ _L143245_) - (let ((_$e143270_ + (___kont150607150608_ + (lambda (_L143247_ _L143248_ _L143249_) + (let ((_$e143274_ (let () (declare (not safe)) (gxc#identifier-symbol - _L143245_)))) + _L143249_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e143270_)) + (eq? '##fx= _$e143274_)) (let () (declare (not safe)) - (eq? 'fx= _$e143270_))) - (let* ((___stx150505150506_ - _L143244_) - (_g143277143306_ + (eq? 'fx= _$e143274_))) + (let* ((___stx150509150510_ + _L143248_) + (_g143281143310_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150505150506_))))) - (let ((___kont150507150508_ - (lambda (_L143374_ - _L143375_) - (let ((_$e143400_ + ___stx150509150510_))))) + (let ((___kont150511150512_ + (lambda (_L143378_ + _L143379_) + (let ((_$e143404_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol141514_ _L143375_)))) - (if _$e143400_ - ((lambda (_sym143403_) - (let ((__tmp152406 + (_countf-symbol141518_ _L143379_)))) + (if _$e143404_ + ((lambda (_sym143407_) + (let ((__tmp152410 (let () (declare (not safe)) - (gx#stx-e _L143243_)))) + (gx#stx-e _L143247_)))) (declare (not safe)) - (_assert-count141527_ - _L143374_ - _sym143403_ - __tmp152406))) - _$e143400_) + (_assert-count141531_ + _L143378_ + _sym143407_ + __tmp152410))) + _$e143404_) '#!void)))) - (___kont150509150510_ (lambda () '#!void))) + (___kont150513150514_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx150505150506_)) - (let ((_e143283143318_ + ___stx150509150510_)) + (let ((_e143287143322_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx150505150506_)))) - (let ((_tl143281143323_ - (let () (declare (not safe)) (##cdr _e143283143318_))) - (_hd143282143321_ - (let () (declare (not safe)) (##car _e143283143318_)))) + (gx#stx-e ___stx150509150510_)))) + (let ((_tl143285143327_ + (let () (declare (not safe)) (##cdr _e143287143322_))) + (_hd143286143325_ + (let () (declare (not safe)) (##car _e143287143322_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143282143321_)) + (gx#identifier? _hd143286143325_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd143282143321_)) + (gx#stx-eq? '%#call _hd143286143325_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143281143323_)) - (let ((_e143286143326_ + (gx#stx-pair? _tl143285143327_)) + (let ((_e143290143330_ (let () (declare (not safe)) - (gx#stx-e _tl143281143323_)))) - (let ((_tl143284143331_ + (gx#stx-e _tl143285143327_)))) + (let ((_tl143288143335_ (let () (declare (not safe)) - (##cdr _e143286143326_))) - (_hd143285143329_ + (##cdr _e143290143330_))) + (_hd143289143333_ (let () (declare (not safe)) - (##car _e143286143326_)))) + (##car _e143290143330_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143285143329_)) - (let ((_e143289143334_ + (gx#stx-pair? _hd143289143333_)) + (let ((_e143293143338_ (let () (declare (not safe)) - (gx#stx-e _hd143285143329_)))) - (let ((_tl143287143339_ + (gx#stx-e _hd143289143333_)))) + (let ((_tl143291143343_ (let () (declare (not safe)) - (##cdr _e143289143334_))) - (_hd143288143337_ + (##cdr _e143293143338_))) + (_hd143292143341_ (let () (declare (not safe)) - (##car _e143289143334_)))) + (##car _e143293143338_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143288143337_)) + _hd143292143341_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd143288143337_)) + _hd143292143341_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143287143339_)) - (let ((_e143292143342_ + _tl143291143343_)) + (let ((_e143296143346_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl143287143339_)))) - (let ((_tl143290143347_ - (let () (declare (not safe)) (##cdr _e143292143342_))) - (_hd143291143345_ - (let () (declare (not safe)) (##car _e143292143342_)))) + (gx#stx-e _tl143291143343_)))) + (let ((_tl143294143351_ + (let () (declare (not safe)) (##cdr _e143296143346_))) + (_hd143295143349_ + (let () (declare (not safe)) (##car _e143296143346_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143290143347_)) + (gx#stx-null? _tl143294143351_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143284143331_)) - (let ((_e143295143350_ + (gx#stx-pair? _tl143288143335_)) + (let ((_e143299143354_ (let () (declare (not safe)) - (gx#stx-e _tl143284143331_)))) - (let ((_tl143293143355_ + (gx#stx-e _tl143288143335_)))) + (let ((_tl143297143359_ (let () (declare (not safe)) - (##cdr _e143295143350_))) - (_hd143294143353_ + (##cdr _e143299143354_))) + (_hd143298143357_ (let () (declare (not safe)) - (##car _e143295143350_)))) + (##car _e143299143354_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143294143353_)) - (let ((_e143298143358_ + (gx#stx-pair? _hd143298143357_)) + (let ((_e143302143362_ (let () (declare (not safe)) - (gx#stx-e _hd143294143353_)))) - (let ((_tl143296143363_ + (gx#stx-e _hd143298143357_)))) + (let ((_tl143300143367_ (let () (declare (not safe)) - (##cdr _e143298143358_))) - (_hd143297143361_ + (##cdr _e143302143362_))) + (_hd143301143365_ (let () (declare (not safe)) - (##car _e143298143358_)))) + (##car _e143302143362_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143297143361_)) + (gx#identifier? _hd143301143365_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd143297143361_)) + _hd143301143365_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143296143363_)) - (let ((_e143301143366_ + _tl143300143367_)) + (let ((_e143305143370_ (let () (declare (not safe)) (gx#stx-e - _tl143296143363_)))) - (let ((_tl143299143371_ + _tl143300143367_)))) + (let ((_tl143303143375_ (let () (declare (not safe)) - (##cdr _e143301143366_))) - (_hd143300143369_ + (##cdr _e143305143370_))) + (_hd143304143373_ (let () (declare (not safe)) - (##car _e143301143366_)))) + (##car _e143305143370_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143299143371_)) + _tl143303143375_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143293143355_)) - (___kont150507150508_ _hd143300143369_ _hd143291143345_) - (___kont150509150510_)) - (___kont150509150510_)))) + (gx#stx-null? _tl143297143359_)) + (___kont150511150512_ _hd143304143373_ _hd143295143349_) + (___kont150513150514_)) + (___kont150513150514_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150509150510_)) - (___kont150509150510_)) - (___kont150509150510_)))) - (___kont150509150510_)))) - (___kont150509150510_)) - (___kont150509150510_)))) - (___kont150509150510_)) + (___kont150513150514_)) + (___kont150513150514_)) + (___kont150513150514_)))) + (___kont150513150514_)))) + (___kont150513150514_)) + (___kont150513150514_)))) + (___kont150513150514_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150509150510_)) - (___kont150509150510_)))) - (___kont150509150510_)))) - (___kont150509150510_)) - (___kont150509150510_)) - (___kont150509150510_)))) - (___kont150509150510_)))) + (___kont150513150514_)) + (___kont150513150514_)))) + (___kont150513150514_)))) + (___kont150513150514_)) + (___kont150513150514_)) + (___kont150513150514_)))) + (___kont150513150514_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e143270_)) + _$e143274_)) (let () (declare (not safe)) - (eq? 'eq? _$e143270_)) + (eq? 'eq? _$e143274_)) (let () (declare (not safe)) (eq? '##eqv? - _$e143270_)) + _$e143274_)) (let () (declare (not safe)) - (eq? 'eqv? _$e143270_)) + (eq? 'eqv? _$e143274_)) (let () (declare (not safe)) (eq? '##equal? - _$e143270_)) + _$e143274_)) (let () (declare (not safe)) (eq? 'equal? - _$e143270_)) + _$e143274_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143270_)) + _$e143274_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e143270_))) - ((lambda (_sym143429_) - (let* ((___stx150573150574_ - _L143244_) - (_g143432143445_ + _$e143274_))) + ((lambda (_sym143433_) + (let* ((___stx150577150578_ + _L143248_) + (_g143436143449_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9873,1467 +9873,1467 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150573150574_))))) - (let ((___kont150575150576_ - (lambda (_L143473_) - (let ((__tmp152405 + ___stx150577150578_))))) + (let ((___kont150579150580_ + (lambda (_L143477_) + (let ((__tmp152409 (let () (declare (not safe)) - (_eqf-symbol141515_ _sym143429_))) - (__tmp152404 + (_eqf-symbol141519_ _sym143433_))) + (__tmp152408 (let () (declare (not safe)) - (gx#stx-e _L143243_)))) + (gx#stx-e _L143247_)))) (declare (not safe)) - (_assert-eqf141528_ - _L143473_ - __tmp152405 - __tmp152404)))) - (___kont150577150578_ (lambda () '#!void))) + (_assert-eqf141532_ + _L143477_ + __tmp152409 + __tmp152408)))) + (___kont150581150582_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150573150574_)) - (let ((_e143437143457_ + (gx#stx-pair? ___stx150577150578_)) + (let ((_e143441143461_ (let () (declare (not safe)) - (gx#stx-e ___stx150573150574_)))) - (let ((_tl143435143462_ + (gx#stx-e ___stx150577150578_)))) + (let ((_tl143439143466_ (let () (declare (not safe)) - (##cdr _e143437143457_))) - (_hd143436143460_ + (##cdr _e143441143461_))) + (_hd143440143464_ (let () (declare (not safe)) - (##car _e143437143457_)))) + (##car _e143441143461_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143436143460_)) + (gx#identifier? _hd143440143464_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143436143460_)) + (gx#stx-eq? '%#ref _hd143440143464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143435143462_)) - (let ((_e143440143465_ + (gx#stx-pair? _tl143439143466_)) + (let ((_e143444143469_ (let () (declare (not safe)) - (gx#stx-e _tl143435143462_)))) - (let ((_tl143438143470_ + (gx#stx-e _tl143439143466_)))) + (let ((_tl143442143474_ (let () (declare (not safe)) - (##cdr _e143440143465_))) - (_hd143439143468_ + (##cdr _e143444143469_))) + (_hd143443143472_ (let () (declare (not safe)) - (##car _e143440143465_)))) + (##car _e143444143469_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143438143470_)) - (___kont150575150576_ - _hd143439143468_) - (___kont150577150578_)))) - (___kont150577150578_)) - (___kont150577150578_)) - (___kont150577150578_)))) - (___kont150577150578_))))) + (gx#stx-null? _tl143442143474_)) + (___kont150579150580_ + _hd143443143472_) + (___kont150581150582_)))) + (___kont150581150582_)) + (___kont150581150582_)) + (___kont150581150582_)))) + (___kont150581150582_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e143270_) + _$e143274_) '#!void))))) - (___kont150605150606_ - (lambda (_L143147_ _L143148_ _L143149_) - (let ((__tmp152407 - (let ((__tmp152417 + (___kont150609150610_ + (lambda (_L143151_ _L143152_ _L143153_) + (let ((__tmp152411 + (let ((__tmp152421 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152408 - (let ((__tmp152414 - (let ((__tmp152416 + (__tmp152412 + (let ((__tmp152418 + (let ((__tmp152420 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152415 + (__tmp152419 (let () (declare (not safe)) - (cons _L143149_ '())))) + (cons _L143153_ '())))) (declare (not safe)) - (cons __tmp152416 __tmp152415))) - (__tmp152409 - (let ((__tmp152410 - (let ((__tmp152411 - (let ((__tmp152413 + (cons __tmp152420 __tmp152419))) + (__tmp152413 + (let ((__tmp152414 + (let ((__tmp152415 + (let ((__tmp152417 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp152412 + (__tmp152416 (let () (declare (not safe)) - (cons _L143148_ '())))) + (cons _L143152_ '())))) (declare (not safe)) - (cons __tmp152413 __tmp152412)))) + (cons __tmp152417 __tmp152416)))) (declare (not safe)) - (cons __tmp152411 '())))) + (cons __tmp152415 '())))) (declare (not safe)) - (cons _L143147_ __tmp152410)))) + (cons _L143151_ __tmp152414)))) (declare (not safe)) - (cons __tmp152414 __tmp152409)))) + (cons __tmp152418 __tmp152413)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152417 - __tmp152408)))) + (cons __tmp152421 + __tmp152412)))) (declare (not safe)) - (_assert142530_ __tmp152407)))) - (___kont150607150608_ - (lambda (_L143039_ _L143040_ _L143041_) - (let ((_$e143070_ + (_assert142534_ __tmp152411)))) + (___kont150611150612_ + (lambda (_L143043_ _L143044_ _L143045_) + (let ((_$e143074_ (let () (declare (not safe)) (gxc#identifier-symbol - _L143041_)))) + _L143045_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143070_)) + _$e143074_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e143070_))) - ((lambda (_sym143076_) - (let ((__tmp152418 + _$e143074_))) + ((lambda (_sym143080_) + (let ((__tmp152422 (let () (declare (not safe)) - (_eqf-symbol141515_ - _sym143076_)))) + (_eqf-symbol141519_ + _sym143080_)))) (declare (not safe)) - (_assert-eqf141528_ - _L143040_ - __tmp152418 - _L143039_))) - _$e143070_) + (_assert-eqf141532_ + _L143044_ + __tmp152422 + _L143043_))) + _$e143074_) '#!void)))) - (___kont150609150610_ - (lambda (_L142923_ _L142924_ _L142925_) - (let ((__tmp152419 - (let ((__tmp152432 + (___kont150613150614_ + (lambda (_L142927_ _L142928_ _L142929_) + (let ((__tmp152423 + (let ((__tmp152436 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152420 - (let ((__tmp152429 - (let ((__tmp152431 + (__tmp152424 + (let ((__tmp152433 + (let ((__tmp152435 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152430 + (__tmp152434 (let () (declare (not safe)) - (cons _L142925_ '())))) + (cons _L142929_ '())))) (declare (not safe)) - (cons __tmp152431 __tmp152430))) - (__tmp152421 - (let ((__tmp152426 - (let ((__tmp152428 + (cons __tmp152435 __tmp152434))) + (__tmp152425 + (let ((__tmp152430 + (let ((__tmp152432 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152427 + (__tmp152431 (let () (declare (not safe)) - (cons _L142923_ '())))) + (cons _L142927_ '())))) (declare (not safe)) - (cons __tmp152428 __tmp152427))) - (__tmp152422 - (let ((__tmp152423 - (let ((__tmp152425 + (cons __tmp152432 __tmp152431))) + (__tmp152426 + (let ((__tmp152427 + (let ((__tmp152429 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp152424 + (__tmp152428 (let () (declare (not safe)) - (cons _L142924_ '())))) + (cons _L142928_ '())))) (declare (not safe)) - (cons __tmp152425 __tmp152424)))) + (cons __tmp152429 __tmp152428)))) (declare (not safe)) - (cons __tmp152423 '())))) + (cons __tmp152427 '())))) (declare (not safe)) - (cons __tmp152426 __tmp152422)))) + (cons __tmp152430 __tmp152426)))) (declare (not safe)) - (cons __tmp152429 __tmp152421)))) + (cons __tmp152433 __tmp152425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152432 - __tmp152420)))) + (cons __tmp152436 + __tmp152424)))) (declare (not safe)) - (_assert142530_ __tmp152419)))) - (___kont150611150612_ - (lambda (_L142803_ _L142804_ _L142805_) - (let ((__tmp152433 + (_assert142534_ __tmp152423)))) + (___kont150615150616_ + (lambda (_L142807_ _L142808_ _L142809_) + (let ((__tmp152437 (let () (declare (not safe)) (gxc#apply-expression-subst - _L142804_ + _L142808_ 'id: - _L142805_ + _L142809_ 'new-id: - _L142803_)))) + _L142807_)))) (declare (not safe)) - (_assert142530_ __tmp152433)))) - (___kont150613150614_ + (_assert142534_ __tmp152437)))) + (___kont150617150618_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150599150600_)) - (let ((_e142546143494_ + (gx#stx-pair? ___stx150603150604_)) + (let ((_e142550143498_ (let () (declare (not safe)) - (gx#stx-e ___stx150599150600_)))) - (let ((_tl142544143499_ + (gx#stx-e ___stx150603150604_)))) + (let ((_tl142548143503_ (let () (declare (not safe)) - (##cdr _e142546143494_))) - (_hd142545143497_ + (##cdr _e142550143498_))) + (_hd142549143501_ (let () (declare (not safe)) - (##car _e142546143494_)))) + (##car _e142550143498_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142545143497_)) + _hd142549143501_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd142545143497_)) + _hd142549143501_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142544143499_)) - (let ((_e142549143502_ + _tl142548143503_)) + (let ((_e142553143506_ (let () (declare (not safe)) (gx#stx-e - _tl142544143499_)))) - (let ((_tl142547143507_ + _tl142548143503_)))) + (let ((_tl142551143511_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e142549143502_))) - (_hd142548143505_ - (let () (declare (not safe)) (##car _e142549143502_)))) + (##cdr _e142553143506_))) + (_hd142552143509_ + (let () (declare (not safe)) (##car _e142553143506_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142548143505_)) - (let ((_e142552143510_ + (gx#stx-pair? _hd142552143509_)) + (let ((_e142556143514_ (let () (declare (not safe)) - (gx#stx-e _hd142548143505_)))) - (let ((_tl142550143515_ + (gx#stx-e _hd142552143509_)))) + (let ((_tl142554143519_ (let () (declare (not safe)) - (##cdr _e142552143510_))) - (_hd142551143513_ + (##cdr _e142556143514_))) + (_hd142555143517_ (let () (declare (not safe)) - (##car _e142552143510_)))) + (##car _e142556143514_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142551143513_)) + (gx#identifier? _hd142555143517_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142551143513_)) + (gx#stx-eq? '%#ref _hd142555143517_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142550143515_)) - (let ((_e142555143518_ + (gx#stx-pair? _tl142554143519_)) + (let ((_e142559143522_ (let () (declare (not safe)) - (gx#stx-e _tl142550143515_)))) - (let ((_tl142553143523_ + (gx#stx-e _tl142554143519_)))) + (let ((_tl142557143527_ (let () (declare (not safe)) - (##cdr _e142555143518_))) - (_hd142554143521_ + (##cdr _e142559143522_))) + (_hd142558143525_ (let () (declare (not safe)) - (##car _e142555143518_)))) + (##car _e142559143522_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142553143523_)) + (gx#stx-null? _tl142557143527_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142547143507_)) - (let ((_e142558143526_ + _tl142551143511_)) + (let ((_e142562143530_ (let () (declare (not safe)) (gx#stx-e - _tl142547143507_)))) - (let ((_tl142556143531_ + _tl142551143511_)))) + (let ((_tl142560143535_ (let () (declare (not safe)) - (##cdr _e142558143526_))) - (_hd142557143529_ + (##cdr _e142562143530_))) + (_hd142561143533_ (let () (declare (not safe)) - (##car _e142558143526_)))) + (##car _e142562143530_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142557143529_)) - (let ((_e142561143534_ + _hd142561143533_)) + (let ((_e142565143538_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd142557143529_)))) - (let ((_tl142559143539_ + (gx#stx-e _hd142561143533_)))) + (let ((_tl142563143543_ (let () (declare (not safe)) - (##cdr _e142561143534_))) - (_hd142560143537_ + (##cdr _e142565143538_))) + (_hd142564143541_ (let () (declare (not safe)) - (##car _e142561143534_)))) + (##car _e142565143538_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142560143537_)) + (gx#identifier? _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142560143537_)) + (gx#stx-eq? '%#ref _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142564143542_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142568143546_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142562143547_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142566143551_ (let () (declare (not safe)) - (##cdr _e142564143542_))) - (_hd142563143545_ + (##cdr _e142568143546_))) + (_hd142567143549_ (let () (declare (not safe)) - (##car _e142564143542_)))) + (##car _e142568143546_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142562143547_)) + (gx#stx-null? _tl142566143551_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142556143531_)) - (___kont150601150602_ - _hd142563143545_ - _hd142554143521_) + (gx#stx-null? _tl142560143535_)) + (___kont150605150606_ + _hd142567143549_ + _hd142558143525_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142556143531_)) - (let ((_e142585143219_ + _tl142560143535_)) + (let ((_e142589143223_ (let () (declare (not safe)) (gx#stx-e - _tl142556143531_)))) - (let ((_tl142583143224_ + _tl142560143535_)))) + (let ((_tl142587143228_ (let () (declare (not safe)) - (##cdr _e142585143219_))) - (_hd142584143222_ + (##cdr _e142589143223_))) + (_hd142588143226_ (let () (declare (not safe)) - (##car _e142585143219_)))) + (##car _e142589143223_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142584143222_)) - (let ((_e142588143227_ + _hd142588143226_)) + (let ((_e142592143231_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd142584143222_)))) - (let ((_tl142586143232_ + (gx#stx-e _hd142588143226_)))) + (let ((_tl142590143236_ (let () (declare (not safe)) - (##cdr _e142588143227_))) - (_hd142587143230_ + (##cdr _e142592143231_))) + (_hd142591143234_ (let () (declare (not safe)) - (##car _e142588143227_)))) + (##car _e142592143231_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142587143230_)) + (gx#identifier? _hd142591143234_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142587143230_)) + (gx#stx-eq? '%#quote _hd142591143234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142586143232_)) - (let ((_e142591143235_ + (gx#stx-pair? _tl142590143236_)) + (let ((_e142595143239_ (let () (declare (not safe)) - (gx#stx-e _tl142586143232_)))) - (let ((_tl142589143240_ + (gx#stx-e _tl142590143236_)))) + (let ((_tl142593143244_ (let () (declare (not safe)) - (##cdr _e142591143235_))) - (_hd142590143238_ + (##cdr _e142595143239_))) + (_hd142594143242_ (let () (declare (not safe)) - (##car _e142591143235_)))) + (##car _e142595143239_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142589143240_)) + (gx#stx-null? _tl142593143244_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150603150604_ - _hd142590143238_ - _hd142557143529_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) + (gx#stx-null? _tl142587143228_)) + (___kont150607150608_ + _hd142594143242_ + _hd142561143533_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142587143230_)) + _hd142591143234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142586143232_)) - (let ((_e142651143031_ + (gx#stx-pair? _tl142590143236_)) + (let ((_e142655143035_ (let () (declare (not safe)) - (gx#stx-e _tl142586143232_)))) - (let ((_tl142649143036_ + (gx#stx-e _tl142590143236_)))) + (let ((_tl142653143040_ (let () (declare (not safe)) - (##cdr _e142651143031_))) - (_hd142650143034_ + (##cdr _e142655143035_))) + (_hd142654143038_ (let () (declare (not safe)) - (##car _e142651143031_)))) + (##car _e142655143035_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142649143036_)) + (gx#stx-null? _tl142653143040_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl142583143224_)) - (___kont150607150608_ - _hd142650143034_ - _hd142563143545_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_))) - (___kont150613150614_)))) - (___kont150613150614_)))) + _tl142587143228_)) + (___kont150611150612_ + _hd142654143038_ + _hd142567143549_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_))) + (___kont150617150618_)))) + (___kont150617150618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_))) + (___kont150617150618_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142556143531_)) - (let ((_e142585143219_ + (gx#stx-pair? _tl142560143535_)) + (let ((_e142589143223_ (let () (declare (not safe)) (gx#stx-e - _tl142556143531_)))) - (let ((_tl142583143224_ + _tl142560143535_)))) + (let ((_tl142587143228_ (let () (declare (not safe)) - (##cdr _e142585143219_))) - (_hd142584143222_ + (##cdr _e142589143223_))) + (_hd142588143226_ (let () (declare (not safe)) - (##car _e142585143219_)))) + (##car _e142589143223_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142584143222_)) - (let ((_e142588143227_ + _hd142588143226_)) + (let ((_e142592143231_ (let () (declare (not safe)) (gx#stx-e - _hd142584143222_)))) - (let ((_tl142586143232_ + _hd142588143226_)))) + (let ((_tl142590143236_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e142588143227_))) - (_hd142587143230_ - (let () (declare (not safe)) (##car _e142588143227_)))) + (##cdr _e142592143231_))) + (_hd142591143234_ + (let () (declare (not safe)) (##car _e142592143231_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142587143230_)) + (gx#identifier? _hd142591143234_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142587143230_)) + (gx#stx-eq? '%#quote _hd142591143234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142586143232_)) - (let ((_e142591143235_ + (gx#stx-pair? _tl142590143236_)) + (let ((_e142595143239_ (let () (declare (not safe)) - (gx#stx-e _tl142586143232_)))) - (let ((_tl142589143240_ + (gx#stx-e _tl142590143236_)))) + (let ((_tl142593143244_ (let () (declare (not safe)) - (##cdr _e142591143235_))) - (_hd142590143238_ + (##cdr _e142595143239_))) + (_hd142594143242_ (let () (declare (not safe)) - (##car _e142591143235_)))) + (##car _e142595143239_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142589143240_)) + (gx#stx-null? _tl142593143244_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150603150604_ - _hd142590143238_ - _hd142557143529_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_)) - (___kont150613150614_)))) + (gx#stx-null? _tl142587143228_)) + (___kont150607150608_ + _hd142594143242_ + _hd142561143533_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_)) + (___kont150617150618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)))) - (___kont150613150614_))))) + (___kont150617150618_)))) + (___kont150617150618_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142556143531_)) - (let ((_e142585143219_ + (gx#stx-pair? _tl142560143535_)) + (let ((_e142589143223_ (let () (declare (not safe)) - (gx#stx-e _tl142556143531_)))) - (let ((_tl142583143224_ + (gx#stx-e _tl142560143535_)))) + (let ((_tl142587143228_ (let () (declare (not safe)) - (##cdr _e142585143219_))) - (_hd142584143222_ + (##cdr _e142589143223_))) + (_hd142588143226_ (let () (declare (not safe)) - (##car _e142585143219_)))) + (##car _e142589143223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142584143222_)) - (let ((_e142588143227_ + (gx#stx-pair? _hd142588143226_)) + (let ((_e142592143231_ (let () (declare (not safe)) (gx#stx-e - _hd142584143222_)))) - (let ((_tl142586143232_ + _hd142588143226_)))) + (let ((_tl142590143236_ (let () (declare (not safe)) - (##cdr _e142588143227_))) - (_hd142587143230_ + (##cdr _e142592143231_))) + (_hd142591143234_ (let () (declare (not safe)) - (##car _e142588143227_)))) + (##car _e142592143231_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142587143230_)) + _hd142591143234_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142587143230_)) + _hd142591143234_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl142586143232_)) - (let ((_e142591143235_ + (gx#stx-pair? _tl142590143236_)) + (let ((_e142595143239_ (let () (declare (not safe)) - (gx#stx-e _tl142586143232_)))) - (let ((_tl142589143240_ + (gx#stx-e _tl142590143236_)))) + (let ((_tl142593143244_ (let () (declare (not safe)) - (##cdr _e142591143235_))) - (_hd142590143238_ + (##cdr _e142595143239_))) + (_hd142594143242_ (let () (declare (not safe)) - (##car _e142591143235_)))) + (##car _e142595143239_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142589143240_)) + (gx#stx-null? _tl142593143244_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150603150604_ - _hd142590143238_ - _hd142557143529_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_)) + (gx#stx-null? _tl142587143228_)) + (___kont150607150608_ + _hd142594143242_ + _hd142561143533_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)))) - (___kont150613150614_)))) - (___kont150613150614_))) + (___kont150617150618_)))) + (___kont150617150618_)))) + (___kont150617150618_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142556143531_)) - (let ((_e142585143219_ + (gx#stx-pair? _tl142560143535_)) + (let ((_e142589143223_ (let () (declare (not safe)) - (gx#stx-e _tl142556143531_)))) - (let ((_tl142583143224_ + (gx#stx-e _tl142560143535_)))) + (let ((_tl142587143228_ (let () (declare (not safe)) - (##cdr _e142585143219_))) - (_hd142584143222_ + (##cdr _e142589143223_))) + (_hd142588143226_ (let () (declare (not safe)) - (##car _e142585143219_)))) + (##car _e142589143223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142584143222_)) - (let ((_e142588143227_ + (gx#stx-pair? _hd142588143226_)) + (let ((_e142592143231_ (let () (declare (not safe)) (gx#stx-e - _hd142584143222_)))) - (let ((_tl142586143232_ + _hd142588143226_)))) + (let ((_tl142590143236_ (let () (declare (not safe)) - (##cdr _e142588143227_))) - (_hd142587143230_ + (##cdr _e142592143231_))) + (_hd142591143234_ (let () (declare (not safe)) - (##car _e142588143227_)))) + (##car _e142592143231_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142587143230_)) + _hd142591143234_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142587143230_)) + _hd142591143234_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142586143232_)) - (let ((_e142591143235_ + _tl142590143236_)) + (let ((_e142595143239_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142586143232_)))) - (let ((_tl142589143240_ + (gx#stx-e _tl142590143236_)))) + (let ((_tl142593143244_ (let () (declare (not safe)) - (##cdr _e142591143235_))) - (_hd142590143238_ + (##cdr _e142595143239_))) + (_hd142594143242_ (let () (declare (not safe)) - (##car _e142591143235_)))) + (##car _e142595143239_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142589143240_)) + (gx#stx-null? _tl142593143244_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150603150604_ - _hd142590143238_ - _hd142557143529_ - _hd142554143521_) + (gx#stx-null? _tl142587143228_)) + (___kont150607150608_ + _hd142594143242_ + _hd142561143533_ + _hd142558143525_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142560143537_)) + (gx#stx-eq? '%#quote _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142615143131_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142619143135_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142613143136_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142617143140_ (let () (declare (not safe)) - (##cdr _e142615143131_))) - (_hd142614143134_ + (##cdr _e142619143135_))) + (_hd142618143138_ (let () (declare (not safe)) - (##car _e142615143131_)))) - (___kont150613150614_))) - (___kont150613150614_)) + (##car _e142619143135_)))) + (___kont150617150618_))) + (___kont150617150618_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142560143537_)) + _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142675142891_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142679142895_ (let () (declare (not safe)) (gx#stx-e - _tl142559143539_)))) - (let ((_tl142673142896_ + _tl142563143543_)))) + (let ((_tl142677142900_ (let () (declare (not safe)) - (##cdr _e142675142891_))) - (_hd142674142894_ + (##cdr _e142679142895_))) + (_hd142678142898_ (let () (declare (not safe)) - (##car _e142675142891_)))) - (___kont150613150614_))) - (___kont150613150614_)) - (___kont150613150614_)))) + (##car _e142679142895_)))) + (___kont150617150618_))) + (___kont150617150618_)) + (___kont150617150618_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142560143537_)) + (gx#stx-eq? '%#quote _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142615143131_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142619143135_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142613143136_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142617143140_ (let () (declare (not safe)) - (##cdr _e142615143131_))) - (_hd142614143134_ + (##cdr _e142619143135_))) + (_hd142618143138_ (let () (declare (not safe)) - (##car _e142615143131_)))) + (##car _e142619143135_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142613143136_)) + (gx#stx-null? _tl142617143140_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150605150606_ - _hd142584143222_ - _hd142614143134_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) + (gx#stx-null? _tl142587143228_)) + (___kont150609150610_ + _hd142588143226_ + _hd142618143138_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142560143537_)) + _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142675142891_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142679142895_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142673142896_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142677142900_ (let () (declare (not safe)) - (##cdr _e142675142891_))) - (_hd142674142894_ + (##cdr _e142679142895_))) + (_hd142678142898_ (let () (declare (not safe)) - (##car _e142675142891_)))) - (___kont150613150614_))) - (___kont150613150614_)) - (___kont150613150614_)))))) + (##car _e142679142895_)))) + (___kont150617150618_))) + (___kont150617150618_)) + (___kont150617150618_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142560143537_)) + (gx#stx-eq? '%#quote _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142615143131_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142619143135_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142613143136_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142617143140_ (let () (declare (not safe)) - (##cdr _e142615143131_))) - (_hd142614143134_ + (##cdr _e142619143135_))) + (_hd142618143138_ (let () (declare (not safe)) - (##car _e142615143131_)))) + (##car _e142619143135_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142613143136_)) + (gx#stx-null? _tl142617143140_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150605150606_ - _hd142584143222_ - _hd142614143134_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) + (gx#stx-null? _tl142587143228_)) + (___kont150609150610_ + _hd142588143226_ + _hd142618143138_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd142560143537_)) + (gx#stx-eq? '%#quote-syntax _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142675142891_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142679142895_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142673142896_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142677142900_ (let () (declare (not safe)) - (##cdr _e142675142891_))) - (_hd142674142894_ + (##cdr _e142679142895_))) + (_hd142678142898_ (let () (declare (not safe)) - (##car _e142675142891_)))) - (___kont150613150614_))) - (___kont150613150614_)) - (___kont150613150614_)))) + (##car _e142679142895_)))) + (___kont150617150618_))) + (___kont150617150618_)) + (___kont150617150618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142560143537_)) + _hd142564143541_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142615143131_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142619143135_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142613143136_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142617143140_ (let () (declare (not safe)) - (##cdr _e142615143131_))) - (_hd142614143134_ + (##cdr _e142619143135_))) + (_hd142618143138_ (let () (declare (not safe)) - (##car _e142615143131_)))) + (##car _e142619143135_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142613143136_)) + (gx#stx-null? _tl142617143140_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150605150606_ - _hd142584143222_ - _hd142614143134_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) + (gx#stx-null? _tl142587143228_)) + (___kont150609150610_ + _hd142588143226_ + _hd142618143138_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd142560143537_)) + (gx#stx-eq? '%#quote-syntax _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142675142891_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142679142895_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142673142896_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142677142900_ (let () (declare (not safe)) - (##cdr _e142675142891_))) - (_hd142674142894_ + (##cdr _e142679142895_))) + (_hd142678142898_ (let () (declare (not safe)) - (##car _e142675142891_)))) + (##car _e142679142895_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142673142896_)) + (gx#stx-null? _tl142677142900_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142587143230_)) + (gx#stx-eq? '%#ref _hd142591143234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142586143232_)) - (let ((_e142684142915_ + (gx#stx-pair? _tl142590143236_)) + (let ((_e142688142919_ (let () (declare (not safe)) (gx#stx-e - _tl142586143232_)))) - (let ((_tl142682142920_ + _tl142590143236_)))) + (let ((_tl142686142924_ (let () (declare (not safe)) - (##cdr _e142684142915_))) - (_hd142683142918_ + (##cdr _e142688142919_))) + (_hd142687142922_ (let () (declare (not safe)) - (##car _e142684142915_)))) + (##car _e142688142919_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142682142920_)) + _tl142686142924_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl142583143224_)) - (___kont150609150610_ - _hd142683142918_ - _hd142674142894_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_)))) + _tl142587143228_)) + (___kont150613150614_ + _hd142687142922_ + _hd142678142898_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142560143537_)) + _hd142564143541_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142559143539_)) - (let ((_e142615143131_ + _tl142563143543_)) + (let ((_e142619143135_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142613143136_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142617143140_ (let () (declare (not safe)) - (##cdr _e142615143131_))) - (_hd142614143134_ + (##cdr _e142619143135_))) + (_hd142618143138_ (let () (declare (not safe)) - (##car _e142615143131_)))) + (##car _e142619143135_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142613143136_)) + (gx#stx-null? _tl142617143140_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150605150606_ - _hd142584143222_ - _hd142614143134_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) + (gx#stx-null? _tl142587143228_)) + (___kont150609150610_ + _hd142588143226_ + _hd142618143138_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142560143537_)) + _hd142564143541_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142675142891_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142679142895_ (let () (declare (not safe)) - (gx#stx-e _tl142559143539_)))) - (let ((_tl142673142896_ + (gx#stx-e _tl142563143543_)))) + (let ((_tl142677142900_ (let () (declare (not safe)) - (##cdr _e142675142891_))) - (_hd142674142894_ + (##cdr _e142679142895_))) + (_hd142678142898_ (let () (declare (not safe)) - (##car _e142675142891_)))) - (___kont150613150614_))) - (___kont150613150614_)) - (___kont150613150614_)))))) + (##car _e142679142895_)))) + (___kont150617150618_))) + (___kont150617150618_)) + (___kont150617150618_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142560143537_)) + _hd142564143541_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142559143539_)) - (let ((_e142615143131_ + _tl142563143543_)) + (let ((_e142619143135_ (let () (declare (not safe)) (gx#stx-e - _tl142559143539_)))) - (let ((_tl142613143136_ + _tl142563143543_)))) + (let ((_tl142617143140_ (let () (declare (not safe)) - (##cdr _e142615143131_))) - (_hd142614143134_ + (##cdr _e142619143135_))) + (_hd142618143138_ (let () (declare (not safe)) - (##car _e142615143131_)))) + (##car _e142619143135_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142613143136_)) + _tl142617143140_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150605150606_ - _hd142584143222_ - _hd142614143134_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) + (gx#stx-null? _tl142587143228_)) + (___kont150609150610_ + _hd142588143226_ + _hd142618143138_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)) + (___kont150617150618_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142560143537_)) + _hd142564143541_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142559143539_)) - (let ((_e142675142891_ + _tl142563143543_)) + (let ((_e142679142895_ (let () (declare (not safe)) (gx#stx-e - _tl142559143539_)))) - (let ((_tl142673142896_ + _tl142563143543_)))) + (let ((_tl142677142900_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e142675142891_))) - (_hd142674142894_ - (let () (declare (not safe)) (##car _e142675142891_)))) - (___kont150613150614_))) + (##cdr _e142679142895_))) + (_hd142678142898_ + (let () (declare (not safe)) (##car _e142679142895_)))) + (___kont150617150618_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)) - (___kont150613150614_)))))) + (___kont150617150618_)) + (___kont150617150618_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142560143537_)) + (gx#stx-eq? '%#quote _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142615143131_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142619143135_ (let () (declare (not safe)) (gx#stx-e - _tl142559143539_)))) - (let ((_tl142613143136_ + _tl142563143543_)))) + (let ((_tl142617143140_ (let () (declare (not safe)) - (##cdr _e142615143131_))) - (_hd142614143134_ + (##cdr _e142619143135_))) + (_hd142618143138_ (let () (declare (not safe)) - (##car _e142615143131_)))) - (___kont150613150614_))) - (___kont150613150614_)) + (##car _e142619143135_)))) + (___kont150617150618_))) + (___kont150617150618_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142560143537_)) + _hd142564143541_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142559143539_)) - (let ((_e142675142891_ + (gx#stx-pair? _tl142563143543_)) + (let ((_e142679142895_ (let () (declare (not safe)) (gx#stx-e - _tl142559143539_)))) - (let ((_tl142673142896_ + _tl142563143543_)))) + (let ((_tl142677142900_ (let () (declare (not safe)) - (##cdr _e142675142891_))) - (_hd142674142894_ + (##cdr _e142679142895_))) + (_hd142678142898_ (let () (declare (not safe)) - (##car _e142675142891_)))) - (___kont150613150614_))) - (___kont150613150614_)) - (___kont150613150614_))))) + (##car _e142679142895_)))) + (___kont150617150618_))) + (___kont150617150618_)) + (___kont150617150618_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142556143531_)) - (let ((_e142585143219_ + (gx#stx-pair? _tl142560143535_)) + (let ((_e142589143223_ (let () (declare (not safe)) - (gx#stx-e _tl142556143531_)))) - (let ((_tl142583143224_ + (gx#stx-e _tl142560143535_)))) + (let ((_tl142587143228_ (let () (declare (not safe)) - (##cdr _e142585143219_))) - (_hd142584143222_ + (##cdr _e142589143223_))) + (_hd142588143226_ (let () (declare (not safe)) - (##car _e142585143219_)))) + (##car _e142589143223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142584143222_)) - (let ((_e142588143227_ + (gx#stx-pair? _hd142588143226_)) + (let ((_e142592143231_ (let () (declare (not safe)) - (gx#stx-e _hd142584143222_)))) - (let ((_tl142586143232_ + (gx#stx-e _hd142588143226_)))) + (let ((_tl142590143236_ (let () (declare (not safe)) - (##cdr _e142588143227_))) - (_hd142587143230_ + (##cdr _e142592143231_))) + (_hd142591143234_ (let () (declare (not safe)) - (##car _e142588143227_)))) + (##car _e142592143231_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142587143230_)) + _hd142591143234_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142587143230_)) + _hd142591143234_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142586143232_)) - (let ((_e142591143235_ + _tl142590143236_)) + (let ((_e142595143239_ (let () (declare (not safe)) (gx#stx-e - _tl142586143232_)))) - (let ((_tl142589143240_ + _tl142590143236_)))) + (let ((_tl142593143244_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e142591143235_))) - (_hd142590143238_ - (let () (declare (not safe)) (##car _e142591143235_)))) + (##cdr _e142595143239_))) + (_hd142594143242_ + (let () (declare (not safe)) (##car _e142595143239_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142589143240_)) + (gx#stx-null? _tl142593143244_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583143224_)) - (___kont150603150604_ - _hd142590143238_ - _hd142557143529_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) + (gx#stx-null? _tl142587143228_)) + (___kont150607150608_ + _hd142594143242_ + _hd142561143533_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)))) - (___kont150613150614_))))) + (___kont150617150618_)) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)))) + (___kont150617150618_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142556143531_)) - (let ((_e142585143219_ + (gx#stx-pair? _tl142560143535_)) + (let ((_e142589143223_ (let () (declare (not safe)) - (gx#stx-e _tl142556143531_)))) - (let ((_tl142583143224_ + (gx#stx-e _tl142560143535_)))) + (let ((_tl142587143228_ (let () (declare (not safe)) - (##cdr _e142585143219_))) - (_hd142584143222_ + (##cdr _e142589143223_))) + (_hd142588143226_ (let () (declare (not safe)) - (##car _e142585143219_)))) + (##car _e142589143223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142584143222_)) - (let ((_e142588143227_ + (gx#stx-pair? _hd142588143226_)) + (let ((_e142592143231_ (let () (declare (not safe)) - (gx#stx-e _hd142584143222_)))) - (let ((_tl142586143232_ + (gx#stx-e _hd142588143226_)))) + (let ((_tl142590143236_ (let () (declare (not safe)) - (##cdr _e142588143227_))) - (_hd142587143230_ + (##cdr _e142592143231_))) + (_hd142591143234_ (let () (declare (not safe)) - (##car _e142588143227_)))) + (##car _e142592143231_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142587143230_)) + (gx#identifier? _hd142591143234_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142587143230_)) + _hd142591143234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142586143232_)) - (let ((_e142591143235_ + (gx#stx-pair? _tl142590143236_)) + (let ((_e142595143239_ (let () (declare (not safe)) (gx#stx-e - _tl142586143232_)))) - (let ((_tl142589143240_ + _tl142590143236_)))) + (let ((_tl142593143244_ (let () (declare (not safe)) - (##cdr _e142591143235_))) - (_hd142590143238_ + (##cdr _e142595143239_))) + (_hd142594143242_ (let () (declare (not safe)) - (##car _e142591143235_)))) + (##car _e142595143239_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142589143240_)) + _tl142593143244_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl142583143224_)) - (___kont150603150604_ - _hd142590143238_ - _hd142557143529_ - _hd142554143521_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)))) - (___kont150613150614_))))) + _tl142587143228_)) + (___kont150607150608_ + _hd142594143242_ + _hd142561143533_ + _hd142558143525_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)))) + (___kont150617150618_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd142551143513_)) + (gx#stx-eq? '%#lambda _hd142555143517_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142550143515_)) - (let ((_e142699142755_ + (gx#stx-pair? _tl142554143519_)) + (let ((_e142703142759_ (let () (declare (not safe)) (gx#stx-e - _tl142550143515_)))) - (let ((_tl142697142760_ + _tl142554143519_)))) + (let ((_tl142701142764_ (let () (declare (not safe)) - (##cdr _e142699142755_))) - (_hd142698142758_ + (##cdr _e142703142759_))) + (_hd142702142762_ (let () (declare (not safe)) - (##car _e142699142755_)))) + (##car _e142703142759_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142698142758_)) - (let ((_e142702142763_ + _hd142702142762_)) + (let ((_e142706142767_ (let () (declare (not safe)) (gx#stx-e - _hd142698142758_)))) - (let ((_tl142700142768_ + _hd142702142762_)))) + (let ((_tl142704142772_ (let () (declare (not safe)) - (##cdr _e142702142763_))) - (_hd142701142766_ + (##cdr _e142706142767_))) + (_hd142705142770_ (let () (declare (not safe)) - (##car _e142702142763_)))) + (##car _e142706142767_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142700142768_)) + _tl142704142772_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl142697142760_)) - (let ((_e142705142771_ + (gx#stx-pair? _tl142701142764_)) + (let ((_e142709142775_ (let () (declare (not safe)) - (gx#stx-e _tl142697142760_)))) - (let ((_tl142703142776_ + (gx#stx-e _tl142701142764_)))) + (let ((_tl142707142780_ (let () (declare (not safe)) - (##cdr _e142705142771_))) - (_hd142704142774_ + (##cdr _e142709142775_))) + (_hd142708142778_ (let () (declare (not safe)) - (##car _e142705142771_)))) + (##car _e142709142775_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142703142776_)) + (gx#stx-null? _tl142707142780_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142547143507_)) - (let ((_e142708142779_ + (gx#stx-pair? _tl142551143511_)) + (let ((_e142712142783_ (let () (declare (not safe)) - (gx#stx-e _tl142547143507_)))) - (let ((_tl142706142784_ + (gx#stx-e _tl142551143511_)))) + (let ((_tl142710142788_ (let () (declare (not safe)) - (##cdr _e142708142779_))) - (_hd142707142782_ + (##cdr _e142712142783_))) + (_hd142711142786_ (let () (declare (not safe)) - (##car _e142708142779_)))) + (##car _e142712142783_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142707142782_)) - (let ((_e142711142787_ + (gx#stx-pair? _hd142711142786_)) + (let ((_e142715142791_ (let () (declare (not safe)) (gx#stx-e - _hd142707142782_)))) - (let ((_tl142709142792_ + _hd142711142786_)))) + (let ((_tl142713142796_ (let () (declare (not safe)) - (##cdr _e142711142787_))) - (_hd142710142790_ + (##cdr _e142715142791_))) + (_hd142714142794_ (let () (declare (not safe)) - (##car _e142711142787_)))) + (##car _e142715142791_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142710142790_)) + _hd142714142794_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd142710142790_)) + _hd142714142794_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142709142792_)) - (let ((_e142714142795_ + _tl142713142796_)) + (let ((_e142718142799_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142709142792_)))) - (let ((_tl142712142800_ + (gx#stx-e _tl142713142796_)))) + (let ((_tl142716142804_ (let () (declare (not safe)) - (##cdr _e142714142795_))) - (_hd142713142798_ + (##cdr _e142718142799_))) + (_hd142717142802_ (let () (declare (not safe)) - (##car _e142714142795_)))) + (##car _e142718142799_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142712142800_)) + (gx#stx-null? _tl142716142804_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142706142784_)) - (___kont150611150612_ - _hd142713142798_ - _hd142704142774_ - _hd142701142766_) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) + (gx#stx-null? _tl142710142788_)) + (___kont150615150616_ + _hd142717142802_ + _hd142708142778_ + _hd142705142770_) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_)))) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)))) - (___kont150613150614_)) - (___kont150613150614_))) - (___kont150613150614_)))) - (___kont150613150614_)))) + (___kont150617150618_)))) + (___kont150617150618_)) + (___kont150617150618_))) + (___kont150617150618_)))) + (___kont150617150618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150613150614_)) - (___kont150613150614_)) - (___kont150613150614_)))) - (___kont150613150614_))))))))) - (_assert-type141526_ - (lambda (_id142425_ _t142426_) - (let _lp142428_ ((_rest142430_ _env-type141508_)) - (let* ((_rest142431142439_ _rest142430_) - (_else142433142447_ (lambda () '#!void)) - (_K142435142511_ - (lambda (_rest142450_ _type-info142451_) - (let* ((_type-info142452142464_ - _type-info142451_) - (_else142454142472_ + (___kont150617150618_)) + (___kont150617150618_)) + (___kont150617150618_)))) + (___kont150617150618_))))))))) + (_assert-type141530_ + (lambda (_id142429_ _t142430_) + (let _lp142432_ ((_rest142434_ _env-type141512_)) + (let* ((_rest142435142443_ _rest142434_) + (_else142437142451_ (lambda () '#!void)) + (_K142439142515_ + (lambda (_rest142454_ _type-info142455_) + (let* ((_type-info142456142468_ + _type-info142455_) + (_else142458142476_ (lambda () (let () (declare (not safe)) - (_lp142428_ _rest142450_)))) - (_K142456142487_ - (lambda (_val142475_ - _xt142476_ - _xid142477_) + (_lp142432_ _rest142454_)))) + (_K142460142491_ + (lambda (_val142479_ + _xt142480_ + _xid142481_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id142425_ - _xid142477_)) + _id142429_ + _xid142481_)) (if (let () (declare (not safe)) - (eq? _t142426_ - _xt142476_)) - _val142475_ - (if _val142475_ + (eq? _t142430_ + _xt142480_)) + _val142479_ + (if _val142479_ (if (let () (declare (not safe)) (##structure-instance-of? - _t142426_ + _t142430_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt142476_ 'gxc#!class::t)) - (memq _t142426_ - (map (lambda (_g142478142480_) + (##structure-instance-of? _xt142480_ 'gxc#!class::t)) + (memq _t142430_ + (map (lambda (_g142482142484_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt142476_ - _g142478142480_))) + _xt142480_ + _g142482142484_))) (##structure-ref - _xt142476_ + _xt142480_ '3 gxc#!class::t '#f))) @@ -11341,3519 +11341,3519 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t142426_ 'gxc#!class::t)) + (##structure-instance-of? _t142430_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt142476_ 'gxc#!class::t)) - (memq _xt142476_ - (map (lambda (_g142482142484_) + (##structure-instance-of? _xt142480_ 'gxc#!class::t)) + (memq _xt142480_ + (map (lambda (_g142486142488_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t142426_ - _g142482142484_))) + _t142430_ + _g142486142488_))) (##structure-ref - _t142426_ + _t142430_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp142428_ _rest142450_))))) + (let () (declare (not safe)) (_lp142432_ _rest142454_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp142428_ _rest142450_)))))) + (_lp142432_ _rest142454_)))))) (if (let () (declare (not safe)) - (##pair? _type-info142452142464_)) - (let ((_hd142457142490_ + (##pair? _type-info142456142468_)) + (let ((_hd142461142494_ (let () (declare (not safe)) - (##car _type-info142452142464_))) - (_tl142458142492_ + (##car _type-info142456142468_))) + (_tl142462142496_ (let () (declare (not safe)) - (##cdr _type-info142452142464_)))) - (let ((_xid142495_ _hd142457142490_)) + (##cdr _type-info142456142468_)))) + (let ((_xid142499_ _hd142461142494_)) (if (let () (declare (not safe)) - (##pair? _tl142458142492_)) - (let ((_hd142459142497_ + (##pair? _tl142462142496_)) + (let ((_hd142463142501_ (let () (declare (not safe)) - (##car _tl142458142492_))) - (_tl142460142499_ + (##car _tl142462142496_))) + (_tl142464142503_ (let () (declare (not safe)) - (##cdr _tl142458142492_)))) - (let ((_xt142502_ - _hd142459142497_)) + (##cdr _tl142462142496_)))) + (let ((_xt142506_ + _hd142463142501_)) (if (let () (declare (not safe)) - (##pair? _tl142460142499_)) - (let ((_hd142461142504_ + (##pair? _tl142464142503_)) + (let ((_hd142465142508_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl142460142499_))) - (_tl142462142506_ - (let () (declare (not safe)) (##cdr _tl142460142499_)))) - (let ((_val142509_ _hd142461142504_)) - (if (let () (declare (not safe)) (##null? _tl142462142506_)) + (##car _tl142464142503_))) + (_tl142466142510_ + (let () (declare (not safe)) (##cdr _tl142464142503_)))) + (let ((_val142513_ _hd142465142508_)) + (if (let () (declare (not safe)) (##null? _tl142466142510_)) (let () (declare (not safe)) - (_K142456142487_ _val142509_ _xt142502_ _xid142495_)) - (let () (declare (not safe)) (_else142454142472_))))) - (let () (declare (not safe)) (_else142454142472_))))) + (_K142460142491_ _val142513_ _xt142506_ _xid142499_)) + (let () (declare (not safe)) (_else142458142476_))))) + (let () (declare (not safe)) (_else142458142476_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else142454142472_))))) + (_else142458142476_))))) (let () (declare (not safe)) - (_else142454142472_))))))) + (_else142458142476_))))))) (if (let () (declare (not safe)) - (##pair? _rest142431142439_)) - (let ((_hd142436142514_ + (##pair? _rest142435142443_)) + (let ((_hd142440142518_ (let () (declare (not safe)) - (##car _rest142431142439_))) - (_tl142437142516_ + (##car _rest142435142443_))) + (_tl142441142520_ (let () (declare (not safe)) - (##cdr _rest142431142439_)))) - (let* ((_type-info142519_ _hd142436142514_) - (_rest142521_ _tl142437142516_)) + (##cdr _rest142435142443_)))) + (let* ((_type-info142523_ _hd142440142518_) + (_rest142525_ _tl142441142520_)) (declare (not safe)) - (_K142435142511_ - _rest142521_ - _type-info142519_))) + (_K142439142515_ + _rest142525_ + _type-info142523_))) (let () (declare (not safe)) - (_else142433142447_))))))) - (_assert-count141527_ - (lambda (_id142324_ _sym142325_ _count142326_) - (let _lp142328_ ((_rest142330_ _env-type141508_)) - (let* ((_rest142331142339_ _rest142330_) - (_else142333142347_ (lambda () '#!void)) - (_K142335142413_ - (lambda (_rest142350_ _type-info142351_) - (let* ((_type-info142352142366_ - _type-info142351_) - (_else142354142374_ + (_else142437142451_))))))) + (_assert-count141531_ + (lambda (_id142328_ _sym142329_ _count142330_) + (let _lp142332_ ((_rest142334_ _env-type141512_)) + (let* ((_rest142335142343_ _rest142334_) + (_else142337142351_ (lambda () '#!void)) + (_K142339142417_ + (lambda (_rest142354_ _type-info142355_) + (let* ((_type-info142356142370_ + _type-info142355_) + (_else142358142378_ (lambda () (let () (declare (not safe)) - (_lp142328_ _rest142350_)))) - (_K142356142382_ - (lambda (_val142377_ - _xcount142378_ - _xsym142379_ - _xid142380_) + (_lp142332_ _rest142354_)))) + (_K142360142386_ + (lambda (_val142381_ + _xcount142382_ + _xsym142383_ + _xid142384_) (if (and (let () (declare (not safe)) - (eq? _sym142325_ - _xsym142379_)) + (eq? _sym142329_ + _xsym142383_)) (let () (declare (not safe)) (gx#free-identifier=? - _id142324_ - _xid142380_))) - (if _val142377_ - (fx= _count142326_ - _xcount142378_) - (if (fx= _count142326_ - _xcount142378_) + _id142328_ + _xid142384_))) + (if _val142381_ + (fx= _count142330_ + _xcount142382_) + (if (fx= _count142330_ + _xcount142382_) '#f (let () (declare (not safe)) - (_lp142328_ - _rest142350_)))) + (_lp142332_ + _rest142354_)))) (let () (declare (not safe)) - (_lp142328_ _rest142350_)))))) + (_lp142332_ _rest142354_)))))) (if (let () (declare (not safe)) - (##pair? _type-info142352142366_)) - (let ((_hd142357142385_ + (##pair? _type-info142356142370_)) + (let ((_hd142361142389_ (let () (declare (not safe)) - (##car _type-info142352142366_))) - (_tl142358142387_ + (##car _type-info142356142370_))) + (_tl142362142391_ (let () (declare (not safe)) - (##cdr _type-info142352142366_)))) - (let ((_xid142390_ _hd142357142385_)) + (##cdr _type-info142356142370_)))) + (let ((_xid142394_ _hd142361142389_)) (if (let () (declare (not safe)) - (##pair? _tl142358142387_)) - (let ((_hd142359142392_ + (##pair? _tl142362142391_)) + (let ((_hd142363142396_ (let () (declare (not safe)) - (##car _tl142358142387_))) - (_tl142360142394_ + (##car _tl142362142391_))) + (_tl142364142398_ (let () (declare (not safe)) - (##cdr _tl142358142387_)))) - (let ((_xsym142397_ - _hd142359142392_)) + (##cdr _tl142362142391_)))) + (let ((_xsym142401_ + _hd142363142396_)) (if (let () (declare (not safe)) - (##pair? _tl142360142394_)) - (let ((_hd142361142399_ + (##pair? _tl142364142398_)) + (let ((_hd142365142403_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl142360142394_))) - (_tl142362142401_ - (let () (declare (not safe)) (##cdr _tl142360142394_)))) - (let ((_xcount142404_ _hd142361142399_)) - (if (let () (declare (not safe)) (##pair? _tl142362142401_)) - (let ((_hd142363142406_ + (##car _tl142364142398_))) + (_tl142366142405_ + (let () (declare (not safe)) (##cdr _tl142364142398_)))) + (let ((_xcount142408_ _hd142365142403_)) + (if (let () (declare (not safe)) (##pair? _tl142366142405_)) + (let ((_hd142367142410_ (let () (declare (not safe)) - (##car _tl142362142401_))) - (_tl142364142408_ + (##car _tl142366142405_))) + (_tl142368142412_ (let () (declare (not safe)) - (##cdr _tl142362142401_)))) - (let ((_val142411_ _hd142363142406_)) + (##cdr _tl142366142405_)))) + (let ((_val142415_ _hd142367142410_)) (if (let () (declare (not safe)) - (##null? _tl142364142408_)) + (##null? _tl142368142412_)) (let () (declare (not safe)) - (_K142356142382_ - _val142411_ - _xcount142404_ - _xsym142397_ - _xid142390_)) + (_K142360142386_ + _val142415_ + _xcount142408_ + _xsym142401_ + _xid142394_)) (let () (declare (not safe)) - (_else142354142374_))))) - (let () (declare (not safe)) (_else142354142374_))))) - (let () (declare (not safe)) (_else142354142374_))))) + (_else142358142378_))))) + (let () (declare (not safe)) (_else142358142378_))))) + (let () (declare (not safe)) (_else142358142378_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else142354142374_))))) + (_else142358142378_))))) (let () (declare (not safe)) - (_else142354142374_))))))) + (_else142358142378_))))))) (if (let () (declare (not safe)) - (##pair? _rest142331142339_)) - (let ((_hd142336142416_ + (##pair? _rest142335142343_)) + (let ((_hd142340142420_ (let () (declare (not safe)) - (##car _rest142331142339_))) - (_tl142337142418_ + (##car _rest142335142343_))) + (_tl142341142422_ (let () (declare (not safe)) - (##cdr _rest142331142339_)))) - (let* ((_type-info142421_ _hd142336142416_) - (_rest142423_ _tl142337142418_)) + (##cdr _rest142335142343_)))) + (let* ((_type-info142425_ _hd142340142420_) + (_rest142427_ _tl142341142422_)) (declare (not safe)) - (_K142335142413_ - _rest142423_ - _type-info142421_))) + (_K142339142417_ + _rest142427_ + _type-info142425_))) (let () (declare (not safe)) - (_else142333142347_))))))) - (_assert-eqf141528_ - (lambda (_id142214_ _sym142215_ _datum142216_) - (letrec ((_eqf142218_ - (lambda (_sym142319_) - (let ((_$e142321_ _sym142319_)) + (_else142337142351_))))))) + (_assert-eqf141532_ + (lambda (_id142218_ _sym142219_ _datum142220_) + (letrec ((_eqf142222_ + (lambda (_sym142323_) + (let ((_$e142325_ _sym142323_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e142321_)) + (eq? 'eq? _$e142325_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e142321_)) + (eq? 'eqv? _$e142325_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e142321_)) + (eq? 'equal? _$e142325_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e142321_)) + _$e142325_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e142321_)) + _$e142325_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body141269_ - _sym142319_))))))))))) - (let _lp142220_ ((_rest142222_ _env-type141508_)) - (let* ((_rest142223142231_ _rest142222_) - (_else142225142239_ (lambda () '#!void)) - (_K142227142307_ - (lambda (_rest142242_ _type-info142243_) - (let* ((_type-info142244142258_ - _type-info142243_) - (_else142246142266_ + _body141273_ + _sym142323_))))))))))) + (let _lp142224_ ((_rest142226_ _env-type141512_)) + (let* ((_rest142227142235_ _rest142226_) + (_else142229142243_ (lambda () '#!void)) + (_K142231142311_ + (lambda (_rest142246_ _type-info142247_) + (let* ((_type-info142248142262_ + _type-info142247_) + (_else142250142270_ (lambda () (let () (declare (not safe)) - (_lp142220_ _rest142242_)))) - (_K142248142276_ - (lambda (_val142269_ - _xdatum142270_ - _xsym142271_ - _xid142272_) + (_lp142224_ _rest142246_)))) + (_K142252142280_ + (lambda (_val142273_ + _xdatum142274_ + _xsym142275_ + _xid142276_) (if (and (let () (declare (not safe)) - (eq? _sym142215_ - _xsym142271_)) + (eq? _sym142219_ + _xsym142275_)) (let () (declare (not safe)) (gx#free-identifier=? - _id142214_ - _xid142272_))) - (let ((_=?142274_ + _id142218_ + _xid142276_))) + (let ((_=?142278_ (let () (declare (not safe)) - (_eqf142218_ - _sym142215_)))) - (if _val142269_ - (_=?142274_ - _datum142216_ - _xdatum142270_) - (if (_=?142274_ - _datum142216_ - _xdatum142270_) + (_eqf142222_ + _sym142219_)))) + (if _val142273_ + (_=?142278_ + _datum142220_ + _xdatum142274_) + (if (_=?142278_ + _datum142220_ + _xdatum142274_) '#f (let () (declare (not safe)) - (_lp142220_ - _rest142242_))))) + (_lp142224_ + _rest142246_))))) (let () (declare (not safe)) - (_lp142220_ - _rest142242_)))))) + (_lp142224_ + _rest142246_)))))) (if (let () (declare (not safe)) - (##pair? _type-info142244142258_)) - (let ((_hd142249142279_ + (##pair? _type-info142248142262_)) + (let ((_hd142253142283_ (let () (declare (not safe)) - (##car _type-info142244142258_))) - (_tl142250142281_ + (##car _type-info142248142262_))) + (_tl142254142285_ (let () (declare (not safe)) - (##cdr _type-info142244142258_)))) - (let ((_xid142284_ - _hd142249142279_)) + (##cdr _type-info142248142262_)))) + (let ((_xid142288_ + _hd142253142283_)) (if (let () (declare (not safe)) - (##pair? _tl142250142281_)) - (let ((_hd142251142286_ + (##pair? _tl142254142285_)) + (let ((_hd142255142290_ (let () (declare (not safe)) - (##car _tl142250142281_))) - (_tl142252142288_ + (##car _tl142254142285_))) + (_tl142256142292_ (let () (declare (not safe)) - (##cdr _tl142250142281_)))) - (let ((_xsym142291_ - _hd142251142286_)) + (##cdr _tl142254142285_)))) + (let ((_xsym142295_ + _hd142255142290_)) (if (let () (declare (not safe)) - (##pair? _tl142252142288_)) - (let ((_hd142253142293_ + (##pair? _tl142256142292_)) + (let ((_hd142257142297_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl142252142288_))) - (_tl142254142295_ + (##car _tl142256142292_))) + (_tl142258142299_ (let () (declare (not safe)) - (##cdr _tl142252142288_)))) - (let ((_xdatum142298_ _hd142253142293_)) + (##cdr _tl142256142292_)))) + (let ((_xdatum142302_ _hd142257142297_)) (if (let () (declare (not safe)) - (##pair? _tl142254142295_)) - (let ((_hd142255142300_ + (##pair? _tl142258142299_)) + (let ((_hd142259142304_ (let () (declare (not safe)) - (##car _tl142254142295_))) - (_tl142256142302_ + (##car _tl142258142299_))) + (_tl142260142306_ (let () (declare (not safe)) - (##cdr _tl142254142295_)))) - (let ((_val142305_ _hd142255142300_)) + (##cdr _tl142258142299_)))) + (let ((_val142309_ _hd142259142304_)) (if (let () (declare (not safe)) - (##null? _tl142256142302_)) + (##null? _tl142260142306_)) (let () (declare (not safe)) - (_K142248142276_ - _val142305_ - _xdatum142298_ - _xsym142291_ - _xid142284_)) + (_K142252142280_ + _val142309_ + _xdatum142302_ + _xsym142295_ + _xid142288_)) (let () (declare (not safe)) - (_else142246142266_))))) - (let () (declare (not safe)) (_else142246142266_))))) - (let () (declare (not safe)) (_else142246142266_))))) + (_else142250142270_))))) + (let () (declare (not safe)) (_else142250142270_))))) + (let () (declare (not safe)) (_else142250142270_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else142246142266_))))) + (_else142250142270_))))) (let () (declare (not safe)) - (_else142246142266_))))))) + (_else142250142270_))))))) (if (let () (declare (not safe)) - (##pair? _rest142223142231_)) - (let ((_hd142228142310_ + (##pair? _rest142227142235_)) + (let ((_hd142232142314_ (let () (declare (not safe)) - (##car _rest142223142231_))) - (_tl142229142312_ + (##car _rest142227142235_))) + (_tl142233142316_ (let () (declare (not safe)) - (##cdr _rest142223142231_)))) - (let* ((_type-info142315_ _hd142228142310_) - (_rest142317_ _tl142229142312_)) + (##cdr _rest142227142235_)))) + (let* ((_type-info142319_ _hd142232142314_) + (_rest142321_ _tl142233142316_)) (declare (not safe)) - (_K142227142307_ - _rest142317_ - _type-info142315_))) + (_K142231142311_ + _rest142321_ + _type-info142319_))) (let () (declare (not safe)) - (_else142225142239_)))))))) - (_bind-e__148982148983_ - (lambda (_bind142117_ _body142118_ _continue142119_) - (let _lp142121_ ((_rest142123_ _bind142117_) - (_subst142124_ '()) - (_locals142125_ '()) - (_env142126_ _env-bind141509_)) - (let* ((_rest142127142135_ _rest142123_) - (_else142129142149_ + (_else142229142243_)))))))) + (_bind-e__148986148987_ + (lambda (_bind142121_ _body142122_ _continue142123_) + (let _lp142125_ ((_rest142127_ _bind142121_) + (_subst142128_ '()) + (_locals142129_ '()) + (_env142130_ _env-bind141513_)) + (let* ((_rest142131142139_ _rest142127_) + (_else142133142153_ (lambda () - (let* ((_body142143_ + (let* ((_body142147_ (if (let () (declare (not safe)) - (null? _subst142124_)) - _body142118_ + (null? _subst142128_)) + _body142122_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body142118_ + _body142122_ 'subst: - _subst142124_)))) - (_body142146_ - (let ((__tmp152434 + _subst142128_)))) + (_body142150_ + (let ((__tmp152438 (lambda () - (_continue142119_ - _body142143_)))) + (_continue142123_ + _body142147_)))) (declare (not safe)) - (_do-bind!141520_ - _env142126_ - __tmp152434)))) + (_do-bind!141524_ + _env142130_ + __tmp152438)))) (if (let () (declare (not safe)) - (null? _locals142125_)) - _body142146_ - (let ((__tmp152435 - (let ((__tmp152436 + (null? _locals142129_)) + _body142150_ + (let ((__tmp152439 + (let ((__tmp152440 (let () (declare (not safe)) - (cons _body142146_ + (cons _body142150_ '())))) (declare (not safe)) - (cons _locals142125_ - __tmp152436)))) + (cons _locals142129_ + __tmp152440)))) (declare (not safe)) - (cons '%#let-values __tmp152435)))))) - (_K142131142190_ - (lambda (_rest142152_ _bind142153_) - (let* ((_bind142154142161_ _bind142153_) - (_E142156142165_ + (cons '%#let-values __tmp152439)))))) + (_K142135142194_ + (lambda (_rest142156_ _bind142157_) + (let* ((_bind142158142165_ _bind142157_) + (_E142160142169_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind142154142161_)))) - (_K142157142178_ - (lambda (_expr142168_ _id142169_) - (let* ((_sexpr142171_ + _bind142158142165_)))) + (_K142161142182_ + (lambda (_expr142172_ _id142173_) + (let* ((_sexpr142175_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr142168_))) - (_$e142173_ + _expr142172_))) + (_$e142177_ (let () (declare (not safe)) (assget__0 - _sexpr142171_ - _env-bind141509_)))) - (if _$e142173_ - ((lambda (_xid142176_) - (let ((__tmp152443 - (let ((__tmp152444 + _sexpr142175_ + _env-bind141513_)))) + (if _$e142177_ + ((lambda (_xid142180_) + (let ((__tmp152447 + (let ((__tmp152448 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id142169_ _xid142176_)))) + (cons _id142173_ _xid142180_)))) (declare (not safe)) - (cons __tmp152444 _subst142124_)))) + (cons __tmp152448 _subst142128_)))) (declare (not safe)) - (_lp142121_ - _rest142152_ - __tmp152443 - _locals142125_ - _env142126_))) + (_lp142125_ + _rest142156_ + __tmp152447 + _locals142129_ + _env142130_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e142173_) - (let ((__tmp152439 - (let ((__tmp152440 - (let ((__tmp152442 + _$e142177_) + (let ((__tmp152443 + (let ((__tmp152444 + (let ((__tmp152446 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id142169_ '()))) - (__tmp152441 + (cons _id142173_ '()))) + (__tmp152445 (let () (declare (not safe)) - (cons _expr142168_ '())))) + (cons _expr142172_ '())))) (declare (not safe)) - (cons __tmp152442 __tmp152441)))) + (cons __tmp152446 __tmp152445)))) (declare (not safe)) - (cons __tmp152440 _locals142125_))) - (__tmp152437 - (let ((__tmp152438 + (cons __tmp152444 _locals142129_))) + (__tmp152441 + (let ((__tmp152442 (let () (declare (not safe)) - (cons _sexpr142171_ _id142169_)))) + (cons _sexpr142175_ _id142173_)))) (declare (not safe)) - (cons __tmp152438 _env142126_)))) + (cons __tmp152442 _env142130_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp142121_ - _rest142152_ - _subst142124_ - __tmp152439 - __tmp152437))))))) + (_lp142125_ + _rest142156_ + _subst142128_ + __tmp152443 + __tmp152441))))))) (if (let () (declare (not safe)) - (##pair? _bind142154142161_)) - (let ((_hd142158142181_ + (##pair? _bind142158142165_)) + (let ((_hd142162142185_ (let () (declare (not safe)) - (##car _bind142154142161_))) - (_tl142159142183_ + (##car _bind142158142165_))) + (_tl142163142187_ (let () (declare (not safe)) - (##cdr _bind142154142161_)))) - (let* ((_id142186_ _hd142158142181_) - (_expr142188_ - _tl142159142183_)) + (##cdr _bind142158142165_)))) + (let* ((_id142190_ _hd142162142185_) + (_expr142192_ + _tl142163142187_)) (declare (not safe)) - (_K142157142178_ - _expr142188_ - _id142186_))) + (_K142161142182_ + _expr142192_ + _id142190_))) (let () (declare (not safe)) - (_E142156142165_))))))) + (_E142160142169_))))))) (if (let () (declare (not safe)) - (##pair? _rest142127142135_)) - (let ((_hd142132142193_ + (##pair? _rest142131142139_)) + (let ((_hd142136142197_ (let () (declare (not safe)) - (##car _rest142127142135_))) - (_tl142133142195_ + (##car _rest142131142139_))) + (_tl142137142199_ (let () (declare (not safe)) - (##cdr _rest142127142135_)))) - (let* ((_bind142198_ _hd142132142193_) - (_rest142200_ _tl142133142195_)) + (##cdr _rest142131142139_)))) + (let* ((_bind142202_ _hd142136142197_) + (_rest142204_ _tl142137142199_)) (declare (not safe)) - (_K142131142190_ _rest142200_ _bind142198_))) + (_K142135142194_ _rest142204_ _bind142202_))) (let () (declare (not safe)) - (_else142129142149_))))))) - (_bind-e__0__148984148985_ - (lambda (_bind142205_ _body142206_) - (let ((_continue142208_ _optimize-e141522_)) + (_else142133142153_))))))) + (_bind-e__0__148988148989_ + (lambda (_bind142209_ _body142210_) + (let ((_continue142212_ _optimize-e141526_)) (declare (not safe)) - (_bind-e__148982148983_ - _bind142205_ - _body142206_ - _continue142208_)))) - (_bind-e141529_ - (lambda _g152446_ - (let ((_g152445_ + (_bind-e__148986148987_ + _bind142209_ + _body142210_ + _continue142212_)))) + (_bind-e141533_ + (lambda _g152450_ + (let ((_g152449_ (let () (declare (not safe)) - (##length _g152446_)))) - (cond ((let () (declare (not safe)) (##fx= _g152445_ 2)) - (apply (lambda (_bind142205_ _body142206_) + (##length _g152450_)))) + (cond ((let () (declare (not safe)) (##fx= _g152449_ 2)) + (apply (lambda (_bind142209_ _body142210_) (let () (declare (not safe)) - (_bind-e__0__148984148985_ - _bind142205_ - _body142206_))) - _g152446_)) - ((let () (declare (not safe)) (##fx= _g152445_ 3)) - (apply (lambda (_bind142210_ - _body142211_ - _continue142212_) + (_bind-e__0__148988148989_ + _bind142209_ + _body142210_))) + _g152450_)) + ((let () (declare (not safe)) (##fx= _g152449_ 3)) + (apply (lambda (_bind142214_ + _body142215_ + _continue142216_) (let () (declare (not safe)) - (_bind-e__148982148983_ - _bind142210_ - _body142211_ - _continue142212_))) - _g152446_)) + (_bind-e__148986148987_ + _bind142214_ + _body142215_ + _continue142216_))) + _g152450_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g152446_)))))) - (_lookup-block141530_ - (lambda (_id142112_) - (let ((__tmp152447 - (lambda (_block142114_) - (let ((__tmp152448 (car _block142114_))) + _g152450_)))))) + (_lookup-block141534_ + (lambda (_id142116_) + (let ((__tmp152451 + (lambda (_block142118_) + (let ((__tmp152452 (car _block142118_))) (declare (not safe)) (gx#free-identifier=? - __tmp152448 - _id142112_))))) + __tmp152452 + _id142116_))))) (declare (not safe)) - (find __tmp152447 _blocks141272_)))) - (_inline-block141531_ - (lambda (_block141988_ _args141989_) - (let* ((_kont141991_ (caddr _block141988_)) - (_g141993142019_ - (lambda (_g141994142016_) + (find __tmp152451 _blocks141276_)))) + (_inline-block141535_ + (lambda (_block141992_ _args141993_) + (let* ((_kont141995_ (caddr _block141992_)) + (_g141997142023_ + (lambda (_g141998142020_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g141994142016_)))) - (_g141992142109_ - (lambda (_g141994142022_) + _g141998142020_)))) + (_g141996142113_ + (lambda (_g141998142026_) (if (let () (declare (not safe)) - (gx#stx-pair? _g141994142022_)) - (let ((_e141999142024_ + (gx#stx-pair? _g141998142026_)) + (let ((_e142003142028_ (let () (declare (not safe)) - (gx#stx-e _g141994142022_)))) - (let ((_hd141998142027_ + (gx#stx-e _g141998142026_)))) + (let ((_hd142002142031_ (let () (declare (not safe)) - (##car _e141999142024_))) - (_tl141997142029_ + (##car _e142003142028_))) + (_tl142001142033_ (let () (declare (not safe)) - (##cdr _e141999142024_)))) + (##cdr _e142003142028_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141998142027_)) + (gx#identifier? _hd142002142031_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd141998142027_)) + _hd142002142031_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141997142029_)) - (let ((_e142002142032_ + _tl142001142033_)) + (let ((_e142006142036_ (let () (declare (not safe)) (gx#stx-e - _tl141997142029_)))) - (let ((_hd142001142035_ + _tl142001142033_)))) + (let ((_hd142005142039_ (let () (declare (not safe)) - (##car _e142002142032_))) - (_tl142000142037_ + (##car _e142006142036_))) + (_tl142004142041_ (let () (declare (not safe)) - (##cdr _e142002142032_)))) + (##cdr _e142006142036_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd142001142035_)) - (let ((_g152449_ + _hd142005142039_)) + (let ((_g152453_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd142001142035_ '0)))) + (gx#syntax-split-splice _hd142005142039_ '0)))) (begin - (let ((_g152450_ + (let ((_g152454_ (let () (declare (not safe)) - (if (##values? _g152449_) - (##vector-length _g152449_) + (if (##values? _g152453_) + (##vector-length _g152453_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152450_ 2))) - (error "Context expects 2 values" _g152450_))) - (let ((_target142003142040_ + (##fx= _g152454_ 2))) + (error "Context expects 2 values" _g152454_))) + (let ((_target142007142044_ (let () (declare (not safe)) - (##vector-ref _g152449_ 0))) - (_tl142005142042_ + (##vector-ref _g152453_ 0))) + (_tl142009142046_ (let () (declare (not safe)) - (##vector-ref _g152449_ 1)))) + (##vector-ref _g152453_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142005142042_)) - (letrec ((_loop142006142045_ - (lambda (_hd142004142048_ - _id142010142050_) + (gx#stx-null? _tl142009142046_)) + (letrec ((_loop142010142049_ + (lambda (_hd142008142052_ + _id142014142054_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142004142048_)) - (let ((_e142007142053_ + (gx#stx-pair? _hd142008142052_)) + (let ((_e142011142057_ (let () (declare (not safe)) (gx#stx-e - _hd142004142048_)))) - (let ((_lp-hd142008142056_ + _hd142008142052_)))) + (let ((_lp-hd142012142060_ (let () (declare (not safe)) - (##car _e142007142053_))) - (_lp-tl142009142058_ + (##car _e142011142057_))) + (_lp-tl142013142062_ (let () (declare (not safe)) - (##cdr _e142007142053_)))) - (let ((__tmp152454 + (##cdr _e142011142057_)))) + (let ((__tmp152458 (let () (declare (not safe)) - (cons _lp-hd142008142056_ - _id142010142050_)))) + (cons _lp-hd142012142060_ + _id142014142054_)))) (declare (not safe)) - (_loop142006142045_ - _lp-tl142009142058_ - __tmp152454)))) - (let ((_id142011142061_ - (reverse _id142010142050_))) + (_loop142010142049_ + _lp-tl142013142062_ + __tmp152458)))) + (let ((_id142015142065_ + (reverse _id142014142054_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142000142037_)) - (let ((_e142014142064_ + _tl142004142041_)) + (let ((_e142018142068_ (let () (declare (not safe)) (gx#stx-e - _tl142000142037_)))) - (let ((_hd142013142067_ + _tl142004142041_)))) + (let ((_hd142017142071_ (let () (declare (not safe)) - (##car _e142014142064_))) - (_tl142012142069_ + (##car _e142018142068_))) + (_tl142016142073_ (let () (declare (not safe)) - (##cdr _e142014142064_)))) + (##cdr _e142018142068_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142012142069_)) - ((lambda (_L142072_ + _tl142016142073_)) + ((lambda (_L142076_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L142073_) - (if (let ((__tmp152452 - (let ((__tmp152453 - (lambda (_g142092142095_ - _g142093142097_) + _L142077_) + (if (let ((__tmp152456 + (let ((__tmp152457 + (lambda (_g142096142099_ + _g142097142101_) (let () (declare (not safe)) - (cons _g142092142095_ - _g142093142097_))))) + (cons _g142096142099_ + _g142097142101_))))) (declare (not safe)) - (foldr1 __tmp152453 '() _L142073_)))) + (foldr1 __tmp152457 '() _L142077_)))) (declare (not safe)) - (null? __tmp152452)) - _L142072_ - (let ((_subst142107_ + (null? __tmp152456)) + _L142076_ + (let ((_subst142111_ (map cons - (let ((__tmp152451 - (lambda (_g142099142102_ - _g142100142104_) + (let ((__tmp152455 + (lambda (_g142103142106_ + _g142104142108_) (let () (declare (not safe)) - (cons _g142099142102_ - _g142100142104_))))) + (cons _g142103142106_ + _g142104142108_))))) (declare (not safe)) - (foldr1 __tmp152451 '() _L142073_)) - _args141989_))) + (foldr1 __tmp152455 '() _L142077_)) + _args141993_))) (declare (not safe)) (gxc#apply-expression-subst* - _L142072_ + _L142076_ 'subst: - _subst142107_)))) - _hd142013142067_ - _id142011142061_) + _subst142111_)))) + _hd142017142071_ + _id142015142065_) (let () (declare (not safe)) - (_g141993142019_ _g141994142022_))))) + (_g141997142023_ _g141998142026_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g141993142019_ - _g141994142022_)))))))) + (_g141997142023_ + _g141998142026_)))))))) (let () (declare (not safe)) - (_loop142006142045_ - _target142003142040_ + (_loop142010142049_ + _target142007142044_ '()))) (let () (declare (not safe)) - (_g141993142019_ _g141994142022_)))))) + (_g141997142023_ _g141998142026_)))))) (let () (declare (not safe)) - (_g141993142019_ _g141994142022_))))) + (_g141997142023_ _g141998142026_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g141993142019_ - _g141994142022_))) + (_g141997142023_ + _g141998142026_))) (let () (declare (not safe)) - (_g141993142019_ - _g141994142022_))) + (_g141997142023_ + _g141998142026_))) (let () (declare (not safe)) - (_g141993142019_ - _g141994142022_))))) + (_g141997142023_ + _g141998142026_))))) (let () (declare (not safe)) - (_g141993142019_ _g141994142022_)))))) + (_g141997142023_ _g141998142026_)))))) (declare (not safe)) - (_g141992142109_ _kont141991_)))) - (_nonlinear-block?141532_ - (lambda (_block141537_) - (letrec ((_nonlinear-expr?141539_ - (lambda (_expr141647_) - (let* ((___stx151069151070_ _expr141647_) - (_g141653141719_ + (_g141996142113_ _kont141995_)))) + (_nonlinear-block?141536_ + (lambda (_block141541_) + (letrec ((_nonlinear-expr?141543_ + (lambda (_expr141651_) + (let* ((___stx151073151074_ _expr141651_) + (_g141657141723_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151069151070_))))) - (let ((___kont151071151072_ (lambda () '#t)) - (___kont151073151074_ - (lambda (_L141918_) - (let* ((___stx151051151052_ - _L141918_) - (_g141936141945_ + ___stx151073151074_))))) + (let ((___kont151075151076_ (lambda () '#t)) + (___kont151077151078_ + (lambda (_L141922_) + (let* ((___stx151055151056_ + _L141922_) + (_g141940141949_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151051151052_))))) - (let ((___kont151053151054_ + ___stx151055151056_))))) + (let ((___kont151057151058_ (lambda () '#f)) - (___kont151055151056_ + (___kont151059151060_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx151051151052_)) - (let ((_e141940141957_ + ___stx151055151056_)) + (let ((_e141944141961_ (let () (declare (not safe)) (gx#stx-e - ___stx151051151052_)))) - (let ((_tl141938141962_ + ___stx151055151056_)))) + (let ((_tl141942141966_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e141940141957_))) - (_hd141939141960_ - (let () (declare (not safe)) (##car _e141940141957_)))) + (##cdr _e141944141961_))) + (_hd141943141964_ + (let () (declare (not safe)) (##car _e141944141961_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141939141960_)) + (gx#identifier? _hd141943141964_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd141939141960_)) - (___kont151053151054_) - (___kont151055151056_)) - (___kont151055151056_)))) + (gx#stx-eq? '%#call _hd141943141964_)) + (___kont151057151058_) + (___kont151059151060_)) + (___kont151059151060_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151055151056_)))))) - (___kont151077151078_ - (lambda (_L141816_) + (___kont151059151060_)))))) + (___kont151081151082_ + (lambda (_L141820_) (let () (declare (not safe)) - (_nonlinear-expr?141539_ - _L141816_)))) - (___kont151079151080_ - (lambda (_L141763_ - _L141764_ - _L141765_) - (let ((_$e141784_ + (_nonlinear-expr?141543_ + _L141820_)))) + (___kont151083151084_ + (lambda (_L141767_ + _L141768_ + _L141769_) + (let ((_$e141788_ (let () (declare (not safe)) - (_nonlinear-expr?141539_ - _L141764_)))) - (if _$e141784_ - _$e141784_ + (_nonlinear-expr?141543_ + _L141768_)))) + (if _$e141788_ + _$e141788_ (let () (declare (not safe)) - (_nonlinear-expr?141539_ - _L141763_)))))) - (___kont151081151082_ + (_nonlinear-expr?141543_ + _L141767_)))))) + (___kont151085151086_ (lambda () '#f))) - (let* ((___match151132151133_ - (lambda (_e141693141792_ - _hd141692141795_ - _tl141691141797_ - _e141696141800_ - _hd141695141803_ - _tl141694141805_) + (let* ((___match151136151137_ + (lambda (_e141697141796_ + _hd141696141799_ + _tl141695141801_ + _e141700141804_ + _hd141699141807_ + _tl141698141809_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141694141805_)) - (let ((_e141699141808_ + _tl141698141809_)) + (let ((_e141703141812_ (let () (declare (not safe)) (gx#stx-e - _tl141694141805_)))) - (let ((_tl141697141813_ + _tl141698141809_)))) + (let ((_tl141701141817_ (let () (declare (not safe)) - (##cdr _e141699141808_))) - (_hd141698141811_ + (##cdr _e141703141812_))) + (_hd141702141815_ (let () (declare (not safe)) - (##car _e141699141808_)))) + (##car _e141703141812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141697141813_)) - (___kont151077151078_ - _hd141698141811_) - (___kont151081151082_)))) - (___kont151081151082_)))) - (___match151116151117_ - (lambda (_e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_ - ___splice151075151076_ - _target141665141850_ - _tl141667141852_) - (letrec ((_loop141668141855_ - (lambda (_hd141666141858_) + _tl141701141817_)) + (___kont151081151082_ + _hd141702141815_) + (___kont151085151086_)))) + (___kont151085151086_)))) + (___match151120151121_ + (lambda (_e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_ + ___splice151079151080_ + _target141669141854_ + _tl141671141856_) + (letrec ((_loop141672141859_ + (lambda (_hd141670141862_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd141666141858_)) - (let ((_e141669141861_ + (gx#stx-pair? _hd141670141862_)) + (let ((_e141673141865_ (let () (declare (not safe)) - (gx#stx-e _hd141666141858_)))) - (let ((_lp-tl141671141866_ + (gx#stx-e _hd141670141862_)))) + (let ((_lp-tl141675141870_ (let () (declare (not safe)) - (##cdr _e141669141861_))) - (_lp-hd141670141864_ + (##cdr _e141673141865_))) + (_lp-hd141674141868_ (let () (declare (not safe)) - (##car _e141669141861_)))) + (##car _e141673141865_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141670141864_)) - (let ((_e141674141869_ + (gx#stx-pair? _lp-hd141674141868_)) + (let ((_e141678141873_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141670141864_)))) - (let ((_tl141672141874_ + (gx#stx-e _lp-hd141674141868_)))) + (let ((_tl141676141878_ (let () (declare (not safe)) - (##cdr _e141674141869_))) - (_hd141673141872_ + (##cdr _e141678141873_))) + (_hd141677141876_ (let () (declare (not safe)) - (##car _e141674141869_)))) + (##car _e141678141873_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141673141872_)) - (let ((_e141677141877_ + (gx#stx-pair? _hd141677141876_)) + (let ((_e141681141881_ (let () (declare (not safe)) - (gx#stx-e _hd141673141872_)))) - (let ((_tl141675141882_ + (gx#stx-e _hd141677141876_)))) + (let ((_tl141679141886_ (let () (declare (not safe)) - (##cdr _e141677141877_))) - (_hd141676141880_ + (##cdr _e141681141881_))) + (_hd141680141884_ (let () (declare (not safe)) - (##car _e141677141877_)))) + (##car _e141681141881_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141675141882_)) + _tl141679141886_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141672141874_)) - (let ((_e141680141885_ + _tl141676141878_)) + (let ((_e141684141889_ (let () (declare (not safe)) (gx#stx-e - _tl141672141874_)))) - (let ((_tl141678141890_ + _tl141676141878_)))) + (let ((_tl141682141894_ (let () (declare (not safe)) - (##cdr _e141680141885_))) - (_hd141679141888_ + (##cdr _e141684141889_))) + (_hd141683141892_ (let () (declare (not safe)) - (##car _e141680141885_)))) + (##car _e141684141889_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141679141888_)) - (let ((_e141683141893_ + _hd141683141892_)) + (let ((_e141687141897_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141679141888_)))) - (let ((_tl141681141898_ + (gx#stx-e _hd141683141892_)))) + (let ((_tl141685141902_ (let () (declare (not safe)) - (##cdr _e141683141893_))) - (_hd141682141896_ + (##cdr _e141687141897_))) + (_hd141686141900_ (let () (declare (not safe)) - (##car _e141683141893_)))) + (##car _e141687141897_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141682141896_)) + (gx#identifier? _hd141686141900_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141682141896_)) + (gx#stx-eq? '%#ref _hd141686141900_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141681141898_)) - (let ((_e141686141901_ + (gx#stx-pair? _tl141685141902_)) + (let ((_e141690141905_ (let () (declare (not safe)) - (gx#stx-e _tl141681141898_)))) - (let ((_tl141684141906_ + (gx#stx-e _tl141685141902_)))) + (let ((_tl141688141910_ (let () (declare (not safe)) - (##cdr _e141686141901_))) - (_hd141685141904_ + (##cdr _e141690141905_))) + (_hd141689141908_ (let () (declare (not safe)) - (##car _e141686141901_)))) + (##car _e141690141905_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141684141906_)) + (gx#stx-null? _tl141688141910_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl141678141890_)) + _tl141682141894_)) (let () (declare (not safe)) - (_loop141668141855_ - _lp-tl141671141866_)) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)))) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)))) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)))) + (_loop141672141859_ + _lp-tl141675141870_)) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)))) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)))) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)))) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)))) - (___match151132151133_ - _e141661141834_ - _hd141660141837_ - _tl141659141839_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_)))) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)))) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)))) + (___match151136151137_ + _e141665141838_ + _hd141664141841_ + _tl141663141843_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl141662141847_)) - (let ((_e141689141910_ + (gx#stx-pair? _tl141666141851_)) + (let ((_e141693141914_ (let () (declare (not safe)) - (gx#stx-e _tl141662141847_)))) - (let ((_tl141687141915_ + (gx#stx-e _tl141666141851_)))) + (let ((_tl141691141919_ (let () (declare (not safe)) - (##cdr _e141689141910_))) - (_hd141688141913_ + (##cdr _e141693141914_))) + (_hd141692141917_ (let () (declare (not safe)) - (##car _e141689141910_)))) + (##car _e141693141914_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141687141915_)) - (___kont151073151074_ _hd141688141913_) - (___kont151081151082_)))) - (___kont151081151082_))))))) + (gx#stx-null? _tl141691141919_)) + (___kont151077151078_ _hd141692141917_) + (___kont151085151086_)))) + (___kont151085151086_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141668141855_ - _target141665141850_)))))) + (_loop141672141859_ + _target141669141854_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx151069151070_)) - (let ((_e141657141975_ + ___stx151073151074_)) + (let ((_e141661141979_ (let () (declare (not safe)) (gx#stx-e - ___stx151069151070_)))) - (let ((_tl141655141980_ + ___stx151073151074_)))) + (let ((_tl141659141984_ (let () (declare (not safe)) - (##cdr _e141657141975_))) - (_hd141656141978_ + (##cdr _e141661141979_))) + (_hd141660141982_ (let () (declare (not safe)) - (##car _e141657141975_)))) + (##car _e141661141979_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141656141978_)) + _hd141660141982_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd141656141978_)) - (___kont151071151072_) + _hd141660141982_)) + (___kont151075151076_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd141656141978_)) + _hd141660141982_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl141655141980_)) - (let ((_e141664141842_ + (gx#stx-pair? _tl141659141984_)) + (let ((_e141668141846_ (let () (declare (not safe)) - (gx#stx-e _tl141655141980_)))) - (let ((_tl141662141847_ + (gx#stx-e _tl141659141984_)))) + (let ((_tl141666141851_ (let () (declare (not safe)) - (##cdr _e141664141842_))) - (_hd141663141845_ + (##cdr _e141668141846_))) + (_hd141667141849_ (let () (declare (not safe)) - (##car _e141664141842_)))) + (##car _e141668141846_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd141663141845_)) - (let ((___splice151075151076_ + (gx#stx-pair/null? _hd141667141849_)) + (let ((___splice151079151080_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd141663141845_ + _hd141667141849_ '0)))) - (let ((_tl141667141852_ + (let ((_tl141671141856_ (let () (declare (not safe)) (##vector-ref - ___splice151075151076_ + ___splice151079151080_ '1))) - (_target141665141850_ + (_target141669141854_ (let () (declare (not safe)) (##vector-ref - ___splice151075151076_ + ___splice151079151080_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141667141852_)) - (___match151116151117_ - _e141657141975_ - _hd141656141978_ - _tl141655141980_ - _e141664141842_ - _hd141663141845_ - _tl141662141847_ - ___splice151075151076_ - _target141665141850_ - _tl141667141852_) + (gx#stx-null? _tl141671141856_)) + (___match151120151121_ + _e141661141979_ + _hd141660141982_ + _tl141659141984_ + _e141668141846_ + _hd141667141849_ + _tl141666141851_ + ___splice151079151080_ + _target141669141854_ + _tl141671141856_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141662141847_)) - (let ((_e141699141808_ + (gx#stx-pair? _tl141666141851_)) + (let ((_e141703141812_ (let () (declare (not safe)) (gx#stx-e - _tl141662141847_)))) - (let ((_tl141697141813_ + _tl141666141851_)))) + (let ((_tl141701141817_ (let () (declare (not safe)) - (##cdr _e141699141808_))) - (_hd141698141811_ + (##cdr _e141703141812_))) + (_hd141702141815_ (let () (declare (not safe)) - (##car _e141699141808_)))) + (##car _e141703141812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141697141813_)) - (___kont151077151078_ - _hd141698141811_) - (___kont151081151082_)))) - (___kont151081151082_))))) + _tl141701141817_)) + (___kont151081151082_ + _hd141702141815_) + (___kont151085151086_)))) + (___kont151085151086_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141662141847_)) - (let ((_e141699141808_ + (gx#stx-pair? _tl141666141851_)) + (let ((_e141703141812_ (let () (declare (not safe)) - (gx#stx-e _tl141662141847_)))) - (let ((_tl141697141813_ + (gx#stx-e _tl141666141851_)))) + (let ((_tl141701141817_ (let () (declare (not safe)) - (##cdr _e141699141808_))) - (_hd141698141811_ + (##cdr _e141703141812_))) + (_hd141702141815_ (let () (declare (not safe)) - (##car _e141699141808_)))) + (##car _e141703141812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141697141813_)) - (___kont151077151078_ - _hd141698141811_) - (___kont151081151082_)))) - (___kont151081151082_))))) - (___kont151081151082_)) + (gx#stx-null? _tl141701141817_)) + (___kont151081151082_ + _hd141702141815_) + (___kont151085151086_)))) + (___kont151085151086_))))) + (___kont151085151086_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd141656141978_)) + (gx#stx-eq? '%#if _hd141660141982_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141655141980_)) - (let ((_e141708141739_ + (gx#stx-pair? _tl141659141984_)) + (let ((_e141712141743_ (let () (declare (not safe)) - (gx#stx-e _tl141655141980_)))) - (let ((_tl141706141744_ + (gx#stx-e _tl141659141984_)))) + (let ((_tl141710141748_ (let () (declare (not safe)) - (##cdr _e141708141739_))) - (_hd141707141742_ + (##cdr _e141712141743_))) + (_hd141711141746_ (let () (declare (not safe)) - (##car _e141708141739_)))) + (##car _e141712141743_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141706141744_)) - (let ((_e141711141747_ + (gx#stx-pair? _tl141710141748_)) + (let ((_e141715141751_ (let () (declare (not safe)) - (gx#stx-e _tl141706141744_)))) - (let ((_tl141709141752_ + (gx#stx-e _tl141710141748_)))) + (let ((_tl141713141756_ (let () (declare (not safe)) - (##cdr _e141711141747_))) - (_hd141710141750_ + (##cdr _e141715141751_))) + (_hd141714141754_ (let () (declare (not safe)) - (##car _e141711141747_)))) + (##car _e141715141751_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141709141752_)) - (let ((_e141714141755_ + (gx#stx-pair? _tl141713141756_)) + (let ((_e141718141759_ (let () (declare (not safe)) (gx#stx-e - _tl141709141752_)))) - (let ((_tl141712141760_ + _tl141713141756_)))) + (let ((_tl141716141764_ (let () (declare (not safe)) - (##cdr _e141714141755_))) - (_hd141713141758_ + (##cdr _e141718141759_))) + (_hd141717141762_ (let () (declare (not safe)) - (##car _e141714141755_)))) + (##car _e141718141759_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141712141760_)) - (___kont151079151080_ - _hd141713141758_ - _hd141710141750_ - _hd141707141742_) - (___kont151081151082_)))) - (___kont151081151082_)))) - (___kont151081151082_)))) - (___kont151081151082_)) - (___kont151081151082_)))) + _tl141716141764_)) + (___kont151083151084_ + _hd141717141762_ + _hd141714141754_ + _hd141711141746_) + (___kont151085151086_)))) + (___kont151085151086_)))) + (___kont151085151086_)))) + (___kont151085151086_)) + (___kont151085151086_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151081151082_)))) - (___kont151081151082_)))))))) - (let* ((_kont141541_ (caddr _block141537_)) - (_g141543141569_ - (lambda (_g141544141566_) + (___kont151085151086_)))) + (___kont151085151086_)))))))) + (let* ((_kont141545_ (caddr _block141541_)) + (_g141547141573_ + (lambda (_g141548141570_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g141544141566_)))) - (_g141542141644_ - (lambda (_g141544141572_) + _g141548141570_)))) + (_g141546141648_ + (lambda (_g141548141576_) (if (let () (declare (not safe)) - (gx#stx-pair? _g141544141572_)) - (let ((_e141549141574_ + (gx#stx-pair? _g141548141576_)) + (let ((_e141553141578_ (let () (declare (not safe)) - (gx#stx-e _g141544141572_)))) - (let ((_hd141548141577_ + (gx#stx-e _g141548141576_)))) + (let ((_hd141552141581_ (let () (declare (not safe)) - (##car _e141549141574_))) - (_tl141547141579_ + (##car _e141553141578_))) + (_tl141551141583_ (let () (declare (not safe)) - (##cdr _e141549141574_)))) + (##cdr _e141553141578_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141548141577_)) + _hd141552141581_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd141548141577_)) + _hd141552141581_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141547141579_)) - (let ((_e141552141582_ + _tl141551141583_)) + (let ((_e141556141586_ (let () (declare (not safe)) (gx#stx-e - _tl141547141579_)))) - (let ((_hd141551141585_ + _tl141551141583_)))) + (let ((_hd141555141589_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e141552141582_))) - (_tl141550141587_ - (let () (declare (not safe)) (##cdr _e141552141582_)))) + (##car _e141556141586_))) + (_tl141554141591_ + (let () (declare (not safe)) (##cdr _e141556141586_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd141551141585_)) - (let ((_g152455_ + (gx#stx-pair/null? _hd141555141589_)) + (let ((_g152459_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd141551141585_ '0)))) + (gx#syntax-split-splice _hd141555141589_ '0)))) (begin - (let ((_g152456_ + (let ((_g152460_ (let () (declare (not safe)) - (if (##values? _g152455_) - (##vector-length _g152455_) + (if (##values? _g152459_) + (##vector-length _g152459_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152456_ 2))) - (error "Context expects 2 values" _g152456_))) - (let ((_target141553141590_ + (##fx= _g152460_ 2))) + (error "Context expects 2 values" _g152460_))) + (let ((_target141557141594_ (let () (declare (not safe)) - (##vector-ref _g152455_ 0))) - (_tl141555141592_ + (##vector-ref _g152459_ 0))) + (_tl141559141596_ (let () (declare (not safe)) - (##vector-ref _g152455_ 1)))) + (##vector-ref _g152459_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141555141592_)) - (letrec ((_loop141556141595_ - (lambda (_hd141554141598_ - _id141560141600_) + (gx#stx-null? _tl141559141596_)) + (letrec ((_loop141560141599_ + (lambda (_hd141558141602_ + _id141564141604_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141554141598_)) - (let ((_e141557141603_ + _hd141558141602_)) + (let ((_e141561141607_ (let () (declare (not safe)) (gx#stx-e - _hd141554141598_)))) - (let ((_lp-hd141558141606_ + _hd141558141602_)))) + (let ((_lp-hd141562141610_ (let () (declare (not safe)) - (##car _e141557141603_))) - (_lp-tl141559141608_ + (##car _e141561141607_))) + (_lp-tl141563141612_ (let () (declare (not safe)) - (##cdr _e141557141603_)))) - (let ((__tmp152457 + (##cdr _e141561141607_)))) + (let ((__tmp152461 (let () (declare (not safe)) - (cons _lp-hd141558141606_ + (cons _lp-hd141562141610_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id141560141600_)))) + _id141564141604_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop141556141595_ - _lp-tl141559141608_ - __tmp152457)))) - (let ((_id141561141611_ - (reverse _id141560141600_))) + (_loop141560141599_ + _lp-tl141563141612_ + __tmp152461)))) + (let ((_id141565141615_ + (reverse _id141564141604_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141550141587_)) - (let ((_e141564141614_ + _tl141554141591_)) + (let ((_e141568141618_ (let () (declare (not safe)) (gx#stx-e - _tl141550141587_)))) - (let ((_hd141563141617_ + _tl141554141591_)))) + (let ((_hd141567141621_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e141564141614_))) - (_tl141562141619_ - (let () (declare (not safe)) (##cdr _e141564141614_)))) + (##car _e141568141618_))) + (_tl141566141623_ + (let () (declare (not safe)) (##cdr _e141568141618_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141562141619_)) - ((lambda (_L141622_ _L141623_) + (gx#stx-null? _tl141566141623_)) + ((lambda (_L141626_ _L141627_) (let () (declare (not safe)) - (_nonlinear-expr?141539_ _L141622_))) - _hd141563141617_ - _id141561141611_) + (_nonlinear-expr?141543_ _L141626_))) + _hd141567141621_ + _id141565141615_) (let () (declare (not safe)) - (_g141543141569_ _g141544141572_))))) + (_g141547141573_ _g141548141576_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g141543141569_ - _g141544141572_)))))))) + (_g141547141573_ + _g141548141576_)))))))) (let () (declare (not safe)) - (_loop141556141595_ - _target141553141590_ + (_loop141560141599_ + _target141557141594_ '()))) (let () (declare (not safe)) - (_g141543141569_ _g141544141572_)))))) + (_g141547141573_ _g141548141576_)))))) (let () (declare (not safe)) - (_g141543141569_ _g141544141572_))))) + (_g141547141573_ _g141548141576_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g141543141569_ - _g141544141572_))) + (_g141547141573_ + _g141548141576_))) (let () (declare (not safe)) - (_g141543141569_ - _g141544141572_))) + (_g141547141573_ + _g141548141576_))) (let () (declare (not safe)) - (_g141543141569_ - _g141544141572_))))) + (_g141547141573_ + _g141548141576_))))) (let () (declare (not safe)) - (_g141543141569_ _g141544141572_)))))) + (_g141547141573_ _g141548141576_)))))) (declare (not safe)) - (_g141542141644_ _kont141541_)))))) - (let ((__tmp152458 + (_g141546141648_ _kont141545_)))))) + (let ((__tmp152462 (lambda () - (let ((__tmp152459 + (let ((__tmp152463 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp152460 + (let ((__tmp152464 (lambda () (let () (declare (not safe)) - (_optimize-e141522_ - _body141269_))))) + (_optimize-e141526_ + _body141273_))))) (declare (not safe)) - (_do-splice!141521_ __tmp152460)) + (_do-splice!141525_ __tmp152464)) (let () (declare (not safe)) - (_optimize-e141522_ _body141269_)))))) + (_optimize-e141526_ _body141273_)))))) (declare (not safe)) - (_do-bind141518_ _bind141271_ __tmp152459))))) + (_do-bind141522_ _bind141275_ __tmp152463))))) (declare (not safe)) - (_do-assert141511_ _assert141270_ __tmp152458))))) + (_do-assert141515_ _assert141274_ __tmp152462))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks141181_ _konts141182_) - (letrec* ((_rtab141184_ + (lambda (_blocks141185_ _konts141186_) + (letrec* ((_rtab141188_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block141186_) - (let ((__tmp152461 (caddr _block141186_))) + (lambda (_block141190_) + (let ((__tmp152465 (caddr _block141190_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp152461 + __tmp152465 'table: - _rtab141184_))) - _konts141182_) - (let _lp141188_ ((_rest141190_ _blocks141181_) (_r141191_ '())) - (let* ((_rest141192141200_ _rest141190_) - (_else141194141208_ (lambda () (reverse _r141191_))) - (_K141196141257_ - (lambda (_rest141211_ _block141212_) - (let* ((_block141213141224_ _block141212_) - (_E141215141228_ + _rtab141188_))) + _konts141186_) + (let _lp141192_ ((_rest141194_ _blocks141185_) (_r141195_ '())) + (let* ((_rest141196141204_ _rest141194_) + (_else141198141212_ (lambda () (reverse _r141195_))) + (_K141200141261_ + (lambda (_rest141215_ _block141216_) + (let* ((_block141217141228_ _block141216_) + (_E141219141232_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block141213141224_)))) - (_K141216141235_ - (lambda (_kont141231_ _type141232_ _name141233_) - (if (let ((__tmp152463 + _block141217141228_)))) + (_K141220141239_ + (lambda (_kont141235_ _type141236_ _name141237_) + (if (let ((__tmp152467 (let () (declare (not safe)) (gxc#identifier-symbol - _name141233_)))) + _name141237_)))) (declare (not safe)) - (hash-get _rtab141184_ __tmp152463)) + (hash-get _rtab141188_ __tmp152467)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont141231_ + _kont141235_ 'table: - _rtab141184_)) - (let ((__tmp152462 + _rtab141188_)) + (let ((__tmp152466 (let () (declare (not safe)) - (cons _block141212_ - _r141191_)))) + (cons _block141216_ + _r141195_)))) (declare (not safe)) - (_lp141188_ _rest141211_ __tmp152462))) + (_lp141192_ _rest141215_ __tmp152466))) (let () (declare (not safe)) - (_lp141188_ _rest141211_ _r141191_)))))) + (_lp141192_ _rest141215_ _r141195_)))))) (if (let () (declare (not safe)) - (##pair? _block141213141224_)) - (let ((_hd141217141238_ + (##pair? _block141217141228_)) + (let ((_hd141221141242_ (let () (declare (not safe)) - (##car _block141213141224_))) - (_tl141218141240_ + (##car _block141217141228_))) + (_tl141222141244_ (let () (declare (not safe)) - (##cdr _block141213141224_)))) - (let ((_name141243_ _hd141217141238_)) + (##cdr _block141217141228_)))) + (let ((_name141247_ _hd141221141242_)) (if (let () (declare (not safe)) - (##pair? _tl141218141240_)) - (let ((_hd141219141245_ + (##pair? _tl141222141244_)) + (let ((_hd141223141249_ (let () (declare (not safe)) - (##car _tl141218141240_))) - (_tl141220141247_ + (##car _tl141222141244_))) + (_tl141224141251_ (let () (declare (not safe)) - (##cdr _tl141218141240_)))) - (let ((_type141250_ _hd141219141245_)) + (##cdr _tl141222141244_)))) + (let ((_type141254_ _hd141223141249_)) (if (let () (declare (not safe)) - (##pair? _tl141220141247_)) - (let* ((_hd141221141252_ + (##pair? _tl141224141251_)) + (let* ((_hd141225141256_ (let () (declare (not safe)) - (##car _tl141220141247_))) - (_kont141255_ - _hd141221141252_)) + (##car _tl141224141251_))) + (_kont141259_ + _hd141225141256_)) (declare (not safe)) - (_K141216141235_ - _kont141255_ - _type141250_ - _name141243_)) + (_K141220141239_ + _kont141259_ + _type141254_ + _name141247_)) (let () (declare (not safe)) - (_E141215141228_))))) + (_E141219141232_))))) (let () (declare (not safe)) - (_E141215141228_))))) + (_E141219141232_))))) (let () (declare (not safe)) - (_E141215141228_))))))) - (if (let () (declare (not safe)) (##pair? _rest141192141200_)) - (let ((_hd141197141260_ + (_E141219141232_))))))) + (if (let () (declare (not safe)) (##pair? _rest141196141204_)) + (let ((_hd141201141264_ (let () (declare (not safe)) - (##car _rest141192141200_))) - (_tl141198141262_ + (##car _rest141196141204_))) + (_tl141202141266_ (let () (declare (not safe)) - (##cdr _rest141192141200_)))) - (let* ((_block141265_ _hd141197141260_) - (_rest141267_ _tl141198141262_)) + (##cdr _rest141196141204_)))) + (let* ((_block141269_ _hd141201141264_) + (_rest141271_ _tl141202141266_)) (declare (not safe)) - (_K141196141257_ _rest141267_ _block141265_))) - (let () (declare (not safe)) (_else141194141208_)))))))) + (_K141200141261_ _rest141271_ _block141269_))) + (let () (declare (not safe)) (_else141198141212_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks141105_ _konts141106_) - (let* ((_blocks141107141123_ _blocks141105_) - (_else141109141131_ (lambda () _blocks141105_)) - (_K141111141149_ - (lambda (_rest141134_ _kont141135_ _name141136_) - (letrec* ((_rtab141138_ + (lambda (_blocks141109_ _konts141110_) + (let* ((_blocks141111141127_ _blocks141109_) + (_else141113141135_ (lambda () _blocks141109_)) + (_K141115141153_ + (lambda (_rest141138_ _kont141139_ _name141140_) + (letrec* ((_rtab141142_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block141140_) - (let ((__tmp152464 (caddr _block141140_))) + (lambda (_block141144_) + (let ((__tmp152468 (caddr _block141144_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp152464 + __tmp152468 'table: - _rtab141138_))) - _konts141106_) - (if (fx= (let ((__tmp152472 + _rtab141142_))) + _konts141110_) + (if (fx= (let ((__tmp152476 (let () (declare (not safe)) - (gxc#identifier-symbol _name141136_)))) + (gxc#identifier-symbol _name141140_)))) (declare (not safe)) - (hash-ref__0 _rtab141138_ __tmp152472)) + (hash-ref__0 _rtab141142_ __tmp152476)) '1) - (let* ((_rblock141144_ - (let ((__tmp152465 - (lambda (_block141142_) - (let ((__tmp152467 - (caddr _block141142_)) - (__tmp152466 + (let* ((_rblock141148_ + (let ((__tmp152469 + (lambda (_block141146_) + (let ((__tmp152471 + (caddr _block141146_)) + (__tmp152470 (let () (declare (not safe)) - (cons _name141136_ '())))) + (cons _name141140_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp152467 + __tmp152471 'ids: - __tmp152466))))) + __tmp152470))))) (declare (not safe)) - (find __tmp152465 _konts141106_))) - (_assert141146_ + (find __tmp152469 _konts141110_))) + (_assert141150_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock141144_ - _name141136_)))) - (let ((__tmp152468 - (let ((__tmp152469 - (let ((__tmp152470 - (let ((__tmp152471 + _rblock141148_ + _name141140_)))) + (let ((__tmp152472 + (let ((__tmp152473 + (let ((__tmp152474 + (let ((__tmp152475 (let () (declare (not safe)) - (cons _assert141146_ + (cons _assert141150_ '())))) (declare (not safe)) - (cons _kont141135_ - __tmp152471)))) + (cons _kont141139_ + __tmp152475)))) (declare (not safe)) - (cons 'restart: __tmp152470)))) + (cons 'restart: __tmp152474)))) (declare (not safe)) - (cons _name141136_ __tmp152469)))) + (cons _name141140_ __tmp152473)))) (declare (not safe)) - (cons __tmp152468 _rest141134_))) - _blocks141105_))))) - (if (let () (declare (not safe)) (##pair? _blocks141107141123_)) - (let ((_hd141112141152_ + (cons __tmp152472 _rest141138_))) + _blocks141109_))))) + (if (let () (declare (not safe)) (##pair? _blocks141111141127_)) + (let ((_hd141116141156_ (let () (declare (not safe)) - (##car _blocks141107141123_))) - (_tl141113141154_ + (##car _blocks141111141127_))) + (_tl141117141158_ (let () (declare (not safe)) - (##cdr _blocks141107141123_)))) - (if (let () (declare (not safe)) (##pair? _hd141112141152_)) - (let ((_hd141114141157_ + (##cdr _blocks141111141127_)))) + (if (let () (declare (not safe)) (##pair? _hd141116141156_)) + (let ((_hd141118141161_ (let () (declare (not safe)) - (##car _hd141112141152_))) - (_tl141115141159_ + (##car _hd141116141156_))) + (_tl141119141163_ (let () (declare (not safe)) - (##cdr _hd141112141152_)))) - (let ((_name141162_ _hd141114141157_)) + (##cdr _hd141116141156_)))) + (let ((_name141166_ _hd141118141161_)) (if (let () (declare (not safe)) - (##pair? _tl141115141159_)) - (let ((_hd141116141164_ + (##pair? _tl141119141163_)) + (let ((_hd141120141168_ (let () (declare (not safe)) - (##car _tl141115141159_))) - (_tl141117141166_ + (##car _tl141119141163_))) + (_tl141121141170_ (let () (declare (not safe)) - (##cdr _tl141115141159_)))) + (##cdr _tl141119141163_)))) (if (let () (declare (not safe)) - (##eq? _hd141116141164_ 'restart:)) + (##eq? _hd141120141168_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl141117141166_)) - (let ((_hd141118141169_ + (##pair? _tl141121141170_)) + (let ((_hd141122141173_ (let () (declare (not safe)) - (##car _tl141117141166_))) - (_tl141119141171_ + (##car _tl141121141170_))) + (_tl141123141175_ (let () (declare (not safe)) - (##cdr _tl141117141166_)))) - (let ((_kont141174_ _hd141118141169_)) + (##cdr _tl141121141170_)))) + (let ((_kont141178_ _hd141122141173_)) (if (let () (declare (not safe)) - (##pair? _tl141119141171_)) - (let ((_tl141121141176_ + (##pair? _tl141123141175_)) + (let ((_tl141125141180_ (let () (declare (not safe)) - (##cdr _tl141119141171_)))) + (##cdr _tl141123141175_)))) (if (let () (declare (not safe)) - (##null? _tl141121141176_)) - (let ((_rest141179_ - _tl141113141154_)) + (##null? _tl141125141180_)) + (let ((_rest141183_ + _tl141117141158_)) (declare (not safe)) - (_K141111141149_ - _rest141179_ - _kont141174_ - _name141162_)) + (_K141115141153_ + _rest141183_ + _kont141178_ + _name141166_)) (let () (declare (not safe)) - (_else141109141131_)))) + (_else141113141135_)))) (let () (declare (not safe)) - (_else141109141131_))))) + (_else141113141135_))))) (let () (declare (not safe)) - (_else141109141131_))) + (_else141113141135_))) (let () (declare (not safe)) - (_else141109141131_)))) + (_else141113141135_)))) (let () (declare (not safe)) - (_else141109141131_))))) - (let () (declare (not safe)) (_else141109141131_)))) - (let () (declare (not safe)) (_else141109141131_)))))) + (_else141113141135_))))) + (let () (declare (not safe)) (_else141113141135_)))) + (let () (declare (not safe)) (_else141113141135_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block140501_ _name140502_) - (letrec ((_assert-restart140504_ - (lambda (_expr140660_ _assert140661_) - (let* ((___stx151173151174_ _expr140660_) - (_g140667140764_ + (lambda (_block140505_ _name140506_) + (letrec ((_assert-restart140508_ + (lambda (_expr140664_ _assert140665_) + (let* ((___stx151177151178_ _expr140664_) + (_g140671140768_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151173151174_))))) - (let ((___kont151175151176_ - (lambda (_L141080_ _L141081_ _L141082_) - (let ((_$e141099_ - (let ((__tmp152473 - (let ((__tmp152474 + ___stx151177151178_))))) + (let ((___kont151179151180_ + (lambda (_L141084_ _L141085_ _L141086_) + (let ((_$e141103_ + (let ((__tmp152477 + (let ((__tmp152478 (let () (declare (not safe)) - (cons _L141082_ '#t)))) + (cons _L141086_ '#t)))) (declare (not safe)) - (cons __tmp152474 - _assert140661_)))) + (cons __tmp152478 + _assert140665_)))) (declare (not safe)) - (_assert-restart140504_ - _L141081_ - __tmp152473)))) - (if _$e141099_ - _$e141099_ - (let ((__tmp152475 - (let ((__tmp152476 + (_assert-restart140508_ + _L141085_ + __tmp152477)))) + (if _$e141103_ + _$e141103_ + (let ((__tmp152479 + (let ((__tmp152480 (let () (declare (not safe)) - (cons _L141082_ '#f)))) + (cons _L141086_ '#f)))) (declare (not safe)) - (cons __tmp152476 - _assert140661_)))) + (cons __tmp152480 + _assert140665_)))) (declare (not safe)) - (_assert-restart140504_ - _L141080_ - __tmp152475)))))) - (___kont151177151178_ - (lambda (_L141028_) + (_assert-restart140508_ + _L141084_ + __tmp152479)))))) + (___kont151181151182_ + (lambda (_L141032_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L141028_ - _name140502_)) - _assert140661_ + _L141032_ + _name140506_)) + _assert140665_ '#f))) - (___kont151179151180_ - (lambda (_L140978_) + (___kont151183151184_ + (lambda (_L140982_) (let () (declare (not safe)) - (_assert-restart140504_ - _L140978_ - _assert140661_)))) - (___kont151181151182_ - (lambda (_L140904_ - _L140905_ - _L140906_ - _L140907_ - _L140908_) + (_assert-restart140508_ + _L140982_ + _assert140665_)))) + (___kont151185151186_ + (lambda (_L140908_ + _L140909_ + _L140910_ + _L140911_ + _L140912_) (let () (declare (not safe)) - (_assert-restart140504_ - _L140906_ - _assert140661_)))) - (___kont151187151188_ (lambda () '#f))) - (let ((___match151342151343_ - (lambda (_e140714140776_ - _hd140713140779_ - _tl140712140781_ - _e140717140784_ - _hd140716140787_ - _tl140715140789_ - _e140720140792_ - _hd140719140795_ - _tl140718140797_ - _e140723140800_ - _hd140722140803_ - _tl140721140805_ - _e140726140808_ - _hd140725140811_ - _tl140724140813_ - _e140729140816_ - _hd140728140819_ - _tl140727140821_ - _e140732140824_ - _hd140731140827_ - _tl140730140829_ - _e140735140832_ - _hd140734140835_ - _tl140733140837_ - ___splice151183151184_ - _target140736140840_ - _tl140738140842_) - (letrec ((_loop140739140845_ - (lambda (_hd140737140848_ - _id140743140850_) + (_assert-restart140508_ + _L140910_ + _assert140665_)))) + (___kont151191151192_ (lambda () '#f))) + (let ((___match151346151347_ + (lambda (_e140718140780_ + _hd140717140783_ + _tl140716140785_ + _e140721140788_ + _hd140720140791_ + _tl140719140793_ + _e140724140796_ + _hd140723140799_ + _tl140722140801_ + _e140727140804_ + _hd140726140807_ + _tl140725140809_ + _e140730140812_ + _hd140729140815_ + _tl140728140817_ + _e140733140820_ + _hd140732140823_ + _tl140731140825_ + _e140736140828_ + _hd140735140831_ + _tl140734140833_ + _e140739140836_ + _hd140738140839_ + _tl140737140841_ + ___splice151187151188_ + _target140740140844_ + _tl140742140846_) + (letrec ((_loop140743140849_ + (lambda (_hd140741140852_ + _id140747140854_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140737140848_)) - (let ((_e140740140853_ + _hd140741140852_)) + (let ((_e140744140857_ (let () (declare (not safe)) (gx#stx-e - _hd140737140848_)))) - (let ((_lp-tl140742140858_ + _hd140741140852_)))) + (let ((_lp-tl140746140862_ (let () (declare (not safe)) - (##cdr _e140740140853_))) - (_lp-hd140741140856_ + (##cdr _e140744140857_))) + (_lp-hd140745140860_ (let () (declare (not safe)) - (##car _e140740140853_)))) - (let ((__tmp152478 + (##car _e140744140857_)))) + (let ((__tmp152482 (let () (declare (not safe)) - (cons _lp-hd140741140856_ + (cons _lp-hd140745140860_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id140743140850_)))) + _id140747140854_)))) (declare (not safe)) - (_loop140739140845_ _lp-tl140742140858_ __tmp152478)))) + (_loop140743140849_ _lp-tl140746140862_ __tmp152482)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id140744140861_ - (reverse _id140743140850_))) + (let ((_id140748140865_ + (reverse _id140747140854_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140733140837_)) - (let ((_e140747140864_ + _tl140737140841_)) + (let ((_e140751140868_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl140733140837_)))) - (let ((_tl140745140869_ - (let () (declare (not safe)) (##cdr _e140747140864_))) - (_hd140746140867_ - (let () (declare (not safe)) (##car _e140747140864_)))) + (gx#stx-e _tl140737140841_)))) + (let ((_tl140749140873_ + (let () (declare (not safe)) (##cdr _e140751140868_))) + (_hd140750140871_ + (let () (declare (not safe)) (##car _e140751140868_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140745140869_)) + (gx#stx-null? _tl140749140873_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140727140821_)) + (gx#stx-null? _tl140731140825_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl140718140797_)) - (let ((___splice151185151186_ + (gx#stx-pair/null? _tl140722140801_)) + (let ((___splice151189151190_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl140718140797_ + _tl140722140801_ '0)))) - (let ((_tl140750140874_ + (let ((_tl140754140878_ (let () (declare (not safe)) (##vector-ref - ___splice151185151186_ + ___splice151189151190_ '1))) - (_target140748140872_ + (_target140752140876_ (let () (declare (not safe)) (##vector-ref - ___splice151185151186_ + ___splice151189151190_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140750140874_)) - (letrec ((_loop140751140877_ - (lambda (_hd140749140880_ - _bind140755140882_) + (gx#stx-null? _tl140754140878_)) + (letrec ((_loop140755140881_ + (lambda (_hd140753140884_ + _bind140759140886_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140749140880_)) - (let ((_e140752140885_ + _hd140753140884_)) + (let ((_e140756140889_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd140749140880_)))) - (let ((_lp-tl140754140890_ - (let () (declare (not safe)) (##cdr _e140752140885_))) - (_lp-hd140753140888_ - (let () (declare (not safe)) (##car _e140752140885_)))) - (let ((__tmp152477 + (gx#stx-e _hd140753140884_)))) + (let ((_lp-tl140758140894_ + (let () (declare (not safe)) (##cdr _e140756140889_))) + (_lp-hd140757140892_ + (let () (declare (not safe)) (##car _e140756140889_)))) + (let ((__tmp152481 (let () (declare (not safe)) - (cons _lp-hd140753140888_ _bind140755140882_)))) + (cons _lp-hd140757140892_ _bind140759140886_)))) (declare (not safe)) - (_loop140751140877_ _lp-tl140754140890_ __tmp152477)))) - (let ((_bind140756140893_ (reverse _bind140755140882_))) + (_loop140755140881_ _lp-tl140758140894_ __tmp152481)))) + (let ((_bind140760140897_ (reverse _bind140759140886_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140715140789_)) - (let ((_e140759140896_ + (gx#stx-pair? _tl140719140793_)) + (let ((_e140763140900_ (let () (declare (not safe)) - (gx#stx-e _tl140715140789_)))) - (let ((_tl140757140901_ + (gx#stx-e _tl140719140793_)))) + (let ((_tl140761140905_ (let () (declare (not safe)) - (##cdr _e140759140896_))) - (_hd140758140899_ + (##cdr _e140763140900_))) + (_hd140762140903_ (let () (declare (not safe)) - (##car _e140759140896_)))) + (##car _e140763140900_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140757140901_)) - (___kont151181151182_ - _hd140758140899_ - _bind140756140893_ - _hd140746140867_ - _id140744140861_ - _hd140725140811_) - (___kont151187151188_)))) - (___kont151187151188_))))))) + (gx#stx-null? _tl140761140905_)) + (___kont151185151186_ + _hd140762140903_ + _bind140760140897_ + _hd140750140871_ + _id140748140865_ + _hd140729140815_) + (___kont151191151192_)))) + (___kont151191151192_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop140751140877_ - _target140748140872_ + (_loop140755140881_ + _target140752140876_ '()))) - (___kont151187151188_)))) - (___kont151187151188_)) - (___kont151187151188_)) - (___kont151187151188_)))) - (___kont151187151188_))))))) + (___kont151191151192_)))) + (___kont151191151192_)) + (___kont151191151192_)) + (___kont151191151192_)))) + (___kont151191151192_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop140739140845_ - _target140736140840_ + (_loop140743140849_ + _target140740140844_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151173151174_)) - (let ((_e140674141048_ + (gx#stx-pair? ___stx151177151178_)) + (let ((_e140678141052_ (let () (declare (not safe)) - (gx#stx-e ___stx151173151174_)))) - (let ((_tl140672141053_ + (gx#stx-e ___stx151177151178_)))) + (let ((_tl140676141057_ (let () (declare (not safe)) - (##cdr _e140674141048_))) - (_hd140673141051_ + (##cdr _e140678141052_))) + (_hd140677141055_ (let () (declare (not safe)) - (##car _e140674141048_)))) + (##car _e140678141052_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140673141051_)) + (gx#identifier? _hd140677141055_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd140673141051_)) + _hd140677141055_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140672141053_)) - (let ((_e140677141056_ + _tl140676141057_)) + (let ((_e140681141060_ (let () (declare (not safe)) (gx#stx-e - _tl140672141053_)))) - (let ((_tl140675141061_ + _tl140676141057_)))) + (let ((_tl140679141065_ (let () (declare (not safe)) - (##cdr _e140677141056_))) - (_hd140676141059_ + (##cdr _e140681141060_))) + (_hd140680141063_ (let () (declare (not safe)) - (##car _e140677141056_)))) + (##car _e140681141060_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140675141061_)) - (let ((_e140680141064_ + _tl140679141065_)) + (let ((_e140684141068_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl140675141061_)))) - (let ((_tl140678141069_ - (let () (declare (not safe)) (##cdr _e140680141064_))) - (_hd140679141067_ - (let () (declare (not safe)) (##car _e140680141064_)))) + (gx#stx-e _tl140679141065_)))) + (let ((_tl140682141073_ + (let () (declare (not safe)) (##cdr _e140684141068_))) + (_hd140683141071_ + (let () (declare (not safe)) (##car _e140684141068_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140678141069_)) - (let ((_e140683141072_ + (gx#stx-pair? _tl140682141073_)) + (let ((_e140687141076_ (let () (declare (not safe)) - (gx#stx-e _tl140678141069_)))) - (let ((_tl140681141077_ + (gx#stx-e _tl140682141073_)))) + (let ((_tl140685141081_ (let () (declare (not safe)) - (##cdr _e140683141072_))) - (_hd140682141075_ + (##cdr _e140687141076_))) + (_hd140686141079_ (let () (declare (not safe)) - (##car _e140683141072_)))) + (##car _e140687141076_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140681141077_)) - (___kont151175151176_ - _hd140682141075_ - _hd140679141067_ - _hd140676141059_) - (___kont151187151188_)))) - (___kont151187151188_)))) - (___kont151187151188_)))) + (gx#stx-null? _tl140685141081_)) + (___kont151179151180_ + _hd140686141079_ + _hd140683141071_ + _hd140680141063_) + (___kont151191151192_)))) + (___kont151191151192_)))) + (___kont151191151192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151187151188_)) + (___kont151191151192_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd140673141051_)) + _hd140677141055_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140672141053_)) - (let ((_e140690141004_ + _tl140676141057_)) + (let ((_e140694141008_ (let () (declare (not safe)) (gx#stx-e - _tl140672141053_)))) - (let ((_tl140688141009_ + _tl140676141057_)))) + (let ((_tl140692141013_ (let () (declare (not safe)) - (##cdr _e140690141004_))) - (_hd140689141007_ + (##cdr _e140694141008_))) + (_hd140693141011_ (let () (declare (not safe)) - (##car _e140690141004_)))) + (##car _e140694141008_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140689141007_)) - (let ((_e140693141012_ + _hd140693141011_)) + (let ((_e140697141016_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd140689141007_)))) - (let ((_tl140691141017_ + (gx#stx-e _hd140693141011_)))) + (let ((_tl140695141021_ (let () (declare (not safe)) - (##cdr _e140693141012_))) - (_hd140692141015_ + (##cdr _e140697141016_))) + (_hd140696141019_ (let () (declare (not safe)) - (##car _e140693141012_)))) + (##car _e140697141016_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140692141015_)) + (gx#identifier? _hd140696141019_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140692141015_)) + (gx#stx-eq? '%#ref _hd140696141019_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140691141017_)) - (let ((_e140696141020_ + (gx#stx-pair? _tl140695141021_)) + (let ((_e140700141024_ (let () (declare (not safe)) - (gx#stx-e _tl140691141017_)))) - (let ((_tl140694141025_ + (gx#stx-e _tl140695141021_)))) + (let ((_tl140698141029_ (let () (declare (not safe)) - (##cdr _e140696141020_))) - (_hd140695141023_ + (##cdr _e140700141024_))) + (_hd140699141027_ (let () (declare (not safe)) - (##car _e140696141020_)))) + (##car _e140700141024_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140694141025_)) - (___kont151177151178_ - _hd140695141023_) - (___kont151187151188_)))) - (___kont151187151188_)) - (___kont151187151188_)) - (___kont151187151188_)))) - (___kont151187151188_)))) + (gx#stx-null? _tl140698141029_)) + (___kont151181151182_ + _hd140699141027_) + (___kont151191151192_)))) + (___kont151191151192_)) + (___kont151191151192_)) + (___kont151191151192_)))) + (___kont151191151192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151187151188_)) + (___kont151191151192_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd140673141051_)) + _hd140677141055_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140672141053_)) - (let ((_e140703140962_ + _tl140676141057_)) + (let ((_e140707140966_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl140672141053_)))) - (let ((_tl140701140967_ - (let () (declare (not safe)) (##cdr _e140703140962_))) - (_hd140702140965_ - (let () (declare (not safe)) (##car _e140703140962_)))) + (gx#stx-e _tl140676141057_)))) + (let ((_tl140705140971_ + (let () (declare (not safe)) (##cdr _e140707140966_))) + (_hd140706140969_ + (let () (declare (not safe)) (##car _e140707140966_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140701140967_)) - (let ((_e140706140970_ + (gx#stx-pair? _tl140705140971_)) + (let ((_e140710140974_ (let () (declare (not safe)) - (gx#stx-e _tl140701140967_)))) - (let ((_tl140704140975_ + (gx#stx-e _tl140705140971_)))) + (let ((_tl140708140979_ (let () (declare (not safe)) - (##cdr _e140706140970_))) - (_hd140705140973_ + (##cdr _e140710140974_))) + (_hd140709140977_ (let () (declare (not safe)) - (##car _e140706140970_)))) + (##car _e140710140974_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140704140975_)) - (___kont151179151180_ _hd140705140973_) - (___kont151187151188_)))) - (___kont151187151188_)))) - (___kont151187151188_)) + (gx#stx-null? _tl140708140979_)) + (___kont151183151184_ _hd140709140977_) + (___kont151191151192_)))) + (___kont151191151192_)))) + (___kont151191151192_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd140673141051_)) + _hd140677141055_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140672141053_)) - (let ((_e140717140784_ + _tl140676141057_)) + (let ((_e140721140788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl140672141053_)))) - (let ((_tl140715140789_ + (gx#stx-e _tl140676141057_)))) + (let ((_tl140719140793_ (let () (declare (not safe)) - (##cdr _e140717140784_))) - (_hd140716140787_ + (##cdr _e140721140788_))) + (_hd140720140791_ (let () (declare (not safe)) - (##car _e140717140784_)))) + (##car _e140721140788_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140716140787_)) - (let ((_e140720140792_ + (gx#stx-pair? _hd140720140791_)) + (let ((_e140724140796_ (let () (declare (not safe)) - (gx#stx-e _hd140716140787_)))) - (let ((_tl140718140797_ + (gx#stx-e _hd140720140791_)))) + (let ((_tl140722140801_ (let () (declare (not safe)) - (##cdr _e140720140792_))) - (_hd140719140795_ + (##cdr _e140724140796_))) + (_hd140723140799_ (let () (declare (not safe)) - (##car _e140720140792_)))) + (##car _e140724140796_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140719140795_)) - (let ((_e140723140800_ + (gx#stx-pair? _hd140723140799_)) + (let ((_e140727140804_ (let () (declare (not safe)) - (gx#stx-e _hd140719140795_)))) - (let ((_tl140721140805_ + (gx#stx-e _hd140723140799_)))) + (let ((_tl140725140809_ (let () (declare (not safe)) - (##cdr _e140723140800_))) - (_hd140722140803_ + (##cdr _e140727140804_))) + (_hd140726140807_ (let () (declare (not safe)) - (##car _e140723140800_)))) + (##car _e140727140804_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140722140803_)) - (let ((_e140726140808_ + (gx#stx-pair? _hd140726140807_)) + (let ((_e140730140812_ (let () (declare (not safe)) (gx#stx-e - _hd140722140803_)))) - (let ((_tl140724140813_ + _hd140726140807_)))) + (let ((_tl140728140817_ (let () (declare (not safe)) - (##cdr _e140726140808_))) - (_hd140725140811_ + (##cdr _e140730140812_))) + (_hd140729140815_ (let () (declare (not safe)) - (##car _e140726140808_)))) + (##car _e140730140812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140724140813_)) + _tl140728140817_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140721140805_)) - (let ((_e140729140816_ + _tl140725140809_)) + (let ((_e140733140820_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl140721140805_)))) - (let ((_tl140727140821_ - (let () (declare (not safe)) (##cdr _e140729140816_))) - (_hd140728140819_ - (let () (declare (not safe)) (##car _e140729140816_)))) + (gx#stx-e _tl140725140809_)))) + (let ((_tl140731140825_ + (let () (declare (not safe)) (##cdr _e140733140820_))) + (_hd140732140823_ + (let () (declare (not safe)) (##car _e140733140820_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140728140819_)) - (let ((_e140732140824_ + (gx#stx-pair? _hd140732140823_)) + (let ((_e140736140828_ (let () (declare (not safe)) - (gx#stx-e _hd140728140819_)))) - (let ((_tl140730140829_ + (gx#stx-e _hd140732140823_)))) + (let ((_tl140734140833_ (let () (declare (not safe)) - (##cdr _e140732140824_))) - (_hd140731140827_ + (##cdr _e140736140828_))) + (_hd140735140831_ (let () (declare (not safe)) - (##car _e140732140824_)))) + (##car _e140736140828_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140731140827_)) + (gx#identifier? _hd140735140831_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd140731140827_)) + (gx#stx-eq? '%#lambda _hd140735140831_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140730140829_)) - (let ((_e140735140832_ + (gx#stx-pair? _tl140734140833_)) + (let ((_e140739140836_ (let () (declare (not safe)) - (gx#stx-e _tl140730140829_)))) - (let ((_tl140733140837_ + (gx#stx-e _tl140734140833_)))) + (let ((_tl140737140841_ (let () (declare (not safe)) - (##cdr _e140735140832_))) - (_hd140734140835_ + (##cdr _e140739140836_))) + (_hd140738140839_ (let () (declare (not safe)) - (##car _e140735140832_)))) + (##car _e140739140836_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd140734140835_)) - (let ((___splice151183151184_ + _hd140738140839_)) + (let ((___splice151187151188_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd140734140835_ + _hd140738140839_ '0)))) - (let ((_tl140738140842_ + (let ((_tl140742140846_ (let () (declare (not safe)) (##vector-ref - ___splice151183151184_ + ___splice151187151188_ '1))) - (_target140736140840_ + (_target140740140844_ (let () (declare (not safe)) (##vector-ref - ___splice151183151184_ + ___splice151187151188_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140738140842_)) - (___match151342151343_ - _e140674141048_ - _hd140673141051_ - _tl140672141053_ - _e140717140784_ - _hd140716140787_ - _tl140715140789_ - _e140720140792_ - _hd140719140795_ - _tl140718140797_ - _e140723140800_ - _hd140722140803_ - _tl140721140805_ - _e140726140808_ - _hd140725140811_ - _tl140724140813_ - _e140729140816_ - _hd140728140819_ - _tl140727140821_ - _e140732140824_ - _hd140731140827_ - _tl140730140829_ - _e140735140832_ - _hd140734140835_ - _tl140733140837_ - ___splice151183151184_ - _target140736140840_ - _tl140738140842_) - (___kont151187151188_)))) - (___kont151187151188_)))) - (___kont151187151188_)) - (___kont151187151188_)) - (___kont151187151188_)))) - (___kont151187151188_)))) - (___kont151187151188_)) + _tl140742140846_)) + (___match151346151347_ + _e140678141052_ + _hd140677141055_ + _tl140676141057_ + _e140721140788_ + _hd140720140791_ + _tl140719140793_ + _e140724140796_ + _hd140723140799_ + _tl140722140801_ + _e140727140804_ + _hd140726140807_ + _tl140725140809_ + _e140730140812_ + _hd140729140815_ + _tl140728140817_ + _e140733140820_ + _hd140732140823_ + _tl140731140825_ + _e140736140828_ + _hd140735140831_ + _tl140734140833_ + _e140739140836_ + _hd140738140839_ + _tl140737140841_ + ___splice151187151188_ + _target140740140844_ + _tl140742140846_) + (___kont151191151192_)))) + (___kont151191151192_)))) + (___kont151191151192_)) + (___kont151191151192_)) + (___kont151191151192_)))) + (___kont151191151192_)))) + (___kont151191151192_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151187151188_)))) - (___kont151187151188_)))) - (___kont151187151188_)))) - (___kont151187151188_)))) - (___kont151187151188_)) - (___kont151187151188_))))) + (___kont151191151192_)))) + (___kont151191151192_)))) + (___kont151191151192_)))) + (___kont151191151192_)))) + (___kont151191151192_)) + (___kont151191151192_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151187151188_)))) - (___kont151187151188_)))))))) - (let* ((_block140505140518_ _block140501_) - (_E140507140522_ + (___kont151191151192_)))) + (___kont151191151192_)))))))) + (let* ((_block140509140522_ _block140505_) + (_E140511140526_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _block140505140518_)))) - (_K140508140635_ - (lambda (_maybe-bind140525_ _assert140526_ _kont140527_) - (let* ((_g140529140555_ - (lambda (_g140530140552_) + (error '"No clause matching" _block140509140522_)))) + (_K140512140639_ + (lambda (_maybe-bind140529_ _assert140530_ _kont140531_) + (let* ((_g140533140559_ + (lambda (_g140534140556_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g140530140552_)))) - (_g140528140632_ - (lambda (_g140530140558_) + _g140534140556_)))) + (_g140532140636_ + (lambda (_g140534140562_) (if (let () (declare (not safe)) - (gx#stx-pair? _g140530140558_)) - (let ((_e140535140560_ + (gx#stx-pair? _g140534140562_)) + (let ((_e140539140564_ (let () (declare (not safe)) - (gx#stx-e _g140530140558_)))) - (let ((_hd140534140563_ + (gx#stx-e _g140534140562_)))) + (let ((_hd140538140567_ (let () (declare (not safe)) - (##car _e140535140560_))) - (_tl140533140565_ + (##car _e140539140564_))) + (_tl140537140569_ (let () (declare (not safe)) - (##cdr _e140535140560_)))) + (##cdr _e140539140564_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140534140563_)) + (gx#identifier? _hd140538140567_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd140534140563_)) + _hd140538140567_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140533140565_)) - (let ((_e140538140568_ + _tl140537140569_)) + (let ((_e140542140572_ (let () (declare (not safe)) (gx#stx-e - _tl140533140565_)))) - (let ((_hd140537140571_ + _tl140537140569_)))) + (let ((_hd140541140575_ (let () (declare (not safe)) - (##car _e140538140568_))) - (_tl140536140573_ + (##car _e140542140572_))) + (_tl140540140577_ (let () (declare (not safe)) - (##cdr _e140538140568_)))) + (##cdr _e140542140572_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd140537140571_)) - (let ((_g152479_ + _hd140541140575_)) + (let ((_g152483_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd140537140571_ '0)))) + (gx#syntax-split-splice _hd140541140575_ '0)))) (begin - (let ((_g152480_ + (let ((_g152484_ (let () (declare (not safe)) - (if (##values? _g152479_) - (##vector-length _g152479_) + (if (##values? _g152483_) + (##vector-length _g152483_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152480_ 2))) - (error "Context expects 2 values" _g152480_))) - (let ((_target140539140576_ + (##fx= _g152484_ 2))) + (error "Context expects 2 values" _g152484_))) + (let ((_target140543140580_ (let () (declare (not safe)) - (##vector-ref _g152479_ 0))) - (_tl140541140578_ + (##vector-ref _g152483_ 0))) + (_tl140545140582_ (let () (declare (not safe)) - (##vector-ref _g152479_ 1)))) + (##vector-ref _g152483_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140541140578_)) - (letrec ((_loop140542140581_ - (lambda (_hd140540140584_ - _id140546140586_) + (gx#stx-null? _tl140545140582_)) + (letrec ((_loop140546140585_ + (lambda (_hd140544140588_ + _id140550140590_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140540140584_)) - (let ((_e140543140589_ + (gx#stx-pair? _hd140544140588_)) + (let ((_e140547140593_ (let () (declare (not safe)) (gx#stx-e - _hd140540140584_)))) - (let ((_lp-hd140544140592_ + _hd140544140588_)))) + (let ((_lp-hd140548140596_ (let () (declare (not safe)) - (##car _e140543140589_))) - (_lp-tl140545140594_ + (##car _e140547140593_))) + (_lp-tl140549140598_ (let () (declare (not safe)) - (##cdr _e140543140589_)))) - (let ((__tmp152481 + (##cdr _e140547140593_)))) + (let ((__tmp152485 (let () (declare (not safe)) - (cons _lp-hd140544140592_ - _id140546140586_)))) + (cons _lp-hd140548140596_ + _id140550140590_)))) (declare (not safe)) - (_loop140542140581_ - _lp-tl140545140594_ - __tmp152481)))) - (let ((_id140547140597_ - (reverse _id140546140586_))) + (_loop140546140585_ + _lp-tl140549140598_ + __tmp152485)))) + (let ((_id140551140601_ + (reverse _id140550140590_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140536140573_)) - (let ((_e140550140600_ + _tl140540140577_)) + (let ((_e140554140604_ (let () (declare (not safe)) (gx#stx-e - _tl140536140573_)))) - (let ((_hd140549140603_ + _tl140540140577_)))) + (let ((_hd140553140607_ (let () (declare (not safe)) - (##car _e140550140600_))) - (_tl140548140605_ + (##car _e140554140604_))) + (_tl140552140609_ (let () (declare (not safe)) - (##cdr _e140550140600_)))) + (##cdr _e140554140604_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140548140605_)) - ((lambda (_L140608_ + _tl140552140609_)) + ((lambda (_L140612_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L140609_) + _L140613_) (let () (declare (not safe)) - (_assert-restart140504_ _L140608_ _assert140526_))) - _hd140549140603_ - _id140547140597_) + (_assert-restart140508_ _L140612_ _assert140530_))) + _hd140553140607_ + _id140551140601_) (let () (declare (not safe)) - (_g140529140555_ _g140530140558_))))) + (_g140533140559_ _g140534140562_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140529140555_ - _g140530140558_)))))))) + (_g140533140559_ + _g140534140562_)))))))) (let () (declare (not safe)) - (_loop140542140581_ _target140539140576_ '()))) + (_loop140546140585_ _target140543140580_ '()))) (let () (declare (not safe)) - (_g140529140555_ _g140530140558_)))))) + (_g140533140559_ _g140534140562_)))))) (let () (declare (not safe)) - (_g140529140555_ _g140530140558_))))) + (_g140533140559_ _g140534140562_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140529140555_ - _g140530140558_))) + (_g140533140559_ + _g140534140562_))) (let () (declare (not safe)) - (_g140529140555_ - _g140530140558_))) + (_g140533140559_ + _g140534140562_))) (let () (declare (not safe)) - (_g140529140555_ - _g140530140558_))))) + (_g140533140559_ + _g140534140562_))))) (let () (declare (not safe)) - (_g140529140555_ _g140530140558_)))))) + (_g140533140559_ _g140534140562_)))))) (declare (not safe)) - (_g140528140632_ _kont140527_))))) - (if (let () (declare (not safe)) (##pair? _block140505140518_)) - (let ((_tl140510140638_ + (_g140532140636_ _kont140531_))))) + (if (let () (declare (not safe)) (##pair? _block140509140522_)) + (let ((_tl140514140642_ (let () (declare (not safe)) - (##cdr _block140505140518_)))) - (if (let () (declare (not safe)) (##pair? _tl140510140638_)) - (let ((_tl140512140641_ + (##cdr _block140509140522_)))) + (if (let () (declare (not safe)) (##pair? _tl140514140642_)) + (let ((_tl140516140645_ (let () (declare (not safe)) - (##cdr _tl140510140638_)))) + (##cdr _tl140514140642_)))) (if (let () (declare (not safe)) - (##pair? _tl140512140641_)) - (let ((_hd140513140644_ + (##pair? _tl140516140645_)) + (let ((_hd140517140648_ (let () (declare (not safe)) - (##car _tl140512140641_))) - (_tl140514140646_ + (##car _tl140516140645_))) + (_tl140518140650_ (let () (declare (not safe)) - (##cdr _tl140512140641_)))) - (let ((_kont140649_ _hd140513140644_)) + (##cdr _tl140516140645_)))) + (let ((_kont140653_ _hd140517140648_)) (if (let () (declare (not safe)) - (##pair? _tl140514140646_)) - (let ((_hd140515140651_ + (##pair? _tl140518140650_)) + (let ((_hd140519140655_ (let () (declare (not safe)) - (##car _tl140514140646_))) - (_tl140516140653_ + (##car _tl140518140650_))) + (_tl140520140657_ (let () (declare (not safe)) - (##cdr _tl140514140646_)))) - (let* ((_assert140656_ _hd140515140651_) - (_maybe-bind140658_ - _tl140516140653_)) + (##cdr _tl140518140650_)))) + (let* ((_assert140660_ _hd140519140655_) + (_maybe-bind140662_ + _tl140520140657_)) (declare (not safe)) - (_K140508140635_ - _maybe-bind140658_ - _assert140656_ - _kont140649_))) + (_K140512140639_ + _maybe-bind140662_ + _assert140660_ + _kont140653_))) (let () (declare (not safe)) - (_E140507140522_))))) - (let () (declare (not safe)) (_E140507140522_)))) - (let () (declare (not safe)) (_E140507140522_)))) - (let () (declare (not safe)) (_E140507140522_))))))) + (_E140511140526_))))) + (let () (declare (not safe)) (_E140511140526_)))) + (let () (declare (not safe)) (_E140511140526_)))) + (let () (declare (not safe)) (_E140511140526_))))))) (define gxc#optimize-syntax-case - (lambda (_stx140132_) - (let* ((_g140134140164_ - (lambda (_g140135140161_) + (lambda (_stx140136_) + (let* ((_g140138140168_ + (lambda (_g140139140165_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g140135140161_)))) - (_g140133140498_ - (lambda (_g140135140167_) + _g140139140165_)))) + (_g140137140502_ + (lambda (_g140139140171_) (if (let () (declare (not safe)) - (gx#stx-pair? _g140135140167_)) - (let ((_e140141140169_ + (gx#stx-pair? _g140139140171_)) + (let ((_e140145140173_ (let () (declare (not safe)) - (gx#stx-e _g140135140167_)))) - (let ((_hd140140140172_ + (gx#stx-e _g140139140171_)))) + (let ((_hd140144140176_ (let () (declare (not safe)) - (##car _e140141140169_))) - (_tl140139140174_ + (##car _e140145140173_))) + (_tl140143140178_ (let () (declare (not safe)) - (##cdr _e140141140169_)))) + (##cdr _e140145140173_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140140140172_)) + (gx#identifier? _hd140144140176_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd140140140172_)) + _hd140144140176_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140139140174_)) - (let ((_e140144140177_ + (gx#stx-pair? _tl140143140178_)) + (let ((_e140148140181_ (let () (declare (not safe)) - (gx#stx-e _tl140139140174_)))) - (let ((_hd140143140180_ + (gx#stx-e _tl140143140178_)))) + (let ((_hd140147140184_ (let () (declare (not safe)) - (##car _e140144140177_))) - (_tl140142140182_ + (##car _e140148140181_))) + (_tl140146140186_ (let () (declare (not safe)) - (##cdr _e140144140177_)))) + (##cdr _e140148140181_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140143140180_)) - (let ((_e140147140185_ + _hd140147140184_)) + (let ((_e140151140189_ (let () (declare (not safe)) (gx#stx-e - _hd140143140180_)))) - (let ((_hd140146140188_ + _hd140147140184_)))) + (let ((_hd140150140192_ (let () (declare (not safe)) - (##car _e140147140185_))) - (_tl140145140190_ + (##car _e140151140189_))) + (_tl140149140194_ (let () (declare (not safe)) - (##cdr _e140147140185_)))) + (##cdr _e140151140189_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140146140188_)) - (let ((_e140150140193_ + _hd140150140192_)) + (let ((_e140154140197_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd140146140188_)))) - (let ((_hd140149140196_ - (let () (declare (not safe)) (##car _e140150140193_))) - (_tl140148140198_ - (let () (declare (not safe)) (##cdr _e140150140193_)))) + (gx#stx-e _hd140150140192_)))) + (let ((_hd140153140200_ + (let () (declare (not safe)) (##car _e140154140197_))) + (_tl140152140202_ + (let () (declare (not safe)) (##cdr _e140154140197_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140149140196_)) - (let ((_e140153140201_ + (gx#stx-pair? _hd140153140200_)) + (let ((_e140157140205_ (let () (declare (not safe)) - (gx#stx-e _hd140149140196_)))) - (let ((_hd140152140204_ + (gx#stx-e _hd140153140200_)))) + (let ((_hd140156140208_ (let () (declare (not safe)) - (##car _e140153140201_))) - (_tl140151140206_ + (##car _e140157140205_))) + (_tl140155140210_ (let () (declare (not safe)) - (##cdr _e140153140201_)))) + (##cdr _e140157140205_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140151140206_)) + (gx#stx-null? _tl140155140210_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140148140198_)) - (let ((_e140156140209_ + (gx#stx-pair? _tl140152140202_)) + (let ((_e140160140213_ (let () (declare (not safe)) - (gx#stx-e _tl140148140198_)))) - (let ((_hd140155140212_ + (gx#stx-e _tl140152140202_)))) + (let ((_hd140159140216_ (let () (declare (not safe)) - (##car _e140156140209_))) - (_tl140154140214_ + (##car _e140160140213_))) + (_tl140158140218_ (let () (declare (not safe)) - (##cdr _e140156140209_)))) + (##cdr _e140160140213_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140154140214_)) + (gx#stx-null? _tl140158140218_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140145140190_)) + _tl140149140194_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140142140182_)) - (let ((_e140159140217_ + _tl140146140186_)) + (let ((_e140163140221_ (let () (declare (not safe)) (gx#stx-e - _tl140142140182_)))) - (let ((_hd140158140220_ + _tl140146140186_)))) + (let ((_hd140162140224_ (let () (declare (not safe)) - (##car _e140159140217_))) - (_tl140157140222_ + (##car _e140163140221_))) + (_tl140161140226_ (let () (declare (not safe)) - (##cdr _e140159140217_)))) + (##cdr _e140163140221_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140157140222_)) - ((lambda (_L140225_ + _tl140161140226_)) + ((lambda (_L140229_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L140226_ - _L140227_) - (let _lp140251_ ((_body140253_ _L140225_) - (_clauses140254_ '())) - (let* ((___stx151345151346_ _body140253_) - (_g140257140304_ + _L140230_ + _L140231_) + (let _lp140255_ ((_body140257_ _L140229_) + (_clauses140258_ '())) + (let* ((___stx151349151350_ _body140257_) + (_g140261140308_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151345151346_))))) - (let ((___kont151347151348_ - (lambda (_L140470_ _L140471_ _L140472_) - (let ((__tmp152482 - (let ((__tmp152483 - (let ((__tmp152484 + ___stx151349151350_))))) + (let ((___kont151351151352_ + (lambda (_L140474_ _L140475_ _L140476_) + (let ((__tmp152486 + (let ((__tmp152487 + (let ((__tmp152488 (let () (declare (not safe)) (gxc#compile-e__0 - _L140471_)))) + _L140475_)))) (declare (not safe)) - (cons _L140472_ - __tmp152484)))) + (cons _L140476_ + __tmp152488)))) (declare (not safe)) - (cons __tmp152483 - _clauses140254_)))) + (cons __tmp152487 + _clauses140258_)))) (declare (not safe)) - (_lp140251_ _L140470_ __tmp152482)))) - (___kont151349151350_ - (lambda (_L140349_ _L140350_) - (let ((_$e140371_ (length _clauses140254_))) + (_lp140255_ _L140474_ __tmp152486)))) + (___kont151353151354_ + (lambda (_L140353_ _L140354_) + (let ((_$e140375_ (length _clauses140258_))) (if (let () (declare (not safe)) - (eq? '0 _$e140371_)) - (let ((__tmp152502 - (let ((__tmp152503 - (let ((__tmp152506 - (let ((__tmp152507 + (eq? '0 _$e140375_)) + (let ((__tmp152506 + (let ((__tmp152507 + (let ((__tmp152510 + (let ((__tmp152511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152509 + (let ((__tmp152513 (let () (declare (not safe)) - (cons _L140227_ '()))) - (__tmp152508 + (cons _L140231_ '()))) + (__tmp152512 (let () (declare (not safe)) - (cons _L140226_ '())))) + (cons _L140230_ '())))) (declare (not safe)) - (cons __tmp152509 __tmp152508)))) + (cons __tmp152513 __tmp152512)))) (declare (not safe)) - (cons __tmp152507 '()))) - (__tmp152504 - (let ((__tmp152505 + (cons __tmp152511 '()))) + (__tmp152508 + (let ((__tmp152509 (let () (declare (not safe)) - (gxc#compile-e__0 _body140253_)))) + (gxc#compile-e__0 _body140257_)))) (declare (not safe)) - (cons __tmp152505 '())))) + (cons __tmp152509 '())))) (declare (not safe)) - (cons __tmp152506 __tmp152504)))) + (cons __tmp152510 __tmp152508)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152503)))) + __tmp152507)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152502 - _stx140132_)) + __tmp152506 + _stx140136_)) (if (let () (declare (not safe)) - (eq? '1 _$e140371_)) - (let* ((_clauses140373140382_ - _clauses140254_) - (_E140375140386_ + (eq? '1 _$e140375_)) + (let* ((_clauses140377140386_ + _clauses140258_) + (_E140379140390_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses140373140382_)))) - (_K140376140392_ - (lambda (_clause-lambda140389_ - _clause140390_) - (let ((__tmp152487 - (let ((__tmp152488 + _clauses140377140386_)))) + (_K140380140396_ + (lambda (_clause-lambda140393_ + _clause140394_) + (let ((__tmp152491 + (let ((__tmp152492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152498 - (let ((__tmp152499 - (let ((__tmp152501 + (let ((__tmp152502 + (let ((__tmp152503 + (let ((__tmp152505 (let () (declare (not safe)) - (cons _L140227_ '()))) - (__tmp152500 + (cons _L140231_ '()))) + (__tmp152504 (let () (declare (not safe)) - (cons _L140226_ '())))) + (cons _L140230_ '())))) (declare (not safe)) - (cons __tmp152501 __tmp152500)))) + (cons __tmp152505 __tmp152504)))) (declare (not safe)) - (cons __tmp152499 '()))) - (__tmp152489 - (let ((__tmp152490 - (let ((__tmp152491 - (let ((__tmp152494 - (let ((__tmp152495 - (let ((__tmp152497 + (cons __tmp152503 '()))) + (__tmp152493 + (let ((__tmp152494 + (let ((__tmp152495 + (let ((__tmp152498 + (let ((__tmp152499 + (let ((__tmp152501 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause140390_ '()))) - (__tmp152496 + (cons _clause140394_ '()))) + (__tmp152500 (let () (declare (not safe)) - (cons _clause-lambda140389_ '())))) + (cons _clause-lambda140393_ '())))) (declare (not safe)) - (cons __tmp152497 __tmp152496)))) + (cons __tmp152501 __tmp152500)))) (declare (not safe)) - (cons __tmp152495 '()))) - (__tmp152492 - (let ((__tmp152493 + (cons __tmp152499 '()))) + (__tmp152496 + (let ((__tmp152497 (let () (declare (not safe)) - (gxc#compile-e__0 _body140253_)))) + (gxc#compile-e__0 _body140257_)))) (declare (not safe)) - (cons __tmp152493 '())))) + (cons __tmp152497 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152494 - __tmp152492)))) + (cons __tmp152498 + __tmp152496)))) (declare (not safe)) - (cons '%#let-values __tmp152491)))) + (cons '%#let-values __tmp152495)))) (declare (not safe)) - (cons __tmp152490 '())))) + (cons __tmp152494 '())))) (declare (not safe)) - (cons __tmp152498 __tmp152489)))) + (cons __tmp152502 __tmp152493)))) (declare (not safe)) - (cons '%#let-values __tmp152488)))) + (cons '%#let-values __tmp152492)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152487 _stx140132_))))) + (gxc#xform-wrap-source __tmp152491 _stx140136_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses140373140382_)) - (let ((_hd140377140395_ + (##pair? _clauses140377140386_)) + (let ((_hd140381140399_ (let () (declare (not safe)) - (##car _clauses140373140382_))) - (_tl140378140397_ + (##car _clauses140377140386_))) + (_tl140382140401_ (let () (declare (not safe)) - (##cdr _clauses140373140382_)))) + (##cdr _clauses140377140386_)))) (if (let () (declare (not safe)) - (##pair? _hd140377140395_)) - (let ((_hd140379140400_ + (##pair? _hd140381140399_)) + (let ((_hd140383140404_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd140377140395_))) - (_tl140380140402_ - (let () (declare (not safe)) (##cdr _hd140377140395_)))) - (let* ((_clause140405_ _hd140379140400_) - (_clause-lambda140407_ _tl140380140402_)) + (##car _hd140381140399_))) + (_tl140384140406_ + (let () (declare (not safe)) (##cdr _hd140381140399_)))) + (let* ((_clause140409_ _hd140383140404_) + (_clause-lambda140411_ _tl140384140406_)) (if (let () (declare (not safe)) - (##null? _tl140378140397_)) + (##null? _tl140382140401_)) (let () (declare (not safe)) - (_K140376140392_ - _clause-lambda140407_ - _clause140405_)) - (let () (declare (not safe)) (_E140375140386_))))) - (let () (declare (not safe)) (_E140375140386_)))) + (_K140380140396_ + _clause-lambda140411_ + _clause140409_)) + (let () (declare (not safe)) (_E140379140390_))))) + (let () (declare (not safe)) (_E140379140390_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E140375140386_)))) - (let ((__tmp152486 + (_E140379140390_)))) + (let ((__tmp152490 (let () (declare (not safe)) (gxc#compile-e__0 - _L140349_))) - (__tmp152485 + _L140353_))) + (__tmp152489 (let () (declare (not safe)) - (cons _L140227_ - _L140226_)))) + (cons _L140231_ + _L140230_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx140132_ - __tmp152486 - __tmp152485 - _clauses140254_)))))))) + _stx140136_ + __tmp152490 + __tmp152489 + _clauses140258_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151345151346_)) - (let ((_e140264140414_ + (gx#stx-pair? ___stx151349151350_)) + (let ((_e140268140418_ (let () (declare (not safe)) - (gx#stx-e ___stx151345151346_)))) - (let ((_tl140262140419_ + (gx#stx-e ___stx151349151350_)))) + (let ((_tl140266140423_ (let () (declare (not safe)) - (##cdr _e140264140414_))) - (_hd140263140417_ + (##cdr _e140268140418_))) + (_hd140267140421_ (let () (declare (not safe)) - (##car _e140264140414_)))) + (##car _e140268140418_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140263140417_)) + (gx#identifier? _hd140267140421_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd140263140417_)) + _hd140267140421_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140262140419_)) - (let ((_e140267140422_ + _tl140266140423_)) + (let ((_e140271140426_ (let () (declare (not safe)) (gx#stx-e - _tl140262140419_)))) - (let ((_tl140265140427_ + _tl140266140423_)))) + (let ((_tl140269140431_ (let () (declare (not safe)) - (##cdr _e140267140422_))) - (_hd140266140425_ + (##cdr _e140271140426_))) + (_hd140270140429_ (let () (declare (not safe)) - (##car _e140267140422_)))) + (##car _e140271140426_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140266140425_)) - (let ((_e140270140430_ + _hd140270140429_)) + (let ((_e140274140434_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd140266140425_)))) - (let ((_tl140268140435_ - (let () (declare (not safe)) (##cdr _e140270140430_))) - (_hd140269140433_ - (let () (declare (not safe)) (##car _e140270140430_)))) + (gx#stx-e _hd140270140429_)))) + (let ((_tl140272140439_ + (let () (declare (not safe)) (##cdr _e140274140434_))) + (_hd140273140437_ + (let () (declare (not safe)) (##car _e140274140434_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140269140433_)) - (let ((_e140273140438_ + (gx#stx-pair? _hd140273140437_)) + (let ((_e140277140442_ (let () (declare (not safe)) - (gx#stx-e _hd140269140433_)))) - (let ((_tl140271140443_ + (gx#stx-e _hd140273140437_)))) + (let ((_tl140275140447_ (let () (declare (not safe)) - (##cdr _e140273140438_))) - (_hd140272140441_ + (##cdr _e140277140442_))) + (_hd140276140445_ (let () (declare (not safe)) - (##car _e140273140438_)))) + (##car _e140277140442_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140272140441_)) - (let ((_e140276140446_ + (gx#stx-pair? _hd140276140445_)) + (let ((_e140280140450_ (let () (declare (not safe)) - (gx#stx-e _hd140272140441_)))) - (let ((_tl140274140451_ + (gx#stx-e _hd140276140445_)))) + (let ((_tl140278140455_ (let () (declare (not safe)) - (##cdr _e140276140446_))) - (_hd140275140449_ + (##cdr _e140280140450_))) + (_hd140279140453_ (let () (declare (not safe)) - (##car _e140276140446_)))) + (##car _e140280140450_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140274140451_)) + (gx#stx-null? _tl140278140455_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140271140443_)) - (let ((_e140279140454_ + (gx#stx-pair? _tl140275140447_)) + (let ((_e140283140458_ (let () (declare (not safe)) (gx#stx-e - _tl140271140443_)))) - (let ((_tl140277140459_ + _tl140275140447_)))) + (let ((_tl140281140463_ (let () (declare (not safe)) - (##cdr _e140279140454_))) - (_hd140278140457_ + (##cdr _e140283140458_))) + (_hd140282140461_ (let () (declare (not safe)) - (##car _e140279140454_)))) + (##car _e140283140458_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140277140459_)) + _tl140281140463_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140268140435_)) + _tl140272140439_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140265140427_)) - (let ((_e140282140462_ + _tl140269140431_)) + (let ((_e140286140466_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl140265140427_)))) - (let ((_tl140280140467_ + (gx#stx-e _tl140269140431_)))) + (let ((_tl140284140471_ (let () (declare (not safe)) - (##cdr _e140282140462_))) - (_hd140281140465_ + (##cdr _e140286140466_))) + (_hd140285140469_ (let () (declare (not safe)) - (##car _e140282140462_)))) + (##car _e140286140466_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140280140467_)) - (___kont151347151348_ - _hd140281140465_ - _hd140278140457_ - _hd140275140449_) - (let () (declare (not safe)) (_g140257140304_))))) - (let () (declare (not safe)) (_g140257140304_))) - (let () (declare (not safe)) (_g140257140304_))) + (gx#stx-null? _tl140284140471_)) + (___kont151351151352_ + _hd140285140469_ + _hd140282140461_ + _hd140279140453_) + (let () (declare (not safe)) (_g140261140308_))))) + (let () (declare (not safe)) (_g140261140308_))) + (let () (declare (not safe)) (_g140261140308_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140257140304_))))) + (_g140261140308_))))) (let () (declare (not safe)) - (_g140257140304_))) + (_g140261140308_))) (let () (declare (not safe)) - (_g140257140304_))))) + (_g140261140308_))))) (let () (declare (not safe)) - (_g140257140304_))))) - (let () (declare (not safe)) (_g140257140304_))))) - (let () (declare (not safe)) (_g140257140304_))))) + (_g140261140308_))))) + (let () (declare (not safe)) (_g140261140308_))))) + (let () (declare (not safe)) (_g140261140308_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140257140304_))) + (_g140261140308_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd140263140417_)) + _hd140267140421_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140262140419_)) - (let ((_e140290140317_ + _tl140266140423_)) + (let ((_e140294140321_ (let () (declare (not safe)) (gx#stx-e - _tl140262140419_)))) - (let ((_tl140288140322_ + _tl140266140423_)))) + (let ((_tl140292140326_ (let () (declare (not safe)) - (##cdr _e140290140317_))) - (_hd140289140320_ + (##cdr _e140294140321_))) + (_hd140293140324_ (let () (declare (not safe)) - (##car _e140290140317_)))) + (##car _e140294140321_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140289140320_)) - (let ((_e140293140325_ + _hd140293140324_)) + (let ((_e140297140329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd140289140320_)))) - (let ((_tl140291140330_ + (gx#stx-e _hd140293140324_)))) + (let ((_tl140295140334_ (let () (declare (not safe)) - (##cdr _e140293140325_))) - (_hd140292140328_ + (##cdr _e140297140329_))) + (_hd140296140332_ (let () (declare (not safe)) - (##car _e140293140325_)))) + (##car _e140297140329_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140292140328_)) + (gx#identifier? _hd140296140332_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140292140328_)) + (gx#stx-eq? '%#ref _hd140296140332_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140291140330_)) - (let ((_e140296140333_ + (gx#stx-pair? _tl140295140334_)) + (let ((_e140300140337_ (let () (declare (not safe)) - (gx#stx-e _tl140291140330_)))) - (let ((_tl140294140338_ + (gx#stx-e _tl140295140334_)))) + (let ((_tl140298140342_ (let () (declare (not safe)) - (##cdr _e140296140333_))) - (_hd140295140336_ + (##cdr _e140300140337_))) + (_hd140299140340_ (let () (declare (not safe)) - (##car _e140296140333_)))) + (##car _e140300140337_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140294140338_)) + (gx#stx-null? _tl140298140342_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140288140322_)) - (let ((_e140299140341_ + _tl140292140326_)) + (let ((_e140303140345_ (let () (declare (not safe)) (gx#stx-e - _tl140288140322_)))) - (let ((_tl140297140346_ + _tl140292140326_)))) + (let ((_tl140301140350_ (let () (declare (not safe)) - (##cdr _e140299140341_))) - (_hd140298140344_ + (##cdr _e140303140345_))) + (_hd140302140348_ (let () (declare (not safe)) - (##car _e140299140341_)))) + (##car _e140303140345_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140297140346_)) - (___kont151349151350_ - _hd140298140344_ - _hd140295140336_) + _tl140301140350_)) + (___kont151353151354_ + _hd140302140348_ + _hd140299140340_) (let () (declare (not safe)) - (_g140257140304_))))) + (_g140261140308_))))) (let () (declare (not safe)) - (_g140257140304_))) + (_g140261140308_))) (let () (declare (not safe)) - (_g140257140304_))))) + (_g140261140308_))))) (let () (declare (not safe)) - (_g140257140304_))) - (let () (declare (not safe)) (_g140257140304_))) - (let () (declare (not safe)) (_g140257140304_))))) - (let () (declare (not safe)) (_g140257140304_))))) + (_g140261140308_))) + (let () (declare (not safe)) (_g140261140308_))) + (let () (declare (not safe)) (_g140261140308_))))) + (let () (declare (not safe)) (_g140261140308_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140257140304_))) + (_g140261140308_))) (let () (declare (not safe)) - (_g140257140304_)))) + (_g140261140308_)))) (let () (declare (not safe)) - (_g140257140304_))))) + (_g140261140308_))))) (let () (declare (not safe)) - (_g140257140304_))))))) - _hd140158140220_ - _hd140155140212_ - _hd140152140204_) + (_g140261140308_))))))) + _hd140162140224_ + _hd140159140216_ + _hd140156140208_) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_))))) + (_g140138140168_ _g140139140171_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140134140164_ - _g140135140167_))) + (_g140138140168_ + _g140139140171_))) (let () (declare (not safe)) - (_g140134140164_ - _g140135140167_))) + (_g140138140168_ + _g140139140171_))) (let () (declare (not safe)) - (_g140134140164_ - _g140135140167_))))) + (_g140138140168_ + _g140139140171_))))) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_))) + (_g140138140168_ _g140139140171_))) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_))))) + (_g140138140168_ _g140139140171_))))) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_))))) + (_g140138140168_ _g140139140171_))))) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_))))) + (_g140138140168_ _g140139140171_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140134140164_ - _g140135140167_))))) + (_g140138140168_ + _g140139140171_))))) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_))) + (_g140138140168_ _g140139140171_))) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_))) + (_g140138140168_ _g140139140171_))) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_))))) + (_g140138140168_ _g140139140171_))))) (let () (declare (not safe)) - (_g140134140164_ _g140135140167_)))))) + (_g140138140168_ _g140139140171_)))))) (declare (not safe)) - (_g140133140498_ _stx140132_)))) + (_g140137140502_ _stx140136_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx140060_ _expr140061_ _negation140062_ _clauses140063_) - (letrec ((_normalize140065_ - (lambda (_clauses140092_) - (let* ((_clauses140093140102_ _clauses140092_) - (_E140095140106_ + (lambda (_stx140064_ _expr140065_ _negation140066_ _clauses140067_) + (letrec ((_normalize140069_ + (lambda (_clauses140096_) + (let* ((_clauses140097140106_ _clauses140096_) + (_E140099140110_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses140093140102_)))) - (_K140096140113_ - (lambda (_rest140109_ _kont140110_ _id140111_) - (let ((__tmp152510 + _clauses140097140106_)))) + (_K140100140117_ + (lambda (_rest140113_ _kont140114_ _id140115_) + (let ((__tmp152514 (let () (declare (not safe)) - (cons '#f _kont140110_)))) + (cons '#f _kont140114_)))) (declare (not safe)) - (cons __tmp152510 _rest140109_))))) + (cons __tmp152514 _rest140113_))))) (if (let () (declare (not safe)) - (##pair? _clauses140093140102_)) - (let ((_hd140097140116_ + (##pair? _clauses140097140106_)) + (let ((_hd140101140120_ (let () (declare (not safe)) - (##car _clauses140093140102_))) - (_tl140098140118_ + (##car _clauses140097140106_))) + (_tl140102140122_ (let () (declare (not safe)) - (##cdr _clauses140093140102_)))) + (##cdr _clauses140097140106_)))) (if (let () (declare (not safe)) - (##pair? _hd140097140116_)) - (let ((_hd140099140121_ + (##pair? _hd140101140120_)) + (let ((_hd140103140125_ (let () (declare (not safe)) - (##car _hd140097140116_))) - (_tl140100140123_ + (##car _hd140101140120_))) + (_tl140104140127_ (let () (declare (not safe)) - (##cdr _hd140097140116_)))) - (let* ((_id140126_ _hd140099140121_) - (_kont140128_ _tl140100140123_) - (_rest140130_ _tl140098140118_)) + (##cdr _hd140101140120_)))) + (let* ((_id140130_ _hd140103140125_) + (_kont140132_ _tl140104140127_) + (_rest140134_ _tl140102140122_)) (declare (not safe)) - (_K140096140113_ - _rest140130_ - _kont140128_ - _id140126_))) + (_K140100140117_ + _rest140134_ + _kont140132_ + _id140130_))) (let () (declare (not safe)) - (_E140095140106_)))) - (let () (declare (not safe)) (_E140095140106_))))))) - (let ((__tmp152512 + (_E140099140110_)))) + (let () (declare (not safe)) (_E140099140110_))))))) + (let ((__tmp152516 (lambda () - (let* ((_id140068_ - (let ((__tmp152513 (gensym '__stx))) + (let* ((_id140072_ + (let ((__tmp152517 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp152513))) - (_id140070_ + (make-symbol__0 __tmp152517))) + (_id140074_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id140068_))) - (_g152514_ + (gx#core-quote-syntax__0 _id140072_))) + (_g152518_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id140070_))) - (_g152515_ - (let ((__tmp152517 (car _negation140062_))) + (gx#core-bind-runtime!__0 _id140074_))) + (_g152519_ + (let ((__tmp152521 (car _negation140066_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses140063_ - __tmp152517)))) + _clauses140067_ + __tmp152521)))) (begin - (let ((_g152516_ + (let ((_g152520_ (let () (declare (not safe)) - (if (##values? _g152515_) - (##vector-length _g152515_) + (if (##values? _g152519_) + (##vector-length _g152519_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152516_ 2))) - (error "Context expects 2 values" _g152516_))) - (let ((_clauses140073_ + (##fx= _g152520_ 2))) + (error "Context expects 2 values" _g152520_))) + (let ((_clauses140077_ (let () (declare (not safe)) - (##vector-ref _g152515_ 0))) - (_konts140074_ + (##vector-ref _g152519_ 0))) + (_konts140078_ (let () (declare (not safe)) - (##vector-ref _g152515_ 1)))) - (let* ((_clauses140083_ - (map (lambda (_g140075140078_ _g140076140080_) + (##vector-ref _g152519_ 1)))) + (let* ((_clauses140087_ + (map (lambda (_g140079140082_ _g140080140084_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g140075140078_ - _g140076140080_ - _id140070_))) - _clauses140073_ - (let ((__tmp152519 - (let ((__tmp152520 - (car _negation140062_))) + _g140079140082_ + _g140080140084_ + _id140074_))) + _clauses140077_ + (let ((__tmp152523 + (let ((__tmp152524 + (car _negation140066_))) (declare (not safe)) - (cons __tmp152520 '()))) - (__tmp152518 - (map car (cdr _clauses140073_)))) + (cons __tmp152524 '()))) + (__tmp152522 + (map car (cdr _clauses140077_)))) (declare (not safe)) (foldr1 cons - __tmp152519 - __tmp152518)))) - (_clauses140085_ + __tmp152523 + __tmp152522)))) + (_clauses140089_ (let () (declare (not safe)) - (_normalize140065_ _clauses140083_))) - (_negation140087_ + (_normalize140069_ _clauses140087_))) + (_negation140091_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation140062_ + _negation140066_ '#f - _id140070_))) - (_body140089_ + _id140074_))) + (_body140093_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx140060_ - _negation140087_ - _clauses140085_ - _konts140074_)))) - (let ((__tmp152521 - (let ((__tmp152522 - (let ((__tmp152524 - (let ((__tmp152525 - (let ((__tmp152527 + _stx140064_ + _negation140091_ + _clauses140089_ + _konts140078_)))) + (let ((__tmp152525 + (let ((__tmp152526 + (let ((__tmp152528 + (let ((__tmp152529 + (let ((__tmp152531 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id140070_ '()))) - (__tmp152526 - (let () (declare (not safe)) (cons _expr140061_ '())))) + (cons _id140074_ '()))) + (__tmp152530 + (let () (declare (not safe)) (cons _expr140065_ '())))) (declare (not safe)) - (cons __tmp152527 __tmp152526)))) + (cons __tmp152531 __tmp152530)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152525 '()))) - (__tmp152523 + (cons __tmp152529 '()))) + (__tmp152527 (let () (declare (not safe)) - (cons _body140089_ '())))) + (cons _body140093_ '())))) (declare (not safe)) - (cons __tmp152524 __tmp152523)))) + (cons __tmp152528 __tmp152527)))) (declare (not safe)) - (cons '%#let-values __tmp152522)))) + (cons '%#let-values __tmp152526)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152521 - _stx140060_)))))))) - (__tmp152511 - (let ((__obj152097 + __tmp152525 + _stx140064_)))))))) + (__tmp152515 + (let ((__obj152101 (let () (declare (not safe)) (##structure @@ -14863,3735 +14863,3735 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj152097) - __obj152097))) + (gx#local-context:::init! __obj152101) + __obj152101))) (declare (not safe)) (call-with-parameters - __tmp152512 + __tmp152516 gx#current-expander-context - __tmp152511))))) + __tmp152515))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses138818_ _negation-id138819_) - (letrec ((_xform-e138821_ - (lambda (_expr139205_ - _kont-id139206_ - _kont-box139207_ - _negation-id139208_) - (let* ((___stx151547151548_ _expr139205_) - (_g139214139347_ + (lambda (_clauses138822_ _negation-id138823_) + (letrec ((_xform-e138825_ + (lambda (_expr139209_ + _kont-id139210_ + _kont-box139211_ + _negation-id139212_) + (let* ((___stx151551151552_ _expr139209_) + (_g139218139351_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151547151548_))))) - (let ((___kont151549151550_ - (lambda (_L140036_ _L140037_ _L140038_) - (let* ((_K140055_ + ___stx151551151552_))))) + (let ((___kont151553151554_ + (lambda (_L140040_ _L140041_ _L140042_) + (let* ((_K140059_ (let () (declare (not safe)) - (_xform-e138821_ - _L140037_ - _kont-id139206_ - _kont-box139207_ - _negation-id139208_))) - (__tmp152528 - (let ((__tmp152529 - (let ((__tmp152530 + (_xform-e138825_ + _L140041_ + _kont-id139210_ + _kont-box139211_ + _negation-id139212_))) + (__tmp152532 + (let ((__tmp152533 + (let ((__tmp152534 (let () (declare (not safe)) - (cons _L140036_ '())))) + (cons _L140040_ '())))) (declare (not safe)) - (cons _K140055_ __tmp152530)))) + (cons _K140059_ __tmp152534)))) (declare (not safe)) - (cons _L140038_ __tmp152529)))) + (cons _L140042_ __tmp152533)))) (declare (not safe)) - (cons '%#if __tmp152528)))) - (___kont151551151552_ - (lambda (_L139952_ - _L139953_ - _L139954_ - _L139955_ - _L139956_) - (let* ((_id139991_ - (let ((__tmp152531 (gensym '__splice))) + (cons '%#if __tmp152532)))) + (___kont151555151556_ + (lambda (_L139956_ + _L139957_ + _L139958_ + _L139959_ + _L139960_) + (let* ((_id139995_ + (let ((__tmp152535 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp152531))) - (_id139993_ + (make-symbol__0 __tmp152535))) + (_id139997_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id139991_))) - (_g152532_ + (gx#core-quote-syntax__0 _id139995_))) + (_g152536_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id139993_))) - (_body139996_ + _id139997_))) + (_body140000_ (let () (declare (not safe)) - (_xform-e138821_ - _L139952_ - _kont-id139206_ - _kont-box139207_ - _negation-id139208_)))) - (let ((__tmp152533 - (let ((__tmp152558 - (let ((__tmp152559 - (let ((__tmp152567 + (_xform-e138825_ + _L139956_ + _kont-id139210_ + _kont-box139211_ + _negation-id139212_)))) + (let ((__tmp152537 + (let ((__tmp152562 + (let ((__tmp152563 + (let ((__tmp152571 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id139993_ '()))) - (__tmp152560 - (let ((__tmp152561 - (let ((__tmp152566 + (cons _id139997_ '()))) + (__tmp152564 + (let ((__tmp152565 + (let ((__tmp152570 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152562 - (let ((__tmp152563 - (let ((__tmp152565 + (__tmp152566 + (let ((__tmp152567 + (let ((__tmp152569 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152564 + (__tmp152568 (let () (declare (not safe)) - (cons _L139954_ '())))) + (cons _L139958_ '())))) (declare (not safe)) - (cons __tmp152565 __tmp152564)))) + (cons __tmp152569 __tmp152568)))) (declare (not safe)) - (cons __tmp152563 _L139953_)))) + (cons __tmp152567 _L139957_)))) (declare (not safe)) - (cons __tmp152566 __tmp152562)))) + (cons __tmp152570 __tmp152566)))) (declare (not safe)) - (cons __tmp152561 '())))) + (cons __tmp152565 '())))) (declare (not safe)) - (cons __tmp152567 __tmp152560)))) + (cons __tmp152571 __tmp152564)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152559 '()))) - (__tmp152534 - (let ((__tmp152535 - (let ((__tmp152536 - (let ((__tmp152538 + (cons __tmp152563 '()))) + (__tmp152538 + (let ((__tmp152539 + (let ((__tmp152540 + (let ((__tmp152542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152549 - (let ((__tmp152557 + (let ((__tmp152553 + (let ((__tmp152561 (let () (declare (not safe)) - (cons _L139956_ '()))) - (__tmp152550 - (let ((__tmp152551 - (let ((__tmp152552 - (let ((__tmp152553 - (let ((__tmp152555 + (cons _L139960_ '()))) + (__tmp152554 + (let ((__tmp152555 + (let ((__tmp152556 + (let ((__tmp152557 + (let ((__tmp152559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152556 + (let ((__tmp152560 (let () (declare (not safe)) - (cons _id139993_ '())))) + (cons _id139997_ '())))) (declare (not safe)) - (cons '%#ref __tmp152556))) - (__tmp152554 + (cons '%#ref __tmp152560))) + (__tmp152558 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp152555 __tmp152554)))) + (cons __tmp152559 __tmp152558)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp152553)))) + (cons '(%#ref ##vector-ref) __tmp152557)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp152552)))) + __tmp152556)))) (declare (not safe)) - (cons __tmp152551 '())))) + (cons __tmp152555 '())))) (declare (not safe)) - (cons __tmp152557 __tmp152550))) - (__tmp152539 - (let ((__tmp152540 - (let ((__tmp152548 + (cons __tmp152561 __tmp152554))) + (__tmp152543 + (let ((__tmp152544 + (let ((__tmp152552 (let () (declare (not safe)) - (cons _L139955_ '()))) - (__tmp152541 - (let ((__tmp152542 - (let ((__tmp152543 - (let ((__tmp152544 + (cons _L139959_ '()))) + (__tmp152545 + (let ((__tmp152546 + (let ((__tmp152547 + (let ((__tmp152548 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152546 - (let ((__tmp152547 + (let ((__tmp152550 + (let ((__tmp152551 (let () (declare (not safe)) - (cons _id139993_ '())))) + (cons _id139997_ '())))) (declare (not safe)) - (cons '%#ref __tmp152547))) - (__tmp152545 + (cons '%#ref __tmp152551))) + (__tmp152549 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp152546 __tmp152545)))) + (cons __tmp152550 __tmp152549)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp152544)))) + (cons '(%#ref ##vector-ref) __tmp152548)))) (declare (not safe)) - (cons '%#call __tmp152543)))) + (cons '%#call __tmp152547)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152542 '())))) + (cons __tmp152546 '())))) (declare (not safe)) - (cons __tmp152548 __tmp152541)))) + (cons __tmp152552 __tmp152545)))) (declare (not safe)) - (cons __tmp152540 '())))) + (cons __tmp152544 '())))) (declare (not safe)) - (cons __tmp152549 __tmp152539))) - (__tmp152537 + (cons __tmp152553 __tmp152543))) + (__tmp152541 (let () (declare (not safe)) - (cons _body139996_ '())))) + (cons _body140000_ '())))) (declare (not safe)) - (cons __tmp152538 __tmp152537)))) + (cons __tmp152542 __tmp152541)))) (declare (not safe)) - (cons '%#let-values __tmp152536)))) + (cons '%#let-values __tmp152540)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152535 '())))) + (cons __tmp152539 '())))) (declare (not safe)) - (cons __tmp152558 __tmp152534)))) + (cons __tmp152562 __tmp152538)))) (declare (not safe)) - (cons '%#let-values __tmp152533))))) - (___kont151553151554_ - (lambda (_L139834_ _L139835_) - (let* ((_body139849_ + (cons '%#let-values __tmp152537))))) + (___kont151557151558_ + (lambda (_L139838_ _L139839_) + (let* ((_body139853_ (let () (declare (not safe)) - (_xform-e138821_ - _L139834_ - _kont-id139206_ - _kont-box139207_ - _negation-id139208_))) - (__tmp152568 - (let ((__tmp152569 + (_xform-e138825_ + _L139838_ + _kont-id139210_ + _kont-box139211_ + _negation-id139212_))) + (__tmp152572 + (let ((__tmp152573 (let () (declare (not safe)) - (cons _body139849_ '())))) + (cons _body139853_ '())))) (declare (not safe)) - (cons _L139835_ __tmp152569)))) + (cons _L139839_ __tmp152573)))) (declare (not safe)) - (cons '%#let-values __tmp152568)))) - (___kont151555151556_ - (lambda (_L139778_ _L139779_ _L139780_) - (let* ((_lambda-expr139803_ + (cons '%#let-values __tmp152572)))) + (___kont151559151560_ + (lambda (_L139782_ _L139783_ _L139784_) + (let* ((_lambda-expr139807_ (let () (declare (not safe)) - (_xform-loop-e138822_ - _L139779_ - _kont-id139206_ - _kont-box139207_ - _negation-id139208_))) - (__tmp152570 - (let ((__tmp152572 - (let ((__tmp152573 - (let ((__tmp152575 + (_xform-loop-e138826_ + _L139783_ + _kont-id139210_ + _kont-box139211_ + _negation-id139212_))) + (__tmp152574 + (let ((__tmp152576 + (let ((__tmp152577 + (let ((__tmp152579 (let () (declare (not safe)) - (cons _L139780_ + (cons _L139784_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp152574 + (__tmp152578 (let () (declare (not safe)) - (cons _lambda-expr139803_ '())))) + (cons _lambda-expr139807_ '())))) (declare (not safe)) - (cons __tmp152575 __tmp152574)))) + (cons __tmp152579 __tmp152578)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152573 '()))) - (__tmp152571 + (cons __tmp152577 '()))) + (__tmp152575 (let () (declare (not safe)) - (cons _L139778_ '())))) + (cons _L139782_ '())))) (declare (not safe)) - (cons __tmp152572 __tmp152571)))) + (cons __tmp152576 __tmp152575)))) (declare (not safe)) - (cons '%#letrec-values __tmp152570)))) - (___kont151557151558_ - (lambda (_L139440_ _L139441_ _L139442_) - (let* ((___stx151449151450_ _L139441_) - (_g139471139514_ + (cons '%#letrec-values __tmp152574)))) + (___kont151561151562_ + (lambda (_L139444_ _L139445_ _L139446_) + (let* ((___stx151453151454_ _L139445_) + (_g139475139518_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151449151450_))))) - (let ((___kont151451151452_ - (lambda (_L139630_ - _L139631_ - _L139632_ - _L139633_) - (let ((_kont139674_ - (let ((__tmp152580 + ___stx151453151454_))))) + (let ((___kont151455151456_ + (lambda (_L139634_ + _L139635_ + _L139636_ + _L139637_) + (let ((_kont139678_ + (let ((__tmp152584 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp152576 - (let ((__tmp152578 - (let ((__tmp152579 + (__tmp152580 + (let ((__tmp152582 + (let ((__tmp152583 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g139666139669_ _g139667139671_) + (lambda (_g139670139673_ _g139671139675_) (let () (declare (not safe)) - (cons _g139666139669_ _g139667139671_))))) + (cons _g139670139673_ _g139671139675_))))) (declare (not safe)) - (foldr1 __tmp152579 '() _L139442_))) - (__tmp152577 - (let () (declare (not safe)) (cons _L139632_ '())))) + (foldr1 __tmp152583 '() _L139446_))) + (__tmp152581 + (let () (declare (not safe)) (cons _L139636_ '())))) (declare (not safe)) - (cons __tmp152578 __tmp152577)))) + (cons __tmp152582 __tmp152581)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152580 - __tmp152576)))) + (cons __tmp152584 + __tmp152580)))) (set-box! - _kont-box139207_ - _kont139674_) - (let* ((_kont-args139685_ - (map (lambda (_id139676_) - (let ((__tmp152581 + _kont-box139211_ + _kont139678_) + (let* ((_kont-args139689_ + (map (lambda (_id139680_) + (let ((__tmp152585 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id139676_ '())))) + (let () (declare (not safe)) (cons _id139680_ '())))) (declare (not safe)) - (cons '%#ref __tmp152581))) - (let ((__tmp152582 - (lambda (_g139677139680_ _g139678139682_) + (cons '%#ref __tmp152585))) + (let ((__tmp152586 + (lambda (_g139681139684_ _g139682139686_) (let () (declare (not safe)) - (cons _g139677139680_ _g139678139682_))))) + (cons _g139681139684_ _g139682139686_))))) (declare (not safe)) - (foldr1 __tmp152582 '() _L139442_)))) + (foldr1 __tmp152586 '() _L139446_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body139687_ - (let ((__tmp152583 - (let ((__tmp152584 + (_body139691_ + (let ((__tmp152587 + (let ((__tmp152588 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152596 - (let ((__tmp152597 - (let ((__tmp152598 - (let ((__tmp152599 + (let ((__tmp152600 + (let ((__tmp152601 + (let ((__tmp152602 + (let ((__tmp152603 (let () (declare (not safe)) - (cons _kont-id139206_ + (cons _kont-id139210_ '())))) (declare (not safe)) - (cons '%#ref __tmp152599)))) + (cons '%#ref __tmp152603)))) (declare (not safe)) - (cons __tmp152598 - _kont-args139685_)))) + (cons __tmp152602 + _kont-args139689_)))) (declare (not safe)) - (cons '%#call __tmp152597))) - (__tmp152585 - (let ((__tmp152586 - (let ((__tmp152595 + (cons '%#call __tmp152601))) + (__tmp152589 + (let ((__tmp152590 + (let ((__tmp152599 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152587 - (let ((__tmp152592 - (let ((__tmp152594 + (__tmp152591 + (let ((__tmp152596 + (let ((__tmp152598 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152593 - (let () (declare (not safe)) (cons _L139631_ '())))) + (__tmp152597 + (let () (declare (not safe)) (cons _L139635_ '())))) (declare (not safe)) - (cons __tmp152594 __tmp152593))) + (cons __tmp152598 __tmp152597))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp152588 - (let ((__tmp152589 - (let ((__tmp152591 + (__tmp152592 + (let ((__tmp152593 + (let ((__tmp152595 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152590 + (__tmp152594 (let () (declare (not safe)) - (cons _L139630_ '())))) + (cons _L139634_ '())))) (declare (not safe)) - (cons __tmp152591 __tmp152590)))) + (cons __tmp152595 __tmp152594)))) (declare (not safe)) - (cons __tmp152589 '())))) + (cons __tmp152593 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152592 - __tmp152588)))) + (cons __tmp152596 + __tmp152592)))) (declare (not safe)) - (cons __tmp152595 __tmp152587)))) + (cons __tmp152599 __tmp152591)))) (declare (not safe)) - (cons __tmp152586 '())))) + (cons __tmp152590 '())))) (declare (not safe)) - (cons __tmp152596 __tmp152585)))) + (cons __tmp152600 __tmp152589)))) (declare (not safe)) - (cons _L139633_ __tmp152584)))) + (cons _L139637_ __tmp152588)))) (declare (not safe)) - (cons '%#if __tmp152583)))) + (cons '%#if __tmp152587)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp152607 - (let ((__tmp152608 - (lambda (_g139689139692_ + (if (let ((__tmp152611 + (let ((__tmp152612 + (lambda (_g139693139696_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g139690139694_) + _g139694139698_) (let () (declare (not safe)) - (cons _g139689139692_ _g139690139694_))))) + (cons _g139693139696_ _g139694139698_))))) (declare (not safe)) - (foldr1 __tmp152608 '() _L139442_)))) + (foldr1 __tmp152612 '() _L139446_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp152607)) - _body139687_ - (let ((__tmp152600 - (let ((__tmp152602 - (map (lambda (_id139697_ + (null? __tmp152611)) + _body139691_ + (let ((__tmp152604 + (let ((__tmp152606 + (map (lambda (_id139701_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg139698_) - (let ((__tmp152604 + _arg139702_) + (let ((__tmp152608 (let () (declare (not safe)) - (cons _id139697_ '()))) - (__tmp152603 + (cons _id139701_ '()))) + (__tmp152607 (let () (declare (not safe)) - (cons _arg139698_ '())))) + (cons _arg139702_ '())))) (declare (not safe)) - (cons __tmp152604 __tmp152603))) - (let ((__tmp152605 - (lambda (_g139699139702_ _g139700139704_) + (cons __tmp152608 __tmp152607))) + (let ((__tmp152609 + (lambda (_g139703139706_ _g139704139708_) (let () (declare (not safe)) - (cons _g139699139702_ - _g139700139704_))))) + (cons _g139703139706_ + _g139704139708_))))) (declare (not safe)) - (foldr1 __tmp152605 '() _L139442_)) - (let ((__tmp152606 - (lambda (_g139706139709_ _g139707139711_) + (foldr1 __tmp152609 '() _L139446_)) + (let ((__tmp152610 + (lambda (_g139710139713_ _g139711139715_) (let () (declare (not safe)) - (cons _g139706139709_ - _g139707139711_))))) + (cons _g139710139713_ + _g139711139715_))))) (declare (not safe)) - (foldr1 __tmp152606 '() _L139440_)))) - (__tmp152601 - (let () (declare (not safe)) (cons _body139687_ '())))) + (foldr1 __tmp152610 '() _L139444_)))) + (__tmp152605 + (let () (declare (not safe)) (cons _body139691_ '())))) (declare (not safe)) - (cons __tmp152602 __tmp152601)))) + (cons __tmp152606 __tmp152605)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152600))))))) - (___kont151453151454_ + __tmp152604))))))) + (___kont151457151458_ (lambda () - (let ((_kont139528_ - (let ((__tmp152613 + (let ((_kont139532_ + (let ((__tmp152617 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp152609 - (let ((__tmp152611 - (let ((__tmp152612 + (__tmp152613 + (let ((__tmp152615 + (let ((__tmp152616 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g139520139523_ _g139521139525_) + (lambda (_g139524139527_ _g139525139529_) (let () (declare (not safe)) - (cons _g139520139523_ _g139521139525_))))) + (cons _g139524139527_ _g139525139529_))))) (declare (not safe)) - (foldr1 __tmp152612 '() _L139442_))) - (__tmp152610 - (let () (declare (not safe)) (cons _L139441_ '())))) + (foldr1 __tmp152616 '() _L139446_))) + (__tmp152614 + (let () (declare (not safe)) (cons _L139445_ '())))) (declare (not safe)) - (cons __tmp152611 __tmp152610)))) + (cons __tmp152615 __tmp152614)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152613 - __tmp152609)))) + (cons __tmp152617 + __tmp152613)))) (set-box! - _kont-box139207_ - _kont139528_) - (let ((__tmp152614 - (let ((__tmp152617 - (let ((__tmp152618 + _kont-box139211_ + _kont139532_) + (let ((__tmp152618 + (let ((__tmp152621 + (let ((__tmp152622 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id139206_ '())))) + (cons _kont-id139210_ '())))) (declare (not safe)) - (cons '%#ref __tmp152618))) - (__tmp152615 - (let ((__tmp152616 - (lambda (_g139529139532_ _g139530139534_) + (cons '%#ref __tmp152622))) + (__tmp152619 + (let ((__tmp152620 + (lambda (_g139533139536_ _g139534139538_) (let () (declare (not safe)) - (cons _g139529139532_ _g139530139534_))))) + (cons _g139533139536_ _g139534139538_))))) (declare (not safe)) - (foldr1 __tmp152616 '() _L139440_)))) + (foldr1 __tmp152620 '() _L139444_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152617 - __tmp152615)))) + (cons __tmp152621 + __tmp152619)))) (declare (not safe)) - (cons '%#call __tmp152614)))))) - (let ((___match151544151545_ - (lambda (_e139479139542_ - _hd139478139545_ - _tl139477139547_ - _e139482139550_ - _hd139481139553_ - _tl139480139555_ - _e139485139558_ - _hd139484139561_ - _tl139483139563_ - _e139488139566_ - _hd139487139569_ - _tl139486139571_ - _e139491139574_ - _hd139490139577_ - _tl139489139579_ - _e139494139582_ - _hd139493139585_ - _tl139492139587_ - _e139497139590_ - _hd139496139593_ - _tl139495139595_ - _e139500139598_ - _hd139499139601_ - _tl139498139603_ - _e139503139606_ - _hd139502139609_ - _tl139501139611_ - _e139506139614_ - _hd139505139617_ - _tl139504139619_ - _e139509139622_ - _hd139508139625_ - _tl139507139627_) - (let ((_L139630_ _hd139508139625_) - (_L139631_ _hd139499139601_) - (_L139632_ _hd139484139561_) - (_L139633_ _hd139481139553_)) + (cons '%#call __tmp152618)))))) + (let ((___match151548151549_ + (lambda (_e139483139546_ + _hd139482139549_ + _tl139481139551_ + _e139486139554_ + _hd139485139557_ + _tl139484139559_ + _e139489139562_ + _hd139488139565_ + _tl139487139567_ + _e139492139570_ + _hd139491139573_ + _tl139490139575_ + _e139495139578_ + _hd139494139581_ + _tl139493139583_ + _e139498139586_ + _hd139497139589_ + _tl139496139591_ + _e139501139594_ + _hd139500139597_ + _tl139499139599_ + _e139504139602_ + _hd139503139605_ + _tl139502139607_ + _e139507139610_ + _hd139506139613_ + _tl139505139615_ + _e139510139618_ + _hd139509139621_ + _tl139508139623_ + _e139513139626_ + _hd139512139629_ + _tl139511139631_) + (let ((_L139634_ _hd139512139629_) + (_L139635_ _hd139503139605_) + (_L139636_ _hd139488139565_) + (_L139637_ _hd139485139557_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L139631_ - _negation-id139208_)) - (___kont151451151452_ - _L139630_ - _L139631_ - _L139632_ - _L139633_) - (___kont151453151454_)))))) + _L139635_ + _negation-id139212_)) + (___kont151455151456_ + _L139634_ + _L139635_ + _L139636_ + _L139637_) + (___kont151457151458_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151449151450_)) - (let ((_e139479139542_ + (gx#stx-pair? ___stx151453151454_)) + (let ((_e139483139546_ (let () (declare (not safe)) (gx#stx-e - ___stx151449151450_)))) - (let ((_tl139477139547_ + ___stx151453151454_)))) + (let ((_tl139481139551_ (let () (declare (not safe)) - (##cdr _e139479139542_))) - (_hd139478139545_ + (##cdr _e139483139546_))) + (_hd139482139549_ (let () (declare (not safe)) - (##car _e139479139542_)))) + (##car _e139483139546_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139478139545_)) + _hd139482139549_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd139478139545_)) + _hd139482139549_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139477139547_)) - (let ((_e139482139550_ + _tl139481139551_)) + (let ((_e139486139554_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl139477139547_)))) - (let ((_tl139480139555_ + (gx#stx-e _tl139481139551_)))) + (let ((_tl139484139559_ (let () (declare (not safe)) - (##cdr _e139482139550_))) - (_hd139481139553_ + (##cdr _e139486139554_))) + (_hd139485139557_ (let () (declare (not safe)) - (##car _e139482139550_)))) + (##car _e139486139554_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139480139555_)) - (let ((_e139485139558_ + (gx#stx-pair? _tl139484139559_)) + (let ((_e139489139562_ (let () (declare (not safe)) - (gx#stx-e _tl139480139555_)))) - (let ((_tl139483139563_ + (gx#stx-e _tl139484139559_)))) + (let ((_tl139487139567_ (let () (declare (not safe)) - (##cdr _e139485139558_))) - (_hd139484139561_ + (##cdr _e139489139562_))) + (_hd139488139565_ (let () (declare (not safe)) - (##car _e139485139558_)))) + (##car _e139489139562_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139483139563_)) - (let ((_e139488139566_ + (gx#stx-pair? _tl139487139567_)) + (let ((_e139492139570_ (let () (declare (not safe)) - (gx#stx-e _tl139483139563_)))) - (let ((_tl139486139571_ + (gx#stx-e _tl139487139567_)))) + (let ((_tl139490139575_ (let () (declare (not safe)) - (##cdr _e139488139566_))) - (_hd139487139569_ + (##cdr _e139492139570_))) + (_hd139491139573_ (let () (declare (not safe)) - (##car _e139488139566_)))) + (##car _e139492139570_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139487139569_)) - (let ((_e139491139574_ + (gx#stx-pair? _hd139491139573_)) + (let ((_e139495139578_ (let () (declare (not safe)) (gx#stx-e - _hd139487139569_)))) - (let ((_tl139489139579_ + _hd139491139573_)))) + (let ((_tl139493139583_ (let () (declare (not safe)) - (##cdr _e139491139574_))) - (_hd139490139577_ + (##cdr _e139495139578_))) + (_hd139494139581_ (let () (declare (not safe)) - (##car _e139491139574_)))) + (##car _e139495139578_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139490139577_)) + _hd139494139581_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd139490139577_)) + _hd139494139581_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139489139579_)) - (let ((_e139494139582_ + _tl139493139583_)) + (let ((_e139498139586_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl139489139579_)))) - (let ((_tl139492139587_ + (gx#stx-e _tl139493139583_)))) + (let ((_tl139496139591_ (let () (declare (not safe)) - (##cdr _e139494139582_))) - (_hd139493139585_ + (##cdr _e139498139586_))) + (_hd139497139589_ (let () (declare (not safe)) - (##car _e139494139582_)))) + (##car _e139498139586_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139493139585_)) - (let ((_e139497139590_ + (gx#stx-pair? _hd139497139589_)) + (let ((_e139501139594_ (let () (declare (not safe)) - (gx#stx-e _hd139493139585_)))) - (let ((_tl139495139595_ + (gx#stx-e _hd139497139589_)))) + (let ((_tl139499139599_ (let () (declare (not safe)) - (##cdr _e139497139590_))) - (_hd139496139593_ + (##cdr _e139501139594_))) + (_hd139500139597_ (let () (declare (not safe)) - (##car _e139497139590_)))) + (##car _e139501139594_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139496139593_)) + (gx#identifier? _hd139500139597_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd139496139593_)) + (gx#stx-eq? '%#ref _hd139500139597_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139495139595_)) - (let ((_e139500139598_ + (gx#stx-pair? _tl139499139599_)) + (let ((_e139504139602_ (let () (declare (not safe)) (gx#stx-e - _tl139495139595_)))) - (let ((_tl139498139603_ + _tl139499139599_)))) + (let ((_tl139502139607_ (let () (declare (not safe)) - (##cdr _e139500139598_))) - (_hd139499139601_ + (##cdr _e139504139602_))) + (_hd139503139605_ (let () (declare (not safe)) - (##car _e139500139598_)))) + (##car _e139504139602_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139498139603_)) + _tl139502139607_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139492139587_)) - (let ((_e139503139606_ + _tl139496139591_)) + (let ((_e139507139610_ (let () (declare (not safe)) (gx#stx-e - _tl139492139587_)))) - (let ((_tl139501139611_ + _tl139496139591_)))) + (let ((_tl139505139615_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e139503139606_))) - (_hd139502139609_ - (let () (declare (not safe)) (##car _e139503139606_)))) + (##cdr _e139507139610_))) + (_hd139506139613_ + (let () (declare (not safe)) (##car _e139507139610_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139502139609_)) - (let ((_e139506139614_ + (gx#stx-pair? _hd139506139613_)) + (let ((_e139510139618_ (let () (declare (not safe)) - (gx#stx-e _hd139502139609_)))) - (let ((_tl139504139619_ + (gx#stx-e _hd139506139613_)))) + (let ((_tl139508139623_ (let () (declare (not safe)) - (##cdr _e139506139614_))) - (_hd139505139617_ + (##cdr _e139510139618_))) + (_hd139509139621_ (let () (declare (not safe)) - (##car _e139506139614_)))) + (##car _e139510139618_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139505139617_)) + (gx#identifier? _hd139509139621_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd139505139617_)) + (gx#stx-eq? '%#ref _hd139509139621_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139504139619_)) - (let ((_e139509139622_ + (gx#stx-pair? _tl139508139623_)) + (let ((_e139513139626_ (let () (declare (not safe)) - (gx#stx-e _tl139504139619_)))) - (let ((_tl139507139627_ + (gx#stx-e _tl139508139623_)))) + (let ((_tl139511139631_ (let () (declare (not safe)) - (##cdr _e139509139622_))) - (_hd139508139625_ + (##cdr _e139513139626_))) + (_hd139512139629_ (let () (declare (not safe)) - (##car _e139509139622_)))) + (##car _e139513139626_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139507139627_)) + (gx#stx-null? _tl139511139631_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl139501139611_)) + _tl139505139615_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl139486139571_)) - (___match151544151545_ - _e139479139542_ - _hd139478139545_ - _tl139477139547_ - _e139482139550_ - _hd139481139553_ - _tl139480139555_ - _e139485139558_ - _hd139484139561_ - _tl139483139563_ - _e139488139566_ - _hd139487139569_ - _tl139486139571_ - _e139491139574_ - _hd139490139577_ - _tl139489139579_ - _e139494139582_ - _hd139493139585_ - _tl139492139587_ - _e139497139590_ - _hd139496139593_ - _tl139495139595_ - _e139500139598_ - _hd139499139601_ - _tl139498139603_ - _e139503139606_ - _hd139502139609_ - _tl139501139611_ - _e139506139614_ - _hd139505139617_ - _tl139504139619_ - _e139509139622_ - _hd139508139625_ - _tl139507139627_) - (___kont151453151454_)) - (___kont151453151454_)) - (___kont151453151454_)))) - (___kont151453151454_)) - (___kont151453151454_)) - (___kont151453151454_)))) - (___kont151453151454_)))) + _tl139490139575_)) + (___match151548151549_ + _e139483139546_ + _hd139482139549_ + _tl139481139551_ + _e139486139554_ + _hd139485139557_ + _tl139484139559_ + _e139489139562_ + _hd139488139565_ + _tl139487139567_ + _e139492139570_ + _hd139491139573_ + _tl139490139575_ + _e139495139578_ + _hd139494139581_ + _tl139493139583_ + _e139498139586_ + _hd139497139589_ + _tl139496139591_ + _e139501139594_ + _hd139500139597_ + _tl139499139599_ + _e139504139602_ + _hd139503139605_ + _tl139502139607_ + _e139507139610_ + _hd139506139613_ + _tl139505139615_ + _e139510139618_ + _hd139509139621_ + _tl139508139623_ + _e139513139626_ + _hd139512139629_ + _tl139511139631_) + (___kont151457151458_)) + (___kont151457151458_)) + (___kont151457151458_)))) + (___kont151457151458_)) + (___kont151457151458_)) + (___kont151457151458_)))) + (___kont151457151458_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151453151454_)) - (___kont151453151454_)))) - (___kont151453151454_)) - (___kont151453151454_)) - (___kont151453151454_)))) - (___kont151453151454_)))) - (___kont151453151454_)) + (___kont151457151458_)) + (___kont151457151458_)))) + (___kont151457151458_)) + (___kont151457151458_)) + (___kont151457151458_)))) + (___kont151457151458_)))) + (___kont151457151458_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151453151454_)) - (___kont151453151454_)))) - (___kont151453151454_)))) - (___kont151453151454_)))) - (___kont151453151454_)))) - (___kont151453151454_)) + (___kont151457151458_)) + (___kont151457151458_)))) + (___kont151457151458_)))) + (___kont151457151458_)))) + (___kont151457151458_)))) + (___kont151457151458_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151453151454_)) - (___kont151453151454_)))) - (___kont151453151454_)))))))) - (let* ((___match151804151805_ - (lambda (_e139312139352_ - _hd139311139355_ - _tl139310139357_ - _e139315139360_ - _hd139314139363_ - _tl139313139365_ - _e139318139368_ - _hd139317139371_ - _tl139316139373_ - _e139321139376_ - _hd139320139379_ - _tl139319139381_ - ___splice151559151560_ - _target139322139384_ - _tl139324139386_) - (letrec ((_loop139325139389_ - (lambda (_hd139323139392_ - _id139329139394_) + (___kont151457151458_)) + (___kont151457151458_)))) + (___kont151457151458_)))))))) + (let* ((___match151808151809_ + (lambda (_e139316139356_ + _hd139315139359_ + _tl139314139361_ + _e139319139364_ + _hd139318139367_ + _tl139317139369_ + _e139322139372_ + _hd139321139375_ + _tl139320139377_ + _e139325139380_ + _hd139324139383_ + _tl139323139385_ + ___splice151563151564_ + _target139326139388_ + _tl139328139390_) + (letrec ((_loop139329139393_ + (lambda (_hd139327139396_ + _id139333139398_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139323139392_)) - (let ((_e139326139397_ + _hd139327139396_)) + (let ((_e139330139401_ (let () (declare (not safe)) (gx#stx-e - _hd139323139392_)))) - (let ((_lp-tl139328139402_ + _hd139327139396_)))) + (let ((_lp-tl139332139406_ (let () (declare (not safe)) - (##cdr _e139326139397_))) - (_lp-hd139327139400_ + (##cdr _e139330139401_))) + (_lp-hd139331139404_ (let () (declare (not safe)) - (##car _e139326139397_)))) - (let ((__tmp152620 + (##car _e139330139401_)))) + (let ((__tmp152624 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd139327139400_ _id139329139394_)))) + (cons _lp-hd139331139404_ _id139333139398_)))) (declare (not safe)) - (_loop139325139389_ _lp-tl139328139402_ __tmp152620)))) + (_loop139329139393_ _lp-tl139332139406_ __tmp152624)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id139330139405_ - (reverse _id139329139394_))) + (let ((_id139334139409_ + (reverse _id139333139398_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139319139381_)) - (let ((_e139333139408_ + _tl139323139385_)) + (let ((_e139337139412_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl139319139381_)))) - (let ((_tl139331139413_ - (let () (declare (not safe)) (##cdr _e139333139408_))) - (_hd139332139411_ + (gx#stx-e _tl139323139385_)))) + (let ((_tl139335139417_ + (let () (declare (not safe)) (##cdr _e139337139412_))) + (_hd139336139415_ (let () (declare (not safe)) - (##car _e139333139408_)))) + (##car _e139337139412_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139331139413_)) + (gx#stx-null? _tl139335139417_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl139313139365_)) - (let ((___splice151561151562_ + (gx#stx-pair/null? _tl139317139369_)) + (let ((___splice151565151566_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl139313139365_ + _tl139317139369_ '0)))) - (let ((_tl139336139418_ + (let ((_tl139340139422_ (let () (declare (not safe)) (##vector-ref - ___splice151561151562_ + ___splice151565151566_ '1))) - (_target139334139416_ + (_target139338139420_ (let () (declare (not safe)) (##vector-ref - ___splice151561151562_ + ___splice151565151566_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139336139418_)) - (letrec ((_loop139337139421_ - (lambda (_hd139335139424_ - _arg139341139426_) + (gx#stx-null? _tl139340139422_)) + (letrec ((_loop139341139425_ + (lambda (_hd139339139428_ + _arg139345139430_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139335139424_)) - (let ((_e139338139429_ + _hd139339139428_)) + (let ((_e139342139433_ (let () (declare (not safe)) (gx#stx-e - _hd139335139424_)))) - (let ((_lp-tl139340139434_ + _hd139339139428_)))) + (let ((_lp-tl139344139438_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e139338139429_))) - (_lp-hd139339139432_ - (let () (declare (not safe)) (##car _e139338139429_)))) - (let ((__tmp152619 + (##cdr _e139342139433_))) + (_lp-hd139343139436_ + (let () (declare (not safe)) (##car _e139342139433_)))) + (let ((__tmp152623 (let () (declare (not safe)) - (cons _lp-hd139339139432_ _arg139341139426_)))) + (cons _lp-hd139343139436_ _arg139345139430_)))) (declare (not safe)) - (_loop139337139421_ _lp-tl139340139434_ __tmp152619)))) + (_loop139341139425_ _lp-tl139344139438_ __tmp152623)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg139342139437_ - (reverse _arg139341139426_))) - (___kont151557151558_ - _arg139342139437_ - _hd139332139411_ - _id139330139405_)))))) + (let ((_arg139346139441_ + (reverse _arg139345139430_))) + (___kont151561151562_ + _arg139346139441_ + _hd139336139415_ + _id139334139409_)))))) (let () (declare (not safe)) - (_loop139337139421_ - _target139334139416_ + (_loop139341139425_ + _target139338139420_ '()))) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_))) - (let () (declare (not safe)) (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_)))))))) + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_))) + (let () (declare (not safe)) (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop139325139389_ - _target139322139384_ + (_loop139329139393_ + _target139326139388_ '()))))) - (___match151686151687_ - (lambda (_e139238139856_ - _hd139237139859_ - _tl139236139861_ - _e139241139864_ - _hd139240139867_ - _tl139239139869_ - _e139244139872_ - _hd139243139875_ - _tl139242139877_ - _e139247139880_ - _hd139246139883_ - _tl139245139885_ - _e139250139888_ - _hd139249139891_ - _tl139248139893_ - _e139253139896_ - _hd139252139899_ - _tl139251139901_ - _e139256139904_ - _hd139255139907_ - _tl139254139909_ - _e139259139912_ - _hd139258139915_ - _tl139257139917_ - _e139262139920_ - _hd139261139923_ - _tl139260139925_ - _e139265139928_ - _hd139264139931_ - _tl139263139933_ - _e139268139936_ - _hd139267139939_ - _tl139266139941_ - _e139271139944_ - _hd139270139947_ - _tl139269139949_) - (let ((_L139952_ _hd139270139947_) - (_L139953_ _tl139260139925_) - (_L139954_ _hd139267139939_) - (_L139955_ _hd139252139899_) - (_L139956_ _hd139249139891_)) + (___match151690151691_ + (lambda (_e139242139860_ + _hd139241139863_ + _tl139240139865_ + _e139245139868_ + _hd139244139871_ + _tl139243139873_ + _e139248139876_ + _hd139247139879_ + _tl139246139881_ + _e139251139884_ + _hd139250139887_ + _tl139249139889_ + _e139254139892_ + _hd139253139895_ + _tl139252139897_ + _e139257139900_ + _hd139256139903_ + _tl139255139905_ + _e139260139908_ + _hd139259139911_ + _tl139258139913_ + _e139263139916_ + _hd139262139919_ + _tl139261139921_ + _e139266139924_ + _hd139265139927_ + _tl139264139929_ + _e139269139932_ + _hd139268139935_ + _tl139267139937_ + _e139272139940_ + _hd139271139943_ + _tl139270139945_ + _e139275139948_ + _hd139274139951_ + _tl139273139953_) + (let ((_L139956_ _hd139274139951_) + (_L139957_ _tl139264139929_) + (_L139958_ _hd139271139943_) + (_L139959_ _hd139256139903_) + (_L139960_ _hd139253139895_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L139954_ + _L139958_ 'gx#syntax-split-splice)) - (___kont151551151552_ - _L139952_ - _L139953_ - _L139954_ - _L139955_ - _L139956_) - (___kont151553151554_ - _hd139270139947_ - _hd139240139867_)))))) + (___kont151555151556_ + _L139956_ + _L139957_ + _L139958_ + _L139959_ + _L139960_) + (___kont151557151558_ + _hd139274139951_ + _hd139244139871_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151547151548_)) - (let ((_e139221140004_ + (gx#stx-pair? ___stx151551151552_)) + (let ((_e139225140008_ (let () (declare (not safe)) - (gx#stx-e ___stx151547151548_)))) - (let ((_tl139219140009_ + (gx#stx-e ___stx151551151552_)))) + (let ((_tl139223140013_ (let () (declare (not safe)) - (##cdr _e139221140004_))) - (_hd139220140007_ + (##cdr _e139225140008_))) + (_hd139224140011_ (let () (declare (not safe)) - (##car _e139221140004_)))) + (##car _e139225140008_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139220140007_)) + (gx#identifier? _hd139224140011_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd139220140007_)) + _hd139224140011_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139219140009_)) - (let ((_e139224140012_ + _tl139223140013_)) + (let ((_e139228140016_ (let () (declare (not safe)) (gx#stx-e - _tl139219140009_)))) - (let ((_tl139222140017_ + _tl139223140013_)))) + (let ((_tl139226140021_ (let () (declare (not safe)) - (##cdr _e139224140012_))) - (_hd139223140015_ + (##cdr _e139228140016_))) + (_hd139227140019_ (let () (declare (not safe)) - (##car _e139224140012_)))) + (##car _e139228140016_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139222140017_)) - (let ((_e139227140020_ + _tl139226140021_)) + (let ((_e139231140024_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl139222140017_)))) - (let ((_tl139225140025_ - (let () (declare (not safe)) (##cdr _e139227140020_))) - (_hd139226140023_ - (let () (declare (not safe)) (##car _e139227140020_)))) + (gx#stx-e _tl139226140021_)))) + (let ((_tl139229140029_ + (let () (declare (not safe)) (##cdr _e139231140024_))) + (_hd139230140027_ + (let () (declare (not safe)) (##car _e139231140024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139225140025_)) - (let ((_e139230140028_ + (gx#stx-pair? _tl139229140029_)) + (let ((_e139234140032_ (let () (declare (not safe)) - (gx#stx-e _tl139225140025_)))) - (let ((_tl139228140033_ + (gx#stx-e _tl139229140029_)))) + (let ((_tl139232140037_ (let () (declare (not safe)) - (##cdr _e139230140028_))) - (_hd139229140031_ + (##cdr _e139234140032_))) + (_hd139233140035_ (let () (declare (not safe)) - (##car _e139230140028_)))) + (##car _e139234140032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139228140033_)) - (___kont151549151550_ - _hd139229140031_ - _hd139226140023_ - _hd139223140015_) + (gx#stx-null? _tl139232140037_)) + (___kont151553151554_ + _hd139233140035_ + _hd139230140027_ + _hd139227140019_) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_))))) + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139214139347_))) + (_g139218139351_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd139220140007_)) + _hd139224140011_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139219140009_)) - (let ((_e139241139864_ + _tl139223140013_)) + (let ((_e139245139868_ (let () (declare (not safe)) (gx#stx-e - _tl139219140009_)))) - (let ((_tl139239139869_ + _tl139223140013_)))) + (let ((_tl139243139873_ (let () (declare (not safe)) - (##cdr _e139241139864_))) - (_hd139240139867_ + (##cdr _e139245139868_))) + (_hd139244139871_ (let () (declare (not safe)) - (##car _e139241139864_)))) + (##car _e139245139868_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139240139867_)) - (let ((_e139244139872_ + _hd139244139871_)) + (let ((_e139248139876_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd139240139867_)))) - (let ((_tl139242139877_ + (gx#stx-e _hd139244139871_)))) + (let ((_tl139246139881_ (let () (declare (not safe)) - (##cdr _e139244139872_))) - (_hd139243139875_ + (##cdr _e139248139876_))) + (_hd139247139879_ (let () (declare (not safe)) - (##car _e139244139872_)))) + (##car _e139248139876_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139243139875_)) - (let ((_e139247139880_ + (gx#stx-pair? _hd139247139879_)) + (let ((_e139251139884_ (let () (declare (not safe)) - (gx#stx-e _hd139243139875_)))) - (let ((_tl139245139885_ + (gx#stx-e _hd139247139879_)))) + (let ((_tl139249139889_ (let () (declare (not safe)) - (##cdr _e139247139880_))) - (_hd139246139883_ + (##cdr _e139251139884_))) + (_hd139250139887_ (let () (declare (not safe)) - (##car _e139247139880_)))) + (##car _e139251139884_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139246139883_)) - (let ((_e139250139888_ + (gx#stx-pair? _hd139250139887_)) + (let ((_e139254139892_ (let () (declare (not safe)) - (gx#stx-e _hd139246139883_)))) - (let ((_tl139248139893_ + (gx#stx-e _hd139250139887_)))) + (let ((_tl139252139897_ (let () (declare (not safe)) - (##cdr _e139250139888_))) - (_hd139249139891_ + (##cdr _e139254139892_))) + (_hd139253139895_ (let () (declare (not safe)) - (##car _e139250139888_)))) + (##car _e139254139892_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139248139893_)) - (let ((_e139253139896_ + (gx#stx-pair? _tl139252139897_)) + (let ((_e139257139900_ (let () (declare (not safe)) (gx#stx-e - _tl139248139893_)))) - (let ((_tl139251139901_ + _tl139252139897_)))) + (let ((_tl139255139905_ (let () (declare (not safe)) - (##cdr _e139253139896_))) - (_hd139252139899_ + (##cdr _e139257139900_))) + (_hd139256139903_ (let () (declare (not safe)) - (##car _e139253139896_)))) + (##car _e139257139900_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139251139901_)) + _tl139255139905_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139245139885_)) - (let ((_e139256139904_ + _tl139249139889_)) + (let ((_e139260139908_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl139245139885_)))) - (let ((_tl139254139909_ - (let () (declare (not safe)) (##cdr _e139256139904_))) - (_hd139255139907_ - (let () (declare (not safe)) (##car _e139256139904_)))) + (gx#stx-e _tl139249139889_)))) + (let ((_tl139258139913_ + (let () (declare (not safe)) (##cdr _e139260139908_))) + (_hd139259139911_ + (let () (declare (not safe)) (##car _e139260139908_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139255139907_)) - (let ((_e139259139912_ + (gx#stx-pair? _hd139259139911_)) + (let ((_e139263139916_ (let () (declare (not safe)) - (gx#stx-e _hd139255139907_)))) - (let ((_tl139257139917_ + (gx#stx-e _hd139259139911_)))) + (let ((_tl139261139921_ (let () (declare (not safe)) - (##cdr _e139259139912_))) - (_hd139258139915_ + (##cdr _e139263139916_))) + (_hd139262139919_ (let () (declare (not safe)) - (##car _e139259139912_)))) + (##car _e139263139916_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139258139915_)) + (gx#identifier? _hd139262139919_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd139258139915_)) + (gx#stx-eq? '%#call _hd139262139919_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139257139917_)) - (let ((_e139262139920_ + (gx#stx-pair? _tl139261139921_)) + (let ((_e139266139924_ (let () (declare (not safe)) - (gx#stx-e _tl139257139917_)))) - (let ((_tl139260139925_ + (gx#stx-e _tl139261139921_)))) + (let ((_tl139264139929_ (let () (declare (not safe)) - (##cdr _e139262139920_))) - (_hd139261139923_ + (##cdr _e139266139924_))) + (_hd139265139927_ (let () (declare (not safe)) - (##car _e139262139920_)))) + (##car _e139266139924_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139261139923_)) - (let ((_e139265139928_ + _hd139265139927_)) + (let ((_e139269139932_ (let () (declare (not safe)) (gx#stx-e - _hd139261139923_)))) - (let ((_tl139263139933_ + _hd139265139927_)))) + (let ((_tl139267139937_ (let () (declare (not safe)) - (##cdr _e139265139928_))) - (_hd139264139931_ + (##cdr _e139269139932_))) + (_hd139268139935_ (let () (declare (not safe)) - (##car _e139265139928_)))) + (##car _e139269139932_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139264139931_)) + _hd139268139935_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd139264139931_)) + _hd139268139935_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl139263139933_)) - (let ((_e139268139936_ + (gx#stx-pair? _tl139267139937_)) + (let ((_e139272139940_ (let () (declare (not safe)) - (gx#stx-e _tl139263139933_)))) - (let ((_tl139266139941_ + (gx#stx-e _tl139267139937_)))) + (let ((_tl139270139945_ (let () (declare (not safe)) - (##cdr _e139268139936_))) - (_hd139267139939_ + (##cdr _e139272139940_))) + (_hd139271139943_ (let () (declare (not safe)) - (##car _e139268139936_)))) + (##car _e139272139940_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139266139941_)) + (gx#stx-null? _tl139270139945_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl139254139909_)) + (gx#stx-null? _tl139258139913_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl139242139877_)) + (gx#stx-null? _tl139246139881_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139271139944_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139275139948_ (let () (declare (not safe)) (gx#stx-e - _tl139239139869_)))) - (let ((_tl139269139949_ + _tl139243139873_)))) + (let ((_tl139273139953_ (let () (declare (not safe)) - (##cdr _e139271139944_))) - (_hd139270139947_ + (##cdr _e139275139948_))) + (_hd139274139951_ (let () (declare (not safe)) - (##car _e139271139944_)))) + (##car _e139275139948_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139269139949_)) - (___match151686151687_ - _e139221140004_ - _hd139220140007_ - _tl139219140009_ - _e139241139864_ - _hd139240139867_ - _tl139239139869_ - _e139244139872_ - _hd139243139875_ - _tl139242139877_ - _e139247139880_ - _hd139246139883_ - _tl139245139885_ - _e139250139888_ - _hd139249139891_ - _tl139248139893_ - _e139253139896_ - _hd139252139899_ - _tl139251139901_ - _e139256139904_ - _hd139255139907_ - _tl139254139909_ - _e139259139912_ - _hd139258139915_ - _tl139257139917_ - _e139262139920_ - _hd139261139923_ - _tl139260139925_ - _e139265139928_ - _hd139264139931_ - _tl139263139933_ - _e139268139936_ - _hd139267139939_ - _tl139266139941_ - _e139271139944_ - _hd139270139947_ - _tl139269139949_) + _tl139273139953_)) + (___match151690151691_ + _e139225140008_ + _hd139224140011_ + _tl139223140013_ + _e139245139868_ + _hd139244139871_ + _tl139243139873_ + _e139248139876_ + _hd139247139879_ + _tl139246139881_ + _e139251139884_ + _hd139250139887_ + _tl139249139889_ + _e139254139892_ + _hd139253139895_ + _tl139252139897_ + _e139257139900_ + _hd139256139903_ + _tl139255139905_ + _e139260139908_ + _hd139259139911_ + _tl139258139913_ + _e139263139916_ + _hd139262139919_ + _tl139261139921_ + _e139266139924_ + _hd139265139927_ + _tl139264139929_ + _e139269139932_ + _hd139268139935_ + _tl139267139937_ + _e139272139940_ + _hd139271139943_ + _tl139270139945_ + _e139275139948_ + _hd139274139951_ + _tl139273139953_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_))) + (_g139218139351_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) (gx#stx-e - _tl139239139869_)))) - (let ((_tl139280139831_ + _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))) + (_g139218139351_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))) + (_g139218139351_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))))) + (_g139218139351_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_)))) + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) - (let () (declare (not safe)) (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_)))))) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) + (let () (declare (not safe)) (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl139239139869_)) - (let ((_e139282139826_ + _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) (gx#stx-e - _tl139239139869_)))) - (let ((_tl139280139831_ + _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))))) + (_g139218139351_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) (gx#stx-e - _tl139239139869_)))) - (let ((_tl139280139831_ + _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))) + (_g139218139351_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))) + (_g139218139351_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))))) + (_g139218139351_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) - (let () (declare (not safe)) (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_)))) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) + (let () (declare (not safe)) (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl139239139869_)) - (let ((_e139282139826_ + _tl139243139873_)) + (let ((_e139286139830_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ - (let () (declare (not safe)) (##cdr _e139282139826_))) - (_hd139281139829_ - (let () (declare (not safe)) (##car _e139282139826_)))) + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ + (let () (declare (not safe)) (##cdr _e139286139830_))) + (_hd139285139833_ + (let () (declare (not safe)) (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ _hd139281139829_ _hd139240139867_) - (let () (declare (not safe)) (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_)))))) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ _hd139285139833_ _hd139244139871_) + (let () (declare (not safe)) (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl139239139869_)) - (let ((_e139282139826_ + _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) (gx#stx-e - _tl139239139869_)))) - (let ((_tl139280139831_ + _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))))) + (_g139218139351_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))))) + (_g139218139351_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))))) + (_g139218139351_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139239139869_)) - (let ((_e139282139826_ + (gx#stx-pair? _tl139243139873_)) + (let ((_e139286139830_ (let () (declare (not safe)) - (gx#stx-e _tl139239139869_)))) - (let ((_tl139280139831_ + (gx#stx-e _tl139243139873_)))) + (let ((_tl139284139835_ (let () (declare (not safe)) - (##cdr _e139282139826_))) - (_hd139281139829_ + (##cdr _e139286139830_))) + (_hd139285139833_ (let () (declare (not safe)) - (##car _e139282139826_)))) + (##car _e139286139830_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139280139831_)) - (___kont151553151554_ - _hd139281139829_ - _hd139240139867_) + (gx#stx-null? _tl139284139835_)) + (___kont151557151558_ + _hd139285139833_ + _hd139244139871_) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_)))))) + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139214139347_))) + (_g139218139351_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd139220140007_)) + _hd139224140011_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139219140009_)) - (let ((_e139291139730_ + _tl139223140013_)) + (let ((_e139295139734_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl139219140009_)))) - (let ((_tl139289139735_ - (let () (declare (not safe)) (##cdr _e139291139730_))) - (_hd139290139733_ - (let () (declare (not safe)) (##car _e139291139730_)))) + (gx#stx-e _tl139223140013_)))) + (let ((_tl139293139739_ + (let () (declare (not safe)) (##cdr _e139295139734_))) + (_hd139294139737_ + (let () (declare (not safe)) (##car _e139295139734_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139290139733_)) - (let ((_e139294139738_ + (gx#stx-pair? _hd139294139737_)) + (let ((_e139298139742_ (let () (declare (not safe)) - (gx#stx-e _hd139290139733_)))) - (let ((_tl139292139743_ + (gx#stx-e _hd139294139737_)))) + (let ((_tl139296139747_ (let () (declare (not safe)) - (##cdr _e139294139738_))) - (_hd139293139741_ + (##cdr _e139298139742_))) + (_hd139297139745_ (let () (declare (not safe)) - (##car _e139294139738_)))) + (##car _e139298139742_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139293139741_)) - (let ((_e139297139746_ + (gx#stx-pair? _hd139297139745_)) + (let ((_e139301139750_ (let () (declare (not safe)) - (gx#stx-e _hd139293139741_)))) - (let ((_tl139295139751_ + (gx#stx-e _hd139297139745_)))) + (let ((_tl139299139755_ (let () (declare (not safe)) - (##cdr _e139297139746_))) - (_hd139296139749_ + (##cdr _e139301139750_))) + (_hd139300139753_ (let () (declare (not safe)) - (##car _e139297139746_)))) + (##car _e139301139750_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139296139749_)) - (let ((_e139300139754_ + (gx#stx-pair? _hd139300139753_)) + (let ((_e139304139758_ (let () (declare (not safe)) - (gx#stx-e _hd139296139749_)))) - (let ((_tl139298139759_ + (gx#stx-e _hd139300139753_)))) + (let ((_tl139302139763_ (let () (declare (not safe)) - (##cdr _e139300139754_))) - (_hd139299139757_ + (##cdr _e139304139758_))) + (_hd139303139761_ (let () (declare (not safe)) - (##car _e139300139754_)))) + (##car _e139304139758_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139298139759_)) + _tl139302139763_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139295139751_)) - (let ((_e139303139762_ + _tl139299139755_)) + (let ((_e139307139766_ (let () (declare (not safe)) (gx#stx-e - _tl139295139751_)))) - (let ((_tl139301139767_ + _tl139299139755_)))) + (let ((_tl139305139771_ (let () (declare (not safe)) - (##cdr _e139303139762_))) - (_hd139302139765_ + (##cdr _e139307139766_))) + (_hd139306139769_ (let () (declare (not safe)) - (##car _e139303139762_)))) + (##car _e139307139766_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139301139767_)) + _tl139305139771_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl139292139743_)) + (gx#stx-null? _tl139296139747_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139289139735_)) - (let ((_e139306139770_ + (gx#stx-pair? _tl139293139739_)) + (let ((_e139310139774_ (let () (declare (not safe)) - (gx#stx-e _tl139289139735_)))) - (let ((_tl139304139775_ + (gx#stx-e _tl139293139739_)))) + (let ((_tl139308139779_ (let () (declare (not safe)) - (##cdr _e139306139770_))) - (_hd139305139773_ + (##cdr _e139310139774_))) + (_hd139309139777_ (let () (declare (not safe)) - (##car _e139306139770_)))) + (##car _e139310139774_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139304139775_)) - (___kont151555151556_ - _hd139305139773_ - _hd139302139765_ - _hd139299139757_) + (gx#stx-null? _tl139308139779_)) + (___kont151559151560_ + _hd139309139777_ + _hd139306139769_ + _hd139303139761_) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_))) - (let () (declare (not safe)) (_g139214139347_))) - (let () (declare (not safe)) (_g139214139347_))))) + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_))) + (let () (declare (not safe)) (_g139218139351_))) + (let () (declare (not safe)) (_g139218139351_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139214139347_))) + (_g139218139351_))) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_))) + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd139220140007_)) + _hd139224140011_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139219140009_)) - (let ((_e139315139360_ + _tl139223140013_)) + (let ((_e139319139364_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl139219140009_)))) - (let ((_tl139313139365_ + (gx#stx-e _tl139223140013_)))) + (let ((_tl139317139369_ (let () (declare (not safe)) - (##cdr _e139315139360_))) - (_hd139314139363_ + (##cdr _e139319139364_))) + (_hd139318139367_ (let () (declare (not safe)) - (##car _e139315139360_)))) + (##car _e139319139364_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139314139363_)) - (let ((_e139318139368_ + (gx#stx-pair? _hd139318139367_)) + (let ((_e139322139372_ (let () (declare (not safe)) - (gx#stx-e _hd139314139363_)))) - (let ((_tl139316139373_ + (gx#stx-e _hd139318139367_)))) + (let ((_tl139320139377_ (let () (declare (not safe)) - (##cdr _e139318139368_))) - (_hd139317139371_ + (##cdr _e139322139372_))) + (_hd139321139375_ (let () (declare (not safe)) - (##car _e139318139368_)))) + (##car _e139322139372_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139317139371_)) + (gx#identifier? _hd139321139375_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139317139371_)) + _hd139321139375_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139316139373_)) - (let ((_e139321139376_ + (gx#stx-pair? _tl139320139377_)) + (let ((_e139325139380_ (let () (declare (not safe)) (gx#stx-e - _tl139316139373_)))) - (let ((_tl139319139381_ + _tl139320139377_)))) + (let ((_tl139323139385_ (let () (declare (not safe)) - (##cdr _e139321139376_))) - (_hd139320139379_ + (##cdr _e139325139380_))) + (_hd139324139383_ (let () (declare (not safe)) - (##car _e139321139376_)))) + (##car _e139325139380_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd139320139379_)) - (let ((___splice151559151560_ + _hd139324139383_)) + (let ((___splice151563151564_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd139320139379_ + _hd139324139383_ '0)))) - (let ((_tl139324139386_ + (let ((_tl139328139390_ (let () (declare (not safe)) (##vector-ref - ___splice151559151560_ + ___splice151563151564_ '1))) - (_target139322139384_ + (_target139326139388_ (let () (declare (not safe)) (##vector-ref - ___splice151559151560_ + ___splice151563151564_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139324139386_)) - (___match151804151805_ - _e139221140004_ - _hd139220140007_ - _tl139219140009_ - _e139315139360_ - _hd139314139363_ - _tl139313139365_ - _e139318139368_ - _hd139317139371_ - _tl139316139373_ - _e139321139376_ - _hd139320139379_ - _tl139319139381_ - ___splice151559151560_ - _target139322139384_ - _tl139324139386_) + _tl139328139390_)) + (___match151808151809_ + _e139225140008_ + _hd139224140011_ + _tl139223140013_ + _e139319139364_ + _hd139318139367_ + _tl139317139369_ + _e139322139372_ + _hd139321139375_ + _tl139320139377_ + _e139325139380_ + _hd139324139383_ + _tl139323139385_ + ___splice151563151564_ + _target139326139388_ + _tl139328139390_) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_))) + (_g139218139351_))) (let () (declare (not safe)) - (_g139214139347_))) + (_g139218139351_))) (let () (declare (not safe)) - (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_))))) - (let () (declare (not safe)) (_g139214139347_))) - (let () (declare (not safe)) (_g139214139347_)))))) + (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_))))) + (let () (declare (not safe)) (_g139218139351_))) + (let () (declare (not safe)) (_g139218139351_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139214139347_))))) + (_g139218139351_))))) (let () (declare (not safe)) - (_g139214139347_)))))))) - (_xform-loop-e138822_ - (lambda (_expr139031_ - _kont-id139032_ - _kont-box139033_ - _negation-id139034_) - (let* ((_g139036139076_ - (lambda (_g139037139073_) + (_g139218139351_)))))))) + (_xform-loop-e138826_ + (lambda (_expr139035_ + _kont-id139036_ + _kont-box139037_ + _negation-id139038_) + (let* ((_g139040139080_ + (lambda (_g139041139077_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g139037139073_)))) - (_g139035139202_ - (lambda (_g139037139079_) + _g139041139077_)))) + (_g139039139206_ + (lambda (_g139041139083_) (if (let () (declare (not safe)) - (gx#stx-pair? _g139037139079_)) - (let ((_e139044139081_ + (gx#stx-pair? _g139041139083_)) + (let ((_e139048139085_ (let () (declare (not safe)) - (gx#stx-e _g139037139079_)))) - (let ((_hd139043139084_ + (gx#stx-e _g139041139083_)))) + (let ((_hd139047139088_ (let () (declare (not safe)) - (##car _e139044139081_))) - (_tl139042139086_ + (##car _e139048139085_))) + (_tl139046139090_ (let () (declare (not safe)) - (##cdr _e139044139081_)))) + (##cdr _e139048139085_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139043139084_)) + (gx#identifier? _hd139047139088_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139043139084_)) + _hd139047139088_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139042139086_)) - (let ((_e139047139089_ + _tl139046139090_)) + (let ((_e139051139093_ (let () (declare (not safe)) (gx#stx-e - _tl139042139086_)))) - (let ((_hd139046139092_ + _tl139046139090_)))) + (let ((_hd139050139096_ (let () (declare (not safe)) - (##car _e139047139089_))) - (_tl139045139094_ + (##car _e139051139093_))) + (_tl139049139098_ (let () (declare (not safe)) - (##cdr _e139047139089_)))) + (##cdr _e139051139093_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd139046139092_)) - (let ((_g152621_ + _hd139050139096_)) + (let ((_g152625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd139046139092_ '0)))) + (gx#syntax-split-splice _hd139050139096_ '0)))) (begin - (let ((_g152622_ + (let ((_g152626_ (let () (declare (not safe)) - (if (##values? _g152621_) - (##vector-length _g152621_) + (if (##values? _g152625_) + (##vector-length _g152625_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152622_ 2))) - (error "Context expects 2 values" _g152622_))) - (let ((_target139048139097_ + (##fx= _g152626_ 2))) + (error "Context expects 2 values" _g152626_))) + (let ((_target139052139101_ (let () (declare (not safe)) - (##vector-ref _g152621_ 0))) - (_tl139050139099_ + (##vector-ref _g152625_ 0))) + (_tl139054139103_ (let () (declare (not safe)) - (##vector-ref _g152621_ 1)))) + (##vector-ref _g152625_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139050139099_)) - (letrec ((_loop139051139102_ - (lambda (_hd139049139105_ - _id139055139107_) + (gx#stx-null? _tl139054139103_)) + (letrec ((_loop139055139106_ + (lambda (_hd139053139109_ + _id139059139111_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139049139105_)) - (let ((_e139052139110_ + (gx#stx-pair? _hd139053139109_)) + (let ((_e139056139114_ (let () (declare (not safe)) (gx#stx-e - _hd139049139105_)))) - (let ((_lp-hd139053139113_ + _hd139053139109_)))) + (let ((_lp-hd139057139117_ (let () (declare (not safe)) - (##car _e139052139110_))) - (_lp-tl139054139115_ + (##car _e139056139114_))) + (_lp-tl139058139119_ (let () (declare (not safe)) - (##cdr _e139052139110_)))) - (let ((__tmp152631 + (##cdr _e139056139114_)))) + (let ((__tmp152635 (let () (declare (not safe)) - (cons _lp-hd139053139113_ - _id139055139107_)))) + (cons _lp-hd139057139117_ + _id139059139111_)))) (declare (not safe)) - (_loop139051139102_ - _lp-tl139054139115_ - __tmp152631)))) - (let ((_id139056139118_ - (reverse _id139055139107_))) + (_loop139055139106_ + _lp-tl139058139119_ + __tmp152635)))) + (let ((_id139060139122_ + (reverse _id139059139111_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139045139094_)) - (let ((_e139059139121_ + _tl139049139098_)) + (let ((_e139063139125_ (let () (declare (not safe)) (gx#stx-e - _tl139045139094_)))) - (let ((_hd139058139124_ + _tl139049139098_)))) + (let ((_hd139062139128_ (let () (declare (not safe)) - (##car _e139059139121_))) - (_tl139057139126_ + (##car _e139063139125_))) + (_tl139061139130_ (let () (declare (not safe)) - (##cdr _e139059139121_)))) + (##cdr _e139063139125_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139058139124_)) - (let ((_e139062139129_ + _hd139062139128_)) + (let ((_e139066139133_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd139058139124_)))) - (let ((_hd139061139132_ + (gx#stx-e _hd139062139128_)))) + (let ((_hd139065139136_ (let () (declare (not safe)) - (##car _e139062139129_))) - (_tl139060139134_ + (##car _e139066139133_))) + (_tl139064139138_ (let () (declare (not safe)) - (##cdr _e139062139129_)))) + (##cdr _e139066139133_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139061139132_)) + (gx#identifier? _hd139065139136_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd139061139132_)) + (gx#stx-eq? '%#if _hd139065139136_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139060139134_)) - (let ((_e139065139137_ + (gx#stx-pair? _tl139064139138_)) + (let ((_e139069139141_ (let () (declare (not safe)) - (gx#stx-e _tl139060139134_)))) - (let ((_hd139064139140_ + (gx#stx-e _tl139064139138_)))) + (let ((_hd139068139144_ (let () (declare (not safe)) - (##car _e139065139137_))) - (_tl139063139142_ + (##car _e139069139141_))) + (_tl139067139146_ (let () (declare (not safe)) - (##cdr _e139065139137_)))) + (##cdr _e139069139141_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139063139142_)) - (let ((_e139068139145_ + (gx#stx-pair? _tl139067139146_)) + (let ((_e139072139149_ (let () (declare (not safe)) (gx#stx-e - _tl139063139142_)))) - (let ((_hd139067139148_ + _tl139067139146_)))) + (let ((_hd139071139152_ (let () (declare (not safe)) - (##car _e139068139145_))) - (_tl139066139150_ + (##car _e139072139149_))) + (_tl139070139154_ (let () (declare (not safe)) - (##cdr _e139068139145_)))) + (##cdr _e139072139149_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139066139150_)) - (let ((_e139071139153_ + _tl139070139154_)) + (let ((_e139075139157_ (let () (declare (not safe)) (gx#stx-e - _tl139066139150_)))) - (let ((_hd139070139156_ + _tl139070139154_)))) + (let ((_hd139074139160_ (let () (declare (not safe)) - (##car _e139071139153_))) - (_tl139069139158_ + (##car _e139075139157_))) + (_tl139073139162_ (let () (declare (not safe)) - (##cdr _e139071139153_)))) + (##cdr _e139075139157_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139069139158_)) + _tl139073139162_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl139057139126_)) - ((lambda (_L139161_ _L139162_ _L139163_ _L139164_) - (let* ((_E139193_ + (gx#stx-null? _tl139061139130_)) + ((lambda (_L139165_ _L139166_ _L139167_ _L139168_) + (let* ((_E139197_ (let () (declare (not safe)) - (_xform-e138821_ - _L139161_ - _kont-id139032_ - _kont-box139033_ - _negation-id139034_))) - (__tmp152623 - (let ((__tmp152629 - (let ((__tmp152630 - (lambda (_g139194139197_ - _g139195139199_) + (_xform-e138825_ + _L139165_ + _kont-id139036_ + _kont-box139037_ + _negation-id139038_))) + (__tmp152627 + (let ((__tmp152633 + (let ((__tmp152634 + (lambda (_g139198139201_ + _g139199139203_) (let () (declare (not safe)) - (cons _g139194139197_ - _g139195139199_))))) + (cons _g139198139201_ + _g139199139203_))))) (declare (not safe)) - (foldr1 __tmp152630 '() _L139164_))) - (__tmp152624 - (let ((__tmp152625 - (let ((__tmp152626 - (let ((__tmp152627 - (let ((__tmp152628 + (foldr1 __tmp152634 '() _L139168_))) + (__tmp152628 + (let ((__tmp152629 + (let ((__tmp152630 + (let ((__tmp152631 + (let ((__tmp152632 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E139193_ '())))) + (cons _E139197_ '())))) (declare (not safe)) - (cons _L139162_ __tmp152628)))) + (cons _L139166_ __tmp152632)))) (declare (not safe)) - (cons _L139163_ __tmp152627)))) + (cons _L139167_ __tmp152631)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp152626)))) + (cons '%#if __tmp152630)))) (declare (not safe)) - (cons __tmp152625 '())))) + (cons __tmp152629 '())))) (declare (not safe)) - (cons __tmp152629 __tmp152624)))) + (cons __tmp152633 __tmp152628)))) (declare (not safe)) - (cons '%#lambda __tmp152623))) - _hd139070139156_ - _hd139067139148_ - _hd139064139140_ - _id139056139118_) + (cons '%#lambda __tmp152627))) + _hd139074139160_ + _hd139071139152_ + _hd139068139144_ + _id139060139122_) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_))) + (_g139040139080_ _g139041139083_))) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_))))) + (_g139040139080_ _g139041139083_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139036139076_ - _g139037139079_))))) + (_g139040139080_ + _g139041139083_))))) (let () (declare (not safe)) - (_g139036139076_ - _g139037139079_))))) + (_g139040139080_ + _g139041139083_))))) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_))) + (_g139040139080_ _g139041139083_))) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_))) + (_g139040139080_ _g139041139083_))) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_))))) + (_g139040139080_ _g139041139083_))))) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_))))) + (_g139040139080_ _g139041139083_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139036139076_ - _g139037139079_)))))))) + (_g139040139080_ + _g139041139083_)))))))) (let () (declare (not safe)) - (_loop139051139102_ _target139048139097_ '()))) + (_loop139055139106_ _target139052139101_ '()))) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_)))))) + (_g139040139080_ _g139041139083_)))))) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_))))) + (_g139040139080_ _g139041139083_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139036139076_ - _g139037139079_))) + (_g139040139080_ + _g139041139083_))) (let () (declare (not safe)) - (_g139036139076_ - _g139037139079_))) + (_g139040139080_ + _g139041139083_))) (let () (declare (not safe)) - (_g139036139076_ - _g139037139079_))))) + (_g139040139080_ + _g139041139083_))))) (let () (declare (not safe)) - (_g139036139076_ _g139037139079_)))))) + (_g139040139080_ _g139041139083_)))))) (declare (not safe)) - (_g139035139202_ _expr139031_)))) - (_clause-e138823_ - (lambda (_clause-lambda138901_ _kont-id138902_ _rest138903_) - (letrec* ((_kont-box138905_ + (_g139039139206_ _expr139035_)))) + (_clause-e138827_ + (lambda (_clause-lambda138905_ _kont-id138906_ _rest138907_) + (letrec* ((_kont-box138909_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id138945_ - (let* ((_rest138906138916_ _rest138903_) - (_else138908138924_ - (lambda () _negation-id138819_)) - (_K138910138930_ - (lambda (_clause138927_ - _clause-id138928_) - _clause-id138928_))) + (let* ((_negation-id138949_ + (let* ((_rest138910138920_ _rest138907_) + (_else138912138928_ + (lambda () _negation-id138823_)) + (_K138914138934_ + (lambda (_clause138931_ + _clause-id138932_) + _clause-id138932_))) (if (let () (declare (not safe)) - (##pair? _rest138906138916_)) - (let ((_hd138911138933_ + (##pair? _rest138910138920_)) + (let ((_hd138915138937_ (let () (declare (not safe)) - (##car _rest138906138916_)))) + (##car _rest138910138920_)))) (if (let () (declare (not safe)) - (##pair? _hd138911138933_)) - (let ((_hd138913138936_ + (##pair? _hd138915138937_)) + (let ((_hd138917138940_ (let () (declare (not safe)) - (##car _hd138911138933_))) - (_tl138914138938_ + (##car _hd138915138937_))) + (_tl138918138942_ (let () (declare (not safe)) - (##cdr _hd138911138933_)))) - (let* ((_clause-id138941_ - _hd138913138936_) - (_clause138943_ - _tl138914138938_)) + (##cdr _hd138915138937_)))) + (let* ((_clause-id138945_ + _hd138917138940_) + (_clause138947_ + _tl138918138942_)) (declare (not safe)) - (_K138910138930_ - _clause138943_ - _clause-id138941_))) + (_K138914138934_ + _clause138947_ + _clause-id138945_))) (let () (declare (not safe)) - (_else138908138924_)))) + (_else138912138928_)))) (let () (declare (not safe)) - (_else138908138924_))))) - (_g138947138967_ - (lambda (_g138948138964_) + (_else138912138928_))))) + (_g138951138971_ + (lambda (_g138952138968_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138948138964_)))) - (_g138946139028_ - (lambda (_g138948138970_) + _g138952138968_)))) + (_g138950139032_ + (lambda (_g138952138974_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138948138970_)) - (let ((_e138953138972_ + (gx#stx-pair? _g138952138974_)) + (let ((_e138957138976_ (let () (declare (not safe)) - (gx#stx-e _g138948138970_)))) - (let ((_hd138952138975_ + (gx#stx-e _g138952138974_)))) + (let ((_hd138956138979_ (let () (declare (not safe)) - (##car _e138953138972_))) - (_tl138951138977_ + (##car _e138957138976_))) + (_tl138955138981_ (let () (declare (not safe)) - (##cdr _e138953138972_)))) + (##cdr _e138957138976_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd138952138975_)) + _hd138956138979_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138952138975_)) + _hd138956138979_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138951138977_)) - (let ((_e138956138980_ + _tl138955138981_)) + (let ((_e138960138984_ (let () (declare (not safe)) (gx#stx-e - _tl138951138977_)))) - (let ((_hd138955138983_ + _tl138955138981_)))) + (let ((_hd138959138987_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e138956138980_))) - (_tl138954138985_ - (let () (declare (not safe)) (##cdr _e138956138980_)))) + (##car _e138960138984_))) + (_tl138958138989_ + (let () (declare (not safe)) (##cdr _e138960138984_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138955138983_)) - (let ((_e138959138988_ + (gx#stx-pair? _hd138959138987_)) + (let ((_e138963138992_ (let () (declare (not safe)) - (gx#stx-e _hd138955138983_)))) - (let ((_hd138958138991_ + (gx#stx-e _hd138959138987_)))) + (let ((_hd138962138995_ (let () (declare (not safe)) - (##car _e138959138988_))) - (_tl138957138993_ + (##car _e138963138992_))) + (_tl138961138997_ (let () (declare (not safe)) - (##cdr _e138959138988_)))) + (##cdr _e138963138992_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138957138993_)) + (gx#stx-null? _tl138961138997_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138954138985_)) - (let ((_e138962138996_ + (gx#stx-pair? _tl138958138989_)) + (let ((_e138966139000_ (let () (declare (not safe)) - (gx#stx-e _tl138954138985_)))) - (let ((_hd138961138999_ + (gx#stx-e _tl138958138989_)))) + (let ((_hd138965139003_ (let () (declare (not safe)) - (##car _e138962138996_))) - (_tl138960139001_ + (##car _e138966139000_))) + (_tl138964139005_ (let () (declare (not safe)) - (##cdr _e138962138996_)))) + (##cdr _e138966139000_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138960139001_)) - ((lambda (_L139004_ _L139005_) - (let ((_body139026_ + (gx#stx-null? _tl138964139005_)) + ((lambda (_L139008_ _L139009_) + (let ((_body139030_ (let () (declare (not safe)) - (_xform-e138821_ - _L139004_ - _kont-id138902_ - _kont-box138905_ - _negation-id138945_)))) - (values (let ((__tmp152632 - (let ((__tmp152634 + (_xform-e138825_ + _L139008_ + _kont-id138906_ + _kont-box138909_ + _negation-id138949_)))) + (values (let ((__tmp152636 + (let ((__tmp152638 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L139005_ '()))) - (__tmp152633 + (let () (declare (not safe)) (cons _L139009_ '()))) + (__tmp152637 (let () (declare (not safe)) - (cons _body139026_ '())))) + (cons _body139030_ '())))) (declare (not safe)) - (cons __tmp152634 __tmp152633)))) + (cons __tmp152638 __tmp152637)))) (declare (not safe)) - (cons '%#lambda __tmp152632)) + (cons '%#lambda __tmp152636)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box138905_)))) - _hd138961138999_ - _hd138958138991_) + (unbox _kont-box138909_)))) + _hd138965139003_ + _hd138962138995_) (let () (declare (not safe)) - (_g138947138967_ _g138948138970_))))) + (_g138951138971_ _g138952138974_))))) (let () (declare (not safe)) - (_g138947138967_ _g138948138970_))) + (_g138951138971_ _g138952138974_))) (let () (declare (not safe)) - (_g138947138967_ _g138948138970_))))) + (_g138951138971_ _g138952138974_))))) (let () (declare (not safe)) - (_g138947138967_ _g138948138970_))))) + (_g138951138971_ _g138952138974_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138947138967_ - _g138948138970_))) + (_g138951138971_ + _g138952138974_))) (let () (declare (not safe)) - (_g138947138967_ - _g138948138970_))) + (_g138951138971_ + _g138952138974_))) (let () (declare (not safe)) - (_g138947138967_ - _g138948138970_))))) + (_g138951138971_ + _g138952138974_))))) (let () (declare (not safe)) - (_g138947138967_ _g138948138970_)))))) + (_g138951138971_ _g138952138974_)))))) (declare (not safe)) - (_g138946139028_ _clause-lambda138901_)))))) - (let _lp138825_ ((_rest138827_ _clauses138818_) - (_clauses138828_ '()) - (_konts138829_ '())) - (let* ((_rest138830138838_ _rest138827_) - (_else138832138846_ + (_g138950139032_ _clause-lambda138905_)))))) + (let _lp138829_ ((_rest138831_ _clauses138822_) + (_clauses138832_ '()) + (_konts138833_ '())) + (let* ((_rest138834138842_ _rest138831_) + (_else138836138850_ (lambda () - (values (reverse _clauses138828_) - (reverse _konts138829_)))) - (_K138834138889_ - (lambda (_rest138849_ _clause138850_) - (let* ((_clause138851138858_ _clause138850_) - (_E138853138862_ + (values (reverse _clauses138832_) + (reverse _konts138833_)))) + (_K138838138893_ + (lambda (_rest138853_ _clause138854_) + (let* ((_clause138855138862_ _clause138854_) + (_E138857138866_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause138851138858_)))) - (_K138854138877_ - (lambda (_clause-lambda138865_ _clause-id138866_) - (let* ((_id138868_ - (let ((__tmp152635 (gensym '__kont))) + _clause138855138862_)))) + (_K138858138881_ + (lambda (_clause-lambda138869_ _clause-id138870_) + (let* ((_id138872_ + (let ((__tmp152639 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp152635))) - (_id138870_ + (make-symbol__0 __tmp152639))) + (_id138874_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id138868_))) - (_g152636_ + _id138872_))) + (_g152640_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id138870_))) - (_g152637_ + _id138874_))) + (_g152641_ (let () (declare (not safe)) - (_clause-e138823_ - _clause-lambda138865_ - _id138870_ - _rest138849_)))) + (_clause-e138827_ + _clause-lambda138869_ + _id138874_ + _rest138853_)))) (begin - (let ((_g152638_ + (let ((_g152642_ (let () (declare (not safe)) - (if (##values? _g152637_) - (##vector-length _g152637_) + (if (##values? _g152641_) + (##vector-length _g152641_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152638_ 2))) + (##fx= _g152642_ 2))) (error "Context expects 2 values" - _g152638_))) - (let ((_clause-lambda138873_ + _g152642_))) + (let ((_clause-lambda138877_ (let () (declare (not safe)) - (##vector-ref _g152637_ 0))) - (_kont138874_ + (##vector-ref _g152641_ 0))) + (_kont138878_ (let () (declare (not safe)) - (##vector-ref _g152637_ 1)))) + (##vector-ref _g152641_ 1)))) (let () - (let ((__tmp152641 - (let ((__tmp152642 + (let ((__tmp152645 + (let ((__tmp152646 (let () (declare (not safe)) - (cons _clause-id138866_ - _clause-lambda138873_)))) + (cons _clause-id138870_ + _clause-lambda138877_)))) (declare (not safe)) - (cons __tmp152642 - _clauses138828_))) - (__tmp152639 - (let ((__tmp152640 + (cons __tmp152646 + _clauses138832_))) + (__tmp152643 + (let ((__tmp152644 (let () (declare (not safe)) - (cons _id138870_ - _kont138874_)))) + (cons _id138874_ + _kont138878_)))) (declare (not safe)) - (cons __tmp152640 - _konts138829_)))) + (cons __tmp152644 + _konts138833_)))) (declare (not safe)) - (_lp138825_ - _rest138849_ - __tmp152641 - __tmp152639))))))))) + (_lp138829_ + _rest138853_ + __tmp152645 + __tmp152643))))))))) (if (let () (declare (not safe)) - (##pair? _clause138851138858_)) - (let ((_hd138855138880_ + (##pair? _clause138855138862_)) + (let ((_hd138859138884_ (let () (declare (not safe)) - (##car _clause138851138858_))) - (_tl138856138882_ + (##car _clause138855138862_))) + (_tl138860138886_ (let () (declare (not safe)) - (##cdr _clause138851138858_)))) - (let* ((_clause-id138885_ _hd138855138880_) - (_clause-lambda138887_ _tl138856138882_)) + (##cdr _clause138855138862_)))) + (let* ((_clause-id138889_ _hd138859138884_) + (_clause-lambda138891_ _tl138860138886_)) (declare (not safe)) - (_K138854138877_ - _clause-lambda138887_ - _clause-id138885_))) + (_K138858138881_ + _clause-lambda138891_ + _clause-id138889_))) (let () (declare (not safe)) - (_E138853138862_))))))) - (if (let () (declare (not safe)) (##pair? _rest138830138838_)) - (let ((_hd138835138892_ + (_E138857138866_))))))) + (if (let () (declare (not safe)) (##pair? _rest138834138842_)) + (let ((_hd138839138896_ (let () (declare (not safe)) - (##car _rest138830138838_))) - (_tl138836138894_ + (##car _rest138834138842_))) + (_tl138840138898_ (let () (declare (not safe)) - (##cdr _rest138830138838_)))) - (let* ((_clause138897_ _hd138835138892_) - (_rest138899_ _tl138836138894_)) + (##cdr _rest138834138842_)))) + (let* ((_clause138901_ _hd138839138896_) + (_rest138903_ _tl138840138898_)) (declare (not safe)) - (_K138834138889_ _rest138899_ _clause138897_))) - (let () (declare (not safe)) (_else138832138846_)))))))) + (_K138838138893_ _rest138903_ _clause138901_))) + (let () (declare (not safe)) (_else138836138850_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause138162_ _negation138163_ _target138164_) - (letrec ((_closure-e138166_ - (lambda (_expr138283_) - (let* ((___stx151807151808_ _expr138283_) - (_g138290138405_ + (lambda (_clause138166_ _negation138167_ _target138168_) + (letrec ((_closure-e138170_ + (lambda (_expr138287_) + (let* ((___stx151811151812_ _expr138287_) + (_g138294138409_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151807151808_))))) - (let ((___kont151809151810_ - (lambda (_L138796_ _L138797_ _L138798_) - (let ((__tmp152643 - (let ((__tmp152644 - (let ((__tmp152647 + ___stx151811151812_))))) + (let ((___kont151813151814_ + (lambda (_L138800_ _L138801_ _L138802_) + (let ((__tmp152647 + (let ((__tmp152648 + (let ((__tmp152651 (let () (declare (not safe)) - (_closure-e138166_ - _L138797_))) - (__tmp152645 - (let ((__tmp152646 + (_closure-e138170_ + _L138801_))) + (__tmp152649 + (let ((__tmp152650 (let () (declare (not safe)) - (_closure-e138166_ - _L138796_)))) + (_closure-e138170_ + _L138800_)))) (declare (not safe)) - (cons __tmp152646 '())))) + (cons __tmp152650 '())))) (declare (not safe)) - (cons __tmp152647 - __tmp152645)))) + (cons __tmp152651 + __tmp152649)))) (declare (not safe)) - (cons _L138798_ __tmp152644)))) + (cons _L138802_ __tmp152648)))) (declare (not safe)) - (cons '%#if __tmp152643)))) - (___kont151811151812_ - (lambda (_L138744_ _L138745_) - (let ((__tmp152648 - (let ((__tmp152649 - (let ((__tmp152650 + (cons '%#if __tmp152647)))) + (___kont151815151816_ + (lambda (_L138748_ _L138749_) + (let ((__tmp152652 + (let ((__tmp152653 + (let ((__tmp152654 (let () (declare (not safe)) - (_closure-e138166_ - _L138744_)))) + (_closure-e138170_ + _L138748_)))) (declare (not safe)) - (cons __tmp152650 '())))) + (cons __tmp152654 '())))) (declare (not safe)) - (cons _L138745_ __tmp152649)))) + (cons _L138749_ __tmp152653)))) (declare (not safe)) - (cons '%#let-values __tmp152648)))) - (___kont151813151814_ - (lambda (_L138690_ _L138691_ _L138692_) - (let ((__tmp152651 - (let ((__tmp152653 - (let ((__tmp152654 - (let ((__tmp152657 + (cons '%#let-values __tmp152652)))) + (___kont151817151818_ + (lambda (_L138694_ _L138695_ _L138696_) + (let ((__tmp152655 + (let ((__tmp152657 + (let ((__tmp152658 + (let ((__tmp152661 (let () (declare (not safe)) - (cons _L138692_ + (cons _L138696_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp152655 - (let ((__tmp152656 + (__tmp152659 + (let ((__tmp152660 (let () (declare (not safe)) - (_closure-e138166_ _L138691_)))) + (_closure-e138170_ _L138695_)))) (declare (not safe)) - (cons __tmp152656 '())))) + (cons __tmp152660 '())))) (declare (not safe)) - (cons __tmp152657 __tmp152655)))) + (cons __tmp152661 __tmp152659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152654 '()))) - (__tmp152652 + (cons __tmp152658 '()))) + (__tmp152656 (let () (declare (not safe)) - (cons _L138690_ '())))) + (cons _L138694_ '())))) (declare (not safe)) - (cons __tmp152653 __tmp152652)))) + (cons __tmp152657 __tmp152656)))) (declare (not safe)) - (cons '%#letrec-values __tmp152651)))) - (___kont151815151816_ - (lambda (_L138603_ _L138604_) - (let ((__tmp152658 - (let ((__tmp152661 - (let ((__tmp152662 - (lambda (_g138621138624_ - _g138622138626_) + (cons '%#letrec-values __tmp152655)))) + (___kont151819151820_ + (lambda (_L138607_ _L138608_) + (let ((__tmp152662 + (let ((__tmp152665 + (let ((__tmp152666 + (lambda (_g138625138628_ + _g138626138630_) (let () (declare (not safe)) - (cons _g138621138624_ - _g138622138626_))))) + (cons _g138625138628_ + _g138626138630_))))) (declare (not safe)) - (foldr1 __tmp152662 + (foldr1 __tmp152666 '() - _L138604_))) - (__tmp152659 - (let ((__tmp152660 + _L138608_))) + (__tmp152663 + (let ((__tmp152664 (let () (declare (not safe)) - (_closure-e138166_ - _L138603_)))) + (_closure-e138170_ + _L138607_)))) (declare (not safe)) - (cons __tmp152660 '())))) + (cons __tmp152664 '())))) (declare (not safe)) - (cons __tmp152661 __tmp152659)))) + (cons __tmp152665 __tmp152663)))) (declare (not safe)) - (cons '%#lambda __tmp152658)))) - (___kont151819151820_ - (lambda (_L138533_) - (let ((__tmp152663 - (let ((__tmp152664 - (let ((__tmp152666 + (cons '%#lambda __tmp152662)))) + (___kont151823151824_ + (lambda (_L138537_) + (let ((__tmp152667 + (let ((__tmp152668 + (let ((__tmp152670 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152665 + (__tmp152669 (let () (declare (not safe)) - (cons _L138533_ '())))) + (cons _L138537_ '())))) (declare (not safe)) - (cons __tmp152666 - __tmp152665)))) + (cons __tmp152670 + __tmp152669)))) (declare (not safe)) - (cons __tmp152664 '())))) + (cons __tmp152668 '())))) (declare (not safe)) - (cons '%#call __tmp152663)))) - (___kont151821151822_ - (lambda (_L138466_ _L138467_) _expr138283_))) - (let* ((___match152040152041_ - (lambda (_e138382138410_ - _hd138381138413_ - _tl138380138415_ - _e138385138418_ - _hd138384138421_ - _tl138383138423_ - _e138388138426_ - _hd138387138429_ - _tl138386138431_ - _e138391138434_ - _hd138390138437_ - _tl138389138439_ - ___splice151823151824_ - _target138392138442_ - _tl138394138444_) - (letrec ((_loop138395138447_ - (lambda (_hd138393138450_ - _arg138399138452_) + (cons '%#call __tmp152667)))) + (___kont151825151826_ + (lambda (_L138470_ _L138471_) _expr138287_))) + (let* ((___match152044152045_ + (lambda (_e138386138414_ + _hd138385138417_ + _tl138384138419_ + _e138389138422_ + _hd138388138425_ + _tl138387138427_ + _e138392138430_ + _hd138391138433_ + _tl138390138435_ + _e138395138438_ + _hd138394138441_ + _tl138393138443_ + ___splice151827151828_ + _target138396138446_ + _tl138398138448_) + (letrec ((_loop138399138451_ + (lambda (_hd138397138454_ + _arg138403138456_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138393138450_)) - (let ((_e138396138455_ + _hd138397138454_)) + (let ((_e138400138459_ (let () (declare (not safe)) (gx#stx-e - _hd138393138450_)))) - (let ((_lp-tl138398138460_ + _hd138397138454_)))) + (let ((_lp-tl138402138464_ (let () (declare (not safe)) - (##cdr _e138396138455_))) - (_lp-hd138397138458_ + (##cdr _e138400138459_))) + (_lp-hd138401138462_ (let () (declare (not safe)) - (##car _e138396138455_)))) - (let ((__tmp152667 + (##car _e138400138459_)))) + (let ((__tmp152671 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd138397138458_ _arg138399138452_)))) + (cons _lp-hd138401138462_ _arg138403138456_)))) (declare (not safe)) - (_loop138395138447_ _lp-tl138398138460_ __tmp152667)))) + (_loop138399138451_ _lp-tl138402138464_ __tmp152671)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg138400138463_ - (reverse _arg138399138452_))) - (___kont151821151822_ - _arg138400138463_ - _hd138390138437_)))))) + (let ((_arg138404138467_ + (reverse _arg138403138456_))) + (___kont151825151826_ + _arg138404138467_ + _hd138394138441_)))))) (let () (declare (not safe)) - (_loop138395138447_ - _target138392138442_ + (_loop138399138451_ + _target138396138446_ '()))))) - (___match151998151999_ - (lambda (_e138365138493_ - _hd138364138496_ - _tl138363138498_ - _e138368138501_ - _hd138367138504_ - _tl138366138506_ - _e138371138509_ - _hd138370138512_ - _tl138369138514_ - _e138374138517_ - _hd138373138520_ - _tl138372138522_ - _e138377138525_ - _hd138376138528_ - _tl138375138530_) - (let ((_L138533_ _hd138373138520_)) + (___match152002152003_ + (lambda (_e138369138497_ + _hd138368138500_ + _tl138367138502_ + _e138372138505_ + _hd138371138508_ + _tl138370138510_ + _e138375138513_ + _hd138374138516_ + _tl138373138518_ + _e138378138521_ + _hd138377138524_ + _tl138376138526_ + _e138381138529_ + _hd138380138532_ + _tl138379138534_) + (let ((_L138537_ _hd138377138524_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L138533_ - _negation138163_)) - (___kont151819151820_ _L138533_) + _L138537_ + _negation138167_)) + (___kont151823151824_ _L138537_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl138366138506_)) - (let ((___splice151823151824_ + _tl138370138510_)) + (let ((___splice151827151828_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl138366138506_ + _tl138370138510_ '0)))) - (let ((_tl138394138444_ + (let ((_tl138398138448_ (let () (declare (not safe)) (##vector-ref - ___splice151823151824_ + ___splice151827151828_ '1))) - (_target138392138442_ + (_target138396138446_ (let () (declare (not safe)) (##vector-ref - ___splice151823151824_ + ___splice151827151828_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138394138444_)) - (___match152040152041_ - _e138365138493_ - _hd138364138496_ - _tl138363138498_ - _e138368138501_ - _hd138367138504_ - _tl138366138506_ - _e138371138509_ - _hd138370138512_ - _tl138369138514_ - _e138374138517_ - _hd138373138520_ - _tl138372138522_ - ___splice151823151824_ - _target138392138442_ - _tl138394138444_) + _tl138398138448_)) + (___match152044152045_ + _e138369138497_ + _hd138368138500_ + _tl138367138502_ + _e138372138505_ + _hd138371138508_ + _tl138370138510_ + _e138375138513_ + _hd138374138516_ + _tl138373138518_ + _e138378138521_ + _hd138377138524_ + _tl138376138526_ + ___splice151827151828_ + _target138396138446_ + _tl138398138448_) (let () (declare (not safe)) - (_g138290138405_))))) + (_g138294138409_))))) (let () (declare (not safe)) - (_g138290138405_))))))) - (___match151956151957_ - (lambda (_e138346138555_ - _hd138345138558_ - _tl138344138560_ - _e138349138563_ - _hd138348138566_ - _tl138347138568_ - ___splice151817151818_ - _target138350138571_ - _tl138352138573_) - (letrec ((_loop138353138576_ - (lambda (_hd138351138579_ - _id138357138581_) + (_g138294138409_))))))) + (___match151960151961_ + (lambda (_e138350138559_ + _hd138349138562_ + _tl138348138564_ + _e138353138567_ + _hd138352138570_ + _tl138351138572_ + ___splice151821151822_ + _target138354138575_ + _tl138356138577_) + (letrec ((_loop138357138580_ + (lambda (_hd138355138583_ + _id138361138585_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138351138579_)) - (let ((_e138354138584_ + _hd138355138583_)) + (let ((_e138358138588_ (let () (declare (not safe)) (gx#stx-e - _hd138351138579_)))) - (let ((_lp-tl138356138589_ + _hd138355138583_)))) + (let ((_lp-tl138360138593_ (let () (declare (not safe)) - (##cdr _e138354138584_))) - (_lp-hd138355138587_ + (##cdr _e138358138588_))) + (_lp-hd138359138591_ (let () (declare (not safe)) - (##car _e138354138584_)))) - (let ((__tmp152668 + (##car _e138358138588_)))) + (let ((__tmp152672 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd138355138587_ _id138357138581_)))) + (cons _lp-hd138359138591_ _id138361138585_)))) (declare (not safe)) - (_loop138353138576_ _lp-tl138356138589_ __tmp152668)))) + (_loop138357138580_ _lp-tl138360138593_ __tmp152672)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id138358138592_ - (reverse _id138357138581_))) + (let ((_id138362138596_ + (reverse _id138361138585_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138347138568_)) - (let ((_e138361138595_ + _tl138351138572_)) + (let ((_e138365138599_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl138347138568_)))) - (let ((_tl138359138600_ - (let () (declare (not safe)) (##cdr _e138361138595_))) - (_hd138360138598_ + (gx#stx-e _tl138351138572_)))) + (let ((_tl138363138604_ + (let () (declare (not safe)) (##cdr _e138365138599_))) + (_hd138364138602_ (let () (declare (not safe)) - (##car _e138361138595_)))) + (##car _e138365138599_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138359138600_)) - (___kont151815151816_ - _hd138360138598_ - _id138358138592_) - (let () (declare (not safe)) (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_)))))))) + (gx#stx-null? _tl138363138604_)) + (___kont151819151820_ + _hd138364138602_ + _id138362138596_) + (let () (declare (not safe)) (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop138353138576_ - _target138350138571_ + (_loop138357138580_ + _target138354138575_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151807151808_)) - (let ((_e138297138764_ + (gx#stx-pair? ___stx151811151812_)) + (let ((_e138301138768_ (let () (declare (not safe)) - (gx#stx-e ___stx151807151808_)))) - (let ((_tl138295138769_ + (gx#stx-e ___stx151811151812_)))) + (let ((_tl138299138773_ (let () (declare (not safe)) - (##cdr _e138297138764_))) - (_hd138296138767_ + (##cdr _e138301138768_))) + (_hd138300138771_ (let () (declare (not safe)) - (##car _e138297138764_)))) + (##car _e138301138768_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138296138767_)) + (gx#identifier? _hd138300138771_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd138296138767_)) + _hd138300138771_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138295138769_)) - (let ((_e138300138772_ + _tl138299138773_)) + (let ((_e138304138776_ (let () (declare (not safe)) (gx#stx-e - _tl138295138769_)))) - (let ((_tl138298138777_ + _tl138299138773_)))) + (let ((_tl138302138781_ (let () (declare (not safe)) - (##cdr _e138300138772_))) - (_hd138299138775_ + (##cdr _e138304138776_))) + (_hd138303138779_ (let () (declare (not safe)) - (##car _e138300138772_)))) + (##car _e138304138776_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138298138777_)) - (let ((_e138303138780_ + _tl138302138781_)) + (let ((_e138307138784_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138298138777_)))) - (let ((_tl138301138785_ - (let () (declare (not safe)) (##cdr _e138303138780_))) - (_hd138302138783_ - (let () (declare (not safe)) (##car _e138303138780_)))) + (gx#stx-e _tl138302138781_)))) + (let ((_tl138305138789_ + (let () (declare (not safe)) (##cdr _e138307138784_))) + (_hd138306138787_ + (let () (declare (not safe)) (##car _e138307138784_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138301138785_)) - (let ((_e138306138788_ + (gx#stx-pair? _tl138305138789_)) + (let ((_e138310138792_ (let () (declare (not safe)) - (gx#stx-e _tl138301138785_)))) - (let ((_tl138304138793_ + (gx#stx-e _tl138305138789_)))) + (let ((_tl138308138797_ (let () (declare (not safe)) - (##cdr _e138306138788_))) - (_hd138305138791_ + (##cdr _e138310138792_))) + (_hd138309138795_ (let () (declare (not safe)) - (##car _e138306138788_)))) + (##car _e138310138792_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138304138793_)) - (___kont151809151810_ - _hd138305138791_ - _hd138302138783_ - _hd138299138775_) + (gx#stx-null? _tl138308138797_)) + (___kont151813151814_ + _hd138309138795_ + _hd138306138787_ + _hd138303138779_) (let () (declare (not safe)) - (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))))) + (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138290138405_))) + (_g138294138409_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138296138767_)) + _hd138300138771_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138295138769_)) - (let ((_e138314138728_ + _tl138299138773_)) + (let ((_e138318138732_ (let () (declare (not safe)) (gx#stx-e - _tl138295138769_)))) - (let ((_tl138312138733_ + _tl138299138773_)))) + (let ((_tl138316138737_ (let () (declare (not safe)) - (##cdr _e138314138728_))) - (_hd138313138731_ + (##cdr _e138318138732_))) + (_hd138317138735_ (let () (declare (not safe)) - (##car _e138314138728_)))) + (##car _e138318138732_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138312138733_)) - (let ((_e138317138736_ + _tl138316138737_)) + (let ((_e138321138740_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138312138733_)))) - (let ((_tl138315138741_ + (gx#stx-e _tl138316138737_)))) + (let ((_tl138319138745_ (let () (declare (not safe)) - (##cdr _e138317138736_))) - (_hd138316138739_ + (##cdr _e138321138740_))) + (_hd138320138743_ (let () (declare (not safe)) - (##car _e138317138736_)))) + (##car _e138321138740_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138315138741_)) - (___kont151811151812_ - _hd138316138739_ - _hd138313138731_) - (let () (declare (not safe)) (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))))) + (gx#stx-null? _tl138319138745_)) + (___kont151815151816_ + _hd138320138743_ + _hd138317138735_) + (let () (declare (not safe)) (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138290138405_))) + (_g138294138409_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd138296138767_)) + _hd138300138771_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138295138769_)) - (let ((_e138326138642_ + _tl138299138773_)) + (let ((_e138330138646_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138295138769_)))) - (let ((_tl138324138647_ - (let () (declare (not safe)) (##cdr _e138326138642_))) - (_hd138325138645_ - (let () (declare (not safe)) (##car _e138326138642_)))) + (gx#stx-e _tl138299138773_)))) + (let ((_tl138328138651_ + (let () (declare (not safe)) (##cdr _e138330138646_))) + (_hd138329138649_ + (let () (declare (not safe)) (##car _e138330138646_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138325138645_)) - (let ((_e138329138650_ + (gx#stx-pair? _hd138329138649_)) + (let ((_e138333138654_ (let () (declare (not safe)) - (gx#stx-e _hd138325138645_)))) - (let ((_tl138327138655_ + (gx#stx-e _hd138329138649_)))) + (let ((_tl138331138659_ (let () (declare (not safe)) - (##cdr _e138329138650_))) - (_hd138328138653_ + (##cdr _e138333138654_))) + (_hd138332138657_ (let () (declare (not safe)) - (##car _e138329138650_)))) + (##car _e138333138654_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138328138653_)) - (let ((_e138332138658_ + (gx#stx-pair? _hd138332138657_)) + (let ((_e138336138662_ (let () (declare (not safe)) - (gx#stx-e _hd138328138653_)))) - (let ((_tl138330138663_ + (gx#stx-e _hd138332138657_)))) + (let ((_tl138334138667_ (let () (declare (not safe)) - (##cdr _e138332138658_))) - (_hd138331138661_ + (##cdr _e138336138662_))) + (_hd138335138665_ (let () (declare (not safe)) - (##car _e138332138658_)))) + (##car _e138336138662_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138331138661_)) - (let ((_e138335138666_ + (gx#stx-pair? _hd138335138665_)) + (let ((_e138339138670_ (let () (declare (not safe)) - (gx#stx-e _hd138331138661_)))) - (let ((_tl138333138671_ + (gx#stx-e _hd138335138665_)))) + (let ((_tl138337138675_ (let () (declare (not safe)) - (##cdr _e138335138666_))) - (_hd138334138669_ + (##cdr _e138339138670_))) + (_hd138338138673_ (let () (declare (not safe)) - (##car _e138335138666_)))) + (##car _e138339138670_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138333138671_)) + _tl138337138675_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138330138663_)) - (let ((_e138338138674_ + _tl138334138667_)) + (let ((_e138342138678_ (let () (declare (not safe)) (gx#stx-e - _tl138330138663_)))) - (let ((_tl138336138679_ + _tl138334138667_)))) + (let ((_tl138340138683_ (let () (declare (not safe)) - (##cdr _e138338138674_))) - (_hd138337138677_ + (##cdr _e138342138678_))) + (_hd138341138681_ (let () (declare (not safe)) - (##car _e138338138674_)))) + (##car _e138342138678_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138336138679_)) + _tl138340138683_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl138327138655_)) + (gx#stx-null? _tl138331138659_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138324138647_)) - (let ((_e138341138682_ + (gx#stx-pair? _tl138328138651_)) + (let ((_e138345138686_ (let () (declare (not safe)) - (gx#stx-e _tl138324138647_)))) - (let ((_tl138339138687_ + (gx#stx-e _tl138328138651_)))) + (let ((_tl138343138691_ (let () (declare (not safe)) - (##cdr _e138341138682_))) - (_hd138340138685_ + (##cdr _e138345138686_))) + (_hd138344138689_ (let () (declare (not safe)) - (##car _e138341138682_)))) + (##car _e138345138686_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138339138687_)) - (___kont151813151814_ - _hd138340138685_ - _hd138337138677_ - _hd138334138669_) + (gx#stx-null? _tl138343138691_)) + (___kont151817151818_ + _hd138344138689_ + _hd138341138681_ + _hd138338138673_) (let () (declare (not safe)) - (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))) - (let () (declare (not safe)) (_g138290138405_))) - (let () (declare (not safe)) (_g138290138405_))))) + (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))) + (let () (declare (not safe)) (_g138294138409_))) + (let () (declare (not safe)) (_g138294138409_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138290138405_))) + (_g138294138409_))) (let () (declare (not safe)) - (_g138290138405_))))) + (_g138294138409_))))) (let () (declare (not safe)) - (_g138290138405_))))) + (_g138294138409_))))) (let () (declare (not safe)) - (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))) + (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138296138767_)) + _hd138300138771_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138295138769_)) - (let ((_e138349138563_ + _tl138299138773_)) + (let ((_e138353138567_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138295138769_)))) - (let ((_tl138347138568_ + (gx#stx-e _tl138299138773_)))) + (let ((_tl138351138572_ (let () (declare (not safe)) - (##cdr _e138349138563_))) - (_hd138348138566_ + (##cdr _e138353138567_))) + (_hd138352138570_ (let () (declare (not safe)) - (##car _e138349138563_)))) + (##car _e138353138567_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd138348138566_)) - (let ((___splice151817151818_ + (gx#stx-pair/null? _hd138352138570_)) + (let ((___splice151821151822_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd138348138566_ + _hd138352138570_ '0)))) - (let ((_tl138352138573_ + (let ((_tl138356138577_ (let () (declare (not safe)) - (##vector-ref ___splice151817151818_ '1))) - (_target138350138571_ + (##vector-ref ___splice151821151822_ '1))) + (_target138354138575_ (let () (declare (not safe)) (##vector-ref - ___splice151817151818_ + ___splice151821151822_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138352138573_)) - (___match151956151957_ - _e138297138764_ - _hd138296138767_ - _tl138295138769_ - _e138349138563_ - _hd138348138566_ - _tl138347138568_ - ___splice151817151818_ - _target138350138571_ - _tl138352138573_) + (gx#stx-null? _tl138356138577_)) + (___match151960151961_ + _e138301138768_ + _hd138300138771_ + _tl138299138773_ + _e138353138567_ + _hd138352138570_ + _tl138351138572_ + ___splice151821151822_ + _target138354138575_ + _tl138356138577_) (let () (declare (not safe)) - (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))) + (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd138296138767_)) + (gx#stx-eq? '%#call _hd138300138771_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138295138769_)) - (let ((_e138368138501_ + (gx#stx-pair? _tl138299138773_)) + (let ((_e138372138505_ (let () (declare (not safe)) - (gx#stx-e _tl138295138769_)))) - (let ((_tl138366138506_ + (gx#stx-e _tl138299138773_)))) + (let ((_tl138370138510_ (let () (declare (not safe)) - (##cdr _e138368138501_))) - (_hd138367138504_ + (##cdr _e138372138505_))) + (_hd138371138508_ (let () (declare (not safe)) - (##car _e138368138501_)))) + (##car _e138372138505_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138367138504_)) - (let ((_e138371138509_ + (gx#stx-pair? _hd138371138508_)) + (let ((_e138375138513_ (let () (declare (not safe)) - (gx#stx-e _hd138367138504_)))) - (let ((_tl138369138514_ + (gx#stx-e _hd138371138508_)))) + (let ((_tl138373138518_ (let () (declare (not safe)) - (##cdr _e138371138509_))) - (_hd138370138512_ + (##cdr _e138375138513_))) + (_hd138374138516_ (let () (declare (not safe)) - (##car _e138371138509_)))) + (##car _e138375138513_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138370138512_)) + (gx#identifier? _hd138374138516_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd138370138512_)) + _hd138374138516_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138369138514_)) - (let ((_e138374138517_ + _tl138373138518_)) + (let ((_e138378138521_ (let () (declare (not safe)) (gx#stx-e - _tl138369138514_)))) - (let ((_tl138372138522_ + _tl138373138518_)))) + (let ((_tl138376138526_ (let () (declare (not safe)) - (##cdr _e138374138517_))) - (_hd138373138520_ + (##cdr _e138378138521_))) + (_hd138377138524_ (let () (declare (not safe)) - (##car _e138374138517_)))) + (##car _e138378138521_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138372138522_)) + _tl138376138526_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138366138506_)) - (let ((_e138377138525_ + _tl138370138510_)) + (let ((_e138381138529_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138366138506_)))) - (let ((_tl138375138530_ + (gx#stx-e _tl138370138510_)))) + (let ((_tl138379138534_ (let () (declare (not safe)) - (##cdr _e138377138525_))) - (_hd138376138528_ + (##cdr _e138381138529_))) + (_hd138380138532_ (let () (declare (not safe)) - (##car _e138377138525_)))) + (##car _e138381138529_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138375138530_)) - (___match151998151999_ - _e138297138764_ - _hd138296138767_ - _tl138295138769_ - _e138368138501_ - _hd138367138504_ - _tl138366138506_ - _e138371138509_ - _hd138370138512_ - _tl138369138514_ - _e138374138517_ - _hd138373138520_ - _tl138372138522_ - _e138377138525_ - _hd138376138528_ - _tl138375138530_) + (gx#stx-null? _tl138379138534_)) + (___match152002152003_ + _e138301138768_ + _hd138300138771_ + _tl138299138773_ + _e138372138505_ + _hd138371138508_ + _tl138370138510_ + _e138375138513_ + _hd138374138516_ + _tl138373138518_ + _e138378138521_ + _hd138377138524_ + _tl138376138526_ + _e138381138529_ + _hd138380138532_ + _tl138379138534_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl138366138506_)) - (let ((___splice151823151824_ + (gx#stx-pair/null? _tl138370138510_)) + (let ((___splice151827151828_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl138366138506_ + _tl138370138510_ '0)))) - (let ((_tl138394138444_ + (let ((_tl138398138448_ (let () (declare (not safe)) (##vector-ref - ___splice151823151824_ + ___splice151827151828_ '1))) - (_target138392138442_ + (_target138396138446_ (let () (declare (not safe)) (##vector-ref - ___splice151823151824_ + ___splice151827151828_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138394138444_)) - (___match152040152041_ - _e138297138764_ - _hd138296138767_ - _tl138295138769_ - _e138368138501_ - _hd138367138504_ - _tl138366138506_ - _e138371138509_ - _hd138370138512_ - _tl138369138514_ - _e138374138517_ - _hd138373138520_ - _tl138372138522_ - ___splice151823151824_ - _target138392138442_ - _tl138394138444_) + (gx#stx-null? _tl138398138448_)) + (___match152044152045_ + _e138301138768_ + _hd138300138771_ + _tl138299138773_ + _e138372138505_ + _hd138371138508_ + _tl138370138510_ + _e138375138513_ + _hd138374138516_ + _tl138373138518_ + _e138378138521_ + _hd138377138524_ + _tl138376138526_ + ___splice151827151828_ + _target138396138446_ + _tl138398138448_) (let () (declare (not safe)) - (_g138290138405_))))) + (_g138294138409_))))) (let () (declare (not safe)) - (_g138290138405_)))))) + (_g138294138409_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl138366138506_)) - (let ((___splice151823151824_ + (gx#stx-pair/null? _tl138370138510_)) + (let ((___splice151827151828_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl138366138506_ '0)))) - (let ((_tl138394138444_ + (gx#syntax-split-splice _tl138370138510_ '0)))) + (let ((_tl138398138448_ (let () (declare (not safe)) - (##vector-ref ___splice151823151824_ '1))) - (_target138392138442_ + (##vector-ref ___splice151827151828_ '1))) + (_target138396138446_ (let () (declare (not safe)) - (##vector-ref ___splice151823151824_ '0)))) + (##vector-ref ___splice151827151828_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138394138444_)) - (___match152040152041_ - _e138297138764_ - _hd138296138767_ - _tl138295138769_ - _e138368138501_ - _hd138367138504_ - _tl138366138506_ - _e138371138509_ - _hd138370138512_ - _tl138369138514_ - _e138374138517_ - _hd138373138520_ - _tl138372138522_ - ___splice151823151824_ - _target138392138442_ - _tl138394138444_) + (gx#stx-null? _tl138398138448_)) + (___match152044152045_ + _e138301138768_ + _hd138300138771_ + _tl138299138773_ + _e138372138505_ + _hd138371138508_ + _tl138370138510_ + _e138375138513_ + _hd138374138516_ + _tl138373138518_ + _e138378138521_ + _hd138377138524_ + _tl138376138526_ + ___splice151827151828_ + _target138396138446_ + _tl138398138448_) (let () (declare (not safe)) - (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_)))) - (let () (declare (not safe)) (_g138290138405_))))) + (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_)))) + (let () (declare (not safe)) (_g138294138409_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138290138405_))) + (_g138294138409_))) (let () (declare (not safe)) - (_g138290138405_))) + (_g138294138409_))) (let () (declare (not safe)) - (_g138290138405_))))) + (_g138294138409_))))) (let () (declare (not safe)) - (_g138290138405_))))) - (let () (declare (not safe)) (_g138290138405_))) - (let () (declare (not safe)) (_g138290138405_))))))) + (_g138294138409_))))) + (let () (declare (not safe)) (_g138294138409_))) + (let () (declare (not safe)) (_g138294138409_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138290138405_))))) + (_g138294138409_))))) (let () (declare (not safe)) - (_g138290138405_))))))))) - (let* ((_clause138167138174_ _clause138162_) - (_E138169138178_ + (_g138294138409_))))))))) + (let* ((_clause138171138178_ _clause138166_) + (_E138173138182_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause138167138174_)))) - (_K138170138271_ - (lambda (_kont138181_ _id138182_) - (let* ((_g138184138204_ - (lambda (_g138185138201_) + (error '"No clause matching" _clause138171138178_)))) + (_K138174138275_ + (lambda (_kont138185_ _id138186_) + (let* ((_g138188138208_ + (lambda (_g138189138205_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138185138201_)))) - (_g138183138268_ - (lambda (_g138185138207_) + _g138189138205_)))) + (_g138187138272_ + (lambda (_g138189138211_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138185138207_)) - (let ((_e138190138209_ + (gx#stx-pair? _g138189138211_)) + (let ((_e138194138213_ (let () (declare (not safe)) - (gx#stx-e _g138185138207_)))) - (let ((_hd138189138212_ + (gx#stx-e _g138189138211_)))) + (let ((_hd138193138216_ (let () (declare (not safe)) - (##car _e138190138209_))) - (_tl138188138214_ + (##car _e138194138213_))) + (_tl138192138218_ (let () (declare (not safe)) - (##cdr _e138190138209_)))) + (##cdr _e138194138213_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138189138212_)) + (gx#identifier? _hd138193138216_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138189138212_)) + _hd138193138216_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138188138214_)) - (let ((_e138193138217_ + _tl138192138218_)) + (let ((_e138197138221_ (let () (declare (not safe)) (gx#stx-e - _tl138188138214_)))) - (let ((_hd138192138220_ + _tl138192138218_)))) + (let ((_hd138196138224_ (let () (declare (not safe)) - (##car _e138193138217_))) - (_tl138191138222_ + (##car _e138197138221_))) + (_tl138195138226_ (let () (declare (not safe)) - (##cdr _e138193138217_)))) + (##cdr _e138197138221_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138192138220_)) - (let ((_e138196138225_ + _hd138196138224_)) + (let ((_e138200138229_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd138192138220_)))) - (let ((_hd138195138228_ + (gx#stx-e _hd138196138224_)))) + (let ((_hd138199138232_ (let () (declare (not safe)) - (##car _e138196138225_))) - (_tl138194138230_ + (##car _e138200138229_))) + (_tl138198138234_ (let () (declare (not safe)) - (##cdr _e138196138225_)))) + (##cdr _e138200138229_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138194138230_)) + (gx#stx-null? _tl138198138234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138191138222_)) - (let ((_e138199138233_ + (gx#stx-pair? _tl138195138226_)) + (let ((_e138203138237_ (let () (declare (not safe)) - (gx#stx-e _tl138191138222_)))) - (let ((_hd138198138236_ + (gx#stx-e _tl138195138226_)))) + (let ((_hd138202138240_ (let () (declare (not safe)) - (##car _e138199138233_))) - (_tl138197138238_ + (##car _e138203138237_))) + (_tl138201138242_ (let () (declare (not safe)) - (##cdr _e138199138233_)))) + (##cdr _e138203138237_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138197138238_)) - ((lambda (_L138241_ _L138242_) - (let* ((_body138263_ + (gx#stx-null? _tl138201138242_)) + ((lambda (_L138245_ _L138246_) + (let* ((_body138267_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L138241_ + _L138245_ 'id: - _L138242_ + _L138246_ 'new-id: - _target138164_))) - (_body138265_ - (if _negation138163_ + _target138168_))) + (_body138269_ + (if _negation138167_ (let () (declare (not safe)) - (_closure-e138166_ - _body138263_)) - _body138263_))) - (let ((__tmp152670 + (_closure-e138170_ + _body138267_)) + _body138267_))) + (let ((__tmp152674 (let () (declare (not safe)) (gxc#identifier-symbol - _id138182_))) - (__tmp152669 - (let ((__obj152098 + _id138186_))) + (__tmp152673 + (let ((__obj152102 (let () (declare (not safe)) (##structure @@ -18602,682 +18602,682 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj152098 + __obj152102 'lambda '0 '#f) - __obj152098))) + __obj152102))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp152670 - __tmp152669 + __tmp152674 + __tmp152673 '#t)) - (let ((__tmp152671 - (let ((__tmp152672 - (let ((__tmp152673 + (let ((__tmp152675 + (let ((__tmp152676 + (let ((__tmp152677 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body138265_ '())))) + (cons _body138269_ '())))) (declare (not safe)) - (cons '() __tmp152673)))) + (cons '() __tmp152677)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp152672)))) + __tmp152676)))) (declare (not safe)) - (cons _id138182_ __tmp152671)))) - _hd138198138236_ - _hd138195138228_) + (cons _id138186_ __tmp152675)))) + _hd138202138240_ + _hd138199138232_) (let () (declare (not safe)) - (_g138184138204_ _g138185138207_))))) + (_g138188138208_ _g138189138211_))))) (let () (declare (not safe)) - (_g138184138204_ _g138185138207_))) + (_g138188138208_ _g138189138211_))) (let () (declare (not safe)) - (_g138184138204_ _g138185138207_))))) + (_g138188138208_ _g138189138211_))))) (let () (declare (not safe)) - (_g138184138204_ _g138185138207_))))) + (_g138188138208_ _g138189138211_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138184138204_ - _g138185138207_))) + (_g138188138208_ + _g138189138211_))) (let () (declare (not safe)) - (_g138184138204_ - _g138185138207_))) + (_g138188138208_ + _g138189138211_))) (let () (declare (not safe)) - (_g138184138204_ - _g138185138207_))))) + (_g138188138208_ + _g138189138211_))))) (let () (declare (not safe)) - (_g138184138204_ _g138185138207_)))))) + (_g138188138208_ _g138189138211_)))))) (declare (not safe)) - (_g138183138268_ _kont138181_))))) - (if (let () (declare (not safe)) (##pair? _clause138167138174_)) - (let ((_hd138171138274_ + (_g138187138272_ _kont138185_))))) + (if (let () (declare (not safe)) (##pair? _clause138171138178_)) + (let ((_hd138175138278_ (let () (declare (not safe)) - (##car _clause138167138174_))) - (_tl138172138276_ + (##car _clause138171138178_))) + (_tl138176138280_ (let () (declare (not safe)) - (##cdr _clause138167138174_)))) - (let* ((_id138279_ _hd138171138274_) - (_kont138281_ _tl138172138276_)) + (##cdr _clause138171138178_)))) + (let* ((_id138283_ _hd138175138278_) + (_kont138285_ _tl138176138280_)) (declare (not safe)) - (_K138170138271_ _kont138281_ _id138279_))) - (let () (declare (not safe)) (_E138169138178_))))))) + (_K138174138275_ _kont138285_ _id138283_))) + (let () (declare (not safe)) (_E138173138182_))))))) (define gxc#push-match-vars-let-values% - (lambda (_self137946_ _stx137947_) - (let* ((_g137949137966_ - (lambda (_g137950137963_) + (lambda (_self137950_ _stx137951_) + (let* ((_g137953137970_ + (lambda (_g137954137967_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g137950137963_)))) - (_g137948138159_ - (lambda (_g137950137969_) + _g137954137967_)))) + (_g137952138163_ + (lambda (_g137954137973_) (if (let () (declare (not safe)) - (gx#stx-pair? _g137950137969_)) - (let ((_e137955137971_ + (gx#stx-pair? _g137954137973_)) + (let ((_e137959137975_ (let () (declare (not safe)) - (gx#stx-e _g137950137969_)))) - (let ((_hd137954137974_ + (gx#stx-e _g137954137973_)))) + (let ((_hd137958137978_ (let () (declare (not safe)) - (##car _e137955137971_))) - (_tl137953137976_ + (##car _e137959137975_))) + (_tl137957137980_ (let () (declare (not safe)) - (##cdr _e137955137971_)))) + (##cdr _e137959137975_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137953137976_)) - (let ((_e137958137979_ + (gx#stx-pair? _tl137957137980_)) + (let ((_e137962137983_ (let () (declare (not safe)) - (gx#stx-e _tl137953137976_)))) - (let ((_hd137957137982_ + (gx#stx-e _tl137957137980_)))) + (let ((_hd137961137986_ (let () (declare (not safe)) - (##car _e137958137979_))) - (_tl137956137984_ + (##car _e137962137983_))) + (_tl137960137988_ (let () (declare (not safe)) - (##cdr _e137958137979_)))) + (##cdr _e137962137983_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137956137984_)) - (let ((_e137961137987_ + (gx#stx-pair? _tl137960137988_)) + (let ((_e137965137991_ (let () (declare (not safe)) - (gx#stx-e _tl137956137984_)))) - (let ((_hd137960137990_ + (gx#stx-e _tl137960137988_)))) + (let ((_hd137964137994_ (let () (declare (not safe)) - (##car _e137961137987_))) - (_tl137959137992_ + (##car _e137965137991_))) + (_tl137963137996_ (let () (declare (not safe)) - (##cdr _e137961137987_)))) + (##cdr _e137965137991_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137959137992_)) - ((lambda (_L137995_ _L137996_) - (let _lp138011_ ((_rest138013_ + _tl137963137996_)) + ((lambda (_L137999_ _L138000_) + (let _lp138015_ ((_rest138017_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L137996_) - (_rebind138014_ '()) - (_vars138015_ + _L138000_) + (_rebind138018_ '()) + (_vars138019_ (let () (declare (not safe)) - (slot-ref__0 _self137946_ 'vars)))) + (slot-ref__0 _self137950_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest138016138024_ - _rest138013_) - (_else138018138035_ + (let* ((_rest138020138028_ + _rest138017_) + (_else138022138039_ (lambda () - (let ((_sibling138032_ + (let ((_sibling138036_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _self137946_)))) + (struct-copy _self137950_)))) (let () (declare (not safe)) - (slot-set!__0 _sibling138032_ 'vars _vars138015_)) - (let ((__tmp152674 + (slot-set!__0 _sibling138036_ 'vars _vars138019_)) + (let ((__tmp152678 (lambda () (if (let () (declare (not safe)) - (null? _rebind138014_)) + (null? _rebind138018_)) (let () (declare (not safe)) (gxc#compile-e__1 - _sibling138032_ - _L137995_)) - (let ((__tmp152675 - (let ((__tmp152676 - (let ((__tmp152679 - (reverse _rebind138014_)) - (__tmp152677 - (let ((__tmp152678 + _sibling138036_ + _L137999_)) + (let ((__tmp152679 + (let ((__tmp152680 + (let ((__tmp152683 + (reverse _rebind138018_)) + (__tmp152681 + (let ((__tmp152682 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _sibling138032_ _L137995_)))) + (gxc#compile-e__1 _sibling138036_ _L137999_)))) (declare (not safe)) - (cons __tmp152678 '())))) + (cons __tmp152682 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152679 - __tmp152677)))) + (cons __tmp152683 + __tmp152681)))) (declare (not safe)) (cons '%#let-values - __tmp152676)))) + __tmp152680)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152675 - _stx137947_)))))) + __tmp152679 + _stx137951_)))))) (declare (not safe)) (call-with-parameters - __tmp152674 + __tmp152678 gxc#current-compile-method - _sibling138032_))))) - (_K138020138147_ - (lambda (_rest138038_ _bind138039_) - (let* ((___stx152043152044_ _bind138039_) - (_g138042138065_ + _sibling138036_))))) + (_K138024138151_ + (lambda (_rest138042_ _bind138043_) + (let* ((___stx152047152048_ _bind138043_) + (_g138046138069_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152043152044_))))) - (let ((___kont152045152046_ - (lambda (_L138117_ _L138118_) - (let ((__tmp152680 + ___stx152047152048_))))) + (let ((___kont152049152050_ + (lambda (_L138121_ _L138122_) + (let ((__tmp152684 (let () (declare (not safe)) - (cons _bind138039_ _vars138015_)))) + (cons _bind138043_ _vars138019_)))) (declare (not safe)) - (_lp138011_ - _rest138038_ - _rebind138014_ - __tmp152680)))) - (___kont152047152048_ + (_lp138015_ + _rest138042_ + _rebind138018_ + __tmp152684)))) + (___kont152051152052_ (lambda () - (let ((__tmp152681 + (let ((__tmp152685 (let () (declare (not safe)) - (cons _bind138039_ _rebind138014_)))) + (cons _bind138043_ _rebind138018_)))) (declare (not safe)) - (_lp138011_ - _rest138038_ - __tmp152681 - _vars138015_))))) + (_lp138015_ + _rest138042_ + __tmp152685 + _vars138019_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152043152044_)) - (let ((_e138048138077_ + (gx#stx-pair? ___stx152047152048_)) + (let ((_e138052138081_ (let () (declare (not safe)) - (gx#stx-e ___stx152043152044_)))) - (let ((_tl138046138082_ + (gx#stx-e ___stx152047152048_)))) + (let ((_tl138050138086_ (let () (declare (not safe)) - (##cdr _e138048138077_))) - (_hd138047138080_ + (##cdr _e138052138081_))) + (_hd138051138084_ (let () (declare (not safe)) - (##car _e138048138077_)))) + (##car _e138052138081_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138047138080_)) - (let ((_e138051138085_ + (gx#stx-pair? _hd138051138084_)) + (let ((_e138055138089_ (let () (declare (not safe)) - (gx#stx-e _hd138047138080_)))) - (let ((_tl138049138090_ + (gx#stx-e _hd138051138084_)))) + (let ((_tl138053138094_ (let () (declare (not safe)) - (##cdr _e138051138085_))) - (_hd138050138088_ + (##cdr _e138055138089_))) + (_hd138054138092_ (let () (declare (not safe)) - (##car _e138051138085_)))) + (##car _e138055138089_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138049138090_)) + (gx#stx-null? _tl138053138094_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138046138082_)) - (let ((_e138054138093_ + _tl138050138086_)) + (let ((_e138058138097_ (let () (declare (not safe)) (gx#stx-e - _tl138046138082_)))) - (let ((_tl138052138098_ + _tl138050138086_)))) + (let ((_tl138056138102_ (let () (declare (not safe)) - (##cdr _e138054138093_))) - (_hd138053138096_ + (##cdr _e138058138097_))) + (_hd138057138100_ (let () (declare (not safe)) - (##car _e138054138093_)))) + (##car _e138058138097_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138053138096_)) - (let ((_e138057138101_ + _hd138057138100_)) + (let ((_e138061138105_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd138053138096_)))) - (let ((_tl138055138106_ + (gx#stx-e _hd138057138100_)))) + (let ((_tl138059138110_ (let () (declare (not safe)) - (##cdr _e138057138101_))) - (_hd138056138104_ + (##cdr _e138061138105_))) + (_hd138060138108_ (let () (declare (not safe)) - (##car _e138057138101_)))) + (##car _e138061138105_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138056138104_)) + (gx#identifier? _hd138060138108_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd138056138104_)) + (gx#stx-eq? '%#ref _hd138060138108_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138055138106_)) - (let ((_e138060138109_ + (gx#stx-pair? _tl138059138110_)) + (let ((_e138064138113_ (let () (declare (not safe)) - (gx#stx-e _tl138055138106_)))) - (let ((_tl138058138114_ + (gx#stx-e _tl138059138110_)))) + (let ((_tl138062138118_ (let () (declare (not safe)) - (##cdr _e138060138109_))) - (_hd138059138112_ + (##cdr _e138064138113_))) + (_hd138063138116_ (let () (declare (not safe)) - (##car _e138060138109_)))) + (##car _e138064138113_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138058138114_)) + (gx#stx-null? _tl138062138118_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl138052138098_)) - (___kont152045152046_ - _hd138059138112_ - _hd138050138088_) - (___kont152047152048_)) - (___kont152047152048_)))) - (___kont152047152048_)) - (___kont152047152048_)) - (___kont152047152048_)))) - (___kont152047152048_)))) + (gx#stx-null? _tl138056138102_)) + (___kont152049152050_ + _hd138063138116_ + _hd138054138092_) + (___kont152051152052_)) + (___kont152051152052_)))) + (___kont152051152052_)) + (___kont152051152052_)) + (___kont152051152052_)))) + (___kont152051152052_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152047152048_)) - (___kont152047152048_)))) - (___kont152047152048_)))) - (___kont152047152048_))))))) + (___kont152051152052_)) + (___kont152051152052_)))) + (___kont152051152052_)))) + (___kont152051152052_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest138016138024_)) - (let ((_hd138021138150_ + (##pair? _rest138020138028_)) + (let ((_hd138025138154_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest138016138024_))) - (_tl138022138152_ + (##car _rest138020138028_))) + (_tl138026138156_ (let () (declare (not safe)) - (##cdr _rest138016138024_)))) - (let* ((_bind138155_ _hd138021138150_) - (_rest138157_ _tl138022138152_)) + (##cdr _rest138020138028_)))) + (let* ((_bind138159_ _hd138025138154_) + (_rest138161_ _tl138026138156_)) (declare (not safe)) - (_K138020138147_ _rest138157_ _bind138155_))) - (let () (declare (not safe)) (_else138018138035_)))))) + (_K138024138151_ _rest138161_ _bind138159_))) + (let () (declare (not safe)) (_else138022138039_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd137960137990_ - _hd137957137982_) + _hd137964137994_ + _hd137961137986_) (let () (declare (not safe)) - (_g137949137966_ - _g137950137969_))))) + (_g137953137970_ + _g137954137973_))))) (let () (declare (not safe)) - (_g137949137966_ _g137950137969_))))) + (_g137953137970_ _g137954137973_))))) (let () (declare (not safe)) - (_g137949137966_ _g137950137969_))))) + (_g137953137970_ _g137954137973_))))) (let () (declare (not safe)) - (_g137949137966_ _g137950137969_)))))) + (_g137953137970_ _g137954137973_)))))) (declare (not safe)) - (_g137948138159_ _stx137947_)))) + (_g137952138163_ _stx137951_)))) (define gxc#push-match-vars-if% - (lambda (_self137862_ _stx137863_) - (let* ((_g137865137886_ - (lambda (_g137866137883_) + (lambda (_self137866_ _stx137867_) + (let* ((_g137869137890_ + (lambda (_g137870137887_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g137866137883_)))) - (_g137864137943_ - (lambda (_g137866137889_) + _g137870137887_)))) + (_g137868137947_ + (lambda (_g137870137893_) (if (let () (declare (not safe)) - (gx#stx-pair? _g137866137889_)) - (let ((_e137872137891_ + (gx#stx-pair? _g137870137893_)) + (let ((_e137876137895_ (let () (declare (not safe)) - (gx#stx-e _g137866137889_)))) - (let ((_hd137871137894_ + (gx#stx-e _g137870137893_)))) + (let ((_hd137875137898_ (let () (declare (not safe)) - (##car _e137872137891_))) - (_tl137870137896_ + (##car _e137876137895_))) + (_tl137874137900_ (let () (declare (not safe)) - (##cdr _e137872137891_)))) + (##cdr _e137876137895_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137870137896_)) - (let ((_e137875137899_ + (gx#stx-pair? _tl137874137900_)) + (let ((_e137879137903_ (let () (declare (not safe)) - (gx#stx-e _tl137870137896_)))) - (let ((_hd137874137902_ + (gx#stx-e _tl137874137900_)))) + (let ((_hd137878137906_ (let () (declare (not safe)) - (##car _e137875137899_))) - (_tl137873137904_ + (##car _e137879137903_))) + (_tl137877137908_ (let () (declare (not safe)) - (##cdr _e137875137899_)))) + (##cdr _e137879137903_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137873137904_)) - (let ((_e137878137907_ + (gx#stx-pair? _tl137877137908_)) + (let ((_e137882137911_ (let () (declare (not safe)) - (gx#stx-e _tl137873137904_)))) - (let ((_hd137877137910_ + (gx#stx-e _tl137877137908_)))) + (let ((_hd137881137914_ (let () (declare (not safe)) - (##car _e137878137907_))) - (_tl137876137912_ + (##car _e137882137911_))) + (_tl137880137916_ (let () (declare (not safe)) - (##cdr _e137878137907_)))) + (##cdr _e137882137911_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137876137912_)) - (let ((_e137881137915_ + _tl137880137916_)) + (let ((_e137885137919_ (let () (declare (not safe)) (gx#stx-e - _tl137876137912_)))) - (let ((_hd137880137918_ + _tl137880137916_)))) + (let ((_hd137884137922_ (let () (declare (not safe)) - (##car _e137881137915_))) - (_tl137879137920_ + (##car _e137885137919_))) + (_tl137883137924_ (let () (declare (not safe)) - (##cdr _e137881137915_)))) + (##cdr _e137885137919_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137879137920_)) - ((lambda (_L137923_ - _L137924_ - _L137925_) - (if (let ((__tmp152688 + _tl137883137924_)) + ((lambda (_L137927_ + _L137928_ + _L137929_) + (if (let ((__tmp152692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _self137862_ 'vars))))) + (slot-ref__0 _self137866_ 'vars))))) (declare (not safe)) - (gxc#apply-find-var-refs _L137925_ 'ids: __tmp152688)) + (gxc#apply-find-var-refs _L137929_ 'ids: __tmp152692)) (let () (declare (not safe)) - (gxc#push-match-vars-stop _self137862_ _stx137863_)) - (let ((__tmp152682 - (let ((__tmp152683 - (let ((__tmp152684 - (let ((__tmp152687 + (gxc#push-match-vars-stop _self137866_ _stx137867_)) + (let ((__tmp152686 + (let ((__tmp152687 + (let ((__tmp152688 + (let ((__tmp152691 (let () (declare (not safe)) (gxc#compile-e__1 - _self137862_ - _L137924_))) - (__tmp152685 - (let ((__tmp152686 + _self137866_ + _L137928_))) + (__tmp152689 + (let ((__tmp152690 (let () (declare (not safe)) (gxc#compile-e__1 - _self137862_ - _L137923_)))) + _self137866_ + _L137927_)))) (declare (not safe)) - (cons __tmp152686 '())))) + (cons __tmp152690 '())))) (declare (not safe)) - (cons __tmp152687 __tmp152685)))) + (cons __tmp152691 __tmp152689)))) (declare (not safe)) - (cons _L137925_ __tmp152684)))) + (cons _L137929_ __tmp152688)))) (declare (not safe)) - (cons '%#if __tmp152683)))) + (cons '%#if __tmp152687)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152682 _stx137863_)))) - _hd137880137918_ - _hd137877137910_ - _hd137874137902_) + (gxc#xform-wrap-source __tmp152686 _stx137867_)))) + _hd137884137922_ + _hd137881137914_ + _hd137878137906_) (let () (declare (not safe)) - (_g137865137886_ _g137866137889_))))) + (_g137869137890_ _g137870137893_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137865137886_ - _g137866137889_))))) + (_g137869137890_ + _g137870137893_))))) (let () (declare (not safe)) - (_g137865137886_ _g137866137889_))))) + (_g137869137890_ _g137870137893_))))) (let () (declare (not safe)) - (_g137865137886_ _g137866137889_))))) + (_g137869137890_ _g137870137893_))))) (let () (declare (not safe)) - (_g137865137886_ _g137866137889_)))))) + (_g137869137890_ _g137870137893_)))))) (declare (not safe)) - (_g137864137943_ _stx137863_)))) + (_g137868137947_ _stx137867_)))) (define gxc#push-match-vars-call% - (lambda (_self137784_ _stx137785_) - (let* ((_g137787137806_ - (lambda (_g137788137803_) + (lambda (_self137788_ _stx137789_) + (let* ((_g137791137810_ + (lambda (_g137792137807_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g137788137803_)))) - (_g137786137859_ - (lambda (_g137788137809_) + _g137792137807_)))) + (_g137790137863_ + (lambda (_g137792137813_) (if (let () (declare (not safe)) - (gx#stx-pair? _g137788137809_)) - (let ((_e137792137811_ + (gx#stx-pair? _g137792137813_)) + (let ((_e137796137815_ (let () (declare (not safe)) - (gx#stx-e _g137788137809_)))) - (let ((_hd137791137814_ + (gx#stx-e _g137792137813_)))) + (let ((_hd137795137818_ (let () (declare (not safe)) - (##car _e137792137811_))) - (_tl137790137816_ + (##car _e137796137815_))) + (_tl137794137820_ (let () (declare (not safe)) - (##cdr _e137792137811_)))) + (##cdr _e137796137815_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137790137816_)) - (let ((_e137795137819_ + (gx#stx-pair? _tl137794137820_)) + (let ((_e137799137823_ (let () (declare (not safe)) - (gx#stx-e _tl137790137816_)))) - (let ((_hd137794137822_ + (gx#stx-e _tl137794137820_)))) + (let ((_hd137798137826_ (let () (declare (not safe)) - (##car _e137795137819_))) - (_tl137793137824_ + (##car _e137799137823_))) + (_tl137797137828_ (let () (declare (not safe)) - (##cdr _e137795137819_)))) + (##cdr _e137799137823_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137794137822_)) - (let ((_e137798137827_ + (gx#stx-pair? _hd137798137826_)) + (let ((_e137802137831_ (let () (declare (not safe)) - (gx#stx-e _hd137794137822_)))) - (let ((_hd137797137830_ + (gx#stx-e _hd137798137826_)))) + (let ((_hd137801137834_ (let () (declare (not safe)) - (##car _e137798137827_))) - (_tl137796137832_ + (##car _e137802137831_))) + (_tl137800137836_ (let () (declare (not safe)) - (##cdr _e137798137827_)))) + (##cdr _e137802137831_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137797137830_)) + _hd137801137834_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd137797137830_)) + _hd137801137834_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137796137832_)) - (let ((_e137801137835_ + _tl137800137836_)) + (let ((_e137805137839_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137796137832_)))) - (let ((_hd137800137838_ - (let () (declare (not safe)) (##car _e137801137835_))) - (_tl137799137840_ - (let () (declare (not safe)) (##cdr _e137801137835_)))) + (gx#stx-e _tl137800137836_)))) + (let ((_hd137804137842_ + (let () (declare (not safe)) (##car _e137805137839_))) + (_tl137803137844_ + (let () (declare (not safe)) (##cdr _e137805137839_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137799137840_)) - ((lambda (_L137843_) - (if (and (let ((__tmp152694 + (gx#stx-null? _tl137803137844_)) + ((lambda (_L137847_) + (if (and (let ((__tmp152698 (let () (declare (not safe)) - (slot-ref__0 _self137784_ 'K)))) + (slot-ref__0 _self137788_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _L137843_ - __tmp152694)) - (let ((__tmp152693 + _L137847_ + __tmp152698)) + (let ((__tmp152697 (let () (declare (not safe)) - (slot-ref__0 _self137784_ 'vars)))) + (slot-ref__0 _self137788_ 'vars)))) (declare (not safe)) - (pair? __tmp152693))) - (let ((__tmp152689 - (let ((__tmp152690 - (let ((__tmp152692 + (pair? __tmp152697))) + (let ((__tmp152693 + (let ((__tmp152694 + (let ((__tmp152696 (reverse (let () (declare (not safe)) (slot-ref__0 - _self137784_ + _self137788_ 'vars)))) - (__tmp152691 + (__tmp152695 (let () (declare (not safe)) - (cons _stx137785_ '())))) + (cons _stx137789_ '())))) (declare (not safe)) - (cons __tmp152692 __tmp152691)))) + (cons __tmp152696 __tmp152695)))) (declare (not safe)) - (cons '%#let-values __tmp152690)))) + (cons '%#let-values __tmp152694)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152689 _stx137785_)) - _stx137785_)) - _hd137800137838_) + (gxc#xform-wrap-source __tmp152693 _stx137789_)) + _stx137789_)) + _hd137804137842_) (let () (declare (not safe)) - (_g137787137806_ _g137788137809_))))) - (let () (declare (not safe)) (_g137787137806_ _g137788137809_))) + (_g137791137810_ _g137792137813_))))) + (let () (declare (not safe)) (_g137791137810_ _g137792137813_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137787137806_ - _g137788137809_))) + (_g137791137810_ + _g137792137813_))) (let () (declare (not safe)) - (_g137787137806_ - _g137788137809_))))) + (_g137791137810_ + _g137792137813_))))) (let () (declare (not safe)) - (_g137787137806_ _g137788137809_))))) + (_g137791137810_ _g137792137813_))))) (let () (declare (not safe)) - (_g137787137806_ _g137788137809_))))) + (_g137791137810_ _g137792137813_))))) (let () (declare (not safe)) - (_g137787137806_ _g137788137809_)))))) + (_g137791137810_ _g137792137813_)))))) (declare (not safe)) - (_g137786137859_ _stx137785_)))) + (_g137790137863_ _stx137789_)))) (define gxc#push-match-vars-stop - (lambda (_self137781_ _stx137782_) - (if (let ((__tmp152699 + (lambda (_self137785_ _stx137786_) + (if (let ((__tmp152703 (let () (declare (not safe)) - (slot-ref__0 _self137781_ 'vars)))) + (slot-ref__0 _self137785_ 'vars)))) (declare (not safe)) - (null? __tmp152699)) - _stx137782_ - (let ((__tmp152695 - (let ((__tmp152696 - (let ((__tmp152698 + (null? __tmp152703)) + _stx137786_ + (let ((__tmp152699 + (let ((__tmp152700 + (let ((__tmp152702 (reverse (let () (declare (not safe)) - (slot-ref__0 _self137781_ 'vars)))) - (__tmp152697 + (slot-ref__0 _self137785_ 'vars)))) + (__tmp152701 (let () (declare (not safe)) - (cons _stx137782_ '())))) + (cons _stx137786_ '())))) (declare (not safe)) - (cons __tmp152698 __tmp152697)))) + (cons __tmp152702 __tmp152701)))) (declare (not safe)) - (cons '%#let-values __tmp152696)))) + (cons '%#let-values __tmp152700)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152695 _stx137782_))))))) + (gxc#xform-wrap-source __tmp152699 _stx137786_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index 84509537c..b03d3e82d 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm @@ -1,132 +1,132 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g152702_| + (define |gxc[1]#_g152706_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152704_| + (define |gxc[1]#_g152708_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152706_| + (define |gxc[1]#_g152710_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152708_| + (define |gxc[1]#_g152712_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152711_| + (define |gxc[1]#_g152715_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152713_| + (define |gxc[1]#_g152717_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152715_| + (define |gxc[1]#_g152719_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152717_| + (define |gxc[1]#_g152721_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152719_| + (define |gxc[1]#_g152723_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152721_| + (define |gxc[1]#_g152725_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152723_| + (define |gxc[1]#_g152727_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152728_| + (define |gxc[1]#_g152732_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152731_| + (define |gxc[1]#_g152735_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152736_| + (define |gxc[1]#_g152740_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152739_| + (define |gxc[1]#_g152743_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152744_| + (define |gxc[1]#_g152748_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152747_| + (define |gxc[1]#_g152751_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152752_| + (define |gxc[1]#_g152756_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152755_| + (define |gxc[1]#_g152759_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj152090 + (let ((__obj152094 (let () (declare (not safe)) (##structure @@ -159,7 +159,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 'gxc#::optimize-annotated::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -167,7 +167,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '::optimize-annotated '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -175,26 +175,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152700 - (let ((__tmp152701 |gxc[1]#_g152702_|)) + (let ((__tmp152704 + (let ((__tmp152705 |gxc[1]#_g152706_|)) (declare (not safe)) - (cons __tmp152701 '())))) + (cons __tmp152705 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152090 - __tmp152700 + __obj152094 + __tmp152704 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -202,7 +202,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -210,7 +210,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -218,39 +218,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152703 |gxc[1]#_g152704_|)) + (let ((__tmp152707 |gxc[1]#_g152708_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152090 - __tmp152703 + __obj152094 + __tmp152707 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152705 |gxc[1]#_g152706_|)) + (let ((__tmp152709 |gxc[1]#_g152710_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152090 - __tmp152705 + __obj152094 + __tmp152709 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152707 |gxc[1]#_g152708_|)) + (let ((__tmp152711 |gxc[1]#_g152712_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152090 - __tmp152707 + __obj152094 + __tmp152711 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -258,7 +258,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -266,7 +266,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -274,14 +274,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj152094 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj152090)) + __obj152094)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj152092 + (let ((__obj152096 (let () (declare (not safe)) (##structure @@ -305,7 +305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 'gxc#::generate-runtime-repr::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -313,7 +313,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '::generate-runtime-repr '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -321,26 +321,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152709 - (let ((__tmp152710 |gxc[1]#_g152711_|)) + (let ((__tmp152713 + (let ((__tmp152714 |gxc[1]#_g152715_|)) (declare (not safe)) - (cons __tmp152710 '())))) + (cons __tmp152714 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152092 - __tmp152709 + __obj152096 + __tmp152713 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -348,7 +348,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -356,7 +356,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -364,39 +364,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152712 |gxc[1]#_g152713_|)) + (let ((__tmp152716 |gxc[1]#_g152717_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152092 - __tmp152712 + __obj152096 + __tmp152716 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152714 |gxc[1]#_g152715_|)) + (let ((__tmp152718 |gxc[1]#_g152719_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152092 - __tmp152714 + __obj152096 + __tmp152718 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152716 |gxc[1]#_g152717_|)) + (let ((__tmp152720 |gxc[1]#_g152721_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152092 - __tmp152716 + __obj152096 + __tmp152720 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -404,7 +404,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -412,7 +412,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -420,14 +420,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj152096 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj152092)) + __obj152096)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj152094 + (let ((__obj152098 (let () (declare (not safe)) (##structure @@ -451,7 +451,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152098 'gxc#::push-match-vars::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152098 '::push-match-vars '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -467,7 +467,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152098 '(vars K) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -475,7 +475,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152098 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -483,7 +483,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152098 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -491,7 +491,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152098 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -499,7 +499,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152098 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -507,117 +507,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152098 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152718 |gxc[1]#_g152719_|)) + (let ((__tmp152722 |gxc[1]#_g152723_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152718 + __obj152098 + __tmp152722 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152720 |gxc[1]#_g152721_|)) + (let ((__tmp152724 |gxc[1]#_g152725_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152720 + __obj152098 + __tmp152724 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152722 |gxc[1]#_g152723_|)) + (let ((__tmp152726 |gxc[1]#_g152727_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152722 + __obj152098 + __tmp152726 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152724 - (let ((__tmp152729 - (let ((__tmp152730 |gxc[1]#_g152731_|)) + (let ((__tmp152728 + (let ((__tmp152733 + (let ((__tmp152734 |gxc[1]#_g152735_|)) (declare (not safe)) - (cons 'vars __tmp152730))) - (__tmp152725 - (let ((__tmp152726 - (let ((__tmp152727 |gxc[1]#_g152728_|)) + (cons 'vars __tmp152734))) + (__tmp152729 + (let ((__tmp152730 + (let ((__tmp152731 |gxc[1]#_g152732_|)) (declare (not safe)) - (cons 'K __tmp152727)))) + (cons 'K __tmp152731)))) (declare (not safe)) - (cons __tmp152726 '())))) + (cons __tmp152730 '())))) (declare (not safe)) - (cons __tmp152729 __tmp152725)))) + (cons __tmp152733 __tmp152729)))) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152724 + __obj152098 + __tmp152728 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152732 - (let ((__tmp152737 - (let ((__tmp152738 |gxc[1]#_g152739_|)) + (let ((__tmp152736 + (let ((__tmp152741 + (let ((__tmp152742 |gxc[1]#_g152743_|)) (declare (not safe)) - (cons 'vars __tmp152738))) - (__tmp152733 - (let ((__tmp152734 - (let ((__tmp152735 |gxc[1]#_g152736_|)) + (cons 'vars __tmp152742))) + (__tmp152737 + (let ((__tmp152738 + (let ((__tmp152739 |gxc[1]#_g152740_|)) (declare (not safe)) - (cons 'K __tmp152735)))) + (cons 'K __tmp152739)))) (declare (not safe)) - (cons __tmp152734 '())))) + (cons __tmp152738 '())))) (declare (not safe)) - (cons __tmp152737 __tmp152733)))) + (cons __tmp152741 __tmp152737)))) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152732 + __obj152098 + __tmp152736 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152740 - (let ((__tmp152745 - (let ((__tmp152746 |gxc[1]#_g152747_|)) + (let ((__tmp152744 + (let ((__tmp152749 + (let ((__tmp152750 |gxc[1]#_g152751_|)) (declare (not safe)) - (cons 'vars __tmp152746))) - (__tmp152741 - (let ((__tmp152742 - (let ((__tmp152743 |gxc[1]#_g152744_|)) + (cons 'vars __tmp152750))) + (__tmp152745 + (let ((__tmp152746 + (let ((__tmp152747 |gxc[1]#_g152748_|)) (declare (not safe)) - (cons 'K __tmp152743)))) + (cons 'K __tmp152747)))) (declare (not safe)) - (cons __tmp152742 '())))) + (cons __tmp152746 '())))) (declare (not safe)) - (cons __tmp152745 __tmp152741)))) + (cons __tmp152749 __tmp152745)))) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152740 + __obj152098 + __tmp152744 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152748 - (let ((__tmp152753 - (let ((__tmp152754 |gxc[1]#_g152755_|)) + (let ((__tmp152752 + (let ((__tmp152757 + (let ((__tmp152758 |gxc[1]#_g152759_|)) (declare (not safe)) - (cons 'vars __tmp152754))) - (__tmp152749 - (let ((__tmp152750 - (let ((__tmp152751 |gxc[1]#_g152752_|)) + (cons 'vars __tmp152758))) + (__tmp152753 + (let ((__tmp152754 + (let ((__tmp152755 |gxc[1]#_g152756_|)) (declare (not safe)) - (cons 'K __tmp152751)))) + (cons 'K __tmp152755)))) (declare (not safe)) - (cons __tmp152750 '())))) + (cons __tmp152754 '())))) (declare (not safe)) - (cons __tmp152753 __tmp152749)))) + (cons __tmp152757 __tmp152753)))) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152748 + __obj152098 + __tmp152752 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj152094)))) + __obj152098)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index 9e1e8f695..32ece6879 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base~0.scm @@ -1,32 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1710781150) + (define gerbil/compiler/optimize-base::timestamp 1710833425) (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 ((__tmp117118 (list)) - (__tmp117116 - (let ((__tmp117117 + (let ((__tmp117122 (list)) + (__tmp117120 + (let ((__tmp117121 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117117 '())))) + (cons __tmp117121 '())))) (declare (not safe)) (make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp117118 + __tmp117122 '(type ssxi methods) - __tmp117116 + __tmp117120 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args117052_ - (apply make-instance gxc#optimizer-info::t _$args117052_))) + (lambda _$args117056_ + (apply make-instance gxc#optimizer-info::t _$args117056_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -76,62 +76,62 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_self117050_) - (if (let ((__tmp117126 + (lambda (_self117054_) + (if (let ((__tmp117130 (let () (declare (not safe)) - (##structure-length _self117050_)))) + (##structure-length _self117054_)))) (declare (not safe)) - (##fx< '3 __tmp117126)) + (##fx< '3 __tmp117130)) (begin - (let ((__tmp117121 + (let ((__tmp117125 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp117120 + (__tmp117124 (let () (declare (not safe)) - (##structure-type _self117050_)))) + (##structure-type _self117054_)))) (declare (not safe)) (##unchecked-structure-set! - _self117050_ - __tmp117121 + _self117054_ + __tmp117125 '1 - __tmp117120 + __tmp117124 '#f)) - (let ((__tmp117123 + (let ((__tmp117127 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp117122 + (__tmp117126 (let () (declare (not safe)) - (##structure-type _self117050_)))) + (##structure-type _self117054_)))) (declare (not safe)) (##unchecked-structure-set! - _self117050_ - __tmp117123 + _self117054_ + __tmp117127 '2 - __tmp117122 + __tmp117126 '#f)) - (let ((__tmp117125 + (let ((__tmp117129 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp117124 + (__tmp117128 (let () (declare (not safe)) - (##structure-type _self117050_)))) + (##structure-type _self117054_)))) (declare (not safe)) (##unchecked-structure-set! - _self117050_ - __tmp117125 + _self117054_ + __tmp117129 '3 - __tmp117124 + __tmp117128 '#f))) - (let ((__tmp117119 + (let ((__tmp117123 (let () (declare (not safe)) - (##vector-length _self117050_)))) + (##vector-length _self117054_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self117050_ + _self117054_ '3 - __tmp117119))))) + __tmp117123))))) (let () (declare (not safe)) (bind-method!__% @@ -140,24 +140,24 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp117129 (list)) - (__tmp117127 - (let ((__tmp117128 + (let ((__tmp117133 (list)) + (__tmp117131 + (let ((__tmp117132 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117128 '())))) + (cons __tmp117132 '())))) (declare (not safe)) (make-class-type 'gxc#!type::t '!type - __tmp117129 + __tmp117133 '(id) - __tmp117127 + __tmp117131 '#f))) (define gxc#!type? (let () (declare (not safe)) (make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args116925_ (apply make-instance gxc#!type::t _$args116925_))) + (lambda _$args116929_ (apply make-instance gxc#!type::t _$args116929_))) (define gxc#!type-id (let () (declare (not safe)) @@ -173,24 +173,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!alias::t - (let ((__tmp117132 (list gxc#!type::t)) - (__tmp117130 - (let ((__tmp117131 + (let ((__tmp117136 (list gxc#!type::t)) + (__tmp117134 + (let ((__tmp117135 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117131 '())))) + (cons __tmp117135 '())))) (declare (not safe)) (make-class-type 'gxc#!alias::t '!alias - __tmp117132 + __tmp117136 '() - __tmp117130 + __tmp117134 '#f))) (define gxc#!alias? (let () (declare (not safe)) (make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args116922_ (apply make-instance gxc#!alias::t _$args116922_))) + (lambda _$args116926_ (apply make-instance gxc#!alias::t _$args116926_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -208,25 +208,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!procedure::t - (let ((__tmp117135 (list gxc#!type::t)) - (__tmp117133 - (let ((__tmp117134 + (let ((__tmp117139 (list gxc#!type::t)) + (__tmp117137 + (let ((__tmp117138 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117134 '())))) + (cons __tmp117138 '())))) (declare (not safe)) (make-class-type 'gxc#!procedure::t '!procedure - __tmp117135 + __tmp117139 '() - __tmp117133 + __tmp117137 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (make-class-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args116919_ - (apply make-instance gxc#!procedure::t _$args116919_))) + (lambda _$args116923_ + (apply make-instance gxc#!procedure::t _$args116923_))) (define gxc#!procedure-id (let () (declare (not safe)) @@ -244,17 +244,17 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#!class::t - (let ((__tmp117138 (list gxc#!type::t)) - (__tmp117136 - (let ((__tmp117137 + (let ((__tmp117142 (list gxc#!type::t)) + (__tmp117140 + (let ((__tmp117141 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117137 '())))) + (cons __tmp117141 '())))) (declare (not safe)) (make-class-type 'gxc#!class::t '!class - __tmp117138 + __tmp117142 '(super precedence-list slots fields @@ -264,12 +264,12 @@ system? metaclass methods) - __tmp117136 + __tmp117140 ':init!))) (define gxc#!class? (let () (declare (not safe)) (make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args116916_ (apply make-instance gxc#!class::t _$args116916_))) + (lambda _$args116920_ (apply make-instance gxc#!class::t _$args116920_))) (define gxc#!class-super (let () (declare (not safe)) @@ -447,25 +447,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp117141 (list gxc#!procedure::t)) - (__tmp117139 - (let ((__tmp117140 + (let ((__tmp117145 (list gxc#!procedure::t)) + (__tmp117143 + (let ((__tmp117144 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117140 '())))) + (cons __tmp117144 '())))) (declare (not safe)) (make-class-type 'gxc#!predicate::t '!predicate - __tmp117141 + __tmp117145 '() - __tmp117139 + __tmp117143 '#f))) (define gxc#!predicate? (let () (declare (not safe)) (make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args116913_ - (apply make-instance gxc#!predicate::t _$args116913_))) + (lambda _$args116917_ + (apply make-instance gxc#!predicate::t _$args116917_))) (define gxc#!predicate-id (let () (declare (not safe)) @@ -483,25 +483,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp117144 (list gxc#!procedure::t)) - (__tmp117142 - (let ((__tmp117143 + (let ((__tmp117148 (list gxc#!procedure::t)) + (__tmp117146 + (let ((__tmp117147 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117143 '())))) + (cons __tmp117147 '())))) (declare (not safe)) (make-class-type 'gxc#!constructor::t '!constructor - __tmp117144 + __tmp117148 '() - __tmp117142 + __tmp117146 '#f))) (define gxc#!constructor? (let () (declare (not safe)) (make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args116910_ - (apply make-instance gxc#!constructor::t _$args116910_))) + (lambda _$args116914_ + (apply make-instance gxc#!constructor::t _$args116914_))) (define gxc#!constructor-id (let () (declare (not safe)) @@ -519,25 +519,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp117147 (list gxc#!procedure::t)) - (__tmp117145 - (let ((__tmp117146 + (let ((__tmp117151 (list gxc#!procedure::t)) + (__tmp117149 + (let ((__tmp117150 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117146 '())))) + (cons __tmp117150 '())))) (declare (not safe)) (make-class-type 'gxc#!accessor::t '!accessor - __tmp117147 + __tmp117151 '(slot checked?) - __tmp117145 + __tmp117149 '#f))) (define gxc#!accessor? (let () (declare (not safe)) (make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args116907_ - (apply make-instance gxc#!accessor::t _$args116907_))) + (lambda _$args116911_ + (apply make-instance gxc#!accessor::t _$args116911_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -587,25 +587,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp117150 (list gxc#!procedure::t)) - (__tmp117148 - (let ((__tmp117149 + (let ((__tmp117154 (list gxc#!procedure::t)) + (__tmp117152 + (let ((__tmp117153 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117149 '())))) + (cons __tmp117153 '())))) (declare (not safe)) (make-class-type 'gxc#!mutator::t '!mutator - __tmp117150 + __tmp117154 '(slot checked?) - __tmp117148 + __tmp117152 '#f))) (define gxc#!mutator? (let () (declare (not safe)) (make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args116904_ - (apply make-instance gxc#!mutator::t _$args116904_))) + (lambda _$args116908_ + (apply make-instance gxc#!mutator::t _$args116908_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -655,25 +655,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!lambda::t - (let ((__tmp117153 (list gxc#!procedure::t)) - (__tmp117151 - (let ((__tmp117152 + (let ((__tmp117157 (list gxc#!procedure::t)) + (__tmp117155 + (let ((__tmp117156 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117152 '())))) + (cons __tmp117156 '())))) (declare (not safe)) (make-class-type 'gxc#!lambda::t '!lambda - __tmp117153 + __tmp117157 '(arity dispatch inline inline-typedecl) - __tmp117151 + __tmp117155 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args116901_ - (apply make-instance gxc#!lambda::t _$args116901_))) + (lambda _$args116905_ + (apply make-instance gxc#!lambda::t _$args116905_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -755,25 +755,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp117156 (list gxc#!procedure::t)) - (__tmp117154 - (let ((__tmp117155 + (let ((__tmp117160 (list gxc#!procedure::t)) + (__tmp117158 + (let ((__tmp117159 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117155 '())))) + (cons __tmp117159 '())))) (declare (not safe)) (make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp117156 + __tmp117160 '(clauses) - __tmp117154 + __tmp117158 '#f))) (define gxc#!case-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args116898_ - (apply make-instance gxc#!case-lambda::t _$args116898_))) + (lambda _$args116902_ + (apply make-instance gxc#!case-lambda::t _$args116902_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -807,25 +807,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp117159 (list gxc#!procedure::t)) - (__tmp117157 - (let ((__tmp117158 + (let ((__tmp117163 (list gxc#!procedure::t)) + (__tmp117161 + (let ((__tmp117162 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117158 '())))) + (cons __tmp117162 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp117159 + __tmp117163 '(table dispatch) - __tmp117157 + __tmp117161 '#f))) (define gxc#!kw-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args116895_ - (apply make-instance gxc#!kw-lambda::t _$args116895_))) + (lambda _$args116899_ + (apply make-instance gxc#!kw-lambda::t _$args116899_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -875,27 +875,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp117162 (list gxc#!procedure::t)) - (__tmp117160 - (let ((__tmp117161 + (let ((__tmp117166 (list gxc#!procedure::t)) + (__tmp117164 + (let ((__tmp117165 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117161 '())))) + (cons __tmp117165 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp117162 + __tmp117166 '(keys main) - __tmp117160 + __tmp117164 '#f))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _$args116892_ - (apply make-instance gxc#!kw-lambda-primary::t _$args116892_))) + (lambda _$args116896_ + (apply make-instance gxc#!kw-lambda-primary::t _$args116896_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -945,27 +945,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp117163 (list))) + (let ((__tmp117167 (list))) (declare (not safe)) (make-class-type 'gxc#!primitive::t '!primitive - __tmp117163 + __tmp117167 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args116889_ - (apply make-instance gxc#!primitive::t _$args116889_))) + (lambda _$args116893_ + (apply make-instance gxc#!primitive::t _$args116893_))) (define gxc#!primitive-lambda::t - (let ((__tmp117164 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp117168 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp117164 + __tmp117168 '() '() ':init!))) @@ -974,8 +974,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args116886_ - (apply make-instance gxc#!primitive-lambda::t _$args116886_))) + (lambda _$args116890_ + (apply make-instance gxc#!primitive-lambda::t _$args116890_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1065,12 +1065,12 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp117165 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp117169 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp117165 + __tmp117169 '() '() ':init!))) @@ -1079,8 +1079,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args116883_ - (apply make-instance gxc#!primitive-case-lambda::t _$args116883_))) + (lambda _$args116887_ + (apply make-instance gxc#!primitive-case-lambda::t _$args116887_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1120,909 +1120,909 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-case-lambda::t 'id))) (define gxc#!class:::init!__0 - (lambda (_self116763_ - _id116764_ - _super116765_ - _slots116766_ - _ctor-method116767_ - _struct?116768_ - _final?116769_ - _system?116770_ - _metaclass116771_) - (let _lp116773_ ((_rest116775_ _super116765_)) - (let* ((_rest116776116784_ _rest116775_) - (_else116778116792_ (lambda () '#!void)) - (_K116780116798_ - (lambda (_rest116795_ _super-id116796_) + (lambda (_self116767_ + _id116768_ + _super116769_ + _slots116770_ + _ctor-method116771_ + _struct?116772_ + _final?116773_ + _system?116774_ + _metaclass116775_) + (let _lp116777_ ((_rest116779_ _super116769_)) + (let* ((_rest116780116788_ _rest116779_) + (_else116782116796_ (lambda () '#!void)) + (_K116784116802_ + (lambda (_rest116799_ _super-id116800_) (if (##structure-ref - (let ((__tmp117168 - (let ((__tmp117169 + (let ((__tmp117172 + (let ((__tmp117173 (let () (declare (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117169)))) + (cons '!class __tmp117173)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117168 - _super-id116796_)) + __tmp117172 + _super-id116800_)) '8 gxc#!class::t '#f) - (let ((__tmp117166 - (let ((__tmp117167 + (let ((__tmp117170 + (let ((__tmp117171 (let () (declare (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117167)))) + (cons '!class __tmp117171)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp117166 - _super-id116796_)) + __tmp117170 + _super-id116800_)) '#!void) - (let () (declare (not safe)) (_lp116773_ _rest116795_))))) - (if (let () (declare (not safe)) (##pair? _rest116776116784_)) - (let ((_hd116781116801_ + (let () (declare (not safe)) (_lp116777_ _rest116799_))))) + (if (let () (declare (not safe)) (##pair? _rest116780116788_)) + (let ((_hd116785116805_ (let () (declare (not safe)) - (##car _rest116776116784_))) - (_tl116782116803_ + (##car _rest116780116788_))) + (_tl116786116807_ (let () (declare (not safe)) - (##cdr _rest116776116784_)))) - (let* ((_super-id116806_ _hd116781116801_) - (_rest116808_ _tl116782116803_)) + (##cdr _rest116780116788_)))) + (let* ((_super-id116810_ _hd116785116805_) + (_rest116812_ _tl116786116807_)) (declare (not safe)) - (_K116780116798_ _rest116808_ _super-id116806_))) + (_K116784116802_ _rest116812_ _super-id116810_))) '#!void))) - (let* ((_ctor-method116858_ - (let ((_$e116810_ _ctor-method116767_)) - (if _$e116810_ - _$e116810_ - (let _lp116813_ ((_rest116815_ _super116765_) - (_method116816_ '#f)) - (let* ((_rest116817116825_ _rest116815_) - (_else116819116833_ (lambda () _method116816_)) - (_K116821116846_ - (lambda (_rest116836_ _super-id116837_) - (let* ((_klass116839_ - (let ((__tmp117170 - (let ((__tmp117171 + (let* ((_ctor-method116862_ + (let ((_$e116814_ _ctor-method116771_)) + (if _$e116814_ + _$e116814_ + (let _lp116817_ ((_rest116819_ _super116769_) + (_method116820_ '#f)) + (let* ((_rest116821116829_ _rest116819_) + (_else116823116837_ (lambda () _method116820_)) + (_K116825116850_ + (lambda (_rest116840_ _super-id116841_) + (let* ((_klass116843_ + (let ((__tmp117174 + (let ((__tmp117175 (let () (declare (not safe)) - (cons _id116764_ + (cons _id116768_ '())))) (declare (not safe)) (cons '!class - __tmp117171)))) + __tmp117175)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117170 - _super-id116837_))) - (_$e116841_ + __tmp117174 + _super-id116841_))) + (_$e116845_ (##structure-ref - _klass116839_ + _klass116843_ '6 gxc#!class::t '#f))) - (if _$e116841_ - ((lambda (_ctor-method116844_) - (if _method116816_ + (if _$e116845_ + ((lambda (_ctor-method116848_) + (if _method116820_ (if (let () (declare (not safe)) - (eq? _ctor-method116844_ - _method116816_)) + (eq? _ctor-method116848_ + _method116820_)) (let () (declare (not safe)) - (_lp116813_ - _rest116836_ - _ctor-method116844_)) - (let ((__tmp117172 - (let ((__tmp117173 + (_lp116817_ + _rest116840_ + _ctor-method116848_)) + (let ((__tmp117176 + (let ((__tmp117177 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id116764_ '())))) + (let () (declare (not safe)) (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117173)))) + (cons '!class __tmp117177)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp117172 - _method116816_ - _ctor-method116844_))) + __tmp117176 + _method116820_ + _ctor-method116848_))) (let () (declare (not safe)) - (_lp116813_ - _rest116836_ - _ctor-method116844_)))) - _$e116841_) + (_lp116817_ + _rest116840_ + _ctor-method116848_)))) + _$e116845_) (let () (declare (not safe)) - (_lp116813_ - _rest116836_ - _method116816_))))))) + (_lp116817_ + _rest116840_ + _method116820_))))))) (if (let () (declare (not safe)) - (##pair? _rest116817116825_)) - (let ((_hd116822116849_ + (##pair? _rest116821116829_)) + (let ((_hd116826116853_ (let () (declare (not safe)) - (##car _rest116817116825_))) - (_tl116823116851_ + (##car _rest116821116829_))) + (_tl116827116855_ (let () (declare (not safe)) - (##cdr _rest116817116825_)))) - (let* ((_super-id116854_ _hd116822116849_) - (_rest116856_ _tl116823116851_)) + (##cdr _rest116821116829_)))) + (let* ((_super-id116858_ _hd116826116853_) + (_rest116860_ _tl116827116855_)) (declare (not safe)) - (_K116821116846_ - _rest116856_ - _super-id116854_))) + (_K116825116850_ + _rest116860_ + _super-id116858_))) (let () (declare (not safe)) - (_else116819116833_)))))))) - (_g117174_ - (let ((__tmp117179 - (lambda (_klass-id116860_) - (let ((__tmp117180 + (_else116823116837_)))))))) + (_g117178_ + (let ((__tmp117183 + (lambda (_klass-id116864_) + (let ((__tmp117184 (##structure-ref - (let ((__tmp117181 - (let ((__tmp117182 + (let ((__tmp117185 + (let ((__tmp117186 (let () (declare (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117182)))) + (cons '!class __tmp117186)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117181 - _klass-id116860_)) + __tmp117185 + _klass-id116864_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id116860_ __tmp117180)))) - (__tmp117176 - (lambda (_klass-id116862_) + (cons _klass-id116864_ __tmp117184)))) + (__tmp117180 + (lambda (_klass-id116866_) (##structure-ref - (let ((__tmp117177 - (let ((__tmp117178 + (let ((__tmp117181 + (let ((__tmp117182 (let () (declare (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117178)))) + (cons '!class __tmp117182)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117177 - _klass-id116862_)) + __tmp117181 + _klass-id116866_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super116765_ + _super116769_ 'get-precedence-list: - __tmp117179 + __tmp117183 'struct: - __tmp117176 + __tmp117180 'eq: eq? 'get-name: identity)))) (begin - (let ((_g117175_ + (let ((_g117179_ (let () (declare (not safe)) - (if (##values? _g117174_) - (##vector-length _g117174_) + (if (##values? _g117178_) + (##vector-length _g117178_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g117175_ 2))) - (error "Context expects 2 values" _g117175_))) - (let ((_precedence-list116864_ - (let () (declare (not safe)) (##vector-ref _g117174_ 0))) - (_base-struct116865_ - (let () (declare (not safe)) (##vector-ref _g117174_ 1)))) - (let ((_fields116867_ - (let ((__tmp117183 - (let ((__tmp117184 + (if (not (let () (declare (not safe)) (##fx= _g117179_ 2))) + (error "Context expects 2 values" _g117179_))) + (let ((_precedence-list116868_ + (let () (declare (not safe)) (##vector-ref _g117178_ 0))) + (_base-struct116869_ + (let () (declare (not safe)) (##vector-ref _g117178_ 1)))) + (let ((_fields116871_ + (let ((__tmp117187 + (let ((__tmp117188 (let () (declare (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117184)))) + (cons '!class __tmp117188)))) (declare (not safe)) (gxc#compute-class-fields - __tmp117183 - _base-struct116865_ - _precedence-list116864_ - _slots116766_)))) - (##structure-set! _self116763_ _id116764_ '1 gxc#!type::t '#f) + __tmp117187 + _base-struct116869_ + _precedence-list116868_ + _slots116770_)))) + (##structure-set! _self116767_ _id116768_ '1 gxc#!type::t '#f) (##structure-set! - _self116763_ - _super116765_ + _self116767_ + _super116769_ '2 gxc#!class::t '#f) (##structure-set! - _self116763_ - _precedence-list116864_ + _self116767_ + _precedence-list116868_ '3 gxc#!class::t '#f) (##structure-set! - _self116763_ - _slots116766_ + _self116767_ + _slots116770_ '4 gxc#!class::t '#f) (##structure-set! - _self116763_ - _fields116867_ + _self116767_ + _fields116871_ '5 gxc#!class::t '#f) (##structure-set! - _self116763_ - _ctor-method116858_ + _self116767_ + _ctor-method116862_ '6 gxc#!class::t '#f) (##structure-set! - _self116763_ - _struct?116768_ + _self116767_ + _struct?116772_ '7 gxc#!class::t '#f) (##structure-set! - _self116763_ - _final?116769_ + _self116767_ + _final?116773_ '8 gxc#!class::t '#f) (##structure-set! - _self116763_ - _metaclass116771_ + _self116767_ + _metaclass116775_ '10 gxc#!class::t '#f))))))) (define gxc#!class:::init!__1 - (lambda (_self116870_ - _id116871_ - _super116872_ - _precedence-list116873_ - _slots116874_ - _fields116875_ - _constructor116876_ - _struct?116877_ - _final?116878_ - _system?116879_ - _metaclass116880_ - _methods116881_) - (##structure-set! _self116870_ _id116871_ '1 gxc#!type::t '#f) - (##structure-set! _self116870_ _super116872_ '2 gxc#!class::t '#f) + (lambda (_self116874_ + _id116875_ + _super116876_ + _precedence-list116877_ + _slots116878_ + _fields116879_ + _constructor116880_ + _struct?116881_ + _final?116882_ + _system?116883_ + _metaclass116884_ + _methods116885_) + (##structure-set! _self116874_ _id116875_ '1 gxc#!type::t '#f) + (##structure-set! _self116874_ _super116876_ '2 gxc#!class::t '#f) (##structure-set! - _self116870_ - _precedence-list116873_ + _self116874_ + _precedence-list116877_ '3 gxc#!class::t '#f) - (##structure-set! _self116870_ _slots116874_ '4 gxc#!class::t '#f) - (##structure-set! _self116870_ _fields116875_ '5 gxc#!class::t '#f) + (##structure-set! _self116874_ _slots116878_ '4 gxc#!class::t '#f) + (##structure-set! _self116874_ _fields116879_ '5 gxc#!class::t '#f) (##structure-set! - _self116870_ - _constructor116876_ + _self116874_ + _constructor116880_ '6 gxc#!class::t '#f) - (##structure-set! _self116870_ _struct?116877_ '7 gxc#!class::t '#f) - (##structure-set! _self116870_ _final?116878_ '8 gxc#!class::t '#f) - (##structure-set! _self116870_ _metaclass116880_ '10 gxc#!class::t '#f) - (if _methods116881_ + (##structure-set! _self116874_ _struct?116881_ '7 gxc#!class::t '#f) + (##structure-set! _self116874_ _final?116882_ '8 gxc#!class::t '#f) + (##structure-set! _self116874_ _metaclass116884_ '10 gxc#!class::t '#f) + (if _methods116885_ (##structure-set! - _self116870_ + _self116874_ (let () (declare (not safe)) - (list->hash-table-eq _methods116881_)) + (list->hash-table-eq _methods116885_)) '11 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (lambda _g117186_ - (let ((_g117185_ (let () (declare (not safe)) (##length _g117186_)))) - (cond ((let () (declare (not safe)) (##fx= _g117185_ 9)) - (apply (lambda (_self116763_ - _id116764_ - _super116765_ - _slots116766_ - _ctor-method116767_ - _struct?116768_ - _final?116769_ - _system?116770_ - _metaclass116771_) + (lambda _g117190_ + (let ((_g117189_ (let () (declare (not safe)) (##length _g117190_)))) + (cond ((let () (declare (not safe)) (##fx= _g117189_ 9)) + (apply (lambda (_self116767_ + _id116768_ + _super116769_ + _slots116770_ + _ctor-method116771_ + _struct?116772_ + _final?116773_ + _system?116774_ + _metaclass116775_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _self116763_ - _id116764_ - _super116765_ - _slots116766_ - _ctor-method116767_ - _struct?116768_ - _final?116769_ - _system?116770_ - _metaclass116771_))) - _g117186_)) - ((let () (declare (not safe)) (##fx= _g117185_ 12)) - (apply (lambda (_self116870_ - _id116871_ - _super116872_ - _precedence-list116873_ - _slots116874_ - _fields116875_ - _constructor116876_ - _struct?116877_ - _final?116878_ - _system?116879_ - _metaclass116880_ - _methods116881_) + _self116767_ + _id116768_ + _super116769_ + _slots116770_ + _ctor-method116771_ + _struct?116772_ + _final?116773_ + _system?116774_ + _metaclass116775_))) + _g117190_)) + ((let () (declare (not safe)) (##fx= _g117189_ 12)) + (apply (lambda (_self116874_ + _id116875_ + _super116876_ + _precedence-list116877_ + _slots116878_ + _fields116879_ + _constructor116880_ + _struct?116881_ + _final?116882_ + _system?116883_ + _metaclass116884_ + _methods116885_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self116870_ - _id116871_ - _super116872_ - _precedence-list116873_ - _slots116874_ - _fields116875_ - _constructor116876_ - _struct?116877_ - _final?116878_ - _system?116879_ - _metaclass116880_ - _methods116881_))) - _g117186_)) + _self116874_ + _id116875_ + _super116876_ + _precedence-list116877_ + _slots116878_ + _fields116879_ + _constructor116880_ + _struct?116881_ + _final?116882_ + _system?116883_ + _metaclass116884_ + _methods116885_))) + _g117190_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g117186_)))))) + _g117190_)))))) (define gxc#!class:::init!::specialize - (lambda (__klass117054 __method-table117055) - (let ((__super117056 - (let ((__slot117066 - (let () - (declare (not safe)) - (class-slot-offset __klass117054 'super)))) - (if __slot117066 - __slot117066 - (let () - (declare (not safe)) - (error '"Unknown slot" 'super))))) - (__id117057 - (let ((__slot117067 - (let () - (declare (not safe)) - (class-slot-offset __klass117054 'id)))) - (if __slot117067 - __slot117067 - (let () - (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__final?117058 - (let ((__slot117068 - (let () - (declare (not safe)) - (class-slot-offset __klass117054 'final?)))) - (if __slot117068 - __slot117068 - (let () - (declare (not safe)) - (error '"Unknown slot" 'final?))))) - (__constructor117059 - (let ((__slot117069 - (let () - (declare (not safe)) - (class-slot-offset __klass117054 'constructor)))) - (if __slot117069 - __slot117069 - (let () - (declare (not safe)) - (error '"Unknown slot" 'constructor))))) - (__precedence-list117060 + (lambda (__klass117058 __method-table117059) + (let ((__id117060 (let ((__slot117070 (let () (declare (not safe)) - (class-slot-offset __klass117054 'precedence-list)))) + (class-slot-offset __klass117058 'id)))) (if __slot117070 __slot117070 (let () (declare (not safe)) - (error '"Unknown slot" 'precedence-list))))) - (__slots117061 + (error '"Unknown slot" 'id))))) + (__super117061 (let ((__slot117071 (let () (declare (not safe)) - (class-slot-offset __klass117054 'slots)))) + (class-slot-offset __klass117058 'super)))) (if __slot117071 __slot117071 (let () (declare (not safe)) - (error '"Unknown slot" 'slots))))) - (__fields117062 + (error '"Unknown slot" 'super))))) + (__constructor117062 (let ((__slot117072 (let () (declare (not safe)) - (class-slot-offset __klass117054 'fields)))) + (class-slot-offset __klass117058 'constructor)))) (if __slot117072 __slot117072 (let () (declare (not safe)) - (error '"Unknown slot" 'fields))))) - (__struct?117063 + (error '"Unknown slot" 'constructor))))) + (__fields117063 (let ((__slot117073 (let () (declare (not safe)) - (class-slot-offset __klass117054 'struct?)))) + (class-slot-offset __klass117058 'fields)))) (if __slot117073 __slot117073 (let () (declare (not safe)) - (error '"Unknown slot" 'struct?))))) - (__methods117064 + (error '"Unknown slot" 'fields))))) + (__final?117064 (let ((__slot117074 (let () (declare (not safe)) - (class-slot-offset __klass117054 'methods)))) + (class-slot-offset __klass117058 'final?)))) (if __slot117074 __slot117074 (let () (declare (not safe)) - (error '"Unknown slot" 'methods))))) - (__metaclass117065 + (error '"Unknown slot" 'final?))))) + (__slots117065 (let ((__slot117075 (let () (declare (not safe)) - (class-slot-offset __klass117054 'metaclass)))) + (class-slot-offset __klass117058 'slots)))) (if __slot117075 __slot117075 (let () (declare (not safe)) - (error '"Unknown slot" 'metaclass)))))) - (lambda _g117188_ - (let ((_g117187_ - (let () (declare (not safe)) (##length _g117188_)))) - (cond ((let () (declare (not safe)) (##fx= _g117187_ 9)) - (apply (lambda (_self116763_ - _id116764_ - _super116765_ - _slots116766_ - _ctor-method116767_ - _struct?116768_ - _final?116769_ - _system?116770_ - _metaclass116771_) - (let _lp116773_ ((_rest116775_ _super116765_)) - (let* ((_rest116776116784_ _rest116775_) - (_else116778116792_ (lambda () '#!void)) - (_K116780116798_ - (lambda (_rest116795_ _super-id116796_) + (error '"Unknown slot" 'slots))))) + (__precedence-list117066 + (let ((__slot117076 + (let () + (declare (not safe)) + (class-slot-offset __klass117058 'precedence-list)))) + (if __slot117076 + __slot117076 + (let () + (declare (not safe)) + (error '"Unknown slot" 'precedence-list))))) + (__struct?117067 + (let ((__slot117077 + (let () + (declare (not safe)) + (class-slot-offset __klass117058 'struct?)))) + (if __slot117077 + __slot117077 + (let () + (declare (not safe)) + (error '"Unknown slot" 'struct?))))) + (__metaclass117068 + (let ((__slot117078 + (let () + (declare (not safe)) + (class-slot-offset __klass117058 'metaclass)))) + (if __slot117078 + __slot117078 + (let () + (declare (not safe)) + (error '"Unknown slot" 'metaclass))))) + (__methods117069 + (let ((__slot117079 + (let () + (declare (not safe)) + (class-slot-offset __klass117058 'methods)))) + (if __slot117079 + __slot117079 + (let () + (declare (not safe)) + (error '"Unknown slot" 'methods)))))) + (lambda _g117192_ + (let ((_g117191_ + (let () (declare (not safe)) (##length _g117192_)))) + (cond ((let () (declare (not safe)) (##fx= _g117191_ 9)) + (apply (lambda (_self116767_ + _id116768_ + _super116769_ + _slots116770_ + _ctor-method116771_ + _struct?116772_ + _final?116773_ + _system?116774_ + _metaclass116775_) + (let _lp116777_ ((_rest116779_ _super116769_)) + (let* ((_rest116780116788_ _rest116779_) + (_else116782116796_ (lambda () '#!void)) + (_K116784116802_ + (lambda (_rest116799_ _super-id116800_) (if (##structure-ref - (let ((__tmp117191 - (let ((__tmp117192 + (let ((__tmp117195 + (let ((__tmp117196 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117192)))) + (cons '!class __tmp117196)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117191 - _super-id116796_)) + __tmp117195 + _super-id116800_)) '8 gxc#!class::t '#f) - (let ((__tmp117189 - (let ((__tmp117190 + (let ((__tmp117193 + (let ((__tmp117194 (let () (declare (not safe)) - (cons _id116764_ + (cons _id116768_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp117190)))) + (cons '!class __tmp117194)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp117189 - _super-id116796_)) + __tmp117193 + _super-id116800_)) '#!void) (let () (declare (not safe)) - (_lp116773_ _rest116795_))))) + (_lp116777_ _rest116799_))))) (if (let () (declare (not safe)) - (##pair? _rest116776116784_)) - (let ((_hd116781116801_ + (##pair? _rest116780116788_)) + (let ((_hd116785116805_ (let () (declare (not safe)) - (##car _rest116776116784_))) - (_tl116782116803_ + (##car _rest116780116788_))) + (_tl116786116807_ (let () (declare (not safe)) - (##cdr _rest116776116784_)))) - (let* ((_super-id116806_ - _hd116781116801_) - (_rest116808_ _tl116782116803_)) + (##cdr _rest116780116788_)))) + (let* ((_super-id116810_ + _hd116785116805_) + (_rest116812_ _tl116786116807_)) (declare (not safe)) - (_K116780116798_ - _rest116808_ - _super-id116806_))) + (_K116784116802_ + _rest116812_ + _super-id116810_))) '#!void))) - (let* ((_ctor-method116858_ - (let ((_$e116810_ _ctor-method116767_)) - (if _$e116810_ - _$e116810_ - (let _lp116813_ ((_rest116815_ - _super116765_) - (_method116816_ + (let* ((_ctor-method116862_ + (let ((_$e116814_ _ctor-method116771_)) + (if _$e116814_ + _$e116814_ + (let _lp116817_ ((_rest116819_ + _super116769_) + (_method116820_ '#f)) - (let* ((_rest116817116825_ - _rest116815_) - (_else116819116833_ + (let* ((_rest116821116829_ + _rest116819_) + (_else116823116837_ (lambda () - _method116816_)) - (_K116821116846_ - (lambda (_rest116836_ - _super-id116837_) - (let* ((_klass116839_ - (let ((__tmp117193 + _method116820_)) + (_K116825116850_ + (lambda (_rest116840_ + _super-id116841_) + (let* ((_klass116843_ + (let ((__tmp117197 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp117194 + (let ((__tmp117198 (let () (declare (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117194)))) + (cons '!class __tmp117198)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117193 - _super-id116837_))) - (_$e116841_ - (##structure-ref _klass116839_ '6 gxc#!class::t '#f))) - (if _$e116841_ - ((lambda (_ctor-method116844_) - (if _method116816_ + __tmp117197 + _super-id116841_))) + (_$e116845_ + (##structure-ref _klass116843_ '6 gxc#!class::t '#f))) + (if _$e116845_ + ((lambda (_ctor-method116848_) + (if _method116820_ (if (let () (declare (not safe)) - (eq? _ctor-method116844_ _method116816_)) + (eq? _ctor-method116848_ _method116820_)) (let () (declare (not safe)) - (_lp116813_ - _rest116836_ - _ctor-method116844_)) - (let ((__tmp117195 - (let ((__tmp117196 + (_lp116817_ + _rest116840_ + _ctor-method116848_)) + (let ((__tmp117199 + (let ((__tmp117200 (let () (declare (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117196)))) + (cons '!class __tmp117200)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp117195 - _method116816_ - _ctor-method116844_))) + __tmp117199 + _method116820_ + _ctor-method116848_))) (let () (declare (not safe)) - (_lp116813_ _rest116836_ _ctor-method116844_)))) - _$e116841_) + (_lp116817_ _rest116840_ _ctor-method116848_)))) + _$e116845_) (let () (declare (not safe)) - (_lp116813_ _rest116836_ _method116816_))))))) + (_lp116817_ _rest116840_ _method116820_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest116817116825_)) - (let ((_hd116822116849_ + (##pair? _rest116821116829_)) + (let ((_hd116826116853_ (let () (declare (not safe)) - (##car _rest116817116825_))) - (_tl116823116851_ + (##car _rest116821116829_))) + (_tl116827116855_ (let () (declare (not safe)) - (##cdr _rest116817116825_)))) - (let* ((_super-id116854_ - _hd116822116849_) - (_rest116856_ - _tl116823116851_)) + (##cdr _rest116821116829_)))) + (let* ((_super-id116858_ + _hd116826116853_) + (_rest116860_ + _tl116827116855_)) (declare (not safe)) - (_K116821116846_ - _rest116856_ - _super-id116854_))) + (_K116825116850_ + _rest116860_ + _super-id116858_))) (let () (declare (not safe)) - (_else116819116833_)))))))) - (_g117197_ - (let ((__tmp117202 - (lambda (_klass-id116860_) - (let ((__tmp117203 + (_else116823116837_)))))))) + (_g117201_ + (let ((__tmp117206 + (lambda (_klass-id116864_) + (let ((__tmp117207 (##structure-ref - (let ((__tmp117204 - (let ((__tmp117205 + (let ((__tmp117208 + (let ((__tmp117209 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117205)))) + (cons '!class __tmp117209)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp117204 _klass-id116860_)) + (gxc#optimizer-resolve-class __tmp117208 _klass-id116864_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id116860_ - __tmp117203)))) - (__tmp117199 - (lambda (_klass-id116862_) + (cons _klass-id116864_ + __tmp117207)))) + (__tmp117203 + (lambda (_klass-id116866_) (##structure-ref - (let ((__tmp117200 - (let ((__tmp117201 + (let ((__tmp117204 + (let ((__tmp117205 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id116764_ '())))) + (cons _id116768_ '())))) (declare (not safe)) - (cons '!class __tmp117201)))) + (cons '!class __tmp117205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117200 - _klass-id116862_)) + __tmp117204 + _klass-id116866_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super116765_ + _super116769_ 'get-precedence-list: - __tmp117202 + __tmp117206 'struct: - __tmp117199 + __tmp117203 'eq: eq? 'get-name: identity)))) (begin - (let ((_g117198_ + (let ((_g117202_ (let () (declare (not safe)) - (if (##values? _g117197_) - (##vector-length _g117197_) + (if (##values? _g117201_) + (##vector-length _g117201_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g117198_ 2))) + (##fx= _g117202_ 2))) (error "Context expects 2 values" - _g117198_))) - (let ((_precedence-list116864_ + _g117202_))) + (let ((_precedence-list116868_ (let () (declare (not safe)) - (##vector-ref _g117197_ 0))) - (_base-struct116865_ + (##vector-ref _g117201_ 0))) + (_base-struct116869_ (let () (declare (not safe)) - (##vector-ref _g117197_ 1)))) - (let ((_fields116867_ - (let ((__tmp117206 - (let ((__tmp117207 + (##vector-ref _g117201_ 1)))) + (let ((_fields116871_ + (let ((__tmp117210 + (let ((__tmp117211 (let () (declare (not safe)) - (cons _id116764_ + (cons _id116768_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '!class - __tmp117207)))) + __tmp117211)))) (declare (not safe)) (gxc#compute-class-fields - __tmp117206 - _base-struct116865_ - _precedence-list116864_ - _slots116766_)))) + __tmp117210 + _base-struct116869_ + _precedence-list116868_ + _slots116770_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _id116764_ - __id117057 - __klass117054 + _self116767_ + _id116768_ + __id117060 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _super116765_ - __super117056 - __klass117054 + _self116767_ + _super116769_ + __super117061 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _precedence-list116864_ - __precedence-list117060 - __klass117054 + _self116767_ + _precedence-list116868_ + __precedence-list117066 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _slots116766_ - __slots117061 - __klass117054 + _self116767_ + _slots116770_ + __slots117065 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _fields116867_ - __fields117062 - __klass117054 + _self116767_ + _fields116871_ + __fields117063 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _ctor-method116858_ - __constructor117059 - __klass117054 + _self116767_ + _ctor-method116862_ + __constructor117062 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _struct?116768_ - __struct?117063 - __klass117054 + _self116767_ + _struct?116772_ + __struct?117067 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _final?116769_ - __final?117058 - __klass117054 + _self116767_ + _final?116773_ + __final?117064 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116763_ - _metaclass116771_ - __metaclass117065 - __klass117054 + _self116767_ + _metaclass116775_ + __metaclass117068 + __klass117058 '#f))))))) - _g117188_)) - ((let () (declare (not safe)) (##fx= _g117187_ 12)) - (apply (lambda (_self116870_ - _id116871_ - _super116872_ - _precedence-list116873_ - _slots116874_ - _fields116875_ - _constructor116876_ - _struct?116877_ - _final?116878_ - _system?116879_ - _metaclass116880_ - _methods116881_) + _g117192_)) + ((let () (declare (not safe)) (##fx= _g117191_ 12)) + (apply (lambda (_self116874_ + _id116875_ + _super116876_ + _precedence-list116877_ + _slots116878_ + _fields116879_ + _constructor116880_ + _struct?116881_ + _final?116882_ + _system?116883_ + _metaclass116884_ + _methods116885_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _id116871_ - __id117057 - __klass117054 + _self116874_ + _id116875_ + __id117060 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _super116872_ - __super117056 - __klass117054 + _self116874_ + _super116876_ + __super117061 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _precedence-list116873_ - __precedence-list117060 - __klass117054 + _self116874_ + _precedence-list116877_ + __precedence-list117066 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _slots116874_ - __slots117061 - __klass117054 + _self116874_ + _slots116878_ + __slots117065 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _fields116875_ - __fields117062 - __klass117054 + _self116874_ + _fields116879_ + __fields117063 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _constructor116876_ - __constructor117059 - __klass117054 + _self116874_ + _constructor116880_ + __constructor117062 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _struct?116877_ - __struct?117063 - __klass117054 + _self116874_ + _struct?116881_ + __struct?117067 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _final?116878_ - __final?117058 - __klass117054 + _self116874_ + _final?116882_ + __final?117064 + __klass117058 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116870_ - _metaclass116880_ - __metaclass117065 - __klass117054 + _self116874_ + _metaclass116884_ + __metaclass117068 + __klass117058 '#f)) - (if _methods116881_ - (let ((__tmp117208 + (if _methods116885_ + (let ((__tmp117212 (let () (declare (not safe)) (list->hash-table-eq - _methods116881_)))) + _methods116885_)))) (declare (not safe)) (##unchecked-structure-set! - _self116870_ - __tmp117208 - __methods117064 - __klass117054 + _self116874_ + __tmp117212 + __methods117069 + __klass117058 '#f)) '#!void)) - _g117188_)) + _g117192_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g117188_)))))))) + _g117192_)))))))) (let () (declare (not safe)) (bind-specializer! gxc#!class:::init! gxc#!class:::init!::specialize)) @@ -2030,203 +2030,203 @@ (declare (not safe)) (bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_where116615_ - _base-struct116616_ - _precedence-list116617_ - _direct-slots116618_) - (let* ((_base-fields116620_ - (if _base-struct116616_ + (lambda (_where116619_ + _base-struct116620_ + _precedence-list116621_ + _direct-slots116622_) + (let* ((_base-fields116624_ + (if _base-struct116620_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where116615_ - _base-struct116616_)) + _where116619_ + _base-struct116620_)) '5 gxc#!class::t '#f) '())) - (_r-fields116622_ (reverse _base-fields116620_)) - (_seen-slots116630_ - (let ((_tab116624_ + (_r-fields116626_ (reverse _base-fields116624_)) + (_seen-slots116634_ + (let ((_tab116628_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_g116625116627_) + (lambda (_g116629116631_) (let () (declare (not safe)) - (hash-put! _tab116624_ _g116625116627_ '#t))) - _base-fields116620_) - _tab116624_)) - (_process-slot116634_ - (lambda (_slot116632_) + (hash-put! _tab116628_ _g116629116631_ '#t))) + _base-fields116624_) + _tab116628_)) + (_process-slot116638_ + (lambda (_slot116636_) (if (let () (declare (not safe)) - (hash-get _seen-slots116630_ _slot116632_)) + (hash-get _seen-slots116634_ _slot116636_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _seen-slots116630_ _slot116632_ '#t)) - (set! _r-fields116622_ + (hash-put! _seen-slots116634_ _slot116636_ '#t)) + (set! _r-fields116626_ (let () (declare (not safe)) - (cons _slot116632_ _r-fields116622_)))))))) + (cons _slot116636_ _r-fields116626_)))))))) (for-each - (lambda (_mixin116637_) - (let ((_klass116639_ + (lambda (_mixin116641_) + (let ((_klass116643_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where116615_ - _mixin116637_)))) - (if (##structure-ref _klass116639_ '7 gxc#!class::t '#f) + _where116619_ + _mixin116641_)))) + (if (##structure-ref _klass116643_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot116634_ - (##structure-ref _klass116639_ '5 gxc#!class::t '#f))))) - _precedence-list116617_) - (for-each _process-slot116634_ _direct-slots116618_) - (reverse _r-fields116622_)))) + _process-slot116638_ + (##structure-ref _klass116643_ '5 gxc#!class::t '#f))))) + _precedence-list116621_) + (for-each _process-slot116638_ _direct-slots116622_) + (reverse _r-fields116626_)))) (define gxc#!class-slot->field-offset - (lambda (_klass116574_ _slot116575_) - (let _lp116577_ ((_rest116579_ - (##structure-ref _klass116574_ '5 gxc#!class::t '#f)) - (_offset116580_ '1)) - (let* ((_rest116581116589_ _rest116579_) - (_else116583116597_ + (lambda (_klass116578_ _slot116579_) + (let _lp116581_ ((_rest116583_ + (##structure-ref _klass116578_ '5 gxc#!class::t '#f)) + (_offset116584_ '1)) + (let* ((_rest116585116593_ _rest116583_) + (_else116587116601_ (lambda () - (let ((__tmp117210 - (##structure-ref _klass116574_ '1 gxc#!type::t '#f)) - (__tmp117209 + (let ((__tmp117214 + (##structure-ref _klass116578_ '1 gxc#!type::t '#f)) + (__tmp117213 (##structure-ref - _klass116574_ + _klass116578_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp117210 - __tmp117209 - _slot116575_)))) - (_K116585116603_ - (lambda (_rest116600_ _s116601_) + __tmp117214 + __tmp117213 + _slot116579_)))) + (_K116589116607_ + (lambda (_rest116604_ _s116605_) (if (let () (declare (not safe)) - (eq? _s116601_ _slot116575_)) - _offset116580_ - (let ((__tmp117211 + (eq? _s116605_ _slot116579_)) + _offset116584_ + (let ((__tmp117215 (let () (declare (not safe)) - (fx+ _offset116580_ '1)))) + (fx+ _offset116584_ '1)))) (declare (not safe)) - (_lp116577_ _rest116600_ __tmp117211)))))) - (if (let () (declare (not safe)) (##pair? _rest116581116589_)) - (let ((_hd116586116606_ + (_lp116581_ _rest116604_ __tmp117215)))))) + (if (let () (declare (not safe)) (##pair? _rest116585116593_)) + (let ((_hd116590116610_ (let () (declare (not safe)) - (##car _rest116581116589_))) - (_tl116587116608_ + (##car _rest116585116593_))) + (_tl116591116612_ (let () (declare (not safe)) - (##cdr _rest116581116589_)))) - (let* ((_s116611_ _hd116586116606_) - (_rest116613_ _tl116587116608_)) + (##cdr _rest116585116593_)))) + (let* ((_s116615_ _hd116590116610_) + (_rest116617_ _tl116591116612_)) (declare (not safe)) - (_K116585116603_ _rest116613_ _s116611_))) - (let () (declare (not safe)) (_else116583116597_))))))) + (_K116589116607_ _rest116617_ _s116615_))) + (let () (declare (not safe)) (_else116587116601_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass116532_ _slot116533_) + (lambda (_klass116536_ _slot116537_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass116532_ _slot116533_)) - _klass116532_ - (let _lp116535_ ((_rest116537_ + (gxc#!class-struct-slot? _klass116536_ _slot116537_)) + _klass116536_ + (let _lp116539_ ((_rest116541_ (##structure-ref - _klass116532_ + _klass116536_ '3 gxc#!class::t '#f))) - (let* ((_rest116538116546_ _rest116537_) - (_else116540116554_ (lambda () '#f)) - (_K116542116562_ - (lambda (_rest116557_ _super116558_) - (let ((_super-class116560_ - (let ((__tmp117212 - (let ((__tmp117213 - (let ((__tmp117215 + (let* ((_rest116542116550_ _rest116541_) + (_else116544116558_ (lambda () '#f)) + (_K116546116566_ + (lambda (_rest116561_ _super116562_) + (let ((_super-class116564_ + (let ((__tmp117216 + (let ((__tmp117217 + (let ((__tmp117219 (##structure-ref - _klass116532_ + _klass116536_ '1 gxc#!type::t '#f)) - (__tmp117214 + (__tmp117218 (let () (declare (not safe)) - (cons _slot116533_ + (cons _slot116537_ '())))) (declare (not safe)) - (cons __tmp117215 - __tmp117214)))) + (cons __tmp117219 + __tmp117218)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp117213)))) + __tmp117217)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117212 - _super116558_)))) + __tmp117216 + _super116562_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class116560_ - _slot116533_)) - _super-class116560_ + _super-class116564_ + _slot116537_)) + _super-class116564_ (let () (declare (not safe)) - (_lp116535_ _rest116557_))))))) - (if (let () (declare (not safe)) (##pair? _rest116538116546_)) - (let ((_hd116543116565_ + (_lp116539_ _rest116561_))))))) + (if (let () (declare (not safe)) (##pair? _rest116542116550_)) + (let ((_hd116547116569_ (let () (declare (not safe)) - (##car _rest116538116546_))) - (_tl116544116567_ + (##car _rest116542116550_))) + (_tl116548116571_ (let () (declare (not safe)) - (##cdr _rest116538116546_)))) - (let* ((_super116570_ _hd116543116565_) - (_rest116572_ _tl116544116567_)) + (##cdr _rest116542116550_)))) + (let* ((_super116574_ _hd116547116569_) + (_rest116576_ _tl116548116571_)) (declare (not safe)) - (_K116542116562_ _rest116572_ _super116570_))) - (let () (declare (not safe)) (_else116540116554_)))))))) + (_K116546116566_ _rest116576_ _super116574_))) + (let () (declare (not safe)) (_else116544116558_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass116529_ _slot116530_) - (if (##structure-ref _klass116529_ '7 gxc#!class::t '#f) - (memq _slot116530_ - (##structure-ref _klass116529_ '5 gxc#!class::t '#f)) + (lambda (_klass116533_ _slot116534_) + (if (##structure-ref _klass116533_ '7 gxc#!class::t '#f) + (memq _slot116534_ + (##structure-ref _klass116533_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self116526_ _id116527_) - (##structure-set! _self116526_ _id116527_ '1 gxc#!type::t '#f))) + (lambda (_self116530_ _id116531_) + (##structure-set! _self116530_ _id116531_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__klass117076 __method-table117077) - (let ((__id117078 - (let ((__slot117079 + (lambda (__klass117080 __method-table117081) + (let ((__id117082 + (let ((__slot117083 (let () (declare (not safe)) - (class-slot-offset __klass117076 'id)))) - (if __slot117079 - __slot117079 + (class-slot-offset __klass117080 'id)))) + (if __slot117083 + __slot117083 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self116526_ _id116527_) + (lambda (_self116530_ _id116531_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116526_ - _id116527_ - __id117078 - __klass117076 + _self116530_ + _id116531_ + __id117082 + __klass117080 '#f)))))) (let () (declare (not safe)) @@ -2237,28 +2237,28 @@ (declare (not safe)) (bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_self116401_ _id116402_) - (##structure-set! _self116401_ _id116402_ '1 gxc#!type::t '#f))) + (lambda (_self116405_ _id116406_) + (##structure-set! _self116405_ _id116406_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__klass117080 __method-table117081) - (let ((__id117082 - (let ((__slot117083 + (lambda (__klass117084 __method-table117085) + (let ((__id117086 + (let ((__slot117087 (let () (declare (not safe)) - (class-slot-offset __klass117080 'id)))) - (if __slot117083 - __slot117083 + (class-slot-offset __klass117084 'id)))) + (if __slot117087 + __slot117087 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self116401_ _id116402_) + (lambda (_self116405_ _id116406_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116401_ - _id116402_ - __id117082 - __klass117080 + _self116405_ + _id116406_ + __id117086 + __klass117084 '#f)))))) (let () (declare (not safe)) @@ -2273,71 +2273,71 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_self116274_ _id116275_ _slot116276_ _checked?116277_) - (##structure-set! _self116274_ _id116275_ '1 gxc#!type::t '#f) - (##structure-set! _self116274_ _slot116276_ '2 gxc#!accessor::t '#f) + (lambda (_self116278_ _id116279_ _slot116280_ _checked?116281_) + (##structure-set! _self116278_ _id116279_ '1 gxc#!type::t '#f) + (##structure-set! _self116278_ _slot116280_ '2 gxc#!accessor::t '#f) (##structure-set! - _self116274_ - _checked?116277_ + _self116278_ + _checked?116281_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__klass117084 __method-table117085) - (let ((__id117086 - (let ((__slot117089 + (lambda (__klass117088 __method-table117089) + (let ((__slot117090 + (let ((__slot117093 (let () (declare (not safe)) - (class-slot-offset __klass117084 'id)))) - (if __slot117089 - __slot117089 + (class-slot-offset __klass117088 'slot)))) + (if __slot117093 + __slot117093 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?117087 - (let ((__slot117090 + (error '"Unknown slot" 'slot))))) + (__id117091 + (let ((__slot117094 (let () (declare (not safe)) - (class-slot-offset __klass117084 'checked?)))) - (if __slot117090 - __slot117090 + (class-slot-offset __klass117088 'id)))) + (if __slot117094 + __slot117094 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?))))) - (__slot117088 - (let ((__slot117091 + (error '"Unknown slot" 'id))))) + (__checked?117092 + (let ((__slot117095 (let () (declare (not safe)) - (class-slot-offset __klass117084 'slot)))) - (if __slot117091 - __slot117091 + (class-slot-offset __klass117088 'checked?)))) + (if __slot117095 + __slot117095 (let () (declare (not safe)) - (error '"Unknown slot" 'slot)))))) - (lambda (_self116274_ _id116275_ _slot116276_ _checked?116277_) + (error '"Unknown slot" 'checked?)))))) + (lambda (_self116278_ _id116279_ _slot116280_ _checked?116281_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116274_ - _id116275_ - __id117086 - __klass117084 + _self116278_ + _id116279_ + __id117091 + __klass117088 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116274_ - _slot116276_ - __slot117088 - __klass117084 + _self116278_ + _slot116280_ + __slot117090 + __klass117088 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116274_ - _checked?116277_ - __checked?117087 - __klass117084 + _self116278_ + _checked?116281_ + __checked?117092 + __klass117088 '#f)))))) (let () (declare (not safe)) @@ -2348,71 +2348,71 @@ (declare (not safe)) (bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_self116147_ _id116148_ _slot116149_ _checked?116150_) - (##structure-set! _self116147_ _id116148_ '1 gxc#!type::t '#f) - (##structure-set! _self116147_ _slot116149_ '2 gxc#!mutator::t '#f) + (lambda (_self116151_ _id116152_ _slot116153_ _checked?116154_) + (##structure-set! _self116151_ _id116152_ '1 gxc#!type::t '#f) + (##structure-set! _self116151_ _slot116153_ '2 gxc#!mutator::t '#f) (##structure-set! - _self116147_ - _checked?116150_ + _self116151_ + _checked?116154_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__klass117092 __method-table117093) - (let ((__id117094 - (let ((__slot117097 + (lambda (__klass117096 __method-table117097) + (let ((__slot117098 + (let ((__slot117101 (let () (declare (not safe)) - (class-slot-offset __klass117092 'id)))) - (if __slot117097 - __slot117097 + (class-slot-offset __klass117096 'slot)))) + (if __slot117101 + __slot117101 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?117095 - (let ((__slot117098 + (error '"Unknown slot" 'slot))))) + (__id117099 + (let ((__slot117102 (let () (declare (not safe)) - (class-slot-offset __klass117092 'checked?)))) - (if __slot117098 - __slot117098 + (class-slot-offset __klass117096 'id)))) + (if __slot117102 + __slot117102 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?))))) - (__slot117096 - (let ((__slot117099 + (error '"Unknown slot" 'id))))) + (__checked?117100 + (let ((__slot117103 (let () (declare (not safe)) - (class-slot-offset __klass117092 'slot)))) - (if __slot117099 - __slot117099 + (class-slot-offset __klass117096 'checked?)))) + (if __slot117103 + __slot117103 (let () (declare (not safe)) - (error '"Unknown slot" 'slot)))))) - (lambda (_self116147_ _id116148_ _slot116149_ _checked?116150_) + (error '"Unknown slot" 'checked?)))))) + (lambda (_self116151_ _id116152_ _slot116153_ _checked?116154_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116147_ - _id116148_ - __id117094 - __klass117092 + _self116151_ + _id116152_ + __id117099 + __klass117096 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116147_ - _slot116149_ - __slot117096 - __klass117092 + _self116151_ + _slot116153_ + __slot117098 + __klass117096 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116147_ - _checked?116150_ - __checked?117095 - __klass117092 + _self116151_ + _checked?116154_ + __checked?117100 + __klass117096 '#f)))))) (let () (declare (not safe)) @@ -2423,349 +2423,349 @@ (declare (not safe)) (bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_self115991_ - _id115992_ - _arity115993_ - _dispatch115994_ - _inline115995_ - _typedecl115996_) - (if (let ((__tmp117222 + (lambda (_self115995_ + _id115996_ + _arity115997_ + _dispatch115998_ + _inline115999_ + _typedecl116000_) + (if (let ((__tmp117226 (let () (declare (not safe)) - (##structure-length _self115991_)))) + (##structure-length _self115995_)))) (declare (not safe)) - (##fx< '5 __tmp117222)) + (##fx< '5 __tmp117226)) (begin - (let ((__tmp117217 + (let ((__tmp117221 (let () (declare (not safe)) - (##structure-type _self115991_)))) + (##structure-type _self115995_)))) (declare (not safe)) (##unchecked-structure-set! - _self115991_ - _id115992_ + _self115995_ + _id115996_ '1 - __tmp117217 + __tmp117221 '#f)) - (let ((__tmp117218 + (let ((__tmp117222 (let () (declare (not safe)) - (##structure-type _self115991_)))) + (##structure-type _self115995_)))) (declare (not safe)) (##unchecked-structure-set! - _self115991_ - _arity115993_ + _self115995_ + _arity115997_ '2 - __tmp117218 + __tmp117222 '#f)) - (let ((__tmp117219 + (let ((__tmp117223 (let () (declare (not safe)) - (##structure-type _self115991_)))) + (##structure-type _self115995_)))) (declare (not safe)) (##unchecked-structure-set! - _self115991_ - _dispatch115994_ + _self115995_ + _dispatch115998_ '3 - __tmp117219 + __tmp117223 '#f)) - (let ((__tmp117220 + (let ((__tmp117224 (let () (declare (not safe)) - (##structure-type _self115991_)))) + (##structure-type _self115995_)))) (declare (not safe)) (##unchecked-structure-set! - _self115991_ - _inline115995_ + _self115995_ + _inline115999_ '4 - __tmp117220 + __tmp117224 '#f)) - (let ((__tmp117221 + (let ((__tmp117225 (let () (declare (not safe)) - (##structure-type _self115991_)))) + (##structure-type _self115995_)))) (declare (not safe)) (##unchecked-structure-set! - _self115991_ - _typedecl115996_ + _self115995_ + _typedecl116000_ '5 - __tmp117221 + __tmp117225 '#f))) - (let ((__tmp117216 + (let ((__tmp117220 (let () (declare (not safe)) - (##vector-length _self115991_)))) + (##vector-length _self115995_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self115991_ + _self115995_ '5 - __tmp117216))))) + __tmp117220))))) (define gxc#!lambda:::init!__0 - (lambda (_self116001_ _id116002_ _arity116003_ _dispatch116004_) - (let* ((_inline116006_ '#f) (_typedecl116008_ '#f)) - (if (let ((__tmp117229 + (lambda (_self116005_ _id116006_ _arity116007_ _dispatch116008_) + (let* ((_inline116010_ '#f) (_typedecl116012_ '#f)) + (if (let ((__tmp117233 (let () (declare (not safe)) - (##structure-length _self116001_)))) + (##structure-length _self116005_)))) (declare (not safe)) - (##fx< '5 __tmp117229)) + (##fx< '5 __tmp117233)) (begin - (let ((__tmp117224 + (let ((__tmp117228 (let () (declare (not safe)) - (##structure-type _self116001_)))) + (##structure-type _self116005_)))) (declare (not safe)) (##unchecked-structure-set! - _self116001_ - _id116002_ + _self116005_ + _id116006_ '1 - __tmp117224 + __tmp117228 '#f)) - (let ((__tmp117225 + (let ((__tmp117229 (let () (declare (not safe)) - (##structure-type _self116001_)))) + (##structure-type _self116005_)))) (declare (not safe)) (##unchecked-structure-set! - _self116001_ - _arity116003_ + _self116005_ + _arity116007_ '2 - __tmp117225 + __tmp117229 '#f)) - (let ((__tmp117226 + (let ((__tmp117230 (let () (declare (not safe)) - (##structure-type _self116001_)))) + (##structure-type _self116005_)))) (declare (not safe)) (##unchecked-structure-set! - _self116001_ - _dispatch116004_ + _self116005_ + _dispatch116008_ '3 - __tmp117226 + __tmp117230 '#f)) - (let ((__tmp117227 + (let ((__tmp117231 (let () (declare (not safe)) - (##structure-type _self116001_)))) + (##structure-type _self116005_)))) (declare (not safe)) (##unchecked-structure-set! - _self116001_ - _inline116006_ + _self116005_ + _inline116010_ '4 - __tmp117227 + __tmp117231 '#f)) - (let ((__tmp117228 + (let ((__tmp117232 (let () (declare (not safe)) - (##structure-type _self116001_)))) + (##structure-type _self116005_)))) (declare (not safe)) (##unchecked-structure-set! - _self116001_ - _typedecl116008_ + _self116005_ + _typedecl116012_ '5 - __tmp117228 + __tmp117232 '#f))) - (let ((__tmp117223 + (let ((__tmp117227 (let () (declare (not safe)) - (##vector-length _self116001_)))) + (##vector-length _self116005_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self116001_ + _self116005_ '5 - __tmp117223)))))) + __tmp117227)))))) (define gxc#!lambda:::init!__1 - (lambda (_self116010_ - _id116011_ - _arity116012_ - _dispatch116013_ - _inline116014_) - (let ((_typedecl116016_ '#f)) - (if (let ((__tmp117236 + (lambda (_self116014_ + _id116015_ + _arity116016_ + _dispatch116017_ + _inline116018_) + (let ((_typedecl116020_ '#f)) + (if (let ((__tmp117240 (let () (declare (not safe)) - (##structure-length _self116010_)))) + (##structure-length _self116014_)))) (declare (not safe)) - (##fx< '5 __tmp117236)) + (##fx< '5 __tmp117240)) (begin - (let ((__tmp117231 + (let ((__tmp117235 (let () (declare (not safe)) - (##structure-type _self116010_)))) + (##structure-type _self116014_)))) (declare (not safe)) (##unchecked-structure-set! - _self116010_ - _id116011_ + _self116014_ + _id116015_ '1 - __tmp117231 + __tmp117235 '#f)) - (let ((__tmp117232 + (let ((__tmp117236 (let () (declare (not safe)) - (##structure-type _self116010_)))) + (##structure-type _self116014_)))) (declare (not safe)) (##unchecked-structure-set! - _self116010_ - _arity116012_ + _self116014_ + _arity116016_ '2 - __tmp117232 + __tmp117236 '#f)) - (let ((__tmp117233 + (let ((__tmp117237 (let () (declare (not safe)) - (##structure-type _self116010_)))) + (##structure-type _self116014_)))) (declare (not safe)) (##unchecked-structure-set! - _self116010_ - _dispatch116013_ + _self116014_ + _dispatch116017_ '3 - __tmp117233 + __tmp117237 '#f)) - (let ((__tmp117234 + (let ((__tmp117238 (let () (declare (not safe)) - (##structure-type _self116010_)))) + (##structure-type _self116014_)))) (declare (not safe)) (##unchecked-structure-set! - _self116010_ - _inline116014_ + _self116014_ + _inline116018_ '4 - __tmp117234 + __tmp117238 '#f)) - (let ((__tmp117235 + (let ((__tmp117239 (let () (declare (not safe)) - (##structure-type _self116010_)))) + (##structure-type _self116014_)))) (declare (not safe)) (##unchecked-structure-set! - _self116010_ - _typedecl116016_ + _self116014_ + _typedecl116020_ '5 - __tmp117235 + __tmp117239 '#f))) - (let ((__tmp117230 + (let ((__tmp117234 (let () (declare (not safe)) - (##vector-length _self116010_)))) + (##vector-length _self116014_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self116010_ + _self116014_ '5 - __tmp117230)))))) + __tmp117234)))))) (define gxc#!lambda:::init! - (lambda _g117238_ - (let ((_g117237_ (let () (declare (not safe)) (##length _g117238_)))) - (cond ((let () (declare (not safe)) (##fx= _g117237_ 4)) - (apply (lambda (_self116001_ - _id116002_ - _arity116003_ - _dispatch116004_) + (lambda _g117242_ + (let ((_g117241_ (let () (declare (not safe)) (##length _g117242_)))) + (cond ((let () (declare (not safe)) (##fx= _g117241_ 4)) + (apply (lambda (_self116005_ + _id116006_ + _arity116007_ + _dispatch116008_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self116001_ - _id116002_ - _arity116003_ - _dispatch116004_))) - _g117238_)) - ((let () (declare (not safe)) (##fx= _g117237_ 5)) - (apply (lambda (_self116010_ - _id116011_ - _arity116012_ - _dispatch116013_ - _inline116014_) + _self116005_ + _id116006_ + _arity116007_ + _dispatch116008_))) + _g117242_)) + ((let () (declare (not safe)) (##fx= _g117241_ 5)) + (apply (lambda (_self116014_ + _id116015_ + _arity116016_ + _dispatch116017_ + _inline116018_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self116010_ - _id116011_ - _arity116012_ - _dispatch116013_ - _inline116014_))) - _g117238_)) - ((let () (declare (not safe)) (##fx= _g117237_ 6)) - (apply (lambda (_self116018_ - _id116019_ - _arity116020_ - _dispatch116021_ - _inline116022_ - _typedecl116023_) - (if (let ((__tmp117245 + _self116014_ + _id116015_ + _arity116016_ + _dispatch116017_ + _inline116018_))) + _g117242_)) + ((let () (declare (not safe)) (##fx= _g117241_ 6)) + (apply (lambda (_self116022_ + _id116023_ + _arity116024_ + _dispatch116025_ + _inline116026_ + _typedecl116027_) + (if (let ((__tmp117249 (let () (declare (not safe)) - (##structure-length _self116018_)))) + (##structure-length _self116022_)))) (declare (not safe)) - (##fx< '5 __tmp117245)) + (##fx< '5 __tmp117249)) (begin - (let ((__tmp117240 + (let ((__tmp117244 (let () (declare (not safe)) - (##structure-type _self116018_)))) + (##structure-type _self116022_)))) (declare (not safe)) (##unchecked-structure-set! - _self116018_ - _id116019_ + _self116022_ + _id116023_ '1 - __tmp117240 + __tmp117244 '#f)) - (let ((__tmp117241 + (let ((__tmp117245 (let () (declare (not safe)) - (##structure-type _self116018_)))) + (##structure-type _self116022_)))) (declare (not safe)) (##unchecked-structure-set! - _self116018_ - _arity116020_ + _self116022_ + _arity116024_ '2 - __tmp117241 + __tmp117245 '#f)) - (let ((__tmp117242 + (let ((__tmp117246 (let () (declare (not safe)) - (##structure-type _self116018_)))) + (##structure-type _self116022_)))) (declare (not safe)) (##unchecked-structure-set! - _self116018_ - _dispatch116021_ + _self116022_ + _dispatch116025_ '3 - __tmp117242 + __tmp117246 '#f)) - (let ((__tmp117243 + (let ((__tmp117247 (let () (declare (not safe)) - (##structure-type _self116018_)))) + (##structure-type _self116022_)))) (declare (not safe)) (##unchecked-structure-set! - _self116018_ - _inline116022_ + _self116022_ + _inline116026_ '4 - __tmp117243 + __tmp117247 '#f)) - (let ((__tmp117244 + (let ((__tmp117248 (let () (declare (not safe)) - (##structure-type _self116018_)))) + (##structure-type _self116022_)))) (declare (not safe)) (##unchecked-structure-set! - _self116018_ - _typedecl116023_ + _self116022_ + _typedecl116027_ '5 - __tmp117244 + __tmp117248 '#f))) - (let ((__tmp117239 + (let ((__tmp117243 (let () (declare (not safe)) - (##vector-length _self116018_)))) + (##vector-length _self116022_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self116018_ + _self116022_ '5 - __tmp117239)))) - _g117238_)) + __tmp117243)))) + _g117242_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g117238_)))))) + _g117242_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) @@ -2778,8 +2778,8 @@ gxc#!primitive-lambda:::init! '#f)) (define gxc#!primitive-case-lambda:::init! - (lambda (_self115743_ . _args115744_) - (apply struct-instance-init! _self115743_ _args115744_))) + (lambda (_self115747_ . _args115748_) + (apply struct-instance-init! _self115747_ _args115748_))) (let () (declare (not safe)) (bind-method!__% @@ -2788,64 +2788,64 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type115618_) + (lambda (_type115622_) (if (let () (declare (not safe)) - (##structure-instance-of? _type115618_ 'gxc#!class::t)) + (##structure-instance-of? _type115622_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type115618_)) + (gxc#!class-method-table _type115622_)) '#f))) (define gxc#!class-method-table - (lambda (_klass115611_) - (let ((_$e115613_ - (##structure-ref _klass115611_ '11 gxc#!class::t '#f))) - (if _$e115613_ - _$e115613_ - (let ((_tab115616_ + (lambda (_klass115615_) + (let ((_$e115617_ + (##structure-ref _klass115615_ '11 gxc#!class::t '#f))) + (if _$e115617_ + _$e115617_ + (let ((_tab115620_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _klass115611_ - _tab115616_ + _klass115615_ + _tab115620_ '11 gxc#!class::t '#f) - _tab115616_))))) + _tab115620_))))) (define gxc#!class-lookup-method - (lambda (_klass115602_ _method115603_) - (let ((_tab115604115606_ - (##structure-ref _klass115602_ '11 gxc#!class::t '#f))) - (if _tab115604115606_ - (let ((_tab115609_ _tab115604115606_)) + (lambda (_klass115606_ _method115607_) + (let ((_tab115608115610_ + (##structure-ref _klass115606_ '11 gxc#!class::t '#f))) + (if _tab115608115610_ + (let ((_tab115613_ _tab115608115610_)) (declare (not safe)) - (hash-get _tab115609_ _method115603_)) + (hash-get _tab115613_ _method115607_)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type115599_ _method115600_) + (lambda (_type115603_ _method115604_) (if (let () (declare (not safe)) - (##structure-instance-of? _type115599_ 'gxc#!class::t)) + (##structure-instance-of? _type115603_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type115599_ _method115600_)) + (gxc#!class-lookup-method _type115603_ _method115604_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym115583_ _type115584_ _local?115585_) + (lambda (_sym115587_ _type115588_ _local?115589_) (if (let () (declare (not safe)) - (##structure-instance-of? _type115584_ 'gxc#!type::t)) + (##structure-instance-of? _type115588_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _sym115583_ - _type115584_))) - (let ((__tmp117246 - (let () (declare (not safe)) (struct->list _type115584_)))) + _sym115587_ + _type115588_))) + (let ((__tmp117250 + (let () (declare (not safe)) (struct->list _type115588_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym115583_ '" " __tmp117246)) - (let ((__tmp117247 - (if _local?115585_ + (gxc#verbose '"declare-type " _sym115587_ '" " __tmp117250)) + (let ((__tmp117251 + (if _local?115589_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2853,44 +2853,44 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! __tmp117247 _sym115583_ _type115584_)))) + (hash-put! __tmp117251 _sym115587_ _type115588_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym115590_ _type115591_) - (let ((_local?115593_ '#f)) + (lambda (_sym115594_ _type115595_) + (let ((_local?115597_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym115590_ - _type115591_ - _local?115593_)))) + _sym115594_ + _type115595_ + _local?115597_)))) (define gxc#optimizer-declare-type! - (lambda _g117249_ - (let ((_g117248_ (let () (declare (not safe)) (##length _g117249_)))) - (cond ((let () (declare (not safe)) (##fx= _g117248_ 2)) - (apply (lambda (_sym115590_ _type115591_) + (lambda _g117253_ + (let ((_g117252_ (let () (declare (not safe)) (##length _g117253_)))) + (cond ((let () (declare (not safe)) (##fx= _g117252_ 2)) + (apply (lambda (_sym115594_ _type115595_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym115590_ - _type115591_))) - _g117249_)) - ((let () (declare (not safe)) (##fx= _g117248_ 3)) - (apply (lambda (_sym115595_ _type115596_ _local?115597_) + _sym115594_ + _type115595_))) + _g117253_)) + ((let () (declare (not safe)) (##fx= _g117252_ 3)) + (apply (lambda (_sym115599_ _type115600_ _local?115601_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym115595_ - _type115596_ - _local?115597_))) - _g117249_)) + _sym115599_ + _type115600_ + _local?115601_))) + _g117253_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g117249_)))))) + _g117253_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym115569_ _local?115570_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym115569_)) - (let ((__tmp117250 - (if _local?115570_ + (lambda (_sym115573_ _local?115574_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym115573_)) + (let ((__tmp117254 + (if _local?115574_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2898,272 +2898,272 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-remove! __tmp117250 _sym115569_)))) + (hash-remove! __tmp117254 _sym115573_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym115575_) - (let ((_local?115577_ '#f)) + (lambda (_sym115579_) + (let ((_local?115581_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym115575_ _local?115577_)))) + (gxc#optimizer-clear-type!__% _sym115579_ _local?115581_)))) (define gxc#optimizer-clear-type! - (lambda _g117252_ - (let ((_g117251_ (let () (declare (not safe)) (##length _g117252_)))) - (cond ((let () (declare (not safe)) (##fx= _g117251_ 1)) - (apply (lambda (_sym115575_) + (lambda _g117256_ + (let ((_g117255_ (let () (declare (not safe)) (##length _g117256_)))) + (cond ((let () (declare (not safe)) (##fx= _g117255_ 1)) + (apply (lambda (_sym115579_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym115575_))) - _g117252_)) - ((let () (declare (not safe)) (##fx= _g117251_ 2)) - (apply (lambda (_sym115579_ _local?115580_) + (gxc#optimizer-clear-type!__0 _sym115579_))) + _g117256_)) + ((let () (declare (not safe)) (##fx= _g117255_ 2)) + (apply (lambda (_sym115583_ _local?115584_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym115579_ - _local?115580_))) - _g117252_)) + _sym115583_ + _local?115584_))) + _g117256_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g117252_)))))) + _g117256_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t115537_ _method115538_ _sym115539_ _rebind?115540_) - (let* ((_type115542_ + (lambda (_type-t115541_ _method115542_ _sym115543_ _rebind?115544_) + (let* ((_type115546_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t115537_))) - (_$e115544_ - (let () (declare (not safe)) (gxc#!type-vtab _type115542_)))) - (if _$e115544_ - ((lambda (_vtab115547_) - (let ((_$e115549_ + (gxc#optimizer-resolve-type _type-t115541_))) + (_$e115548_ + (let () (declare (not safe)) (gxc#!type-vtab _type115546_)))) + (if _$e115548_ + ((lambda (_vtab115551_) + (let ((_$e115553_ (let () (declare (not safe)) - (hash-get _vtab115547_ _method115538_)))) - (if _$e115549_ - ((lambda (_existing115552_) - (if _rebind?115540_ + (hash-get _vtab115551_ _method115542_)))) + (if _$e115553_ + ((lambda (_existing115556_) + (if _rebind?115544_ (begin (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _type-t115537_ + _type-t115541_ '" " - _method115538_)) + _method115542_)) (let () (declare (not safe)) (hash-put! - _vtab115547_ - _method115538_ - _sym115539_))) + _vtab115551_ + _method115542_ + _sym115543_))) (if (let () (declare (not safe)) - (eq? _existing115552_ _sym115539_)) + (eq? _existing115556_ _sym115543_)) '#!void - (let ((__tmp117257 - (let ((__tmp117258 - (let ((__tmp117259 - (let ((__tmp117260 + (let ((__tmp117261 + (let ((__tmp117262 + (let ((__tmp117263 + (let ((__tmp117264 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sym115539_ '())))) + (cons _sym115543_ '())))) (declare (not safe)) - (cons _method115538_ __tmp117260)))) + (cons _method115542_ __tmp117264)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _type-t115537_ - __tmp117259)))) + (cons _type-t115541_ + __tmp117263)))) (declare (not safe)) - (cons 'bind-method! __tmp117258)))) + (cons 'bind-method! __tmp117262)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp117257 - _method115538_))))) - _$e115549_) + __tmp117261 + _method115542_))))) + _$e115553_) (begin (let () (declare (not safe)) (gxc#verbose '"declare-method " - _type-t115537_ + _type-t115541_ '" " - _method115538_ + _method115542_ '" => " - _sym115539_)) + _sym115543_)) (let () (declare (not safe)) (hash-put! - _vtab115547_ - _method115538_ - _sym115539_)))))) - _$e115544_) - (if (let () (declare (not safe)) (not _type115542_)) + _vtab115551_ + _method115542_ + _sym115543_)))))) + _$e115548_) + (if (let () (declare (not safe)) (not _type115546_)) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown type " - _type-t115537_)) - (let ((__tmp117253 - (let ((__tmp117254 - (let ((__tmp117255 - (let ((__tmp117256 + _type-t115541_)) + (let ((__tmp117257 + (let ((__tmp117258 + (let ((__tmp117259 + (let ((__tmp117260 (let () (declare (not safe)) - (cons _method115538_ '())))) + (cons _method115542_ '())))) (declare (not safe)) - (cons _sym115539_ __tmp117256)))) + (cons _sym115543_ __tmp117260)))) (declare (not safe)) - (cons _type-t115537_ __tmp117255)))) + (cons _type-t115541_ __tmp117259)))) (declare (not safe)) - (cons 'bind-method! __tmp117254)))) + (cons 'bind-method! __tmp117258)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp117253 - _type115542_))))))) + __tmp117257 + _type115546_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t115557_ _method115558_ _sym115559_) - (let ((_rebind?115561_ '#f)) + (lambda (_type-t115561_ _method115562_ _sym115563_) + (let ((_rebind?115565_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t115557_ - _method115558_ - _sym115559_ - _rebind?115561_)))) + _type-t115561_ + _method115562_ + _sym115563_ + _rebind?115565_)))) (define gxc#optimizer-declare-method! - (lambda _g117262_ - (let ((_g117261_ (let () (declare (not safe)) (##length _g117262_)))) - (cond ((let () (declare (not safe)) (##fx= _g117261_ 3)) - (apply (lambda (_type-t115557_ _method115558_ _sym115559_) + (lambda _g117266_ + (let ((_g117265_ (let () (declare (not safe)) (##length _g117266_)))) + (cond ((let () (declare (not safe)) (##fx= _g117265_ 3)) + (apply (lambda (_type-t115561_ _method115562_ _sym115563_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t115557_ - _method115558_ - _sym115559_))) - _g117262_)) - ((let () (declare (not safe)) (##fx= _g117261_ 4)) - (apply (lambda (_type-t115563_ - _method115564_ - _sym115565_ - _rebind?115566_) + _type-t115561_ + _method115562_ + _sym115563_))) + _g117266_)) + ((let () (declare (not safe)) (##fx= _g117265_ 4)) + (apply (lambda (_type-t115567_ + _method115568_ + _sym115569_ + _rebind?115570_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t115563_ - _method115564_ - _sym115565_ - _rebind?115566_))) - _g117262_)) + _type-t115567_ + _method115568_ + _sym115569_ + _rebind?115570_))) + _g117266_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g117262_)))))) + _g117266_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym115525_) - (let ((_$e115533_ - (let ((_ht115526115528_ (gxc#current-compile-local-type))) - (if _ht115526115528_ - (let ((_ht115531_ _ht115526115528_)) + (lambda (_sym115529_) + (let ((_$e115537_ + (let ((_ht115530115532_ (gxc#current-compile-local-type))) + (if _ht115530115532_ + (let ((_ht115535_ _ht115530115532_)) (declare (not safe)) - (hash-get _ht115531_ _sym115525_)) + (hash-get _ht115535_ _sym115529_)) '#f)))) - (if _$e115533_ - _$e115533_ - (let ((__tmp117263 + (if _$e115537_ + _$e115537_ + (let ((__tmp117267 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp117263 _sym115525_)))))) + (hash-get __tmp117267 _sym115529_)))))) (define gxc#optimizer-resolve-type - (lambda (_sym115517_) - (let ((_type115518115520_ + (lambda (_sym115521_) + (let ((_type115522115524_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym115517_)))) - (if _type115518115520_ - (let ((_type115523_ _type115518115520_)) + (gxc#optimizer-lookup-type _sym115521_)))) + (if _type115522115524_ + (let ((_type115527_ _type115522115524_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type115523_ 'gxc#!alias::t)) - (let ((__tmp117264 - (##structure-ref _type115523_ '1 gxc#!type::t '#f))) + (##structure-instance-of? _type115527_ 'gxc#!alias::t)) + (let ((__tmp117268 + (##structure-ref _type115527_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp117264)) - _type115523_)) + (gxc#optimizer-resolve-type __tmp117268)) + _type115527_)) '#f)))) (define gxc#optimizer-resolve-class - (lambda (_where115509_ _klass-id115510_) - (let ((_$e115512_ + (lambda (_where115513_ _klass-id115514_) + (let ((_$e115516_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _klass-id115510_)))) - (if _$e115512_ - ((lambda (_klass115515_) + (gxc#optimizer-resolve-type _klass-id115514_)))) + (if _$e115516_ + ((lambda (_klass115519_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass115515_ 'gxc#!class::t)) + (##structure-instance-of? _klass115519_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"bad class reference; not a class type" - _where115509_ - _klass-id115510_ - _klass115515_))) - _klass115515_) - _$e115512_) + _where115513_ + _klass-id115514_ + _klass115519_))) + _klass115519_) + _$e115516_) (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _where115509_ - _klass-id115510_)))))) + _where115513_ + _klass-id115514_)))))) (define gxc#optimizer-lookup-method - (lambda (_type-t115506_ _method115507_) - (let ((__tmp117265 + (lambda (_type-t115510_ _method115511_) + (let ((__tmp117269 (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t115506_)))) + (gxc#optimizer-resolve-type _type-t115510_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp117265 _method115507_)))) + (gxc#!type-lookup-method __tmp117269 _method115511_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym115504_) + (lambda (_sym115508_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _sym115504_)) - (let ((__tmp117266 + (gxc#verbose '"top-level method: " _sym115508_)) + (let ((__tmp117270 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp117266 _sym115504_ '#t)))) + (hash-put! __tmp117270 _sym115508_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym115502_) - (let ((__tmp117267 + (lambda (_sym115506_) + (let ((__tmp117271 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp117267 _sym115502_)))) + (hash-get __tmp117271 _sym115506_)))) (define gxc#identifier-symbol - (lambda (_stx115500_) + (lambda (_stx115504_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _stx115500_ + _stx115504_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _stx115500_)) - (let () (declare (not safe)) (gx#stx-e _stx115500_))))))) + (gxc#generate-runtime-binding-id _stx115504_)) + (let () (declare (not safe)) (gx#stx-e _stx115504_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~1.scm b/src/bootstrap/gerbil/compiler/optimize-base~1.scm index ff28fb842..8296f89d1 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base~1.scm @@ -1,1630 +1,1630 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g117269_| + (define |gxc[1]#_g117273_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117271_| + (define |gxc[1]#_g117275_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117273_| + (define |gxc[1]#_g117277_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117279_| + (define |gxc[1]#_g117283_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117282_| + (define |gxc[1]#_g117286_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117285_| + (define |gxc[1]#_g117289_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117291_| + (define |gxc[1]#_g117295_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117294_| + (define |gxc[1]#_g117298_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117297_| + (define |gxc[1]#_g117301_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117303_| + (define |gxc[1]#_g117307_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117306_| + (define |gxc[1]#_g117310_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117309_| + (define |gxc[1]#_g117313_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117315_| + (define |gxc[1]#_g117319_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117318_| + (define |gxc[1]#_g117322_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117321_| + (define |gxc[1]#_g117325_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117323_| + (define |gxc[1]#_g117327_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117325_| + (define |gxc[1]#_g117329_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117327_| + (define |gxc[1]#_g117331_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117331_| + (define |gxc[1]#_g117335_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117335_| + (define |gxc[1]#_g117339_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117339_| + (define |gxc[1]#_g117343_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117343_| + (define |gxc[1]#_g117347_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117346_| + (define |gxc[1]#_g117350_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117348_| + (define |gxc[1]#_g117352_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117350_| + (define |gxc[1]#_g117354_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117352_| + (define |gxc[1]#_g117356_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117356_| + (define |gxc[1]#_g117360_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117360_| + (define |gxc[1]#_g117364_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117364_| + (define |gxc[1]#_g117368_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117368_| + (define |gxc[1]#_g117372_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117372_| + (define |gxc[1]#_g117376_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117374_| + (define |gxc[1]#_g117378_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117376_| + (define |gxc[1]#_g117380_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117380_| + (define |gxc[1]#_g117384_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117384_| + (define |gxc[1]#_g117388_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117388_| + (define |gxc[1]#_g117392_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117392_| + (define |gxc[1]#_g117396_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117396_| + (define |gxc[1]#_g117400_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117398_| + (define |gxc[1]#_g117402_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117400_| + (define |gxc[1]#_g117404_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117414_| + (define |gxc[1]#_g117418_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117417_| + (define |gxc[1]#_g117421_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117420_| + (define |gxc[1]#_g117424_| (##structure gx#syntax-quote::t '!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117423_| + (define |gxc[1]#_g117427_| (##structure gx#syntax-quote::t '!class-system? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117426_| + (define |gxc[1]#_g117430_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117429_| + (define |gxc[1]#_g117433_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117432_| + (define |gxc[1]#_g117436_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117435_| + (define |gxc[1]#_g117439_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117438_| + (define |gxc[1]#_g117442_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117441_| + (define |gxc[1]#_g117445_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117444_| + (define |gxc[1]#_g117448_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117458_| + (define |gxc[1]#_g117462_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117461_| + (define |gxc[1]#_g117465_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117464_| + (define |gxc[1]#_g117468_| (##structure gx#syntax-quote::t '!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117467_| + (define |gxc[1]#_g117471_| (##structure gx#syntax-quote::t '!class-system?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117470_| + (define |gxc[1]#_g117474_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117473_| + (define |gxc[1]#_g117477_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117476_| + (define |gxc[1]#_g117480_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117479_| + (define |gxc[1]#_g117483_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117482_| + (define |gxc[1]#_g117486_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117485_| + (define |gxc[1]#_g117489_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117488_| + (define |gxc[1]#_g117492_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117502_| + (define |gxc[1]#_g117506_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117505_| + (define |gxc[1]#_g117509_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117508_| + (define |gxc[1]#_g117512_| (##structure gx#syntax-quote::t '&!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117511_| + (define |gxc[1]#_g117515_| (##structure gx#syntax-quote::t '&!class-system? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117514_| + (define |gxc[1]#_g117518_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117517_| + (define |gxc[1]#_g117521_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117520_| + (define |gxc[1]#_g117524_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117523_| + (define |gxc[1]#_g117527_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117526_| + (define |gxc[1]#_g117530_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117529_| + (define |gxc[1]#_g117533_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117532_| + (define |gxc[1]#_g117536_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117546_| + (define |gxc[1]#_g117550_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117549_| + (define |gxc[1]#_g117553_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117552_| + (define |gxc[1]#_g117556_| (##structure gx#syntax-quote::t '&!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117555_| + (define |gxc[1]#_g117559_| (##structure gx#syntax-quote::t '&!class-system?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117558_| + (define |gxc[1]#_g117562_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117561_| + (define |gxc[1]#_g117565_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117564_| + (define |gxc[1]#_g117568_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117567_| + (define |gxc[1]#_g117571_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117570_| + (define |gxc[1]#_g117574_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117573_| + (define |gxc[1]#_g117577_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117576_| + (define |gxc[1]#_g117580_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117579_| + (define |gxc[1]#_g117583_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117581_| + (define |gxc[1]#_g117585_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117583_| + (define |gxc[1]#_g117587_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117585_| + (define |gxc[1]#_g117589_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117589_| + (define |gxc[1]#_g117593_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117593_| + (define |gxc[1]#_g117597_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117597_| + (define |gxc[1]#_g117601_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117601_| + (define |gxc[1]#_g117605_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117605_| + (define |gxc[1]#_g117609_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117607_| + (define |gxc[1]#_g117611_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117609_| + (define |gxc[1]#_g117613_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117613_| + (define |gxc[1]#_g117617_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117617_| + (define |gxc[1]#_g117621_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117621_| + (define |gxc[1]#_g117625_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117625_| + (define |gxc[1]#_g117629_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117629_| + (define |gxc[1]#_g117633_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117631_| + (define |gxc[1]#_g117635_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117633_| + (define |gxc[1]#_g117637_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117639_| + (define |gxc[1]#_g117643_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117642_| + (define |gxc[1]#_g117646_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117645_| + (define |gxc[1]#_g117649_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117651_| + (define |gxc[1]#_g117655_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117654_| + (define |gxc[1]#_g117658_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117657_| + (define |gxc[1]#_g117661_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117663_| + (define |gxc[1]#_g117667_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117666_| + (define |gxc[1]#_g117670_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117669_| + (define |gxc[1]#_g117673_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117675_| + (define |gxc[1]#_g117679_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117678_| + (define |gxc[1]#_g117682_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117681_| + (define |gxc[1]#_g117685_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117685_| + (define |gxc[1]#_g117689_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117687_| + (define |gxc[1]#_g117691_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117689_| + (define |gxc[1]#_g117693_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117695_| + (define |gxc[1]#_g117699_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117698_| + (define |gxc[1]#_g117702_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117701_| + (define |gxc[1]#_g117705_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117707_| + (define |gxc[1]#_g117711_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117710_| + (define |gxc[1]#_g117714_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117713_| + (define |gxc[1]#_g117717_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117719_| + (define |gxc[1]#_g117723_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117722_| + (define |gxc[1]#_g117726_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117725_| + (define |gxc[1]#_g117729_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117731_| + (define |gxc[1]#_g117735_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117734_| + (define |gxc[1]#_g117738_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117737_| + (define |gxc[1]#_g117741_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117741_| + (define |gxc[1]#_g117745_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117743_| + (define |gxc[1]#_g117747_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117745_| + (define |gxc[1]#_g117749_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117753_| + (define |gxc[1]#_g117757_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117756_| + (define |gxc[1]#_g117760_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117759_| + (define |gxc[1]#_g117763_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117762_| + (define |gxc[1]#_g117766_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117765_| + (define |gxc[1]#_g117769_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117773_| + (define |gxc[1]#_g117777_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117776_| + (define |gxc[1]#_g117780_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117779_| + (define |gxc[1]#_g117783_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117782_| + (define |gxc[1]#_g117786_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117785_| + (define |gxc[1]#_g117789_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117793_| + (define |gxc[1]#_g117797_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117796_| + (define |gxc[1]#_g117800_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117799_| + (define |gxc[1]#_g117803_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117802_| + (define |gxc[1]#_g117806_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117805_| + (define |gxc[1]#_g117809_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117813_| + (define |gxc[1]#_g117817_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117816_| + (define |gxc[1]#_g117820_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117819_| + (define |gxc[1]#_g117823_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117822_| + (define |gxc[1]#_g117826_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117825_| + (define |gxc[1]#_g117829_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117829_| + (define |gxc[1]#_g117833_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117831_| + (define |gxc[1]#_g117835_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117833_| + (define |gxc[1]#_g117837_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117838_| + (define |gxc[1]#_g117842_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117841_| + (define |gxc[1]#_g117845_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117846_| + (define |gxc[1]#_g117850_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117849_| + (define |gxc[1]#_g117853_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117854_| + (define |gxc[1]#_g117858_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117857_| + (define |gxc[1]#_g117861_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117862_| + (define |gxc[1]#_g117866_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117865_| + (define |gxc[1]#_g117869_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117869_| + (define |gxc[1]#_g117873_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117871_| + (define |gxc[1]#_g117875_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117873_| + (define |gxc[1]#_g117877_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117879_| + (define |gxc[1]#_g117883_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117882_| + (define |gxc[1]#_g117886_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117885_| + (define |gxc[1]#_g117889_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117891_| + (define |gxc[1]#_g117895_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117894_| + (define |gxc[1]#_g117898_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117897_| + (define |gxc[1]#_g117901_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117903_| + (define |gxc[1]#_g117907_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117906_| + (define |gxc[1]#_g117910_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117909_| + (define |gxc[1]#_g117913_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117915_| + (define |gxc[1]#_g117919_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117918_| + (define |gxc[1]#_g117922_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117921_| + (define |gxc[1]#_g117925_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117925_| + (define |gxc[1]#_g117929_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117927_| + (define |gxc[1]#_g117931_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117929_| + (define |gxc[1]#_g117933_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117935_| + (define |gxc[1]#_g117939_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117938_| + (define |gxc[1]#_g117942_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117941_| + (define |gxc[1]#_g117945_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117947_| + (define |gxc[1]#_g117951_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117950_| + (define |gxc[1]#_g117954_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117953_| + (define |gxc[1]#_g117957_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117959_| + (define |gxc[1]#_g117963_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117962_| + (define |gxc[1]#_g117966_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117965_| + (define |gxc[1]#_g117969_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117971_| + (define |gxc[1]#_g117975_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117974_| + (define |gxc[1]#_g117978_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117977_| + (define |gxc[1]#_g117981_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117979_| + (define |gxc[1]#_g117983_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117981_| + (define |gxc[1]#_g117985_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117983_| + (define |gxc[1]#_g117987_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117987_| + (define |gxc[1]#_g117991_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117989_| + (define |gxc[1]#_g117993_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117991_| + (define |gxc[1]#_g117995_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117993_| + (define |gxc[1]#_g117997_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117995_| + (define |gxc[1]#_g117999_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118003_| + (define |gxc[1]#_g118007_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118006_| + (define |gxc[1]#_g118010_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118009_| + (define |gxc[1]#_g118013_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118012_| + (define |gxc[1]#_g118016_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118015_| + (define |gxc[1]#_g118019_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118023_| + (define |gxc[1]#_g118027_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118026_| + (define |gxc[1]#_g118030_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118029_| + (define |gxc[1]#_g118033_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118032_| + (define |gxc[1]#_g118036_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118035_| + (define |gxc[1]#_g118039_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118043_| + (define |gxc[1]#_g118047_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118046_| + (define |gxc[1]#_g118050_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118049_| + (define |gxc[1]#_g118053_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118052_| + (define |gxc[1]#_g118056_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118055_| + (define |gxc[1]#_g118059_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118063_| + (define |gxc[1]#_g118067_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118066_| + (define |gxc[1]#_g118070_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118069_| + (define |gxc[1]#_g118073_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118072_| + (define |gxc[1]#_g118076_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118075_| + (define |gxc[1]#_g118079_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118079_| + (define |gxc[1]#_g118083_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118082_| + (define |gxc[1]#_g118086_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118084_| + (define |gxc[1]#_g118088_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118086_| + (define |gxc[1]#_g118090_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118091_| + (define |gxc[1]#_g118095_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118094_| + (define |gxc[1]#_g118098_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118099_| + (define |gxc[1]#_g118103_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118102_| + (define |gxc[1]#_g118106_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118107_| + (define |gxc[1]#_g118111_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118110_| + (define |gxc[1]#_g118114_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118115_| + (define |gxc[1]#_g118119_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118118_| + (define |gxc[1]#_g118122_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1633,7 +1633,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj117100 + (let ((__obj117104 (let () (declare (not safe)) (##structure @@ -1657,7 +1657,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117100 + __obj117104 'gxc#optimizer-info::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1665,7 +1665,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117100 + __obj117104 'optimizer-info '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1673,7 +1673,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117100 + __obj117104 '(type ssxi methods) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1681,7 +1681,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117100 + __obj117104 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1689,7 +1689,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117100 + __obj117104 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1697,7 +1697,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117100 + __obj117104 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1705,7 +1705,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117100 + __obj117104 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1713,150 +1713,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117100 + __obj117104 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117268 |gxc[1]#_g117269_|)) + (let ((__tmp117272 |gxc[1]#_g117273_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117100 - __tmp117268 + __obj117104 + __tmp117272 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117270 |gxc[1]#_g117271_|)) + (let ((__tmp117274 |gxc[1]#_g117275_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117100 - __tmp117270 + __obj117104 + __tmp117274 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117272 |gxc[1]#_g117273_|)) + (let ((__tmp117276 |gxc[1]#_g117277_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117100 - __tmp117272 + __obj117104 + __tmp117276 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117274 - (let ((__tmp117283 - (let ((__tmp117284 |gxc[1]#_g117285_|)) + (let ((__tmp117278 + (let ((__tmp117287 + (let ((__tmp117288 |gxc[1]#_g117289_|)) (declare (not safe)) - (cons 'type __tmp117284))) - (__tmp117275 - (let ((__tmp117280 - (let ((__tmp117281 |gxc[1]#_g117282_|)) + (cons 'type __tmp117288))) + (__tmp117279 + (let ((__tmp117284 + (let ((__tmp117285 |gxc[1]#_g117286_|)) (declare (not safe)) - (cons 'ssxi __tmp117281))) - (__tmp117276 - (let ((__tmp117277 - (let ((__tmp117278 |gxc[1]#_g117279_|)) + (cons 'ssxi __tmp117285))) + (__tmp117280 + (let ((__tmp117281 + (let ((__tmp117282 |gxc[1]#_g117283_|)) (declare (not safe)) - (cons 'methods __tmp117278)))) + (cons 'methods __tmp117282)))) (declare (not safe)) - (cons __tmp117277 '())))) + (cons __tmp117281 '())))) (declare (not safe)) - (cons __tmp117280 __tmp117276)))) + (cons __tmp117284 __tmp117280)))) (declare (not safe)) - (cons __tmp117283 __tmp117275)))) + (cons __tmp117287 __tmp117279)))) (declare (not safe)) (##unchecked-structure-set! - __obj117100 - __tmp117274 + __obj117104 + __tmp117278 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117286 - (let ((__tmp117295 - (let ((__tmp117296 |gxc[1]#_g117297_|)) + (let ((__tmp117290 + (let ((__tmp117299 + (let ((__tmp117300 |gxc[1]#_g117301_|)) (declare (not safe)) - (cons 'type __tmp117296))) - (__tmp117287 - (let ((__tmp117292 - (let ((__tmp117293 |gxc[1]#_g117294_|)) + (cons 'type __tmp117300))) + (__tmp117291 + (let ((__tmp117296 + (let ((__tmp117297 |gxc[1]#_g117298_|)) (declare (not safe)) - (cons 'ssxi __tmp117293))) - (__tmp117288 - (let ((__tmp117289 - (let ((__tmp117290 |gxc[1]#_g117291_|)) + (cons 'ssxi __tmp117297))) + (__tmp117292 + (let ((__tmp117293 + (let ((__tmp117294 |gxc[1]#_g117295_|)) (declare (not safe)) - (cons 'methods __tmp117290)))) + (cons 'methods __tmp117294)))) (declare (not safe)) - (cons __tmp117289 '())))) + (cons __tmp117293 '())))) (declare (not safe)) - (cons __tmp117292 __tmp117288)))) + (cons __tmp117296 __tmp117292)))) (declare (not safe)) - (cons __tmp117295 __tmp117287)))) + (cons __tmp117299 __tmp117291)))) (declare (not safe)) (##unchecked-structure-set! - __obj117100 - __tmp117286 + __obj117104 + __tmp117290 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117298 - (let ((__tmp117307 - (let ((__tmp117308 |gxc[1]#_g117309_|)) + (let ((__tmp117302 + (let ((__tmp117311 + (let ((__tmp117312 |gxc[1]#_g117313_|)) (declare (not safe)) - (cons 'type __tmp117308))) - (__tmp117299 - (let ((__tmp117304 - (let ((__tmp117305 |gxc[1]#_g117306_|)) + (cons 'type __tmp117312))) + (__tmp117303 + (let ((__tmp117308 + (let ((__tmp117309 |gxc[1]#_g117310_|)) (declare (not safe)) - (cons 'ssxi __tmp117305))) - (__tmp117300 - (let ((__tmp117301 - (let ((__tmp117302 |gxc[1]#_g117303_|)) + (cons 'ssxi __tmp117309))) + (__tmp117304 + (let ((__tmp117305 + (let ((__tmp117306 |gxc[1]#_g117307_|)) (declare (not safe)) - (cons 'methods __tmp117302)))) + (cons 'methods __tmp117306)))) (declare (not safe)) - (cons __tmp117301 '())))) + (cons __tmp117305 '())))) (declare (not safe)) - (cons __tmp117304 __tmp117300)))) + (cons __tmp117308 __tmp117304)))) (declare (not safe)) - (cons __tmp117307 __tmp117299)))) + (cons __tmp117311 __tmp117303)))) (declare (not safe)) (##unchecked-structure-set! - __obj117100 - __tmp117298 + __obj117104 + __tmp117302 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117310 - (let ((__tmp117319 - (let ((__tmp117320 |gxc[1]#_g117321_|)) + (let ((__tmp117314 + (let ((__tmp117323 + (let ((__tmp117324 |gxc[1]#_g117325_|)) (declare (not safe)) - (cons 'type __tmp117320))) - (__tmp117311 - (let ((__tmp117316 - (let ((__tmp117317 |gxc[1]#_g117318_|)) + (cons 'type __tmp117324))) + (__tmp117315 + (let ((__tmp117320 + (let ((__tmp117321 |gxc[1]#_g117322_|)) (declare (not safe)) - (cons 'ssxi __tmp117317))) - (__tmp117312 - (let ((__tmp117313 - (let ((__tmp117314 |gxc[1]#_g117315_|)) + (cons 'ssxi __tmp117321))) + (__tmp117316 + (let ((__tmp117317 + (let ((__tmp117318 |gxc[1]#_g117319_|)) (declare (not safe)) - (cons 'methods __tmp117314)))) + (cons 'methods __tmp117318)))) (declare (not safe)) - (cons __tmp117313 '())))) + (cons __tmp117317 '())))) (declare (not safe)) - (cons __tmp117316 __tmp117312)))) + (cons __tmp117320 __tmp117316)))) (declare (not safe)) - (cons __tmp117319 __tmp117311)))) + (cons __tmp117323 __tmp117315)))) (declare (not safe)) (##unchecked-structure-set! - __obj117100 - __tmp117310 + __obj117104 + __tmp117314 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117100)) + __obj117104)) (define |gxc[:0:]#!type| - (let ((__obj117101 + (let ((__obj117105 (let () (declare (not safe)) (##structure @@ -1880,7 +1880,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 'gxc#!type::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1888,7 +1888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 '!type '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1896,7 +1896,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 '(id) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1904,7 +1904,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1912,7 +1912,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1920,7 +1920,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1928,7 +1928,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1936,49 +1936,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117322 |gxc[1]#_g117323_|)) + (let ((__tmp117326 |gxc[1]#_g117327_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117101 - __tmp117322 + __obj117105 + __tmp117326 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117324 |gxc[1]#_g117325_|)) + (let ((__tmp117328 |gxc[1]#_g117329_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117101 - __tmp117324 + __obj117105 + __tmp117328 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117326 |gxc[1]#_g117327_|)) + (let ((__tmp117330 |gxc[1]#_g117331_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117101 - __tmp117326 + __obj117105 + __tmp117330 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117328 - (let ((__tmp117329 - (let ((__tmp117330 |gxc[1]#_g117331_|)) - (declare (not safe)) - (cons 'id __tmp117330)))) - (declare (not safe)) - (cons __tmp117329 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj117101 - __tmp117328 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp117332 (let ((__tmp117333 (let ((__tmp117334 |gxc[1]#_g117335_|)) @@ -1988,9 +1974,9 @@ (cons __tmp117333 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 __tmp117332 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117336 @@ -2002,9 +1988,9 @@ (cons __tmp117337 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 __tmp117336 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117340 @@ -2016,14 +2002,28 @@ (cons __tmp117341 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117101 + __obj117105 __tmp117340 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp117344 + (let ((__tmp117345 + (let ((__tmp117346 |gxc[1]#_g117347_|)) + (declare (not safe)) + (cons 'id __tmp117346)))) + (declare (not safe)) + (cons __tmp117345 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj117105 + __tmp117344 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117101)) + __obj117105)) (define |gxc[:0:]#!alias| - (let ((__obj117102 + (let ((__obj117106 (let () (declare (not safe)) (##structure @@ -2047,7 +2047,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 'gxc#!alias::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2055,7 +2055,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 '!alias '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2063,26 +2063,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117344 - (let ((__tmp117345 |gxc[1]#_g117346_|)) + (let ((__tmp117348 + (let ((__tmp117349 |gxc[1]#_g117350_|)) (declare (not safe)) - (cons __tmp117345 '())))) + (cons __tmp117349 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117102 - __tmp117344 + __obj117106 + __tmp117348 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2090,7 +2090,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2098,7 +2098,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2106,49 +2106,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117347 |gxc[1]#_g117348_|)) + (let ((__tmp117351 |gxc[1]#_g117352_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117102 - __tmp117347 + __obj117106 + __tmp117351 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117349 |gxc[1]#_g117350_|)) + (let ((__tmp117353 |gxc[1]#_g117354_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117102 - __tmp117349 + __obj117106 + __tmp117353 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117351 |gxc[1]#_g117352_|)) + (let ((__tmp117355 |gxc[1]#_g117356_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117102 - __tmp117351 + __obj117106 + __tmp117355 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117353 - (let ((__tmp117354 - (let ((__tmp117355 |gxc[1]#_g117356_|)) - (declare (not safe)) - (cons 'id __tmp117355)))) - (declare (not safe)) - (cons __tmp117354 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj117102 - __tmp117353 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp117357 (let ((__tmp117358 (let ((__tmp117359 |gxc[1]#_g117360_|)) @@ -2158,9 +2144,9 @@ (cons __tmp117358 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 __tmp117357 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117361 @@ -2172,9 +2158,9 @@ (cons __tmp117362 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 __tmp117361 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117365 @@ -2186,14 +2172,28 @@ (cons __tmp117366 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117102 + __obj117106 __tmp117365 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp117369 + (let ((__tmp117370 + (let ((__tmp117371 |gxc[1]#_g117372_|)) + (declare (not safe)) + (cons 'id __tmp117371)))) + (declare (not safe)) + (cons __tmp117370 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj117106 + __tmp117369 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117102)) + __obj117106)) (define |gxc[:0:]#!procedure| - (let ((__obj117103 + (let ((__obj117107 (let () (declare (not safe)) (##structure @@ -2217,7 +2217,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 'gxc#!procedure::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2225,7 +2225,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 '!procedure '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2233,26 +2233,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117369 - (let ((__tmp117370 |gxc[1]#_g117346_|)) + (let ((__tmp117373 + (let ((__tmp117374 |gxc[1]#_g117350_|)) (declare (not safe)) - (cons __tmp117370 '())))) + (cons __tmp117374 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117103 - __tmp117369 + __obj117107 + __tmp117373 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2260,7 +2260,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2268,7 +2268,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2276,49 +2276,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117371 |gxc[1]#_g117372_|)) + (let ((__tmp117375 |gxc[1]#_g117376_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117103 - __tmp117371 + __obj117107 + __tmp117375 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117373 |gxc[1]#_g117374_|)) + (let ((__tmp117377 |gxc[1]#_g117378_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117103 - __tmp117373 + __obj117107 + __tmp117377 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117375 |gxc[1]#_g117376_|)) + (let ((__tmp117379 |gxc[1]#_g117380_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117103 - __tmp117375 + __obj117107 + __tmp117379 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117377 - (let ((__tmp117378 - (let ((__tmp117379 |gxc[1]#_g117380_|)) - (declare (not safe)) - (cons 'id __tmp117379)))) - (declare (not safe)) - (cons __tmp117378 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj117103 - __tmp117377 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp117381 (let ((__tmp117382 (let ((__tmp117383 |gxc[1]#_g117384_|)) @@ -2328,9 +2314,9 @@ (cons __tmp117382 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 __tmp117381 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117385 @@ -2342,9 +2328,9 @@ (cons __tmp117386 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 __tmp117385 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117389 @@ -2356,14 +2342,28 @@ (cons __tmp117390 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117103 + __obj117107 __tmp117389 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp117393 + (let ((__tmp117394 + (let ((__tmp117395 |gxc[1]#_g117396_|)) + (declare (not safe)) + (cons 'id __tmp117395)))) + (declare (not safe)) + (cons __tmp117394 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj117107 + __tmp117393 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117103)) + __obj117107)) (define |gxc[:0:]#!class| - (let ((__obj117104 + (let ((__obj117108 (let () (declare (not safe)) (##structure @@ -2387,7 +2387,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117108 'gxc#!class::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2395,7 +2395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117108 '!class '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2403,7 +2403,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117108 '(super precedence-list slots fields @@ -2416,21 +2416,21 @@ '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117393 - (let ((__tmp117394 |gxc[1]#_g117346_|)) + (let ((__tmp117397 + (let ((__tmp117398 |gxc[1]#_g117350_|)) (declare (not safe)) - (cons __tmp117394 '())))) + (cons __tmp117398 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117393 + __obj117108 + __tmp117397 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117108 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2438,7 +2438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117108 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2446,7 +2446,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117108 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2454,414 +2454,414 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117108 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117395 |gxc[1]#_g117396_|)) + (let ((__tmp117399 |gxc[1]#_g117400_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117395 + __obj117108 + __tmp117399 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117397 |gxc[1]#_g117398_|)) + (let ((__tmp117401 |gxc[1]#_g117402_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117397 + __obj117108 + __tmp117401 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117399 |gxc[1]#_g117400_|)) + (let ((__tmp117403 |gxc[1]#_g117404_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117399 + __obj117108 + __tmp117403 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117401 - (let ((__tmp117442 - (let ((__tmp117443 |gxc[1]#_g117444_|)) + (let ((__tmp117405 + (let ((__tmp117446 + (let ((__tmp117447 |gxc[1]#_g117448_|)) (declare (not safe)) - (cons 'super __tmp117443))) - (__tmp117402 - (let ((__tmp117439 - (let ((__tmp117440 |gxc[1]#_g117441_|)) + (cons 'super __tmp117447))) + (__tmp117406 + (let ((__tmp117443 + (let ((__tmp117444 |gxc[1]#_g117445_|)) (declare (not safe)) - (cons 'precedence-list __tmp117440))) - (__tmp117403 - (let ((__tmp117436 - (let ((__tmp117437 |gxc[1]#_g117438_|)) + (cons 'precedence-list __tmp117444))) + (__tmp117407 + (let ((__tmp117440 + (let ((__tmp117441 |gxc[1]#_g117442_|)) (declare (not safe)) - (cons 'slots __tmp117437))) - (__tmp117404 - (let ((__tmp117433 - (let ((__tmp117434 - |gxc[1]#_g117435_|)) + (cons 'slots __tmp117441))) + (__tmp117408 + (let ((__tmp117437 + (let ((__tmp117438 + |gxc[1]#_g117439_|)) (declare (not safe)) - (cons 'fields __tmp117434))) - (__tmp117405 - (let ((__tmp117430 - (let ((__tmp117431 - |gxc[1]#_g117432_|)) + (cons 'fields __tmp117438))) + (__tmp117409 + (let ((__tmp117434 + (let ((__tmp117435 + |gxc[1]#_g117436_|)) (declare (not safe)) (cons 'constructor - __tmp117431))) - (__tmp117406 - (let ((__tmp117427 - (let ((__tmp117428 - |gxc[1]#_g117429_|)) + __tmp117435))) + (__tmp117410 + (let ((__tmp117431 + (let ((__tmp117432 + |gxc[1]#_g117433_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117428))) - (__tmp117407 - (let ((__tmp117424 - (let ((__tmp117425 |gxc[1]#_g117426_|)) + __tmp117432))) + (__tmp117411 + (let ((__tmp117428 + (let ((__tmp117429 |gxc[1]#_g117430_|)) (declare (not safe)) - (cons 'final? __tmp117425))) - (__tmp117408 - (let ((__tmp117421 - (let ((__tmp117422 |gxc[1]#_g117423_|)) + (cons 'final? __tmp117429))) + (__tmp117412 + (let ((__tmp117425 + (let ((__tmp117426 |gxc[1]#_g117427_|)) (declare (not safe)) - (cons 'system? __tmp117422))) - (__tmp117409 - (let ((__tmp117418 - (let ((__tmp117419 |gxc[1]#_g117420_|)) + (cons 'system? __tmp117426))) + (__tmp117413 + (let ((__tmp117422 + (let ((__tmp117423 |gxc[1]#_g117424_|)) (declare (not safe)) - (cons 'metaclass __tmp117419))) - (__tmp117410 - (let ((__tmp117415 - (let ((__tmp117416 - |gxc[1]#_g117417_|)) + (cons 'metaclass __tmp117423))) + (__tmp117414 + (let ((__tmp117419 + (let ((__tmp117420 + |gxc[1]#_g117421_|)) (declare (not safe)) - (cons 'methods __tmp117416))) - (__tmp117411 - (let ((__tmp117412 - (let ((__tmp117413 - |gxc[1]#_g117414_|)) + (cons 'methods __tmp117420))) + (__tmp117415 + (let ((__tmp117416 + (let ((__tmp117417 + |gxc[1]#_g117418_|)) (declare (not safe)) - (cons 'id __tmp117413)))) + (cons 'id __tmp117417)))) (declare (not safe)) - (cons __tmp117412 '())))) + (cons __tmp117416 '())))) (declare (not safe)) - (cons __tmp117415 __tmp117411)))) + (cons __tmp117419 __tmp117415)))) (declare (not safe)) - (cons __tmp117418 __tmp117410)))) + (cons __tmp117422 __tmp117414)))) (declare (not safe)) - (cons __tmp117421 __tmp117409)))) + (cons __tmp117425 __tmp117413)))) (declare (not safe)) - (cons __tmp117424 __tmp117408)))) + (cons __tmp117428 __tmp117412)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp117427 - __tmp117407)))) + (cons __tmp117431 + __tmp117411)))) (declare (not safe)) - (cons __tmp117430 __tmp117406)))) + (cons __tmp117434 __tmp117410)))) (declare (not safe)) - (cons __tmp117433 __tmp117405)))) + (cons __tmp117437 __tmp117409)))) (declare (not safe)) - (cons __tmp117436 __tmp117404)))) + (cons __tmp117440 __tmp117408)))) (declare (not safe)) - (cons __tmp117439 __tmp117403)))) + (cons __tmp117443 __tmp117407)))) (declare (not safe)) - (cons __tmp117442 __tmp117402)))) + (cons __tmp117446 __tmp117406)))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117401 + __obj117108 + __tmp117405 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117445 - (let ((__tmp117486 - (let ((__tmp117487 |gxc[1]#_g117488_|)) + (let ((__tmp117449 + (let ((__tmp117490 + (let ((__tmp117491 |gxc[1]#_g117492_|)) (declare (not safe)) - (cons 'super __tmp117487))) - (__tmp117446 - (let ((__tmp117483 - (let ((__tmp117484 |gxc[1]#_g117485_|)) + (cons 'super __tmp117491))) + (__tmp117450 + (let ((__tmp117487 + (let ((__tmp117488 |gxc[1]#_g117489_|)) (declare (not safe)) - (cons 'precedence-list __tmp117484))) - (__tmp117447 - (let ((__tmp117480 - (let ((__tmp117481 |gxc[1]#_g117482_|)) + (cons 'precedence-list __tmp117488))) + (__tmp117451 + (let ((__tmp117484 + (let ((__tmp117485 |gxc[1]#_g117486_|)) (declare (not safe)) - (cons 'slots __tmp117481))) - (__tmp117448 - (let ((__tmp117477 - (let ((__tmp117478 - |gxc[1]#_g117479_|)) + (cons 'slots __tmp117485))) + (__tmp117452 + (let ((__tmp117481 + (let ((__tmp117482 + |gxc[1]#_g117483_|)) (declare (not safe)) - (cons 'fields __tmp117478))) - (__tmp117449 - (let ((__tmp117474 - (let ((__tmp117475 - |gxc[1]#_g117476_|)) + (cons 'fields __tmp117482))) + (__tmp117453 + (let ((__tmp117478 + (let ((__tmp117479 + |gxc[1]#_g117480_|)) (declare (not safe)) (cons 'constructor - __tmp117475))) - (__tmp117450 - (let ((__tmp117471 - (let ((__tmp117472 - |gxc[1]#_g117473_|)) + __tmp117479))) + (__tmp117454 + (let ((__tmp117475 + (let ((__tmp117476 + |gxc[1]#_g117477_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117472))) - (__tmp117451 - (let ((__tmp117468 - (let ((__tmp117469 |gxc[1]#_g117470_|)) + __tmp117476))) + (__tmp117455 + (let ((__tmp117472 + (let ((__tmp117473 |gxc[1]#_g117474_|)) (declare (not safe)) - (cons 'final? __tmp117469))) - (__tmp117452 - (let ((__tmp117465 - (let ((__tmp117466 |gxc[1]#_g117467_|)) + (cons 'final? __tmp117473))) + (__tmp117456 + (let ((__tmp117469 + (let ((__tmp117470 |gxc[1]#_g117471_|)) (declare (not safe)) - (cons 'system? __tmp117466))) - (__tmp117453 - (let ((__tmp117462 - (let ((__tmp117463 |gxc[1]#_g117464_|)) + (cons 'system? __tmp117470))) + (__tmp117457 + (let ((__tmp117466 + (let ((__tmp117467 |gxc[1]#_g117468_|)) (declare (not safe)) - (cons 'metaclass __tmp117463))) - (__tmp117454 - (let ((__tmp117459 - (let ((__tmp117460 - |gxc[1]#_g117461_|)) + (cons 'metaclass __tmp117467))) + (__tmp117458 + (let ((__tmp117463 + (let ((__tmp117464 + |gxc[1]#_g117465_|)) (declare (not safe)) - (cons 'methods __tmp117460))) - (__tmp117455 - (let ((__tmp117456 - (let ((__tmp117457 - |gxc[1]#_g117458_|)) + (cons 'methods __tmp117464))) + (__tmp117459 + (let ((__tmp117460 + (let ((__tmp117461 + |gxc[1]#_g117462_|)) (declare (not safe)) - (cons 'id __tmp117457)))) + (cons 'id __tmp117461)))) (declare (not safe)) - (cons __tmp117456 '())))) + (cons __tmp117460 '())))) (declare (not safe)) - (cons __tmp117459 __tmp117455)))) + (cons __tmp117463 __tmp117459)))) (declare (not safe)) - (cons __tmp117462 __tmp117454)))) + (cons __tmp117466 __tmp117458)))) (declare (not safe)) - (cons __tmp117465 __tmp117453)))) + (cons __tmp117469 __tmp117457)))) (declare (not safe)) - (cons __tmp117468 __tmp117452)))) + (cons __tmp117472 __tmp117456)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp117471 - __tmp117451)))) + (cons __tmp117475 + __tmp117455)))) (declare (not safe)) - (cons __tmp117474 __tmp117450)))) + (cons __tmp117478 __tmp117454)))) (declare (not safe)) - (cons __tmp117477 __tmp117449)))) + (cons __tmp117481 __tmp117453)))) (declare (not safe)) - (cons __tmp117480 __tmp117448)))) + (cons __tmp117484 __tmp117452)))) (declare (not safe)) - (cons __tmp117483 __tmp117447)))) + (cons __tmp117487 __tmp117451)))) (declare (not safe)) - (cons __tmp117486 __tmp117446)))) + (cons __tmp117490 __tmp117450)))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117445 + __obj117108 + __tmp117449 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117489 - (let ((__tmp117530 - (let ((__tmp117531 |gxc[1]#_g117532_|)) + (let ((__tmp117493 + (let ((__tmp117534 + (let ((__tmp117535 |gxc[1]#_g117536_|)) (declare (not safe)) - (cons 'super __tmp117531))) - (__tmp117490 - (let ((__tmp117527 - (let ((__tmp117528 |gxc[1]#_g117529_|)) + (cons 'super __tmp117535))) + (__tmp117494 + (let ((__tmp117531 + (let ((__tmp117532 |gxc[1]#_g117533_|)) (declare (not safe)) - (cons 'precedence-list __tmp117528))) - (__tmp117491 - (let ((__tmp117524 - (let ((__tmp117525 |gxc[1]#_g117526_|)) + (cons 'precedence-list __tmp117532))) + (__tmp117495 + (let ((__tmp117528 + (let ((__tmp117529 |gxc[1]#_g117530_|)) (declare (not safe)) - (cons 'slots __tmp117525))) - (__tmp117492 - (let ((__tmp117521 - (let ((__tmp117522 - |gxc[1]#_g117523_|)) + (cons 'slots __tmp117529))) + (__tmp117496 + (let ((__tmp117525 + (let ((__tmp117526 + |gxc[1]#_g117527_|)) (declare (not safe)) - (cons 'fields __tmp117522))) - (__tmp117493 - (let ((__tmp117518 - (let ((__tmp117519 - |gxc[1]#_g117520_|)) + (cons 'fields __tmp117526))) + (__tmp117497 + (let ((__tmp117522 + (let ((__tmp117523 + |gxc[1]#_g117524_|)) (declare (not safe)) (cons 'constructor - __tmp117519))) - (__tmp117494 - (let ((__tmp117515 - (let ((__tmp117516 - |gxc[1]#_g117517_|)) + __tmp117523))) + (__tmp117498 + (let ((__tmp117519 + (let ((__tmp117520 + |gxc[1]#_g117521_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117516))) - (__tmp117495 - (let ((__tmp117512 - (let ((__tmp117513 |gxc[1]#_g117514_|)) + __tmp117520))) + (__tmp117499 + (let ((__tmp117516 + (let ((__tmp117517 |gxc[1]#_g117518_|)) (declare (not safe)) - (cons 'final? __tmp117513))) - (__tmp117496 - (let ((__tmp117509 - (let ((__tmp117510 |gxc[1]#_g117511_|)) + (cons 'final? __tmp117517))) + (__tmp117500 + (let ((__tmp117513 + (let ((__tmp117514 |gxc[1]#_g117515_|)) (declare (not safe)) - (cons 'system? __tmp117510))) - (__tmp117497 - (let ((__tmp117506 - (let ((__tmp117507 |gxc[1]#_g117508_|)) + (cons 'system? __tmp117514))) + (__tmp117501 + (let ((__tmp117510 + (let ((__tmp117511 |gxc[1]#_g117512_|)) (declare (not safe)) - (cons 'metaclass __tmp117507))) - (__tmp117498 - (let ((__tmp117503 - (let ((__tmp117504 - |gxc[1]#_g117505_|)) + (cons 'metaclass __tmp117511))) + (__tmp117502 + (let ((__tmp117507 + (let ((__tmp117508 + |gxc[1]#_g117509_|)) (declare (not safe)) - (cons 'methods __tmp117504))) - (__tmp117499 - (let ((__tmp117500 - (let ((__tmp117501 - |gxc[1]#_g117502_|)) + (cons 'methods __tmp117508))) + (__tmp117503 + (let ((__tmp117504 + (let ((__tmp117505 + |gxc[1]#_g117506_|)) (declare (not safe)) - (cons 'id __tmp117501)))) + (cons 'id __tmp117505)))) (declare (not safe)) - (cons __tmp117500 '())))) + (cons __tmp117504 '())))) (declare (not safe)) - (cons __tmp117503 __tmp117499)))) + (cons __tmp117507 __tmp117503)))) (declare (not safe)) - (cons __tmp117506 __tmp117498)))) + (cons __tmp117510 __tmp117502)))) (declare (not safe)) - (cons __tmp117509 __tmp117497)))) + (cons __tmp117513 __tmp117501)))) (declare (not safe)) - (cons __tmp117512 __tmp117496)))) + (cons __tmp117516 __tmp117500)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp117515 - __tmp117495)))) + (cons __tmp117519 + __tmp117499)))) (declare (not safe)) - (cons __tmp117518 __tmp117494)))) + (cons __tmp117522 __tmp117498)))) (declare (not safe)) - (cons __tmp117521 __tmp117493)))) + (cons __tmp117525 __tmp117497)))) (declare (not safe)) - (cons __tmp117524 __tmp117492)))) + (cons __tmp117528 __tmp117496)))) (declare (not safe)) - (cons __tmp117527 __tmp117491)))) + (cons __tmp117531 __tmp117495)))) (declare (not safe)) - (cons __tmp117530 __tmp117490)))) + (cons __tmp117534 __tmp117494)))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117489 + __obj117108 + __tmp117493 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117533 - (let ((__tmp117574 - (let ((__tmp117575 |gxc[1]#_g117576_|)) + (let ((__tmp117537 + (let ((__tmp117578 + (let ((__tmp117579 |gxc[1]#_g117580_|)) (declare (not safe)) - (cons 'super __tmp117575))) - (__tmp117534 - (let ((__tmp117571 - (let ((__tmp117572 |gxc[1]#_g117573_|)) + (cons 'super __tmp117579))) + (__tmp117538 + (let ((__tmp117575 + (let ((__tmp117576 |gxc[1]#_g117577_|)) (declare (not safe)) - (cons 'precedence-list __tmp117572))) - (__tmp117535 - (let ((__tmp117568 - (let ((__tmp117569 |gxc[1]#_g117570_|)) + (cons 'precedence-list __tmp117576))) + (__tmp117539 + (let ((__tmp117572 + (let ((__tmp117573 |gxc[1]#_g117574_|)) (declare (not safe)) - (cons 'slots __tmp117569))) - (__tmp117536 - (let ((__tmp117565 - (let ((__tmp117566 - |gxc[1]#_g117567_|)) + (cons 'slots __tmp117573))) + (__tmp117540 + (let ((__tmp117569 + (let ((__tmp117570 + |gxc[1]#_g117571_|)) (declare (not safe)) - (cons 'fields __tmp117566))) - (__tmp117537 - (let ((__tmp117562 - (let ((__tmp117563 - |gxc[1]#_g117564_|)) + (cons 'fields __tmp117570))) + (__tmp117541 + (let ((__tmp117566 + (let ((__tmp117567 + |gxc[1]#_g117568_|)) (declare (not safe)) (cons 'constructor - __tmp117563))) - (__tmp117538 - (let ((__tmp117559 - (let ((__tmp117560 - |gxc[1]#_g117561_|)) + __tmp117567))) + (__tmp117542 + (let ((__tmp117563 + (let ((__tmp117564 + |gxc[1]#_g117565_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117560))) - (__tmp117539 - (let ((__tmp117556 - (let ((__tmp117557 |gxc[1]#_g117558_|)) + __tmp117564))) + (__tmp117543 + (let ((__tmp117560 + (let ((__tmp117561 |gxc[1]#_g117562_|)) (declare (not safe)) - (cons 'final? __tmp117557))) - (__tmp117540 - (let ((__tmp117553 - (let ((__tmp117554 |gxc[1]#_g117555_|)) + (cons 'final? __tmp117561))) + (__tmp117544 + (let ((__tmp117557 + (let ((__tmp117558 |gxc[1]#_g117559_|)) (declare (not safe)) - (cons 'system? __tmp117554))) - (__tmp117541 - (let ((__tmp117550 - (let ((__tmp117551 |gxc[1]#_g117552_|)) + (cons 'system? __tmp117558))) + (__tmp117545 + (let ((__tmp117554 + (let ((__tmp117555 |gxc[1]#_g117556_|)) (declare (not safe)) - (cons 'metaclass __tmp117551))) - (__tmp117542 - (let ((__tmp117547 - (let ((__tmp117548 - |gxc[1]#_g117549_|)) + (cons 'metaclass __tmp117555))) + (__tmp117546 + (let ((__tmp117551 + (let ((__tmp117552 + |gxc[1]#_g117553_|)) (declare (not safe)) - (cons 'methods __tmp117548))) - (__tmp117543 - (let ((__tmp117544 - (let ((__tmp117545 - |gxc[1]#_g117546_|)) + (cons 'methods __tmp117552))) + (__tmp117547 + (let ((__tmp117548 + (let ((__tmp117549 + |gxc[1]#_g117550_|)) (declare (not safe)) - (cons 'id __tmp117545)))) + (cons 'id __tmp117549)))) (declare (not safe)) - (cons __tmp117544 '())))) + (cons __tmp117548 '())))) (declare (not safe)) - (cons __tmp117547 __tmp117543)))) + (cons __tmp117551 __tmp117547)))) (declare (not safe)) - (cons __tmp117550 __tmp117542)))) + (cons __tmp117554 __tmp117546)))) (declare (not safe)) - (cons __tmp117553 __tmp117541)))) + (cons __tmp117557 __tmp117545)))) (declare (not safe)) - (cons __tmp117556 __tmp117540)))) + (cons __tmp117560 __tmp117544)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp117559 - __tmp117539)))) + (cons __tmp117563 + __tmp117543)))) (declare (not safe)) - (cons __tmp117562 __tmp117538)))) + (cons __tmp117566 __tmp117542)))) (declare (not safe)) - (cons __tmp117565 __tmp117537)))) + (cons __tmp117569 __tmp117541)))) (declare (not safe)) - (cons __tmp117568 __tmp117536)))) + (cons __tmp117572 __tmp117540)))) (declare (not safe)) - (cons __tmp117571 __tmp117535)))) + (cons __tmp117575 __tmp117539)))) (declare (not safe)) - (cons __tmp117574 __tmp117534)))) + (cons __tmp117578 __tmp117538)))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117533 + __obj117108 + __tmp117537 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117104)) + __obj117108)) (define |gxc[:0:]#!predicate| - (let ((__obj117105 + (let ((__obj117109 (let () (declare (not safe)) (##structure @@ -2885,7 +2885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 'gxc#!predicate::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2893,7 +2893,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 '!predicate '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2901,26 +2901,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117577 - (let ((__tmp117578 |gxc[1]#_g117579_|)) + (let ((__tmp117581 + (let ((__tmp117582 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons __tmp117578 '())))) + (cons __tmp117582 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117577 + __obj117109 + __tmp117581 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2928,7 +2928,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2936,7 +2936,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2944,49 +2944,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117580 |gxc[1]#_g117581_|)) + (let ((__tmp117584 |gxc[1]#_g117585_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117580 + __obj117109 + __tmp117584 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117582 |gxc[1]#_g117583_|)) + (let ((__tmp117586 |gxc[1]#_g117587_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117582 + __obj117109 + __tmp117586 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117584 |gxc[1]#_g117585_|)) + (let ((__tmp117588 |gxc[1]#_g117589_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117584 + __obj117109 + __tmp117588 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117586 - (let ((__tmp117587 - (let ((__tmp117588 |gxc[1]#_g117589_|)) - (declare (not safe)) - (cons 'id __tmp117588)))) - (declare (not safe)) - (cons __tmp117587 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj117105 - __tmp117586 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp117590 (let ((__tmp117591 (let ((__tmp117592 |gxc[1]#_g117593_|)) @@ -2996,9 +2982,9 @@ (cons __tmp117591 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 __tmp117590 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117594 @@ -3010,9 +2996,9 @@ (cons __tmp117595 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 __tmp117594 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117598 @@ -3024,14 +3010,28 @@ (cons __tmp117599 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117109 __tmp117598 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp117602 + (let ((__tmp117603 + (let ((__tmp117604 |gxc[1]#_g117605_|)) + (declare (not safe)) + (cons 'id __tmp117604)))) + (declare (not safe)) + (cons __tmp117603 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj117109 + __tmp117602 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117105)) + __obj117109)) (define |gxc[:0:]#!constructor| - (let ((__obj117106 + (let ((__obj117110 (let () (declare (not safe)) (##structure @@ -3055,7 +3055,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 'gxc#!constructor::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3063,7 +3063,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 '!constructor '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3071,26 +3071,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117602 - (let ((__tmp117603 |gxc[1]#_g117579_|)) + (let ((__tmp117606 + (let ((__tmp117607 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons __tmp117603 '())))) + (cons __tmp117607 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117602 + __obj117110 + __tmp117606 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3098,7 +3098,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3106,7 +3106,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3114,49 +3114,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117604 |gxc[1]#_g117605_|)) + (let ((__tmp117608 |gxc[1]#_g117609_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117604 + __obj117110 + __tmp117608 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117606 |gxc[1]#_g117607_|)) + (let ((__tmp117610 |gxc[1]#_g117611_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117606 + __obj117110 + __tmp117610 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117608 |gxc[1]#_g117609_|)) + (let ((__tmp117612 |gxc[1]#_g117613_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117608 + __obj117110 + __tmp117612 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117610 - (let ((__tmp117611 - (let ((__tmp117612 |gxc[1]#_g117613_|)) - (declare (not safe)) - (cons 'id __tmp117612)))) - (declare (not safe)) - (cons __tmp117611 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj117106 - __tmp117610 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp117614 (let ((__tmp117615 (let ((__tmp117616 |gxc[1]#_g117617_|)) @@ -3166,9 +3152,9 @@ (cons __tmp117615 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 __tmp117614 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117618 @@ -3180,9 +3166,9 @@ (cons __tmp117619 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 __tmp117618 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp117622 @@ -3194,14 +3180,28 @@ (cons __tmp117623 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117110 __tmp117622 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp117626 + (let ((__tmp117627 + (let ((__tmp117628 |gxc[1]#_g117629_|)) + (declare (not safe)) + (cons 'id __tmp117628)))) + (declare (not safe)) + (cons __tmp117627 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj117110 + __tmp117626 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117106)) + __obj117110)) (define |gxc[:0:]#!accessor| - (let ((__obj117107 + (let ((__obj117111 (let () (declare (not safe)) (##structure @@ -3225,7 +3225,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117111 'gxc#!accessor::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3233,7 +3233,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117111 '!accessor '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3241,26 +3241,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117111 '(slot checked?) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117626 - (let ((__tmp117627 |gxc[1]#_g117579_|)) + (let ((__tmp117630 + (let ((__tmp117631 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons __tmp117627 '())))) + (cons __tmp117631 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117626 + __obj117111 + __tmp117630 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117111 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3268,7 +3268,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117111 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3276,7 +3276,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117111 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3284,150 +3284,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117111 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117628 |gxc[1]#_g117629_|)) + (let ((__tmp117632 |gxc[1]#_g117633_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117628 + __obj117111 + __tmp117632 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117630 |gxc[1]#_g117631_|)) + (let ((__tmp117634 |gxc[1]#_g117635_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117630 + __obj117111 + __tmp117634 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117632 |gxc[1]#_g117633_|)) + (let ((__tmp117636 |gxc[1]#_g117637_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117632 + __obj117111 + __tmp117636 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117634 - (let ((__tmp117643 - (let ((__tmp117644 |gxc[1]#_g117645_|)) + (let ((__tmp117638 + (let ((__tmp117647 + (let ((__tmp117648 |gxc[1]#_g117649_|)) (declare (not safe)) - (cons 'slot __tmp117644))) - (__tmp117635 - (let ((__tmp117640 - (let ((__tmp117641 |gxc[1]#_g117642_|)) + (cons 'slot __tmp117648))) + (__tmp117639 + (let ((__tmp117644 + (let ((__tmp117645 |gxc[1]#_g117646_|)) (declare (not safe)) - (cons 'checked? __tmp117641))) - (__tmp117636 - (let ((__tmp117637 - (let ((__tmp117638 |gxc[1]#_g117639_|)) + (cons 'checked? __tmp117645))) + (__tmp117640 + (let ((__tmp117641 + (let ((__tmp117642 |gxc[1]#_g117643_|)) (declare (not safe)) - (cons 'id __tmp117638)))) + (cons 'id __tmp117642)))) (declare (not safe)) - (cons __tmp117637 '())))) + (cons __tmp117641 '())))) (declare (not safe)) - (cons __tmp117640 __tmp117636)))) + (cons __tmp117644 __tmp117640)))) (declare (not safe)) - (cons __tmp117643 __tmp117635)))) + (cons __tmp117647 __tmp117639)))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117634 + __obj117111 + __tmp117638 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117646 - (let ((__tmp117655 - (let ((__tmp117656 |gxc[1]#_g117657_|)) + (let ((__tmp117650 + (let ((__tmp117659 + (let ((__tmp117660 |gxc[1]#_g117661_|)) (declare (not safe)) - (cons 'slot __tmp117656))) - (__tmp117647 - (let ((__tmp117652 - (let ((__tmp117653 |gxc[1]#_g117654_|)) + (cons 'slot __tmp117660))) + (__tmp117651 + (let ((__tmp117656 + (let ((__tmp117657 |gxc[1]#_g117658_|)) (declare (not safe)) - (cons 'checked? __tmp117653))) - (__tmp117648 - (let ((__tmp117649 - (let ((__tmp117650 |gxc[1]#_g117651_|)) + (cons 'checked? __tmp117657))) + (__tmp117652 + (let ((__tmp117653 + (let ((__tmp117654 |gxc[1]#_g117655_|)) (declare (not safe)) - (cons 'id __tmp117650)))) + (cons 'id __tmp117654)))) (declare (not safe)) - (cons __tmp117649 '())))) + (cons __tmp117653 '())))) (declare (not safe)) - (cons __tmp117652 __tmp117648)))) + (cons __tmp117656 __tmp117652)))) (declare (not safe)) - (cons __tmp117655 __tmp117647)))) + (cons __tmp117659 __tmp117651)))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117646 + __obj117111 + __tmp117650 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117658 - (let ((__tmp117667 - (let ((__tmp117668 |gxc[1]#_g117669_|)) + (let ((__tmp117662 + (let ((__tmp117671 + (let ((__tmp117672 |gxc[1]#_g117673_|)) (declare (not safe)) - (cons 'slot __tmp117668))) - (__tmp117659 - (let ((__tmp117664 - (let ((__tmp117665 |gxc[1]#_g117666_|)) + (cons 'slot __tmp117672))) + (__tmp117663 + (let ((__tmp117668 + (let ((__tmp117669 |gxc[1]#_g117670_|)) (declare (not safe)) - (cons 'checked? __tmp117665))) - (__tmp117660 - (let ((__tmp117661 - (let ((__tmp117662 |gxc[1]#_g117663_|)) + (cons 'checked? __tmp117669))) + (__tmp117664 + (let ((__tmp117665 + (let ((__tmp117666 |gxc[1]#_g117667_|)) (declare (not safe)) - (cons 'id __tmp117662)))) + (cons 'id __tmp117666)))) (declare (not safe)) - (cons __tmp117661 '())))) + (cons __tmp117665 '())))) (declare (not safe)) - (cons __tmp117664 __tmp117660)))) + (cons __tmp117668 __tmp117664)))) (declare (not safe)) - (cons __tmp117667 __tmp117659)))) + (cons __tmp117671 __tmp117663)))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117658 + __obj117111 + __tmp117662 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117670 - (let ((__tmp117679 - (let ((__tmp117680 |gxc[1]#_g117681_|)) + (let ((__tmp117674 + (let ((__tmp117683 + (let ((__tmp117684 |gxc[1]#_g117685_|)) (declare (not safe)) - (cons 'slot __tmp117680))) - (__tmp117671 - (let ((__tmp117676 - (let ((__tmp117677 |gxc[1]#_g117678_|)) + (cons 'slot __tmp117684))) + (__tmp117675 + (let ((__tmp117680 + (let ((__tmp117681 |gxc[1]#_g117682_|)) (declare (not safe)) - (cons 'checked? __tmp117677))) - (__tmp117672 - (let ((__tmp117673 - (let ((__tmp117674 |gxc[1]#_g117675_|)) + (cons 'checked? __tmp117681))) + (__tmp117676 + (let ((__tmp117677 + (let ((__tmp117678 |gxc[1]#_g117679_|)) (declare (not safe)) - (cons 'id __tmp117674)))) + (cons 'id __tmp117678)))) (declare (not safe)) - (cons __tmp117673 '())))) + (cons __tmp117677 '())))) (declare (not safe)) - (cons __tmp117676 __tmp117672)))) + (cons __tmp117680 __tmp117676)))) (declare (not safe)) - (cons __tmp117679 __tmp117671)))) + (cons __tmp117683 __tmp117675)))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117670 + __obj117111 + __tmp117674 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117107)) + __obj117111)) (define |gxc[:0:]#!mutator| - (let ((__obj117108 + (let ((__obj117112 (let () (declare (not safe)) (##structure @@ -3451,7 +3451,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117112 'gxc#!mutator::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3459,7 +3459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117112 '!mutator '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3467,26 +3467,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117112 '(slot checked?) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117682 - (let ((__tmp117683 |gxc[1]#_g117579_|)) + (let ((__tmp117686 + (let ((__tmp117687 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons __tmp117683 '())))) + (cons __tmp117687 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117682 + __obj117112 + __tmp117686 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117112 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3494,7 +3494,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117112 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3502,7 +3502,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117112 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3510,150 +3510,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117112 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117684 |gxc[1]#_g117685_|)) + (let ((__tmp117688 |gxc[1]#_g117689_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117684 + __obj117112 + __tmp117688 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117686 |gxc[1]#_g117687_|)) + (let ((__tmp117690 |gxc[1]#_g117691_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117686 + __obj117112 + __tmp117690 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117688 |gxc[1]#_g117689_|)) + (let ((__tmp117692 |gxc[1]#_g117693_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117688 + __obj117112 + __tmp117692 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117690 - (let ((__tmp117699 - (let ((__tmp117700 |gxc[1]#_g117701_|)) + (let ((__tmp117694 + (let ((__tmp117703 + (let ((__tmp117704 |gxc[1]#_g117705_|)) (declare (not safe)) - (cons 'slot __tmp117700))) - (__tmp117691 - (let ((__tmp117696 - (let ((__tmp117697 |gxc[1]#_g117698_|)) + (cons 'slot __tmp117704))) + (__tmp117695 + (let ((__tmp117700 + (let ((__tmp117701 |gxc[1]#_g117702_|)) (declare (not safe)) - (cons 'checked? __tmp117697))) - (__tmp117692 - (let ((__tmp117693 - (let ((__tmp117694 |gxc[1]#_g117695_|)) + (cons 'checked? __tmp117701))) + (__tmp117696 + (let ((__tmp117697 + (let ((__tmp117698 |gxc[1]#_g117699_|)) (declare (not safe)) - (cons 'id __tmp117694)))) + (cons 'id __tmp117698)))) (declare (not safe)) - (cons __tmp117693 '())))) + (cons __tmp117697 '())))) (declare (not safe)) - (cons __tmp117696 __tmp117692)))) + (cons __tmp117700 __tmp117696)))) (declare (not safe)) - (cons __tmp117699 __tmp117691)))) + (cons __tmp117703 __tmp117695)))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117690 + __obj117112 + __tmp117694 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117702 - (let ((__tmp117711 - (let ((__tmp117712 |gxc[1]#_g117713_|)) + (let ((__tmp117706 + (let ((__tmp117715 + (let ((__tmp117716 |gxc[1]#_g117717_|)) (declare (not safe)) - (cons 'slot __tmp117712))) - (__tmp117703 - (let ((__tmp117708 - (let ((__tmp117709 |gxc[1]#_g117710_|)) + (cons 'slot __tmp117716))) + (__tmp117707 + (let ((__tmp117712 + (let ((__tmp117713 |gxc[1]#_g117714_|)) (declare (not safe)) - (cons 'checked? __tmp117709))) - (__tmp117704 - (let ((__tmp117705 - (let ((__tmp117706 |gxc[1]#_g117707_|)) + (cons 'checked? __tmp117713))) + (__tmp117708 + (let ((__tmp117709 + (let ((__tmp117710 |gxc[1]#_g117711_|)) (declare (not safe)) - (cons 'id __tmp117706)))) + (cons 'id __tmp117710)))) (declare (not safe)) - (cons __tmp117705 '())))) + (cons __tmp117709 '())))) (declare (not safe)) - (cons __tmp117708 __tmp117704)))) + (cons __tmp117712 __tmp117708)))) (declare (not safe)) - (cons __tmp117711 __tmp117703)))) + (cons __tmp117715 __tmp117707)))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117702 + __obj117112 + __tmp117706 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117714 - (let ((__tmp117723 - (let ((__tmp117724 |gxc[1]#_g117725_|)) + (let ((__tmp117718 + (let ((__tmp117727 + (let ((__tmp117728 |gxc[1]#_g117729_|)) (declare (not safe)) - (cons 'slot __tmp117724))) - (__tmp117715 - (let ((__tmp117720 - (let ((__tmp117721 |gxc[1]#_g117722_|)) + (cons 'slot __tmp117728))) + (__tmp117719 + (let ((__tmp117724 + (let ((__tmp117725 |gxc[1]#_g117726_|)) (declare (not safe)) - (cons 'checked? __tmp117721))) - (__tmp117716 - (let ((__tmp117717 - (let ((__tmp117718 |gxc[1]#_g117719_|)) + (cons 'checked? __tmp117725))) + (__tmp117720 + (let ((__tmp117721 + (let ((__tmp117722 |gxc[1]#_g117723_|)) (declare (not safe)) - (cons 'id __tmp117718)))) + (cons 'id __tmp117722)))) (declare (not safe)) - (cons __tmp117717 '())))) + (cons __tmp117721 '())))) (declare (not safe)) - (cons __tmp117720 __tmp117716)))) + (cons __tmp117724 __tmp117720)))) (declare (not safe)) - (cons __tmp117723 __tmp117715)))) + (cons __tmp117727 __tmp117719)))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117714 + __obj117112 + __tmp117718 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117726 - (let ((__tmp117735 - (let ((__tmp117736 |gxc[1]#_g117737_|)) + (let ((__tmp117730 + (let ((__tmp117739 + (let ((__tmp117740 |gxc[1]#_g117741_|)) (declare (not safe)) - (cons 'slot __tmp117736))) - (__tmp117727 - (let ((__tmp117732 - (let ((__tmp117733 |gxc[1]#_g117734_|)) + (cons 'slot __tmp117740))) + (__tmp117731 + (let ((__tmp117736 + (let ((__tmp117737 |gxc[1]#_g117738_|)) (declare (not safe)) - (cons 'checked? __tmp117733))) - (__tmp117728 - (let ((__tmp117729 - (let ((__tmp117730 |gxc[1]#_g117731_|)) + (cons 'checked? __tmp117737))) + (__tmp117732 + (let ((__tmp117733 + (let ((__tmp117734 |gxc[1]#_g117735_|)) (declare (not safe)) - (cons 'id __tmp117730)))) + (cons 'id __tmp117734)))) (declare (not safe)) - (cons __tmp117729 '())))) + (cons __tmp117733 '())))) (declare (not safe)) - (cons __tmp117732 __tmp117728)))) + (cons __tmp117736 __tmp117732)))) (declare (not safe)) - (cons __tmp117735 __tmp117727)))) + (cons __tmp117739 __tmp117731)))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117726 + __obj117112 + __tmp117730 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117108)) + __obj117112)) (define |gxc[:0:]#!lambda| - (let ((__obj117109 + (let ((__obj117113 (let () (declare (not safe)) (##structure @@ -3677,7 +3677,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117113 'gxc#!lambda::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3685,7 +3685,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117113 '!lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3693,26 +3693,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117113 '(arity dispatch inline inline-typedecl) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117738 - (let ((__tmp117739 |gxc[1]#_g117579_|)) + (let ((__tmp117742 + (let ((__tmp117743 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons __tmp117739 '())))) + (cons __tmp117743 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117738 + __obj117113 + __tmp117742 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117113 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3720,7 +3720,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117113 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3728,7 +3728,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117113 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3736,218 +3736,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117113 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117740 |gxc[1]#_g117741_|)) + (let ((__tmp117744 |gxc[1]#_g117745_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117740 + __obj117113 + __tmp117744 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117742 |gxc[1]#_g117743_|)) + (let ((__tmp117746 |gxc[1]#_g117747_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117742 + __obj117113 + __tmp117746 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117744 |gxc[1]#_g117745_|)) + (let ((__tmp117748 |gxc[1]#_g117749_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117744 + __obj117113 + __tmp117748 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117746 - (let ((__tmp117763 - (let ((__tmp117764 |gxc[1]#_g117765_|)) + (let ((__tmp117750 + (let ((__tmp117767 + (let ((__tmp117768 |gxc[1]#_g117769_|)) (declare (not safe)) - (cons 'arity __tmp117764))) - (__tmp117747 - (let ((__tmp117760 - (let ((__tmp117761 |gxc[1]#_g117762_|)) + (cons 'arity __tmp117768))) + (__tmp117751 + (let ((__tmp117764 + (let ((__tmp117765 |gxc[1]#_g117766_|)) (declare (not safe)) - (cons 'dispatch __tmp117761))) - (__tmp117748 - (let ((__tmp117757 - (let ((__tmp117758 |gxc[1]#_g117759_|)) + (cons 'dispatch __tmp117765))) + (__tmp117752 + (let ((__tmp117761 + (let ((__tmp117762 |gxc[1]#_g117763_|)) (declare (not safe)) - (cons 'inline __tmp117758))) - (__tmp117749 - (let ((__tmp117754 - (let ((__tmp117755 - |gxc[1]#_g117756_|)) + (cons 'inline __tmp117762))) + (__tmp117753 + (let ((__tmp117758 + (let ((__tmp117759 + |gxc[1]#_g117760_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp117755))) - (__tmp117750 - (let ((__tmp117751 - (let ((__tmp117752 - |gxc[1]#_g117753_|)) + __tmp117759))) + (__tmp117754 + (let ((__tmp117755 + (let ((__tmp117756 + |gxc[1]#_g117757_|)) (declare (not safe)) - (cons 'id __tmp117752)))) + (cons 'id __tmp117756)))) (declare (not safe)) - (cons __tmp117751 '())))) + (cons __tmp117755 '())))) (declare (not safe)) - (cons __tmp117754 __tmp117750)))) + (cons __tmp117758 __tmp117754)))) (declare (not safe)) - (cons __tmp117757 __tmp117749)))) + (cons __tmp117761 __tmp117753)))) (declare (not safe)) - (cons __tmp117760 __tmp117748)))) + (cons __tmp117764 __tmp117752)))) (declare (not safe)) - (cons __tmp117763 __tmp117747)))) + (cons __tmp117767 __tmp117751)))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117746 + __obj117113 + __tmp117750 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117766 - (let ((__tmp117783 - (let ((__tmp117784 |gxc[1]#_g117785_|)) + (let ((__tmp117770 + (let ((__tmp117787 + (let ((__tmp117788 |gxc[1]#_g117789_|)) (declare (not safe)) - (cons 'arity __tmp117784))) - (__tmp117767 - (let ((__tmp117780 - (let ((__tmp117781 |gxc[1]#_g117782_|)) + (cons 'arity __tmp117788))) + (__tmp117771 + (let ((__tmp117784 + (let ((__tmp117785 |gxc[1]#_g117786_|)) (declare (not safe)) - (cons 'dispatch __tmp117781))) - (__tmp117768 - (let ((__tmp117777 - (let ((__tmp117778 |gxc[1]#_g117779_|)) + (cons 'dispatch __tmp117785))) + (__tmp117772 + (let ((__tmp117781 + (let ((__tmp117782 |gxc[1]#_g117783_|)) (declare (not safe)) - (cons 'inline __tmp117778))) - (__tmp117769 - (let ((__tmp117774 - (let ((__tmp117775 - |gxc[1]#_g117776_|)) + (cons 'inline __tmp117782))) + (__tmp117773 + (let ((__tmp117778 + (let ((__tmp117779 + |gxc[1]#_g117780_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp117775))) - (__tmp117770 - (let ((__tmp117771 - (let ((__tmp117772 - |gxc[1]#_g117773_|)) + __tmp117779))) + (__tmp117774 + (let ((__tmp117775 + (let ((__tmp117776 + |gxc[1]#_g117777_|)) (declare (not safe)) - (cons 'id __tmp117772)))) + (cons 'id __tmp117776)))) (declare (not safe)) - (cons __tmp117771 '())))) + (cons __tmp117775 '())))) (declare (not safe)) - (cons __tmp117774 __tmp117770)))) + (cons __tmp117778 __tmp117774)))) (declare (not safe)) - (cons __tmp117777 __tmp117769)))) + (cons __tmp117781 __tmp117773)))) (declare (not safe)) - (cons __tmp117780 __tmp117768)))) + (cons __tmp117784 __tmp117772)))) (declare (not safe)) - (cons __tmp117783 __tmp117767)))) + (cons __tmp117787 __tmp117771)))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117766 + __obj117113 + __tmp117770 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117786 - (let ((__tmp117803 - (let ((__tmp117804 |gxc[1]#_g117805_|)) + (let ((__tmp117790 + (let ((__tmp117807 + (let ((__tmp117808 |gxc[1]#_g117809_|)) (declare (not safe)) - (cons 'arity __tmp117804))) - (__tmp117787 - (let ((__tmp117800 - (let ((__tmp117801 |gxc[1]#_g117802_|)) + (cons 'arity __tmp117808))) + (__tmp117791 + (let ((__tmp117804 + (let ((__tmp117805 |gxc[1]#_g117806_|)) (declare (not safe)) - (cons 'dispatch __tmp117801))) - (__tmp117788 - (let ((__tmp117797 - (let ((__tmp117798 |gxc[1]#_g117799_|)) + (cons 'dispatch __tmp117805))) + (__tmp117792 + (let ((__tmp117801 + (let ((__tmp117802 |gxc[1]#_g117803_|)) (declare (not safe)) - (cons 'inline __tmp117798))) - (__tmp117789 - (let ((__tmp117794 - (let ((__tmp117795 - |gxc[1]#_g117796_|)) + (cons 'inline __tmp117802))) + (__tmp117793 + (let ((__tmp117798 + (let ((__tmp117799 + |gxc[1]#_g117800_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp117795))) - (__tmp117790 - (let ((__tmp117791 - (let ((__tmp117792 - |gxc[1]#_g117793_|)) + __tmp117799))) + (__tmp117794 + (let ((__tmp117795 + (let ((__tmp117796 + |gxc[1]#_g117797_|)) (declare (not safe)) - (cons 'id __tmp117792)))) + (cons 'id __tmp117796)))) (declare (not safe)) - (cons __tmp117791 '())))) + (cons __tmp117795 '())))) (declare (not safe)) - (cons __tmp117794 __tmp117790)))) + (cons __tmp117798 __tmp117794)))) (declare (not safe)) - (cons __tmp117797 __tmp117789)))) + (cons __tmp117801 __tmp117793)))) (declare (not safe)) - (cons __tmp117800 __tmp117788)))) + (cons __tmp117804 __tmp117792)))) (declare (not safe)) - (cons __tmp117803 __tmp117787)))) + (cons __tmp117807 __tmp117791)))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117786 + __obj117113 + __tmp117790 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117806 - (let ((__tmp117823 - (let ((__tmp117824 |gxc[1]#_g117825_|)) + (let ((__tmp117810 + (let ((__tmp117827 + (let ((__tmp117828 |gxc[1]#_g117829_|)) (declare (not safe)) - (cons 'arity __tmp117824))) - (__tmp117807 - (let ((__tmp117820 - (let ((__tmp117821 |gxc[1]#_g117822_|)) + (cons 'arity __tmp117828))) + (__tmp117811 + (let ((__tmp117824 + (let ((__tmp117825 |gxc[1]#_g117826_|)) (declare (not safe)) - (cons 'dispatch __tmp117821))) - (__tmp117808 - (let ((__tmp117817 - (let ((__tmp117818 |gxc[1]#_g117819_|)) + (cons 'dispatch __tmp117825))) + (__tmp117812 + (let ((__tmp117821 + (let ((__tmp117822 |gxc[1]#_g117823_|)) (declare (not safe)) - (cons 'inline __tmp117818))) - (__tmp117809 - (let ((__tmp117814 - (let ((__tmp117815 - |gxc[1]#_g117816_|)) + (cons 'inline __tmp117822))) + (__tmp117813 + (let ((__tmp117818 + (let ((__tmp117819 + |gxc[1]#_g117820_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp117815))) - (__tmp117810 - (let ((__tmp117811 - (let ((__tmp117812 - |gxc[1]#_g117813_|)) + __tmp117819))) + (__tmp117814 + (let ((__tmp117815 + (let ((__tmp117816 + |gxc[1]#_g117817_|)) (declare (not safe)) - (cons 'id __tmp117812)))) + (cons 'id __tmp117816)))) (declare (not safe)) - (cons __tmp117811 '())))) + (cons __tmp117815 '())))) (declare (not safe)) - (cons __tmp117814 __tmp117810)))) + (cons __tmp117818 __tmp117814)))) (declare (not safe)) - (cons __tmp117817 __tmp117809)))) + (cons __tmp117821 __tmp117813)))) (declare (not safe)) - (cons __tmp117820 __tmp117808)))) + (cons __tmp117824 __tmp117812)))) (declare (not safe)) - (cons __tmp117823 __tmp117807)))) + (cons __tmp117827 __tmp117811)))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117806 + __obj117113 + __tmp117810 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117109)) + __obj117113)) (define |gxc[:0:]#!case-lambda| - (let ((__obj117110 + (let ((__obj117114 (let () (declare (not safe)) (##structure @@ -3971,7 +3971,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117114 'gxc#!case-lambda::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3979,7 +3979,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117114 '!case-lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3987,26 +3987,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117114 '(clauses) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117826 - (let ((__tmp117827 |gxc[1]#_g117579_|)) + (let ((__tmp117830 + (let ((__tmp117831 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons __tmp117827 '())))) + (cons __tmp117831 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117826 + __obj117114 + __tmp117830 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117114 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4014,7 +4014,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117114 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4022,7 +4022,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117114 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4030,122 +4030,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117114 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117828 |gxc[1]#_g117829_|)) + (let ((__tmp117832 |gxc[1]#_g117833_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117828 + __obj117114 + __tmp117832 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117830 |gxc[1]#_g117831_|)) + (let ((__tmp117834 |gxc[1]#_g117835_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117830 + __obj117114 + __tmp117834 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117832 |gxc[1]#_g117833_|)) + (let ((__tmp117836 |gxc[1]#_g117837_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117832 + __obj117114 + __tmp117836 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117834 - (let ((__tmp117839 - (let ((__tmp117840 |gxc[1]#_g117841_|)) + (let ((__tmp117838 + (let ((__tmp117843 + (let ((__tmp117844 |gxc[1]#_g117845_|)) (declare (not safe)) - (cons 'clauses __tmp117840))) - (__tmp117835 - (let ((__tmp117836 - (let ((__tmp117837 |gxc[1]#_g117838_|)) + (cons 'clauses __tmp117844))) + (__tmp117839 + (let ((__tmp117840 + (let ((__tmp117841 |gxc[1]#_g117842_|)) (declare (not safe)) - (cons 'id __tmp117837)))) + (cons 'id __tmp117841)))) (declare (not safe)) - (cons __tmp117836 '())))) + (cons __tmp117840 '())))) (declare (not safe)) - (cons __tmp117839 __tmp117835)))) + (cons __tmp117843 __tmp117839)))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117834 + __obj117114 + __tmp117838 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117842 - (let ((__tmp117847 - (let ((__tmp117848 |gxc[1]#_g117849_|)) + (let ((__tmp117846 + (let ((__tmp117851 + (let ((__tmp117852 |gxc[1]#_g117853_|)) (declare (not safe)) - (cons 'clauses __tmp117848))) - (__tmp117843 - (let ((__tmp117844 - (let ((__tmp117845 |gxc[1]#_g117846_|)) + (cons 'clauses __tmp117852))) + (__tmp117847 + (let ((__tmp117848 + (let ((__tmp117849 |gxc[1]#_g117850_|)) (declare (not safe)) - (cons 'id __tmp117845)))) + (cons 'id __tmp117849)))) (declare (not safe)) - (cons __tmp117844 '())))) + (cons __tmp117848 '())))) (declare (not safe)) - (cons __tmp117847 __tmp117843)))) + (cons __tmp117851 __tmp117847)))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117842 + __obj117114 + __tmp117846 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117850 - (let ((__tmp117855 - (let ((__tmp117856 |gxc[1]#_g117857_|)) + (let ((__tmp117854 + (let ((__tmp117859 + (let ((__tmp117860 |gxc[1]#_g117861_|)) (declare (not safe)) - (cons 'clauses __tmp117856))) - (__tmp117851 - (let ((__tmp117852 - (let ((__tmp117853 |gxc[1]#_g117854_|)) + (cons 'clauses __tmp117860))) + (__tmp117855 + (let ((__tmp117856 + (let ((__tmp117857 |gxc[1]#_g117858_|)) (declare (not safe)) - (cons 'id __tmp117853)))) + (cons 'id __tmp117857)))) (declare (not safe)) - (cons __tmp117852 '())))) + (cons __tmp117856 '())))) (declare (not safe)) - (cons __tmp117855 __tmp117851)))) + (cons __tmp117859 __tmp117855)))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117850 + __obj117114 + __tmp117854 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117858 - (let ((__tmp117863 - (let ((__tmp117864 |gxc[1]#_g117865_|)) + (let ((__tmp117862 + (let ((__tmp117867 + (let ((__tmp117868 |gxc[1]#_g117869_|)) (declare (not safe)) - (cons 'clauses __tmp117864))) - (__tmp117859 - (let ((__tmp117860 - (let ((__tmp117861 |gxc[1]#_g117862_|)) + (cons 'clauses __tmp117868))) + (__tmp117863 + (let ((__tmp117864 + (let ((__tmp117865 |gxc[1]#_g117866_|)) (declare (not safe)) - (cons 'id __tmp117861)))) + (cons 'id __tmp117865)))) (declare (not safe)) - (cons __tmp117860 '())))) + (cons __tmp117864 '())))) (declare (not safe)) - (cons __tmp117863 __tmp117859)))) + (cons __tmp117867 __tmp117863)))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117858 + __obj117114 + __tmp117862 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117110)) + __obj117114)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj117111 + (let ((__obj117115 (let () (declare (not safe)) (##structure @@ -4169,7 +4169,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117115 'gxc#!kw-lambda::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4177,7 +4177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117115 '!kw-lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4185,26 +4185,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117115 '(table dispatch) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117866 - (let ((__tmp117867 |gxc[1]#_g117579_|)) + (let ((__tmp117870 + (let ((__tmp117871 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons __tmp117867 '())))) + (cons __tmp117871 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117866 + __obj117115 + __tmp117870 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117115 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4212,7 +4212,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117115 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4220,7 +4220,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117115 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4228,150 +4228,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117115 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117868 |gxc[1]#_g117869_|)) + (let ((__tmp117872 |gxc[1]#_g117873_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117868 + __obj117115 + __tmp117872 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117870 |gxc[1]#_g117871_|)) + (let ((__tmp117874 |gxc[1]#_g117875_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117870 + __obj117115 + __tmp117874 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117872 |gxc[1]#_g117873_|)) + (let ((__tmp117876 |gxc[1]#_g117877_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117872 + __obj117115 + __tmp117876 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117874 - (let ((__tmp117883 - (let ((__tmp117884 |gxc[1]#_g117885_|)) + (let ((__tmp117878 + (let ((__tmp117887 + (let ((__tmp117888 |gxc[1]#_g117889_|)) (declare (not safe)) - (cons 'table __tmp117884))) - (__tmp117875 - (let ((__tmp117880 - (let ((__tmp117881 |gxc[1]#_g117882_|)) + (cons 'table __tmp117888))) + (__tmp117879 + (let ((__tmp117884 + (let ((__tmp117885 |gxc[1]#_g117886_|)) (declare (not safe)) - (cons 'dispatch __tmp117881))) - (__tmp117876 - (let ((__tmp117877 - (let ((__tmp117878 |gxc[1]#_g117879_|)) + (cons 'dispatch __tmp117885))) + (__tmp117880 + (let ((__tmp117881 + (let ((__tmp117882 |gxc[1]#_g117883_|)) (declare (not safe)) - (cons 'id __tmp117878)))) + (cons 'id __tmp117882)))) (declare (not safe)) - (cons __tmp117877 '())))) + (cons __tmp117881 '())))) (declare (not safe)) - (cons __tmp117880 __tmp117876)))) + (cons __tmp117884 __tmp117880)))) (declare (not safe)) - (cons __tmp117883 __tmp117875)))) + (cons __tmp117887 __tmp117879)))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117874 + __obj117115 + __tmp117878 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117886 - (let ((__tmp117895 - (let ((__tmp117896 |gxc[1]#_g117897_|)) + (let ((__tmp117890 + (let ((__tmp117899 + (let ((__tmp117900 |gxc[1]#_g117901_|)) (declare (not safe)) - (cons 'table __tmp117896))) - (__tmp117887 - (let ((__tmp117892 - (let ((__tmp117893 |gxc[1]#_g117894_|)) + (cons 'table __tmp117900))) + (__tmp117891 + (let ((__tmp117896 + (let ((__tmp117897 |gxc[1]#_g117898_|)) (declare (not safe)) - (cons 'dispatch __tmp117893))) - (__tmp117888 - (let ((__tmp117889 - (let ((__tmp117890 |gxc[1]#_g117891_|)) + (cons 'dispatch __tmp117897))) + (__tmp117892 + (let ((__tmp117893 + (let ((__tmp117894 |gxc[1]#_g117895_|)) (declare (not safe)) - (cons 'id __tmp117890)))) + (cons 'id __tmp117894)))) (declare (not safe)) - (cons __tmp117889 '())))) + (cons __tmp117893 '())))) (declare (not safe)) - (cons __tmp117892 __tmp117888)))) + (cons __tmp117896 __tmp117892)))) (declare (not safe)) - (cons __tmp117895 __tmp117887)))) + (cons __tmp117899 __tmp117891)))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117886 + __obj117115 + __tmp117890 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117898 - (let ((__tmp117907 - (let ((__tmp117908 |gxc[1]#_g117909_|)) + (let ((__tmp117902 + (let ((__tmp117911 + (let ((__tmp117912 |gxc[1]#_g117913_|)) (declare (not safe)) - (cons 'table __tmp117908))) - (__tmp117899 - (let ((__tmp117904 - (let ((__tmp117905 |gxc[1]#_g117906_|)) + (cons 'table __tmp117912))) + (__tmp117903 + (let ((__tmp117908 + (let ((__tmp117909 |gxc[1]#_g117910_|)) (declare (not safe)) - (cons 'dispatch __tmp117905))) - (__tmp117900 - (let ((__tmp117901 - (let ((__tmp117902 |gxc[1]#_g117903_|)) + (cons 'dispatch __tmp117909))) + (__tmp117904 + (let ((__tmp117905 + (let ((__tmp117906 |gxc[1]#_g117907_|)) (declare (not safe)) - (cons 'id __tmp117902)))) + (cons 'id __tmp117906)))) (declare (not safe)) - (cons __tmp117901 '())))) + (cons __tmp117905 '())))) (declare (not safe)) - (cons __tmp117904 __tmp117900)))) + (cons __tmp117908 __tmp117904)))) (declare (not safe)) - (cons __tmp117907 __tmp117899)))) + (cons __tmp117911 __tmp117903)))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117898 + __obj117115 + __tmp117902 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117910 - (let ((__tmp117919 - (let ((__tmp117920 |gxc[1]#_g117921_|)) + (let ((__tmp117914 + (let ((__tmp117923 + (let ((__tmp117924 |gxc[1]#_g117925_|)) (declare (not safe)) - (cons 'table __tmp117920))) - (__tmp117911 - (let ((__tmp117916 - (let ((__tmp117917 |gxc[1]#_g117918_|)) + (cons 'table __tmp117924))) + (__tmp117915 + (let ((__tmp117920 + (let ((__tmp117921 |gxc[1]#_g117922_|)) (declare (not safe)) - (cons 'dispatch __tmp117917))) - (__tmp117912 - (let ((__tmp117913 - (let ((__tmp117914 |gxc[1]#_g117915_|)) + (cons 'dispatch __tmp117921))) + (__tmp117916 + (let ((__tmp117917 + (let ((__tmp117918 |gxc[1]#_g117919_|)) (declare (not safe)) - (cons 'id __tmp117914)))) + (cons 'id __tmp117918)))) (declare (not safe)) - (cons __tmp117913 '())))) + (cons __tmp117917 '())))) (declare (not safe)) - (cons __tmp117916 __tmp117912)))) + (cons __tmp117920 __tmp117916)))) (declare (not safe)) - (cons __tmp117919 __tmp117911)))) + (cons __tmp117923 __tmp117915)))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117910 + __obj117115 + __tmp117914 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117111)) + __obj117115)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj117112 + (let ((__obj117116 (let () (declare (not safe)) (##structure @@ -4395,7 +4395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117116 'gxc#!kw-lambda-primary::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4403,7 +4403,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117116 '!kw-lambda-primary '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4411,26 +4411,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117116 '(keys main) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117922 - (let ((__tmp117923 |gxc[1]#_g117579_|)) + (let ((__tmp117926 + (let ((__tmp117927 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons __tmp117923 '())))) + (cons __tmp117927 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117922 + __obj117116 + __tmp117926 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117116 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4438,7 +4438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117116 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4446,7 +4446,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117116 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4454,150 +4454,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117116 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117924 |gxc[1]#_g117925_|)) + (let ((__tmp117928 |gxc[1]#_g117929_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117924 + __obj117116 + __tmp117928 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117926 |gxc[1]#_g117927_|)) + (let ((__tmp117930 |gxc[1]#_g117931_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117926 + __obj117116 + __tmp117930 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117928 |gxc[1]#_g117929_|)) + (let ((__tmp117932 |gxc[1]#_g117933_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117928 + __obj117116 + __tmp117932 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117930 - (let ((__tmp117939 - (let ((__tmp117940 |gxc[1]#_g117941_|)) + (let ((__tmp117934 + (let ((__tmp117943 + (let ((__tmp117944 |gxc[1]#_g117945_|)) (declare (not safe)) - (cons 'keys __tmp117940))) - (__tmp117931 - (let ((__tmp117936 - (let ((__tmp117937 |gxc[1]#_g117938_|)) + (cons 'keys __tmp117944))) + (__tmp117935 + (let ((__tmp117940 + (let ((__tmp117941 |gxc[1]#_g117942_|)) (declare (not safe)) - (cons 'main __tmp117937))) - (__tmp117932 - (let ((__tmp117933 - (let ((__tmp117934 |gxc[1]#_g117935_|)) + (cons 'main __tmp117941))) + (__tmp117936 + (let ((__tmp117937 + (let ((__tmp117938 |gxc[1]#_g117939_|)) (declare (not safe)) - (cons 'id __tmp117934)))) + (cons 'id __tmp117938)))) (declare (not safe)) - (cons __tmp117933 '())))) + (cons __tmp117937 '())))) (declare (not safe)) - (cons __tmp117936 __tmp117932)))) + (cons __tmp117940 __tmp117936)))) (declare (not safe)) - (cons __tmp117939 __tmp117931)))) + (cons __tmp117943 __tmp117935)))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117930 + __obj117116 + __tmp117934 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117942 - (let ((__tmp117951 - (let ((__tmp117952 |gxc[1]#_g117953_|)) + (let ((__tmp117946 + (let ((__tmp117955 + (let ((__tmp117956 |gxc[1]#_g117957_|)) (declare (not safe)) - (cons 'keys __tmp117952))) - (__tmp117943 - (let ((__tmp117948 - (let ((__tmp117949 |gxc[1]#_g117950_|)) + (cons 'keys __tmp117956))) + (__tmp117947 + (let ((__tmp117952 + (let ((__tmp117953 |gxc[1]#_g117954_|)) (declare (not safe)) - (cons 'main __tmp117949))) - (__tmp117944 - (let ((__tmp117945 - (let ((__tmp117946 |gxc[1]#_g117947_|)) + (cons 'main __tmp117953))) + (__tmp117948 + (let ((__tmp117949 + (let ((__tmp117950 |gxc[1]#_g117951_|)) (declare (not safe)) - (cons 'id __tmp117946)))) + (cons 'id __tmp117950)))) (declare (not safe)) - (cons __tmp117945 '())))) + (cons __tmp117949 '())))) (declare (not safe)) - (cons __tmp117948 __tmp117944)))) + (cons __tmp117952 __tmp117948)))) (declare (not safe)) - (cons __tmp117951 __tmp117943)))) + (cons __tmp117955 __tmp117947)))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117942 + __obj117116 + __tmp117946 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117954 - (let ((__tmp117963 - (let ((__tmp117964 |gxc[1]#_g117965_|)) + (let ((__tmp117958 + (let ((__tmp117967 + (let ((__tmp117968 |gxc[1]#_g117969_|)) (declare (not safe)) - (cons 'keys __tmp117964))) - (__tmp117955 - (let ((__tmp117960 - (let ((__tmp117961 |gxc[1]#_g117962_|)) + (cons 'keys __tmp117968))) + (__tmp117959 + (let ((__tmp117964 + (let ((__tmp117965 |gxc[1]#_g117966_|)) (declare (not safe)) - (cons 'main __tmp117961))) - (__tmp117956 - (let ((__tmp117957 - (let ((__tmp117958 |gxc[1]#_g117959_|)) + (cons 'main __tmp117965))) + (__tmp117960 + (let ((__tmp117961 + (let ((__tmp117962 |gxc[1]#_g117963_|)) (declare (not safe)) - (cons 'id __tmp117958)))) + (cons 'id __tmp117962)))) (declare (not safe)) - (cons __tmp117957 '())))) + (cons __tmp117961 '())))) (declare (not safe)) - (cons __tmp117960 __tmp117956)))) + (cons __tmp117964 __tmp117960)))) (declare (not safe)) - (cons __tmp117963 __tmp117955)))) + (cons __tmp117967 __tmp117959)))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117954 + __obj117116 + __tmp117958 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117966 - (let ((__tmp117975 - (let ((__tmp117976 |gxc[1]#_g117977_|)) + (let ((__tmp117970 + (let ((__tmp117979 + (let ((__tmp117980 |gxc[1]#_g117981_|)) (declare (not safe)) - (cons 'keys __tmp117976))) - (__tmp117967 - (let ((__tmp117972 - (let ((__tmp117973 |gxc[1]#_g117974_|)) + (cons 'keys __tmp117980))) + (__tmp117971 + (let ((__tmp117976 + (let ((__tmp117977 |gxc[1]#_g117978_|)) (declare (not safe)) - (cons 'main __tmp117973))) - (__tmp117968 - (let ((__tmp117969 - (let ((__tmp117970 |gxc[1]#_g117971_|)) + (cons 'main __tmp117977))) + (__tmp117972 + (let ((__tmp117973 + (let ((__tmp117974 |gxc[1]#_g117975_|)) (declare (not safe)) - (cons 'id __tmp117970)))) + (cons 'id __tmp117974)))) (declare (not safe)) - (cons __tmp117969 '())))) + (cons __tmp117973 '())))) (declare (not safe)) - (cons __tmp117972 __tmp117968)))) + (cons __tmp117976 __tmp117972)))) (declare (not safe)) - (cons __tmp117975 __tmp117967)))) + (cons __tmp117979 __tmp117971)))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117966 + __obj117116 + __tmp117970 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117112)) + __obj117116)) (define |gxc[:0:]#!primitive| - (let ((__obj117113 + (let ((__obj117117 (let () (declare (not safe)) (##structure @@ -4621,7 +4621,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 'gxc#!primitive::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4629,7 +4629,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '!primitive '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4637,7 +4637,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -4653,7 +4653,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4661,7 +4661,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4669,7 +4669,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4677,39 +4677,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117978 |gxc[1]#_g117979_|)) + (let ((__tmp117982 |gxc[1]#_g117983_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117978 + __obj117117 + __tmp117982 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117980 |gxc[1]#_g117981_|)) + (let ((__tmp117984 |gxc[1]#_g117985_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117980 + __obj117117 + __tmp117984 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117982 |gxc[1]#_g117983_|)) + (let ((__tmp117986 |gxc[1]#_g117987_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117982 + __obj117117 + __tmp117986 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4717,7 +4717,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4725,7 +4725,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4733,14 +4733,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117117 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117113)) + __obj117117)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj117114 + (let ((__obj117118 (let () (declare (not safe)) (##structure @@ -4764,7 +4764,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117118 'gxc#!primitive-lambda::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4772,7 +4772,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117118 '!primitive-lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4780,30 +4780,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117118 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117984 - (let ((__tmp117988 |gxc[1]#_g117989_|) - (__tmp117985 - (let ((__tmp117986 |gxc[1]#_g117987_|)) + (let ((__tmp117988 + (let ((__tmp117992 |gxc[1]#_g117993_|) + (__tmp117989 + (let ((__tmp117990 |gxc[1]#_g117991_|)) (declare (not safe)) - (cons __tmp117986 '())))) + (cons __tmp117990 '())))) (declare (not safe)) - (cons __tmp117988 __tmp117985)))) + (cons __tmp117992 __tmp117989)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117984 + __obj117118 + __tmp117988 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117118 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4811,7 +4811,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117118 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4819,7 +4819,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117118 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4827,218 +4827,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117118 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117990 |gxc[1]#_g117991_|)) + (let ((__tmp117994 |gxc[1]#_g117995_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117990 + __obj117118 + __tmp117994 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117992 |gxc[1]#_g117993_|)) + (let ((__tmp117996 |gxc[1]#_g117997_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117992 + __obj117118 + __tmp117996 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117994 |gxc[1]#_g117995_|)) + (let ((__tmp117998 |gxc[1]#_g117999_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117994 + __obj117118 + __tmp117998 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117996 - (let ((__tmp118013 - (let ((__tmp118014 |gxc[1]#_g118015_|)) + (let ((__tmp118000 + (let ((__tmp118017 + (let ((__tmp118018 |gxc[1]#_g118019_|)) (declare (not safe)) - (cons 'arity __tmp118014))) - (__tmp117997 - (let ((__tmp118010 - (let ((__tmp118011 |gxc[1]#_g118012_|)) + (cons 'arity __tmp118018))) + (__tmp118001 + (let ((__tmp118014 + (let ((__tmp118015 |gxc[1]#_g118016_|)) (declare (not safe)) - (cons 'dispatch __tmp118011))) - (__tmp117998 - (let ((__tmp118007 - (let ((__tmp118008 |gxc[1]#_g118009_|)) + (cons 'dispatch __tmp118015))) + (__tmp118002 + (let ((__tmp118011 + (let ((__tmp118012 |gxc[1]#_g118013_|)) (declare (not safe)) - (cons 'inline __tmp118008))) - (__tmp117999 - (let ((__tmp118004 - (let ((__tmp118005 - |gxc[1]#_g118006_|)) + (cons 'inline __tmp118012))) + (__tmp118003 + (let ((__tmp118008 + (let ((__tmp118009 + |gxc[1]#_g118010_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp118005))) - (__tmp118000 - (let ((__tmp118001 - (let ((__tmp118002 - |gxc[1]#_g118003_|)) + __tmp118009))) + (__tmp118004 + (let ((__tmp118005 + (let ((__tmp118006 + |gxc[1]#_g118007_|)) (declare (not safe)) - (cons 'id __tmp118002)))) + (cons 'id __tmp118006)))) (declare (not safe)) - (cons __tmp118001 '())))) + (cons __tmp118005 '())))) (declare (not safe)) - (cons __tmp118004 __tmp118000)))) + (cons __tmp118008 __tmp118004)))) (declare (not safe)) - (cons __tmp118007 __tmp117999)))) + (cons __tmp118011 __tmp118003)))) (declare (not safe)) - (cons __tmp118010 __tmp117998)))) + (cons __tmp118014 __tmp118002)))) (declare (not safe)) - (cons __tmp118013 __tmp117997)))) + (cons __tmp118017 __tmp118001)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117996 + __obj117118 + __tmp118000 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118016 - (let ((__tmp118033 - (let ((__tmp118034 |gxc[1]#_g118035_|)) + (let ((__tmp118020 + (let ((__tmp118037 + (let ((__tmp118038 |gxc[1]#_g118039_|)) (declare (not safe)) - (cons 'arity __tmp118034))) - (__tmp118017 - (let ((__tmp118030 - (let ((__tmp118031 |gxc[1]#_g118032_|)) + (cons 'arity __tmp118038))) + (__tmp118021 + (let ((__tmp118034 + (let ((__tmp118035 |gxc[1]#_g118036_|)) (declare (not safe)) - (cons 'dispatch __tmp118031))) - (__tmp118018 - (let ((__tmp118027 - (let ((__tmp118028 |gxc[1]#_g118029_|)) + (cons 'dispatch __tmp118035))) + (__tmp118022 + (let ((__tmp118031 + (let ((__tmp118032 |gxc[1]#_g118033_|)) (declare (not safe)) - (cons 'inline __tmp118028))) - (__tmp118019 - (let ((__tmp118024 - (let ((__tmp118025 - |gxc[1]#_g118026_|)) + (cons 'inline __tmp118032))) + (__tmp118023 + (let ((__tmp118028 + (let ((__tmp118029 + |gxc[1]#_g118030_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp118025))) - (__tmp118020 - (let ((__tmp118021 - (let ((__tmp118022 - |gxc[1]#_g118023_|)) + __tmp118029))) + (__tmp118024 + (let ((__tmp118025 + (let ((__tmp118026 + |gxc[1]#_g118027_|)) (declare (not safe)) - (cons 'id __tmp118022)))) + (cons 'id __tmp118026)))) (declare (not safe)) - (cons __tmp118021 '())))) + (cons __tmp118025 '())))) (declare (not safe)) - (cons __tmp118024 __tmp118020)))) + (cons __tmp118028 __tmp118024)))) (declare (not safe)) - (cons __tmp118027 __tmp118019)))) + (cons __tmp118031 __tmp118023)))) (declare (not safe)) - (cons __tmp118030 __tmp118018)))) + (cons __tmp118034 __tmp118022)))) (declare (not safe)) - (cons __tmp118033 __tmp118017)))) + (cons __tmp118037 __tmp118021)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp118016 + __obj117118 + __tmp118020 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118036 - (let ((__tmp118053 - (let ((__tmp118054 |gxc[1]#_g118055_|)) + (let ((__tmp118040 + (let ((__tmp118057 + (let ((__tmp118058 |gxc[1]#_g118059_|)) (declare (not safe)) - (cons 'arity __tmp118054))) - (__tmp118037 - (let ((__tmp118050 - (let ((__tmp118051 |gxc[1]#_g118052_|)) + (cons 'arity __tmp118058))) + (__tmp118041 + (let ((__tmp118054 + (let ((__tmp118055 |gxc[1]#_g118056_|)) (declare (not safe)) - (cons 'dispatch __tmp118051))) - (__tmp118038 - (let ((__tmp118047 - (let ((__tmp118048 |gxc[1]#_g118049_|)) + (cons 'dispatch __tmp118055))) + (__tmp118042 + (let ((__tmp118051 + (let ((__tmp118052 |gxc[1]#_g118053_|)) (declare (not safe)) - (cons 'inline __tmp118048))) - (__tmp118039 - (let ((__tmp118044 - (let ((__tmp118045 - |gxc[1]#_g118046_|)) + (cons 'inline __tmp118052))) + (__tmp118043 + (let ((__tmp118048 + (let ((__tmp118049 + |gxc[1]#_g118050_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp118045))) - (__tmp118040 - (let ((__tmp118041 - (let ((__tmp118042 - |gxc[1]#_g118043_|)) + __tmp118049))) + (__tmp118044 + (let ((__tmp118045 + (let ((__tmp118046 + |gxc[1]#_g118047_|)) (declare (not safe)) - (cons 'id __tmp118042)))) + (cons 'id __tmp118046)))) (declare (not safe)) - (cons __tmp118041 '())))) + (cons __tmp118045 '())))) (declare (not safe)) - (cons __tmp118044 __tmp118040)))) + (cons __tmp118048 __tmp118044)))) (declare (not safe)) - (cons __tmp118047 __tmp118039)))) + (cons __tmp118051 __tmp118043)))) (declare (not safe)) - (cons __tmp118050 __tmp118038)))) + (cons __tmp118054 __tmp118042)))) (declare (not safe)) - (cons __tmp118053 __tmp118037)))) + (cons __tmp118057 __tmp118041)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp118036 + __obj117118 + __tmp118040 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118056 - (let ((__tmp118073 - (let ((__tmp118074 |gxc[1]#_g118075_|)) + (let ((__tmp118060 + (let ((__tmp118077 + (let ((__tmp118078 |gxc[1]#_g118079_|)) (declare (not safe)) - (cons 'arity __tmp118074))) - (__tmp118057 - (let ((__tmp118070 - (let ((__tmp118071 |gxc[1]#_g118072_|)) + (cons 'arity __tmp118078))) + (__tmp118061 + (let ((__tmp118074 + (let ((__tmp118075 |gxc[1]#_g118076_|)) (declare (not safe)) - (cons 'dispatch __tmp118071))) - (__tmp118058 - (let ((__tmp118067 - (let ((__tmp118068 |gxc[1]#_g118069_|)) + (cons 'dispatch __tmp118075))) + (__tmp118062 + (let ((__tmp118071 + (let ((__tmp118072 |gxc[1]#_g118073_|)) (declare (not safe)) - (cons 'inline __tmp118068))) - (__tmp118059 - (let ((__tmp118064 - (let ((__tmp118065 - |gxc[1]#_g118066_|)) + (cons 'inline __tmp118072))) + (__tmp118063 + (let ((__tmp118068 + (let ((__tmp118069 + |gxc[1]#_g118070_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp118065))) - (__tmp118060 - (let ((__tmp118061 - (let ((__tmp118062 - |gxc[1]#_g118063_|)) + __tmp118069))) + (__tmp118064 + (let ((__tmp118065 + (let ((__tmp118066 + |gxc[1]#_g118067_|)) (declare (not safe)) - (cons 'id __tmp118062)))) + (cons 'id __tmp118066)))) (declare (not safe)) - (cons __tmp118061 '())))) + (cons __tmp118065 '())))) (declare (not safe)) - (cons __tmp118064 __tmp118060)))) + (cons __tmp118068 __tmp118064)))) (declare (not safe)) - (cons __tmp118067 __tmp118059)))) + (cons __tmp118071 __tmp118063)))) (declare (not safe)) - (cons __tmp118070 __tmp118058)))) + (cons __tmp118074 __tmp118062)))) (declare (not safe)) - (cons __tmp118073 __tmp118057)))) + (cons __tmp118077 __tmp118061)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp118056 + __obj117118 + __tmp118060 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117114)) + __obj117118)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj117115 + (let ((__obj117119 (let () (declare (not safe)) (##structure @@ -5062,7 +5062,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117119 'gxc#!primitive-case-lambda::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -5070,7 +5070,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117119 '!primitive-case-lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5078,30 +5078,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117119 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118076 - (let ((__tmp118080 |gxc[1]#_g117989_|) - (__tmp118077 - (let ((__tmp118078 |gxc[1]#_g118079_|)) + (let ((__tmp118080 + (let ((__tmp118084 |gxc[1]#_g117993_|) + (__tmp118081 + (let ((__tmp118082 |gxc[1]#_g118083_|)) (declare (not safe)) - (cons __tmp118078 '())))) + (cons __tmp118082 '())))) (declare (not safe)) - (cons __tmp118080 __tmp118077)))) + (cons __tmp118084 __tmp118081)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp118076 + __obj117119 + __tmp118080 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117119 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5109,7 +5109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117119 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5117,7 +5117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117119 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -5125,117 +5125,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117119 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118081 |gxc[1]#_g118082_|)) + (let ((__tmp118085 |gxc[1]#_g118086_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp118081 + __obj117119 + __tmp118085 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118083 |gxc[1]#_g118084_|)) + (let ((__tmp118087 |gxc[1]#_g118088_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp118083 + __obj117119 + __tmp118087 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118085 |gxc[1]#_g118086_|)) + (let ((__tmp118089 |gxc[1]#_g118090_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp118085 + __obj117119 + __tmp118089 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118087 - (let ((__tmp118092 - (let ((__tmp118093 |gxc[1]#_g118094_|)) + (let ((__tmp118091 + (let ((__tmp118096 + (let ((__tmp118097 |gxc[1]#_g118098_|)) (declare (not safe)) - (cons 'clauses __tmp118093))) - (__tmp118088 - (let ((__tmp118089 - (let ((__tmp118090 |gxc[1]#_g118091_|)) + (cons 'clauses __tmp118097))) + (__tmp118092 + (let ((__tmp118093 + (let ((__tmp118094 |gxc[1]#_g118095_|)) (declare (not safe)) - (cons 'id __tmp118090)))) + (cons 'id __tmp118094)))) (declare (not safe)) - (cons __tmp118089 '())))) + (cons __tmp118093 '())))) (declare (not safe)) - (cons __tmp118092 __tmp118088)))) + (cons __tmp118096 __tmp118092)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp118087 + __obj117119 + __tmp118091 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118095 - (let ((__tmp118100 - (let ((__tmp118101 |gxc[1]#_g118102_|)) + (let ((__tmp118099 + (let ((__tmp118104 + (let ((__tmp118105 |gxc[1]#_g118106_|)) (declare (not safe)) - (cons 'clauses __tmp118101))) - (__tmp118096 - (let ((__tmp118097 - (let ((__tmp118098 |gxc[1]#_g118099_|)) + (cons 'clauses __tmp118105))) + (__tmp118100 + (let ((__tmp118101 + (let ((__tmp118102 |gxc[1]#_g118103_|)) (declare (not safe)) - (cons 'id __tmp118098)))) + (cons 'id __tmp118102)))) (declare (not safe)) - (cons __tmp118097 '())))) + (cons __tmp118101 '())))) (declare (not safe)) - (cons __tmp118100 __tmp118096)))) + (cons __tmp118104 __tmp118100)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp118095 + __obj117119 + __tmp118099 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118103 - (let ((__tmp118108 - (let ((__tmp118109 |gxc[1]#_g118110_|)) + (let ((__tmp118107 + (let ((__tmp118112 + (let ((__tmp118113 |gxc[1]#_g118114_|)) (declare (not safe)) - (cons 'clauses __tmp118109))) - (__tmp118104 - (let ((__tmp118105 - (let ((__tmp118106 |gxc[1]#_g118107_|)) + (cons 'clauses __tmp118113))) + (__tmp118108 + (let ((__tmp118109 + (let ((__tmp118110 |gxc[1]#_g118111_|)) (declare (not safe)) - (cons 'id __tmp118106)))) + (cons 'id __tmp118110)))) (declare (not safe)) - (cons __tmp118105 '())))) + (cons __tmp118109 '())))) (declare (not safe)) - (cons __tmp118108 __tmp118104)))) + (cons __tmp118112 __tmp118108)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp118103 + __obj117119 + __tmp118107 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118111 - (let ((__tmp118116 - (let ((__tmp118117 |gxc[1]#_g118118_|)) + (let ((__tmp118115 + (let ((__tmp118120 + (let ((__tmp118121 |gxc[1]#_g118122_|)) (declare (not safe)) - (cons 'clauses __tmp118117))) - (__tmp118112 - (let ((__tmp118113 - (let ((__tmp118114 |gxc[1]#_g118115_|)) + (cons 'clauses __tmp118121))) + (__tmp118116 + (let ((__tmp118117 + (let ((__tmp118118 |gxc[1]#_g118119_|)) (declare (not safe)) - (cons 'id __tmp118114)))) + (cons 'id __tmp118118)))) (declare (not safe)) - (cons __tmp118113 '())))) + (cons __tmp118117 '())))) (declare (not safe)) - (cons __tmp118116 __tmp118112)))) + (cons __tmp118120 __tmp118116)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp118111 + __obj117119 + __tmp118115 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117115)))) + __obj117119)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index 2f049a1d8..29a3f12e4 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1710781154) + (define gerbil/compiler/optimize-call::timestamp 1710833429) (begin (define gxc#::optimize-call::t - (let ((__tmp155063 (list gxc#::basic-xform::t)) - (__tmp155061 - (let ((__tmp155062 + (let ((__tmp155067 (list gxc#::basic-xform::t)) + (__tmp155065 + (let ((__tmp155066 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp155062 '())))) + (cons __tmp155066 '())))) (declare (not safe)) (make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp155063 + __tmp155067 '() - __tmp155061 + __tmp155065 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _$args154764_ - (apply make-instance gxc#::optimize-call::t _$args154764_))) + (lambda _$args154768_ + (apply make-instance gxc#::optimize-call::t _$args154768_))) (define gxc#::optimize-call-bind-methods! (make-promise (lambda () @@ -33,579 +33,579 @@ (bind-method!__0 gxc#::optimize-call::t '%#call gxc#optimize-call%)) (let () (declare (not safe)) (seal-class! gxc#::optimize-call::t))))) (define gxc#apply-optimize-call - (lambda (_stx154756_) + (lambda (_stx154760_) (force gxc#::optimize-call-bind-methods!) - (let* ((_self154759_ - (let ((__obj155058 + (let* ((_self154763_ + (let ((__obj155062 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj155058)) - (__tmp155064 + __obj155062)) + (__tmp155068 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self154759_ _stx154756_))))) + (gxc#compile-e__1 _self154763_ _stx154760_))))) (declare (not safe)) (call-with-parameters - __tmp155064 + __tmp155068 gxc#current-compile-method - _self154759_)))) + _self154763_)))) (define gxc#optimize-call% - (lambda (_self154610_ _stx154611_) - (let* ((___stx154809154810_ _stx154611_) - (_g154614154634_ + (lambda (_self154614_ _stx154615_) + (let* ((___stx154813154814_ _stx154615_) + (_g154618154638_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154809154810_))))) - (let ((___kont154811154812_ - (lambda (_L154678_ _L154679_) - (let* ((_rator-id154697_ + ___stx154813154814_))))) + (let ((___kont154815154816_ + (lambda (_L154682_ _L154683_) + (let* ((_rator-id154701_ (let () (declare (not safe)) - (gxc#identifier-symbol _L154679_))) - (_rator-type154699_ + (gxc#identifier-symbol _L154683_))) + (_rator-type154703_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id154697_)))) + (gxc#optimizer-resolve-type _rator-id154701_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type154699_ + _rator-type154703_ 'gxc#!procedure::t)) (begin - (let ((__tmp155065 + (let ((__tmp155069 (##structure-ref - _rator-type154699_ + _rator-type154703_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id154697_ + _rator-id154701_ '" => " - _rator-type154699_ + _rator-type154703_ '" " - __tmp155065)) - (let ((_optimized154702_ - (let ((__method155059 + __tmp155069)) + (let ((_optimized154706_ + (let ((__method155063 (let () (declare (not safe)) (method-ref - _rator-type154699_ + _rator-type154703_ 'optimize-call)))) - (if __method155059 - (__method155059 - _rator-type154699_ - _self154610_ - _stx154611_ - _L154678_) + (if __method155063 + (__method155063 + _rator-type154703_ + _self154614_ + _stx154615_ + _L154682_) (let () (declare (not safe)) (error '"Missing method" - _rator-type154699_ + _rator-type154703_ 'optimize-call)))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type154699_)) - _optimized154702_ - (let* ((___stx154791154792_ _optimized154702_) - (_g154705154715_ + _rator-type154703_)) + _optimized154706_ + (let* ((___stx154795154796_ _optimized154706_) + (_g154709154719_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154791154792_))))) - (let ((___kont154793154794_ - (lambda (_L154735_) - (let ((__tmp155066 + ___stx154795154796_))))) + (let ((___kont154797154798_ + (lambda (_L154739_) + (let ((__tmp155070 (let () (declare (not safe)) (cons '%#call-unchecked - _L154735_)))) + _L154739_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155066 - _stx154611_)))) - (___kont154795154796_ - (lambda () _optimized154702_))) + __tmp155070 + _stx154615_)))) + (___kont154799154800_ + (lambda () _optimized154706_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx154791154792_)) - (let ((_e154710154727_ + (gx#stx-pair? ___stx154795154796_)) + (let ((_e154714154731_ (let () (declare (not safe)) (gx#stx-e - ___stx154791154792_)))) - (let ((_tl154708154732_ + ___stx154795154796_)))) + (let ((_tl154712154736_ (let () (declare (not safe)) - (##cdr _e154710154727_))) - (_hd154709154730_ + (##cdr _e154714154731_))) + (_hd154713154734_ (let () (declare (not safe)) - (##car _e154710154727_)))) + (##car _e154714154731_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd154709154730_)) + _hd154713154734_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd154709154730_)) - (___kont154793154794_ - _tl154708154732_) - (___kont154795154796_)) - (___kont154795154796_)))) - (___kont154795154796_))))))) + _hd154713154734_)) + (___kont154797154798_ + _tl154712154736_) + (___kont154799154800_)) + (___kont154799154800_)))) + (___kont154799154800_))))))) (if (let () (declare (not safe)) - (not _rator-type154699_)) + (not _rator-type154703_)) (let () (declare (not safe)) - (gxc#xform-call% _self154610_ _stx154611_)) + (gxc#xform-call% _self154614_ _stx154615_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx154611_ - _rator-type154699_))))))) - (___kont154813154814_ + _stx154615_ + _rator-type154703_))))))) + (___kont154817154818_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _self154610_ _stx154611_))))) + (gxc#xform-call% _self154614_ _stx154615_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx154809154810_)) - (let ((_e154620154646_ + (gx#stx-pair? ___stx154813154814_)) + (let ((_e154624154650_ (let () (declare (not safe)) - (gx#stx-e ___stx154809154810_)))) - (let ((_tl154618154651_ - (let () (declare (not safe)) (##cdr _e154620154646_))) - (_hd154619154649_ + (gx#stx-e ___stx154813154814_)))) + (let ((_tl154622154655_ + (let () (declare (not safe)) (##cdr _e154624154650_))) + (_hd154623154653_ (let () (declare (not safe)) - (##car _e154620154646_)))) + (##car _e154624154650_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl154618154651_)) - (let ((_e154623154654_ + (gx#stx-pair? _tl154622154655_)) + (let ((_e154627154658_ (let () (declare (not safe)) - (gx#stx-e _tl154618154651_)))) - (let ((_tl154621154659_ + (gx#stx-e _tl154622154655_)))) + (let ((_tl154625154663_ (let () (declare (not safe)) - (##cdr _e154623154654_))) - (_hd154622154657_ + (##cdr _e154627154658_))) + (_hd154626154661_ (let () (declare (not safe)) - (##car _e154623154654_)))) + (##car _e154627154658_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd154622154657_)) - (let ((_e154626154662_ + (gx#stx-pair? _hd154626154661_)) + (let ((_e154630154666_ (let () (declare (not safe)) - (gx#stx-e _hd154622154657_)))) - (let ((_tl154624154667_ + (gx#stx-e _hd154626154661_)))) + (let ((_tl154628154671_ (let () (declare (not safe)) - (##cdr _e154626154662_))) - (_hd154625154665_ + (##cdr _e154630154666_))) + (_hd154629154669_ (let () (declare (not safe)) - (##car _e154626154662_)))) + (##car _e154630154666_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd154625154665_)) + (gx#identifier? _hd154629154669_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd154625154665_)) + _hd154629154669_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl154624154667_)) - (let ((_e154629154670_ + _tl154628154671_)) + (let ((_e154633154674_ (let () (declare (not safe)) (gx#stx-e - _tl154624154667_)))) - (let ((_tl154627154675_ + _tl154628154671_)))) + (let ((_tl154631154679_ (let () (declare (not safe)) - (##cdr _e154629154670_))) - (_hd154628154673_ + (##cdr _e154633154674_))) + (_hd154632154677_ (let () (declare (not safe)) - (##car _e154629154670_)))) + (##car _e154633154674_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl154627154675_)) - (___kont154811154812_ - _tl154621154659_ - _hd154628154673_) - (___kont154813154814_)))) - (___kont154813154814_)) - (___kont154813154814_)) - (___kont154813154814_)))) - (___kont154813154814_)))) - (___kont154813154814_)))) - (___kont154813154814_)))))) + _tl154631154679_)) + (___kont154815154816_ + _tl154625154663_ + _hd154632154677_) + (___kont154817154818_)))) + (___kont154817154818_)) + (___kont154817154818_)) + (___kont154817154818_)))) + (___kont154817154818_)))) + (___kont154817154818_)))) + (___kont154817154818_)))))) (define gxc#!predicate::optimize-call - (lambda (_self154563_ _ctx154564_ _stx154565_ _args154566_) - (let* ((_g154568154578_ - (lambda (_g154569154575_) + (lambda (_self154567_ _ctx154568_ _stx154569_ _args154570_) + (let* ((_g154572154582_ + (lambda (_g154573154579_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g154569154575_)))) - (_g154567154607_ - (lambda (_g154569154581_) + _g154573154579_)))) + (_g154571154611_ + (lambda (_g154573154585_) (if (let () (declare (not safe)) - (gx#stx-pair? _g154569154581_)) - (let ((_e154573154583_ + (gx#stx-pair? _g154573154585_)) + (let ((_e154577154587_ (let () (declare (not safe)) - (gx#stx-e _g154569154581_)))) - (let ((_hd154572154586_ + (gx#stx-e _g154573154585_)))) + (let ((_hd154576154590_ (let () (declare (not safe)) - (##car _e154573154583_))) - (_tl154571154588_ + (##car _e154577154587_))) + (_tl154575154592_ (let () (declare (not safe)) - (##cdr _e154573154583_)))) + (##cdr _e154577154587_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154571154588_)) - ((lambda (_L154591_) - (let* ((_klass154602_ - (let ((__tmp155067 + (gx#stx-null? _tl154575154592_)) + ((lambda (_L154595_) + (let* ((_klass154606_ + (let ((__tmp155071 (##structure-ref - _self154563_ + _self154567_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx154565_ - __tmp155067))) - (_object154604_ + _stx154569_ + __tmp155071))) + (_object154608_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx154564_ - _L154591_)))) + _ctx154568_ + _L154595_)))) (if (##structure-ref - _klass154602_ + _klass154606_ '8 gxc#!class::t '#f) - (let ((__tmp155083 - (let ((__tmp155084 - (let ((__tmp155086 - (let ((__tmp155087 + (let ((__tmp155087 + (let ((__tmp155088 + (let ((__tmp155090 + (let ((__tmp155091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155088 + (let ((__tmp155092 (##structure-ref - _klass154602_ + _klass154606_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155088 '())))) + (cons __tmp155092 '())))) (declare (not safe)) - (cons '%#quote __tmp155087))) - (__tmp155085 - (let () (declare (not safe)) (cons _object154604_ '())))) + (cons '%#quote __tmp155091))) + (__tmp155089 + (let () (declare (not safe)) (cons _object154608_ '())))) (declare (not safe)) - (cons __tmp155086 __tmp155085)))) + (cons __tmp155090 __tmp155089)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp155084)))) + __tmp155088)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155083 - _stx154565_)) + __tmp155087 + _stx154569_)) (if (##structure-ref - _klass154602_ + _klass154606_ '7 gxc#!class::t '#f) - (let ((__tmp155077 - (let ((__tmp155078 - (let ((__tmp155080 - (let ((__tmp155081 + (let ((__tmp155081 + (let ((__tmp155082 + (let ((__tmp155084 + (let ((__tmp155085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155082 + (let ((__tmp155086 (##structure-ref - _klass154602_ + _klass154606_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155082 '())))) + (cons __tmp155086 '())))) (declare (not safe)) - (cons '%#quote __tmp155081))) - (__tmp155079 + (cons '%#quote __tmp155085))) + (__tmp155083 (let () (declare (not safe)) - (cons _object154604_ '())))) + (cons _object154608_ '())))) (declare (not safe)) - (cons __tmp155080 __tmp155079)))) + (cons __tmp155084 __tmp155083)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp155078)))) + __tmp155082)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155077 - _stx154565_)) - (let ((__tmp155068 - (let ((__tmp155069 - (let ((__tmp155075 - (let ((__tmp155076 + __tmp155081 + _stx154569_)) + (let ((__tmp155072 + (let ((__tmp155073 + (let ((__tmp155079 + (let ((__tmp155080 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp155076))) - (__tmp155070 - (let ((__tmp155072 - (let ((__tmp155073 - (let ((__tmp155074 + (cons '%#ref __tmp155080))) + (__tmp155074 + (let ((__tmp155076 + (let ((__tmp155077 + (let ((__tmp155078 (##structure-ref - _self154563_ + _self154567_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155074 '())))) + (cons __tmp155078 '())))) (declare (not safe)) - (cons '%#ref __tmp155073))) - (__tmp155071 + (cons '%#ref __tmp155077))) + (__tmp155075 (let () (declare (not safe)) - (cons _object154604_ '())))) + (cons _object154608_ '())))) (declare (not safe)) - (cons __tmp155072 __tmp155071)))) + (cons __tmp155076 __tmp155075)))) (declare (not safe)) - (cons __tmp155075 __tmp155070)))) + (cons __tmp155079 __tmp155074)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp155069)))) + __tmp155073)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155068 - _stx154565_)))))) - _hd154572154586_) + __tmp155072 + _stx154569_)))))) + _hd154576154590_) (let () (declare (not safe)) - (_g154568154578_ _g154569154581_))))) + (_g154572154582_ _g154573154585_))))) (let () (declare (not safe)) - (_g154568154578_ _g154569154581_)))))) + (_g154572154582_ _g154573154585_)))))) (declare (not safe)) - (_g154567154607_ _args154566_)))) + (_g154571154611_ _args154570_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__klass154766 __method-table154767) - (let ((__id154768 - (let ((__slot154769 + (lambda (__klass154770 __method-table154771) + (let ((__id154772 + (let ((__slot154773 (let () (declare (not safe)) - (class-slot-offset __klass154766 'id)))) - (if __slot154769 - __slot154769 + (class-slot-offset __klass154770 'id)))) + (if __slot154773 + __slot154773 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self154563_ _ctx154564_ _stx154565_ _args154566_) - (let* ((_g154568154578_ - (lambda (_g154569154575_) + (lambda (_self154567_ _ctx154568_ _stx154569_ _args154570_) + (let* ((_g154572154582_ + (lambda (_g154573154579_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g154569154575_)))) - (_g154567154607_ - (lambda (_g154569154581_) + _g154573154579_)))) + (_g154571154611_ + (lambda (_g154573154585_) (if (let () (declare (not safe)) - (gx#stx-pair? _g154569154581_)) - (let ((_e154573154583_ + (gx#stx-pair? _g154573154585_)) + (let ((_e154577154587_ (let () (declare (not safe)) - (gx#stx-e _g154569154581_)))) - (let ((_hd154572154586_ + (gx#stx-e _g154573154585_)))) + (let ((_hd154576154590_ (let () (declare (not safe)) - (##car _e154573154583_))) - (_tl154571154588_ + (##car _e154577154587_))) + (_tl154575154592_ (let () (declare (not safe)) - (##cdr _e154573154583_)))) + (##cdr _e154577154587_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154571154588_)) - ((lambda (_L154591_) - (let* ((_klass154602_ - (let ((__tmp155089 + (gx#stx-null? _tl154575154592_)) + ((lambda (_L154595_) + (let* ((_klass154606_ + (let ((__tmp155093 (let () (declare (not safe)) (##unchecked-structure-ref - _self154563_ - __id154768 - __klass154766 + _self154567_ + __id154772 + __klass154770 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx154565_ - __tmp155089))) - (_object154604_ + _stx154569_ + __tmp155093))) + (_object154608_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx154564_ - _L154591_)))) + _ctx154568_ + _L154595_)))) (if (##structure-ref - _klass154602_ + _klass154606_ '8 gxc#!class::t '#f) - (let ((__tmp155105 - (let ((__tmp155106 - (let ((__tmp155108 - (let ((__tmp155109 + (let ((__tmp155109 + (let ((__tmp155110 + (let ((__tmp155112 + (let ((__tmp155113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155110 + (let ((__tmp155114 (##structure-ref - _klass154602_ + _klass154606_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155110 '())))) + (cons __tmp155114 '())))) (declare (not safe)) - (cons '%#quote __tmp155109))) - (__tmp155107 + (cons '%#quote __tmp155113))) + (__tmp155111 (let () (declare (not safe)) - (cons _object154604_ '())))) + (cons _object154608_ '())))) (declare (not safe)) - (cons __tmp155108 __tmp155107)))) + (cons __tmp155112 __tmp155111)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp155106)))) + __tmp155110)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155105 - _stx154565_)) + __tmp155109 + _stx154569_)) (if (##structure-ref - _klass154602_ + _klass154606_ '7 gxc#!class::t '#f) - (let ((__tmp155099 - (let ((__tmp155100 - (let ((__tmp155102 + (let ((__tmp155103 + (let ((__tmp155104 + (let ((__tmp155106 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155103 - (let ((__tmp155104 + (let ((__tmp155107 + (let ((__tmp155108 (##structure-ref - _klass154602_ + _klass154606_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155104 '())))) + (cons __tmp155108 '())))) (declare (not safe)) - (cons '%#quote __tmp155103))) - (__tmp155101 + (cons '%#quote __tmp155107))) + (__tmp155105 (let () (declare (not safe)) - (cons _object154604_ '())))) + (cons _object154608_ '())))) (declare (not safe)) - (cons __tmp155102 __tmp155101)))) + (cons __tmp155106 __tmp155105)))) (declare (not safe)) - (cons '%#struct-instance? __tmp155100)))) + (cons '%#struct-instance? __tmp155104)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155099 - _stx154565_)) - (let ((__tmp155090 - (let ((__tmp155091 - (let ((__tmp155097 + __tmp155103 + _stx154569_)) + (let ((__tmp155094 + (let ((__tmp155095 + (let ((__tmp155101 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155098 + (let ((__tmp155102 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp155098))) - (__tmp155092 - (let ((__tmp155094 - (let ((__tmp155095 - (let ((__tmp155096 + (cons '%#ref __tmp155102))) + (__tmp155096 + (let ((__tmp155098 + (let ((__tmp155099 + (let ((__tmp155100 (let () (declare (not safe)) (##unchecked-structure-ref - _self154563_ - __id154768 - __klass154766 + _self154567_ + __id154772 + __klass154770 '#f)))) (declare (not safe)) - (cons __tmp155096 '())))) + (cons __tmp155100 '())))) (declare (not safe)) - (cons '%#ref __tmp155095))) - (__tmp155093 + (cons '%#ref __tmp155099))) + (__tmp155097 (let () (declare (not safe)) - (cons _object154604_ '())))) + (cons _object154608_ '())))) (declare (not safe)) - (cons __tmp155094 __tmp155093)))) + (cons __tmp155098 __tmp155097)))) (declare (not safe)) - (cons __tmp155097 __tmp155092)))) + (cons __tmp155101 __tmp155096)))) (declare (not safe)) - (cons '%#call __tmp155091)))) + (cons '%#call __tmp155095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155090 - _stx154565_)))))) - _hd154572154586_) + __tmp155094 + _stx154569_)))))) + _hd154576154590_) (let () (declare (not safe)) - (_g154568154578_ _g154569154581_))))) + (_g154572154582_ _g154573154585_))))) (let () (declare (not safe)) - (_g154568154578_ _g154569154581_)))))) + (_g154572154582_ _g154573154585_)))))) (declare (not safe)) - (_g154567154607_ _args154566_)))))) + (_g154571154611_ _args154570_)))))) (let () (declare (not safe)) (bind-specializer! @@ -619,237 +619,237 @@ gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self154278_ _ctx154279_ _stx154280_ _args154281_) - (let* ((_klass154283_ - (let ((__tmp155111 - (##structure-ref _self154278_ '1 gxc#!type::t '#f))) + (lambda (_self154282_ _ctx154283_ _stx154284_ _args154285_) + (let* ((_klass154287_ + (let ((__tmp155115 + (##structure-ref _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx154280_ __tmp155111))) - (_fields154285_ - (length (##structure-ref _klass154283_ '5 gxc#!class::t '#f))) - (_args154291_ - (map (lambda (_g154286154288_) + (gxc#optimizer-resolve-class _stx154284_ __tmp155115))) + (_fields154289_ + (length (##structure-ref _klass154287_ '5 gxc#!class::t '#f))) + (_args154295_ + (map (lambda (_g154290154292_) (let () (declare (not safe)) - (gxc#compile-e__1 _ctx154279_ _g154286154288_))) - _args154281_)) - (_inline-make-object154293_ - (let ((__tmp155112 - (let ((__tmp155118 - (let ((__tmp155119 + (gxc#compile-e__1 _ctx154283_ _g154290154292_))) + _args154285_)) + (_inline-make-object154297_ + (let ((__tmp155116 + (let ((__tmp155122 + (let ((__tmp155123 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp155119))) - (__tmp155113 - (let ((__tmp155115 - (let ((__tmp155116 - (let ((__tmp155117 + (cons '%#ref __tmp155123))) + (__tmp155117 + (let ((__tmp155119 + (let ((__tmp155120 + (let ((__tmp155121 (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155117 '())))) + (cons __tmp155121 '())))) (declare (not safe)) - (cons '%#ref __tmp155116))) - (__tmp155114 - (make-list _fields154285_ '(%#quote #f)))) + (cons '%#ref __tmp155120))) + (__tmp155118 + (make-list _fields154289_ '(%#quote #f)))) (declare (not safe)) - (cons __tmp155115 __tmp155114)))) + (cons __tmp155119 __tmp155118)))) (declare (not safe)) - (cons __tmp155118 __tmp155113)))) + (cons __tmp155122 __tmp155117)))) (declare (not safe)) - (cons '%#call __tmp155112)))) - (let ((_$e154296_ - (##structure-ref _klass154283_ '6 gxc#!class::t '#f))) - (if _$e154296_ - ((lambda (_ctor154299_) - (let ((_$obj154301_ - (let ((__tmp155219 (gensym '__obj))) + (cons '%#call __tmp155116)))) + (let ((_$e154300_ + (##structure-ref _klass154287_ '6 gxc#!class::t '#f))) + (if _$e154300_ + ((lambda (_ctor154303_) + (let ((_$obj154305_ + (let ((__tmp155223 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155219))) - (_ctor-impl154302_ + (make-symbol__0 __tmp155223))) + (_ctor-impl154306_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass154283_ - _ctor154299_)))) - (let ((__tmp155220 - (let ((__tmp155221 - (let ((__tmp155289 - (let ((__tmp155290 - (let ((__tmp155292 + _klass154287_ + _ctor154303_)))) + (let ((__tmp155224 + (let ((__tmp155225 + (let ((__tmp155293 + (let ((__tmp155294 + (let ((__tmp155296 (let () (declare (not safe)) - (cons _$obj154301_ + (cons _$obj154305_ '()))) - (__tmp155291 + (__tmp155295 (let () (declare (not safe)) - (cons _inline-make-object154293_ + (cons _inline-make-object154297_ '())))) (declare (not safe)) - (cons __tmp155292 - __tmp155291)))) + (cons __tmp155296 + __tmp155295)))) (declare (not safe)) - (cons __tmp155290 '()))) - (__tmp155222 - (let ((__tmp155223 - (let ((__tmp155224 - (let ((__tmp155228 - (if _ctor-impl154302_ + (cons __tmp155294 '()))) + (__tmp155226 + (let ((__tmp155227 + (let ((__tmp155228 + (let ((__tmp155232 + (if _ctor-impl154306_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155283 - (let ((__tmp155287 - (let ((__tmp155288 + (let ((__tmp155287 + (let ((__tmp155291 + (let ((__tmp155292 (let () (declare (not safe)) - (cons _ctor-impl154302_ + (cons _ctor-impl154306_ '())))) (declare (not safe)) - (cons '%#ref __tmp155288))) - (__tmp155284 - (let ((__tmp155285 - (let ((__tmp155286 + (cons '%#ref __tmp155292))) + (__tmp155288 + (let ((__tmp155289 + (let ((__tmp155290 (let () (declare (not safe)) - (cons _$obj154301_ + (cons _$obj154305_ '())))) (declare (not safe)) - (cons '%#ref __tmp155286)))) + (cons '%#ref __tmp155290)))) (declare (not safe)) - (cons __tmp155285 _args154291_)))) + (cons __tmp155289 _args154295_)))) (declare (not safe)) - (cons __tmp155287 __tmp155284)))) + (cons __tmp155291 __tmp155288)))) (declare (not safe)) - (cons '%#call __tmp155283)) - (let* ((_$ctor154304_ - (let ((__tmp155229 (gensym '__constructor))) + (cons '%#call __tmp155287)) + (let* ((_$ctor154308_ + (let ((__tmp155233 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp155229))) - (__tmp155230 - (let ((__tmp155265 - (let ((__tmp155266 - (let ((__tmp155282 + (make-symbol__0 __tmp155233))) + (__tmp155234 + (let ((__tmp155269 + (let ((__tmp155270 + (let ((__tmp155286 (let () (declare (not safe)) - (cons _$ctor154304_ + (cons _$ctor154308_ '()))) - (__tmp155267 - (let ((__tmp155268 - (let ((__tmp155269 + (__tmp155271 + (let ((__tmp155272 + (let ((__tmp155273 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155280 - (let ((__tmp155281 + (let ((__tmp155284 + (let ((__tmp155285 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155281))) - (__tmp155270 - (let ((__tmp155277 - (let ((__tmp155278 - (let ((__tmp155279 + (cons '%#ref __tmp155285))) + (__tmp155274 + (let ((__tmp155281 + (let ((__tmp155282 + (let ((__tmp155283 (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155279 '())))) + (cons __tmp155283 '())))) (declare (not safe)) - (cons '%#ref __tmp155278))) - (__tmp155271 - (let ((__tmp155275 - (let ((__tmp155276 + (cons '%#ref __tmp155282))) + (__tmp155275 + (let ((__tmp155279 + (let ((__tmp155280 (let () (declare (not safe)) - (cons _$obj154301_ + (cons _$obj154305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155276))) - (__tmp155272 - (let ((__tmp155273 - (let ((__tmp155274 + __tmp155280))) + (__tmp155276 + (let ((__tmp155277 + (let ((__tmp155278 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _ctor154299_ '())))) + (cons _ctor154303_ '())))) (declare (not safe)) - (cons '%#quote __tmp155274)))) + (cons '%#quote __tmp155278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155273 '())))) + (cons __tmp155277 '())))) (declare (not safe)) - (cons __tmp155275 __tmp155272)))) + (cons __tmp155279 __tmp155276)))) (declare (not safe)) - (cons __tmp155277 __tmp155271)))) + (cons __tmp155281 __tmp155275)))) (declare (not safe)) - (cons __tmp155280 __tmp155270)))) + (cons __tmp155284 __tmp155274)))) (declare (not safe)) - (cons '%#call __tmp155269)))) + (cons '%#call __tmp155273)))) (declare (not safe)) - (cons __tmp155268 '())))) + (cons __tmp155272 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155282 - __tmp155267)))) + (cons __tmp155286 + __tmp155271)))) (declare (not safe)) - (cons __tmp155266 '()))) - (__tmp155231 - (let ((__tmp155232 - (let ((__tmp155233 - (let ((__tmp155263 - (let ((__tmp155264 + (cons __tmp155270 '()))) + (__tmp155235 + (let ((__tmp155236 + (let ((__tmp155237 + (let ((__tmp155267 + (let ((__tmp155268 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor154304_ '())))) + (cons _$ctor154308_ '())))) (declare (not safe)) - (cons '%#ref __tmp155264))) - (__tmp155234 - (let ((__tmp155256 - (let ((__tmp155257 - (let ((__tmp155261 - (let ((__tmp155262 + (cons '%#ref __tmp155268))) + (__tmp155238 + (let ((__tmp155260 + (let ((__tmp155261 + (let ((__tmp155265 + (let ((__tmp155266 (let () (declare (not safe)) - (cons _$ctor154304_ + (cons _$ctor154308_ '())))) (declare (not safe)) - (cons '%#ref __tmp155262))) - (__tmp155258 - (let ((__tmp155259 - (let ((__tmp155260 + (cons '%#ref __tmp155266))) + (__tmp155262 + (let ((__tmp155263 + (let ((__tmp155264 (let () (declare (not safe)) - (cons _$obj154301_ + (cons _$obj154305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155260)))) + __tmp155264)))) (declare (not safe)) - (cons __tmp155259 - _args154291_)))) + (cons __tmp155263 + _args154295_)))) (declare (not safe)) - (cons __tmp155261 __tmp155258)))) + (cons __tmp155265 __tmp155262)))) (declare (not safe)) - (cons '%#call __tmp155257))) - (__tmp155235 - (let ((__tmp155236 - (let ((__tmp155237 - (let ((__tmp155254 - (let ((__tmp155255 + (cons '%#call __tmp155261))) + (__tmp155239 + (let ((__tmp155240 + (let ((__tmp155241 + (let ((__tmp155258 + (let ((__tmp155259 (let () (declare (not safe)) @@ -859,281 +859,281 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155255))) - (__tmp155238 - (let ((__tmp155252 - (let ((__tmp155253 + __tmp155259))) + (__tmp155242 + (let ((__tmp155256 + (let ((__tmp155257 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp155253))) - (__tmp155239 - (let ((__tmp155250 - (let ((__tmp155251 + (cons '%#quote __tmp155257))) + (__tmp155243 + (let ((__tmp155254 + (let ((__tmp155255 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp155251))) - (__tmp155240 - (let ((__tmp155247 - (let ((__tmp155248 - (let ((__tmp155249 + (cons '%#quote __tmp155255))) + (__tmp155244 + (let ((__tmp155251 + (let ((__tmp155252 + (let ((__tmp155253 (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155249 '())))) + (cons __tmp155253 '())))) (declare (not safe)) - (cons '%#ref __tmp155248))) - (__tmp155241 - (let ((__tmp155245 - (let ((__tmp155246 + (cons '%#ref __tmp155252))) + (__tmp155245 + (let ((__tmp155249 + (let ((__tmp155250 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp155246))) - (__tmp155242 - (let ((__tmp155243 - (let ((__tmp155244 + (cons '%#quote __tmp155250))) + (__tmp155246 + (let ((__tmp155247 + (let ((__tmp155248 (let () (declare (not safe)) - (cons _ctor154299_ + (cons _ctor154303_ '())))) (declare (not safe)) - (cons '%#quote __tmp155244)))) + (cons '%#quote __tmp155248)))) (declare (not safe)) - (cons __tmp155243 '())))) + (cons __tmp155247 '())))) (declare (not safe)) - (cons __tmp155245 __tmp155242)))) + (cons __tmp155249 __tmp155246)))) (declare (not safe)) - (cons __tmp155247 __tmp155241)))) + (cons __tmp155251 __tmp155245)))) (declare (not safe)) - (cons __tmp155250 __tmp155240)))) + (cons __tmp155254 __tmp155244)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155252 - __tmp155239)))) + (cons __tmp155256 + __tmp155243)))) (declare (not safe)) - (cons __tmp155254 __tmp155238)))) + (cons __tmp155258 __tmp155242)))) (declare (not safe)) - (cons '%#call __tmp155237)))) + (cons '%#call __tmp155241)))) (declare (not safe)) - (cons __tmp155236 '())))) + (cons __tmp155240 '())))) (declare (not safe)) - (cons __tmp155256 __tmp155235)))) + (cons __tmp155260 __tmp155239)))) (declare (not safe)) - (cons __tmp155263 __tmp155234)))) + (cons __tmp155267 __tmp155238)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp155233)))) + (cons '%#if __tmp155237)))) (declare (not safe)) - (cons __tmp155232 '())))) + (cons __tmp155236 '())))) (declare (not safe)) - (cons __tmp155265 __tmp155231)))) + (cons __tmp155269 __tmp155235)))) (declare (not safe)) - (cons '%#let-values __tmp155230)))) - (__tmp155225 - (let ((__tmp155226 - (let ((__tmp155227 + (cons '%#let-values __tmp155234)))) + (__tmp155229 + (let ((__tmp155230 + (let ((__tmp155231 (let () (declare (not safe)) - (cons _$obj154301_ '())))) + (cons _$obj154305_ '())))) (declare (not safe)) - (cons '%#ref __tmp155227)))) + (cons '%#ref __tmp155231)))) (declare (not safe)) - (cons __tmp155226 '())))) + (cons __tmp155230 '())))) (declare (not safe)) - (cons __tmp155228 __tmp155225)))) + (cons __tmp155232 __tmp155229)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp155224)))) + __tmp155228)))) (declare (not safe)) - (cons __tmp155223 '())))) + (cons __tmp155227 '())))) (declare (not safe)) - (cons __tmp155289 __tmp155222)))) + (cons __tmp155293 __tmp155226)))) (declare (not safe)) - (cons '%#let-values __tmp155221)))) + (cons '%#let-values __tmp155225)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155220 _stx154280_)))) - _$e154296_) - (let ((_$e154306_ - (##structure-ref _klass154283_ '10 gxc#!class::t '#f))) - (if _$e154306_ - ((lambda (_metaclass154309_) - (let* ((_$obj154311_ - (let ((__tmp155181 (gensym '__obj))) + (gxc#xform-wrap-source __tmp155224 _stx154284_)))) + _$e154300_) + (let ((_$e154310_ + (##structure-ref _klass154287_ '10 gxc#!class::t '#f))) + (if _$e154310_ + ((lambda (_metaclass154313_) + (let* ((_$obj154315_ + (let ((__tmp155185 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155181))) - (_metakons154313_ - (let ((__tmp155182 + (make-symbol__0 __tmp155185))) + (_metakons154317_ + (let ((__tmp155186 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx154280_ - _metaclass154309_)))) + _stx154284_ + _metaclass154313_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp155182 + __tmp155186 'instance-init!)))) - (let ((__tmp155183 - (let ((__tmp155184 - (let ((__tmp155215 - (let ((__tmp155216 - (let ((__tmp155218 + (let ((__tmp155187 + (let ((__tmp155188 + (let ((__tmp155219 + (let ((__tmp155220 + (let ((__tmp155222 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154311_ '()))) - (__tmp155217 + (cons _$obj154315_ '()))) + (__tmp155221 (let () (declare (not safe)) - (cons _inline-make-object154293_ '())))) + (cons _inline-make-object154297_ '())))) (declare (not safe)) - (cons __tmp155218 __tmp155217)))) + (cons __tmp155222 __tmp155221)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155216 '()))) - (__tmp155185 - (let ((__tmp155186 - (let ((__tmp155187 - (let ((__tmp155191 + (cons __tmp155220 '()))) + (__tmp155189 + (let ((__tmp155190 + (let ((__tmp155191 + (let ((__tmp155195 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _metakons154313_ - (let ((__tmp155205 - (let ((__tmp155213 - (let ((__tmp155214 + (if _metakons154317_ + (let ((__tmp155209 + (let ((__tmp155217 + (let ((__tmp155218 (let () (declare (not safe)) - (cons _metakons154313_ + (cons _metakons154317_ '())))) (declare (not safe)) - (cons '%#ref __tmp155214))) - (__tmp155206 - (let ((__tmp155210 - (let ((__tmp155211 - (let ((__tmp155212 + (cons '%#ref __tmp155218))) + (__tmp155210 + (let ((__tmp155214 + (let ((__tmp155215 + (let ((__tmp155216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155212 '())))) + (cons __tmp155216 '())))) (declare (not safe)) - (cons '%#ref __tmp155211))) + (cons '%#ref __tmp155215))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155207 - (let ((__tmp155208 - (let ((__tmp155209 + (__tmp155211 + (let ((__tmp155212 + (let ((__tmp155213 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj154311_ '())))) + (cons _$obj154315_ '())))) (declare (not safe)) - (cons '%#ref __tmp155209)))) + (cons '%#ref __tmp155213)))) (declare (not safe)) - (cons __tmp155208 _args154291_)))) + (cons __tmp155212 _args154295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155210 - __tmp155207)))) + (cons __tmp155214 + __tmp155211)))) (declare (not safe)) - (cons __tmp155213 __tmp155206)))) + (cons __tmp155217 __tmp155210)))) (declare (not safe)) - (cons '%#call __tmp155205)) - (let ((__tmp155192 - (let ((__tmp155203 - (let ((__tmp155204 + (cons '%#call __tmp155209)) + (let ((__tmp155196 + (let ((__tmp155207 + (let ((__tmp155208 (let () (declare (not safe)) (cons 'call-method '())))) (declare (not safe)) - (cons '%#ref __tmp155204))) - (__tmp155193 - (let ((__tmp155200 - (let ((__tmp155201 - (let ((__tmp155202 + (cons '%#ref __tmp155208))) + (__tmp155197 + (let ((__tmp155204 + (let ((__tmp155205 + (let ((__tmp155206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155202 '())))) + (cons __tmp155206 '())))) (declare (not safe)) - (cons '%#ref __tmp155201))) + (cons '%#ref __tmp155205))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155194 - (let ((__tmp155198 - (let ((__tmp155199 + (__tmp155198 + (let ((__tmp155202 + (let ((__tmp155203 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp155199))) - (__tmp155195 - (let ((__tmp155196 - (let ((__tmp155197 + (cons '%#quote __tmp155203))) + (__tmp155199 + (let ((__tmp155200 + (let ((__tmp155201 (let () (declare (not safe)) - (cons _$obj154311_ '())))) + (cons _$obj154315_ '())))) (declare (not safe)) - (cons '%#ref __tmp155197)))) + (cons '%#ref __tmp155201)))) (declare (not safe)) - (cons __tmp155196 _args154291_)))) + (cons __tmp155200 _args154295_)))) (declare (not safe)) - (cons __tmp155198 __tmp155195)))) + (cons __tmp155202 __tmp155199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155200 - __tmp155194)))) + (cons __tmp155204 + __tmp155198)))) (declare (not safe)) - (cons __tmp155203 __tmp155193)))) + (cons __tmp155207 __tmp155197)))) (declare (not safe)) - (cons '%#call __tmp155192)))) - (__tmp155188 - (let ((__tmp155189 - (let ((__tmp155190 + (cons '%#call __tmp155196)))) + (__tmp155192 + (let ((__tmp155193 + (let ((__tmp155194 (let () (declare (not safe)) - (cons _$obj154311_ '())))) + (cons _$obj154315_ '())))) (declare (not safe)) - (cons '%#ref __tmp155190)))) + (cons '%#ref __tmp155194)))) (declare (not safe)) - (cons __tmp155189 '())))) + (cons __tmp155193 '())))) (declare (not safe)) - (cons __tmp155191 __tmp155188)))) + (cons __tmp155195 __tmp155192)))) (declare (not safe)) - (cons '%#begin __tmp155187)))) + (cons '%#begin __tmp155191)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155186 '())))) + (cons __tmp155190 '())))) (declare (not safe)) - (cons __tmp155215 __tmp155185)))) + (cons __tmp155219 __tmp155189)))) (declare (not safe)) - (cons '%#let-values __tmp155184)))) + (cons '%#let-values __tmp155188)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155183 _stx154280_)))) - _$e154306_) - (if (##structure-ref _klass154283_ '7 gxc#!class::t '#f) - (if (fx= (length _args154291_) _fields154285_) - (let ((__tmp155173 - (let ((__tmp155174 - (let ((__tmp155179 - (let ((__tmp155180 + (gxc#xform-wrap-source __tmp155187 _stx154284_)))) + _$e154310_) + (if (##structure-ref _klass154287_ '7 gxc#!class::t '#f) + (if (fx= (length _args154295_) _fields154289_) + (let ((__tmp155177 + (let ((__tmp155178 + (let ((__tmp155183 + (let ((__tmp155184 (let () (declare (not safe)) @@ -1143,900 +1143,900 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155180))) - (__tmp155175 - (let ((__tmp155176 - (let ((__tmp155177 + __tmp155184))) + (__tmp155179 + (let ((__tmp155180 + (let ((__tmp155181 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155178 + (let ((__tmp155182 (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155178 '())))) + (cons __tmp155182 '())))) (declare (not safe)) - (cons '%#ref __tmp155177)))) + (cons '%#ref __tmp155181)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155176 - _args154291_)))) + (cons __tmp155180 + _args154295_)))) (declare (not safe)) - (cons __tmp155179 __tmp155175)))) + (cons __tmp155183 __tmp155179)))) (declare (not safe)) - (cons '%#call __tmp155174)))) + (cons '%#call __tmp155178)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155173 - _stx154280_)) - (let ((__tmp155172 + __tmp155177 + _stx154284_)) + (let ((__tmp155176 (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f)) - (__tmp155171 + (__tmp155175 (length (##structure-ref - _klass154283_ + _klass154287_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx154280_ - __tmp155172 - __tmp155171))) - (let ((_$obj154316_ - (let ((__tmp155120 (gensym '__obj))) + _stx154284_ + __tmp155176 + __tmp155175))) + (let ((_$obj154320_ + (let ((__tmp155124 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155120)))) - (let _lp154318_ ((_rest154320_ _args154291_) - (_initializers154321_ '())) - (let* ((___stx154847154848_ _rest154320_) - (_g154325154346_ + (make-symbol__0 __tmp155124)))) + (let _lp154322_ ((_rest154324_ _args154295_) + (_initializers154325_ '())) + (let* ((___stx154851154852_ _rest154324_) + (_g154329154350_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154847154848_))))) - (let ((___kont154849154850_ - (lambda (_L154400_ _L154401_ _L154402_) - (let* ((_slot154433_ + ___stx154851154852_))))) + (let ((___kont154853154854_ + (lambda (_L154404_ _L154405_ _L154406_) + (let* ((_slot154437_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L154402_)))) - (_off154435_ + (gx#stx-e _L154406_)))) + (_off154439_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass154283_ - _slot154433_)))) - (if _off154435_ - (let ((__tmp155122 - (let ((__tmp155123 + _klass154287_ + _slot154437_)))) + (if _off154439_ + (let ((__tmp155126 + (let ((__tmp155127 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _off154435_ _L154401_)))) + (cons _off154439_ _L154405_)))) (declare (not safe)) - (cons __tmp155123 _initializers154321_)))) + (cons __tmp155127 _initializers154325_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp154318_ - _L154400_ - __tmp155122)) - (let ((__tmp155121 + (_lp154322_ + _L154404_ + __tmp155126)) + (let ((__tmp155125 (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx154280_ - __tmp155121 - _slot154433_)))))) - (___kont154851154852_ + _stx154284_ + __tmp155125 + _slot154437_)))))) + (___kont154855154856_ (lambda () - (let ((__tmp155124 - (let ((__tmp155125 - (let ((__tmp155148 - (let ((__tmp155149 + (let ((__tmp155128 + (let ((__tmp155129 + (let ((__tmp155152 + (let ((__tmp155153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155151 + (let ((__tmp155155 (let () (declare (not safe)) - (cons _$obj154316_ '()))) - (__tmp155150 + (cons _$obj154320_ '()))) + (__tmp155154 (let () (declare (not safe)) - (cons _inline-make-object154293_ '())))) + (cons _inline-make-object154297_ '())))) (declare (not safe)) - (cons __tmp155151 __tmp155150)))) + (cons __tmp155155 __tmp155154)))) (declare (not safe)) - (cons __tmp155149 '()))) - (__tmp155126 - (let ((__tmp155127 - (let ((__tmp155128 - (let ((__tmp155145 - (let ((__tmp155146 - (let ((__tmp155147 + (cons __tmp155153 '()))) + (__tmp155130 + (let ((__tmp155131 + (let ((__tmp155132 + (let ((__tmp155149 + (let ((__tmp155150 + (let ((__tmp155151 (let () (declare (not safe)) - (cons _$obj154316_ + (cons _$obj154320_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155147)))) + __tmp155151)))) (declare (not safe)) - (cons __tmp155146 '()))) - (__tmp155129 - (let ((__tmp155130 - (lambda (_i154360_ _r154361_) - (let ((__tmp155131 - (let ((__tmp155132 + (cons __tmp155150 '()))) + (__tmp155133 + (let ((__tmp155134 + (lambda (_i154364_ _r154365_) + (let ((__tmp155135 + (let ((__tmp155136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155142 - (let ((__tmp155143 - (let ((__tmp155144 + (let ((__tmp155146 + (let ((__tmp155147 + (let ((__tmp155148 (##structure-ref - _self154278_ + _self154282_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155144 '())))) + (cons __tmp155148 '())))) (declare (not safe)) - (cons '%#ref __tmp155143))) - (__tmp155133 - (let ((__tmp155139 - (let ((__tmp155140 - (let ((__tmp155141 - (car _i154360_))) + (cons '%#ref __tmp155147))) + (__tmp155137 + (let ((__tmp155143 + (let ((__tmp155144 + (let ((__tmp155145 + (car _i154364_))) (declare (not safe)) - (cons __tmp155141 '())))) + (cons __tmp155145 '())))) (declare (not safe)) - (cons '%#quote __tmp155140))) - (__tmp155134 - (let ((__tmp155137 - (let ((__tmp155138 + (cons '%#quote __tmp155144))) + (__tmp155138 + (let ((__tmp155141 + (let ((__tmp155142 (let () (declare (not safe)) - (cons _$obj154316_ + (cons _$obj154320_ '())))) (declare (not safe)) - (cons '%#ref __tmp155138))) - (__tmp155135 - (let ((__tmp155136 - (cdr _i154360_))) + (cons '%#ref __tmp155142))) + (__tmp155139 + (let ((__tmp155140 + (cdr _i154364_))) (declare (not safe)) - (cons __tmp155136 '())))) + (cons __tmp155140 '())))) (declare (not safe)) - (cons __tmp155137 __tmp155135)))) + (cons __tmp155141 __tmp155139)))) (declare (not safe)) - (cons __tmp155139 __tmp155134)))) + (cons __tmp155143 __tmp155138)))) (declare (not safe)) - (cons __tmp155142 __tmp155133)))) + (cons __tmp155146 __tmp155137)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp155132)))) + (cons '%#struct-unchecked-set! __tmp155136)))) (declare (not safe)) - (cons __tmp155131 _r154361_))))) + (cons __tmp155135 _r154365_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp155130 + (foldl1 __tmp155134 '() - _initializers154321_)))) + _initializers154325_)))) (declare (not safe)) - (foldr1 cons __tmp155145 __tmp155129)))) + (foldr1 cons __tmp155149 __tmp155133)))) (declare (not safe)) - (cons '%#begin __tmp155128)))) + (cons '%#begin __tmp155132)))) (declare (not safe)) - (cons __tmp155127 '())))) + (cons __tmp155131 '())))) (declare (not safe)) - (cons __tmp155148 __tmp155126)))) + (cons __tmp155152 __tmp155130)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp155125)))) + __tmp155129)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155124 - _stx154280_)))) - (___kont154853154854_ + __tmp155128 + _stx154284_)))) + (___kont154857154858_ (lambda () - (let ((__tmp155152 - (let ((__tmp155153 - (let ((__tmp155167 - (let ((__tmp155168 + (let ((__tmp155156 + (let ((__tmp155157 + (let ((__tmp155171 + (let ((__tmp155172 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155170 + (let ((__tmp155174 (let () (declare (not safe)) - (cons _$obj154316_ '()))) - (__tmp155169 + (cons _$obj154320_ '()))) + (__tmp155173 (let () (declare (not safe)) - (cons _inline-make-object154293_ '())))) + (cons _inline-make-object154297_ '())))) (declare (not safe)) - (cons __tmp155170 __tmp155169)))) + (cons __tmp155174 __tmp155173)))) (declare (not safe)) - (cons __tmp155168 '()))) - (__tmp155154 - (let ((__tmp155155 - (let ((__tmp155156 - (let ((__tmp155160 - (let ((__tmp155161 - (let ((__tmp155165 - (let ((__tmp155166 + (cons __tmp155172 '()))) + (__tmp155158 + (let ((__tmp155159 + (let ((__tmp155160 + (let ((__tmp155164 + (let ((__tmp155165 + (let ((__tmp155169 + (let ((__tmp155170 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp155166))) - (__tmp155162 - (let ((__tmp155163 - (let ((__tmp155164 + (cons '%#ref __tmp155170))) + (__tmp155166 + (let ((__tmp155167 + (let ((__tmp155168 (let () (declare (not safe)) - (cons _$obj154316_ '())))) + (cons _$obj154320_ '())))) (declare (not safe)) - (cons '%#ref __tmp155164)))) + (cons '%#ref __tmp155168)))) (declare (not safe)) - (cons __tmp155163 _args154291_)))) + (cons __tmp155167 _args154295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155165 - __tmp155162)))) + (cons __tmp155169 + __tmp155166)))) (declare (not safe)) - (cons '%#call __tmp155161))) - (__tmp155157 - (let ((__tmp155158 - (let ((__tmp155159 + (cons '%#call __tmp155165))) + (__tmp155161 + (let ((__tmp155162 + (let ((__tmp155163 (let () (declare (not safe)) - (cons _$obj154316_ + (cons _$obj154320_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155159)))) + __tmp155163)))) (declare (not safe)) - (cons __tmp155158 '())))) + (cons __tmp155162 '())))) (declare (not safe)) - (cons __tmp155160 __tmp155157)))) + (cons __tmp155164 __tmp155161)))) (declare (not safe)) - (cons '%#begin __tmp155156)))) + (cons '%#begin __tmp155160)))) (declare (not safe)) - (cons __tmp155155 '())))) + (cons __tmp155159 '())))) (declare (not safe)) - (cons __tmp155167 __tmp155154)))) + (cons __tmp155171 __tmp155158)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp155153)))) + __tmp155157)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155152 - _stx154280_))))) - (let* ((_g154323154363_ + __tmp155156 + _stx154284_))))) + (let* ((_g154327154367_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx154847154848_)) - (___kont154851154852_) - (___kont154853154854_)))) - (___match154884154885_ - (lambda (_e154332154368_ - _hd154331154371_ - _tl154330154373_ - _e154335154376_ - _hd154334154379_ - _tl154333154381_ - _e154338154384_ - _hd154337154387_ - _tl154336154389_ - _e154341154392_ - _hd154340154395_ - _tl154339154397_) - (let ((_L154400_ _tl154339154397_) - (_L154401_ _hd154340154395_) - (_L154402_ _hd154337154387_)) + ___stx154851154852_)) + (___kont154855154856_) + (___kont154857154858_)))) + (___match154888154889_ + (lambda (_e154336154372_ + _hd154335154375_ + _tl154334154377_ + _e154339154380_ + _hd154338154383_ + _tl154337154385_ + _e154342154388_ + _hd154341154391_ + _tl154340154393_ + _e154345154396_ + _hd154344154399_ + _tl154343154401_) + (let ((_L154404_ _tl154343154401_) + (_L154405_ _hd154344154399_) + (_L154406_ _hd154341154391_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L154402_)) - (___kont154849154850_ - _L154400_ - _L154401_ - _L154402_) - (___kont154853154854_)))))) + _L154406_)) + (___kont154853154854_ + _L154404_ + _L154405_ + _L154406_) + (___kont154857154858_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx154847154848_)) - (let ((_e154332154368_ + (gx#stx-pair? ___stx154851154852_)) + (let ((_e154336154372_ (let () (declare (not safe)) (gx#stx-e - ___stx154847154848_)))) - (let ((_tl154330154373_ + ___stx154851154852_)))) + (let ((_tl154334154377_ (let () (declare (not safe)) - (##cdr _e154332154368_))) - (_hd154331154371_ + (##cdr _e154336154372_))) + (_hd154335154375_ (let () (declare (not safe)) - (##car _e154332154368_)))) + (##car _e154336154372_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd154331154371_)) - (let ((_e154335154376_ + _hd154335154375_)) + (let ((_e154339154380_ (let () (declare (not safe)) (gx#stx-e - _hd154331154371_)))) - (let ((_tl154333154381_ + _hd154335154375_)))) + (let ((_tl154337154385_ (let () (declare (not safe)) - (##cdr _e154335154376_))) - (_hd154334154379_ + (##cdr _e154339154380_))) + (_hd154338154383_ (let () (declare (not safe)) - (##car _e154335154376_)))) + (##car _e154339154380_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd154334154379_)) + _hd154338154383_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd154334154379_)) + _hd154338154383_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl154333154381_)) - (let ((_e154338154384_ + (gx#stx-pair? _tl154337154385_)) + (let ((_e154342154388_ (let () (declare (not safe)) - (gx#stx-e _tl154333154381_)))) - (let ((_tl154336154389_ + (gx#stx-e _tl154337154385_)))) + (let ((_tl154340154393_ (let () (declare (not safe)) - (##cdr _e154338154384_))) - (_hd154337154387_ + (##cdr _e154342154388_))) + (_hd154341154391_ (let () (declare (not safe)) - (##car _e154338154384_)))) + (##car _e154342154388_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154336154389_)) + (gx#stx-null? _tl154340154393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl154330154373_)) - (let ((_e154341154392_ + (gx#stx-pair? _tl154334154377_)) + (let ((_e154345154396_ (let () (declare (not safe)) - (gx#stx-e _tl154330154373_)))) - (let ((_tl154339154397_ + (gx#stx-e _tl154334154377_)))) + (let ((_tl154343154401_ (let () (declare (not safe)) - (##cdr _e154341154392_))) - (_hd154340154395_ + (##cdr _e154345154396_))) + (_hd154344154399_ (let () (declare (not safe)) - (##car _e154341154392_)))) - (___match154884154885_ - _e154332154368_ - _hd154331154371_ - _tl154330154373_ - _e154335154376_ - _hd154334154379_ - _tl154333154381_ - _e154338154384_ - _hd154337154387_ - _tl154336154389_ - _e154341154392_ - _hd154340154395_ - _tl154339154397_))) - (___kont154853154854_)) - (___kont154853154854_)))) - (___kont154853154854_)) - (___kont154853154854_)) - (___kont154853154854_)))) + (##car _e154345154396_)))) + (___match154888154889_ + _e154336154372_ + _hd154335154375_ + _tl154334154377_ + _e154339154380_ + _hd154338154383_ + _tl154337154385_ + _e154342154388_ + _hd154341154391_ + _tl154340154393_ + _e154345154396_ + _hd154344154399_ + _tl154343154401_))) + (___kont154857154858_)) + (___kont154857154858_)))) + (___kont154857154858_)) + (___kont154857154858_)) + (___kont154857154858_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont154853154854_)))) + (___kont154857154858_)))) (let () (declare (not safe)) - (_g154323154363_)))))))))))))))) + (_g154327154367_)))))))))))))))) (define gxc#!constructor::optimize-call::specialize - (lambda (__klass154770 __method-table154771) - (let ((__id154772 - (let ((__slot154773 + (lambda (__klass154774 __method-table154775) + (let ((__id154776 + (let ((__slot154777 (let () (declare (not safe)) - (class-slot-offset __klass154770 'id)))) - (if __slot154773 - __slot154773 + (class-slot-offset __klass154774 'id)))) + (if __slot154777 + __slot154777 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self154278_ _ctx154279_ _stx154280_ _args154281_) - (let* ((_klass154283_ - (let ((__tmp155293 + (lambda (_self154282_ _ctx154283_ _stx154284_ _args154285_) + (let* ((_klass154287_ + (let ((__tmp155297 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx154280_ __tmp155293))) - (_fields154285_ + (gxc#optimizer-resolve-class _stx154284_ __tmp155297))) + (_fields154289_ (length (##structure-ref - _klass154283_ + _klass154287_ '5 gxc#!class::t '#f))) - (_args154291_ - (map (lambda (_g154286154288_) + (_args154295_ + (map (lambda (_g154290154292_) (let () (declare (not safe)) - (gxc#compile-e__1 _ctx154279_ _g154286154288_))) - _args154281_)) - (_inline-make-object154293_ - (let ((__tmp155294 - (let ((__tmp155300 - (let ((__tmp155301 + (gxc#compile-e__1 _ctx154283_ _g154290154292_))) + _args154285_)) + (_inline-make-object154297_ + (let ((__tmp155298 + (let ((__tmp155304 + (let ((__tmp155305 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp155301))) - (__tmp155295 - (let ((__tmp155297 - (let ((__tmp155298 - (let ((__tmp155299 + (cons '%#ref __tmp155305))) + (__tmp155299 + (let ((__tmp155301 + (let ((__tmp155302 + (let ((__tmp155303 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) - (cons __tmp155299 '())))) + (cons __tmp155303 '())))) (declare (not safe)) - (cons '%#ref __tmp155298))) - (__tmp155296 + (cons '%#ref __tmp155302))) + (__tmp155300 (make-list - _fields154285_ + _fields154289_ '(%#quote #f)))) (declare (not safe)) - (cons __tmp155297 __tmp155296)))) + (cons __tmp155301 __tmp155300)))) (declare (not safe)) - (cons __tmp155300 __tmp155295)))) + (cons __tmp155304 __tmp155299)))) (declare (not safe)) - (cons '%#call __tmp155294)))) - (let ((_$e154296_ - (##structure-ref _klass154283_ '6 gxc#!class::t '#f))) - (if _$e154296_ - ((lambda (_ctor154299_) - (let ((_$obj154301_ - (let ((__tmp155401 (gensym '__obj))) + (cons '%#call __tmp155298)))) + (let ((_$e154300_ + (##structure-ref _klass154287_ '6 gxc#!class::t '#f))) + (if _$e154300_ + ((lambda (_ctor154303_) + (let ((_$obj154305_ + (let ((__tmp155405 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155401))) - (_ctor-impl154302_ + (make-symbol__0 __tmp155405))) + (_ctor-impl154306_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass154283_ - _ctor154299_)))) - (let ((__tmp155402 - (let ((__tmp155403 - (let ((__tmp155471 - (let ((__tmp155472 - (let ((__tmp155474 + _klass154287_ + _ctor154303_)))) + (let ((__tmp155406 + (let ((__tmp155407 + (let ((__tmp155475 + (let ((__tmp155476 + (let ((__tmp155478 (let () (declare (not safe)) - (cons _$obj154301_ + (cons _$obj154305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp155473 + (__tmp155477 (let () (declare (not safe)) - (cons _inline-make-object154293_ '())))) + (cons _inline-make-object154297_ '())))) (declare (not safe)) - (cons __tmp155474 __tmp155473)))) + (cons __tmp155478 __tmp155477)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155472 '()))) - (__tmp155404 - (let ((__tmp155405 - (let ((__tmp155406 - (let ((__tmp155410 + (cons __tmp155476 '()))) + (__tmp155408 + (let ((__tmp155409 + (let ((__tmp155410 + (let ((__tmp155414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl154302_ - (let ((__tmp155465 - (let ((__tmp155469 - (let ((__tmp155470 + (if _ctor-impl154306_ + (let ((__tmp155469 + (let ((__tmp155473 + (let ((__tmp155474 (let () (declare (not safe)) - (cons _ctor-impl154302_ + (cons _ctor-impl154306_ '())))) (declare (not safe)) - (cons '%#ref __tmp155470))) - (__tmp155466 - (let ((__tmp155467 - (let ((__tmp155468 + (cons '%#ref __tmp155474))) + (__tmp155470 + (let ((__tmp155471 + (let ((__tmp155472 (let () (declare (not safe)) - (cons _$obj154301_ + (cons _$obj154305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp155468)))) + (cons '%#ref __tmp155472)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155467 - _args154291_)))) + (cons __tmp155471 + _args154295_)))) (declare (not safe)) - (cons __tmp155469 __tmp155466)))) + (cons __tmp155473 __tmp155470)))) (declare (not safe)) - (cons '%#call __tmp155465)) - (let* ((_$ctor154304_ - (let ((__tmp155411 + (cons '%#call __tmp155469)) + (let* ((_$ctor154308_ + (let ((__tmp155415 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp155411))) - (__tmp155412 - (let ((__tmp155447 - (let ((__tmp155448 - (let ((__tmp155464 + (make-symbol__0 __tmp155415))) + (__tmp155416 + (let ((__tmp155451 + (let ((__tmp155452 + (let ((__tmp155468 (let () (declare (not safe)) - (cons _$ctor154304_ + (cons _$ctor154308_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp155449 - (let ((__tmp155450 - (let ((__tmp155451 - (let ((__tmp155462 - (let ((__tmp155463 + (__tmp155453 + (let ((__tmp155454 + (let ((__tmp155455 + (let ((__tmp155466 + (let ((__tmp155467 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155463))) - (__tmp155452 - (let ((__tmp155459 - (let ((__tmp155460 - (let ((__tmp155461 + (cons '%#ref __tmp155467))) + (__tmp155456 + (let ((__tmp155463 + (let ((__tmp155464 + (let ((__tmp155465 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) - (cons __tmp155461 '())))) + (cons __tmp155465 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp155460))) - (__tmp155453 - (let ((__tmp155457 - (let ((__tmp155458 + (cons '%#ref __tmp155464))) + (__tmp155457 + (let ((__tmp155461 + (let ((__tmp155462 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154301_ '())))) + (cons _$obj154305_ '())))) (declare (not safe)) - (cons '%#ref __tmp155458))) - (__tmp155454 - (let ((__tmp155455 - (let ((__tmp155456 + (cons '%#ref __tmp155462))) + (__tmp155458 + (let ((__tmp155459 + (let ((__tmp155460 (let () (declare (not safe)) - (cons _ctor154299_ '())))) + (cons _ctor154303_ '())))) (declare (not safe)) - (cons '%#quote __tmp155456)))) + (cons '%#quote __tmp155460)))) (declare (not safe)) - (cons __tmp155455 '())))) + (cons __tmp155459 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155457 - __tmp155454)))) + (cons __tmp155461 + __tmp155458)))) (declare (not safe)) - (cons __tmp155459 __tmp155453)))) + (cons __tmp155463 __tmp155457)))) (declare (not safe)) - (cons __tmp155462 __tmp155452)))) + (cons __tmp155466 __tmp155456)))) (declare (not safe)) - (cons '%#call __tmp155451)))) + (cons '%#call __tmp155455)))) (declare (not safe)) - (cons __tmp155450 '())))) + (cons __tmp155454 '())))) (declare (not safe)) - (cons __tmp155464 __tmp155449)))) + (cons __tmp155468 __tmp155453)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155448 '()))) - (__tmp155413 - (let ((__tmp155414 - (let ((__tmp155415 - (let ((__tmp155445 + (cons __tmp155452 '()))) + (__tmp155417 + (let ((__tmp155418 + (let ((__tmp155419 + (let ((__tmp155449 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155446 + (let ((__tmp155450 (let () (declare (not safe)) - (cons _$ctor154304_ '())))) + (cons _$ctor154308_ '())))) (declare (not safe)) - (cons '%#ref __tmp155446))) - (__tmp155416 - (let ((__tmp155438 - (let ((__tmp155439 - (let ((__tmp155443 - (let ((__tmp155444 + (cons '%#ref __tmp155450))) + (__tmp155420 + (let ((__tmp155442 + (let ((__tmp155443 + (let ((__tmp155447 + (let ((__tmp155448 (let () (declare (not safe)) - (cons _$ctor154304_ + (cons _$ctor154308_ '())))) (declare (not safe)) - (cons '%#ref __tmp155444))) - (__tmp155440 - (let ((__tmp155441 - (let ((__tmp155442 + (cons '%#ref __tmp155448))) + (__tmp155444 + (let ((__tmp155445 + (let ((__tmp155446 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154301_ '())))) + (cons _$obj154305_ '())))) (declare (not safe)) - (cons '%#ref __tmp155442)))) + (cons '%#ref __tmp155446)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155441 - _args154291_)))) + (cons __tmp155445 + _args154295_)))) (declare (not safe)) - (cons __tmp155443 __tmp155440)))) + (cons __tmp155447 __tmp155444)))) (declare (not safe)) - (cons '%#call __tmp155439))) - (__tmp155417 - (let ((__tmp155418 - (let ((__tmp155419 - (let ((__tmp155436 - (let ((__tmp155437 + (cons '%#call __tmp155443))) + (__tmp155421 + (let ((__tmp155422 + (let ((__tmp155423 + (let ((__tmp155440 + (let ((__tmp155441 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp155437))) - (__tmp155420 - (let ((__tmp155434 - (let ((__tmp155435 + (cons '%#ref __tmp155441))) + (__tmp155424 + (let ((__tmp155438 + (let ((__tmp155439 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp155435))) - (__tmp155421 - (let ((__tmp155432 - (let ((__tmp155433 + (cons '%#quote __tmp155439))) + (__tmp155425 + (let ((__tmp155436 + (let ((__tmp155437 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp155433))) - (__tmp155422 - (let ((__tmp155429 - (let ((__tmp155430 - (let ((__tmp155431 + (cons '%#quote __tmp155437))) + (__tmp155426 + (let ((__tmp155433 + (let ((__tmp155434 + (let ((__tmp155435 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) - (cons __tmp155431 '())))) + (cons __tmp155435 '())))) (declare (not safe)) - (cons '%#ref __tmp155430))) - (__tmp155423 - (let ((__tmp155427 - (let ((__tmp155428 + (cons '%#ref __tmp155434))) + (__tmp155427 + (let ((__tmp155431 + (let ((__tmp155432 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp155428))) - (__tmp155424 - (let ((__tmp155425 - (let ((__tmp155426 + (cons '%#quote __tmp155432))) + (__tmp155428 + (let ((__tmp155429 + (let ((__tmp155430 (let () (declare (not safe)) - (cons _ctor154299_ + (cons _ctor154303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp155426)))) + __tmp155430)))) (declare (not safe)) - (cons __tmp155425 '())))) + (cons __tmp155429 '())))) (declare (not safe)) - (cons __tmp155427 __tmp155424)))) + (cons __tmp155431 __tmp155428)))) (declare (not safe)) - (cons __tmp155429 __tmp155423)))) + (cons __tmp155433 __tmp155427)))) (declare (not safe)) - (cons __tmp155432 __tmp155422)))) + (cons __tmp155436 __tmp155426)))) (declare (not safe)) - (cons __tmp155434 __tmp155421)))) + (cons __tmp155438 __tmp155425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155436 - __tmp155420)))) + (cons __tmp155440 + __tmp155424)))) (declare (not safe)) - (cons '%#call __tmp155419)))) + (cons '%#call __tmp155423)))) (declare (not safe)) - (cons __tmp155418 '())))) + (cons __tmp155422 '())))) (declare (not safe)) - (cons __tmp155438 __tmp155417)))) + (cons __tmp155442 __tmp155421)))) (declare (not safe)) - (cons __tmp155445 __tmp155416)))) + (cons __tmp155449 __tmp155420)))) (declare (not safe)) - (cons '%#if __tmp155415)))) + (cons '%#if __tmp155419)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155414 '())))) + (cons __tmp155418 '())))) (declare (not safe)) - (cons __tmp155447 __tmp155413)))) + (cons __tmp155451 __tmp155417)))) (declare (not safe)) - (cons '%#let-values __tmp155412)))) - (__tmp155407 - (let ((__tmp155408 - (let ((__tmp155409 + (cons '%#let-values __tmp155416)))) + (__tmp155411 + (let ((__tmp155412 + (let ((__tmp155413 (let () (declare (not safe)) - (cons _$obj154301_ '())))) + (cons _$obj154305_ '())))) (declare (not safe)) - (cons '%#ref __tmp155409)))) + (cons '%#ref __tmp155413)))) (declare (not safe)) - (cons __tmp155408 '())))) + (cons __tmp155412 '())))) (declare (not safe)) - (cons __tmp155410 __tmp155407)))) + (cons __tmp155414 __tmp155411)))) (declare (not safe)) - (cons '%#begin __tmp155406)))) + (cons '%#begin __tmp155410)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155405 '())))) + (cons __tmp155409 '())))) (declare (not safe)) - (cons __tmp155471 __tmp155404)))) + (cons __tmp155475 __tmp155408)))) (declare (not safe)) - (cons '%#let-values __tmp155403)))) + (cons '%#let-values __tmp155407)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155402 _stx154280_)))) - _$e154296_) - (let ((_$e154306_ + (gxc#xform-wrap-source __tmp155406 _stx154284_)))) + _$e154300_) + (let ((_$e154310_ (##structure-ref - _klass154283_ + _klass154287_ '10 gxc#!class::t '#f))) - (if _$e154306_ - ((lambda (_metaclass154309_) - (let* ((_$obj154311_ - (let ((__tmp155363 (gensym '__obj))) + (if _$e154310_ + ((lambda (_metaclass154313_) + (let* ((_$obj154315_ + (let ((__tmp155367 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155363))) - (_metakons154313_ - (let ((__tmp155364 + (make-symbol__0 __tmp155367))) + (_metakons154317_ + (let ((__tmp155368 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx154280_ - _metaclass154309_)))) + _stx154284_ + _metaclass154313_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp155364 + __tmp155368 'instance-init!)))) - (let ((__tmp155365 - (let ((__tmp155366 - (let ((__tmp155397 - (let ((__tmp155398 - (let ((__tmp155400 + (let ((__tmp155369 + (let ((__tmp155370 + (let ((__tmp155401 + (let ((__tmp155402 + (let ((__tmp155404 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj154311_ '()))) - (__tmp155399 + (cons _$obj154315_ '()))) + (__tmp155403 (let () (declare (not safe)) - (cons _inline-make-object154293_ '())))) + (cons _inline-make-object154297_ '())))) (declare (not safe)) - (cons __tmp155400 __tmp155399)))) + (cons __tmp155404 __tmp155403)))) (declare (not safe)) - (cons __tmp155398 '()))) + (cons __tmp155402 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155367 - (let ((__tmp155368 - (let ((__tmp155369 + (__tmp155371 + (let ((__tmp155372 + (let ((__tmp155373 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155373 - (if _metakons154313_ - (let ((__tmp155387 - (let ((__tmp155395 - (let ((__tmp155396 + (let ((__tmp155377 + (if _metakons154317_ + (let ((__tmp155391 + (let ((__tmp155399 + (let ((__tmp155400 (let () (declare (not safe)) - (cons _metakons154313_ + (cons _metakons154317_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155396))) - (__tmp155388 - (let ((__tmp155392 - (let ((__tmp155393 + __tmp155400))) + (__tmp155392 + (let ((__tmp155396 + (let ((__tmp155397 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155394 + (let ((__tmp155398 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) - (cons __tmp155394 '())))) + (cons __tmp155398 '())))) (declare (not safe)) - (cons '%#ref __tmp155393))) - (__tmp155389 - (let ((__tmp155390 - (let ((__tmp155391 + (cons '%#ref __tmp155397))) + (__tmp155393 + (let ((__tmp155394 + (let ((__tmp155395 (let () (declare (not safe)) - (cons _$obj154311_ '())))) + (cons _$obj154315_ '())))) (declare (not safe)) - (cons '%#ref __tmp155391)))) + (cons '%#ref __tmp155395)))) (declare (not safe)) - (cons __tmp155390 _args154291_)))) + (cons __tmp155394 _args154295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155392 - __tmp155389)))) + (cons __tmp155396 + __tmp155393)))) (declare (not safe)) - (cons __tmp155395 __tmp155388)))) + (cons __tmp155399 __tmp155392)))) (declare (not safe)) - (cons '%#call __tmp155387)) - (let ((__tmp155374 - (let ((__tmp155385 - (let ((__tmp155386 + (cons '%#call __tmp155391)) + (let ((__tmp155378 + (let ((__tmp155389 + (let ((__tmp155390 (let () (declare (not safe)) @@ -2046,526 +2046,526 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155386))) - (__tmp155375 - (let ((__tmp155382 - (let ((__tmp155383 + __tmp155390))) + (__tmp155379 + (let ((__tmp155386 + (let ((__tmp155387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155384 + (let ((__tmp155388 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) - (cons __tmp155384 '())))) + (cons __tmp155388 '())))) (declare (not safe)) - (cons '%#ref __tmp155383))) - (__tmp155376 - (let ((__tmp155380 - (let ((__tmp155381 + (cons '%#ref __tmp155387))) + (__tmp155380 + (let ((__tmp155384 + (let ((__tmp155385 (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp155381))) - (__tmp155377 - (let ((__tmp155378 - (let ((__tmp155379 + (cons '%#quote __tmp155385))) + (__tmp155381 + (let ((__tmp155382 + (let ((__tmp155383 (let () (declare (not safe)) - (cons _$obj154311_ '())))) + (cons _$obj154315_ '())))) (declare (not safe)) - (cons '%#ref __tmp155379)))) + (cons '%#ref __tmp155383)))) (declare (not safe)) - (cons __tmp155378 _args154291_)))) + (cons __tmp155382 _args154295_)))) (declare (not safe)) - (cons __tmp155380 __tmp155377)))) + (cons __tmp155384 __tmp155381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155382 - __tmp155376)))) + (cons __tmp155386 + __tmp155380)))) (declare (not safe)) - (cons __tmp155385 __tmp155375)))) + (cons __tmp155389 __tmp155379)))) (declare (not safe)) - (cons '%#call __tmp155374)))) - (__tmp155370 - (let ((__tmp155371 - (let ((__tmp155372 + (cons '%#call __tmp155378)))) + (__tmp155374 + (let ((__tmp155375 + (let ((__tmp155376 (let () (declare (not safe)) - (cons _$obj154311_ '())))) + (cons _$obj154315_ '())))) (declare (not safe)) - (cons '%#ref __tmp155372)))) + (cons '%#ref __tmp155376)))) (declare (not safe)) - (cons __tmp155371 '())))) + (cons __tmp155375 '())))) (declare (not safe)) - (cons __tmp155373 __tmp155370)))) + (cons __tmp155377 __tmp155374)))) (declare (not safe)) - (cons '%#begin __tmp155369)))) + (cons '%#begin __tmp155373)))) (declare (not safe)) - (cons __tmp155368 '())))) + (cons __tmp155372 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155397 - __tmp155367)))) + (cons __tmp155401 + __tmp155371)))) (declare (not safe)) - (cons '%#let-values __tmp155366)))) + (cons '%#let-values __tmp155370)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155365 - _stx154280_)))) - _$e154306_) + __tmp155369 + _stx154284_)))) + _$e154310_) (if (##structure-ref - _klass154283_ + _klass154287_ '7 gxc#!class::t '#f) - (if (fx= (length _args154291_) _fields154285_) - (let ((__tmp155355 - (let ((__tmp155356 - (let ((__tmp155361 - (let ((__tmp155362 + (if (fx= (length _args154295_) _fields154289_) + (let ((__tmp155359 + (let ((__tmp155360 + (let ((__tmp155365 + (let ((__tmp155366 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp155362))) - (__tmp155357 - (let ((__tmp155358 - (let ((__tmp155359 - (let ((__tmp155360 + (cons '%#ref __tmp155366))) + (__tmp155361 + (let ((__tmp155362 + (let ((__tmp155363 + (let ((__tmp155364 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) - (cons __tmp155360 '())))) + (cons __tmp155364 '())))) (declare (not safe)) - (cons '%#ref __tmp155359)))) + (cons '%#ref __tmp155363)))) (declare (not safe)) - (cons __tmp155358 _args154291_)))) + (cons __tmp155362 _args154295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155361 - __tmp155357)))) + (cons __tmp155365 + __tmp155361)))) (declare (not safe)) - (cons '%#call __tmp155356)))) + (cons '%#call __tmp155360)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155355 - _stx154280_)) - (let ((__tmp155354 + __tmp155359 + _stx154284_)) + (let ((__tmp155358 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f))) - (__tmp155353 + (__tmp155357 (length (##structure-ref - _klass154283_ + _klass154287_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx154280_ - __tmp155354 - __tmp155353))) - (let ((_$obj154316_ - (let ((__tmp155302 (gensym '__obj))) + _stx154284_ + __tmp155358 + __tmp155357))) + (let ((_$obj154320_ + (let ((__tmp155306 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155302)))) - (let _lp154318_ ((_rest154320_ _args154291_) - (_initializers154321_ '())) - (let* ((___stx154889154890_ _rest154320_) - (_g154325154346_ + (make-symbol__0 __tmp155306)))) + (let _lp154322_ ((_rest154324_ _args154295_) + (_initializers154325_ '())) + (let* ((___stx154893154894_ _rest154324_) + (_g154329154350_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154889154890_))))) - (let ((___kont154891154892_ - (lambda (_L154400_ - _L154401_ - _L154402_) - (let* ((_slot154433_ + ___stx154893154894_))))) + (let ((___kont154895154896_ + (lambda (_L154404_ + _L154405_ + _L154406_) + (let* ((_slot154437_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L154402_)))) - (_off154435_ + (gx#stx-e _L154406_)))) + (_off154439_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass154283_ - _slot154433_)))) - (if _off154435_ - (let ((__tmp155304 - (let ((__tmp155305 + _klass154287_ + _slot154437_)))) + (if _off154439_ + (let ((__tmp155308 + (let ((__tmp155309 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _off154435_ _L154401_)))) + (cons _off154439_ _L154405_)))) (declare (not safe)) - (cons __tmp155305 _initializers154321_)))) + (cons __tmp155309 _initializers154325_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp154318_ - _L154400_ - __tmp155304)) - (let ((__tmp155303 + (_lp154322_ + _L154404_ + __tmp155308)) + (let ((__tmp155307 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx154280_ - __tmp155303 - _slot154433_)))))) - (___kont154893154894_ + _stx154284_ + __tmp155307 + _slot154437_)))))) + (___kont154897154898_ (lambda () - (let ((__tmp155306 - (let ((__tmp155307 - (let ((__tmp155330 + (let ((__tmp155310 + (let ((__tmp155311 + (let ((__tmp155334 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155331 - (let ((__tmp155333 + (let ((__tmp155335 + (let ((__tmp155337 (let () (declare (not safe)) - (cons _$obj154316_ '()))) - (__tmp155332 + (cons _$obj154320_ '()))) + (__tmp155336 (let () (declare (not safe)) - (cons _inline-make-object154293_ + (cons _inline-make-object154297_ '())))) (declare (not safe)) - (cons __tmp155333 __tmp155332)))) + (cons __tmp155337 __tmp155336)))) (declare (not safe)) - (cons __tmp155331 '()))) - (__tmp155308 - (let ((__tmp155309 - (let ((__tmp155310 - (let ((__tmp155327 - (let ((__tmp155328 - (let ((__tmp155329 + (cons __tmp155335 '()))) + (__tmp155312 + (let ((__tmp155313 + (let ((__tmp155314 + (let ((__tmp155331 + (let ((__tmp155332 + (let ((__tmp155333 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154316_ '())))) + (cons _$obj154320_ '())))) (declare (not safe)) - (cons '%#ref __tmp155329)))) + (cons '%#ref __tmp155333)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155328 '()))) - (__tmp155311 - (let ((__tmp155312 - (lambda (_i154360_ - _r154361_) - (let ((__tmp155313 - (let ((__tmp155314 + (cons __tmp155332 '()))) + (__tmp155315 + (let ((__tmp155316 + (lambda (_i154364_ + _r154365_) + (let ((__tmp155317 + (let ((__tmp155318 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155324 - (let ((__tmp155325 - (let ((__tmp155326 + (let ((__tmp155328 + (let ((__tmp155329 + (let ((__tmp155330 (let () (declare (not safe)) (##unchecked-structure-ref - _self154278_ - __id154772 - __klass154770 + _self154282_ + __id154776 + __klass154774 '#f)))) (declare (not safe)) - (cons __tmp155326 '())))) + (cons __tmp155330 '())))) (declare (not safe)) - (cons '%#ref __tmp155325))) - (__tmp155315 - (let ((__tmp155321 - (let ((__tmp155322 - (let ((__tmp155323 - (car _i154360_))) + (cons '%#ref __tmp155329))) + (__tmp155319 + (let ((__tmp155325 + (let ((__tmp155326 + (let ((__tmp155327 + (car _i154364_))) (declare (not safe)) - (cons __tmp155323 '())))) + (cons __tmp155327 '())))) (declare (not safe)) - (cons '%#quote __tmp155322))) - (__tmp155316 - (let ((__tmp155319 - (let ((__tmp155320 + (cons '%#quote __tmp155326))) + (__tmp155320 + (let ((__tmp155323 + (let ((__tmp155324 (let () (declare (not safe)) - (cons _$obj154316_ + (cons _$obj154320_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155320))) - (__tmp155317 - (let ((__tmp155318 - (cdr _i154360_))) + __tmp155324))) + (__tmp155321 + (let ((__tmp155322 + (cdr _i154364_))) (declare (not safe)) - (cons __tmp155318 '())))) + (cons __tmp155322 '())))) (declare (not safe)) - (cons __tmp155319 __tmp155317)))) + (cons __tmp155323 __tmp155321)))) (declare (not safe)) - (cons __tmp155321 __tmp155316)))) + (cons __tmp155325 __tmp155320)))) (declare (not safe)) - (cons __tmp155324 __tmp155315)))) + (cons __tmp155328 __tmp155319)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp155314)))) + (cons '%#struct-unchecked-set! __tmp155318)))) (declare (not safe)) - (cons __tmp155313 _r154361_))))) + (cons __tmp155317 _r154365_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp155312 + (foldl1 __tmp155316 '() - _initializers154321_)))) + _initializers154325_)))) (declare (not safe)) (foldr1 cons - __tmp155327 - __tmp155311)))) + __tmp155331 + __tmp155315)))) (declare (not safe)) - (cons '%#begin __tmp155310)))) + (cons '%#begin __tmp155314)))) (declare (not safe)) - (cons __tmp155309 '())))) + (cons __tmp155313 '())))) (declare (not safe)) - (cons __tmp155330 __tmp155308)))) + (cons __tmp155334 __tmp155312)))) (declare (not safe)) - (cons '%#let-values __tmp155307)))) + (cons '%#let-values __tmp155311)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155306 - _stx154280_)))) - (___kont154895154896_ + __tmp155310 + _stx154284_)))) + (___kont154899154900_ (lambda () - (let ((__tmp155334 - (let ((__tmp155335 - (let ((__tmp155349 + (let ((__tmp155338 + (let ((__tmp155339 + (let ((__tmp155353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155350 - (let ((__tmp155352 + (let ((__tmp155354 + (let ((__tmp155356 (let () (declare (not safe)) - (cons _$obj154316_ '()))) - (__tmp155351 + (cons _$obj154320_ '()))) + (__tmp155355 (let () (declare (not safe)) - (cons _inline-make-object154293_ + (cons _inline-make-object154297_ '())))) (declare (not safe)) - (cons __tmp155352 __tmp155351)))) + (cons __tmp155356 __tmp155355)))) (declare (not safe)) - (cons __tmp155350 '()))) - (__tmp155336 - (let ((__tmp155337 - (let ((__tmp155338 - (let ((__tmp155342 - (let ((__tmp155343 - (let ((__tmp155347 - (let ((__tmp155348 + (cons __tmp155354 '()))) + (__tmp155340 + (let ((__tmp155341 + (let ((__tmp155342 + (let ((__tmp155346 + (let ((__tmp155347 + (let ((__tmp155351 + (let ((__tmp155352 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp155348))) - (__tmp155344 - (let ((__tmp155345 - (let ((__tmp155346 + (cons '%#ref __tmp155352))) + (__tmp155348 + (let ((__tmp155349 + (let ((__tmp155350 (let () (declare (not safe)) - (cons _$obj154316_ '())))) + (cons _$obj154320_ '())))) (declare (not safe)) - (cons '%#ref __tmp155346)))) + (cons '%#ref __tmp155350)))) (declare (not safe)) - (cons __tmp155345 _args154291_)))) + (cons __tmp155349 _args154295_)))) (declare (not safe)) - (cons __tmp155347 __tmp155344)))) + (cons __tmp155351 __tmp155348)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp155343))) - (__tmp155339 - (let ((__tmp155340 - (let ((__tmp155341 + (cons '%#call __tmp155347))) + (__tmp155343 + (let ((__tmp155344 + (let ((__tmp155345 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154316_ '())))) + (cons _$obj154320_ '())))) (declare (not safe)) - (cons '%#ref __tmp155341)))) + (cons '%#ref __tmp155345)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155340 '())))) + (cons __tmp155344 '())))) (declare (not safe)) - (cons __tmp155342 __tmp155339)))) + (cons __tmp155346 __tmp155343)))) (declare (not safe)) - (cons '%#begin __tmp155338)))) + (cons '%#begin __tmp155342)))) (declare (not safe)) - (cons __tmp155337 '())))) + (cons __tmp155341 '())))) (declare (not safe)) - (cons __tmp155349 __tmp155336)))) + (cons __tmp155353 __tmp155340)))) (declare (not safe)) - (cons '%#let-values __tmp155335)))) + (cons '%#let-values __tmp155339)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155334 - _stx154280_))))) - (let* ((_g154323154363_ + __tmp155338 + _stx154284_))))) + (let* ((_g154327154367_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx154889154890_)) - (___kont154893154894_) - (___kont154895154896_)))) - (___match154926154927_ - (lambda (_e154332154368_ - _hd154331154371_ - _tl154330154373_ - _e154335154376_ - _hd154334154379_ - _tl154333154381_ - _e154338154384_ - _hd154337154387_ - _tl154336154389_ - _e154341154392_ - _hd154340154395_ - _tl154339154397_) - (let ((_L154400_ - _tl154339154397_) - (_L154401_ - _hd154340154395_) - (_L154402_ - _hd154337154387_)) + ___stx154893154894_)) + (___kont154897154898_) + (___kont154899154900_)))) + (___match154930154931_ + (lambda (_e154336154372_ + _hd154335154375_ + _tl154334154377_ + _e154339154380_ + _hd154338154383_ + _tl154337154385_ + _e154342154388_ + _hd154341154391_ + _tl154340154393_ + _e154345154396_ + _hd154344154399_ + _tl154343154401_) + (let ((_L154404_ + _tl154343154401_) + (_L154405_ + _hd154344154399_) + (_L154406_ + _hd154341154391_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L154402_)) - (___kont154891154892_ - _L154400_ - _L154401_ - _L154402_) - (___kont154895154896_)))))) + _L154406_)) + (___kont154895154896_ + _L154404_ + _L154405_ + _L154406_) + (___kont154899154900_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx154889154890_)) - (let ((_e154332154368_ + ___stx154893154894_)) + (let ((_e154336154372_ (let () (declare (not safe)) (gx#stx-e - ___stx154889154890_)))) - (let ((_tl154330154373_ + ___stx154893154894_)))) + (let ((_tl154334154377_ (let () (declare (not safe)) - (##cdr _e154332154368_))) - (_hd154331154371_ + (##cdr _e154336154372_))) + (_hd154335154375_ (let () (declare (not safe)) - (##car _e154332154368_)))) + (##car _e154336154372_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd154331154371_)) - (let ((_e154335154376_ + _hd154335154375_)) + (let ((_e154339154380_ (let () (declare (not safe)) (gx#stx-e - _hd154331154371_)))) - (let ((_tl154333154381_ + _hd154335154375_)))) + (let ((_tl154337154385_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e154335154376_))) - (_hd154334154379_ - (let () (declare (not safe)) (##car _e154335154376_)))) + (##cdr _e154339154380_))) + (_hd154338154383_ + (let () (declare (not safe)) (##car _e154339154380_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd154334154379_)) + (gx#identifier? _hd154338154383_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd154334154379_)) + (gx#stx-eq? '%#quote _hd154338154383_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl154333154381_)) - (let ((_e154338154384_ + (gx#stx-pair? _tl154337154385_)) + (let ((_e154342154388_ (let () (declare (not safe)) - (gx#stx-e _tl154333154381_)))) - (let ((_tl154336154389_ + (gx#stx-e _tl154337154385_)))) + (let ((_tl154340154393_ (let () (declare (not safe)) - (##cdr _e154338154384_))) - (_hd154337154387_ + (##cdr _e154342154388_))) + (_hd154341154391_ (let () (declare (not safe)) - (##car _e154338154384_)))) + (##car _e154342154388_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154336154389_)) + (gx#stx-null? _tl154340154393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl154330154373_)) - (let ((_e154341154392_ + (gx#stx-pair? _tl154334154377_)) + (let ((_e154345154396_ (let () (declare (not safe)) - (gx#stx-e _tl154330154373_)))) - (let ((_tl154339154397_ + (gx#stx-e _tl154334154377_)))) + (let ((_tl154343154401_ (let () (declare (not safe)) - (##cdr _e154341154392_))) - (_hd154340154395_ + (##cdr _e154345154396_))) + (_hd154344154399_ (let () (declare (not safe)) - (##car _e154341154392_)))) - (___match154926154927_ - _e154332154368_ - _hd154331154371_ - _tl154330154373_ - _e154335154376_ - _hd154334154379_ - _tl154333154381_ - _e154338154384_ - _hd154337154387_ - _tl154336154389_ - _e154341154392_ - _hd154340154395_ - _tl154339154397_))) - (___kont154895154896_)) - (___kont154895154896_)))) - (___kont154895154896_)) - (___kont154895154896_)) - (___kont154895154896_)))) + (##car _e154345154396_)))) + (___match154930154931_ + _e154336154372_ + _hd154335154375_ + _tl154334154377_ + _e154339154380_ + _hd154338154383_ + _tl154337154385_ + _e154342154388_ + _hd154341154391_ + _tl154340154393_ + _e154345154396_ + _hd154344154399_ + _tl154343154401_))) + (___kont154899154900_)) + (___kont154899154900_)))) + (___kont154899154900_)) + (___kont154899154900_)) + (___kont154899154900_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont154895154896_)))) + (___kont154899154900_)))) (let () (declare (not safe)) - (_g154323154363_)))))))))))))))))) + (_g154327154367_)))))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2579,958 +2579,958 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self154100_ _ctx154101_ _stx154102_ _args154103_) - (let* ((_g154105154115_ - (lambda (_g154106154112_) + (lambda (_self154104_ _ctx154105_ _stx154106_ _args154107_) + (let* ((_g154109154119_ + (lambda (_g154110154116_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g154106154112_)))) - (_g154104154153_ - (lambda (_g154106154118_) + _g154110154116_)))) + (_g154108154157_ + (lambda (_g154110154122_) (if (let () (declare (not safe)) - (gx#stx-pair? _g154106154118_)) - (let ((_e154110154120_ + (gx#stx-pair? _g154110154122_)) + (let ((_e154114154124_ (let () (declare (not safe)) - (gx#stx-e _g154106154118_)))) - (let ((_hd154109154123_ + (gx#stx-e _g154110154122_)))) + (let ((_hd154113154127_ (let () (declare (not safe)) - (##car _e154110154120_))) - (_tl154108154125_ + (##car _e154114154124_))) + (_tl154112154129_ (let () (declare (not safe)) - (##cdr _e154110154120_)))) + (##cdr _e154114154124_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154108154125_)) - ((lambda (_L154128_) - (let* ((_klass154139_ - (let ((__tmp155475 + (gx#stx-null? _tl154112154129_)) + ((lambda (_L154132_) + (let* ((_klass154143_ + (let ((__tmp155479 (##structure-ref - _self154100_ + _self154104_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx154102_ - __tmp155475))) - (_field154141_ - (let ((__tmp155476 + _stx154106_ + __tmp155479))) + (_field154145_ + (let ((__tmp155480 (##structure-ref - _self154100_ + _self154104_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass154139_ - __tmp155476))) - (_object154143_ + _klass154143_ + __tmp155480))) + (_object154147_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx154101_ - _L154128_)))) + _ctx154105_ + _L154132_)))) (if (##structure-ref - _klass154139_ + _klass154143_ '8 gxc#!class::t '#f) - (let ((__tmp155553 - (let ((__tmp155562 + (let ((__tmp155557 + (let ((__tmp155566 (if (##structure-ref - _self154100_ + _self154104_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp155554 - (let ((__tmp155559 - (let ((__tmp155560 + (__tmp155558 + (let ((__tmp155563 + (let ((__tmp155564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155561 + (let ((__tmp155565 (##structure-ref - _self154100_ + _self154104_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155561 '())))) + (cons __tmp155565 '())))) (declare (not safe)) - (cons '%#ref __tmp155560))) - (__tmp155555 - (let ((__tmp155557 - (let ((__tmp155558 + (cons '%#ref __tmp155564))) + (__tmp155559 + (let ((__tmp155561 + (let ((__tmp155562 (let () (declare (not safe)) - (cons _field154141_ '())))) + (cons _field154145_ '())))) (declare (not safe)) - (cons '%#quote __tmp155558))) - (__tmp155556 + (cons '%#quote __tmp155562))) + (__tmp155560 (let () (declare (not safe)) - (cons _object154143_ '())))) + (cons _object154147_ '())))) (declare (not safe)) - (cons __tmp155557 __tmp155556)))) + (cons __tmp155561 __tmp155560)))) (declare (not safe)) - (cons __tmp155559 __tmp155555)))) + (cons __tmp155563 __tmp155559)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155562 - __tmp155554)))) + (cons __tmp155566 + __tmp155558)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155553 - _stx154102_)) + __tmp155557 + _stx154106_)) (if (##structure-ref - _klass154139_ + _klass154143_ '7 gxc#!class::t '#f) - (let ((__tmp155543 - (let ((__tmp155552 + (let ((__tmp155547 + (let ((__tmp155556 (if (##structure-ref - _self154100_ + _self154104_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp155544 - (let ((__tmp155549 - (let ((__tmp155550 + (__tmp155548 + (let ((__tmp155553 + (let ((__tmp155554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155551 + (let ((__tmp155555 (##structure-ref - _self154100_ + _self154104_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155551 '())))) + (cons __tmp155555 '())))) (declare (not safe)) - (cons '%#ref __tmp155550))) - (__tmp155545 - (let ((__tmp155547 - (let ((__tmp155548 + (cons '%#ref __tmp155554))) + (__tmp155549 + (let ((__tmp155551 + (let ((__tmp155552 (let () (declare (not safe)) - (cons _field154141_ '())))) + (cons _field154145_ '())))) (declare (not safe)) - (cons '%#quote __tmp155548))) - (__tmp155546 + (cons '%#quote __tmp155552))) + (__tmp155550 (let () (declare (not safe)) - (cons _object154143_ '())))) + (cons _object154147_ '())))) (declare (not safe)) - (cons __tmp155547 __tmp155546)))) + (cons __tmp155551 __tmp155550)))) (declare (not safe)) - (cons __tmp155549 __tmp155545)))) + (cons __tmp155553 __tmp155549)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155552 - __tmp155544)))) + (cons __tmp155556 + __tmp155548)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155543 - _stx154102_)) - (let ((_$e154146_ - (let ((__tmp155477 + __tmp155547 + _stx154106_)) + (let ((_$e154150_ + (let ((__tmp155481 (##structure-ref - _self154100_ + _self154104_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass154139_ - __tmp155477)))) - (if _$e154146_ - ((lambda (_klass154149_) - (let ((__tmp155533 - (let ((__tmp155542 + _klass154143_ + __tmp155481)))) + (if _$e154150_ + ((lambda (_klass154153_) + (let ((__tmp155537 + (let ((__tmp155546 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self154100_ + _self154104_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp155534 - (let ((__tmp155539 - (let ((__tmp155540 - (let ((__tmp155541 + (__tmp155538 + (let ((__tmp155543 + (let ((__tmp155544 + (let ((__tmp155545 (##structure-ref - _self154100_ + _self154104_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155541 '())))) + (cons __tmp155545 '())))) (declare (not safe)) - (cons '%#ref __tmp155540))) - (__tmp155535 - (let ((__tmp155537 - (let ((__tmp155538 + (cons '%#ref __tmp155544))) + (__tmp155539 + (let ((__tmp155541 + (let ((__tmp155542 (let () (declare (not safe)) - (cons _field154141_ '())))) + (cons _field154145_ '())))) (declare (not safe)) - (cons '%#quote __tmp155538))) - (__tmp155536 + (cons '%#quote __tmp155542))) + (__tmp155540 (let () (declare (not safe)) - (cons _object154143_ '())))) + (cons _object154147_ '())))) (declare (not safe)) - (cons __tmp155537 __tmp155536)))) + (cons __tmp155541 __tmp155540)))) (declare (not safe)) - (cons __tmp155539 __tmp155535)))) + (cons __tmp155543 __tmp155539)))) (declare (not safe)) - (cons __tmp155542 __tmp155534)))) + (cons __tmp155546 __tmp155538)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155533 _stx154102_))) + (gxc#xform-wrap-source __tmp155537 _stx154106_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e154146_) + _$e154150_) (if (##structure-ref - _self154100_ + _self154104_ '3 gxc#!accessor::t '#f) - (let ((__tmp155487 - (let* ((_$obj154151_ + (let ((__tmp155491 + (let* ((_$obj154155_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155488 (gensym '__obj))) + (let ((__tmp155492 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155488))) - (__tmp155489 - (let ((__tmp155529 - (let ((__tmp155530 - (let ((__tmp155532 + (make-symbol__0 __tmp155492))) + (__tmp155493 + (let ((__tmp155533 + (let ((__tmp155534 + (let ((__tmp155536 (let () (declare (not safe)) - (cons _$obj154151_ '()))) - (__tmp155531 + (cons _$obj154155_ '()))) + (__tmp155535 (let () (declare (not safe)) - (cons _object154143_ '())))) + (cons _object154147_ '())))) (declare (not safe)) - (cons __tmp155532 __tmp155531)))) + (cons __tmp155536 __tmp155535)))) (declare (not safe)) - (cons __tmp155530 '()))) - (__tmp155490 - (let ((__tmp155491 - (let ((__tmp155492 - (let ((__tmp155521 - (let ((__tmp155522 - (let ((__tmp155526 + (cons __tmp155534 '()))) + (__tmp155494 + (let ((__tmp155495 + (let ((__tmp155496 + (let ((__tmp155525 + (let ((__tmp155526 + (let ((__tmp155530 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155527 - (let ((__tmp155528 + (let ((__tmp155531 + (let ((__tmp155532 (##structure-ref - _klass154139_ + _klass154143_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155528 '())))) + (cons __tmp155532 '())))) (declare (not safe)) - (cons '%#quote __tmp155527))) - (__tmp155523 - (let ((__tmp155524 - (let ((__tmp155525 + (cons '%#quote __tmp155531))) + (__tmp155527 + (let ((__tmp155528 + (let ((__tmp155529 (let () (declare (not safe)) - (cons _$obj154151_ '())))) + (cons _$obj154155_ '())))) (declare (not safe)) - (cons '%#ref __tmp155525)))) + (cons '%#ref __tmp155529)))) (declare (not safe)) - (cons __tmp155524 '())))) + (cons __tmp155528 '())))) (declare (not safe)) - (cons __tmp155526 __tmp155523)))) + (cons __tmp155530 __tmp155527)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp155522))) - (__tmp155493 - (let ((__tmp155510 - (let ((__tmp155511 - (let ((__tmp155518 - (let ((__tmp155519 - (let ((__tmp155520 + (cons '%#struct-direct-instance? __tmp155526))) + (__tmp155497 + (let ((__tmp155514 + (let ((__tmp155515 + (let ((__tmp155522 + (let ((__tmp155523 + (let ((__tmp155524 (##structure-ref - _self154100_ + _self154104_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155520 '())))) + (cons __tmp155524 '())))) (declare (not safe)) - (cons '%#ref __tmp155519))) - (__tmp155512 - (let ((__tmp155516 - (let ((__tmp155517 + (cons '%#ref __tmp155523))) + (__tmp155516 + (let ((__tmp155520 + (let ((__tmp155521 (let () (declare (not safe)) - (cons _field154141_ + (cons _field154145_ '())))) (declare (not safe)) - (cons '%#quote __tmp155517))) - (__tmp155513 - (let ((__tmp155514 - (let ((__tmp155515 + (cons '%#quote __tmp155521))) + (__tmp155517 + (let ((__tmp155518 + (let ((__tmp155519 (let () (declare (not safe)) - (cons _$obj154151_ + (cons _$obj154155_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155515)))) + __tmp155519)))) (declare (not safe)) - (cons __tmp155514 '())))) + (cons __tmp155518 '())))) (declare (not safe)) - (cons __tmp155516 __tmp155513)))) + (cons __tmp155520 __tmp155517)))) (declare (not safe)) - (cons __tmp155518 __tmp155512)))) + (cons __tmp155522 __tmp155516)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp155511))) - (__tmp155494 - (let ((__tmp155495 - (let ((__tmp155496 - (let ((__tmp155508 - (let ((__tmp155509 + (cons '%#struct-unchecked-ref __tmp155515))) + (__tmp155498 + (let ((__tmp155499 + (let ((__tmp155500 + (let ((__tmp155512 + (let ((__tmp155513 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155509))) - (__tmp155497 - (let ((__tmp155505 - (let ((__tmp155506 - (let ((__tmp155507 + (cons '%#ref __tmp155513))) + (__tmp155501 + (let ((__tmp155509 + (let ((__tmp155510 + (let ((__tmp155511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self154100_ '1 gxc#!type::t '#f))) + (##structure-ref _self154104_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155507 '())))) + (cons __tmp155511 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155506))) - (__tmp155498 - (let ((__tmp155503 - (let ((__tmp155504 + __tmp155510))) + (__tmp155502 + (let ((__tmp155507 + (let ((__tmp155508 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj154151_ '())))) + (cons _$obj154155_ '())))) (declare (not safe)) - (cons '%#ref __tmp155504))) - (__tmp155499 - (let ((__tmp155500 - (let ((__tmp155501 - (let ((__tmp155502 + (cons '%#ref __tmp155508))) + (__tmp155503 + (let ((__tmp155504 + (let ((__tmp155505 + (let ((__tmp155506 (##structure-ref - _self154100_ + _self154104_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp155502 '())))) + (cons __tmp155506 '())))) (declare (not safe)) - (cons '%#quote __tmp155501)))) + (cons '%#quote __tmp155505)))) (declare (not safe)) - (cons __tmp155500 '())))) + (cons __tmp155504 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155503 - __tmp155499)))) + (cons __tmp155507 + __tmp155503)))) (declare (not safe)) - (cons __tmp155505 __tmp155498)))) + (cons __tmp155509 __tmp155502)))) (declare (not safe)) - (cons __tmp155508 __tmp155497)))) + (cons __tmp155512 __tmp155501)))) (declare (not safe)) - (cons '%#call __tmp155496)))) + (cons '%#call __tmp155500)))) (declare (not safe)) - (cons __tmp155495 '())))) + (cons __tmp155499 '())))) (declare (not safe)) - (cons __tmp155510 __tmp155494)))) + (cons __tmp155514 __tmp155498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155521 - __tmp155493)))) + (cons __tmp155525 + __tmp155497)))) (declare (not safe)) - (cons '%#if __tmp155492)))) + (cons '%#if __tmp155496)))) (declare (not safe)) - (cons __tmp155491 '())))) + (cons __tmp155495 '())))) (declare (not safe)) - (cons __tmp155529 __tmp155490)))) + (cons __tmp155533 __tmp155494)))) (declare (not safe)) - (cons '%#let-values __tmp155489)))) + (cons '%#let-values __tmp155493)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155487 _stx154102_)) + (gxc#xform-wrap-source __tmp155491 _stx154106_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp155478 - (let ((__tmp155479 + (let ((__tmp155482 + (let ((__tmp155483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155485 - (let ((__tmp155486 + (let ((__tmp155489 + (let ((__tmp155490 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155486))) - (__tmp155480 - (let ((__tmp155481 - (let ((__tmp155482 - (let ((__tmp155483 - (let ((__tmp155484 + (cons '%#ref __tmp155490))) + (__tmp155484 + (let ((__tmp155485 + (let ((__tmp155486 + (let ((__tmp155487 + (let ((__tmp155488 (##structure-ref - _self154100_ + _self154104_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp155484 + (cons __tmp155488 '())))) (declare (not safe)) (cons '%#quote - __tmp155483)))) + __tmp155487)))) (declare (not safe)) - (cons __tmp155482 '())))) + (cons __tmp155486 '())))) (declare (not safe)) - (cons _object154143_ __tmp155481)))) + (cons _object154147_ __tmp155485)))) (declare (not safe)) - (cons __tmp155485 __tmp155480)))) + (cons __tmp155489 __tmp155484)))) (declare (not safe)) - (cons '%#call __tmp155479)))) + (cons '%#call __tmp155483)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155478 _stx154102_))))))))) + (gxc#xform-wrap-source __tmp155482 _stx154106_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd154109154123_) + _hd154113154127_) (let () (declare (not safe)) - (_g154105154115_ _g154106154118_))))) + (_g154109154119_ _g154110154122_))))) (let () (declare (not safe)) - (_g154105154115_ _g154106154118_)))))) + (_g154109154119_ _g154110154122_)))))) (declare (not safe)) - (_g154104154153_ _args154103_)))) + (_g154108154157_ _args154107_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass154774 __method-table154775) - (let ((__id154776 - (let ((__slot154779 + (lambda (__klass154778 __method-table154779) + (let ((__slot154780 + (let ((__slot154783 (let () (declare (not safe)) - (class-slot-offset __klass154774 'id)))) - (if __slot154779 - __slot154779 + (class-slot-offset __klass154778 'slot)))) + (if __slot154783 + __slot154783 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?154777 - (let ((__slot154780 + (error '"Unknown slot" 'slot))))) + (__id154781 + (let ((__slot154784 (let () (declare (not safe)) - (class-slot-offset __klass154774 'checked?)))) - (if __slot154780 - __slot154780 + (class-slot-offset __klass154778 'id)))) + (if __slot154784 + __slot154784 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?))))) - (__slot154778 - (let ((__slot154781 + (error '"Unknown slot" 'id))))) + (__checked?154782 + (let ((__slot154785 (let () (declare (not safe)) - (class-slot-offset __klass154774 'slot)))) - (if __slot154781 - __slot154781 + (class-slot-offset __klass154778 'checked?)))) + (if __slot154785 + __slot154785 (let () (declare (not safe)) - (error '"Unknown slot" 'slot)))))) - (lambda (_self154100_ _ctx154101_ _stx154102_ _args154103_) - (let* ((_g154105154115_ - (lambda (_g154106154112_) + (error '"Unknown slot" 'checked?)))))) + (lambda (_self154104_ _ctx154105_ _stx154106_ _args154107_) + (let* ((_g154109154119_ + (lambda (_g154110154116_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g154106154112_)))) - (_g154104154153_ - (lambda (_g154106154118_) + _g154110154116_)))) + (_g154108154157_ + (lambda (_g154110154122_) (if (let () (declare (not safe)) - (gx#stx-pair? _g154106154118_)) - (let ((_e154110154120_ + (gx#stx-pair? _g154110154122_)) + (let ((_e154114154124_ (let () (declare (not safe)) - (gx#stx-e _g154106154118_)))) - (let ((_hd154109154123_ + (gx#stx-e _g154110154122_)))) + (let ((_hd154113154127_ (let () (declare (not safe)) - (##car _e154110154120_))) - (_tl154108154125_ + (##car _e154114154124_))) + (_tl154112154129_ (let () (declare (not safe)) - (##cdr _e154110154120_)))) + (##cdr _e154114154124_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154108154125_)) - ((lambda (_L154128_) - (let* ((_klass154139_ - (let ((__tmp155563 + (gx#stx-null? _tl154112154129_)) + ((lambda (_L154132_) + (let* ((_klass154143_ + (let ((__tmp155567 (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __id154776 - __klass154774 + _self154104_ + __id154781 + __klass154778 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx154102_ - __tmp155563))) - (_field154141_ - (let ((__tmp155564 + _stx154106_ + __tmp155567))) + (_field154145_ + (let ((__tmp155568 (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __slot154778 - __klass154774 + _self154104_ + __slot154780 + __klass154778 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass154139_ - __tmp155564))) - (_object154143_ + _klass154143_ + __tmp155568))) + (_object154147_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx154101_ - _L154128_)))) + _ctx154105_ + _L154132_)))) (if (##structure-ref - _klass154139_ + _klass154143_ '8 gxc#!class::t '#f) - (let ((__tmp155641 - (let ((__tmp155650 + (let ((__tmp155645 + (let ((__tmp155654 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self154100_ - __checked?154777 - __klass154774 + _self154104_ + __checked?154782 + __klass154778 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp155642 - (let ((__tmp155647 - (let ((__tmp155648 - (let ((__tmp155649 + (__tmp155646 + (let ((__tmp155651 + (let ((__tmp155652 + (let ((__tmp155653 (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __id154776 - __klass154774 + _self154104_ + __id154781 + __klass154778 '#f)))) (declare (not safe)) - (cons __tmp155649 '())))) + (cons __tmp155653 '())))) (declare (not safe)) - (cons '%#ref __tmp155648))) - (__tmp155643 - (let ((__tmp155645 - (let ((__tmp155646 + (cons '%#ref __tmp155652))) + (__tmp155647 + (let ((__tmp155649 + (let ((__tmp155650 (let () (declare (not safe)) - (cons _field154141_ '())))) + (cons _field154145_ '())))) (declare (not safe)) - (cons '%#quote __tmp155646))) - (__tmp155644 + (cons '%#quote __tmp155650))) + (__tmp155648 (let () (declare (not safe)) - (cons _object154143_ '())))) + (cons _object154147_ '())))) (declare (not safe)) - (cons __tmp155645 __tmp155644)))) + (cons __tmp155649 __tmp155648)))) (declare (not safe)) - (cons __tmp155647 __tmp155643)))) + (cons __tmp155651 __tmp155647)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155650 - __tmp155642)))) + (cons __tmp155654 + __tmp155646)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155641 - _stx154102_)) + __tmp155645 + _stx154106_)) (if (##structure-ref - _klass154139_ + _klass154143_ '7 gxc#!class::t '#f) - (let ((__tmp155631 - (let ((__tmp155640 + (let ((__tmp155635 + (let ((__tmp155644 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __checked?154777 - __klass154774 + _self154104_ + __checked?154782 + __klass154778 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp155632 - (let ((__tmp155637 - (let ((__tmp155638 - (let ((__tmp155639 + (__tmp155636 + (let ((__tmp155641 + (let ((__tmp155642 + (let ((__tmp155643 (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __id154776 - __klass154774 + _self154104_ + __id154781 + __klass154778 '#f)))) (declare (not safe)) - (cons __tmp155639 '())))) + (cons __tmp155643 '())))) (declare (not safe)) - (cons '%#ref __tmp155638))) - (__tmp155633 - (let ((__tmp155635 - (let ((__tmp155636 + (cons '%#ref __tmp155642))) + (__tmp155637 + (let ((__tmp155639 + (let ((__tmp155640 (let () (declare (not safe)) - (cons _field154141_ '())))) + (cons _field154145_ '())))) (declare (not safe)) - (cons '%#quote __tmp155636))) - (__tmp155634 + (cons '%#quote __tmp155640))) + (__tmp155638 (let () (declare (not safe)) - (cons _object154143_ '())))) + (cons _object154147_ '())))) (declare (not safe)) - (cons __tmp155635 __tmp155634)))) + (cons __tmp155639 __tmp155638)))) (declare (not safe)) - (cons __tmp155637 __tmp155633)))) + (cons __tmp155641 __tmp155637)))) (declare (not safe)) - (cons __tmp155640 __tmp155632)))) + (cons __tmp155644 __tmp155636)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155631 - _stx154102_)) - (let ((_$e154146_ - (let ((__tmp155565 + __tmp155635 + _stx154106_)) + (let ((_$e154150_ + (let ((__tmp155569 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self154100_ - __slot154778 - __klass154774 + _self154104_ + __slot154780 + __klass154778 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass154139_ __tmp155565)))) + (gxc#!class-slot-find-struct _klass154143_ __tmp155569)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e154146_ - ((lambda (_klass154149_) - (let ((__tmp155621 - (let ((__tmp155630 + (if _$e154150_ + ((lambda (_klass154153_) + (let ((__tmp155625 + (let ((__tmp155634 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __checked?154777 - __klass154774 + _self154104_ + __checked?154782 + __klass154778 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp155622 - (let ((__tmp155627 - (let ((__tmp155628 - (let ((__tmp155629 + (__tmp155626 + (let ((__tmp155631 + (let ((__tmp155632 + (let ((__tmp155633 (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __id154776 - __klass154774 + _self154104_ + __id154781 + __klass154778 '#f)))) (declare (not safe)) - (cons __tmp155629 '())))) + (cons __tmp155633 '())))) (declare (not safe)) - (cons '%#ref __tmp155628))) - (__tmp155623 - (let ((__tmp155625 - (let ((__tmp155626 + (cons '%#ref __tmp155632))) + (__tmp155627 + (let ((__tmp155629 + (let ((__tmp155630 (let () (declare (not safe)) - (cons _field154141_ + (cons _field154145_ '())))) (declare (not safe)) - (cons '%#quote __tmp155626))) - (__tmp155624 + (cons '%#quote __tmp155630))) + (__tmp155628 (let () (declare (not safe)) - (cons _object154143_ '())))) + (cons _object154147_ '())))) (declare (not safe)) - (cons __tmp155625 __tmp155624)))) + (cons __tmp155629 __tmp155628)))) (declare (not safe)) - (cons __tmp155627 __tmp155623)))) + (cons __tmp155631 __tmp155627)))) (declare (not safe)) - (cons __tmp155630 __tmp155622)))) + (cons __tmp155634 __tmp155626)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155621 _stx154102_))) - _$e154146_) + (gxc#xform-wrap-source __tmp155625 _stx154106_))) + _$e154150_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __checked?154777 - __klass154774 + _self154104_ + __checked?154782 + __klass154778 '#f)) - (let ((__tmp155575 - (let* ((_$obj154151_ + (let ((__tmp155579 + (let* ((_$obj154155_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155576 (gensym '__obj))) + (let ((__tmp155580 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155576))) - (__tmp155577 - (let ((__tmp155617 - (let ((__tmp155618 - (let ((__tmp155620 + (make-symbol__0 __tmp155580))) + (__tmp155581 + (let ((__tmp155621 + (let ((__tmp155622 + (let ((__tmp155624 (let () (declare (not safe)) - (cons _$obj154151_ + (cons _$obj154155_ '()))) - (__tmp155619 + (__tmp155623 (let () (declare (not safe)) - (cons _object154143_ + (cons _object154147_ '())))) (declare (not safe)) - (cons __tmp155620 - __tmp155619)))) + (cons __tmp155624 + __tmp155623)))) (declare (not safe)) - (cons __tmp155618 '()))) - (__tmp155578 - (let ((__tmp155579 - (let ((__tmp155580 - (let ((__tmp155609 - (let ((__tmp155610 + (cons __tmp155622 '()))) + (__tmp155582 + (let ((__tmp155583 + (let ((__tmp155584 + (let ((__tmp155613 + (let ((__tmp155614 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155614 - (let ((__tmp155615 - (let ((__tmp155616 + (let ((__tmp155618 + (let ((__tmp155619 + (let ((__tmp155620 (##structure-ref - _klass154139_ + _klass154143_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155616 '())))) + (cons __tmp155620 '())))) (declare (not safe)) - (cons '%#quote __tmp155615))) - (__tmp155611 - (let ((__tmp155612 - (let ((__tmp155613 + (cons '%#quote __tmp155619))) + (__tmp155615 + (let ((__tmp155616 + (let ((__tmp155617 (let () (declare (not safe)) - (cons _$obj154151_ '())))) + (cons _$obj154155_ '())))) (declare (not safe)) - (cons '%#ref __tmp155613)))) + (cons '%#ref __tmp155617)))) (declare (not safe)) - (cons __tmp155612 '())))) + (cons __tmp155616 '())))) (declare (not safe)) - (cons __tmp155614 __tmp155611)))) + (cons __tmp155618 __tmp155615)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp155610))) - (__tmp155581 - (let ((__tmp155598 - (let ((__tmp155599 - (let ((__tmp155606 - (let ((__tmp155607 - (let ((__tmp155608 + (cons '%#struct-direct-instance? __tmp155614))) + (__tmp155585 + (let ((__tmp155602 + (let ((__tmp155603 + (let ((__tmp155610 + (let ((__tmp155611 + (let ((__tmp155612 (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __id154776 - __klass154774 + _self154104_ + __id154781 + __klass154778 '#f)))) (declare (not safe)) - (cons __tmp155608 '())))) + (cons __tmp155612 '())))) (declare (not safe)) - (cons '%#ref __tmp155607))) - (__tmp155600 - (let ((__tmp155604 - (let ((__tmp155605 + (cons '%#ref __tmp155611))) + (__tmp155604 + (let ((__tmp155608 + (let ((__tmp155609 (let () (declare (not safe)) - (cons _field154141_ + (cons _field154145_ '())))) (declare (not safe)) - (cons '%#quote __tmp155605))) - (__tmp155601 - (let ((__tmp155602 - (let ((__tmp155603 + (cons '%#quote __tmp155609))) + (__tmp155605 + (let ((__tmp155606 + (let ((__tmp155607 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154151_ '())))) + (cons _$obj154155_ '())))) (declare (not safe)) - (cons '%#ref __tmp155603)))) + (cons '%#ref __tmp155607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155602 '())))) + (cons __tmp155606 '())))) (declare (not safe)) - (cons __tmp155604 __tmp155601)))) + (cons __tmp155608 __tmp155605)))) (declare (not safe)) - (cons __tmp155606 __tmp155600)))) + (cons __tmp155610 __tmp155604)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp155599))) - (__tmp155582 - (let ((__tmp155583 - (let ((__tmp155584 - (let ((__tmp155596 - (let ((__tmp155597 + (cons '%#struct-unchecked-ref __tmp155603))) + (__tmp155586 + (let ((__tmp155587 + (let ((__tmp155588 + (let ((__tmp155600 + (let ((__tmp155601 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155597))) - (__tmp155585 - (let ((__tmp155593 - (let ((__tmp155594 - (let ((__tmp155595 + (cons '%#ref __tmp155601))) + (__tmp155589 + (let ((__tmp155597 + (let ((__tmp155598 + (let ((__tmp155599 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __id154776 - __klass154774 + _self154104_ + __id154781 + __klass154778 '#f)))) (declare (not safe)) - (cons __tmp155595 '())))) + (cons __tmp155599 '())))) (declare (not safe)) - (cons '%#ref __tmp155594))) - (__tmp155586 - (let ((__tmp155591 - (let ((__tmp155592 + (cons '%#ref __tmp155598))) + (__tmp155590 + (let ((__tmp155595 + (let ((__tmp155596 (let () (declare (not safe)) - (cons _$obj154151_ '())))) + (cons _$obj154155_ '())))) (declare (not safe)) - (cons '%#ref __tmp155592))) - (__tmp155587 - (let ((__tmp155588 - (let ((__tmp155589 - (let ((__tmp155590 + (cons '%#ref __tmp155596))) + (__tmp155591 + (let ((__tmp155592 + (let ((__tmp155593 + (let ((__tmp155594 (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __slot154778 - __klass154774 + _self154104_ + __slot154780 + __klass154778 '#f)))) (declare (not safe)) - (cons __tmp155590 '())))) + (cons __tmp155594 '())))) (declare (not safe)) - (cons '%#quote __tmp155589)))) + (cons '%#quote __tmp155593)))) (declare (not safe)) - (cons __tmp155588 '())))) + (cons __tmp155592 '())))) (declare (not safe)) - (cons __tmp155591 __tmp155587)))) + (cons __tmp155595 __tmp155591)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155593 - __tmp155586)))) + (cons __tmp155597 + __tmp155590)))) (declare (not safe)) - (cons __tmp155596 __tmp155585)))) + (cons __tmp155600 __tmp155589)))) (declare (not safe)) - (cons '%#call __tmp155584)))) + (cons '%#call __tmp155588)))) (declare (not safe)) - (cons __tmp155583 '())))) + (cons __tmp155587 '())))) (declare (not safe)) - (cons __tmp155598 __tmp155582)))) + (cons __tmp155602 __tmp155586)))) (declare (not safe)) - (cons __tmp155609 __tmp155581)))) + (cons __tmp155613 __tmp155585)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp155580)))) + (cons '%#if __tmp155584)))) (declare (not safe)) - (cons __tmp155579 '())))) + (cons __tmp155583 '())))) (declare (not safe)) - (cons __tmp155617 __tmp155578)))) + (cons __tmp155621 __tmp155582)))) (declare (not safe)) - (cons '%#let-values __tmp155577)))) + (cons '%#let-values __tmp155581)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155575 _stx154102_)) - (let ((__tmp155566 - (let ((__tmp155567 - (let ((__tmp155573 - (let ((__tmp155574 + (gxc#xform-wrap-source __tmp155579 _stx154106_)) + (let ((__tmp155570 + (let ((__tmp155571 + (let ((__tmp155577 + (let ((__tmp155578 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155574))) - (__tmp155568 - (let ((__tmp155569 - (let ((__tmp155570 - (let ((__tmp155571 - (let ((__tmp155572 + (cons '%#ref __tmp155578))) + (__tmp155572 + (let ((__tmp155573 + (let ((__tmp155574 + (let ((__tmp155575 + (let ((__tmp155576 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self154100_ - __slot154778 - __klass154774 + _self154104_ + __slot154780 + __klass154778 '#f)))) (declare (not safe)) - (cons __tmp155572 '())))) + (cons __tmp155576 '())))) (declare (not safe)) - (cons '%#quote __tmp155571)))) + (cons '%#quote __tmp155575)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155570 '())))) + (cons __tmp155574 '())))) (declare (not safe)) - (cons _object154143_ __tmp155569)))) + (cons _object154147_ __tmp155573)))) (declare (not safe)) - (cons __tmp155573 __tmp155568)))) + (cons __tmp155577 __tmp155572)))) (declare (not safe)) - (cons '%#call __tmp155567)))) + (cons '%#call __tmp155571)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155566 _stx154102_))))))))) + (gxc#xform-wrap-source __tmp155570 _stx154106_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd154109154123_) + _hd154113154127_) (let () (declare (not safe)) - (_g154105154115_ _g154106154118_))))) + (_g154109154119_ _g154110154122_))))) (let () (declare (not safe)) - (_g154105154115_ _g154106154118_)))))) + (_g154109154119_ _g154110154122_)))))) (declare (not safe)) - (_g154104154153_ _args154103_)))))) + (_g154108154157_ _args154107_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3544,365 +3544,365 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self153904_ _ctx153905_ _stx153906_ _args153907_) - (let* ((_g153909153923_ - (lambda (_g153910153920_) + (lambda (_self153908_ _ctx153909_ _stx153910_ _args153911_) + (let* ((_g153913153927_ + (lambda (_g153914153924_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g153910153920_)))) - (_g153908153975_ - (lambda (_g153910153926_) + _g153914153924_)))) + (_g153912153979_ + (lambda (_g153914153930_) (if (let () (declare (not safe)) - (gx#stx-pair? _g153910153926_)) - (let ((_e153915153928_ + (gx#stx-pair? _g153914153930_)) + (let ((_e153919153932_ (let () (declare (not safe)) - (gx#stx-e _g153910153926_)))) - (let ((_hd153914153931_ + (gx#stx-e _g153914153930_)))) + (let ((_hd153918153935_ (let () (declare (not safe)) - (##car _e153915153928_))) - (_tl153913153933_ + (##car _e153919153932_))) + (_tl153917153937_ (let () (declare (not safe)) - (##cdr _e153915153928_)))) + (##cdr _e153919153932_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl153913153933_)) - (let ((_e153918153936_ + (gx#stx-pair? _tl153917153937_)) + (let ((_e153922153940_ (let () (declare (not safe)) - (gx#stx-e _tl153913153933_)))) - (let ((_hd153917153939_ + (gx#stx-e _tl153917153937_)))) + (let ((_hd153921153943_ (let () (declare (not safe)) - (##car _e153918153936_))) - (_tl153916153941_ + (##car _e153922153940_))) + (_tl153920153945_ (let () (declare (not safe)) - (##cdr _e153918153936_)))) + (##cdr _e153922153940_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl153916153941_)) - ((lambda (_L153944_ _L153945_) - (let* ((_klass153959_ - (let ((__tmp155651 + (gx#stx-null? _tl153920153945_)) + ((lambda (_L153948_ _L153949_) + (let* ((_klass153963_ + (let ((__tmp155655 (##structure-ref - _self153904_ + _self153908_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx153906_ - __tmp155651))) - (_field153961_ - (let ((__tmp155652 + _stx153910_ + __tmp155655))) + (_field153965_ + (let ((__tmp155656 (##structure-ref - _self153904_ + _self153908_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass153959_ - __tmp155652))) - (_object153963_ + _klass153963_ + __tmp155656))) + (_object153967_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx153905_ - _L153945_))) - (_value153965_ + _ctx153909_ + _L153949_))) + (_value153969_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx153905_ - _L153944_)))) + _ctx153909_ + _L153948_)))) (if (##structure-ref - _klass153959_ + _klass153963_ '8 gxc#!class::t '#f) - (let ((__tmp155734 - (let ((__tmp155744 + (let ((__tmp155738 + (let ((__tmp155748 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self153904_ + _self153908_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp155735 - (let ((__tmp155741 - (let ((__tmp155742 - (let ((__tmp155743 + (__tmp155739 + (let ((__tmp155745 + (let ((__tmp155746 + (let ((__tmp155747 (##structure-ref - _self153904_ + _self153908_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155743 '())))) + (cons __tmp155747 '())))) (declare (not safe)) - (cons '%#ref __tmp155742))) - (__tmp155736 - (let ((__tmp155739 - (let ((__tmp155740 + (cons '%#ref __tmp155746))) + (__tmp155740 + (let ((__tmp155743 + (let ((__tmp155744 (let () (declare (not safe)) - (cons _field153961_ '())))) + (cons _field153965_ '())))) (declare (not safe)) - (cons '%#quote __tmp155740))) - (__tmp155737 - (let ((__tmp155738 + (cons '%#quote __tmp155744))) + (__tmp155741 + (let ((__tmp155742 (let () (declare (not safe)) - (cons _value153965_ '())))) + (cons _value153969_ '())))) (declare (not safe)) - (cons _object153963_ __tmp155738)))) + (cons _object153967_ __tmp155742)))) (declare (not safe)) - (cons __tmp155739 __tmp155737)))) + (cons __tmp155743 __tmp155741)))) (declare (not safe)) - (cons __tmp155741 __tmp155736)))) + (cons __tmp155745 __tmp155740)))) (declare (not safe)) - (cons __tmp155744 __tmp155735)))) + (cons __tmp155748 __tmp155739)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155734 - _stx153906_)) + __tmp155738 + _stx153910_)) (if (##structure-ref - _klass153959_ + _klass153963_ '7 gxc#!class::t '#f) - (let ((__tmp155723 - (let ((__tmp155733 + (let ((__tmp155727 + (let ((__tmp155737 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self153904_ + _self153908_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp155724 - (let ((__tmp155730 - (let ((__tmp155731 - (let ((__tmp155732 + (__tmp155728 + (let ((__tmp155734 + (let ((__tmp155735 + (let ((__tmp155736 (##structure-ref - _self153904_ + _self153908_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155732 '())))) + (cons __tmp155736 '())))) (declare (not safe)) - (cons '%#ref __tmp155731))) - (__tmp155725 - (let ((__tmp155728 - (let ((__tmp155729 + (cons '%#ref __tmp155735))) + (__tmp155729 + (let ((__tmp155732 + (let ((__tmp155733 (let () (declare (not safe)) - (cons _field153961_ '())))) + (cons _field153965_ '())))) (declare (not safe)) - (cons '%#quote __tmp155729))) - (__tmp155726 - (let ((__tmp155727 + (cons '%#quote __tmp155733))) + (__tmp155730 + (let ((__tmp155731 (let () (declare (not safe)) - (cons _value153965_ '())))) + (cons _value153969_ '())))) (declare (not safe)) - (cons _object153963_ __tmp155727)))) + (cons _object153967_ __tmp155731)))) (declare (not safe)) - (cons __tmp155728 __tmp155726)))) + (cons __tmp155732 __tmp155730)))) (declare (not safe)) - (cons __tmp155730 __tmp155725)))) + (cons __tmp155734 __tmp155729)))) (declare (not safe)) - (cons __tmp155733 __tmp155724)))) + (cons __tmp155737 __tmp155728)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155723 - _stx153906_)) - (let ((_$e153968_ - (let ((__tmp155653 + __tmp155727 + _stx153910_)) + (let ((_$e153972_ + (let ((__tmp155657 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self153904_ + _self153908_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass153959_ __tmp155653)))) + (gxc#!class-slot-find-struct _klass153963_ __tmp155657)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e153968_ - ((lambda (_klass153971_) - (let ((__tmp155712 + (if _$e153972_ + ((lambda (_klass153975_) + (let ((__tmp155716 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155722 + (let ((__tmp155726 (if (##structure-ref - _self153904_ + _self153908_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp155713 - (let ((__tmp155719 - (let ((__tmp155720 - (let ((__tmp155721 + (__tmp155717 + (let ((__tmp155723 + (let ((__tmp155724 + (let ((__tmp155725 (##structure-ref - _self153904_ + _self153908_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155721 '())))) + (cons __tmp155725 '())))) (declare (not safe)) - (cons '%#ref __tmp155720))) - (__tmp155714 - (let ((__tmp155717 - (let ((__tmp155718 + (cons '%#ref __tmp155724))) + (__tmp155718 + (let ((__tmp155721 + (let ((__tmp155722 (let () (declare (not safe)) - (cons _field153961_ + (cons _field153965_ '())))) (declare (not safe)) - (cons '%#quote __tmp155718))) - (__tmp155715 - (let ((__tmp155716 + (cons '%#quote __tmp155722))) + (__tmp155719 + (let ((__tmp155720 (let () (declare (not safe)) - (cons _value153965_ + (cons _value153969_ '())))) (declare (not safe)) - (cons _object153963_ - __tmp155716)))) + (cons _object153967_ + __tmp155720)))) (declare (not safe)) - (cons __tmp155717 __tmp155715)))) + (cons __tmp155721 __tmp155719)))) (declare (not safe)) - (cons __tmp155719 __tmp155714)))) + (cons __tmp155723 __tmp155718)))) (declare (not safe)) - (cons __tmp155722 __tmp155713)))) + (cons __tmp155726 __tmp155717)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155712 _stx153906_))) - _$e153968_) - (if (##structure-ref _self153904_ '3 gxc#!mutator::t '#f) - (let ((__tmp155664 - (let* ((_$obj153973_ - (let ((__tmp155665 (gensym '__obj))) + (gxc#xform-wrap-source __tmp155716 _stx153910_))) + _$e153972_) + (if (##structure-ref _self153908_ '3 gxc#!mutator::t '#f) + (let ((__tmp155668 + (let* ((_$obj153977_ + (let ((__tmp155669 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155665))) - (__tmp155666 - (let ((__tmp155708 - (let ((__tmp155709 - (let ((__tmp155711 + (make-symbol__0 __tmp155669))) + (__tmp155670 + (let ((__tmp155712 + (let ((__tmp155713 + (let ((__tmp155715 (let () (declare (not safe)) - (cons _$obj153973_ + (cons _$obj153977_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp155710 - (let () (declare (not safe)) (cons _object153963_ '())))) + (__tmp155714 + (let () (declare (not safe)) (cons _object153967_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155711 - __tmp155710)))) + (cons __tmp155715 + __tmp155714)))) (declare (not safe)) - (cons __tmp155709 '()))) - (__tmp155667 - (let ((__tmp155668 - (let ((__tmp155669 - (let ((__tmp155700 - (let ((__tmp155701 + (cons __tmp155713 '()))) + (__tmp155671 + (let ((__tmp155672 + (let ((__tmp155673 + (let ((__tmp155704 + (let ((__tmp155705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155705 - (let ((__tmp155706 - (let ((__tmp155707 + (let ((__tmp155709 + (let ((__tmp155710 + (let ((__tmp155711 (##structure-ref - _klass153959_ + _klass153963_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155707 '())))) + (cons __tmp155711 '())))) (declare (not safe)) - (cons '%#quote __tmp155706))) - (__tmp155702 - (let ((__tmp155703 - (let ((__tmp155704 + (cons '%#quote __tmp155710))) + (__tmp155706 + (let ((__tmp155707 + (let ((__tmp155708 (let () (declare (not safe)) - (cons _$obj153973_ + (cons _$obj153977_ '())))) (declare (not safe)) - (cons '%#ref __tmp155704)))) + (cons '%#ref __tmp155708)))) (declare (not safe)) - (cons __tmp155703 '())))) + (cons __tmp155707 '())))) (declare (not safe)) - (cons __tmp155705 __tmp155702)))) + (cons __tmp155709 __tmp155706)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp155701))) - (__tmp155670 - (let ((__tmp155688 - (let ((__tmp155689 - (let ((__tmp155697 - (let ((__tmp155698 - (let ((__tmp155699 + (cons '%#struct-direct-instance? __tmp155705))) + (__tmp155674 + (let ((__tmp155692 + (let ((__tmp155693 + (let ((__tmp155701 + (let ((__tmp155702 + (let ((__tmp155703 (##structure-ref - _self153904_ + _self153908_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155699 '())))) + (cons __tmp155703 '())))) (declare (not safe)) - (cons '%#ref __tmp155698))) - (__tmp155690 - (let ((__tmp155695 - (let ((__tmp155696 + (cons '%#ref __tmp155702))) + (__tmp155694 + (let ((__tmp155699 + (let ((__tmp155700 (let () (declare (not safe)) - (cons _field153961_ + (cons _field153965_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp155696))) + (cons '%#quote __tmp155700))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155691 - (let ((__tmp155693 - (let ((__tmp155694 + (__tmp155695 + (let ((__tmp155697 + (let ((__tmp155698 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj153973_ '())))) + (cons _$obj153977_ '())))) (declare (not safe)) - (cons '%#ref __tmp155694))) - (__tmp155692 - (let () (declare (not safe)) (cons _value153965_ '())))) + (cons '%#ref __tmp155698))) + (__tmp155696 + (let () (declare (not safe)) (cons _value153969_ '())))) (declare (not safe)) - (cons __tmp155693 __tmp155692)))) + (cons __tmp155697 __tmp155696)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155695 - __tmp155691)))) + (cons __tmp155699 + __tmp155695)))) (declare (not safe)) - (cons __tmp155697 __tmp155690)))) + (cons __tmp155701 __tmp155694)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp155689))) - (__tmp155671 - (let ((__tmp155672 - (let ((__tmp155673 - (let ((__tmp155686 - (let ((__tmp155687 + (cons '%#struct-unchecked-set! __tmp155693))) + (__tmp155675 + (let ((__tmp155676 + (let ((__tmp155677 + (let ((__tmp155690 + (let ((__tmp155691 (let () (declare (not safe)) @@ -3910,686 +3910,686 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp155687))) + (cons '%#ref __tmp155691))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155674 - (let ((__tmp155683 - (let ((__tmp155684 + (__tmp155678 + (let ((__tmp155687 + (let ((__tmp155688 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155685 + (let ((__tmp155689 (##structure-ref - _self153904_ + _self153908_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155685 '())))) + (cons __tmp155689 '())))) (declare (not safe)) - (cons '%#ref __tmp155684))) - (__tmp155675 - (let ((__tmp155681 - (let ((__tmp155682 + (cons '%#ref __tmp155688))) + (__tmp155679 + (let ((__tmp155685 + (let ((__tmp155686 (let () (declare (not safe)) - (cons _$obj153973_ '())))) + (cons _$obj153977_ '())))) (declare (not safe)) - (cons '%#ref __tmp155682))) - (__tmp155676 - (let ((__tmp155678 - (let ((__tmp155679 - (let ((__tmp155680 + (cons '%#ref __tmp155686))) + (__tmp155680 + (let ((__tmp155682 + (let ((__tmp155683 + (let ((__tmp155684 (##structure-ref - _self153904_ + _self153908_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp155680 '())))) + (cons __tmp155684 '())))) (declare (not safe)) - (cons '%#quote __tmp155679))) - (__tmp155677 + (cons '%#quote __tmp155683))) + (__tmp155681 (let () (declare (not safe)) - (cons _value153965_ '())))) + (cons _value153969_ '())))) (declare (not safe)) - (cons __tmp155678 __tmp155677)))) + (cons __tmp155682 __tmp155681)))) (declare (not safe)) - (cons __tmp155681 __tmp155676)))) + (cons __tmp155685 __tmp155680)))) (declare (not safe)) - (cons __tmp155683 __tmp155675)))) + (cons __tmp155687 __tmp155679)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155686 - __tmp155674)))) + (cons __tmp155690 + __tmp155678)))) (declare (not safe)) - (cons '%#call __tmp155673)))) + (cons '%#call __tmp155677)))) (declare (not safe)) - (cons __tmp155672 '())))) + (cons __tmp155676 '())))) (declare (not safe)) - (cons __tmp155688 __tmp155671)))) + (cons __tmp155692 __tmp155675)))) (declare (not safe)) - (cons __tmp155700 __tmp155670)))) + (cons __tmp155704 __tmp155674)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp155669)))) + (cons '%#if __tmp155673)))) (declare (not safe)) - (cons __tmp155668 '())))) + (cons __tmp155672 '())))) (declare (not safe)) - (cons __tmp155708 __tmp155667)))) + (cons __tmp155712 __tmp155671)))) (declare (not safe)) - (cons '%#let-values __tmp155666)))) + (cons '%#let-values __tmp155670)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155664 _stx153906_)) - (let ((__tmp155654 - (let ((__tmp155655 - (let ((__tmp155662 - (let ((__tmp155663 + (gxc#xform-wrap-source __tmp155668 _stx153910_)) + (let ((__tmp155658 + (let ((__tmp155659 + (let ((__tmp155666 + (let ((__tmp155667 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp155663))) - (__tmp155656 - (let ((__tmp155657 - (let ((__tmp155659 - (let ((__tmp155660 - (let ((__tmp155661 + (cons '%#ref __tmp155667))) + (__tmp155660 + (let ((__tmp155661 + (let ((__tmp155663 + (let ((__tmp155664 + (let ((__tmp155665 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self153904_ + _self153908_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp155661 '())))) + (cons __tmp155665 '())))) (declare (not safe)) - (cons '%#quote __tmp155660))) - (__tmp155658 - (let () (declare (not safe)) (cons _value153965_ '())))) + (cons '%#quote __tmp155664))) + (__tmp155662 + (let () (declare (not safe)) (cons _value153969_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155659 - __tmp155658)))) + (cons __tmp155663 + __tmp155662)))) (declare (not safe)) - (cons _object153963_ - __tmp155657)))) + (cons _object153967_ + __tmp155661)))) (declare (not safe)) - (cons __tmp155662 __tmp155656)))) + (cons __tmp155666 __tmp155660)))) (declare (not safe)) - (cons '%#call __tmp155655)))) + (cons '%#call __tmp155659)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155654 _stx153906_))))))))) + (gxc#xform-wrap-source __tmp155658 _stx153910_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd153917153939_ - _hd153914153931_) + _hd153921153943_ + _hd153918153935_) (let () (declare (not safe)) - (_g153909153923_ _g153910153926_))))) + (_g153913153927_ _g153914153930_))))) (let () (declare (not safe)) - (_g153909153923_ _g153910153926_))))) + (_g153913153927_ _g153914153930_))))) (let () (declare (not safe)) - (_g153909153923_ _g153910153926_)))))) + (_g153913153927_ _g153914153930_)))))) (declare (not safe)) - (_g153908153975_ _args153907_)))) + (_g153912153979_ _args153911_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass154782 __method-table154783) - (let ((__id154784 - (let ((__slot154787 + (lambda (__klass154786 __method-table154787) + (let ((__slot154788 + (let ((__slot154791 (let () (declare (not safe)) - (class-slot-offset __klass154782 'id)))) - (if __slot154787 - __slot154787 + (class-slot-offset __klass154786 'slot)))) + (if __slot154791 + __slot154791 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?154785 - (let ((__slot154788 + (error '"Unknown slot" 'slot))))) + (__id154789 + (let ((__slot154792 (let () (declare (not safe)) - (class-slot-offset __klass154782 'checked?)))) - (if __slot154788 - __slot154788 + (class-slot-offset __klass154786 'id)))) + (if __slot154792 + __slot154792 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?))))) - (__slot154786 - (let ((__slot154789 + (error '"Unknown slot" 'id))))) + (__checked?154790 + (let ((__slot154793 (let () (declare (not safe)) - (class-slot-offset __klass154782 'slot)))) - (if __slot154789 - __slot154789 + (class-slot-offset __klass154786 'checked?)))) + (if __slot154793 + __slot154793 (let () (declare (not safe)) - (error '"Unknown slot" 'slot)))))) - (lambda (_self153904_ _ctx153905_ _stx153906_ _args153907_) - (let* ((_g153909153923_ - (lambda (_g153910153920_) + (error '"Unknown slot" 'checked?)))))) + (lambda (_self153908_ _ctx153909_ _stx153910_ _args153911_) + (let* ((_g153913153927_ + (lambda (_g153914153924_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g153910153920_)))) - (_g153908153975_ - (lambda (_g153910153926_) + _g153914153924_)))) + (_g153912153979_ + (lambda (_g153914153930_) (if (let () (declare (not safe)) - (gx#stx-pair? _g153910153926_)) - (let ((_e153915153928_ + (gx#stx-pair? _g153914153930_)) + (let ((_e153919153932_ (let () (declare (not safe)) - (gx#stx-e _g153910153926_)))) - (let ((_hd153914153931_ + (gx#stx-e _g153914153930_)))) + (let ((_hd153918153935_ (let () (declare (not safe)) - (##car _e153915153928_))) - (_tl153913153933_ + (##car _e153919153932_))) + (_tl153917153937_ (let () (declare (not safe)) - (##cdr _e153915153928_)))) + (##cdr _e153919153932_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl153913153933_)) - (let ((_e153918153936_ + (gx#stx-pair? _tl153917153937_)) + (let ((_e153922153940_ (let () (declare (not safe)) - (gx#stx-e _tl153913153933_)))) - (let ((_hd153917153939_ + (gx#stx-e _tl153917153937_)))) + (let ((_hd153921153943_ (let () (declare (not safe)) - (##car _e153918153936_))) - (_tl153916153941_ + (##car _e153922153940_))) + (_tl153920153945_ (let () (declare (not safe)) - (##cdr _e153918153936_)))) + (##cdr _e153922153940_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl153916153941_)) - ((lambda (_L153944_ _L153945_) - (let* ((_klass153959_ - (let ((__tmp155745 + (gx#stx-null? _tl153920153945_)) + ((lambda (_L153948_ _L153949_) + (let* ((_klass153963_ + (let ((__tmp155749 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __id154784 - __klass154782 + _self153908_ + __id154789 + __klass154786 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx153906_ - __tmp155745))) - (_field153961_ - (let ((__tmp155746 + _stx153910_ + __tmp155749))) + (_field153965_ + (let ((__tmp155750 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __slot154786 - __klass154782 + _self153908_ + __slot154788 + __klass154786 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass153959_ - __tmp155746))) - (_object153963_ + _klass153963_ + __tmp155750))) + (_object153967_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx153905_ - _L153945_))) - (_value153965_ + _ctx153909_ + _L153949_))) + (_value153969_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx153905_ - _L153944_)))) + _ctx153909_ + _L153948_)))) (if (##structure-ref - _klass153959_ + _klass153963_ '8 gxc#!class::t '#f) - (let ((__tmp155828 - (let ((__tmp155838 + (let ((__tmp155832 + (let ((__tmp155842 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __checked?154785 - __klass154782 + _self153908_ + __checked?154790 + __klass154786 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp155829 - (let ((__tmp155835 - (let ((__tmp155836 - (let ((__tmp155837 + (__tmp155833 + (let ((__tmp155839 + (let ((__tmp155840 + (let ((__tmp155841 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __id154784 - __klass154782 + _self153908_ + __id154789 + __klass154786 '#f)))) (declare (not safe)) - (cons __tmp155837 '())))) + (cons __tmp155841 '())))) (declare (not safe)) - (cons '%#ref __tmp155836))) - (__tmp155830 - (let ((__tmp155833 - (let ((__tmp155834 + (cons '%#ref __tmp155840))) + (__tmp155834 + (let ((__tmp155837 + (let ((__tmp155838 (let () (declare (not safe)) - (cons _field153961_ '())))) + (cons _field153965_ '())))) (declare (not safe)) - (cons '%#quote __tmp155834))) - (__tmp155831 - (let ((__tmp155832 + (cons '%#quote __tmp155838))) + (__tmp155835 + (let ((__tmp155836 (let () (declare (not safe)) - (cons _value153965_ '())))) + (cons _value153969_ '())))) (declare (not safe)) - (cons _object153963_ __tmp155832)))) + (cons _object153967_ __tmp155836)))) (declare (not safe)) - (cons __tmp155833 __tmp155831)))) + (cons __tmp155837 __tmp155835)))) (declare (not safe)) - (cons __tmp155835 __tmp155830)))) + (cons __tmp155839 __tmp155834)))) (declare (not safe)) - (cons __tmp155838 __tmp155829)))) + (cons __tmp155842 __tmp155833)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155828 - _stx153906_)) + __tmp155832 + _stx153910_)) (if (##structure-ref - _klass153959_ + _klass153963_ '7 gxc#!class::t '#f) - (let ((__tmp155817 - (let ((__tmp155827 + (let ((__tmp155821 + (let ((__tmp155831 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __checked?154785 - __klass154782 + _self153908_ + __checked?154790 + __klass154786 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp155818 - (let ((__tmp155824 - (let ((__tmp155825 - (let ((__tmp155826 + (__tmp155822 + (let ((__tmp155828 + (let ((__tmp155829 + (let ((__tmp155830 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __id154784 - __klass154782 + _self153908_ + __id154789 + __klass154786 '#f)))) (declare (not safe)) - (cons __tmp155826 '())))) + (cons __tmp155830 '())))) (declare (not safe)) - (cons '%#ref __tmp155825))) - (__tmp155819 - (let ((__tmp155822 - (let ((__tmp155823 + (cons '%#ref __tmp155829))) + (__tmp155823 + (let ((__tmp155826 + (let ((__tmp155827 (let () (declare (not safe)) - (cons _field153961_ '())))) + (cons _field153965_ '())))) (declare (not safe)) - (cons '%#quote __tmp155823))) - (__tmp155820 - (let ((__tmp155821 + (cons '%#quote __tmp155827))) + (__tmp155824 + (let ((__tmp155825 (let () (declare (not safe)) - (cons _value153965_ '())))) + (cons _value153969_ '())))) (declare (not safe)) - (cons _object153963_ - __tmp155821)))) + (cons _object153967_ + __tmp155825)))) (declare (not safe)) - (cons __tmp155822 __tmp155820)))) + (cons __tmp155826 __tmp155824)))) (declare (not safe)) - (cons __tmp155824 __tmp155819)))) + (cons __tmp155828 __tmp155823)))) (declare (not safe)) - (cons __tmp155827 __tmp155818)))) + (cons __tmp155831 __tmp155822)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155817 _stx153906_)) - (let ((_$e153968_ - (let ((__tmp155747 + (gxc#xform-wrap-source __tmp155821 _stx153910_)) + (let ((_$e153972_ + (let ((__tmp155751 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __slot154786 - __klass154782 + _self153908_ + __slot154788 + __klass154786 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass153959_ - __tmp155747)))) - (if _$e153968_ - ((lambda (_klass153971_) - (let ((__tmp155806 - (let ((__tmp155816 + _klass153963_ + __tmp155751)))) + (if _$e153972_ + ((lambda (_klass153975_) + (let ((__tmp155810 + (let ((__tmp155820 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __checked?154785 - __klass154782 + _self153908_ + __checked?154790 + __klass154786 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp155807 - (let ((__tmp155813 - (let ((__tmp155814 - (let ((__tmp155815 + (__tmp155811 + (let ((__tmp155817 + (let ((__tmp155818 + (let ((__tmp155819 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __id154784 - __klass154782 + _self153908_ + __id154789 + __klass154786 '#f)))) (declare (not safe)) - (cons __tmp155815 '())))) + (cons __tmp155819 '())))) (declare (not safe)) - (cons '%#ref __tmp155814))) - (__tmp155808 - (let ((__tmp155811 - (let ((__tmp155812 + (cons '%#ref __tmp155818))) + (__tmp155812 + (let ((__tmp155815 + (let ((__tmp155816 (let () (declare (not safe)) - (cons _field153961_ + (cons _field153965_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp155812))) + (cons '%#quote __tmp155816))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155809 - (let ((__tmp155810 + (__tmp155813 + (let ((__tmp155814 (let () (declare (not safe)) - (cons _value153965_ + (cons _value153969_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object153963_ __tmp155810)))) + (cons _object153967_ __tmp155814)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155811 - __tmp155809)))) + (cons __tmp155815 + __tmp155813)))) (declare (not safe)) - (cons __tmp155813 __tmp155808)))) + (cons __tmp155817 __tmp155812)))) (declare (not safe)) - (cons __tmp155816 __tmp155807)))) + (cons __tmp155820 __tmp155811)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155806 _stx153906_))) - _$e153968_) + (gxc#xform-wrap-source __tmp155810 _stx153910_))) + _$e153972_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __checked?154785 - __klass154782 + _self153908_ + __checked?154790 + __klass154786 '#f)) - (let ((__tmp155758 - (let* ((_$obj153973_ - (let ((__tmp155759 (gensym '__obj))) + (let ((__tmp155762 + (let* ((_$obj153977_ + (let ((__tmp155763 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155759))) - (__tmp155760 - (let ((__tmp155802 - (let ((__tmp155803 - (let ((__tmp155805 + (make-symbol__0 __tmp155763))) + (__tmp155764 + (let ((__tmp155806 + (let ((__tmp155807 + (let ((__tmp155809 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj153973_ '()))) - (__tmp155804 - (let () (declare (not safe)) (cons _object153963_ '())))) + (cons _$obj153977_ '()))) + (__tmp155808 + (let () (declare (not safe)) (cons _object153967_ '())))) (declare (not safe)) - (cons __tmp155805 __tmp155804)))) + (cons __tmp155809 __tmp155808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155803 '()))) - (__tmp155761 - (let ((__tmp155762 - (let ((__tmp155763 - (let ((__tmp155794 + (cons __tmp155807 '()))) + (__tmp155765 + (let ((__tmp155766 + (let ((__tmp155767 + (let ((__tmp155798 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155795 - (let ((__tmp155799 - (let ((__tmp155800 - (let ((__tmp155801 + (let ((__tmp155799 + (let ((__tmp155803 + (let ((__tmp155804 + (let ((__tmp155805 (##structure-ref - _klass153959_ + _klass153963_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155801 '())))) + (cons __tmp155805 '())))) (declare (not safe)) - (cons '%#quote __tmp155800))) - (__tmp155796 - (let ((__tmp155797 - (let ((__tmp155798 + (cons '%#quote __tmp155804))) + (__tmp155800 + (let ((__tmp155801 + (let ((__tmp155802 (let () (declare (not safe)) - (cons _$obj153973_ + (cons _$obj153977_ '())))) (declare (not safe)) - (cons '%#ref __tmp155798)))) + (cons '%#ref __tmp155802)))) (declare (not safe)) - (cons __tmp155797 '())))) + (cons __tmp155801 '())))) (declare (not safe)) - (cons __tmp155799 __tmp155796)))) + (cons __tmp155803 __tmp155800)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp155795))) - (__tmp155764 - (let ((__tmp155782 - (let ((__tmp155783 - (let ((__tmp155791 - (let ((__tmp155792 - (let ((__tmp155793 + (cons '%#struct-direct-instance? __tmp155799))) + (__tmp155768 + (let ((__tmp155786 + (let ((__tmp155787 + (let ((__tmp155795 + (let ((__tmp155796 + (let ((__tmp155797 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __id154784 - __klass154782 + _self153908_ + __id154789 + __klass154786 '#f)))) (declare (not safe)) - (cons __tmp155793 '())))) + (cons __tmp155797 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp155792))) - (__tmp155784 - (let ((__tmp155789 - (let ((__tmp155790 + (cons '%#ref __tmp155796))) + (__tmp155788 + (let ((__tmp155793 + (let ((__tmp155794 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field153961_ '())))) + (cons _field153965_ '())))) (declare (not safe)) - (cons '%#quote __tmp155790))) - (__tmp155785 - (let ((__tmp155787 - (let ((__tmp155788 + (cons '%#quote __tmp155794))) + (__tmp155789 + (let ((__tmp155791 + (let ((__tmp155792 (let () (declare (not safe)) - (cons _$obj153973_ '())))) + (cons _$obj153977_ '())))) (declare (not safe)) - (cons '%#ref __tmp155788))) - (__tmp155786 - (let () (declare (not safe)) (cons _value153965_ '())))) + (cons '%#ref __tmp155792))) + (__tmp155790 + (let () (declare (not safe)) (cons _value153969_ '())))) (declare (not safe)) - (cons __tmp155787 __tmp155786)))) + (cons __tmp155791 __tmp155790)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155789 - __tmp155785)))) + (cons __tmp155793 + __tmp155789)))) (declare (not safe)) - (cons __tmp155791 __tmp155784)))) + (cons __tmp155795 __tmp155788)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp155783))) - (__tmp155765 - (let ((__tmp155766 - (let ((__tmp155767 - (let ((__tmp155780 - (let ((__tmp155781 + __tmp155787))) + (__tmp155769 + (let ((__tmp155770 + (let ((__tmp155771 + (let ((__tmp155784 + (let ((__tmp155785 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp155781))) - (__tmp155768 - (let ((__tmp155777 - (let ((__tmp155778 - (let ((__tmp155779 + (cons '%#ref __tmp155785))) + (__tmp155772 + (let ((__tmp155781 + (let ((__tmp155782 + (let ((__tmp155783 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __id154784 - __klass154782 + _self153908_ + __id154789 + __klass154786 '#f)))) (declare (not safe)) - (cons __tmp155779 '())))) + (cons __tmp155783 '())))) (declare (not safe)) - (cons '%#ref __tmp155778))) - (__tmp155769 - (let ((__tmp155775 - (let ((__tmp155776 + (cons '%#ref __tmp155782))) + (__tmp155773 + (let ((__tmp155779 + (let ((__tmp155780 (let () (declare (not safe)) - (cons _$obj153973_ '())))) + (cons _$obj153977_ '())))) (declare (not safe)) - (cons '%#ref __tmp155776))) - (__tmp155770 - (let ((__tmp155772 - (let ((__tmp155773 - (let ((__tmp155774 + (cons '%#ref __tmp155780))) + (__tmp155774 + (let ((__tmp155776 + (let ((__tmp155777 + (let ((__tmp155778 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __slot154786 - __klass154782 + _self153908_ + __slot154788 + __klass154786 '#f)))) (declare (not safe)) - (cons __tmp155774 '())))) + (cons __tmp155778 '())))) (declare (not safe)) - (cons '%#quote __tmp155773))) - (__tmp155771 + (cons '%#quote __tmp155777))) + (__tmp155775 (let () (declare (not safe)) - (cons _value153965_ '())))) + (cons _value153969_ '())))) (declare (not safe)) - (cons __tmp155772 __tmp155771)))) + (cons __tmp155776 __tmp155775)))) (declare (not safe)) - (cons __tmp155775 __tmp155770)))) + (cons __tmp155779 __tmp155774)))) (declare (not safe)) - (cons __tmp155777 __tmp155769)))) + (cons __tmp155781 __tmp155773)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155780 - __tmp155768)))) + (cons __tmp155784 + __tmp155772)))) (declare (not safe)) - (cons '%#call __tmp155767)))) + (cons '%#call __tmp155771)))) (declare (not safe)) - (cons __tmp155766 '())))) + (cons __tmp155770 '())))) (declare (not safe)) - (cons __tmp155782 __tmp155765)))) + (cons __tmp155786 __tmp155769)))) (declare (not safe)) - (cons __tmp155794 __tmp155764)))) + (cons __tmp155798 __tmp155768)))) (declare (not safe)) - (cons '%#if __tmp155763)))) + (cons '%#if __tmp155767)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155762 '())))) + (cons __tmp155766 '())))) (declare (not safe)) - (cons __tmp155802 __tmp155761)))) + (cons __tmp155806 __tmp155765)))) (declare (not safe)) - (cons '%#let-values __tmp155760)))) + (cons '%#let-values __tmp155764)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155758 _stx153906_)) - (let ((__tmp155748 - (let ((__tmp155749 - (let ((__tmp155756 - (let ((__tmp155757 + (gxc#xform-wrap-source __tmp155762 _stx153910_)) + (let ((__tmp155752 + (let ((__tmp155753 + (let ((__tmp155760 + (let ((__tmp155761 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp155757))) - (__tmp155750 - (let ((__tmp155751 - (let ((__tmp155753 - (let ((__tmp155754 + (cons '%#ref __tmp155761))) + (__tmp155754 + (let ((__tmp155755 + (let ((__tmp155757 + (let ((__tmp155758 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155755 + (let ((__tmp155759 (let () (declare (not safe)) (##unchecked-structure-ref - _self153904_ - __slot154786 - __klass154782 + _self153908_ + __slot154788 + __klass154786 '#f)))) (declare (not safe)) - (cons __tmp155755 '())))) + (cons __tmp155759 '())))) (declare (not safe)) - (cons '%#quote __tmp155754))) - (__tmp155752 - (let () (declare (not safe)) (cons _value153965_ '())))) + (cons '%#quote __tmp155758))) + (__tmp155756 + (let () (declare (not safe)) (cons _value153969_ '())))) (declare (not safe)) - (cons __tmp155753 __tmp155752)))) + (cons __tmp155757 __tmp155756)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object153963_ - __tmp155751)))) + (cons _object153967_ + __tmp155755)))) (declare (not safe)) - (cons __tmp155756 __tmp155750)))) + (cons __tmp155760 __tmp155754)))) (declare (not safe)) - (cons '%#call __tmp155749)))) + (cons '%#call __tmp155753)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155748 - _stx153906_))))))))) + __tmp155752 + _stx153910_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd153917153939_ - _hd153914153931_) + _hd153921153943_ + _hd153918153935_) (let () (declare (not safe)) - (_g153909153923_ - _g153910153926_))))) + (_g153913153927_ + _g153914153930_))))) (let () (declare (not safe)) - (_g153909153923_ _g153910153926_))))) + (_g153913153927_ _g153914153930_))))) (let () (declare (not safe)) - (_g153909153923_ _g153910153926_)))))) + (_g153913153927_ _g153914153930_)))))) (declare (not safe)) - (_g153908153975_ _args153907_)))))) + (_g153912153979_ _args153911_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4603,116 +4603,116 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self153737_ _ctx153738_ _stx153739_ _args153740_) - (let* ((_self153741153750_ _self153737_) - (_E153743153754_ + (lambda (_self153741_ _ctx153742_ _stx153743_ _args153744_) + (let* ((_self153745153754_ _self153741_) + (_E153747153758_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153741153750_)))) - (_K153744153761_ - (lambda (_inline153757_ _dispatch153758_ _arity153759_) + (error '"No clause matching" _self153745153754_)))) + (_K153748153765_ + (lambda (_inline153761_ _dispatch153762_ _arity153763_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self153737_ _args153740_)) + (gxc#!lambda-arity-match? _self153741_ _args153744_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx153739_ - _arity153759_))) - (if _inline153757_ + _stx153743_ + _arity153763_))) + (if _inline153761_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp155844 - (let ((__tmp155845 - (_inline153757_ _stx153739_))) + (let ((__tmp155848 + (let ((__tmp155849 + (_inline153761_ _stx153743_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155845 - _stx153739_)))) + __tmp155849 + _stx153743_)))) (declare (not safe)) - (gxc#compile-e__1 _ctx153738_ __tmp155844))) - (if _dispatch153758_ + (gxc#compile-e__1 _ctx153742_ __tmp155848))) + (if _dispatch153762_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch153758_)) - (let ((__tmp155839 - (let ((__tmp155840 - (let ((__tmp155841 - (let ((__tmp155842 - (let ((__tmp155843 + _dispatch153762_)) + (let ((__tmp155843 + (let ((__tmp155844 + (let ((__tmp155845 + (let ((__tmp155846 + (let ((__tmp155847 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch153758_ '())))) + (cons _dispatch153762_ '())))) (declare (not safe)) - (cons '%#ref __tmp155843)))) + (cons '%#ref __tmp155847)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155842 - _args153740_)))) + (cons __tmp155846 + _args153744_)))) (declare (not safe)) - (cons '%#call __tmp155841)))) + (cons '%#call __tmp155845)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155840 - _stx153739_)))) + __tmp155844 + _stx153743_)))) (declare (not safe)) - (gxc#compile-e__1 _ctx153738_ __tmp155839))) + (gxc#compile-e__1 _ctx153742_ __tmp155843))) (let () (declare (not safe)) - (gxc#xform-call% _ctx153738_ _stx153739_))))))) + (gxc#xform-call% _ctx153742_ _stx153743_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self153741153750_ 'gxc#!lambda::t)) - (let* ((_e153745153764_ + (##structure-instance-of? _self153745153754_ 'gxc#!lambda::t)) + (let* ((_e153749153768_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153741153750_ + _self153745153754_ '1 gxc#!type::t '#f))) - (_e153746153767_ + (_e153750153771_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153741153750_ + _self153745153754_ '2 gxc#!lambda::t '#f))) - (_arity153770_ _e153746153767_) - (_e153747153772_ + (_arity153774_ _e153750153771_) + (_e153751153776_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153741153750_ + _self153745153754_ '3 gxc#!lambda::t '#f))) - (_dispatch153775_ _e153747153772_) - (_e153748153777_ + (_dispatch153779_ _e153751153776_) + (_e153752153781_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153741153750_ + _self153745153754_ '4 gxc#!lambda::t '#f))) - (_inline153780_ _e153748153777_)) + (_inline153784_ _e153752153781_)) (declare (not safe)) - (_K153744153761_ - _inline153780_ - _dispatch153775_ - _arity153770_)) - (let () (declare (not safe)) (_E153743153754_)))))) + (_K153748153765_ + _inline153784_ + _dispatch153779_ + _arity153774_)) + (let () (declare (not safe)) (_E153747153758_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4721,77 +4721,77 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self153575_ _ctx153576_ _stx153577_ _args153578_) - (let* ((_self153579153586_ _self153575_) - (_E153581153590_ + (lambda (_self153579_ _ctx153580_ _stx153581_ _args153582_) + (let* ((_self153583153590_ _self153579_) + (_E153585153594_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153579153586_)))) - (_K153582153604_ - (lambda (_clauses153593_) - (let ((_$e153599_ - (let ((__tmp155846 - (lambda (_g153594153596_) + (error '"No clause matching" _self153583153590_)))) + (_K153586153608_ + (lambda (_clauses153597_) + (let ((_$e153603_ + (let ((__tmp155850 + (lambda (_g153598153600_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g153594153596_ - _args153578_))))) + _g153598153600_ + _args153582_))))) (declare (not safe)) - (find __tmp155846 _clauses153593_)))) - (if _$e153599_ - ((lambda (_clause153602_) - (let ((__method155060 + (find __tmp155850 _clauses153597_)))) + (if _$e153603_ + ((lambda (_clause153606_) + (let ((__method155064 (let () (declare (not safe)) (method-ref - _clause153602_ + _clause153606_ 'optimize-call)))) - (if __method155060 - (__method155060 - _clause153602_ - _ctx153576_ - _stx153577_ - _args153578_) + (if __method155064 + (__method155064 + _clause153606_ + _ctx153580_ + _stx153581_ + _args153582_) (let () (declare (not safe)) (error '"Missing method" - _clause153602_ + _clause153606_ 'optimize-call))))) - _$e153599_) - (let ((__tmp155847 - (map gxc#!lambda-arity _clauses153593_))) + _$e153603_) + (let ((__tmp155851 + (map gxc#!lambda-arity _clauses153597_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx153577_ - __tmp155847))))))) + _stx153581_ + __tmp155851))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self153579153586_ + _self153583153590_ 'gxc#!case-lambda::t)) - (let* ((_e153583153607_ + (let* ((_e153587153611_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153579153586_ + _self153583153590_ '1 gxc#!type::t '#f))) - (_e153584153610_ + (_e153588153614_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153579153586_ + _self153583153590_ '2 gxc#!case-lambda::t '#f))) - (_clauses153613_ _e153584153610_)) + (_clauses153617_ _e153588153614_)) (declare (not safe)) - (_K153582153604_ _clauses153613_)) - (let () (declare (not safe)) (_E153581153590_)))))) + (_K153586153608_ _clauses153617_)) + (let () (declare (not safe)) (_E153585153594_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4800,496 +4800,496 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self153389_ _args153390_) - (let* ((_self153391153398_ _self153389_) - (_E153393153402_ + (lambda (_self153393_ _args153394_) + (let* ((_self153395153402_ _self153393_) + (_E153397153406_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153391153398_)))) - (_K153394153442_ - (lambda (_arity153405_) - (let* ((_arity153406153415_ _arity153405_) - (_E153409153419_ + (error '"No clause matching" _self153395153402_)))) + (_K153398153446_ + (lambda (_arity153409_) + (let* ((_arity153410153419_ _arity153409_) + (_E153413153423_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arity153406153415_))))) - (let ((_K153413153439_ + _arity153410153419_))))) + (let ((_K153417153443_ (lambda () - (fx= (length _args153390_) _arity153405_))) - (_K153410153425_ - (lambda (_arity153423_) - (fx>= (length _args153390_) _arity153423_)))) - (let ((_try-match153408153435_ + (fx= (length _args153394_) _arity153409_))) + (_K153414153429_ + (lambda (_arity153427_) + (fx>= (length _args153394_) _arity153427_)))) + (let ((_try-match153412153439_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity153406153415_)) - (let ((_tl153412153430_ + (##pair? _arity153410153419_)) + (let ((_tl153416153434_ (let () (declare (not safe)) - (##cdr _arity153406153415_))) - (_hd153411153428_ + (##cdr _arity153410153419_))) + (_hd153415153432_ (let () (declare (not safe)) - (##car _arity153406153415_)))) + (##car _arity153410153419_)))) (if (let () (declare (not safe)) - (##null? _tl153412153430_)) - (let ((_arity153433_ - _hd153411153428_)) + (##null? _tl153416153434_)) + (let ((_arity153437_ + _hd153415153432_)) (declare (not safe)) - (_K153410153425_ _arity153433_)) + (_K153414153429_ _arity153437_)) (let () (declare (not safe)) - (_E153409153419_)))) + (_E153413153423_)))) (let () (declare (not safe)) - (_E153409153419_)))))) + (_E153413153423_)))))) (if (let () (declare (not safe)) - (fixnum? _arity153406153415_)) - (let () (declare (not safe)) (_K153413153439_)) + (fixnum? _arity153410153419_)) + (let () (declare (not safe)) (_K153417153443_)) (let () (declare (not safe)) - (_try-match153408153435_))))))))) + (_try-match153412153439_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self153391153398_ 'gxc#!lambda::t)) - (let* ((_e153395153445_ + (##structure-instance-of? _self153395153402_ 'gxc#!lambda::t)) + (let* ((_e153399153449_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153391153398_ + _self153395153402_ '1 gxc#!type::t '#f))) - (_e153396153448_ + (_e153400153452_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153391153398_ + _self153395153402_ '2 gxc#!lambda::t '#f))) - (_arity153451_ _e153396153448_)) + (_arity153455_ _e153400153452_)) (declare (not safe)) - (_K153394153442_ _arity153451_)) - (let () (declare (not safe)) (_E153393153402_)))))) + (_K153398153446_ _arity153455_)) + (let () (declare (not safe)) (_E153397153406_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self153273_ _ctx153274_ _stx153275_ _args153276_) - (let* ((_self153277153285_ _self153273_) - (_E153279153289_ + (lambda (_self153277_ _ctx153278_ _stx153279_ _args153280_) + (let* ((_self153281153289_ _self153277_) + (_E153283153293_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153277153285_)))) - (_K153280153373_ - (lambda (_dispatch153292_ _table153293_) - (let* ((_g153294153303_ + (error '"No clause matching" _self153281153289_)))) + (_K153284153377_ + (lambda (_dispatch153296_ _table153297_) + (let* ((_g153298153307_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch153292_))) - (_else153296153311_ + (gxc#optimizer-lookup-type _dispatch153296_))) + (_else153300153315_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch153292_)) + _dispatch153296_)) (let () (declare (not safe)) - (gxc#xform-call% _ctx153274_ _stx153275_)))) - (_K153298153357_ - (lambda (_main153314_ _keys153315_) - (let ((_g155848_ + (gxc#xform-call% _ctx153278_ _stx153279_)))) + (_K153302153361_ + (lambda (_main153318_ _keys153319_) + (let ((_g155852_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx153275_ - _args153276_)))) + _stx153279_ + _args153280_)))) (begin - (let ((_g155849_ + (let ((_g155853_ (let () (declare (not safe)) - (if (##values? _g155848_) - (##vector-length _g155848_) + (if (##values? _g155852_) + (##vector-length _g155852_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g155849_ 2))) + (##fx= _g155853_ 2))) (error "Context expects 2 values" - _g155849_))) - (let ((_pargs153317_ + _g155853_))) + (let ((_pargs153321_ (let () (declare (not safe)) - (##vector-ref _g155848_ 0))) - (_kwargs153318_ + (##vector-ref _g155852_ 0))) + (_kwargs153322_ (let () (declare (not safe)) - (##vector-ref _g155848_ 1)))) + (##vector-ref _g155852_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main153314_)) - (if _table153293_ - (let ((_xargs153325_ - (map (lambda (_key153320_) - (let ((_$e153322_ + _main153318_)) + (if _table153297_ + (let ((_xargs153329_ + (map (lambda (_key153324_) + (let ((_$e153326_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key153320_ _kwargs153318_)))) - (if _$e153322_ (values _$e153322_) '(%#ref absent-value)))) + (assgetq__0 _key153324_ _kwargs153322_)))) + (if _$e153326_ (values _$e153326_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys153315_))) + _keys153319_))) (for-each - (lambda (_kw153327_) - (if (memq (car _kw153327_) - _keys153315_) + (lambda (_kw153331_) + (if (memq (car _kw153331_) + _keys153319_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx153275_ - _keys153315_ - _kw153327_)))) - _kwargs153318_) - (let ((__tmp155901 - (let ((__tmp155902 - (let ((__tmp155903 - (let ((__tmp155908 + _stx153279_ + _keys153319_ + _kw153331_)))) + _kwargs153322_) + (let ((__tmp155905 + (let ((__tmp155906 + (let ((__tmp155907 + (let ((__tmp155912 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155909 + (let ((__tmp155913 (let () (declare (not safe)) - (cons _main153314_ '())))) + (cons _main153318_ '())))) (declare (not safe)) - (cons '%#ref __tmp155909))) - (__tmp155904 - (let ((__tmp155906 - (let ((__tmp155907 + (cons '%#ref __tmp155913))) + (__tmp155908 + (let ((__tmp155910 + (let ((__tmp155911 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp155907))) - (__tmp155905 + (cons '%#quote __tmp155911))) + (__tmp155909 (let () (declare (not safe)) (foldr1 cons - _pargs153317_ - _xargs153325_)))) + _pargs153321_ + _xargs153329_)))) (declare (not safe)) - (cons __tmp155906 __tmp155905)))) + (cons __tmp155910 __tmp155909)))) (declare (not safe)) - (cons __tmp155908 __tmp155904)))) + (cons __tmp155912 __tmp155908)))) (declare (not safe)) - (cons '%#call __tmp155903)))) + (cons '%#call __tmp155907)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155902 - _stx153275_)))) + __tmp155906 + _stx153279_)))) (declare (not safe)) (gxc#compile-e__1 - _ctx153274_ - __tmp155901))) - (let* ((_kwt153329_ - (let ((__tmp155850 + _ctx153278_ + __tmp155905))) + (let* ((_kwt153333_ + (let ((__tmp155854 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp155850))) - (_kwvars153332_ - (map (lambda (_g155851_) - (let ((__tmp155852 + __tmp155854))) + (_kwvars153336_ + (map (lambda (_g155855_) + (let ((__tmp155856 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp155852))) - _kwargs153318_)) - (_kwbind153337_ - (map (lambda (_kw153334_ - _kwvar153335_) - (let ((__tmp155855 + __tmp155856))) + _kwargs153322_)) + (_kwbind153341_ + (map (lambda (_kw153338_ + _kwvar153339_) + (let ((__tmp155859 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar153335_ '()))) - (__tmp155853 - (let ((__tmp155854 (cdr _kw153334_))) + (cons _kwvar153339_ '()))) + (__tmp155857 + (let ((__tmp155858 (cdr _kw153338_))) (declare (not safe)) - (cons __tmp155854 '())))) + (cons __tmp155858 '())))) (declare (not safe)) - (cons __tmp155855 __tmp155853))) + (cons __tmp155859 __tmp155857))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs153318_ - _kwvars153332_)) - (_kwset153342_ - (map (lambda (_kw153339_ - _kwvar153340_) - (let ((__tmp155856 - (let ((__tmp155857 + _kwargs153322_ + _kwvars153336_)) + (_kwset153346_ + (map (lambda (_kw153343_ + _kwvar153344_) + (let ((__tmp155860 + (let ((__tmp155861 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155865 - (let ((__tmp155866 + (let ((__tmp155869 + (let ((__tmp155870 (let () (declare (not safe)) - (cons _kwt153329_ '())))) + (cons _kwt153333_ '())))) (declare (not safe)) - (cons '%#ref __tmp155866))) - (__tmp155858 - (let ((__tmp155862 - (let ((__tmp155863 - (let ((__tmp155864 - (car _kw153339_))) + (cons '%#ref __tmp155870))) + (__tmp155862 + (let ((__tmp155866 + (let ((__tmp155867 + (let ((__tmp155868 + (car _kw153343_))) (declare (not safe)) - (cons __tmp155864 '())))) + (cons __tmp155868 '())))) (declare (not safe)) - (cons '%#quote __tmp155863))) - (__tmp155859 - (let ((__tmp155860 - (let ((__tmp155861 + (cons '%#quote __tmp155867))) + (__tmp155863 + (let ((__tmp155864 + (let ((__tmp155865 (let () (declare (not safe)) - (cons _kwvar153340_ + (cons _kwvar153344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155861)))) + __tmp155865)))) (declare (not safe)) - (cons __tmp155860 '())))) + (cons __tmp155864 '())))) (declare (not safe)) - (cons __tmp155862 __tmp155859)))) + (cons __tmp155866 __tmp155863)))) (declare (not safe)) - (cons __tmp155865 __tmp155858)))) + (cons __tmp155869 __tmp155862)))) (declare (not safe)) - (cons '(%#ref symbolic-table-set!) __tmp155857)))) + (cons '(%#ref symbolic-table-set!) __tmp155861)))) (declare (not safe)) - (cons '%#call __tmp155856))) + (cons '%#call __tmp155860))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs153318_ - _kwvars153332_)) - (_xkwargs153347_ - (map (lambda (_kw153344_ - _kwvar153345_) - (let ((__tmp155869 - (car _kw153344_)) - (__tmp155867 - (let ((__tmp155868 + _kwargs153322_ + _kwvars153336_)) + (_xkwargs153351_ + (map (lambda (_kw153348_ + _kwvar153349_) + (let ((__tmp155873 + (car _kw153348_)) + (__tmp155871 + (let ((__tmp155872 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar153345_ '())))) + (cons _kwvar153349_ '())))) (declare (not safe)) - (cons '%#ref __tmp155868)))) + (cons '%#ref __tmp155872)))) (declare (not safe)) - (cons __tmp155869 __tmp155867))) + (cons __tmp155873 __tmp155871))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs153318_ - _kwvars153332_)) - (_xargs153354_ - (map (lambda (_key153349_) - (let ((_$e153351_ + _kwargs153322_ + _kwvars153336_)) + (_xargs153358_ + (map (lambda (_key153353_) + (let ((_$e153355_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key153349_ _xkwargs153347_)))) - (if _$e153351_ (values _$e153351_) '(%#ref absent-value)))) + (assgetq__0 _key153353_ _xkwargs153351_)))) + (if _$e153355_ (values _$e153355_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys153315_))) - (let ((__tmp155870 - (let ((__tmp155871 - (let ((__tmp155872 - (let ((__tmp155873 + _keys153319_))) + (let ((__tmp155874 + (let ((__tmp155875 + (let ((__tmp155876 + (let ((__tmp155877 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155874 - (let ((__tmp155875 - (let ((__tmp155889 - (let ((__tmp155890 - (let ((__tmp155900 + (let ((__tmp155878 + (let ((__tmp155879 + (let ((__tmp155893 + (let ((__tmp155894 + (let ((__tmp155904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt153329_ '()))) - (__tmp155891 - (let ((__tmp155892 - (let ((__tmp155893 - (let ((__tmp155894 - (let ((__tmp155895 - (let ((__tmp155897 - (let ((__tmp155898 + (let () (declare (not safe)) (cons _kwt153333_ '()))) + (__tmp155895 + (let ((__tmp155896 + (let ((__tmp155897 + (let ((__tmp155898 + (let ((__tmp155899 + (let ((__tmp155901 + (let ((__tmp155902 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155899 (length _kwargs153318_))) + (let ((__tmp155903 (length _kwargs153322_))) (declare (not safe)) - (cons __tmp155899 '())))) + (cons __tmp155903 '())))) (declare (not safe)) - (cons '%#quote __tmp155898))) - (__tmp155896 + (cons '%#quote __tmp155902))) + (__tmp155900 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp155897 __tmp155896)))) + (cons __tmp155901 __tmp155900)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(%#ref make-symbolic-table) - __tmp155895)))) + __tmp155899)))) (declare (not safe)) - (cons '%#call __tmp155894)))) + (cons '%#call __tmp155898)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155893 - _stx153275_)))) + __tmp155897 + _stx153279_)))) (declare (not safe)) - (cons __tmp155892 '())))) + (cons __tmp155896 '())))) (declare (not safe)) - (cons __tmp155900 __tmp155891)))) + (cons __tmp155904 __tmp155895)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155890 '()))) - (__tmp155876 - (let ((__tmp155877 - (let ((__tmp155878 + (cons __tmp155894 '()))) + (__tmp155880 + (let ((__tmp155881 + (let ((__tmp155882 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155879 - (let ((__tmp155880 - (let ((__tmp155881 - (let ((__tmp155882 - (let ((__tmp155887 - (let ((__tmp155888 + (let ((__tmp155883 + (let ((__tmp155884 + (let ((__tmp155885 + (let ((__tmp155886 + (let ((__tmp155891 + (let ((__tmp155892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main153314_ '())))) + (cons _main153318_ '())))) (declare (not safe)) - (cons '%#ref __tmp155888))) - (__tmp155883 - (let ((__tmp155885 - (let ((__tmp155886 + (cons '%#ref __tmp155892))) + (__tmp155887 + (let ((__tmp155889 + (let ((__tmp155890 (let () (declare (not safe)) - (cons _kwt153329_ '())))) + (cons _kwt153333_ '())))) (declare (not safe)) - (cons '%#ref __tmp155886))) - (__tmp155884 + (cons '%#ref __tmp155890))) + (__tmp155888 (let () (declare (not safe)) - (foldr1 cons _pargs153317_ _xargs153354_)))) + (foldr1 cons _pargs153321_ _xargs153358_)))) (declare (not safe)) - (cons __tmp155885 __tmp155884)))) + (cons __tmp155889 __tmp155888)))) (declare (not safe)) - (cons __tmp155887 __tmp155883)))) + (cons __tmp155891 __tmp155887)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp155882)))) + (cons '%#call __tmp155886)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155881 - _stx153275_)))) + __tmp155885 + _stx153279_)))) (declare (not safe)) - (cons __tmp155880 '())))) + (cons __tmp155884 '())))) (declare (not safe)) - (foldr1 cons __tmp155879 _kwset153342_)))) + (foldr1 cons __tmp155883 _kwset153346_)))) (declare (not safe)) - (cons '%#begin __tmp155878)))) + (cons '%#begin __tmp155882)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155877 '())))) + (cons __tmp155881 '())))) (declare (not safe)) - (cons __tmp155889 __tmp155876)))) + (cons __tmp155893 __tmp155880)))) (declare (not safe)) - (cons '%#let-values __tmp155875)))) + (cons '%#let-values __tmp155879)))) (declare (not safe)) - (cons __tmp155874 '())))) + (cons __tmp155878 '())))) (declare (not safe)) - (cons _kwbind153337_ __tmp155873)))) + (cons _kwbind153341_ __tmp155877)))) (declare (not safe)) - (cons '%#let-values __tmp155872)))) + (cons '%#let-values __tmp155876)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155871 - _stx153275_)))) + __tmp155875 + _stx153279_)))) (declare (not safe)) (gxc#compile-e__1 - _ctx153274_ - __tmp155870))))))))))) + _ctx153278_ + __tmp155874))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g153294153303_ + _g153298153307_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e153299153360_ + (let* ((_e153303153364_ (let () (declare (not safe)) (##unchecked-structure-ref - _g153294153303_ + _g153298153307_ '1 gxc#!type::t '#f))) - (_e153300153363_ + (_e153304153367_ (let () (declare (not safe)) (##unchecked-structure-ref - _g153294153303_ + _g153298153307_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys153366_ _e153300153363_) - (_e153301153368_ + (_keys153370_ _e153304153367_) + (_e153305153372_ (let () (declare (not safe)) (##unchecked-structure-ref - _g153294153303_ + _g153298153307_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main153371_ _e153301153368_)) + (_main153375_ _e153305153372_)) (declare (not safe)) - (_K153298153357_ _main153371_ _keys153366_)) - (let () (declare (not safe)) (_else153296153311_))))))) + (_K153302153361_ _main153375_ _keys153370_)) + (let () (declare (not safe)) (_else153300153315_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self153277153285_ + _self153281153289_ 'gxc#!kw-lambda::t)) - (let* ((_e153281153376_ + (let* ((_e153285153380_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153277153285_ + _self153281153289_ '1 gxc#!type::t '#f))) - (_e153282153379_ + (_e153286153383_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153277153285_ + _self153281153289_ '2 gxc#!kw-lambda::t '#f))) - (_table153382_ _e153282153379_) - (_e153283153384_ + (_table153386_ _e153286153383_) + (_e153287153388_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153277153285_ + _self153281153289_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch153387_ _e153283153384_)) + (_dispatch153391_ _e153287153388_)) (declare (not safe)) - (_K153280153373_ _dispatch153387_ _table153382_)) - (let () (declare (not safe)) (_E153279153289_)))))) + (_K153284153377_ _dispatch153391_ _table153386_)) + (let () (declare (not safe)) (_E153283153293_)))))) (let () (declare (not safe)) (bind-method!__% @@ -5298,302 +5298,302 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx152886_ _args152887_) - (let _lp152889_ ((_rest152891_ _args152887_) - (_pargs152892_ '()) - (_kwargs152893_ '())) - (let* ((___stx154940154941_ _rest152891_) - (_g152899152951_ + (lambda (_stx152890_ _args152891_) + (let _lp152893_ ((_rest152895_ _args152891_) + (_pargs152896_ '()) + (_kwargs152897_ '())) + (let* ((___stx154944154945_ _rest152895_) + (_g152903152955_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154940154941_))))) - (let ((___kont154942154943_ - (lambda (_L153130_ _L153131_) - (let ((__tmp155910 + ___stx154944154945_))))) + (let ((___kont154946154947_ + (lambda (_L153134_ _L153135_) + (let ((__tmp155914 (let () (declare (not safe)) - (cons _L153131_ _pargs152892_)))) + (cons _L153135_ _pargs152896_)))) (declare (not safe)) - (_lp152889_ _L153130_ __tmp155910 _kwargs152893_)))) - (___kont154944154945_ - (lambda (_L153076_) + (_lp152893_ _L153134_ __tmp155914 _kwargs152897_)))) + (___kont154948154949_ + (lambda (_L153080_) (values (let () (declare (not safe)) - (foldl1 cons _L153076_ _pargs152892_)) - (reverse _kwargs152893_)))) - (___kont154946154947_ - (lambda (_L153023_ _L153024_ _L153025_) - (let ((_kw153042_ + (foldl1 cons _L153080_ _pargs152896_)) + (reverse _kwargs152897_)))) + (___kont154950154951_ + (lambda (_L153027_ _L153028_ _L153029_) + (let ((_kw153046_ (let () (declare (not safe)) - (gx#stx-e _L153025_)))) - (if (assq _kw153042_ _kwargs152893_) + (gx#stx-e _L153029_)))) + (if (assq _kw153046_ _kwargs152897_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx152886_ - _kw153042_)) - (let ((__tmp155911 - (let ((__tmp155912 + _stx152890_ + _kw153046_)) + (let ((__tmp155915 + (let ((__tmp155916 (let () (declare (not safe)) - (cons _kw153042_ _L153024_)))) + (cons _kw153046_ _L153028_)))) (declare (not safe)) - (cons __tmp155912 _kwargs152893_)))) + (cons __tmp155916 _kwargs152897_)))) (declare (not safe)) - (_lp152889_ - _L153023_ - _pargs152892_ - __tmp155911)))))) - (___kont154948154949_ - (lambda (_L152971_ _L152972_) - (let ((__tmp155913 + (_lp152893_ + _L153027_ + _pargs152896_ + __tmp155915)))))) + (___kont154952154953_ + (lambda (_L152975_ _L152976_) + (let ((__tmp155917 (let () (declare (not safe)) - (cons _L152972_ _pargs152892_)))) + (cons _L152976_ _pargs152896_)))) (declare (not safe)) - (_lp152889_ _L152971_ __tmp155913 _kwargs152893_)))) - (___kont154950154951_ + (_lp152893_ _L152975_ __tmp155917 _kwargs152897_)))) + (___kont154954154955_ (lambda () - (values (reverse _pargs152892_) - (reverse _kwargs152893_))))) - (let* ((_g152898152958_ + (values (reverse _pargs152896_) + (reverse _kwargs152897_))))) + (let* ((_g152902152962_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx154940154941_)) - (___kont154950154951_) - (let () (declare (not safe)) (_g152899152951_))))) - (___match155047155048_ - (lambda (_e152932152991_ - _hd152931152994_ - _tl152930152996_ - _e152935152999_ - _hd152934153002_ - _tl152933153004_ - _e152938153007_ - _hd152937153010_ - _tl152936153012_ - _e152941153015_ - _hd152940153018_ - _tl152939153020_) - (let ((_L153023_ _tl152939153020_) - (_L153024_ _hd152940153018_) - (_L153025_ _hd152937153010_)) + (gx#stx-null? ___stx154944154945_)) + (___kont154954154955_) + (let () (declare (not safe)) (_g152903152955_))))) + (___match155051155052_ + (lambda (_e152936152995_ + _hd152935152998_ + _tl152934153000_ + _e152939153003_ + _hd152938153006_ + _tl152937153008_ + _e152942153011_ + _hd152941153014_ + _tl152940153016_ + _e152945153019_ + _hd152944153022_ + _tl152943153024_) + (let ((_L153027_ _tl152943153024_) + (_L153028_ _hd152944153022_) + (_L153029_ _hd152941153014_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L153025_)) - (___kont154946154947_ - _L153023_ - _L153024_ - _L153025_) - (___kont154948154949_ - _tl152930152996_ - _hd152931152994_)))))) + (gx#stx-keyword? _L153029_)) + (___kont154950154951_ + _L153027_ + _L153028_ + _L153029_) + (___kont154952154953_ + _tl152934153000_ + _hd152935152998_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx154940154941_)) - (let ((_e152905153095_ + (gx#stx-pair? ___stx154944154945_)) + (let ((_e152909153099_ (let () (declare (not safe)) - (gx#stx-e ___stx154940154941_)))) - (let ((_tl152903153100_ + (gx#stx-e ___stx154944154945_)))) + (let ((_tl152907153104_ (let () (declare (not safe)) - (##cdr _e152905153095_))) - (_hd152904153098_ + (##cdr _e152909153099_))) + (_hd152908153102_ (let () (declare (not safe)) - (##car _e152905153095_)))) + (##car _e152909153099_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd152904153098_)) - (let ((_e152908153103_ + (gx#stx-pair? _hd152908153102_)) + (let ((_e152912153107_ (let () (declare (not safe)) - (gx#stx-e _hd152904153098_)))) - (let ((_tl152906153108_ + (gx#stx-e _hd152908153102_)))) + (let ((_tl152910153112_ (let () (declare (not safe)) - (##cdr _e152908153103_))) - (_hd152907153106_ + (##cdr _e152912153107_))) + (_hd152911153110_ (let () (declare (not safe)) - (##car _e152908153103_)))) + (##car _e152912153107_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd152907153106_)) + (gx#identifier? _hd152911153110_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd152907153106_)) + _hd152911153110_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152906153108_)) - (let ((_e152911153111_ + (gx#stx-pair? _tl152910153112_)) + (let ((_e152915153115_ (let () (declare (not safe)) (gx#stx-e - _tl152906153108_)))) - (let ((_tl152909153116_ + _tl152910153112_)))) + (let ((_tl152913153120_ (let () (declare (not safe)) - (##cdr _e152911153111_))) - (_hd152910153114_ + (##cdr _e152915153115_))) + (_hd152914153118_ (let () (declare (not safe)) - (##car _e152911153111_)))) + (##car _e152915153115_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd152910153114_)) - (let ((_e152912153119_ + _hd152914153118_)) + (let ((_e152916153123_ (let () (declare (not safe)) (gx#stx-e - _hd152910153114_)))) + _hd152914153118_)))) (if (let () (declare (not safe)) - (equal? _e152912153119_ + (equal? _e152916153123_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl152909153116_)) + (gx#stx-null? _tl152913153120_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152903153100_)) - (let ((_e152915153122_ + (gx#stx-pair? _tl152907153104_)) + (let ((_e152919153126_ (let () (declare (not safe)) - (gx#stx-e _tl152903153100_)))) - (let ((_tl152913153127_ + (gx#stx-e _tl152907153104_)))) + (let ((_tl152917153131_ (let () (declare (not safe)) - (##cdr _e152915153122_))) - (_hd152914153125_ + (##cdr _e152919153126_))) + (_hd152918153129_ (let () (declare (not safe)) - (##car _e152915153122_)))) - (___kont154942154943_ - _tl152913153127_ - _hd152914153125_))) - (___kont154948154949_ - _tl152903153100_ - _hd152904153098_)) - (___kont154948154949_ _tl152903153100_ _hd152904153098_)) + (##car _e152919153126_)))) + (___kont154946154947_ + _tl152917153131_ + _hd152918153129_))) + (___kont154952154953_ + _tl152907153104_ + _hd152908153102_)) + (___kont154952154953_ _tl152907153104_ _hd152908153102_)) (if (let () (declare (not safe)) - (equal? _e152912153119_ '#!rest)) + (equal? _e152916153123_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl152909153116_)) - (___kont154944154945_ _tl152903153100_) - (___kont154948154949_ - _tl152903153100_ - _hd152904153098_)) + (gx#stx-null? _tl152913153120_)) + (___kont154948154949_ _tl152907153104_) + (___kont154952154953_ + _tl152907153104_ + _hd152908153102_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl152909153116_)) + (gx#stx-null? _tl152913153120_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152903153100_)) - (let ((_e152941153015_ + (gx#stx-pair? _tl152907153104_)) + (let ((_e152945153019_ (let () (declare (not safe)) - (gx#stx-e _tl152903153100_)))) - (let ((_tl152939153020_ + (gx#stx-e _tl152907153104_)))) + (let ((_tl152943153024_ (let () (declare (not safe)) - (##cdr _e152941153015_))) - (_hd152940153018_ + (##cdr _e152945153019_))) + (_hd152944153022_ (let () (declare (not safe)) - (##car _e152941153015_)))) - (___match155047155048_ - _e152905153095_ - _hd152904153098_ - _tl152903153100_ - _e152908153103_ - _hd152907153106_ - _tl152906153108_ - _e152911153111_ - _hd152910153114_ - _tl152909153116_ - _e152941153015_ - _hd152940153018_ - _tl152939153020_))) - (___kont154948154949_ - _tl152903153100_ - _hd152904153098_)) - (___kont154948154949_ - _tl152903153100_ - _hd152904153098_))))) + (##car _e152945153019_)))) + (___match155051155052_ + _e152909153099_ + _hd152908153102_ + _tl152907153104_ + _e152912153107_ + _hd152911153110_ + _tl152910153112_ + _e152915153115_ + _hd152914153118_ + _tl152913153120_ + _e152945153019_ + _hd152944153022_ + _tl152943153024_))) + (___kont154952154953_ + _tl152907153104_ + _hd152908153102_)) + (___kont154952154953_ + _tl152907153104_ + _hd152908153102_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl152909153116_)) + _tl152913153120_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl152903153100_)) - (let ((_e152941153015_ + _tl152907153104_)) + (let ((_e152945153019_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl152903153100_)))) - (let ((_tl152939153020_ + (gx#stx-e _tl152907153104_)))) + (let ((_tl152943153024_ (let () (declare (not safe)) - (##cdr _e152941153015_))) - (_hd152940153018_ + (##cdr _e152945153019_))) + (_hd152944153022_ (let () (declare (not safe)) - (##car _e152941153015_)))) - (___match155047155048_ - _e152905153095_ - _hd152904153098_ - _tl152903153100_ - _e152908153103_ - _hd152907153106_ - _tl152906153108_ - _e152911153111_ - _hd152910153114_ - _tl152909153116_ - _e152941153015_ - _hd152940153018_ - _tl152939153020_))) - (___kont154948154949_ _tl152903153100_ _hd152904153098_)) - (___kont154948154949_ _tl152903153100_ _hd152904153098_))))) + (##car _e152945153019_)))) + (___match155051155052_ + _e152909153099_ + _hd152908153102_ + _tl152907153104_ + _e152912153107_ + _hd152911153110_ + _tl152910153112_ + _e152915153115_ + _hd152914153118_ + _tl152913153120_ + _e152945153019_ + _hd152944153022_ + _tl152943153024_))) + (___kont154952154953_ _tl152907153104_ _hd152908153102_)) + (___kont154952154953_ _tl152907153104_ _hd152908153102_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont154948154949_ - _tl152903153100_ - _hd152904153098_)) - (___kont154948154949_ - _tl152903153100_ - _hd152904153098_)) - (___kont154948154949_ - _tl152903153100_ - _hd152904153098_)))) - (___kont154948154949_ - _tl152903153100_ - _hd152904153098_)))) - (let () (declare (not safe)) (_g152898152958_))))))))) + (___kont154952154953_ + _tl152907153104_ + _hd152908153102_)) + (___kont154952154953_ + _tl152907153104_ + _hd152908153102_)) + (___kont154952154953_ + _tl152907153104_ + _hd152908153102_)))) + (___kont154952154953_ + _tl152907153104_ + _hd152908153102_)))) + (let () (declare (not safe)) (_g152902152962_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self152881_ _ctx152882_ _stx152883_ _args152884_) + (lambda (_self152885_ _ctx152886_ _stx152887_ _args152888_) (let () (declare (not safe)) - (gxc#xform-call% _ctx152882_ _stx152883_)))) + (gxc#xform-call% _ctx152886_ _stx152887_)))) (let () (declare (not safe)) (bind-method!__% diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index b62e5f9f4..9d49d8f61 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call~1.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g155916_| + (define |gxc[1]#_g155920_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g155918_| + (define |gxc[1]#_g155922_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g155920_| + (define |gxc[1]#_g155924_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g155922_| + (define |gxc[1]#_g155926_| (##structure gx#syntax-quote::t '::optimize-call? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::optimize-call| - (let ((__obj155057 + (let ((__obj155061 (let () (declare (not safe)) (##structure @@ -53,7 +53,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 'gxc#::optimize-call::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -61,7 +61,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '::optimize-call '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -69,26 +69,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp155914 - (let ((__tmp155915 |gxc[1]#_g155916_|)) + (let ((__tmp155918 + (let ((__tmp155919 |gxc[1]#_g155920_|)) (declare (not safe)) - (cons __tmp155915 '())))) + (cons __tmp155919 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj155057 - __tmp155914 + __obj155061 + __tmp155918 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -96,7 +96,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -104,7 +104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -112,39 +112,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp155917 |gxc[1]#_g155918_|)) + (let ((__tmp155921 |gxc[1]#_g155922_|)) (declare (not safe)) (##unchecked-structure-set! - __obj155057 - __tmp155917 + __obj155061 + __tmp155921 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp155919 |gxc[1]#_g155920_|)) + (let ((__tmp155923 |gxc[1]#_g155924_|)) (declare (not safe)) (##unchecked-structure-set! - __obj155057 - __tmp155919 + __obj155061 + __tmp155923 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp155921 |gxc[1]#_g155922_|)) + (let ((__tmp155925 |gxc[1]#_g155926_|)) (declare (not safe)) (##unchecked-structure-set! - __obj155057 - __tmp155921 + __obj155061 + __tmp155925 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -152,7 +152,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -160,7 +160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -168,9 +168,9 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155057 + __obj155061 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj155057))) + __obj155061))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index 327227f02..e173df678 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm @@ -1,31 +1,31 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1710781151) + (define gerbil/compiler/optimize-spec::timestamp 1710833426) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp137231 (list gxc#::identity::t)) - (__tmp137229 - (let ((__tmp137230 + (let ((__tmp137235 (list gxc#::identity::t)) + (__tmp137233 + (let ((__tmp137234 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp137230 '())))) + (cons __tmp137234 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp137231 + __tmp137235 '() - __tmp137229 + __tmp137233 '#f))) (define gxc#::generate-method-specializers? (let () (declare (not safe)) (make-class-predicate gxc#::generate-method-specializers::t))) (define gxc#make-::generate-method-specializers - (lambda _$args136095_ + (lambda _$args136099_ (apply make-instance gxc#::generate-method-specializers::t - _$args136095_))) + _$args136099_))) (define gxc#::generate-method-specializers-bind-methods! (make-promise (lambda () @@ -58,46 +58,46 @@ (declare (not safe)) (seal-class! gxc#::generate-method-specializers::t))))) (define gxc#apply-generate-method-specializers - (lambda (_stx136087_) + (lambda (_stx136091_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_self136090_ - (let ((__obj137224 + (let* ((_self136094_ + (let ((__obj137228 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj137224)) - (__tmp137232 + __obj137228)) + (__tmp137236 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self136090_ _stx136087_))))) + (gxc#compile-e__1 _self136094_ _stx136091_))))) (declare (not safe)) (call-with-parameters - __tmp137232 + __tmp137236 gxc#current-compile-method - _self136090_)))) + _self136094_)))) (define gxc#::collect-object-refs::t - (let ((__tmp137235 (list gxc#::void::t)) - (__tmp137233 - (let ((__tmp137234 + (let ((__tmp137239 (list gxc#::void::t)) + (__tmp137237 + (let ((__tmp137238 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp137234 '())))) + (cons __tmp137238 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp137235 + __tmp137239 '(receiver methods slots) - __tmp137233 + __tmp137237 '#f))) (define gxc#::collect-object-refs? (let () (declare (not safe)) (make-class-predicate gxc#::collect-object-refs::t))) (define gxc#make-::collect-object-refs - (lambda _$args136084_ - (apply make-instance gxc#::collect-object-refs::t _$args136084_))) + (lambda _$args136088_ + (apply make-instance gxc#::collect-object-refs::t _$args136088_))) (define gxc#::collect-object-refs-receiver (let () (declare (not safe)) @@ -262,38 +262,38 @@ (declare (not safe)) (seal-class! gxc#::collect-object-refs::t))))) (define gxc#apply-collect-object-refs__% - (lambda (_g137236_ - _receiver136045136050_ - _methods136046136052_ - _slots136047136054_ - _stx136056_) - (let* ((_receiver136059_ + (lambda (_g137240_ + _receiver136049136054_ + _methods136050136056_ + _slots136051136058_ + _stx136060_) + (let* ((_receiver136063_ (if (let () (declare (not safe)) - (eq? _receiver136045136050_ absent-value)) + (eq? _receiver136049136054_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _receiver136045136050_)) - (_methods136061_ + _receiver136049136054_)) + (_methods136065_ (if (let () (declare (not safe)) - (eq? _methods136046136052_ absent-value)) + (eq? _methods136050136056_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _methods136046136052_)) - (_slots136063_ + _methods136050136056_)) + (_slots136067_ (if (let () (declare (not safe)) - (eq? _slots136047136054_ absent-value)) + (eq? _slots136051136058_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _slots136047136054_))) + _slots136051136058_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_self136065_ - (let ((__obj137226 + (let* ((_self136069_ + (let ((__obj137230 (let () (declare (not safe)) (##structure @@ -304,86 +304,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137226 - _receiver136059_ + __obj137230 + _receiver136063_ '1 gxc#::collect-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137226 - _methods136061_ + __obj137230 + _methods136065_ '2 gxc#::collect-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137226 - _slots136063_ + __obj137230 + _slots136067_ '3 gxc#::collect-object-refs::t '#f)) - __obj137226)) - (__tmp137237 + __obj137230)) + (__tmp137241 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self136065_ _stx136056_))))) + (gxc#compile-e__1 _self136069_ _stx136060_))))) (declare (not safe)) (call-with-parameters - __tmp137237 + __tmp137241 gxc#current-compile-method - _self136065_))))) + _self136069_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_keys136044136072_ . _args136074_) + (lambda (_keys136048136076_ . _args136078_) (apply gxc#apply-collect-object-refs__% - _keys136044136072_ + _keys136048136076_ (let () (declare (not safe)) (symbolic-table-ref - _keys136044136072_ + _keys136048136076_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys136044136072_ + _keys136048136076_ 'methods: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys136044136072_ 'slots: absent-value)) - _args136074_))) + (symbolic-table-ref _keys136048136076_ 'slots: absent-value)) + _args136078_))) (define gxc#apply-collect-object-refs - (lambda _args136048136080_ + (lambda _args136052136084_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _args136048136080_))) + _args136052136084_))) (define gxc#::subst-object-refs::t - (let ((__tmp137240 (list gxc#::basic-xform-expression::t)) - (__tmp137238 - (let ((__tmp137239 + (let ((__tmp137244 (list gxc#::basic-xform-expression::t)) + (__tmp137242 + (let ((__tmp137243 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp137239 '())))) + (cons __tmp137243 '())))) (declare (not safe)) (make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp137240 + __tmp137244 '(receiver klass methods slots) - __tmp137238 + __tmp137242 '#f))) (define gxc#::subst-object-refs? (let () (declare (not safe)) (make-class-predicate gxc#::subst-object-refs::t))) (define gxc#make-::subst-object-refs - (lambda _$args136040_ - (apply make-instance gxc#::subst-object-refs::t _$args136040_))) + (lambda _$args136044_ + (apply make-instance gxc#::subst-object-refs::t _$args136044_))) (define gxc#::subst-object-refs-receiver (let () (declare (not safe)) @@ -480,47 +480,47 @@ (declare (not safe)) (seal-class! gxc#::subst-object-refs::t))))) (define gxc#apply-subst-object-refs__% - (lambda (_g137241_ - _receiver135996136002_ - _klass135997136004_ - _methods135998136006_ - _slots135999136008_ - _stx136010_) - (let* ((_receiver136013_ + (lambda (_g137245_ + _receiver136000136006_ + _klass136001136008_ + _methods136002136010_ + _slots136003136012_ + _stx136014_) + (let* ((_receiver136017_ (if (let () (declare (not safe)) - (eq? _receiver135996136002_ absent-value)) + (eq? _receiver136000136006_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _receiver135996136002_)) - (_klass136015_ + _receiver136000136006_)) + (_klass136019_ (if (let () (declare (not safe)) - (eq? _klass135997136004_ absent-value)) + (eq? _klass136001136008_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _klass135997136004_)) - (_methods136017_ + _klass136001136008_)) + (_methods136021_ (if (let () (declare (not safe)) - (eq? _methods135998136006_ absent-value)) + (eq? _methods136002136010_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _methods135998136006_)) - (_slots136019_ + _methods136002136010_)) + (_slots136023_ (if (let () (declare (not safe)) - (eq? _slots135999136008_ absent-value)) + (eq? _slots136003136012_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _slots135999136008_))) + _slots136003136012_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_self136021_ - (let ((__obj137228 + (let* ((_self136025_ + (let ((__obj137232 (let () (declare (not safe)) (##structure @@ -532,95 +532,95 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137228 - _receiver136013_ + __obj137232 + _receiver136017_ '1 gxc#::subst-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137228 - _klass136015_ + __obj137232 + _klass136019_ '2 gxc#::subst-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137228 - _methods136017_ + __obj137232 + _methods136021_ '3 gxc#::subst-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137228 - _slots136019_ + __obj137232 + _slots136023_ '4 gxc#::subst-object-refs::t '#f)) - __obj137228)) - (__tmp137242 + __obj137232)) + (__tmp137246 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self136021_ _stx136010_))))) + (gxc#compile-e__1 _self136025_ _stx136014_))))) (declare (not safe)) (call-with-parameters - __tmp137242 + __tmp137246 gxc#current-compile-method - _self136021_))))) + _self136025_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_keys135995136028_ . _args136030_) + (lambda (_keys135999136032_ . _args136034_) (apply gxc#apply-subst-object-refs__% - _keys135995136028_ + _keys135999136032_ (let () (declare (not safe)) (symbolic-table-ref - _keys135995136028_ + _keys135999136032_ 'receiver: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys135995136028_ 'klass: absent-value)) + (symbolic-table-ref _keys135999136032_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys135995136028_ + _keys135999136032_ 'methods: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys135995136028_ 'slots: absent-value)) - _args136030_))) + (symbolic-table-ref _keys135999136032_ 'slots: absent-value)) + _args136034_))) (define gxc#apply-subst-object-refs - (lambda _args136000136036_ + (lambda _args136004136040_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _args136000136036_))) + _args136004136040_))) (define gxc#generate-method-specializers-define-values% - (lambda (_self133205_ _stx133206_) - (letrec ((_generate-method-bind133208_ - (lambda (_$klass135987_ - _$method-table135988_ - _id135989_ - _$id135990_) - (let ((_$tmp135992_ - (let ((__tmp137243 (gensym '__method))) + (lambda (_self133209_ _stx133210_) + (letrec ((_generate-method-bind133212_ + (lambda (_$klass135991_ + _$method-table135992_ + _id135993_ + _$id135994_) + (let ((_$tmp135996_ + (let ((__tmp137247 (gensym '__method))) (declare (not safe)) - (make-symbol__0 __tmp137243)))) - (let ((__tmp137291 + (make-symbol__0 __tmp137247)))) + (let ((__tmp137295 (let () (declare (not safe)) - (cons _$id135990_ '()))) - (__tmp137244 - (let ((__tmp137245 - (let ((__tmp137246 - (let ((__tmp137289 - (let ((__tmp137290 + (cons _$id135994_ '()))) + (__tmp137248 + (let ((__tmp137249 + (let ((__tmp137250 + (let ((__tmp137293 + (let ((__tmp137294 (let () (declare (not safe)) (cons 'make-promise @@ -628,823 +628,823 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp137290))) - (__tmp137247 - (let ((__tmp137248 - (let ((__tmp137249 - (let ((__tmp137250 + (cons '%#ref __tmp137294))) + (__tmp137251 + (let ((__tmp137252 + (let ((__tmp137253 + (let ((__tmp137254 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137251 - (let ((__tmp137252 - (let ((__tmp137272 - (let ((__tmp137273 - (let ((__tmp137288 + (let ((__tmp137255 + (let ((__tmp137256 + (let ((__tmp137276 + (let ((__tmp137277 + (let ((__tmp137292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp135992_ '()))) - (__tmp137274 - (let ((__tmp137275 - (let ((__tmp137276 - (let ((__tmp137286 - (let ((__tmp137287 + (cons _$tmp135996_ '()))) + (__tmp137278 + (let ((__tmp137279 + (let ((__tmp137280 + (let ((__tmp137290 + (let ((__tmp137291 (let () (declare (not safe)) (cons 'symbolic-table-ref '())))) (declare (not safe)) - (cons '%#ref __tmp137287))) - (__tmp137277 - (let ((__tmp137284 - (let ((__tmp137285 + (cons '%#ref __tmp137291))) + (__tmp137281 + (let ((__tmp137288 + (let ((__tmp137289 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$method-table135988_ '())))) + (cons _$method-table135992_ '())))) (declare (not safe)) - (cons '%#ref __tmp137285))) + (cons '%#ref __tmp137289))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp137278 - (let ((__tmp137282 - (let ((__tmp137283 + (__tmp137282 + (let ((__tmp137286 + (let ((__tmp137287 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id135989_ '())))) + (cons _id135993_ '())))) (declare (not safe)) - (cons '%#quote __tmp137283))) - (__tmp137279 - (let ((__tmp137280 - (let ((__tmp137281 + (cons '%#quote __tmp137287))) + (__tmp137283 + (let ((__tmp137284 + (let ((__tmp137285 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp137281)))) + (cons '%#quote __tmp137285)))) (declare (not safe)) - (cons __tmp137280 '())))) + (cons __tmp137284 '())))) (declare (not safe)) - (cons __tmp137282 __tmp137279)))) + (cons __tmp137286 __tmp137283)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137284 - __tmp137278)))) + (cons __tmp137288 + __tmp137282)))) (declare (not safe)) - (cons __tmp137286 __tmp137277)))) + (cons __tmp137290 __tmp137281)))) (declare (not safe)) - (cons '%#call __tmp137276)))) + (cons '%#call __tmp137280)))) (declare (not safe)) - (cons __tmp137275 '())))) + (cons __tmp137279 '())))) (declare (not safe)) - (cons __tmp137288 __tmp137274)))) + (cons __tmp137292 __tmp137278)))) (declare (not safe)) - (cons __tmp137273 '()))) + (cons __tmp137277 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp137253 - (let ((__tmp137254 - (let ((__tmp137255 + (__tmp137257 + (let ((__tmp137258 + (let ((__tmp137259 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137270 - (let ((__tmp137271 + (let ((__tmp137274 + (let ((__tmp137275 (let () (declare (not safe)) - (cons _$tmp135992_ '())))) + (cons _$tmp135996_ '())))) (declare (not safe)) - (cons '%#ref __tmp137271))) - (__tmp137256 - (let ((__tmp137268 - (let ((__tmp137269 + (cons '%#ref __tmp137275))) + (__tmp137260 + (let ((__tmp137272 + (let ((__tmp137273 (let () (declare (not safe)) - (cons _$tmp135992_ '())))) + (cons _$tmp135996_ '())))) (declare (not safe)) - (cons '%#ref __tmp137269))) - (__tmp137257 - (let ((__tmp137258 - (let ((__tmp137259 - (let ((__tmp137266 - (let ((__tmp137267 + (cons '%#ref __tmp137273))) + (__tmp137261 + (let ((__tmp137262 + (let ((__tmp137263 + (let ((__tmp137270 + (let ((__tmp137271 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp137267))) - (__tmp137260 - (let ((__tmp137264 - (let ((__tmp137265 + (cons '%#ref __tmp137271))) + (__tmp137264 + (let ((__tmp137268 + (let ((__tmp137269 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp137265))) - (__tmp137261 - (let ((__tmp137262 - (let ((__tmp137263 + (cons '%#quote __tmp137269))) + (__tmp137265 + (let ((__tmp137266 + (let ((__tmp137267 (let () (declare (not safe)) - (cons _id135989_ '())))) + (cons _id135993_ '())))) (declare (not safe)) - (cons '%#quote __tmp137263)))) + (cons '%#quote __tmp137267)))) (declare (not safe)) - (cons __tmp137262 '())))) + (cons __tmp137266 '())))) (declare (not safe)) - (cons __tmp137264 __tmp137261)))) + (cons __tmp137268 __tmp137265)))) (declare (not safe)) - (cons __tmp137266 __tmp137260)))) + (cons __tmp137270 __tmp137264)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp137259)))) + (cons '%#call __tmp137263)))) (declare (not safe)) - (cons __tmp137258 '())))) + (cons __tmp137262 '())))) (declare (not safe)) - (cons __tmp137268 __tmp137257)))) + (cons __tmp137272 __tmp137261)))) (declare (not safe)) - (cons __tmp137270 __tmp137256)))) + (cons __tmp137274 __tmp137260)))) (declare (not safe)) - (cons '%#if __tmp137255)))) + (cons '%#if __tmp137259)))) (declare (not safe)) - (cons __tmp137254 '())))) + (cons __tmp137258 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137272 - __tmp137253)))) + (cons __tmp137276 + __tmp137257)))) (declare (not safe)) - (cons '%#let-values __tmp137252)))) + (cons '%#let-values __tmp137256)))) (declare (not safe)) - (cons __tmp137251 '())))) + (cons __tmp137255 '())))) (declare (not safe)) - (cons '() __tmp137250)))) + (cons '() __tmp137254)))) (declare (not safe)) - (cons '%#lambda __tmp137249)))) + (cons '%#lambda __tmp137253)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137248 '())))) + (cons __tmp137252 '())))) (declare (not safe)) - (cons __tmp137289 __tmp137247)))) + (cons __tmp137293 __tmp137251)))) (declare (not safe)) - (cons '%#call __tmp137246)))) + (cons '%#call __tmp137250)))) (declare (not safe)) - (cons __tmp137245 '())))) + (cons __tmp137249 '())))) (declare (not safe)) - (cons __tmp137291 __tmp137244))))) - (_generate-slot-bind133209_ - (lambda (_$klass135981_ _id135982_ _$id135983_) - (let ((_$tmp135985_ - (let ((__tmp137292 (gensym '__slot))) + (cons __tmp137295 __tmp137248))))) + (_generate-slot-bind133213_ + (lambda (_$klass135985_ _id135986_ _$id135987_) + (let ((_$tmp135989_ + (let ((__tmp137296 (gensym '__slot))) (declare (not safe)) - (make-symbol__0 __tmp137292)))) - (let ((__tmp137329 + (make-symbol__0 __tmp137296)))) + (let ((__tmp137333 (let () (declare (not safe)) - (cons _$id135983_ '()))) - (__tmp137293 - (let ((__tmp137294 - (let ((__tmp137295 - (let ((__tmp137315 - (let ((__tmp137316 - (let ((__tmp137328 + (cons _$id135987_ '()))) + (__tmp137297 + (let ((__tmp137298 + (let ((__tmp137299 + (let ((__tmp137319 + (let ((__tmp137320 + (let ((__tmp137332 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp135985_ '()))) - (__tmp137317 - (let ((__tmp137318 - (let ((__tmp137319 - (let ((__tmp137326 - (let ((__tmp137327 + (cons _$tmp135989_ '()))) + (__tmp137321 + (let ((__tmp137322 + (let ((__tmp137323 + (let ((__tmp137330 + (let ((__tmp137331 (let () (declare (not safe)) (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp137327))) - (__tmp137320 - (let ((__tmp137324 - (let ((__tmp137325 + (cons '%#ref __tmp137331))) + (__tmp137324 + (let ((__tmp137328 + (let ((__tmp137329 (let () (declare (not safe)) - (cons _$klass135981_ + (cons _$klass135985_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp137325))) + (cons '%#ref __tmp137329))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp137321 - (let ((__tmp137322 - (let ((__tmp137323 + (__tmp137325 + (let ((__tmp137326 + (let ((__tmp137327 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id135982_ '())))) + (let () (declare (not safe)) (cons _id135986_ '())))) (declare (not safe)) - (cons '%#quote __tmp137323)))) + (cons '%#quote __tmp137327)))) (declare (not safe)) - (cons __tmp137322 '())))) + (cons __tmp137326 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137324 - __tmp137321)))) + (cons __tmp137328 + __tmp137325)))) (declare (not safe)) - (cons __tmp137326 __tmp137320)))) + (cons __tmp137330 __tmp137324)))) (declare (not safe)) - (cons '%#call __tmp137319)))) + (cons '%#call __tmp137323)))) (declare (not safe)) - (cons __tmp137318 '())))) + (cons __tmp137322 '())))) (declare (not safe)) - (cons __tmp137328 __tmp137317)))) + (cons __tmp137332 __tmp137321)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137316 '()))) - (__tmp137296 - (let ((__tmp137297 - (let ((__tmp137298 - (let ((__tmp137313 + (cons __tmp137320 '()))) + (__tmp137300 + (let ((__tmp137301 + (let ((__tmp137302 + (let ((__tmp137317 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137314 + (let ((__tmp137318 (let () (declare (not safe)) - (cons _$tmp135985_ '())))) + (cons _$tmp135989_ '())))) (declare (not safe)) - (cons '%#ref __tmp137314))) - (__tmp137299 - (let ((__tmp137311 - (let ((__tmp137312 + (cons '%#ref __tmp137318))) + (__tmp137303 + (let ((__tmp137315 + (let ((__tmp137316 (let () (declare (not safe)) - (cons _$tmp135985_ '())))) + (cons _$tmp135989_ '())))) (declare (not safe)) - (cons '%#ref __tmp137312))) - (__tmp137300 - (let ((__tmp137301 - (let ((__tmp137302 - (let ((__tmp137309 - (let ((__tmp137310 + (cons '%#ref __tmp137316))) + (__tmp137304 + (let ((__tmp137305 + (let ((__tmp137306 + (let ((__tmp137313 + (let ((__tmp137314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp137310))) - (__tmp137303 - (let ((__tmp137307 - (let ((__tmp137308 + (cons '%#ref __tmp137314))) + (__tmp137307 + (let ((__tmp137311 + (let ((__tmp137312 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp137308))) - (__tmp137304 - (let ((__tmp137305 - (let ((__tmp137306 + (cons '%#quote __tmp137312))) + (__tmp137308 + (let ((__tmp137309 + (let ((__tmp137310 (let () (declare (not safe)) - (cons _id135982_ '())))) + (cons _id135986_ '())))) (declare (not safe)) - (cons '%#quote __tmp137306)))) + (cons '%#quote __tmp137310)))) (declare (not safe)) - (cons __tmp137305 '())))) + (cons __tmp137309 '())))) (declare (not safe)) - (cons __tmp137307 __tmp137304)))) + (cons __tmp137311 __tmp137308)))) (declare (not safe)) - (cons __tmp137309 __tmp137303)))) + (cons __tmp137313 __tmp137307)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp137302)))) + (cons '%#call __tmp137306)))) (declare (not safe)) - (cons __tmp137301 '())))) + (cons __tmp137305 '())))) (declare (not safe)) - (cons __tmp137311 __tmp137300)))) + (cons __tmp137315 __tmp137304)))) (declare (not safe)) - (cons __tmp137313 __tmp137299)))) + (cons __tmp137317 __tmp137303)))) (declare (not safe)) - (cons '%#if __tmp137298)))) + (cons '%#if __tmp137302)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137297 '())))) + (cons __tmp137301 '())))) (declare (not safe)) - (cons __tmp137315 __tmp137296)))) + (cons __tmp137319 __tmp137300)))) (declare (not safe)) - (cons '%#let-values __tmp137295)))) + (cons '%#let-values __tmp137299)))) (declare (not safe)) - (cons __tmp137294 '())))) + (cons __tmp137298 '())))) (declare (not safe)) - (cons __tmp137329 __tmp137293))))) - (_generate-specializer-impl133210_ - (lambda (_$klass135975_ - _$method-table135976_ - _methods-bind135977_ - _slots-bind135978_ - _specializer-impl135979_) - (let ((__tmp137330 - (let ((__tmp137331 - (let ((__tmp137337 - (let ((__tmp137338 + (cons __tmp137333 __tmp137297))))) + (_generate-specializer-impl133214_ + (lambda (_$klass135979_ + _$method-table135980_ + _methods-bind135981_ + _slots-bind135982_ + _specializer-impl135983_) + (let ((__tmp137334 + (let ((__tmp137335 + (let ((__tmp137341 + (let ((__tmp137342 (let () (declare (not safe)) - (cons _$method-table135976_ + (cons _$method-table135980_ '())))) (declare (not safe)) - (cons _$klass135975_ __tmp137338))) - (__tmp137332 - (let ((__tmp137333 - (let ((__tmp137334 - (let ((__tmp137336 + (cons _$klass135979_ __tmp137342))) + (__tmp137336 + (let ((__tmp137337 + (let ((__tmp137338 + (let ((__tmp137340 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (foldr1 cons _slots-bind135978_ _methods-bind135977_))) - (__tmp137335 + (foldr1 cons _slots-bind135982_ _methods-bind135981_))) + (__tmp137339 (let () (declare (not safe)) - (cons _specializer-impl135979_ '())))) + (cons _specializer-impl135983_ '())))) (declare (not safe)) - (cons __tmp137336 __tmp137335)))) + (cons __tmp137340 __tmp137339)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp137334)))) + __tmp137338)))) (declare (not safe)) - (cons __tmp137333 '())))) + (cons __tmp137337 '())))) (declare (not safe)) - (cons __tmp137337 __tmp137332)))) + (cons __tmp137341 __tmp137336)))) (declare (not safe)) - (cons '%#lambda __tmp137331)))) + (cons '%#lambda __tmp137335)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137330 _stx133206_)))) - (_generate-specializer-def133211_ - (lambda (_id135971_ - _specializer-id135972_ - _specializer-impl135973_) - (let ((__tmp137339 - (let ((__tmp137340 - (let ((__tmp137341 - (let ((__tmp137354 - (let ((__tmp137355 - (let ((__tmp137356 - (let ((__tmp137358 + (gxc#xform-wrap-source __tmp137334 _stx133210_)))) + (_generate-specializer-def133215_ + (lambda (_id135975_ + _specializer-id135976_ + _specializer-impl135977_) + (let ((__tmp137343 + (let ((__tmp137344 + (let ((__tmp137345 + (let ((__tmp137358 + (let ((__tmp137359 + (let ((__tmp137360 + (let ((__tmp137362 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id135972_ '()))) - (__tmp137357 + (cons _specializer-id135976_ '()))) + (__tmp137361 (let () (declare (not safe)) - (cons _specializer-impl135973_ '())))) + (cons _specializer-impl135977_ '())))) (declare (not safe)) - (cons __tmp137358 __tmp137357)))) + (cons __tmp137362 __tmp137361)))) (declare (not safe)) - (cons '%#define-values __tmp137356)))) + (cons '%#define-values __tmp137360)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp137355 - _stx133206_))) - (__tmp137342 - (let ((__tmp137343 - (let ((__tmp137344 - (let ((__tmp137345 + __tmp137359 + _stx133210_))) + (__tmp137346 + (let ((__tmp137347 + (let ((__tmp137348 + (let ((__tmp137349 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137352 - (let ((__tmp137353 + (let ((__tmp137356 + (let ((__tmp137357 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp137353))) - (__tmp137346 - (let ((__tmp137350 - (let ((__tmp137351 + (cons '%#ref __tmp137357))) + (__tmp137350 + (let ((__tmp137354 + (let ((__tmp137355 (let () (declare (not safe)) - (cons _id135971_ '())))) + (cons _id135975_ '())))) (declare (not safe)) - (cons '%#ref __tmp137351))) - (__tmp137347 - (let ((__tmp137348 - (let ((__tmp137349 + (cons '%#ref __tmp137355))) + (__tmp137351 + (let ((__tmp137352 + (let ((__tmp137353 (let () (declare (not safe)) - (cons _specializer-id135972_ + (cons _specializer-id135976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp137349)))) + __tmp137353)))) (declare (not safe)) - (cons __tmp137348 '())))) + (cons __tmp137352 '())))) (declare (not safe)) - (cons __tmp137350 __tmp137347)))) + (cons __tmp137354 __tmp137351)))) (declare (not safe)) - (cons __tmp137352 __tmp137346)))) + (cons __tmp137356 __tmp137350)))) (declare (not safe)) - (cons '%#call __tmp137345)))) + (cons '%#call __tmp137349)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137344 _stx133206_)))) + (gxc#xform-wrap-source __tmp137348 _stx133210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137343 '())))) + (cons __tmp137347 '())))) (declare (not safe)) - (cons __tmp137354 __tmp137342)))) + (cons __tmp137358 __tmp137346)))) (declare (not safe)) - (cons _stx133206_ __tmp137341)))) + (cons _stx133210_ __tmp137345)))) (declare (not safe)) - (cons '%#begin __tmp137340)))) + (cons '%#begin __tmp137344)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137339 _stx133206_))))) - (let* ((___stx136184136185_ _stx133206_) - (_g133214133234_ + (gxc#xform-wrap-source __tmp137343 _stx133210_))))) + (let* ((___stx136188136189_ _stx133210_) + (_g133218133238_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136184136185_))))) - (let ((___kont136186136187_ - (lambda (_L133278_ _L133279_) - (let ((_method-calls133298_ + ___stx136188136189_))))) + (let ((___kont136190136191_ + (lambda (_L133282_ _L133283_) + (let ((_method-calls133302_ (let () (declare (not safe)) (make-hash-table-eq))) - (_slot-refs133299_ + (_slot-refs133303_ (let () (declare (not safe)) (make-hash-table-eq))) - (_empty133300_ + (_empty133304_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_no-specializer?133302_ + (letrec ((_no-specializer?133306_ (lambda () - (if (let ((__tmp137360 + (if (let ((__tmp137364 (let () (declare (not safe)) (hash-length - _method-calls133298_)))) + _method-calls133302_)))) (declare (not safe)) - (fxzero? __tmp137360)) - (let ((__tmp137359 + (fxzero? __tmp137364)) + (let ((__tmp137363 (let () (declare (not safe)) (hash-length - _slot-refs133299_)))) + _slot-refs133303_)))) (declare (not safe)) - (fxzero? __tmp137359)) + (fxzero? __tmp137363)) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L133278_)) - (let* ((___stx136098136099_ _L133278_) - (_g133689133707_ + (gxc#lambda-expr? _L133282_)) + (let* ((___stx136102136103_ _L133282_) + (_g133693133711_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136098136099_))))) - (let ((___kont136100136101_ - (lambda (_L133743_ _L133744_ _L133745_) + ___stx136102136103_))))) + (let ((___kont136104136105_ + (lambda (_L133747_ _L133748_ _L133749_) (for-each - (lambda (_g133760133762_) + (lambda (_g133764133766_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133760133762_ + _g133764133766_ 'receiver: - _L133745_ + _L133749_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L133743_) + _slot-refs133303_))) + _L133747_) (if (let () (declare (not safe)) - (_no-specializer?133302_)) - _stx133206_ - (let* ((_specializer-id133771_ - (let* ((_id133765_ - (let ((__tmp137482 + (_no-specializer?133306_)) + _stx133210_ + (let* ((_specializer-id133775_ + (let* ((_id133769_ + (let ((__tmp137486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L133279_)))) + (let () (declare (not safe)) (gx#stx-e _L133283_)))) (declare (not safe)) - (make-symbol__1 __tmp137482 '"::specialize"))) - (_specializer-id133768_ - (let ((__tmp137483 + (make-symbol__1 __tmp137486 '"::specialize"))) + (_specializer-id133772_ + (let ((__tmp137487 (let () (declare (not safe)) - (gx#stx-source _stx133206_)))) + (gx#stx-source _stx133210_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id133765_ __tmp137483)))) + (gx#core-quote-syntax__1 _id133769_ __tmp137487)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id133768_)) - _specializer-id133768_)) + (gx#core-bind-runtime!__0 _specializer-id133772_)) + _specializer-id133772_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass133773_ - (let ((__tmp137484 + (_$klass133777_ + (let ((__tmp137488 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp137484))) - (_$method-table133775_ - (let ((__tmp137485 + __tmp137488))) + (_$method-table133779_ + (let ((__tmp137489 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp137485))) - (_methods133777_ + __tmp137489))) + (_methods133781_ (let () (declare (not safe)) (hash-keys - _method-calls133298_))) - (_$methods133781_ - (map (lambda (_id133779_) - (let ((__tmp137486 + _method-calls133302_))) + (_$methods133785_ + (map (lambda (_id133783_) + (let ((__tmp137490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id133779_))) + (gensym _id133783_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137486))) - _methods133777_)) + (make-symbol__1 '"__" __tmp137490))) + _methods133781_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g137487_ + (_g137491_ (for-each - (lambda (_g133782133785_ - _g133783133787_) + (lambda (_g133786133789_ + _g133787133791_) (let () (declare (not safe)) (hash-put! - _method-calls133298_ - _g133782133785_ - _g133783133787_))) - _methods133777_ - _$methods133781_)) - (_methods-bind133798_ - (map (lambda (_g133790133793_ + _method-calls133302_ + _g133786133789_ + _g133787133791_))) + _methods133781_ + _$methods133785_)) + (_methods-bind133802_ + (map (lambda (_g133794133797_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g133791133795_) + _g133795133799_) (let () (declare (not safe)) - (_generate-method-bind133208_ - _$klass133773_ - _$method-table133775_ - _g133790133793_ - _g133791133795_))) - _methods133777_ - _$methods133781_)) + (_generate-method-bind133212_ + _$klass133777_ + _$method-table133779_ + _g133794133797_ + _g133795133799_))) + _methods133781_ + _$methods133785_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots133800_ + (_slots133804_ (let () (declare (not safe)) (hash-keys - _slot-refs133299_))) - (_$slots133804_ - (map (lambda (_id133802_) - (let ((__tmp137488 + _slot-refs133303_))) + (_$slots133808_ + (map (lambda (_id133806_) + (let ((__tmp137492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id133802_))) + (gensym _id133806_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137488))) - _slots133800_)) + (make-symbol__1 '"__" __tmp137492))) + _slots133804_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g137489_ + (_g137493_ (for-each - (lambda (_g133805133808_ - _g133806133810_) + (lambda (_g133809133812_ + _g133810133814_) (let () (declare (not safe)) (hash-put! - _slot-refs133299_ - _g133805133808_ - _g133806133810_))) - _slots133800_ - _$slots133804_)) - (_slots-bind133821_ - (map (lambda (_g133813133816_ + _slot-refs133303_ + _g133809133812_ + _g133810133814_))) + _slots133804_ + _$slots133808_)) + (_slots-bind133825_ + (map (lambda (_g133817133820_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g133814133818_) + _g133818133822_) (let () (declare (not safe)) - (_generate-slot-bind133209_ - _$klass133773_ - _g133813133816_ - _g133814133818_))) - _slots133800_ - _$slots133804_)) + (_generate-slot-bind133213_ + _$klass133777_ + _g133817133820_ + _g133818133822_))) + _slots133804_ + _$slots133808_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-body133827_ - (map (lambda (_g133822133824_) + (_specializer-body133831_ + (map (lambda (_g133826133828_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g133822133824_ + _g133826133828_ 'receiver: - _L133745_ + _L133749_ 'klass: - _$klass133773_ + _$klass133777_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L133743_)) - (_specializer-impl133829_ - (let ((__tmp137490 - (let ((__tmp137491 + _slot-refs133303_))) + _L133747_)) + (_specializer-impl133833_ + (let ((__tmp137494 + (let ((__tmp137495 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137492 + (let ((__tmp137496 (let () (declare (not safe)) - (cons _L133745_ _L133744_)))) + (cons _L133749_ _L133748_)))) (declare (not safe)) - (cons __tmp137492 _specializer-body133827_)))) + (cons __tmp137496 _specializer-body133831_)))) (declare (not safe)) - (cons '%#lambda __tmp137491)))) + (cons '%#lambda __tmp137495)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137490 _stx133206_))) + (gxc#xform-wrap-source __tmp137494 _stx133210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl133831_ + (_specializer-impl133835_ (let () (declare (not safe)) - (_generate-specializer-impl133210_ - _$klass133773_ - _$method-table133775_ - _methods-bind133798_ - _slots-bind133821_ - _specializer-impl133829_)))) - (let ((__tmp137494 + (_generate-specializer-impl133214_ + _$klass133777_ + _$method-table133779_ + _methods-bind133802_ + _slots-bind133825_ + _specializer-impl133833_)))) + (let ((__tmp137498 (let () (declare (not safe)) - (gx#stx-e _L133279_))) - (__tmp137493 + (gx#stx-e _L133283_))) + (__tmp137497 (let () (declare (not safe)) (gx#stx-e - _specializer-id133771_)))) + _specializer-id133775_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137494 + __tmp137498 '" => " - __tmp137493)) + __tmp137497)) (let () (declare (not safe)) - (_generate-specializer-def133211_ - _L133279_ - _specializer-id133771_ - _specializer-impl133831_)))))) - (___kont136102136103_ - (lambda () _stx133206_))) + (_generate-specializer-def133215_ + _L133283_ + _specializer-id133775_ + _specializer-impl133835_)))))) + (___kont136106136107_ + (lambda () _stx133210_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136098136099_)) - (let ((_e133696133719_ + (gx#stx-pair? ___stx136102136103_)) + (let ((_e133700133723_ (let () (declare (not safe)) - (gx#stx-e ___stx136098136099_)))) - (let ((_tl133694133724_ + (gx#stx-e ___stx136102136103_)))) + (let ((_tl133698133728_ (let () (declare (not safe)) - (##cdr _e133696133719_))) - (_hd133695133722_ + (##cdr _e133700133723_))) + (_hd133699133726_ (let () (declare (not safe)) - (##car _e133696133719_)))) + (##car _e133700133723_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133694133724_)) - (let ((_e133699133727_ + (gx#stx-pair? _tl133698133728_)) + (let ((_e133703133731_ (let () (declare (not safe)) (gx#stx-e - _tl133694133724_)))) - (let ((_tl133697133732_ + _tl133698133728_)))) + (let ((_tl133701133736_ (let () (declare (not safe)) - (##cdr _e133699133727_))) - (_hd133698133730_ + (##cdr _e133703133731_))) + (_hd133702133734_ (let () (declare (not safe)) - (##car _e133699133727_)))) + (##car _e133703133731_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd133698133730_)) - (let ((_e133702133735_ + _hd133702133734_)) + (let ((_e133706133739_ (let () (declare (not safe)) (gx#stx-e - _hd133698133730_)))) - (let ((_tl133700133740_ + _hd133702133734_)))) + (let ((_tl133704133744_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e133702133735_))) - (_hd133701133738_ - (let () (declare (not safe)) (##car _e133702133735_)))) - (___kont136100136101_ - _tl133697133732_ - _tl133700133740_ - _hd133701133738_))) + (##cdr _e133706133739_))) + (_hd133705133742_ + (let () (declare (not safe)) (##car _e133706133739_)))) + (___kont136104136105_ + _tl133701133736_ + _tl133704133744_ + _hd133705133742_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136102136103_)))) - (___kont136102136103_)))) - (___kont136102136103_)))) + (___kont136106136107_)))) + (___kont136106136107_)))) + (___kont136106136107_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L133278_)) - (let* ((_g133837133856_ - (lambda (_g133838133853_) + (gxc#case-lambda-expr? _L133282_)) + (let* ((_g133841133860_ + (lambda (_g133842133857_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133838133853_)))) - (_g133836134139_ - (lambda (_g133838133859_) + _g133842133857_)))) + (_g133840134143_ + (lambda (_g133842133863_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133838133859_)) - (let ((_e133842133861_ + _g133842133863_)) + (let ((_e133846133865_ (let () (declare (not safe)) (gx#stx-e - _g133838133859_)))) - (let ((_hd133841133864_ + _g133842133863_)))) + (let ((_hd133845133868_ (let () (declare (not safe)) - (##car _e133842133861_))) - (_tl133840133866_ + (##car _e133846133865_))) + (_tl133844133870_ (let () (declare (not safe)) - (##cdr _e133842133861_)))) + (##cdr _e133846133865_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl133840133866_)) - (let ((_g137465_ + _tl133844133870_)) + (let ((_g137469_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl133840133866_ '0)))) + (gx#syntax-split-splice _tl133844133870_ '0)))) (begin - (let ((_g137466_ + (let ((_g137470_ (let () (declare (not safe)) - (if (##values? _g137465_) - (##vector-length _g137465_) + (if (##values? _g137469_) + (##vector-length _g137469_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137466_ 2))) - (error "Context expects 2 values" _g137466_))) - (let ((_target133843133869_ + (##fx= _g137470_ 2))) + (error "Context expects 2 values" _g137470_))) + (let ((_target133847133873_ (let () (declare (not safe)) - (##vector-ref _g137465_ 0))) - (_tl133845133871_ + (##vector-ref _g137469_ 0))) + (_tl133849133875_ (let () (declare (not safe)) - (##vector-ref _g137465_ 1)))) + (##vector-ref _g137469_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133845133871_)) - (letrec ((_loop133846133874_ - (lambda (_hd133844133877_ - _clause133850133879_) + (gx#stx-null? _tl133849133875_)) + (letrec ((_loop133850133878_ + (lambda (_hd133848133881_ + _clause133854133883_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133844133877_)) - (let ((_e133847133882_ + (gx#stx-pair? _hd133848133881_)) + (let ((_e133851133886_ (let () (declare (not safe)) (gx#stx-e - _hd133844133877_)))) - (let ((_lp-hd133848133885_ + _hd133848133881_)))) + (let ((_lp-hd133852133889_ (let () (declare (not safe)) - (##car _e133847133882_))) - (_lp-tl133849133887_ + (##car _e133851133886_))) + (_lp-tl133853133891_ (let () (declare (not safe)) - (##cdr _e133847133882_)))) - (let ((__tmp137481 + (##cdr _e133851133886_)))) + (let ((__tmp137485 (let () (declare (not safe)) - (cons _lp-hd133848133885_ - _clause133850133879_)))) + (cons _lp-hd133852133889_ + _clause133854133883_)))) (declare (not safe)) - (_loop133846133874_ - _lp-tl133849133887_ - __tmp137481)))) - (let ((_clause133851133890_ - (reverse _clause133850133879_))) - ((lambda (_L133893_) + (_loop133850133878_ + _lp-tl133853133891_ + __tmp137485)))) + (let ((_clause133855133894_ + (reverse _clause133854133883_))) + ((lambda (_L133897_) (for-each - (lambda (_clause133906_) - (let* ((___stx136124136125_ - _clause133906_) - (_g133909133924_ + (lambda (_clause133910_) + (let* ((___stx136128136129_ + _clause133910_) + (_g133913133928_ (lambda () (let () (declare @@ -1452,7854 +1452,7854 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136124136125_))))) - (let ((___kont136126136127_ - (lambda (_L133952_ + ___stx136128136129_))))) + (let ((___kont136130136131_ + (lambda (_L133956_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L133953_ - _L133954_) + _L133957_ + _L133958_) (for-each - (lambda (_g133969133971_) + (lambda (_g133973133975_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133969133971_ + _g133973133975_ 'receiver: - _L133954_ + _L133958_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L133952_))) - (___kont136128136129_ (lambda () '#!void))) + _slot-refs133303_))) + _L133956_))) + (___kont136132136133_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx136124136125_)) - (let ((_e133916133936_ + ___stx136128136129_)) + (let ((_e133920133940_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx136124136125_)))) - (let ((_tl133914133941_ + (gx#stx-e ___stx136128136129_)))) + (let ((_tl133918133945_ (let () (declare (not safe)) - (##cdr _e133916133936_))) - (_hd133915133939_ + (##cdr _e133920133940_))) + (_hd133919133943_ (let () (declare (not safe)) - (##car _e133916133936_)))) + (##car _e133920133940_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133915133939_)) - (let ((_e133919133944_ + (gx#stx-pair? _hd133919133943_)) + (let ((_e133923133948_ (let () (declare (not safe)) - (gx#stx-e _hd133915133939_)))) - (let ((_tl133917133949_ + (gx#stx-e _hd133919133943_)))) + (let ((_tl133921133953_ (let () (declare (not safe)) - (##cdr _e133919133944_))) - (_hd133918133947_ + (##cdr _e133923133948_))) + (_hd133922133951_ (let () (declare (not safe)) - (##car _e133919133944_)))) - (___kont136126136127_ - _tl133914133941_ - _tl133917133949_ - _hd133918133947_))) - (___kont136128136129_)))) - (___kont136128136129_))))) + (##car _e133923133948_)))) + (___kont136130136131_ + _tl133918133945_ + _tl133921133953_ + _hd133922133951_))) + (___kont136132136133_)))) + (___kont136132136133_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp137467 - (lambda (_g133976133979_ - _g133977133981_) + (let ((__tmp137471 + (lambda (_g133980133983_ + _g133981133985_) (let () (declare (not safe)) - (cons _g133976133979_ - _g133977133981_))))) + (cons _g133980133983_ + _g133981133985_))))) (declare (not safe)) - (foldr1 __tmp137467 + (foldr1 __tmp137471 '() - _L133893_))) + _L133897_))) (if (let () (declare (not safe)) - (_no-specializer?133302_)) - _stx133206_ - (let* ((_specializer-id133990_ - (let* ((_id133984_ + (_no-specializer?133306_)) + _stx133210_ + (let* ((_specializer-id133994_ + (let* ((_id133988_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137468 + (let ((__tmp137472 (let () (declare (not safe)) - (gx#stx-e _L133279_)))) + (gx#stx-e _L133283_)))) (declare (not safe)) - (make-symbol__1 __tmp137468 '"::specialize"))) - (_specializer-id133987_ - (let ((__tmp137469 + (make-symbol__1 __tmp137472 '"::specialize"))) + (_specializer-id133991_ + (let ((__tmp137473 (let () (declare (not safe)) - (gx#stx-source _stx133206_)))) + (gx#stx-source _stx133210_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id133984_ __tmp137469)))) + (gx#core-quote-syntax__1 _id133988_ __tmp137473)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id133987_)) - _specializer-id133987_)) - (_$klass133992_ - (let ((__tmp137470 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id133991_)) + _specializer-id133991_)) + (_$klass133996_ + (let ((__tmp137474 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp137470))) - (_$method-table133994_ - (let ((__tmp137471 (gensym '__method-table))) + (make-symbol__0 __tmp137474))) + (_$method-table133998_ + (let ((__tmp137475 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp137471))) - (_methods133996_ + (make-symbol__0 __tmp137475))) + (_methods134000_ (let () (declare (not safe)) - (hash-keys _method-calls133298_))) - (_$methods134000_ - (map (lambda (_id133998_) - (let ((__tmp137472 (gensym _id133998_))) + (hash-keys _method-calls133302_))) + (_$methods134004_ + (map (lambda (_id134002_) + (let ((__tmp137476 (gensym _id134002_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137472))) - _methods133996_)) - (_g137473_ + (make-symbol__1 '"__" __tmp137476))) + _methods134000_)) + (_g137477_ (for-each - (lambda (_g134001134004_ _g134002134006_) + (lambda (_g134005134008_ _g134006134010_) (let () (declare (not safe)) (hash-put! - _method-calls133298_ - _g134001134004_ - _g134002134006_))) - _methods133996_ - _$methods134000_)) - (_methods-bind134017_ - (map (lambda (_g134009134012_ _g134010134014_) + _method-calls133302_ + _g134005134008_ + _g134006134010_))) + _methods134000_ + _$methods134004_)) + (_methods-bind134021_ + (map (lambda (_g134013134016_ _g134014134018_) (let () (declare (not safe)) - (_generate-method-bind133208_ - _$klass133992_ - _$method-table133994_ - _g134009134012_ - _g134010134014_))) - _methods133996_ - _$methods134000_)) - (_slots134019_ - (let () (declare (not safe)) (hash-keys _slot-refs133299_))) - (_$slots134023_ - (map (lambda (_id134021_) - (let ((__tmp137474 (gensym _id134021_))) + (_generate-method-bind133212_ + _$klass133996_ + _$method-table133998_ + _g134013134016_ + _g134014134018_))) + _methods134000_ + _$methods134004_)) + (_slots134023_ + (let () (declare (not safe)) (hash-keys _slot-refs133303_))) + (_$slots134027_ + (map (lambda (_id134025_) + (let ((__tmp137478 (gensym _id134025_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137474))) - _slots134019_)) - (_g137475_ + (make-symbol__1 '"__" __tmp137478))) + _slots134023_)) + (_g137479_ (for-each - (lambda (_g134024134027_ _g134025134029_) + (lambda (_g134028134031_ _g134029134033_) (let () (declare (not safe)) (hash-put! - _slot-refs133299_ - _g134024134027_ - _g134025134029_))) - _slots134019_ - _$slots134023_)) - (_slots-bind134040_ - (map (lambda (_g134032134035_ _g134033134037_) + _slot-refs133303_ + _g134028134031_ + _g134029134033_))) + _slots134023_ + _$slots134027_)) + (_slots-bind134044_ + (map (lambda (_g134036134039_ _g134037134041_) (let () (declare (not safe)) - (_generate-slot-bind133209_ - _$klass133992_ - _g134032134035_ - _g134033134037_))) - _slots134019_ - _$slots134023_)) - (_specializer-clauses134132_ - (map (lambda (_clause134042_) - (let* ((___stx136144136145_ _clause134042_) - (_g134045134060_ + (_generate-slot-bind133213_ + _$klass133996_ + _g134036134039_ + _g134037134041_))) + _slots134023_ + _$slots134027_)) + (_specializer-clauses134136_ + (map (lambda (_clause134046_) + (let* ((___stx136148136149_ _clause134046_) + (_g134049134064_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136144136145_))))) - (let ((___kont136146136147_ - (lambda (_L134088_ _L134089_ _L134090_) - (let* ((_body134120_ - (map (lambda (_g134115134117_) + ___stx136148136149_))))) + (let ((___kont136150136151_ + (lambda (_L134092_ _L134093_ _L134094_) + (let* ((_body134124_ + (map (lambda (_g134119134121_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134115134117_ + _g134119134121_ 'receiver: - _L134090_ + _L134094_ 'klass: - _$klass133992_ + _$klass133996_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L134088_)) - (__tmp137476 + _slot-refs133303_))) + _L134092_)) + (__tmp137480 (let () (declare (not safe)) - (cons _L134090_ _L134089_)))) + (cons _L134094_ _L134093_)))) (declare (not safe)) - (cons __tmp137476 _body134120_)))) - (___kont136148136149_ - (lambda () _clause134042_))) + (cons __tmp137480 _body134124_)))) + (___kont136152136153_ + (lambda () _clause134046_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136144136145_)) - (let ((_e134052134072_ + (gx#stx-pair? ___stx136148136149_)) + (let ((_e134056134076_ (let () (declare (not safe)) - (gx#stx-e ___stx136144136145_)))) - (let ((_tl134050134077_ + (gx#stx-e ___stx136148136149_)))) + (let ((_tl134054134081_ (let () (declare (not safe)) - (##cdr _e134052134072_))) - (_hd134051134075_ + (##cdr _e134056134076_))) + (_hd134055134079_ (let () (declare (not safe)) - (##car _e134052134072_)))) + (##car _e134056134076_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134051134075_)) - (let ((_e134055134080_ + (gx#stx-pair? _hd134055134079_)) + (let ((_e134059134084_ (let () (declare (not safe)) (gx#stx-e - _hd134051134075_)))) - (let ((_tl134053134085_ + _hd134055134079_)))) + (let ((_tl134057134089_ (let () (declare (not safe)) - (##cdr _e134055134080_))) - (_hd134054134083_ + (##cdr _e134059134084_))) + (_hd134058134087_ (let () (declare (not safe)) - (##car _e134055134080_)))) - (___kont136146136147_ - _tl134050134077_ - _tl134053134085_ - _hd134054134083_))) - (___kont136148136149_)))) - (___kont136148136149_))))) - (let ((__tmp137477 - (lambda (_g134124134127_ _g134125134129_) + (##car _e134059134084_)))) + (___kont136150136151_ + _tl134054134081_ + _tl134057134089_ + _hd134058134087_))) + (___kont136152136153_)))) + (___kont136152136153_))))) + (let ((__tmp137481 + (lambda (_g134128134131_ _g134129134133_) (let () (declare (not safe)) - (cons _g134124134127_ _g134125134129_))))) + (cons _g134128134131_ _g134129134133_))))) (declare (not safe)) - (foldr1 __tmp137477 '() _L133893_)))) - (_specializer-impl134134_ - (let ((__tmp137478 + (foldr1 __tmp137481 '() _L133897_)))) + (_specializer-impl134138_ + (let ((__tmp137482 (let () (declare (not safe)) - (cons '%#case-lambda _specializer-clauses134132_)))) + (cons '%#case-lambda _specializer-clauses134136_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137478 _stx133206_))) - (_specializer-impl134136_ + (gxc#xform-wrap-source __tmp137482 _stx133210_))) + (_specializer-impl134140_ (let () (declare (not safe)) - (_generate-specializer-impl133210_ - _$klass133992_ - _$method-table133994_ - _methods-bind134017_ - _slots-bind134040_ - _specializer-impl134134_)))) + (_generate-specializer-impl133214_ + _$klass133996_ + _$method-table133998_ + _methods-bind134021_ + _slots-bind134044_ + _specializer-impl134138_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp137480 + (let ((__tmp137484 (let () (declare (not safe)) (gx#stx-e - _L133279_))) - (__tmp137479 + _L133283_))) + (__tmp137483 (let () (declare (not safe)) (gx#stx-e - _specializer-id133990_)))) + _specializer-id133994_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137480 + __tmp137484 '" => " - __tmp137479)) + __tmp137483)) (let () (declare (not safe)) - (_generate-specializer-def133211_ - _L133279_ - _specializer-id133990_ - _specializer-impl134136_))))) - _clause133851133890_)))))) + (_generate-specializer-def133215_ + _L133283_ + _specializer-id133994_ + _specializer-impl134140_))))) + _clause133855133894_)))))) (let () (declare (not safe)) - (_loop133846133874_ _target133843133869_ '()))) + (_loop133850133878_ _target133847133873_ '()))) (let () (declare (not safe)) - (_g133837133856_ _g133838133859_)))))) + (_g133841133860_ _g133842133863_)))))) (let () (declare (not safe)) - (_g133837133856_ _g133838133859_))))) + (_g133841133860_ _g133842133863_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133837133856_ - _g133838133859_)))))) + (_g133841133860_ + _g133842133863_)))))) (declare (not safe)) - (_g133836134139_ _L133278_)) + (_g133840134143_ _L133282_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L133278_)) - (let* ((_g134142134172_ - (lambda (_g134143134169_) + (gxc#opt-lambda-expr? _L133282_)) + (let* ((_g134146134176_ + (lambda (_g134147134173_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134143134169_)))) - (_g134141134777_ - (lambda (_g134143134175_) + _g134147134173_)))) + (_g134145134781_ + (lambda (_g134147134179_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134143134175_)) - (let ((_e134149134177_ + _g134147134179_)) + (let ((_e134153134181_ (let () (declare (not safe)) (gx#stx-e - _g134143134175_)))) - (let ((_hd134148134180_ + _g134147134179_)))) + (let ((_hd134152134184_ (let () (declare (not safe)) - (##car _e134149134177_))) - (_tl134147134182_ + (##car _e134153134181_))) + (_tl134151134186_ (let () (declare (not safe)) - (##cdr _e134149134177_)))) + (##cdr _e134153134181_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl134147134182_)) - (let ((_e134152134185_ + _tl134151134186_)) + (let ((_e134156134189_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl134147134182_)))) - (let ((_hd134151134188_ + (gx#stx-e _tl134151134186_)))) + (let ((_hd134155134192_ (let () (declare (not safe)) - (##car _e134152134185_))) - (_tl134150134190_ + (##car _e134156134189_))) + (_tl134154134194_ (let () (declare (not safe)) - (##cdr _e134152134185_)))) + (##cdr _e134156134189_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134151134188_)) - (let ((_e134155134193_ + (gx#stx-pair? _hd134155134192_)) + (let ((_e134159134197_ (let () (declare (not safe)) - (gx#stx-e _hd134151134188_)))) - (let ((_hd134154134196_ + (gx#stx-e _hd134155134192_)))) + (let ((_hd134158134200_ (let () (declare (not safe)) - (##car _e134155134193_))) - (_tl134153134198_ + (##car _e134159134197_))) + (_tl134157134202_ (let () (declare (not safe)) - (##cdr _e134155134193_)))) + (##cdr _e134159134197_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134154134196_)) - (let ((_e134158134201_ + (gx#stx-pair? _hd134158134200_)) + (let ((_e134162134205_ (let () (declare (not safe)) - (gx#stx-e _hd134154134196_)))) - (let ((_hd134157134204_ + (gx#stx-e _hd134158134200_)))) + (let ((_hd134161134208_ (let () (declare (not safe)) - (##car _e134158134201_))) - (_tl134156134206_ + (##car _e134162134205_))) + (_tl134160134210_ (let () (declare (not safe)) - (##cdr _e134158134201_)))) + (##cdr _e134162134205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134157134204_)) - (let ((_e134161134209_ + (gx#stx-pair? _hd134161134208_)) + (let ((_e134165134213_ (let () (declare (not safe)) (gx#stx-e - _hd134157134204_)))) - (let ((_hd134160134212_ + _hd134161134208_)))) + (let ((_hd134164134216_ (let () (declare (not safe)) - (##car _e134161134209_))) - (_tl134159134214_ + (##car _e134165134213_))) + (_tl134163134218_ (let () (declare (not safe)) - (##cdr _e134161134209_)))) + (##cdr _e134165134213_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl134159134214_)) + _tl134163134218_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl134156134206_)) - (let ((_e134164134217_ + _tl134160134210_)) + (let ((_e134168134221_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl134156134206_)))) - (let ((_hd134163134220_ - (let () (declare (not safe)) (##car _e134164134217_))) - (_tl134162134222_ - (let () (declare (not safe)) (##cdr _e134164134217_)))) + (gx#stx-e _tl134160134210_)))) + (let ((_hd134167134224_ + (let () (declare (not safe)) (##car _e134168134221_))) + (_tl134166134226_ + (let () (declare (not safe)) (##cdr _e134168134221_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134162134222_)) + (gx#stx-null? _tl134166134226_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl134153134198_)) + (gx#stx-null? _tl134157134202_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134150134190_)) - (let ((_e134167134225_ + (gx#stx-pair? _tl134154134194_)) + (let ((_e134171134229_ (let () (declare (not safe)) - (gx#stx-e _tl134150134190_)))) - (let ((_hd134166134228_ + (gx#stx-e _tl134154134194_)))) + (let ((_hd134170134232_ (let () (declare (not safe)) - (##car _e134167134225_))) - (_tl134165134230_ + (##car _e134171134229_))) + (_tl134169134234_ (let () (declare (not safe)) - (##cdr _e134167134225_)))) + (##cdr _e134171134229_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134165134230_)) - ((lambda (_L134233_ _L134234_ _L134235_) - (let* ((_g134258134276_ - (lambda (_g134259134273_) + (gx#stx-null? _tl134169134234_)) + ((lambda (_L134237_ _L134238_ _L134239_) + (let* ((_g134262134280_ + (lambda (_g134263134277_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134259134273_)))) - (_g134257134327_ - (lambda (_g134259134279_) + _g134263134277_)))) + (_g134261134331_ + (lambda (_g134263134283_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134259134279_)) - (let ((_e134265134281_ + _g134263134283_)) + (let ((_e134269134285_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g134259134279_)))) - (let ((_hd134264134284_ - (let () (declare (not safe)) (##car _e134265134281_))) - (_tl134263134286_ + (gx#stx-e _g134263134283_)))) + (let ((_hd134268134288_ + (let () (declare (not safe)) (##car _e134269134285_))) + (_tl134267134290_ (let () (declare (not safe)) - (##cdr _e134265134281_)))) + (##cdr _e134269134285_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134263134286_)) - (let ((_e134268134289_ + (gx#stx-pair? _tl134267134290_)) + (let ((_e134272134293_ (let () (declare (not safe)) - (gx#stx-e _tl134263134286_)))) - (let ((_hd134267134292_ + (gx#stx-e _tl134267134290_)))) + (let ((_hd134271134296_ (let () (declare (not safe)) - (##car _e134268134289_))) - (_tl134266134294_ + (##car _e134272134293_))) + (_tl134270134298_ (let () (declare (not safe)) - (##cdr _e134268134289_)))) + (##cdr _e134272134293_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134267134292_)) - (let ((_e134271134297_ + (gx#stx-pair? _hd134271134296_)) + (let ((_e134275134301_ (let () (declare (not safe)) - (gx#stx-e _hd134267134292_)))) - (let ((_hd134270134300_ + (gx#stx-e _hd134271134296_)))) + (let ((_hd134274134304_ (let () (declare (not safe)) - (##car _e134271134297_))) - (_tl134269134302_ + (##car _e134275134301_))) + (_tl134273134306_ (let () (declare (not safe)) - (##cdr _e134271134297_)))) - ((lambda (_L134305_ _L134306_ _L134307_) + (##cdr _e134275134301_)))) + ((lambda (_L134309_ _L134310_ _L134311_) (for-each - (lambda (_g134322134324_) + (lambda (_g134326134328_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g134322134324_ + _g134326134328_ 'receiver: - _L134307_ + _L134311_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L134305_)) - _tl134266134294_ - _tl134269134302_ - _hd134270134300_))) + _slot-refs133303_))) + _L134309_)) + _tl134270134298_ + _tl134273134306_ + _hd134274134304_))) (let () (declare (not safe)) - (_g134258134276_ _g134259134279_))))) + (_g134262134280_ _g134263134283_))))) (let () (declare (not safe)) - (_g134258134276_ _g134259134279_))))) + (_g134262134280_ _g134263134283_))))) (let () (declare (not safe)) - (_g134258134276_ _g134259134279_)))))) + (_g134262134280_ _g134263134283_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g134257134327_ _L134234_)) - (let* ((_g134330134349_ - (lambda (_g134331134346_) + (_g134261134331_ _L134238_)) + (let* ((_g134334134353_ + (lambda (_g134335134350_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134331134346_)))) - (_g134329134468_ - (lambda (_g134331134352_) + _g134335134350_)))) + (_g134333134472_ + (lambda (_g134335134356_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134331134352_)) - (let ((_e134335134354_ + _g134335134356_)) + (let ((_e134339134358_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g134331134352_)))) - (let ((_hd134334134357_ - (let () (declare (not safe)) (##car _e134335134354_))) - (_tl134333134359_ + (gx#stx-e _g134335134356_)))) + (let ((_hd134338134361_ + (let () (declare (not safe)) (##car _e134339134358_))) + (_tl134337134363_ (let () (declare (not safe)) - (##cdr _e134335134354_)))) + (##cdr _e134339134358_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl134333134359_)) - (let ((_g137435_ + (gx#stx-pair/null? _tl134337134363_)) + (let ((_g137439_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl134333134359_ + _tl134337134363_ '0)))) (begin - (let ((_g137436_ + (let ((_g137440_ (let () (declare (not safe)) - (if (##values? _g137435_) - (##vector-length _g137435_) + (if (##values? _g137439_) + (##vector-length _g137439_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137436_ 2))) + (##fx= _g137440_ 2))) (error "Context expects 2 values" - _g137436_))) - (let ((_target134336134362_ + _g137440_))) + (let ((_target134340134366_ (let () (declare (not safe)) - (##vector-ref _g137435_ 0))) - (_tl134338134364_ + (##vector-ref _g137439_ 0))) + (_tl134342134368_ (let () (declare (not safe)) - (##vector-ref _g137435_ 1)))) + (##vector-ref _g137439_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134338134364_)) - (letrec ((_loop134339134367_ - (lambda (_hd134337134370_ - _clause134343134372_) + (gx#stx-null? _tl134342134368_)) + (letrec ((_loop134343134371_ + (lambda (_hd134341134374_ + _clause134347134376_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134337134370_)) - (let ((_e134340134375_ + _hd134341134374_)) + (let ((_e134344134379_ (let () (declare (not safe)) (gx#stx-e - _hd134337134370_)))) - (let ((_lp-hd134341134378_ + _hd134341134374_)))) + (let ((_lp-hd134345134382_ (let () (declare (not safe)) - (##car _e134340134375_))) - (_lp-tl134342134380_ + (##car _e134344134379_))) + (_lp-tl134346134384_ (let () (declare (not safe)) - (##cdr _e134340134375_)))) - (let ((__tmp137438 + (##cdr _e134344134379_)))) + (let ((__tmp137442 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd134341134378_ _clause134343134372_)))) + (cons _lp-hd134345134382_ _clause134347134376_)))) (declare (not safe)) - (_loop134339134367_ _lp-tl134342134380_ __tmp137438)))) + (_loop134343134371_ _lp-tl134346134384_ __tmp137442)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause134344134383_ - (reverse _clause134343134372_))) - ((lambda (_L134386_) + (let ((_clause134348134387_ + (reverse _clause134347134376_))) + ((lambda (_L134390_) (for-each - (lambda (_clause134399_) - (let* ((_g134401134416_ + (lambda (_clause134403_) + (let* ((_g134405134420_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g134402134413_) + (lambda (_g134406134417_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134402134413_)))) - (_g134400134458_ - (lambda (_g134402134419_) + _g134406134417_)))) + (_g134404134462_ + (lambda (_g134406134423_) (if (let () (declare (not safe)) - (gx#stx-pair? _g134402134419_)) - (let ((_e134408134421_ + (gx#stx-pair? _g134406134423_)) + (let ((_e134412134425_ (let () (declare (not safe)) - (gx#stx-e _g134402134419_)))) - (let ((_hd134407134424_ + (gx#stx-e _g134406134423_)))) + (let ((_hd134411134428_ (let () (declare (not safe)) - (##car _e134408134421_))) - (_tl134406134426_ + (##car _e134412134425_))) + (_tl134410134430_ (let () (declare (not safe)) - (##cdr _e134408134421_)))) + (##cdr _e134412134425_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134407134424_)) - (let ((_e134411134429_ + (gx#stx-pair? _hd134411134428_)) + (let ((_e134415134433_ (let () (declare (not safe)) - (gx#stx-e _hd134407134424_)))) - (let ((_hd134410134432_ + (gx#stx-e _hd134411134428_)))) + (let ((_hd134414134436_ (let () (declare (not safe)) - (##car _e134411134429_))) - (_tl134409134434_ + (##car _e134415134433_))) + (_tl134413134438_ (let () (declare (not safe)) - (##cdr _e134411134429_)))) - ((lambda (_L134437_ - _L134438_ - _L134439_) + (##cdr _e134415134433_)))) + ((lambda (_L134441_ + _L134442_ + _L134443_) (for-each - (lambda (_g134453134455_) + (lambda (_g134457134459_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g134453134455_ + _g134457134459_ 'receiver: - _L134439_ + _L134443_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L134437_)) - _tl134406134426_ - _tl134409134434_ - _hd134410134432_))) + _slot-refs133303_))) + _L134441_)) + _tl134410134430_ + _tl134413134438_ + _hd134414134436_))) (let () (declare (not safe)) - (_g134401134416_ _g134402134419_))))) + (_g134405134420_ _g134406134423_))))) (let () (declare (not safe)) - (_g134401134416_ _g134402134419_)))))) + (_g134405134420_ _g134406134423_)))))) (declare (not safe)) - (_g134400134458_ _clause134399_))) - (let ((__tmp137437 - (lambda (_g134460134463_ _g134461134465_) + (_g134404134462_ _clause134403_))) + (let ((__tmp137441 + (lambda (_g134464134467_ _g134465134469_) (let () (declare (not safe)) - (cons _g134460134463_ _g134461134465_))))) + (cons _g134464134467_ _g134465134469_))))) (declare (not safe)) - (foldr1 __tmp137437 '() _L134386_)))) + (foldr1 __tmp137441 '() _L134390_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause134344134383_)))))) + _clause134348134387_)))))) (let () (declare (not safe)) - (_loop134339134367_ - _target134336134362_ + (_loop134343134371_ + _target134340134366_ '()))) (let () (declare (not safe)) - (_g134330134349_ _g134331134352_)))))) + (_g134334134353_ _g134335134356_)))))) (let () (declare (not safe)) - (_g134330134349_ _g134331134352_))))) + (_g134334134353_ _g134335134356_))))) (let () (declare (not safe)) - (_g134330134349_ _g134331134352_)))))) + (_g134334134353_ _g134335134356_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g134329134468_ _L134233_)) + (_g134333134472_ _L134237_)) (if (let () (declare (not safe)) - (_no-specializer?133302_)) - _stx133206_ - (let* ((_specializer-id134477_ - (let* ((_id134471_ - (let ((__tmp137439 + (_no-specializer?133306_)) + _stx133210_ + (let* ((_specializer-id134481_ + (let* ((_id134475_ + (let ((__tmp137443 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L133279_)))) + (gx#stx-e _L133283_)))) (declare (not safe)) - (make-symbol__1 __tmp137439 '"::specialize"))) - (_specializer-id134474_ - (let ((__tmp137440 + (make-symbol__1 __tmp137443 '"::specialize"))) + (_specializer-id134478_ + (let ((__tmp137444 (let () (declare (not safe)) - (gx#stx-source _stx133206_)))) + (gx#stx-source _stx133210_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id134471_ __tmp137440)))) + (gx#core-quote-syntax__1 _id134475_ __tmp137444)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id134474_)) - _specializer-id134474_)) + (gx#core-bind-runtime!__0 _specializer-id134478_)) + _specializer-id134478_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass134479_ - (let ((__tmp137441 + (_$klass134483_ + (let ((__tmp137445 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp137441))) - (_$method-table134481_ - (let ((__tmp137442 + __tmp137445))) + (_$method-table134485_ + (let ((__tmp137446 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp137442))) - (_methods134483_ + __tmp137446))) + (_methods134487_ (let () (declare (not safe)) (hash-keys - _method-calls133298_))) - (_$methods134487_ - (map (lambda (_id134485_) - (let ((__tmp137443 + _method-calls133302_))) + (_$methods134491_ + (map (lambda (_id134489_) + (let ((__tmp137447 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id134485_))) + (gensym _id134489_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137443))) - _methods134483_)) + (make-symbol__1 '"__" __tmp137447))) + _methods134487_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g137444_ + (_g137448_ (for-each - (lambda (_g134488134491_ - _g134489134493_) + (lambda (_g134492134495_ + _g134493134497_) (let () (declare (not safe)) (hash-put! - _method-calls133298_ - _g134488134491_ - _g134489134493_))) - _methods134483_ - _$methods134487_)) - (_methods-bind134504_ - (map (lambda (_g134496134499_ + _method-calls133302_ + _g134492134495_ + _g134493134497_))) + _methods134487_ + _$methods134491_)) + (_methods-bind134508_ + (map (lambda (_g134500134503_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134497134501_) + _g134501134505_) (let () (declare (not safe)) - (_generate-method-bind133208_ - _$klass134479_ - _$method-table134481_ - _g134496134499_ - _g134497134501_))) - _methods134483_ - _$methods134487_)) + (_generate-method-bind133212_ + _$klass134483_ + _$method-table134485_ + _g134500134503_ + _g134501134505_))) + _methods134487_ + _$methods134491_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots134506_ + (_slots134510_ (let () (declare (not safe)) (hash-keys - _slot-refs133299_))) - (_$slots134510_ - (map (lambda (_id134508_) - (let ((__tmp137445 + _slot-refs133303_))) + (_$slots134514_ + (map (lambda (_id134512_) + (let ((__tmp137449 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id134508_))) + (gensym _id134512_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137445))) - _slots134506_)) + (make-symbol__1 '"__" __tmp137449))) + _slots134510_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g137446_ + (_g137450_ (for-each - (lambda (_g134511134514_ - _g134512134516_) + (lambda (_g134515134518_ + _g134516134520_) (let () (declare (not safe)) (hash-put! - _slot-refs133299_ - _g134511134514_ - _g134512134516_))) - _slots134506_ - _$slots134510_)) - (_slots-bind134527_ - (map (lambda (_g134519134522_ + _slot-refs133303_ + _g134515134518_ + _g134516134520_))) + _slots134510_ + _$slots134514_)) + (_slots-bind134531_ + (map (lambda (_g134523134526_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134520134524_) + _g134524134528_) (let () (declare (not safe)) - (_generate-slot-bind133209_ - _$klass134479_ - _g134519134522_ - _g134520134524_))) - _slots134506_ - _$slots134510_)) + (_generate-slot-bind133213_ + _$klass134483_ + _g134523134526_ + _g134524134528_))) + _slots134510_ + _$slots134514_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr134613_ - (let* ((_g134529134547_ - (lambda (_g134530134544_) + (_specializer-lambda-expr134617_ + (let* ((_g134533134551_ + (lambda (_g134534134548_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134530134544_)))) - (_g134528134610_ - (lambda (_g134530134550_) + _g134534134548_)))) + (_g134532134614_ + (lambda (_g134534134554_) (if (let () (declare (not safe)) - (gx#stx-pair? _g134530134550_)) - (let ((_e134536134552_ + (gx#stx-pair? _g134534134554_)) + (let ((_e134540134556_ (let () (declare (not safe)) - (gx#stx-e _g134530134550_)))) - (let ((_hd134535134555_ + (gx#stx-e _g134534134554_)))) + (let ((_hd134539134559_ (let () (declare (not safe)) - (##car _e134536134552_))) - (_tl134534134557_ + (##car _e134540134556_))) + (_tl134538134561_ (let () (declare (not safe)) - (##cdr _e134536134552_)))) + (##cdr _e134540134556_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134534134557_)) - (let ((_e134539134560_ + (gx#stx-pair? _tl134538134561_)) + (let ((_e134543134564_ (let () (declare (not safe)) - (gx#stx-e _tl134534134557_)))) - (let ((_hd134538134563_ + (gx#stx-e _tl134538134561_)))) + (let ((_hd134542134567_ (let () (declare (not safe)) - (##car _e134539134560_))) - (_tl134537134565_ + (##car _e134543134564_))) + (_tl134541134569_ (let () (declare (not safe)) - (##cdr _e134539134560_)))) + (##cdr _e134543134564_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134538134563_)) - (let ((_e134542134568_ + (gx#stx-pair? _hd134542134567_)) + (let ((_e134546134572_ (let () (declare (not safe)) (gx#stx-e - _hd134538134563_)))) - (let ((_hd134541134571_ + _hd134542134567_)))) + (let ((_hd134545134575_ (let () (declare (not safe)) - (##car _e134542134568_))) - (_tl134540134573_ + (##car _e134546134572_))) + (_tl134544134577_ (let () (declare (not safe)) - (##cdr _e134542134568_)))) - ((lambda (_L134576_ - _L134577_ - _L134578_) - (let* ((_body134608_ - (map (lambda (_g134603134605_) + (##cdr _e134546134572_)))) + ((lambda (_L134580_ + _L134581_ + _L134582_) + (let* ((_body134612_ + (map (lambda (_g134607134609_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134603134605_ + _g134607134609_ 'receiver: - _L134578_ + _L134582_ 'klass: - _$klass134479_ + _$klass134483_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L134576_)) - (__tmp137447 - (let ((__tmp137448 - (let ((__tmp137449 + _slot-refs133303_))) + _L134580_)) + (__tmp137451 + (let ((__tmp137452 + (let ((__tmp137453 (let () (declare (not safe)) - (cons _L134578_ _L134577_)))) + (cons _L134582_ _L134581_)))) (declare (not safe)) - (cons __tmp137449 _body134608_)))) + (cons __tmp137453 _body134612_)))) (declare (not safe)) - (cons '%#lambda __tmp137448)))) + (cons '%#lambda __tmp137452)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp137447 - _L134234_))) - _tl134537134565_ - _tl134540134573_ - _hd134541134571_))) + __tmp137451 + _L134238_))) + _tl134541134569_ + _tl134544134577_ + _hd134545134575_))) (let () (declare (not safe)) - (_g134529134547_ - _g134530134550_))))) + (_g134533134551_ + _g134534134554_))))) (let () (declare (not safe)) - (_g134529134547_ _g134530134550_))))) + (_g134533134551_ _g134534134554_))))) (let () (declare (not safe)) - (_g134529134547_ _g134530134550_)))))) + (_g134533134551_ _g134534134554_)))))) (declare (not safe)) - (_g134528134610_ _L134234_))) + (_g134532134614_ _L134238_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-case-lambda-expr134770_ - (let* ((_g134615134634_ - (lambda (_g134616134631_) + (_specializer-case-lambda-expr134774_ + (let* ((_g134619134638_ + (lambda (_g134620134635_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134616134631_)))) - (_g134614134767_ - (lambda (_g134616134637_) + _g134620134635_)))) + (_g134618134771_ + (lambda (_g134620134641_) (if (let () (declare (not safe)) - (gx#stx-pair? _g134616134637_)) - (let ((_e134620134639_ + (gx#stx-pair? _g134620134641_)) + (let ((_e134624134643_ (let () (declare (not safe)) - (gx#stx-e _g134616134637_)))) - (let ((_hd134619134642_ + (gx#stx-e _g134620134641_)))) + (let ((_hd134623134646_ (let () (declare (not safe)) - (##car _e134620134639_))) - (_tl134618134644_ + (##car _e134624134643_))) + (_tl134622134648_ (let () (declare (not safe)) - (##cdr _e134620134639_)))) + (##cdr _e134624134643_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl134618134644_)) - (let ((_g137450_ + (gx#stx-pair/null? _tl134622134648_)) + (let ((_g137454_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl134618134644_ + _tl134622134648_ '0)))) (begin - (let ((_g137451_ + (let ((_g137455_ (let () (declare (not safe)) - (if (##values? _g137450_) + (if (##values? _g137454_) (##vector-length - _g137450_) + _g137454_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137451_ 2))) + (##fx= _g137455_ 2))) (error "Context expects 2 values" - _g137451_))) - (let ((_target134621134647_ + _g137455_))) + (let ((_target134625134651_ (let () (declare (not safe)) - (##vector-ref _g137450_ 0))) - (_tl134623134649_ + (##vector-ref _g137454_ 0))) + (_tl134627134653_ (let () (declare (not safe)) - (##vector-ref _g137450_ 1)))) + (##vector-ref _g137454_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl134623134649_)) - (letrec ((_loop134624134652_ - (lambda (_hd134622134655_ + _tl134627134653_)) + (letrec ((_loop134628134656_ + (lambda (_hd134626134659_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause134628134657_) + _clause134632134661_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134622134655_)) - (let ((_e134625134660_ + (gx#stx-pair? _hd134626134659_)) + (let ((_e134629134664_ (let () (declare (not safe)) - (gx#stx-e _hd134622134655_)))) - (let ((_lp-hd134626134663_ + (gx#stx-e _hd134626134659_)))) + (let ((_lp-hd134630134667_ (let () (declare (not safe)) - (##car _e134625134660_))) - (_lp-tl134627134665_ + (##car _e134629134664_))) + (_lp-tl134631134669_ (let () (declare (not safe)) - (##cdr _e134625134660_)))) - (let ((__tmp137455 + (##cdr _e134629134664_)))) + (let ((__tmp137459 (let () (declare (not safe)) - (cons _lp-hd134626134663_ - _clause134628134657_)))) + (cons _lp-hd134630134667_ + _clause134632134661_)))) (declare (not safe)) - (_loop134624134652_ - _lp-tl134627134665_ - __tmp137455)))) - (let ((_clause134629134668_ - (reverse _clause134628134657_))) - ((lambda (_L134671_) - (let* ((_clauses134765_ - (map (lambda (_clause134685_) - (let* ((___stx136164136165_ - _clause134685_) - (_g134688134703_ + (_loop134628134656_ + _lp-tl134631134669_ + __tmp137459)))) + (let ((_clause134633134672_ + (reverse _clause134632134661_))) + ((lambda (_L134675_) + (let* ((_clauses134769_ + (map (lambda (_clause134689_) + (let* ((___stx136168136169_ + _clause134689_) + (_g134692134707_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136164136165_))))) - (let ((___kont136166136167_ - (lambda (_L134731_ - _L134732_ - _L134733_) - (let* ((_body134753_ - (map (lambda (_g134748134750_) + ___stx136168136169_))))) + (let ((___kont136170136171_ + (lambda (_L134735_ + _L134736_ + _L134737_) + (let* ((_body134757_ + (map (lambda (_g134752134754_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134748134750_ + _g134752134754_ 'receiver: - _L134733_ + _L134737_ 'klass: - _$klass134479_ + _$klass134483_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L134731_)) - (__tmp137452 - (let () (declare (not safe)) (cons _L134733_ _L134732_)))) + _slot-refs133303_))) + _L134735_)) + (__tmp137456 + (let () (declare (not safe)) (cons _L134737_ _L134736_)))) (declare (not safe)) - (cons __tmp137452 _body134753_)))) + (cons __tmp137456 _body134757_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136168136169_ - (lambda () _clause134685_))) + (___kont136172136173_ + (lambda () _clause134689_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx136164136165_)) - (let ((_e134695134715_ + ___stx136168136169_)) + (let ((_e134699134719_ (let () (declare (not safe)) (gx#stx-e - ___stx136164136165_)))) - (let ((_tl134693134720_ + ___stx136168136169_)))) + (let ((_tl134697134724_ (let () (declare (not safe)) - (##cdr _e134695134715_))) - (_hd134694134718_ + (##cdr _e134699134719_))) + (_hd134698134722_ (let () (declare (not safe)) - (##car _e134695134715_)))) + (##car _e134699134719_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134694134718_)) - (let ((_e134698134723_ + _hd134698134722_)) + (let ((_e134702134727_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd134694134718_)))) - (let ((_tl134696134728_ + (gx#stx-e _hd134698134722_)))) + (let ((_tl134700134732_ (let () (declare (not safe)) - (##cdr _e134698134723_))) - (_hd134697134726_ + (##cdr _e134702134727_))) + (_hd134701134730_ (let () (declare (not safe)) - (##car _e134698134723_)))) - (___kont136166136167_ - _tl134693134720_ - _tl134696134728_ - _hd134697134726_))) - (___kont136168136169_)))) + (##car _e134702134727_)))) + (___kont136170136171_ + _tl134697134724_ + _tl134700134732_ + _hd134701134730_))) + (___kont136172136173_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136168136169_))))) - (let ((__tmp137453 - (lambda (_g134757134760_ - _g134758134762_) + (___kont136172136173_))))) + (let ((__tmp137457 + (lambda (_g134761134764_ + _g134762134766_) (let () (declare (not safe)) - (cons _g134757134760_ - _g134758134762_))))) + (cons _g134761134764_ + _g134762134766_))))) (declare (not safe)) - (foldr1 __tmp137453 '() _L134671_)))) - (__tmp137454 + (foldr1 __tmp137457 '() _L134675_)))) + (__tmp137458 (let () (declare (not safe)) - (cons '%#case-lambda _clauses134765_)))) + (cons '%#case-lambda _clauses134769_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137454 _L134233_))) - _clause134629134668_)))))) + (gxc#xform-wrap-source __tmp137458 _L134237_))) + _clause134633134672_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop134624134652_ - _target134621134647_ + (_loop134628134656_ + _target134625134651_ '()))) (let () (declare (not safe)) - (_g134615134634_ - _g134616134637_)))))) + (_g134619134638_ + _g134620134641_)))))) (let () (declare (not safe)) - (_g134615134634_ _g134616134637_))))) + (_g134619134638_ _g134620134641_))))) (let () (declare (not safe)) - (_g134615134634_ _g134616134637_)))))) + (_g134619134638_ _g134620134641_)))))) (declare (not safe)) - (_g134614134767_ _L134233_))) + (_g134618134771_ _L134237_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl134772_ - (let ((__tmp137456 - (let ((__tmp137457 + (_specializer-impl134776_ + (let ((__tmp137460 + (let ((__tmp137461 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137459 - (let ((__tmp137460 - (let ((__tmp137462 + (let ((__tmp137463 + (let ((__tmp137464 + (let ((__tmp137466 (let () (declare (not safe)) - (cons _L134235_ '()))) - (__tmp137461 + (cons _L134239_ '()))) + (__tmp137465 (let () (declare (not safe)) - (cons _specializer-lambda-expr134613_ + (cons _specializer-lambda-expr134617_ '())))) (declare (not safe)) - (cons __tmp137462 __tmp137461)))) + (cons __tmp137466 __tmp137465)))) (declare (not safe)) - (cons __tmp137460 '()))) - (__tmp137458 + (cons __tmp137464 '()))) + (__tmp137462 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr134770_ + (cons _specializer-case-lambda-expr134774_ '())))) (declare (not safe)) - (cons __tmp137459 __tmp137458)))) + (cons __tmp137463 __tmp137462)))) (declare (not safe)) - (cons '%#let-values __tmp137457)))) + (cons '%#let-values __tmp137461)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137456 _stx133206_))) + (gxc#xform-wrap-source __tmp137460 _stx133210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl134774_ + (_specializer-impl134778_ (let () (declare (not safe)) - (_generate-specializer-impl133210_ - _$klass134479_ - _$method-table134481_ - _methods-bind134504_ - _slots-bind134527_ - _specializer-impl134772_)))) - (let ((__tmp137464 + (_generate-specializer-impl133214_ + _$klass134483_ + _$method-table134485_ + _methods-bind134508_ + _slots-bind134531_ + _specializer-impl134776_)))) + (let ((__tmp137468 (let () (declare (not safe)) - (gx#stx-e _L133279_))) - (__tmp137463 + (gx#stx-e _L133283_))) + (__tmp137467 (let () (declare (not safe)) (gx#stx-e - _specializer-id134477_)))) + _specializer-id134481_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137464 + __tmp137468 '" => " - __tmp137463)) + __tmp137467)) (let () (declare (not safe)) - (_generate-specializer-def133211_ - _L133279_ - _specializer-id134477_ - _specializer-impl134774_))))) - _hd134166134228_ - _hd134163134220_ - _hd134160134212_) + (_generate-specializer-def133215_ + _L133283_ + _specializer-id134481_ + _specializer-impl134778_))))) + _hd134170134232_ + _hd134167134224_ + _hd134164134216_) (let () (declare (not safe)) - (_g134142134172_ _g134143134175_))))) + (_g134146134176_ _g134147134179_))))) (let () (declare (not safe)) - (_g134142134172_ _g134143134175_))) + (_g134146134176_ _g134147134179_))) (let () (declare (not safe)) - (_g134142134172_ _g134143134175_))) + (_g134146134176_ _g134147134179_))) (let () (declare (not safe)) - (_g134142134172_ _g134143134175_))))) - (let () (declare (not safe)) (_g134142134172_ _g134143134175_))) + (_g134146134176_ _g134147134179_))))) + (let () (declare (not safe)) (_g134146134176_ _g134147134179_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134142134172_ - _g134143134175_))))) + (_g134146134176_ + _g134147134179_))))) (let () (declare (not safe)) - (_g134142134172_ - _g134143134175_))))) + (_g134146134176_ + _g134147134179_))))) (let () (declare (not safe)) - (_g134142134172_ _g134143134175_))))) + (_g134146134176_ _g134147134179_))))) (let () (declare (not safe)) - (_g134142134172_ _g134143134175_))))) + (_g134146134176_ _g134147134179_))))) (let () (declare (not safe)) - (_g134142134172_ _g134143134175_))))) + (_g134146134176_ _g134147134179_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134142134172_ - _g134143134175_)))))) + (_g134146134176_ + _g134147134179_)))))) (declare (not safe)) - (_g134141134777_ _L133278_)) + (_g134145134781_ _L133282_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L133278_)) - (let* ((_g134780134833_ - (lambda (_g134781134830_) + (gxc#kw-lambda-expr? _L133282_)) + (let* ((_g134784134837_ + (lambda (_g134785134834_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134781134830_)))) - (_g134779135964_ - (lambda (_g134781134836_) + _g134785134834_)))) + (_g134783135968_ + (lambda (_g134785134840_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134781134836_)) - (let ((_e134789134838_ + _g134785134840_)) + (let ((_e134793134842_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g134781134836_)))) - (let ((_hd134788134841_ - (let () (declare (not safe)) (##car _e134789134838_))) - (_tl134787134843_ - (let () (declare (not safe)) (##cdr _e134789134838_)))) + (gx#stx-e _g134785134840_)))) + (let ((_hd134792134845_ + (let () (declare (not safe)) (##car _e134793134842_))) + (_tl134791134847_ + (let () (declare (not safe)) (##cdr _e134793134842_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd134788134841_)) + (gx#identifier? _hd134792134845_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd134788134841_)) + (gx#stx-eq? '%#let-values _hd134792134845_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134787134843_)) - (let ((_e134792134846_ + (gx#stx-pair? _tl134791134847_)) + (let ((_e134796134850_ (let () (declare (not safe)) - (gx#stx-e _tl134787134843_)))) - (let ((_hd134791134849_ + (gx#stx-e _tl134791134847_)))) + (let ((_hd134795134853_ (let () (declare (not safe)) - (##car _e134792134846_))) - (_tl134790134851_ + (##car _e134796134850_))) + (_tl134794134855_ (let () (declare (not safe)) - (##cdr _e134792134846_)))) + (##cdr _e134796134850_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134791134849_)) - (let ((_e134795134854_ + (gx#stx-pair? _hd134795134853_)) + (let ((_e134799134858_ (let () (declare (not safe)) - (gx#stx-e _hd134791134849_)))) - (let ((_hd134794134857_ + (gx#stx-e _hd134795134853_)))) + (let ((_hd134798134861_ (let () (declare (not safe)) - (##car _e134795134854_))) - (_tl134793134859_ + (##car _e134799134858_))) + (_tl134797134863_ (let () (declare (not safe)) - (##cdr _e134795134854_)))) + (##cdr _e134799134858_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134794134857_)) - (let ((_e134798134862_ + _hd134798134861_)) + (let ((_e134802134866_ (let () (declare (not safe)) (gx#stx-e - _hd134794134857_)))) - (let ((_hd134797134865_ + _hd134798134861_)))) + (let ((_hd134801134869_ (let () (declare (not safe)) - (##car _e134798134862_))) - (_tl134796134867_ + (##car _e134802134866_))) + (_tl134800134871_ (let () (declare (not safe)) - (##cdr _e134798134862_)))) + (##cdr _e134802134866_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134797134865_)) - (let ((_e134801134870_ + _hd134801134869_)) + (let ((_e134805134874_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd134797134865_)))) - (let ((_hd134800134873_ - (let () (declare (not safe)) (##car _e134801134870_))) - (_tl134799134875_ - (let () (declare (not safe)) (##cdr _e134801134870_)))) + (gx#stx-e _hd134801134869_)))) + (let ((_hd134804134877_ + (let () (declare (not safe)) (##car _e134805134874_))) + (_tl134803134879_ + (let () (declare (not safe)) (##cdr _e134805134874_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134799134875_)) + (gx#stx-null? _tl134803134879_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134796134867_)) - (let ((_e134804134878_ + (gx#stx-pair? _tl134800134871_)) + (let ((_e134808134882_ (let () (declare (not safe)) - (gx#stx-e _tl134796134867_)))) - (let ((_hd134803134881_ + (gx#stx-e _tl134800134871_)))) + (let ((_hd134807134885_ (let () (declare (not safe)) - (##car _e134804134878_))) - (_tl134802134883_ + (##car _e134808134882_))) + (_tl134806134887_ (let () (declare (not safe)) - (##cdr _e134804134878_)))) + (##cdr _e134808134882_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134803134881_)) - (let ((_e134807134886_ + (gx#stx-pair? _hd134807134885_)) + (let ((_e134811134890_ (let () (declare (not safe)) - (gx#stx-e _hd134803134881_)))) - (let ((_hd134806134889_ + (gx#stx-e _hd134807134885_)))) + (let ((_hd134810134893_ (let () (declare (not safe)) - (##car _e134807134886_))) - (_tl134805134891_ + (##car _e134811134890_))) + (_tl134809134895_ (let () (declare (not safe)) - (##cdr _e134807134886_)))) + (##cdr _e134811134890_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd134806134889_)) + (gx#identifier? _hd134810134893_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd134806134889_)) + _hd134810134893_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl134805134891_)) - (let ((_e134810134894_ + _tl134809134895_)) + (let ((_e134814134898_ (let () (declare (not safe)) (gx#stx-e - _tl134805134891_)))) - (let ((_hd134809134897_ + _tl134809134895_)))) + (let ((_hd134813134901_ (let () (declare (not safe)) - (##car _e134810134894_))) - (_tl134808134899_ + (##car _e134814134898_))) + (_tl134812134903_ (let () (declare (not safe)) - (##cdr _e134810134894_)))) + (##cdr _e134814134898_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134809134897_)) - (let ((_e134813134902_ + _hd134813134901_)) + (let ((_e134817134906_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd134809134897_)))) - (let ((_hd134812134905_ + (gx#stx-e _hd134813134901_)))) + (let ((_hd134816134909_ (let () (declare (not safe)) - (##car _e134813134902_))) - (_tl134811134907_ + (##car _e134817134906_))) + (_tl134815134911_ (let () (declare (not safe)) - (##cdr _e134813134902_)))) + (##cdr _e134817134906_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134812134905_)) - (let ((_e134816134910_ + (gx#stx-pair? _hd134816134909_)) + (let ((_e134820134914_ (let () (declare (not safe)) - (gx#stx-e _hd134812134905_)))) - (let ((_hd134815134913_ + (gx#stx-e _hd134816134909_)))) + (let ((_hd134819134917_ (let () (declare (not safe)) - (##car _e134816134910_))) - (_tl134814134915_ + (##car _e134820134914_))) + (_tl134818134919_ (let () (declare (not safe)) - (##cdr _e134816134910_)))) + (##cdr _e134820134914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134815134913_)) - (let ((_e134819134918_ + (gx#stx-pair? _hd134819134917_)) + (let ((_e134823134922_ (let () (declare (not safe)) - (gx#stx-e _hd134815134913_)))) - (let ((_hd134818134921_ + (gx#stx-e _hd134819134917_)))) + (let ((_hd134822134925_ (let () (declare (not safe)) - (##car _e134819134918_))) - (_tl134817134923_ + (##car _e134823134922_))) + (_tl134821134927_ (let () (declare (not safe)) - (##cdr _e134819134918_)))) + (##cdr _e134823134922_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134817134923_)) + (gx#stx-null? _tl134821134927_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl134814134915_)) - (let ((_e134822134926_ + _tl134818134919_)) + (let ((_e134826134930_ (let () (declare (not safe)) (gx#stx-e - _tl134814134915_)))) - (let ((_hd134821134929_ + _tl134818134919_)))) + (let ((_hd134825134933_ (let () (declare (not safe)) - (##car _e134822134926_))) - (_tl134820134931_ + (##car _e134826134930_))) + (_tl134824134935_ (let () (declare (not safe)) - (##cdr _e134822134926_)))) + (##cdr _e134826134930_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl134820134931_)) + _tl134824134935_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl134811134907_)) + _tl134815134911_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl134808134899_)) - (let ((_e134825134934_ + (gx#stx-pair? _tl134812134903_)) + (let ((_e134829134938_ (let () (declare (not safe)) - (gx#stx-e _tl134808134899_)))) - (let ((_hd134824134937_ + (gx#stx-e _tl134812134903_)))) + (let ((_hd134828134941_ (let () (declare (not safe)) - (##car _e134825134934_))) - (_tl134823134939_ + (##car _e134829134938_))) + (_tl134827134943_ (let () (declare (not safe)) - (##cdr _e134825134934_)))) + (##cdr _e134829134938_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134823134939_)) + (gx#stx-null? _tl134827134943_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl134802134883_)) + (gx#stx-null? _tl134806134887_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl134793134859_)) + (gx#stx-null? _tl134797134863_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134790134851_)) - (let ((_e134828134942_ + (gx#stx-pair? _tl134794134855_)) + (let ((_e134832134946_ (let () (declare (not safe)) (gx#stx-e - _tl134790134851_)))) - (let ((_hd134827134945_ + _tl134794134855_)))) + (let ((_hd134831134949_ (let () (declare (not safe)) - (##car _e134828134942_))) - (_tl134826134947_ + (##car _e134832134946_))) + (_tl134830134951_ (let () (declare (not safe)) - (##cdr _e134828134942_)))) + (##cdr _e134832134946_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl134826134947_)) - ((lambda (_L134950_ - _L134951_ - _L134952_ - _L134953_ - _L134954_) - (let* ((_g134993135055_ - (lambda (_g134994135052_) + _tl134830134951_)) + ((lambda (_L134954_ + _L134955_ + _L134956_ + _L134957_ + _L134958_) + (let* ((_g134997135059_ + (lambda (_g134998135056_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134994135052_)))) - (_g134992135961_ - (lambda (_g134994135058_) + _g134998135056_)))) + (_g134996135965_ + (lambda (_g134998135062_) (if (let () (declare (not safe)) - (gx#stx-pair? _g134994135058_)) - (let ((_e135002135060_ + (gx#stx-pair? _g134998135062_)) + (let ((_e135006135064_ (let () (declare (not safe)) - (gx#stx-e _g134994135058_)))) - (let ((_hd135001135063_ + (gx#stx-e _g134998135062_)))) + (let ((_hd135005135067_ (let () (declare (not safe)) - (##car _e135002135060_))) - (_tl135000135065_ + (##car _e135006135064_))) + (_tl135004135069_ (let () (declare (not safe)) - (##cdr _e135002135060_)))) + (##cdr _e135006135064_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd135001135063_)) + (gx#identifier? _hd135005135067_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd135001135063_)) + _hd135005135067_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135000135065_)) - (let ((_e135005135068_ + (gx#stx-pair? _tl135004135069_)) + (let ((_e135009135072_ (let () (declare (not safe)) (gx#stx-e - _tl135000135065_)))) - (let ((_hd135004135071_ + _tl135004135069_)))) + (let ((_hd135008135075_ (let () (declare (not safe)) - (##car _e135005135068_))) - (_tl135003135073_ + (##car _e135009135072_))) + (_tl135007135077_ (let () (declare (not safe)) - (##cdr _e135005135068_)))) + (##cdr _e135009135072_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135003135073_)) - (let ((_e135008135076_ + _tl135007135077_)) + (let ((_e135012135080_ (let () (declare (not safe)) (gx#stx-e - _tl135003135073_)))) - (let ((_hd135007135079_ + _tl135007135077_)))) + (let ((_hd135011135083_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e135008135076_))) - (_tl135006135081_ - (let () (declare (not safe)) (##cdr _e135008135076_)))) + (##car _e135012135080_))) + (_tl135010135085_ + (let () (declare (not safe)) (##cdr _e135012135080_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135007135079_)) - (let ((_e135011135084_ + (gx#stx-pair? _hd135011135083_)) + (let ((_e135015135088_ (let () (declare (not safe)) - (gx#stx-e _hd135007135079_)))) - (let ((_hd135010135087_ + (gx#stx-e _hd135011135083_)))) + (let ((_hd135014135091_ (let () (declare (not safe)) - (##car _e135011135084_))) - (_tl135009135089_ + (##car _e135015135088_))) + (_tl135013135093_ (let () (declare (not safe)) - (##cdr _e135011135084_)))) + (##cdr _e135015135088_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd135010135087_)) + (gx#identifier? _hd135014135091_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd135010135087_)) + (gx#stx-eq? '%#call _hd135014135091_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135009135089_)) - (let ((_e135014135092_ + (gx#stx-pair? _tl135013135093_)) + (let ((_e135018135096_ (let () (declare (not safe)) - (gx#stx-e _tl135009135089_)))) - (let ((_hd135013135095_ + (gx#stx-e _tl135013135093_)))) + (let ((_hd135017135099_ (let () (declare (not safe)) - (##car _e135014135092_))) - (_tl135012135097_ + (##car _e135018135096_))) + (_tl135016135101_ (let () (declare (not safe)) - (##cdr _e135014135092_)))) + (##cdr _e135018135096_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135013135095_)) - (let ((_e135017135100_ + (gx#stx-pair? _hd135017135099_)) + (let ((_e135021135104_ (let () (declare (not safe)) (gx#stx-e - _hd135013135095_)))) - (let ((_hd135016135103_ + _hd135017135099_)))) + (let ((_hd135020135107_ (let () (declare (not safe)) - (##car _e135017135100_))) - (_tl135015135105_ + (##car _e135021135104_))) + (_tl135019135109_ (let () (declare (not safe)) - (##cdr _e135017135100_)))) + (##cdr _e135021135104_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135016135103_)) + _hd135020135107_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135016135103_)) + _hd135020135107_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135015135105_)) - (let ((_e135020135108_ + _tl135019135109_)) + (let ((_e135024135112_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl135015135105_)))) - (let ((_hd135019135111_ + (gx#stx-e _tl135019135109_)))) + (let ((_hd135023135115_ (let () (declare (not safe)) - (##car _e135020135108_))) - (_tl135018135113_ + (##car _e135024135112_))) + (_tl135022135117_ (let () (declare (not safe)) - (##cdr _e135020135108_)))) + (##cdr _e135024135112_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135018135113_)) + (gx#stx-null? _tl135022135117_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135012135097_)) - (let ((_e135023135116_ + (gx#stx-pair? _tl135016135101_)) + (let ((_e135027135120_ (let () (declare (not safe)) - (gx#stx-e _tl135012135097_)))) - (let ((_hd135022135119_ + (gx#stx-e _tl135016135101_)))) + (let ((_hd135026135123_ (let () (declare (not safe)) - (##car _e135023135116_))) - (_tl135021135121_ + (##car _e135027135120_))) + (_tl135025135125_ (let () (declare (not safe)) - (##cdr _e135023135116_)))) + (##cdr _e135027135120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135022135119_)) - (let ((_e135026135124_ + (gx#stx-pair? _hd135026135123_)) + (let ((_e135030135128_ (let () (declare (not safe)) - (gx#stx-e _hd135022135119_)))) - (let ((_hd135025135127_ + (gx#stx-e _hd135026135123_)))) + (let ((_hd135029135131_ (let () (declare (not safe)) - (##car _e135026135124_))) - (_tl135024135129_ + (##car _e135030135128_))) + (_tl135028135133_ (let () (declare (not safe)) - (##cdr _e135026135124_)))) + (##cdr _e135030135128_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135025135127_)) + _hd135029135131_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135025135127_)) + _hd135029135131_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135024135129_)) - (let ((_e135029135132_ + _tl135028135133_)) + (let ((_e135033135136_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl135024135129_)))) - (let ((_hd135028135135_ - (let () (declare (not safe)) (##car _e135029135132_))) - (_tl135027135137_ + (gx#stx-e _tl135028135133_)))) + (let ((_hd135032135139_ + (let () (declare (not safe)) (##car _e135033135136_))) + (_tl135031135141_ (let () (declare (not safe)) - (##cdr _e135029135132_)))) + (##cdr _e135033135136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135027135137_)) + (gx#stx-null? _tl135031135141_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135021135121_)) - (let ((_e135032135140_ + (gx#stx-pair? _tl135025135125_)) + (let ((_e135036135144_ (let () (declare (not safe)) - (gx#stx-e _tl135021135121_)))) - (let ((_hd135031135143_ + (gx#stx-e _tl135025135125_)))) + (let ((_hd135035135147_ (let () (declare (not safe)) - (##car _e135032135140_))) - (_tl135030135145_ + (##car _e135036135144_))) + (_tl135034135149_ (let () (declare (not safe)) - (##cdr _e135032135140_)))) + (##cdr _e135036135144_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135031135143_)) - (let ((_e135035135148_ + (gx#stx-pair? _hd135035135147_)) + (let ((_e135039135152_ (let () (declare (not safe)) - (gx#stx-e _hd135031135143_)))) - (let ((_hd135034135151_ + (gx#stx-e _hd135035135147_)))) + (let ((_hd135038135155_ (let () (declare (not safe)) - (##car _e135035135148_))) - (_tl135033135153_ + (##car _e135039135152_))) + (_tl135037135157_ (let () (declare (not safe)) - (##cdr _e135035135148_)))) + (##cdr _e135039135152_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135034135151_)) + _hd135038135155_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135034135151_)) + _hd135038135155_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135033135153_)) - (let ((_e135038135156_ + _tl135037135157_)) + (let ((_e135042135160_ (let () (declare (not safe)) (gx#stx-e - _tl135033135153_)))) - (let ((_hd135037135159_ + _tl135037135157_)))) + (let ((_hd135041135163_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e135038135156_))) - (_tl135036135161_ - (let () (declare (not safe)) (##cdr _e135038135156_)))) + (##car _e135042135160_))) + (_tl135040135165_ + (let () (declare (not safe)) (##cdr _e135042135160_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135036135161_)) + (gx#stx-null? _tl135040135165_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl135030135145_)) + (gx#stx-pair/null? _tl135034135149_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl135030135145_)) + (gx#stx-length _tl135034135149_)) '1) - (let ((_g137361_ + (let ((_g137365_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl135030135145_ + _tl135034135149_ '1)))) (begin - (let ((_g137362_ + (let ((_g137366_ (let () (declare (not safe)) - (if (##values? _g137361_) - (##vector-length _g137361_) + (if (##values? _g137365_) + (##vector-length _g137365_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137362_ 2))) + (##fx= _g137366_ 2))) (error "Context expects 2 values" - _g137362_))) - (let ((_target135039135164_ + _g137366_))) + (let ((_target135043135168_ (let () (declare (not safe)) - (##vector-ref _g137361_ 0))) - (_tl135041135166_ + (##vector-ref _g137365_ 0))) + (_tl135045135170_ (let () (declare (not safe)) - (##vector-ref _g137361_ 1)))) + (##vector-ref _g137365_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135041135166_)) - (let ((_e135050135169_ + (gx#stx-pair? _tl135045135170_)) + (let ((_e135054135173_ (let () (declare (not safe)) - (gx#stx-e _tl135041135166_)))) - (let ((_hd135049135172_ + (gx#stx-e _tl135045135170_)))) + (let ((_hd135053135176_ (let () (declare (not safe)) - (##car _e135050135169_))) - (_tl135048135174_ + (##car _e135054135173_))) + (_tl135052135178_ (let () (declare (not safe)) - (##cdr _e135050135169_)))) + (##cdr _e135054135173_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135048135174_)) - (letrec ((_loop135042135177_ - (lambda (_hd135040135180_ + _tl135052135178_)) + (letrec ((_loop135046135181_ + (lambda (_hd135044135184_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref135046135182_) + _kw-ref135050135186_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135040135180_)) - (let ((_e135043135185_ + (gx#stx-pair? _hd135044135184_)) + (let ((_e135047135189_ (let () (declare (not safe)) - (gx#stx-e _hd135040135180_)))) - (let ((_lp-hd135044135188_ + (gx#stx-e _hd135044135184_)))) + (let ((_lp-hd135048135192_ (let () (declare (not safe)) - (##car _e135043135185_))) - (_lp-tl135045135190_ + (##car _e135047135189_))) + (_lp-tl135049135194_ (let () (declare (not safe)) - (##cdr _e135043135185_)))) - (let ((__tmp137434 + (##cdr _e135047135189_)))) + (let ((__tmp137438 (let () (declare (not safe)) - (cons _lp-hd135044135188_ - _kw-ref135046135182_)))) + (cons _lp-hd135048135192_ + _kw-ref135050135186_)))) (declare (not safe)) - (_loop135042135177_ - _lp-tl135045135190_ - __tmp137434)))) - (let ((_kw-ref135047135193_ - (reverse _kw-ref135046135182_))) + (_loop135046135181_ + _lp-tl135049135194_ + __tmp137438)))) + (let ((_kw-ref135051135197_ + (reverse _kw-ref135050135186_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135006135081_)) - ((lambda (_L135196_ - _L135197_ - _L135198_ - _L135199_ - _L135200_) - (let* ((_kw-count135251_ - (length (let ((__tmp137363 - (lambda (_g135243135246_ - _g135244135248_) + (gx#stx-null? _tl135010135085_)) + ((lambda (_L135200_ + _L135201_ + _L135202_ + _L135203_ + _L135204_) + (let* ((_kw-count135255_ + (length (let ((__tmp137367 + (lambda (_g135247135250_ + _g135248135252_) (let () (declare (not safe)) - (cons _g135243135246_ - _g135244135248_))))) + (cons _g135247135250_ + _g135248135252_))))) (declare (not safe)) - (foldr1 __tmp137363 + (foldr1 __tmp137367 '() - _L135197_)))) - (_self-index135253_ + _L135201_)))) + (_self-index135257_ (let () (declare (not safe)) - (fx+ _kw-count135251_ '1)))) + (fx+ _kw-count135255_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L134952_)) - (let* ((_g135256135270_ - (lambda (_g135257135267_) + (gxc#lambda-expr? _L134956_)) + (let* ((_g135260135274_ + (lambda (_g135261135271_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135257135267_)))) - (_g135255135383_ - (lambda (_g135257135273_) + _g135261135271_)))) + (_g135259135387_ + (lambda (_g135261135277_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135257135273_)) - (let ((_e135262135275_ + _g135261135277_)) + (let ((_e135266135279_ (let () (declare (not safe)) (gx#stx-e - _g135257135273_)))) - (let ((_hd135261135278_ + _g135261135277_)))) + (let ((_hd135265135282_ (let () (declare (not safe)) - (##car _e135262135275_))) - (_tl135260135280_ + (##car _e135266135279_))) + (_tl135264135284_ (let () (declare (not safe)) - (##cdr _e135262135275_)))) + (##cdr _e135266135279_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135260135280_)) - (let ((_e135265135283_ + _tl135264135284_)) + (let ((_e135269135287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl135260135280_)))) - (let ((_hd135264135286_ + (gx#stx-e _tl135264135284_)))) + (let ((_hd135268135290_ (let () (declare (not safe)) - (##car _e135265135283_))) - (_tl135263135288_ + (##car _e135269135287_))) + (_tl135267135292_ (let () (declare (not safe)) - (##cdr _e135265135283_)))) - ((lambda (_L135291_ _L135292_) - (let ((_self135308_ - (list-ref _L135292_ _self-index135253_))) + (##cdr _e135269135287_)))) + ((lambda (_L135295_ _L135296_) + (let ((_self135312_ + (list-ref _L135296_ _self-index135257_))) (for-each - (lambda (_g135309135311_) + (lambda (_g135313135315_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g135309135311_ + _g135313135315_ 'receiver: - _self135308_ + _self135312_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L135291_) + _slot-refs133303_))) + _L135295_) (if (let () (declare (not safe)) - (_no-specializer?133302_)) - _stx133206_ - (let* ((_specializer-id135320_ - (let* ((_id135314_ - (let ((__tmp137407 + (_no-specializer?133306_)) + _stx133210_ + (let* ((_specializer-id135324_ + (let* ((_id135318_ + (let ((__tmp137411 (let () (declare (not safe)) (gx#stx-e - _L133279_)))) + _L133283_)))) (declare (not safe)) (make-symbol__1 - __tmp137407 + __tmp137411 '"::specialize"))) - (_specializer-id135317_ - (let ((__tmp137408 + (_specializer-id135321_ + (let ((__tmp137412 (let () (declare (not safe)) (gx#stx-source - _stx133206_)))) + _stx133210_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id135314_ - __tmp137408)))) + _id135318_ + __tmp137412)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id135317_)) - _specializer-id135317_)) - (_$klass135322_ - (let ((__tmp137409 (gensym '__klass))) + _specializer-id135321_)) + _specializer-id135321_)) + (_$klass135326_ + (let ((__tmp137413 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp137409))) - (_$method-table135324_ - (let ((__tmp137410 + (make-symbol__0 __tmp137413))) + (_$method-table135328_ + (let ((__tmp137414 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp137410))) - (_methods135326_ + (make-symbol__0 __tmp137414))) + (_methods135330_ (let () (declare (not safe)) - (hash-keys _method-calls133298_))) - (_$methods135330_ - (map (lambda (_id135328_) - (let ((__tmp137411 - (gensym _id135328_))) + (hash-keys _method-calls133302_))) + (_$methods135334_ + (map (lambda (_id135332_) + (let ((__tmp137415 + (gensym _id135332_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp137411))) - _methods135326_)) - (_g137412_ + __tmp137415))) + _methods135330_)) + (_g137416_ (for-each - (lambda (_g135331135334_ - _g135332135336_) + (lambda (_g135335135338_ + _g135336135340_) (let () (declare (not safe)) (hash-put! - _method-calls133298_ - _g135331135334_ - _g135332135336_))) - _methods135326_ - _$methods135330_)) - (_methods-bind135347_ - (map (lambda (_g135339135342_ - _g135340135344_) + _method-calls133302_ + _g135335135338_ + _g135336135340_))) + _methods135330_ + _$methods135334_)) + (_methods-bind135351_ + (map (lambda (_g135343135346_ + _g135344135348_) (let () (declare (not safe)) - (_generate-method-bind133208_ - _$klass135322_ - _$method-table135324_ - _g135339135342_ - _g135340135344_))) - _methods135326_ - _$methods135330_)) - (_slots135349_ + (_generate-method-bind133212_ + _$klass135326_ + _$method-table135328_ + _g135343135346_ + _g135344135348_))) + _methods135330_ + _$methods135334_)) + (_slots135353_ (let () (declare (not safe)) - (hash-keys _slot-refs133299_))) - (_$slots135353_ - (map (lambda (_id135351_) - (let ((__tmp137413 - (gensym _id135351_))) + (hash-keys _slot-refs133303_))) + (_$slots135357_ + (map (lambda (_id135355_) + (let ((__tmp137417 + (gensym _id135355_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp137413))) - _slots135349_)) - (_g137414_ + __tmp137417))) + _slots135353_)) + (_g137418_ (for-each - (lambda (_g135354135357_ - _g135355135359_) + (lambda (_g135358135361_ + _g135359135363_) (let () (declare (not safe)) (hash-put! - _slot-refs133299_ - _g135354135357_ - _g135355135359_))) - _slots135349_ - _$slots135353_)) - (_slots-bind135370_ - (map (lambda (_g135362135365_ - _g135363135367_) + _slot-refs133303_ + _g135358135361_ + _g135359135363_))) + _slots135353_ + _$slots135357_)) + (_slots-bind135374_ + (map (lambda (_g135366135369_ + _g135367135371_) (let () (declare (not safe)) - (_generate-slot-bind133209_ - _$klass135322_ - _g135362135365_ - _g135363135367_))) - _slots135349_ - _$slots135353_)) - (_specializer-impl135378_ - (let* ((_specializer-body135376_ - (map (lambda (_g135371135373_) + (_generate-slot-bind133213_ + _$klass135326_ + _g135366135369_ + _g135367135371_))) + _slots135353_ + _$slots135357_)) + (_specializer-impl135382_ + (let* ((_specializer-body135380_ + (map (lambda (_g135375135377_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g135371135373_ + _g135375135377_ 'receiver: - _self135308_ + _self135312_ 'klass: - _$klass135322_ + _$klass135326_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L135291_)) - (__tmp137415 - (let ((__tmp137416 - (let ((__tmp137418 - (let ((__tmp137419 + _slot-refs133303_))) + _L135295_)) + (__tmp137419 + (let ((__tmp137420 + (let ((__tmp137422 + (let ((__tmp137423 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137431 + (let ((__tmp137435 (let () (declare (not safe)) - (cons _L134954_ '()))) - (__tmp137420 - (let ((__tmp137421 - (let ((__tmp137422 - (let ((__tmp137424 - (let ((__tmp137425 - (let ((__tmp137430 + (cons _L134958_ '()))) + (__tmp137424 + (let ((__tmp137425 + (let ((__tmp137426 + (let ((__tmp137428 + (let ((__tmp137429 + (let ((__tmp137434 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L134953_ '()))) - (__tmp137426 - (let ((__tmp137427 - (let ((__tmp137428 - (let ((__tmp137429 + (cons _L134957_ '()))) + (__tmp137430 + (let ((__tmp137431 + (let ((__tmp137432 + (let ((__tmp137433 (let () (declare (not safe)) - (cons _L135292_ - _specializer-body135376_)))) + (cons _L135296_ + _specializer-body135380_)))) (declare (not safe)) - (cons '%#lambda __tmp137429)))) + (cons '%#lambda __tmp137433)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137428 - _L134952_)))) + __tmp137432 + _L134956_)))) (declare (not safe)) - (cons __tmp137427 '())))) + (cons __tmp137431 '())))) (declare (not safe)) - (cons __tmp137430 __tmp137426)))) + (cons __tmp137434 __tmp137430)))) (declare (not safe)) - (cons __tmp137425 '()))) - (__tmp137423 - (let () (declare (not safe)) (cons _L134951_ '())))) + (cons __tmp137429 '()))) + (__tmp137427 + (let () (declare (not safe)) (cons _L134955_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137424 - __tmp137423)))) + (cons __tmp137428 + __tmp137427)))) (declare (not safe)) (cons '%#let-values - __tmp137422)))) + __tmp137426)))) (declare (not safe)) - (cons __tmp137421 '())))) + (cons __tmp137425 '())))) (declare (not safe)) - (cons __tmp137431 __tmp137420)))) + (cons __tmp137435 __tmp137424)))) (declare (not safe)) - (cons __tmp137419 '()))) - (__tmp137417 - (let () (declare (not safe)) (cons _L134950_ '())))) + (cons __tmp137423 '()))) + (__tmp137421 + (let () (declare (not safe)) (cons _L134954_ '())))) (declare (not safe)) - (cons __tmp137418 __tmp137417)))) + (cons __tmp137422 __tmp137421)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp137416)))) + __tmp137420)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137415 - _stx133206_))) - (_specializer-impl135380_ + __tmp137419 + _stx133210_))) + (_specializer-impl135384_ (let () (declare (not safe)) - (_generate-specializer-impl133210_ - _$klass135322_ - _$method-table135324_ - _methods-bind135347_ - _slots-bind135370_ - _specializer-impl135378_)))) - (let ((__tmp137433 + (_generate-specializer-impl133214_ + _$klass135326_ + _$method-table135328_ + _methods-bind135351_ + _slots-bind135374_ + _specializer-impl135382_)))) + (let ((__tmp137437 (let () (declare (not safe)) - (gx#stx-e _L133279_))) - (__tmp137432 + (gx#stx-e _L133283_))) + (__tmp137436 (let () (declare (not safe)) - (gx#stx-e _specializer-id135320_)))) + (gx#stx-e _specializer-id135324_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137433 + __tmp137437 '" => " - __tmp137432)) + __tmp137436)) (let () (declare (not safe)) - (_generate-specializer-def133211_ - _L133279_ - _specializer-id135320_ - _specializer-impl135380_)))))) - _tl135263135288_ - _hd135264135286_))) + (_generate-specializer-def133215_ + _L133283_ + _specializer-id135324_ + _specializer-impl135384_)))))) + _tl135267135292_ + _hd135268135290_))) (let () (declare (not safe)) - (_g135256135270_ _g135257135273_))))) + (_g135260135274_ _g135261135277_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135256135270_ - _g135257135273_)))))) + (_g135260135274_ + _g135261135277_)))))) (declare (not safe)) - (_g135255135383_ _L134952_)) + (_g135259135387_ _L134956_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L134952_)) - (let* ((_g135386135416_ - (lambda (_g135387135413_) + (gxc#opt-lambda-expr? _L134956_)) + (let* ((_g135390135420_ + (lambda (_g135391135417_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135387135413_)))) - (_g135385135958_ - (lambda (_g135387135419_) + _g135391135417_)))) + (_g135389135962_ + (lambda (_g135391135423_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135387135419_)) - (let ((_e135393135421_ + _g135391135423_)) + (let ((_e135397135425_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g135387135419_)))) - (let ((_hd135392135424_ - (let () (declare (not safe)) (##car _e135393135421_))) - (_tl135391135426_ - (let () (declare (not safe)) (##cdr _e135393135421_)))) + (gx#stx-e _g135391135423_)))) + (let ((_hd135396135428_ + (let () (declare (not safe)) (##car _e135397135425_))) + (_tl135395135430_ + (let () (declare (not safe)) (##cdr _e135397135425_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135391135426_)) - (let ((_e135396135429_ + (gx#stx-pair? _tl135395135430_)) + (let ((_e135400135433_ (let () (declare (not safe)) - (gx#stx-e _tl135391135426_)))) - (let ((_hd135395135432_ + (gx#stx-e _tl135395135430_)))) + (let ((_hd135399135436_ (let () (declare (not safe)) - (##car _e135396135429_))) - (_tl135394135434_ + (##car _e135400135433_))) + (_tl135398135438_ (let () (declare (not safe)) - (##cdr _e135396135429_)))) + (##cdr _e135400135433_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135395135432_)) - (let ((_e135399135437_ + (gx#stx-pair? _hd135399135436_)) + (let ((_e135403135441_ (let () (declare (not safe)) - (gx#stx-e _hd135395135432_)))) - (let ((_hd135398135440_ + (gx#stx-e _hd135399135436_)))) + (let ((_hd135402135444_ (let () (declare (not safe)) - (##car _e135399135437_))) - (_tl135397135442_ + (##car _e135403135441_))) + (_tl135401135446_ (let () (declare (not safe)) - (##cdr _e135399135437_)))) + (##cdr _e135403135441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135398135440_)) - (let ((_e135402135445_ + (gx#stx-pair? _hd135402135444_)) + (let ((_e135406135449_ (let () (declare (not safe)) - (gx#stx-e _hd135398135440_)))) - (let ((_hd135401135448_ + (gx#stx-e _hd135402135444_)))) + (let ((_hd135405135452_ (let () (declare (not safe)) - (##car _e135402135445_))) - (_tl135400135450_ + (##car _e135406135449_))) + (_tl135404135454_ (let () (declare (not safe)) - (##cdr _e135402135445_)))) + (##cdr _e135406135449_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd135401135448_)) - (let ((_e135405135453_ + _hd135405135452_)) + (let ((_e135409135457_ (let () (declare (not safe)) (gx#stx-e - _hd135401135448_)))) - (let ((_hd135404135456_ + _hd135405135452_)))) + (let ((_hd135408135460_ (let () (declare (not safe)) - (##car _e135405135453_))) - (_tl135403135458_ + (##car _e135409135457_))) + (_tl135407135462_ (let () (declare (not safe)) - (##cdr _e135405135453_)))) + (##cdr _e135409135457_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135403135458_)) + _tl135407135462_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135400135450_)) - (let ((_e135408135461_ + _tl135404135454_)) + (let ((_e135412135465_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl135400135450_)))) - (let ((_hd135407135464_ + (gx#stx-e _tl135404135454_)))) + (let ((_hd135411135468_ (let () (declare (not safe)) - (##car _e135408135461_))) - (_tl135406135466_ + (##car _e135412135465_))) + (_tl135410135470_ (let () (declare (not safe)) - (##cdr _e135408135461_)))) + (##cdr _e135412135465_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135406135466_)) + (gx#stx-null? _tl135410135470_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl135397135442_)) + (gx#stx-null? _tl135401135446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135394135434_)) - (let ((_e135411135469_ + (gx#stx-pair? _tl135398135438_)) + (let ((_e135415135473_ (let () (declare (not safe)) - (gx#stx-e _tl135394135434_)))) - (let ((_hd135410135472_ + (gx#stx-e _tl135398135438_)))) + (let ((_hd135414135476_ (let () (declare (not safe)) - (##car _e135411135469_))) - (_tl135409135474_ + (##car _e135415135473_))) + (_tl135413135478_ (let () (declare (not safe)) - (##cdr _e135411135469_)))) + (##cdr _e135415135473_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135409135474_)) - ((lambda (_L135477_ - _L135478_ - _L135479_) - (let* ((_g135502135516_ - (lambda (_g135503135513_) + (gx#stx-null? _tl135413135478_)) + ((lambda (_L135481_ + _L135482_ + _L135483_) + (let* ((_g135506135520_ + (lambda (_g135507135517_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135503135513_)))) - (_g135501135557_ - (lambda (_g135503135519_) + _g135507135517_)))) + (_g135505135561_ + (lambda (_g135507135523_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135503135519_)) - (let ((_e135508135521_ + _g135507135523_)) + (let ((_e135512135525_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g135503135519_)))) - (let ((_hd135507135524_ + (gx#stx-e _g135507135523_)))) + (let ((_hd135511135528_ (let () (declare (not safe)) - (##car _e135508135521_))) - (_tl135506135526_ + (##car _e135512135525_))) + (_tl135510135530_ (let () (declare (not safe)) - (##cdr _e135508135521_)))) + (##cdr _e135512135525_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135506135526_)) - (let ((_e135511135529_ + (gx#stx-pair? _tl135510135530_)) + (let ((_e135515135533_ (let () (declare (not safe)) - (gx#stx-e _tl135506135526_)))) - (let ((_hd135510135532_ + (gx#stx-e _tl135510135530_)))) + (let ((_hd135514135536_ (let () (declare (not safe)) - (##car _e135511135529_))) - (_tl135509135534_ + (##car _e135515135533_))) + (_tl135513135538_ (let () (declare (not safe)) - (##cdr _e135511135529_)))) - ((lambda (_L135537_ _L135538_) - (let ((_self135551_ + (##cdr _e135515135533_)))) + ((lambda (_L135541_ _L135542_) + (let ((_self135555_ (list-ref - _L135538_ - _self-index135253_))) + _L135542_ + _self-index135257_))) (for-each - (lambda (_g135552135554_) + (lambda (_g135556135558_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g135552135554_ + _g135556135558_ 'receiver: - _self135551_ + _self135555_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L135537_))) - _tl135509135534_ - _hd135510135532_))) + _slot-refs133303_))) + _L135541_))) + _tl135513135538_ + _hd135514135536_))) (let () (declare (not safe)) - (_g135502135516_ _g135503135519_))))) + (_g135506135520_ _g135507135523_))))) (let () (declare (not safe)) - (_g135502135516_ _g135503135519_)))))) + (_g135506135520_ _g135507135523_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g135501135557_ _L135478_)) - (let* ((_g135560135579_ - (lambda (_g135561135576_) + (_g135505135561_ _L135482_)) + (let* ((_g135564135583_ + (lambda (_g135565135580_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135561135576_)))) - (_g135559135684_ - (lambda (_g135561135582_) + _g135565135580_)))) + (_g135563135688_ + (lambda (_g135565135586_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135561135582_)) - (let ((_e135565135584_ + _g135565135586_)) + (let ((_e135569135588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g135561135582_)))) - (let ((_hd135564135587_ + (gx#stx-e _g135565135586_)))) + (let ((_hd135568135591_ (let () (declare (not safe)) - (##car _e135565135584_))) - (_tl135563135589_ + (##car _e135569135588_))) + (_tl135567135593_ (let () (declare (not safe)) - (##cdr _e135565135584_)))) + (##cdr _e135569135588_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl135563135589_)) - (let ((_g137364_ + (gx#stx-pair/null? _tl135567135593_)) + (let ((_g137368_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl135563135589_ + _tl135567135593_ '0)))) (begin - (let ((_g137365_ + (let ((_g137369_ (let () (declare (not safe)) - (if (##values? _g137364_) - (##vector-length _g137364_) + (if (##values? _g137368_) + (##vector-length _g137368_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137365_ 2))) + (##fx= _g137369_ 2))) (error "Context expects 2 values" - _g137365_))) - (let ((_target135566135592_ + _g137369_))) + (let ((_target135570135596_ (let () (declare (not safe)) - (##vector-ref _g137364_ 0))) - (_tl135568135594_ + (##vector-ref _g137368_ 0))) + (_tl135572135598_ (let () (declare (not safe)) - (##vector-ref _g137364_ 1)))) + (##vector-ref _g137368_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135568135594_)) - (letrec ((_loop135569135597_ - (lambda (_hd135567135600_ - _clause135573135602_) + (gx#stx-null? _tl135572135598_)) + (letrec ((_loop135573135601_ + (lambda (_hd135571135604_ + _clause135577135606_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd135567135600_)) - (let ((_e135570135605_ + _hd135571135604_)) + (let ((_e135574135609_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd135567135600_)))) - (let ((_lp-hd135571135608_ - (let () (declare (not safe)) (##car _e135570135605_))) - (_lp-tl135572135610_ - (let () (declare (not safe)) (##cdr _e135570135605_)))) - (let ((__tmp137367 + (gx#stx-e _hd135571135604_)))) + (let ((_lp-hd135575135612_ + (let () (declare (not safe)) (##car _e135574135609_))) + (_lp-tl135576135614_ + (let () (declare (not safe)) (##cdr _e135574135609_)))) + (let ((__tmp137371 (let () (declare (not safe)) - (cons _lp-hd135571135608_ _clause135573135602_)))) + (cons _lp-hd135575135612_ _clause135577135606_)))) (declare (not safe)) - (_loop135569135597_ _lp-tl135572135610_ __tmp137367)))) - (let ((_clause135574135613_ (reverse _clause135573135602_))) - ((lambda (_L135616_) + (_loop135573135601_ _lp-tl135576135614_ __tmp137371)))) + (let ((_clause135578135617_ (reverse _clause135577135606_))) + ((lambda (_L135620_) (for-each - (lambda (_clause135629_) - (let* ((_g135631135642_ - (lambda (_g135632135639_) + (lambda (_clause135633_) + (let* ((_g135635135646_ + (lambda (_g135636135643_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135632135639_)))) - (_g135630135674_ - (lambda (_g135632135645_) + _g135636135643_)))) + (_g135634135678_ + (lambda (_g135636135649_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135632135645_)) - (let ((_e135637135647_ + (gx#stx-pair? _g135636135649_)) + (let ((_e135641135651_ (let () (declare (not safe)) - (gx#stx-e _g135632135645_)))) - (let ((_hd135636135650_ + (gx#stx-e _g135636135649_)))) + (let ((_hd135640135654_ (let () (declare (not safe)) - (##car _e135637135647_))) - (_tl135635135652_ + (##car _e135641135651_))) + (_tl135639135656_ (let () (declare (not safe)) - (##cdr _e135637135647_)))) - ((lambda (_L135655_ _L135656_) - (let ((_self135668_ + (##cdr _e135641135651_)))) + ((lambda (_L135659_ _L135660_) + (let ((_self135672_ (list-ref - _L135656_ - _self-index135253_))) + _L135660_ + _self-index135257_))) (for-each - (lambda (_g135669135671_) + (lambda (_g135673135675_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g135669135671_ + _g135673135675_ 'receiver: - _self135668_ + _self135672_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L135655_))) - _tl135635135652_ - _hd135636135650_))) + _slot-refs133303_))) + _L135659_))) + _tl135639135656_ + _hd135640135654_))) (let () (declare (not safe)) - (_g135631135642_ _g135632135645_)))))) + (_g135635135646_ _g135636135649_)))))) (declare (not safe)) - (_g135630135674_ _clause135629_))) - (let ((__tmp137366 - (lambda (_g135676135679_ _g135677135681_) + (_g135634135678_ _clause135633_))) + (let ((__tmp137370 + (lambda (_g135680135683_ _g135681135685_) (let () (declare (not safe)) - (cons _g135676135679_ _g135677135681_))))) + (cons _g135680135683_ _g135681135685_))))) (declare (not safe)) - (foldr1 __tmp137366 '() _L135616_)))) - _clause135574135613_)))))) + (foldr1 __tmp137370 '() _L135620_)))) + _clause135578135617_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop135569135597_ - _target135566135592_ + (_loop135573135601_ + _target135570135596_ '()))) (let () (declare (not safe)) - (_g135560135579_ _g135561135582_)))))) + (_g135564135583_ _g135565135586_)))))) (let () (declare (not safe)) - (_g135560135579_ _g135561135582_))))) + (_g135564135583_ _g135565135586_))))) (let () (declare (not safe)) - (_g135560135579_ _g135561135582_)))))) + (_g135564135583_ _g135565135586_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g135559135684_ _L135477_)) + (_g135563135688_ _L135481_)) (if (let () (declare (not safe)) - (_no-specializer?133302_)) - _stx133206_ - (let* ((_specializer-id135693_ - (let* ((_id135687_ + (_no-specializer?133306_)) + _stx133210_ + (let* ((_specializer-id135697_ + (let* ((_id135691_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137368 + (let ((__tmp137372 (let () (declare (not safe)) - (gx#stx-e _L133279_)))) + (gx#stx-e _L133283_)))) (declare (not safe)) - (make-symbol__1 __tmp137368 '"::specialize"))) - (_specializer-id135690_ - (let ((__tmp137369 + (make-symbol__1 __tmp137372 '"::specialize"))) + (_specializer-id135694_ + (let ((__tmp137373 (let () (declare (not safe)) - (gx#stx-source _stx133206_)))) + (gx#stx-source _stx133210_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id135687_ __tmp137369)))) + (gx#core-quote-syntax__1 _id135691_ __tmp137373)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id135690_)) - _specializer-id135690_)) - (_$klass135695_ - (let ((__tmp137370 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id135694_)) + _specializer-id135694_)) + (_$klass135699_ + (let ((__tmp137374 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp137370))) - (_$method-table135697_ - (let ((__tmp137371 (gensym '__method-table))) + (make-symbol__0 __tmp137374))) + (_$method-table135701_ + (let ((__tmp137375 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp137371))) - (_methods135699_ + (make-symbol__0 __tmp137375))) + (_methods135703_ (let () (declare (not safe)) - (hash-keys _method-calls133298_))) - (_$methods135703_ - (map (lambda (_id135701_) - (let ((__tmp137372 (gensym _id135701_))) + (hash-keys _method-calls133302_))) + (_$methods135707_ + (map (lambda (_id135705_) + (let ((__tmp137376 (gensym _id135705_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137372))) - _methods135699_)) - (_g137373_ + (make-symbol__1 '"__" __tmp137376))) + _methods135703_)) + (_g137377_ (for-each - (lambda (_g135704135707_ _g135705135709_) + (lambda (_g135708135711_ _g135709135713_) (let () (declare (not safe)) (hash-put! - _method-calls133298_ - _g135704135707_ - _g135705135709_))) - _methods135699_ - _$methods135703_)) - (_methods-bind135720_ - (map (lambda (_g135712135715_ _g135713135717_) + _method-calls133302_ + _g135708135711_ + _g135709135713_))) + _methods135703_ + _$methods135707_)) + (_methods-bind135724_ + (map (lambda (_g135716135719_ _g135717135721_) (let () (declare (not safe)) - (_generate-method-bind133208_ - _$klass135695_ - _$method-table135697_ - _g135712135715_ - _g135713135717_))) - _methods135699_ - _$methods135703_)) - (_slots135722_ - (let () (declare (not safe)) (hash-keys _slot-refs133299_))) - (_$slots135726_ - (map (lambda (_id135724_) - (let ((__tmp137374 (gensym _id135724_))) + (_generate-method-bind133212_ + _$klass135699_ + _$method-table135701_ + _g135716135719_ + _g135717135721_))) + _methods135703_ + _$methods135707_)) + (_slots135726_ + (let () (declare (not safe)) (hash-keys _slot-refs133303_))) + (_$slots135730_ + (map (lambda (_id135728_) + (let ((__tmp137378 (gensym _id135728_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137374))) - _slots135722_)) - (_g137375_ + (make-symbol__1 '"__" __tmp137378))) + _slots135726_)) + (_g137379_ (for-each - (lambda (_g135727135730_ _g135728135732_) + (lambda (_g135731135734_ _g135732135736_) (let () (declare (not safe)) (hash-put! - _slot-refs133299_ - _g135727135730_ - _g135728135732_))) - _slots135722_ - _$slots135726_)) - (_slots-bind135743_ - (map (lambda (_g135735135738_ _g135736135740_) + _slot-refs133303_ + _g135731135734_ + _g135732135736_))) + _slots135726_ + _$slots135730_)) + (_slots-bind135747_ + (map (lambda (_g135739135742_ _g135740135744_) (let () (declare (not safe)) - (_generate-slot-bind133209_ - _$klass135695_ - _g135735135738_ - _g135736135740_))) - _slots135722_ - _$slots135726_)) - (_specializer-lambda-expr135816_ - (let* ((_g135745135759_ - (lambda (_g135746135756_) + (_generate-slot-bind133213_ + _$klass135699_ + _g135739135742_ + _g135740135744_))) + _slots135726_ + _$slots135730_)) + (_specializer-lambda-expr135820_ + (let* ((_g135749135763_ + (lambda (_g135750135760_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135746135756_)))) - (_g135744135813_ - (lambda (_g135746135762_) + _g135750135760_)))) + (_g135748135817_ + (lambda (_g135750135766_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135746135762_)) - (let ((_e135751135764_ + (gx#stx-pair? _g135750135766_)) + (let ((_e135755135768_ (let () (declare (not safe)) - (gx#stx-e _g135746135762_)))) - (let ((_hd135750135767_ + (gx#stx-e _g135750135766_)))) + (let ((_hd135754135771_ (let () (declare (not safe)) - (##car _e135751135764_))) - (_tl135749135769_ + (##car _e135755135768_))) + (_tl135753135773_ (let () (declare (not safe)) - (##cdr _e135751135764_)))) + (##cdr _e135755135768_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135749135769_)) - (let ((_e135754135772_ + (gx#stx-pair? _tl135753135773_)) + (let ((_e135758135776_ (let () (declare (not safe)) - (gx#stx-e _tl135749135769_)))) - (let ((_hd135753135775_ + (gx#stx-e _tl135753135773_)))) + (let ((_hd135757135779_ (let () (declare (not safe)) - (##car _e135754135772_))) - (_tl135752135777_ + (##car _e135758135776_))) + (_tl135756135781_ (let () (declare (not safe)) - (##cdr _e135754135772_)))) - ((lambda (_L135780_ _L135781_) - (let* ((_self135804_ + (##cdr _e135758135776_)))) + ((lambda (_L135784_ _L135785_) + (let* ((_self135808_ (list-ref - _L135781_ - _self-index135253_)) - (_body135810_ - (map (lambda (_g135805135807_) + _L135785_ + _self-index135257_)) + (_body135814_ + (map (lambda (_g135809135811_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g135805135807_ + _g135809135811_ 'receiver: - _self135804_ + _self135808_ 'klass: - _$klass135695_ + _$klass135699_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L135780_))) + _slot-refs133303_))) + _L135784_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp137376 - (let ((__tmp137377 + (let ((__tmp137380 + (let ((__tmp137381 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L135781_ _body135810_)))) + (cons _L135785_ _body135814_)))) (declare (not safe)) - (cons '%#lambda __tmp137377)))) + (cons '%#lambda __tmp137381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp137376 - _L135478_)))) - _tl135752135777_ - _hd135753135775_))) + __tmp137380 + _L135482_)))) + _tl135756135781_ + _hd135757135779_))) (let () (declare (not safe)) - (_g135745135759_ _g135746135762_))))) + (_g135749135763_ _g135750135766_))))) (let () (declare (not safe)) - (_g135745135759_ _g135746135762_)))))) + (_g135749135763_ _g135750135766_)))))) (declare (not safe)) - (_g135744135813_ _L135478_))) - (_specializer-case-lambda-expr135951_ - (let* ((_g135818135837_ - (lambda (_g135819135834_) + (_g135748135817_ _L135482_))) + (_specializer-case-lambda-expr135955_ + (let* ((_g135822135841_ + (lambda (_g135823135838_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135819135834_)))) - (_g135817135948_ - (lambda (_g135819135840_) + _g135823135838_)))) + (_g135821135952_ + (lambda (_g135823135844_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135819135840_)) - (let ((_e135823135842_ + (gx#stx-pair? _g135823135844_)) + (let ((_e135827135846_ (let () (declare (not safe)) - (gx#stx-e _g135819135840_)))) - (let ((_hd135822135845_ + (gx#stx-e _g135823135844_)))) + (let ((_hd135826135849_ (let () (declare (not safe)) - (##car _e135823135842_))) - (_tl135821135847_ + (##car _e135827135846_))) + (_tl135825135851_ (let () (declare (not safe)) - (##cdr _e135823135842_)))) + (##cdr _e135827135846_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl135821135847_)) - (let ((_g137378_ + (gx#stx-pair/null? _tl135825135851_)) + (let ((_g137382_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl135821135847_ + _tl135825135851_ '0)))) (begin - (let ((_g137379_ + (let ((_g137383_ (let () (declare (not safe)) - (if (##values? _g137378_) + (if (##values? _g137382_) (##vector-length - _g137378_) + _g137382_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137379_ 2))) + (##fx= _g137383_ 2))) (error "Context expects 2 values" - _g137379_))) - (let ((_target135824135850_ + _g137383_))) + (let ((_target135828135854_ (let () (declare (not safe)) (##vector-ref - _g137378_ + _g137382_ 0))) - (_tl135826135852_ + (_tl135830135856_ (let () (declare (not safe)) (##vector-ref - _g137378_ + _g137382_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135826135852_)) - (letrec ((_loop135827135855_ - (lambda (_hd135825135858_ + _tl135830135856_)) + (letrec ((_loop135831135859_ + (lambda (_hd135829135862_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause135831135860_) + _clause135835135864_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135825135858_)) - (let ((_e135828135863_ + (gx#stx-pair? _hd135829135862_)) + (let ((_e135832135867_ (let () (declare (not safe)) - (gx#stx-e _hd135825135858_)))) - (let ((_lp-hd135829135866_ + (gx#stx-e _hd135829135862_)))) + (let ((_lp-hd135833135870_ (let () (declare (not safe)) - (##car _e135828135863_))) - (_lp-tl135830135868_ + (##car _e135832135867_))) + (_lp-tl135834135872_ (let () (declare (not safe)) - (##cdr _e135828135863_)))) - (let ((__tmp137382 + (##cdr _e135832135867_)))) + (let ((__tmp137386 (let () (declare (not safe)) - (cons _lp-hd135829135866_ - _clause135831135860_)))) + (cons _lp-hd135833135870_ + _clause135835135864_)))) (declare (not safe)) - (_loop135827135855_ - _lp-tl135830135868_ - __tmp137382)))) - (let ((_clause135832135871_ - (reverse _clause135831135860_))) - ((lambda (_L135874_) - (let* ((_clauses135946_ - (map (lambda (_clause135888_) - (let* ((_g135890135901_ - (lambda (_g135891135898_) + (_loop135831135859_ + _lp-tl135834135872_ + __tmp137386)))) + (let ((_clause135836135875_ + (reverse _clause135835135864_))) + ((lambda (_L135878_) + (let* ((_clauses135950_ + (map (lambda (_clause135892_) + (let* ((_g135894135905_ + (lambda (_g135895135902_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135891135898_)))) - (_g135889135936_ - (lambda (_g135891135904_) + _g135895135902_)))) + (_g135893135940_ + (lambda (_g135895135908_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135891135904_)) - (let ((_e135896135906_ + _g135895135908_)) + (let ((_e135900135910_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g135891135904_)))) - (let ((_hd135895135909_ + (gx#stx-e _g135895135908_)))) + (let ((_hd135899135913_ (let () (declare (not safe)) - (##car _e135896135906_))) - (_tl135894135911_ + (##car _e135900135910_))) + (_tl135898135915_ (let () (declare (not safe)) - (##cdr _e135896135906_)))) - ((lambda (_L135914_ _L135915_) - (let* ((_self135927_ - (list-ref _L135915_ _self-index135253_)) - (_body135933_ - (map (lambda (_g135928135930_) + (##cdr _e135900135910_)))) + ((lambda (_L135918_ _L135919_) + (let* ((_self135931_ + (list-ref _L135919_ _self-index135257_)) + (_body135937_ + (map (lambda (_g135932135934_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g135928135930_ + _g135932135934_ 'receiver: - _self135927_ + _self135931_ 'klass: - _$klass135695_ + _$klass135699_ 'methods: - _method-calls133298_ + _method-calls133302_ 'slots: - _slot-refs133299_))) - _L135914_))) + _slot-refs133303_))) + _L135918_))) (let () (declare (not safe)) - (cons _L135915_ _body135933_)))) - _tl135894135911_ - _hd135895135909_))) + (cons _L135919_ _body135937_)))) + _tl135898135915_ + _hd135899135913_))) (let () (declare (not safe)) - (_g135890135901_ _g135891135904_)))))) + (_g135894135905_ _g135895135908_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g135889135936_ - _clause135888_))) - (let ((__tmp137380 - (lambda (_g135938135941_ - _g135939135943_) + (_g135893135940_ + _clause135892_))) + (let ((__tmp137384 + (lambda (_g135942135945_ + _g135943135947_) (let () (declare (not safe)) - (cons _g135938135941_ - _g135939135943_))))) + (cons _g135942135945_ + _g135943135947_))))) (declare (not safe)) - (foldr1 __tmp137380 + (foldr1 __tmp137384 '() - _L135874_)))) - (__tmp137381 + _L135878_)))) + (__tmp137385 (let () (declare (not safe)) (cons '%#case-lambda - _clauses135946_)))) + _clauses135950_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137381 - _L135477_))) - _clause135832135871_)))))) + __tmp137385 + _L135481_))) + _clause135836135875_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop135827135855_ - _target135824135850_ + (_loop135831135859_ + _target135828135854_ '()))) (let () (declare (not safe)) - (_g135818135837_ - _g135819135840_)))))) + (_g135822135841_ + _g135823135844_)))))) (let () (declare (not safe)) - (_g135818135837_ _g135819135840_))))) + (_g135822135841_ _g135823135844_))))) (let () (declare (not safe)) - (_g135818135837_ _g135819135840_)))))) + (_g135822135841_ _g135823135844_)))))) (declare (not safe)) - (_g135817135948_ _L135477_))) - (_specializer-impl135953_ - (let ((__tmp137383 - (let ((__tmp137384 - (let ((__tmp137386 - (let ((__tmp137387 - (let ((__tmp137404 + (_g135821135952_ _L135481_))) + (_specializer-impl135957_ + (let ((__tmp137387 + (let ((__tmp137388 + (let ((__tmp137390 + (let ((__tmp137391 + (let ((__tmp137408 (let () (declare (not safe)) - (cons _L134954_ '()))) - (__tmp137388 - (let ((__tmp137389 - (let ((__tmp137390 + (cons _L134958_ '()))) + (__tmp137392 + (let ((__tmp137393 + (let ((__tmp137394 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137392 - (let ((__tmp137393 - (let ((__tmp137403 + (let ((__tmp137396 + (let ((__tmp137397 + (let ((__tmp137407 (let () (declare (not safe)) - (cons _L134953_ '()))) - (__tmp137394 - (let ((__tmp137395 - (let ((__tmp137396 - (let ((__tmp137397 + (cons _L134957_ '()))) + (__tmp137398 + (let ((__tmp137399 + (let ((__tmp137400 + (let ((__tmp137401 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137399 - (let ((__tmp137400 - (let ((__tmp137402 + (let ((__tmp137403 + (let ((__tmp137404 + (let ((__tmp137406 (let () (declare (not safe)) - (cons _L135479_ '()))) - (__tmp137401 + (cons _L135483_ '()))) + (__tmp137405 (let () (declare (not safe)) - (cons _specializer-lambda-expr135816_ + (cons _specializer-lambda-expr135820_ '())))) (declare (not safe)) - (cons __tmp137402 __tmp137401)))) + (cons __tmp137406 __tmp137405)))) (declare (not safe)) - (cons __tmp137400 '()))) - (__tmp137398 + (cons __tmp137404 '()))) + (__tmp137402 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr135951_ + (cons _specializer-case-lambda-expr135955_ '())))) (declare (not safe)) - (cons __tmp137399 __tmp137398)))) + (cons __tmp137403 __tmp137402)))) (declare (not safe)) - (cons '%#let-values __tmp137397)))) + (cons '%#let-values __tmp137401)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137396 _stx133206_)))) + (gxc#xform-wrap-source __tmp137400 _stx133210_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137395 '())))) + (cons __tmp137399 '())))) (declare (not safe)) - (cons __tmp137403 __tmp137394)))) + (cons __tmp137407 __tmp137398)))) (declare (not safe)) - (cons __tmp137393 '()))) - (__tmp137391 + (cons __tmp137397 '()))) + (__tmp137395 (let () (declare (not safe)) - (cons _L134951_ '())))) + (cons _L134955_ '())))) (declare (not safe)) - (cons __tmp137392 __tmp137391)))) + (cons __tmp137396 __tmp137395)))) (declare (not safe)) - (cons '%#let-values __tmp137390)))) + (cons '%#let-values __tmp137394)))) (declare (not safe)) - (cons __tmp137389 '())))) + (cons __tmp137393 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137404 - __tmp137388)))) + (cons __tmp137408 + __tmp137392)))) (declare (not safe)) - (cons __tmp137387 '()))) - (__tmp137385 + (cons __tmp137391 '()))) + (__tmp137389 (let () (declare (not safe)) - (cons _L134950_ '())))) + (cons _L134954_ '())))) (declare (not safe)) - (cons __tmp137386 __tmp137385)))) + (cons __tmp137390 __tmp137389)))) (declare (not safe)) - (cons '%#let-values __tmp137384)))) + (cons '%#let-values __tmp137388)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137383 _stx133206_))) - (_specializer-impl135955_ + (gxc#xform-wrap-source __tmp137387 _stx133210_))) + (_specializer-impl135959_ (let () (declare (not safe)) - (_generate-specializer-impl133210_ - _$klass135695_ - _$method-table135697_ - _methods-bind135720_ - _slots-bind135743_ - _specializer-impl135953_)))) + (_generate-specializer-impl133214_ + _$klass135699_ + _$method-table135701_ + _methods-bind135724_ + _slots-bind135747_ + _specializer-impl135957_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp137406 + (let ((__tmp137410 (let () (declare (not safe)) (gx#stx-e - _L133279_))) - (__tmp137405 + _L133283_))) + (__tmp137409 (let () (declare (not safe)) (gx#stx-e - _specializer-id135693_)))) + _specializer-id135697_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137406 + __tmp137410 '" => " - __tmp137405)) + __tmp137409)) (let () (declare (not safe)) - (_generate-specializer-def133211_ - _L133279_ - _specializer-id135693_ - _specializer-impl135955_))))) - _hd135410135472_ - _hd135407135464_ - _hd135404135456_) + (_generate-specializer-def133215_ + _L133283_ + _specializer-id135697_ + _specializer-impl135959_))))) + _hd135414135476_ + _hd135411135468_ + _hd135408135460_) (let () (declare (not safe)) - (_g135386135416_ - _g135387135419_))))) + (_g135390135420_ + _g135391135423_))))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_))) + (_g135390135420_ _g135391135423_))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_))) + (_g135390135420_ _g135391135423_))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_))))) + (_g135390135420_ _g135391135423_))))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_))) + (_g135390135420_ _g135391135423_))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_))))) + (_g135390135420_ _g135391135423_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135386135416_ - _g135387135419_))))) + (_g135390135420_ + _g135391135423_))))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_))))) + (_g135390135420_ _g135391135423_))))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_))))) + (_g135390135420_ _g135391135423_))))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_))))) + (_g135390135420_ _g135391135423_))))) (let () (declare (not safe)) - (_g135386135416_ _g135387135419_)))))) + (_g135390135420_ _g135391135423_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g135385135958_ _L134952_)) - _stx133206_)))) - _hd135049135172_ - _kw-ref135047135193_ - _hd135037135159_ - _hd135028135135_ - _hd135019135111_) + (_g135389135962_ _L134956_)) + _stx133210_)))) + _hd135053135176_ + _kw-ref135051135197_ + _hd135041135163_ + _hd135032135139_ + _hd135023135115_) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_)))))))) + (_g134997135059_ _g134998135062_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop135042135177_ - _target135039135164_ + (_loop135046135181_ + _target135043135168_ '()))) (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))))) + (_g134997135059_ + _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_)))))) + (_g134997135059_ _g134998135062_)))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))))) + (_g134997135059_ _g134998135062_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))) + (_g134997135059_ + _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))) + (_g134997135059_ + _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))))) + (_g134997135059_ + _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))))) + (_g134997135059_ _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))))) + (_g134997135059_ _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))) + (_g134997135059_ + _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))))) + (_g134997135059_ + _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))))) + (_g134997135059_ _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))))) + (_g134997135059_ _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))))) + (_g134997135059_ + _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))))) + (_g134997135059_ + _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))))) + (_g134997135059_ _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))))) + (_g134997135059_ _g134998135062_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))))) + (_g134997135059_ + _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ - _g134994135058_))) + (_g134997135059_ + _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))) + (_g134997135059_ _g134998135062_))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_))))) + (_g134997135059_ _g134998135062_))))) (let () (declare (not safe)) - (_g134993135055_ _g134994135058_)))))) + (_g134997135059_ _g134998135062_)))))) (declare (not safe)) - (_g134992135961_ _L134951_))) + (_g134996135965_ _L134955_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd134827134945_ - _hd134824134937_ - _hd134821134929_ - _hd134818134921_ - _hd134800134873_) + _hd134831134949_ + _hd134828134941_ + _hd134825134933_ + _hd134822134925_ + _hd134804134877_) (let () (declare (not safe)) - (_g134780134833_ - _g134781134836_))))) + (_g134784134837_ + _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ - _g134781134836_))) + (_g134784134837_ + _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))) + (_g134784134837_ _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))) + (_g134784134837_ _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))) + (_g134784134837_ _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))) + (_g134784134837_ _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134780134833_ - _g134781134836_))) + (_g134784134837_ + _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ - _g134781134836_))))) + (_g134784134837_ + _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134780134833_ - _g134781134836_))) + (_g134784134837_ + _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ - _g134781134836_))) + (_g134784134837_ + _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ - _g134781134836_))))) + (_g134784134837_ + _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))) + (_g134784134837_ _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134780134833_ - _g134781134836_))))) + (_g134784134837_ + _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))) + (_g134784134837_ _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))) + (_g134784134837_ _g134785134840_))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_))))) + (_g134784134837_ _g134785134840_))))) (let () (declare (not safe)) - (_g134780134833_ _g134781134836_)))))) + (_g134784134837_ _g134785134840_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g134779135964_ _L133278_)) - _stx133206_)))))))) - (___kont136188136189_ (lambda () _stx133206_))) - (let ((___match136217136218_ - (lambda (_e133220133246_ - _hd133219133249_ - _tl133218133251_ - _e133223133254_ - _hd133222133257_ - _tl133221133259_ - _e133226133262_ - _hd133225133265_ - _tl133224133267_ - _e133229133270_ - _hd133228133273_ - _tl133227133275_) - (let ((_L133278_ _hd133228133273_) - (_L133279_ _hd133225133265_)) - (if (let ((__tmp137495 + (_g134783135968_ _L133282_)) + _stx133210_)))))))) + (___kont136192136193_ (lambda () _stx133210_))) + (let ((___match136221136222_ + (lambda (_e133224133250_ + _hd133223133253_ + _tl133222133255_ + _e133227133258_ + _hd133226133261_ + _tl133225133263_ + _e133230133266_ + _hd133229133269_ + _tl133228133271_ + _e133233133274_ + _hd133232133277_ + _tl133231133279_) + (let ((_L133282_ _hd133232133277_) + (_L133283_ _hd133229133269_)) + (if (let ((__tmp137499 (let () (declare (not safe)) - (gxc#identifier-symbol _L133279_)))) + (gxc#identifier-symbol _L133283_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp137495)) - (___kont136186136187_ _L133278_ _L133279_) - (___kont136188136189_)))))) + (gxc#optimizer-top-level-method? __tmp137499)) + (___kont136190136191_ _L133282_ _L133283_) + (___kont136192136193_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136184136185_)) - (let ((_e133220133246_ + (gx#stx-pair? ___stx136188136189_)) + (let ((_e133224133250_ (let () (declare (not safe)) - (gx#stx-e ___stx136184136185_)))) - (let ((_tl133218133251_ + (gx#stx-e ___stx136188136189_)))) + (let ((_tl133222133255_ (let () (declare (not safe)) - (##cdr _e133220133246_))) - (_hd133219133249_ + (##cdr _e133224133250_))) + (_hd133223133253_ (let () (declare (not safe)) - (##car _e133220133246_)))) + (##car _e133224133250_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133218133251_)) - (let ((_e133223133254_ + (gx#stx-pair? _tl133222133255_)) + (let ((_e133227133258_ (let () (declare (not safe)) - (gx#stx-e _tl133218133251_)))) - (let ((_tl133221133259_ + (gx#stx-e _tl133222133255_)))) + (let ((_tl133225133263_ (let () (declare (not safe)) - (##cdr _e133223133254_))) - (_hd133222133257_ + (##cdr _e133227133258_))) + (_hd133226133261_ (let () (declare (not safe)) - (##car _e133223133254_)))) + (##car _e133227133258_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133222133257_)) - (let ((_e133226133262_ + (gx#stx-pair? _hd133226133261_)) + (let ((_e133230133266_ (let () (declare (not safe)) - (gx#stx-e _hd133222133257_)))) - (let ((_tl133224133267_ + (gx#stx-e _hd133226133261_)))) + (let ((_tl133228133271_ (let () (declare (not safe)) - (##cdr _e133226133262_))) - (_hd133225133265_ + (##cdr _e133230133266_))) + (_hd133229133269_ (let () (declare (not safe)) - (##car _e133226133262_)))) + (##car _e133230133266_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133224133267_)) + (gx#stx-null? _tl133228133271_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133221133259_)) - (let ((_e133229133270_ + _tl133225133263_)) + (let ((_e133233133274_ (let () (declare (not safe)) (gx#stx-e - _tl133221133259_)))) - (let ((_tl133227133275_ + _tl133225133263_)))) + (let ((_tl133231133279_ (let () (declare (not safe)) - (##cdr _e133229133270_))) - (_hd133228133273_ + (##cdr _e133233133274_))) + (_hd133232133277_ (let () (declare (not safe)) - (##car _e133229133270_)))) + (##car _e133233133274_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133227133275_)) - (___match136217136218_ - _e133220133246_ - _hd133219133249_ - _tl133218133251_ - _e133223133254_ - _hd133222133257_ - _tl133221133259_ - _e133226133262_ - _hd133225133265_ - _tl133224133267_ - _e133229133270_ - _hd133228133273_ - _tl133227133275_) - (___kont136188136189_)))) - (___kont136188136189_)) - (___kont136188136189_)))) - (___kont136188136189_)))) - (___kont136188136189_)))) - (___kont136188136189_)))))))) + _tl133231133279_)) + (___match136221136222_ + _e133224133250_ + _hd133223133253_ + _tl133222133255_ + _e133227133258_ + _hd133226133261_ + _tl133225133263_ + _e133230133266_ + _hd133229133269_ + _tl133228133271_ + _e133233133274_ + _hd133232133277_ + _tl133231133279_) + (___kont136192136193_)))) + (___kont136192136193_)) + (___kont136192136193_)))) + (___kont136192136193_)))) + (___kont136192136193_)))) + (___kont136192136193_)))))))) (define gxc#collect-object-refs-call% - (lambda (_self132166_ _stx132167_) - (let* ((___stx136220136221_ _stx132167_) - (_g132175132397_ + (lambda (_self132170_ _stx132171_) + (let* ((___stx136224136225_ _stx132171_) + (_g132179132401_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136220136221_))))) - (let ((___kont136222136223_ - (lambda (_L133154_ _L133155_ _L133156_ _L133157_) - (let ((__tmp137497 + ___stx136224136225_))))) + (let ((___kont136226136227_ + (lambda (_L133158_ _L133159_ _L133160_ _L133161_) + (let ((__tmp137501 (let () (declare (not safe)) - (slot-ref__0 _self132166_ 'methods))) - (__tmp137496 - (let () (declare (not safe)) (gx#stx-e _L133155_)))) + (slot-ref__0 _self132170_ 'methods))) + (__tmp137500 + (let () (declare (not safe)) (gx#stx-e _L133159_)))) (declare (not safe)) - (hash-put! __tmp137497 __tmp137496 '#t)) + (hash-put! __tmp137501 __tmp137500 '#t)) (for-each - (lambda (_g133190133192_) + (lambda (_g133194133196_) (let () (declare (not safe)) - (gxc#compile-e__1 _self132166_ _g133190133192_))) - (let ((__tmp137498 - (lambda (_g133194133197_ _g133195133199_) + (gxc#compile-e__1 _self132170_ _g133194133196_))) + (let ((__tmp137502 + (lambda (_g133198133201_ _g133199133203_) (let () (declare (not safe)) - (cons _g133194133197_ _g133195133199_))))) + (cons _g133198133201_ _g133199133203_))))) (declare (not safe)) - (foldr1 __tmp137498 '() _L133154_))))) - (___kont136226136227_ - (lambda (_L132989_ _L132990_ _L132991_ _L132992_ _L132993_) - (let ((__tmp137500 + (foldr1 __tmp137502 '() _L133158_))))) + (___kont136230136231_ + (lambda (_L132993_ _L132994_ _L132995_ _L132996_ _L132997_) + (let ((__tmp137504 (let () (declare (not safe)) - (slot-ref__0 _self132166_ 'methods))) - (__tmp137499 - (let () (declare (not safe)) (gx#stx-e _L132990_)))) + (slot-ref__0 _self132170_ 'methods))) + (__tmp137503 + (let () (declare (not safe)) (gx#stx-e _L132994_)))) (declare (not safe)) - (hash-put! __tmp137500 __tmp137499 '#t)) + (hash-put! __tmp137504 __tmp137503 '#t)) (for-each - (lambda (_g133033133035_) + (lambda (_g133037133039_) (let () (declare (not safe)) - (gxc#compile-e__1 _self132166_ _g133033133035_))) - (let ((__tmp137501 - (lambda (_g133037133040_ _g133038133042_) + (gxc#compile-e__1 _self132170_ _g133037133039_))) + (let ((__tmp137505 + (lambda (_g133041133044_ _g133042133046_) (let () (declare (not safe)) - (cons _g133037133040_ _g133038133042_))))) + (cons _g133041133044_ _g133042133046_))))) (declare (not safe)) - (foldr1 __tmp137501 '() _L132989_))))) - (___kont136230136231_ - (lambda (_L132822_ _L132823_ _L132824_) - (let ((__tmp137503 + (foldr1 __tmp137505 '() _L132993_))))) + (___kont136234136235_ + (lambda (_L132826_ _L132827_ _L132828_) + (let ((__tmp137507 (let () (declare (not safe)) - (slot-ref__0 _self132166_ 'slots))) - (__tmp137502 - (let () (declare (not safe)) (gx#stx-e _L132822_)))) + (slot-ref__0 _self132170_ 'slots))) + (__tmp137506 + (let () (declare (not safe)) (gx#stx-e _L132826_)))) (declare (not safe)) - (hash-put! __tmp137503 __tmp137502 '#t)))) - (___kont136232136233_ - (lambda (_L132699_ _L132700_ _L132701_ _L132702_) - (let ((__tmp137505 + (hash-put! __tmp137507 __tmp137506 '#t)))) + (___kont136236136237_ + (lambda (_L132703_ _L132704_ _L132705_ _L132706_) + (let ((__tmp137509 (let () (declare (not safe)) - (slot-ref__0 _self132166_ 'slots))) - (__tmp137504 - (let () (declare (not safe)) (gx#stx-e _L132700_)))) + (slot-ref__0 _self132170_ 'slots))) + (__tmp137508 + (let () (declare (not safe)) (gx#stx-e _L132704_)))) (declare (not safe)) - (hash-put! __tmp137505 __tmp137504 '#t)) + (hash-put! __tmp137509 __tmp137508 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _self132166_ _L132699_)))) - (___kont136234136235_ - (lambda (_L132573_ _L132574_) - (let* ((_accessor132596_ - (let ((__tmp137506 + (gxc#compile-e__1 _self132170_ _L132703_)))) + (___kont136238136239_ + (lambda (_L132577_ _L132578_) + (let* ((_accessor132600_ + (let ((__tmp137510 (let () (declare (not safe)) - (gxc#identifier-symbol _L132574_)))) + (gxc#identifier-symbol _L132578_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp137506))) - (_klass132598_ - (let ((__tmp137507 + (gxc#optimizer-resolve-type __tmp137510))) + (_klass132602_ + (let ((__tmp137511 (##structure-ref - _accessor132596_ + _accessor132600_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx132167_ - __tmp137507))) - (_slot132600_ + _stx132171_ + __tmp137511))) + (_slot132604_ (##structure-ref - _accessor132596_ + _accessor132600_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp137510 + (if (and (let ((__tmp137514 (##structure-ref - _accessor132596_ + _accessor132600_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp137510)) + (not __tmp137514)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass132598_ - _slot132600_)) + _klass132602_ + _slot132604_)) (##structure-ref - _klass132598_ + _klass132602_ '8 gxc#!class::t '#f))) '#!void - (let ((__tmp137509 + (let ((__tmp137513 (let () (declare (not safe)) - (slot-ref__0 _self132166_ 'slots))) - (__tmp137508 + (slot-ref__0 _self132170_ 'slots))) + (__tmp137512 (##structure-ref - _accessor132596_ + _accessor132600_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp137509 __tmp137508 '#t)))))) - (___kont136236136237_ - (lambda (_L132473_ _L132474_ _L132475_) - (let* ((_mutator132502_ - (let ((__tmp137511 + (hash-put! __tmp137513 __tmp137512 '#t)))))) + (___kont136240136241_ + (lambda (_L132477_ _L132478_ _L132479_) + (let* ((_mutator132506_ + (let ((__tmp137515 (let () (declare (not safe)) - (gxc#identifier-symbol _L132475_)))) + (gxc#identifier-symbol _L132479_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp137511))) - (_klass132504_ - (let ((__tmp137512 + (gxc#optimizer-resolve-type __tmp137515))) + (_klass132508_ + (let ((__tmp137516 (##structure-ref - _mutator132502_ + _mutator132506_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx132167_ - __tmp137512))) - (_slot132506_ + _stx132171_ + __tmp137516))) + (_slot132510_ (##structure-ref - _mutator132502_ + _mutator132506_ '2 gxc#!mutator::t '#f))) - (if (and (let ((__tmp137514 + (if (and (let ((__tmp137518 (##structure-ref - _mutator132502_ + _mutator132506_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp137514)) + (not __tmp137518)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass132504_ - _slot132506_)) + _klass132508_ + _slot132510_)) (##structure-ref - _klass132504_ + _klass132508_ '8 gxc#!class::t '#f))) '#!void - (let ((__tmp137513 + (let ((__tmp137517 (let () (declare (not safe)) - (slot-ref__0 _self132166_ 'slots)))) + (slot-ref__0 _self132170_ 'slots)))) (declare (not safe)) - (hash-put! __tmp137513 _slot132506_ '#t))) + (hash-put! __tmp137517 _slot132510_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _self132166_ _L132473_))))) - (___kont136238136239_ + (gxc#compile-e__1 _self132170_ _L132477_))))) + (___kont136242136243_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _self132166_ _stx132167_))))) - (let* ((___match136719136720_ - (lambda (_e132371132409_ - _hd132370132412_ - _tl132369132414_ - _e132374132417_ - _hd132373132420_ - _tl132372132422_ - _e132377132425_ - _hd132376132428_ - _tl132375132430_ - _e132380132433_ - _hd132379132436_ - _tl132378132438_ - _e132383132441_ - _hd132382132444_ - _tl132381132446_ - _e132386132449_ - _hd132385132452_ - _tl132384132454_ - _e132389132457_ - _hd132388132460_ - _tl132387132462_ - _e132392132465_ - _hd132391132468_ - _tl132390132470_) - (let ((_L132473_ _hd132391132468_) - (_L132474_ _hd132388132460_) - (_L132475_ _hd132379132436_)) - (if (and (let ((__tmp137516 - (let ((__tmp137517 + (gxc#apply-operands _self132170_ _stx132171_))))) + (let* ((___match136723136724_ + (lambda (_e132375132413_ + _hd132374132416_ + _tl132373132418_ + _e132378132421_ + _hd132377132424_ + _tl132376132426_ + _e132381132429_ + _hd132380132432_ + _tl132379132434_ + _e132384132437_ + _hd132383132440_ + _tl132382132442_ + _e132387132445_ + _hd132386132448_ + _tl132385132450_ + _e132390132453_ + _hd132389132456_ + _tl132388132458_ + _e132393132461_ + _hd132392132464_ + _tl132391132466_ + _e132396132469_ + _hd132395132472_ + _tl132394132474_) + (let ((_L132477_ _hd132395132472_) + (_L132478_ _hd132392132464_) + (_L132479_ _hd132383132440_)) + (if (and (let ((__tmp137520 + (let ((__tmp137521 (let () (declare (not safe)) (gxc#identifier-symbol - _L132475_)))) + _L132479_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp137517)))) + __tmp137521)))) (declare (not safe)) (##structure-instance-of? - __tmp137516 + __tmp137520 'gxc#!mutator::t)) - (let ((__tmp137515 + (let ((__tmp137519 (let () (declare (not safe)) (slot-ref__0 - _self132166_ + _self132170_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L132474_ - __tmp137515))) - (___kont136236136237_ - _L132473_ - _L132474_ - _L132475_) - (___kont136238136239_))))) - (___match136717136718_ - (lambda (_e132371132409_ - _hd132370132412_ - _tl132369132414_ - _e132374132417_ - _hd132373132420_ - _tl132372132422_ - _e132377132425_ - _hd132376132428_ - _tl132375132430_ - _e132380132433_ - _hd132379132436_ - _tl132378132438_ - _e132383132441_ - _hd132382132444_ - _tl132381132446_ - _e132386132449_ - _hd132385132452_ - _tl132384132454_ - _e132389132457_ - _hd132388132460_ - _tl132387132462_ - _e132392132465_ - _hd132391132468_ - _tl132390132470_) + _L132478_ + __tmp137519))) + (___kont136240136241_ + _L132477_ + _L132478_ + _L132479_) + (___kont136242136243_))))) + (___match136721136722_ + (lambda (_e132375132413_ + _hd132374132416_ + _tl132373132418_ + _e132378132421_ + _hd132377132424_ + _tl132376132426_ + _e132381132429_ + _hd132380132432_ + _tl132379132434_ + _e132384132437_ + _hd132383132440_ + _tl132382132442_ + _e132387132445_ + _hd132386132448_ + _tl132385132450_ + _e132390132453_ + _hd132389132456_ + _tl132388132458_ + _e132393132461_ + _hd132392132464_ + _tl132391132466_ + _e132396132469_ + _hd132395132472_ + _tl132394132474_) (if (let () (declare (not safe)) - (gx#stx-null? _tl132390132470_)) - (___match136719136720_ - _e132371132409_ - _hd132370132412_ - _tl132369132414_ - _e132374132417_ - _hd132373132420_ - _tl132372132422_ - _e132377132425_ - _hd132376132428_ - _tl132375132430_ - _e132380132433_ - _hd132379132436_ - _tl132378132438_ - _e132383132441_ - _hd132382132444_ - _tl132381132446_ - _e132386132449_ - _hd132385132452_ - _tl132384132454_ - _e132389132457_ - _hd132388132460_ - _tl132387132462_ - _e132392132465_ - _hd132391132468_ - _tl132390132470_) - (___kont136238136239_)))) - (___match136711136712_ - (lambda (_e132371132409_ - _hd132370132412_ - _tl132369132414_ - _e132374132417_ - _hd132373132420_ - _tl132372132422_ - _e132377132425_ - _hd132376132428_ - _tl132375132430_ - _e132380132433_ - _hd132379132436_ - _tl132378132438_ - _e132383132441_ - _hd132382132444_ - _tl132381132446_ - _e132386132449_ - _hd132385132452_ - _tl132384132454_ - _e132389132457_ - _hd132388132460_ - _tl132387132462_) + (gx#stx-null? _tl132394132474_)) + (___match136723136724_ + _e132375132413_ + _hd132374132416_ + _tl132373132418_ + _e132378132421_ + _hd132377132424_ + _tl132376132426_ + _e132381132429_ + _hd132380132432_ + _tl132379132434_ + _e132384132437_ + _hd132383132440_ + _tl132382132442_ + _e132387132445_ + _hd132386132448_ + _tl132385132450_ + _e132390132453_ + _hd132389132456_ + _tl132388132458_ + _e132393132461_ + _hd132392132464_ + _tl132391132466_ + _e132396132469_ + _hd132395132472_ + _tl132394132474_) + (___kont136242136243_)))) + (___match136715136716_ + (lambda (_e132375132413_ + _hd132374132416_ + _tl132373132418_ + _e132378132421_ + _hd132377132424_ + _tl132376132426_ + _e132381132429_ + _hd132380132432_ + _tl132379132434_ + _e132384132437_ + _hd132383132440_ + _tl132382132442_ + _e132387132445_ + _hd132386132448_ + _tl132385132450_ + _e132390132453_ + _hd132389132456_ + _tl132388132458_ + _e132393132461_ + _hd132392132464_ + _tl132391132466_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132381132446_)) - (let ((_e132392132465_ + (gx#stx-pair? _tl132385132450_)) + (let ((_e132396132469_ (let () (declare (not safe)) - (gx#stx-e _tl132381132446_)))) - (let ((_tl132390132470_ + (gx#stx-e _tl132385132450_)))) + (let ((_tl132394132474_ (let () (declare (not safe)) - (##cdr _e132392132465_))) - (_hd132391132468_ + (##cdr _e132396132469_))) + (_hd132395132472_ (let () (declare (not safe)) - (##car _e132392132465_)))) + (##car _e132396132469_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132390132470_)) - (___match136719136720_ - _e132371132409_ - _hd132370132412_ - _tl132369132414_ - _e132374132417_ - _hd132373132420_ - _tl132372132422_ - _e132377132425_ - _hd132376132428_ - _tl132375132430_ - _e132380132433_ - _hd132379132436_ - _tl132378132438_ - _e132383132441_ - _hd132382132444_ - _tl132381132446_ - _e132386132449_ - _hd132385132452_ - _tl132384132454_ - _e132389132457_ - _hd132388132460_ - _tl132387132462_ - _e132392132465_ - _hd132391132468_ - _tl132390132470_) - (___kont136238136239_)))) - (___kont136238136239_)))) - (___match136657136658_ - (lambda (_e132347132517_ - _hd132346132520_ - _tl132345132522_ - _e132350132525_ - _hd132349132528_ - _tl132348132530_ - _e132353132533_ - _hd132352132536_ - _tl132351132538_ - _e132356132541_ - _hd132355132544_ - _tl132354132546_ - _e132359132549_ - _hd132358132552_ - _tl132357132554_ - _e132362132557_ - _hd132361132560_ - _tl132360132562_ - _e132365132565_ - _hd132364132568_ - _tl132363132570_) - (let ((_L132573_ _hd132364132568_) - (_L132574_ _hd132355132544_)) - (if (and (let ((__tmp137519 - (let ((__tmp137520 + (gx#stx-null? _tl132394132474_)) + (___match136723136724_ + _e132375132413_ + _hd132374132416_ + _tl132373132418_ + _e132378132421_ + _hd132377132424_ + _tl132376132426_ + _e132381132429_ + _hd132380132432_ + _tl132379132434_ + _e132384132437_ + _hd132383132440_ + _tl132382132442_ + _e132387132445_ + _hd132386132448_ + _tl132385132450_ + _e132390132453_ + _hd132389132456_ + _tl132388132458_ + _e132393132461_ + _hd132392132464_ + _tl132391132466_ + _e132396132469_ + _hd132395132472_ + _tl132394132474_) + (___kont136242136243_)))) + (___kont136242136243_)))) + (___match136661136662_ + (lambda (_e132351132521_ + _hd132350132524_ + _tl132349132526_ + _e132354132529_ + _hd132353132532_ + _tl132352132534_ + _e132357132537_ + _hd132356132540_ + _tl132355132542_ + _e132360132545_ + _hd132359132548_ + _tl132358132550_ + _e132363132553_ + _hd132362132556_ + _tl132361132558_ + _e132366132561_ + _hd132365132564_ + _tl132364132566_ + _e132369132569_ + _hd132368132572_ + _tl132367132574_) + (let ((_L132577_ _hd132368132572_) + (_L132578_ _hd132359132548_)) + (if (and (let ((__tmp137523 + (let ((__tmp137524 (let () (declare (not safe)) (gxc#identifier-symbol - _L132574_)))) + _L132578_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp137520)))) + __tmp137524)))) (declare (not safe)) (##structure-instance-of? - __tmp137519 + __tmp137523 'gxc#!accessor::t)) - (let ((__tmp137518 + (let ((__tmp137522 (let () (declare (not safe)) (slot-ref__0 - _self132166_ + _self132170_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L132573_ - __tmp137518))) - (___kont136234136235_ _L132573_ _L132574_) - (___kont136238136239_))))) - (___match136655136656_ - (lambda (_e132347132517_ - _hd132346132520_ - _tl132345132522_ - _e132350132525_ - _hd132349132528_ - _tl132348132530_ - _e132353132533_ - _hd132352132536_ - _tl132351132538_ - _e132356132541_ - _hd132355132544_ - _tl132354132546_ - _e132359132549_ - _hd132358132552_ - _tl132357132554_ - _e132362132557_ - _hd132361132560_ - _tl132360132562_ - _e132365132565_ - _hd132364132568_ - _tl132363132570_) + _L132577_ + __tmp137522))) + (___kont136238136239_ _L132577_ _L132578_) + (___kont136242136243_))))) + (___match136659136660_ + (lambda (_e132351132521_ + _hd132350132524_ + _tl132349132526_ + _e132354132529_ + _hd132353132532_ + _tl132352132534_ + _e132357132537_ + _hd132356132540_ + _tl132355132542_ + _e132360132545_ + _hd132359132548_ + _tl132358132550_ + _e132363132553_ + _hd132362132556_ + _tl132361132558_ + _e132366132561_ + _hd132365132564_ + _tl132364132566_ + _e132369132569_ + _hd132368132572_ + _tl132367132574_) (if (let () (declare (not safe)) - (gx#stx-null? _tl132357132554_)) - (___match136657136658_ - _e132347132517_ - _hd132346132520_ - _tl132345132522_ - _e132350132525_ - _hd132349132528_ - _tl132348132530_ - _e132353132533_ - _hd132352132536_ - _tl132351132538_ - _e132356132541_ - _hd132355132544_ - _tl132354132546_ - _e132359132549_ - _hd132358132552_ - _tl132357132554_ - _e132362132557_ - _hd132361132560_ - _tl132360132562_ - _e132365132565_ - _hd132364132568_ - _tl132363132570_) - (___match136711136712_ - _e132347132517_ - _hd132346132520_ - _tl132345132522_ - _e132350132525_ - _hd132349132528_ - _tl132348132530_ - _e132353132533_ - _hd132352132536_ - _tl132351132538_ - _e132356132541_ - _hd132355132544_ - _tl132354132546_ - _e132359132549_ - _hd132358132552_ - _tl132357132554_ - _e132362132557_ - _hd132361132560_ - _tl132360132562_ - _e132365132565_ - _hd132364132568_ - _tl132363132570_)))) - (___match136601136602_ - (lambda (_e132312132611_ - _hd132311132614_ - _tl132310132616_ - _e132315132619_ - _hd132314132622_ - _tl132313132624_ - _e132318132627_ - _hd132317132630_ - _tl132316132632_ - _e132321132635_ - _hd132320132638_ - _tl132319132640_ - _e132324132643_ - _hd132323132646_ - _tl132322132648_ - _e132327132651_ - _hd132326132654_ - _tl132325132656_ - _e132330132659_ - _hd132329132662_ - _tl132328132664_ - _e132333132667_ - _hd132332132670_ - _tl132331132672_ - _e132336132675_ - _hd132335132678_ - _tl132334132680_ - _e132339132683_ - _hd132338132686_ - _tl132337132688_ - _e132342132691_ - _hd132341132694_ - _tl132340132696_) - (let ((_L132699_ _hd132341132694_) - (_L132700_ _hd132338132686_) - (_L132701_ _hd132329132662_) - (_L132702_ _hd132320132638_)) + (gx#stx-null? _tl132361132558_)) + (___match136661136662_ + _e132351132521_ + _hd132350132524_ + _tl132349132526_ + _e132354132529_ + _hd132353132532_ + _tl132352132534_ + _e132357132537_ + _hd132356132540_ + _tl132355132542_ + _e132360132545_ + _hd132359132548_ + _tl132358132550_ + _e132363132553_ + _hd132362132556_ + _tl132361132558_ + _e132366132561_ + _hd132365132564_ + _tl132364132566_ + _e132369132569_ + _hd132368132572_ + _tl132367132574_) + (___match136715136716_ + _e132351132521_ + _hd132350132524_ + _tl132349132526_ + _e132354132529_ + _hd132353132532_ + _tl132352132534_ + _e132357132537_ + _hd132356132540_ + _tl132355132542_ + _e132360132545_ + _hd132359132548_ + _tl132358132550_ + _e132363132553_ + _hd132362132556_ + _tl132361132558_ + _e132366132561_ + _hd132365132564_ + _tl132364132566_ + _e132369132569_ + _hd132368132572_ + _tl132367132574_)))) + (___match136605136606_ + (lambda (_e132316132615_ + _hd132315132618_ + _tl132314132620_ + _e132319132623_ + _hd132318132626_ + _tl132317132628_ + _e132322132631_ + _hd132321132634_ + _tl132320132636_ + _e132325132639_ + _hd132324132642_ + _tl132323132644_ + _e132328132647_ + _hd132327132650_ + _tl132326132652_ + _e132331132655_ + _hd132330132658_ + _tl132329132660_ + _e132334132663_ + _hd132333132666_ + _tl132332132668_ + _e132337132671_ + _hd132336132674_ + _tl132335132676_ + _e132340132679_ + _hd132339132682_ + _tl132338132684_ + _e132343132687_ + _hd132342132690_ + _tl132341132692_ + _e132346132695_ + _hd132345132698_ + _tl132344132700_) + (let ((_L132703_ _hd132345132698_) + (_L132704_ _hd132342132690_) + (_L132705_ _hd132333132666_) + (_L132706_ _hd132324132642_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132702_ + _L132706_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132702_ + _L132706_ 'unchecked-slot-set!))) - (let ((__tmp137521 + (let ((__tmp137525 (let () (declare (not safe)) (slot-ref__0 - _self132166_ + _self132170_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L132701_ - __tmp137521))) - (___kont136232136233_ - _L132699_ - _L132700_ - _L132701_ - _L132702_) - (___kont136238136239_))))) - (___match136593136594_ - (lambda (_e132312132611_ - _hd132311132614_ - _tl132310132616_ - _e132315132619_ - _hd132314132622_ - _tl132313132624_ - _e132318132627_ - _hd132317132630_ - _tl132316132632_ - _e132321132635_ - _hd132320132638_ - _tl132319132640_ - _e132324132643_ - _hd132323132646_ - _tl132322132648_ - _e132327132651_ - _hd132326132654_ - _tl132325132656_ - _e132330132659_ - _hd132329132662_ - _tl132328132664_ - _e132333132667_ - _hd132332132670_ - _tl132331132672_ - _e132336132675_ - _hd132335132678_ - _tl132334132680_ - _e132339132683_ - _hd132338132686_ - _tl132337132688_) + _L132705_ + __tmp137525))) + (___kont136236136237_ + _L132703_ + _L132704_ + _L132705_ + _L132706_) + (___kont136242136243_))))) + (___match136597136598_ + (lambda (_e132316132615_ + _hd132315132618_ + _tl132314132620_ + _e132319132623_ + _hd132318132626_ + _tl132317132628_ + _e132322132631_ + _hd132321132634_ + _tl132320132636_ + _e132325132639_ + _hd132324132642_ + _tl132323132644_ + _e132328132647_ + _hd132327132650_ + _tl132326132652_ + _e132331132655_ + _hd132330132658_ + _tl132329132660_ + _e132334132663_ + _hd132333132666_ + _tl132332132668_ + _e132337132671_ + _hd132336132674_ + _tl132335132676_ + _e132340132679_ + _hd132339132682_ + _tl132338132684_ + _e132343132687_ + _hd132342132690_ + _tl132341132692_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132331132672_)) - (let ((_e132342132691_ + (gx#stx-pair? _tl132335132676_)) + (let ((_e132346132695_ (let () (declare (not safe)) - (gx#stx-e _tl132331132672_)))) - (let ((_tl132340132696_ + (gx#stx-e _tl132335132676_)))) + (let ((_tl132344132700_ (let () (declare (not safe)) - (##cdr _e132342132691_))) - (_hd132341132694_ + (##cdr _e132346132695_))) + (_hd132345132698_ (let () (declare (not safe)) - (##car _e132342132691_)))) + (##car _e132346132695_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132340132696_)) - (___match136601136602_ - _e132312132611_ - _hd132311132614_ - _tl132310132616_ - _e132315132619_ - _hd132314132622_ - _tl132313132624_ - _e132318132627_ - _hd132317132630_ - _tl132316132632_ - _e132321132635_ - _hd132320132638_ - _tl132319132640_ - _e132324132643_ - _hd132323132646_ - _tl132322132648_ - _e132327132651_ - _hd132326132654_ - _tl132325132656_ - _e132330132659_ - _hd132329132662_ - _tl132328132664_ - _e132333132667_ - _hd132332132670_ - _tl132331132672_ - _e132336132675_ - _hd132335132678_ - _tl132334132680_ - _e132339132683_ - _hd132338132686_ - _tl132337132688_ - _e132342132691_ - _hd132341132694_ - _tl132340132696_) - (___kont136238136239_)))) - (___match136717136718_ - _e132312132611_ - _hd132311132614_ - _tl132310132616_ - _e132315132619_ - _hd132314132622_ - _tl132313132624_ - _e132318132627_ - _hd132317132630_ - _tl132316132632_ - _e132321132635_ - _hd132320132638_ - _tl132319132640_ - _e132324132643_ - _hd132323132646_ - _tl132322132648_ - _e132327132651_ - _hd132326132654_ - _tl132325132656_ - _e132330132659_ - _hd132329132662_ - _tl132328132664_ - _e132333132667_ - _hd132332132670_ - _tl132331132672_)))) - (___match136515136516_ - (lambda (_e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_ - _e132302132806_ - _hd132301132809_ - _tl132300132811_ - _e132305132814_ - _hd132304132817_ - _tl132303132819_) - (let ((_L132822_ _hd132304132817_) - (_L132823_ _hd132295132793_) - (_L132824_ _hd132286132769_)) + (gx#stx-null? _tl132344132700_)) + (___match136605136606_ + _e132316132615_ + _hd132315132618_ + _tl132314132620_ + _e132319132623_ + _hd132318132626_ + _tl132317132628_ + _e132322132631_ + _hd132321132634_ + _tl132320132636_ + _e132325132639_ + _hd132324132642_ + _tl132323132644_ + _e132328132647_ + _hd132327132650_ + _tl132326132652_ + _e132331132655_ + _hd132330132658_ + _tl132329132660_ + _e132334132663_ + _hd132333132666_ + _tl132332132668_ + _e132337132671_ + _hd132336132674_ + _tl132335132676_ + _e132340132679_ + _hd132339132682_ + _tl132338132684_ + _e132343132687_ + _hd132342132690_ + _tl132341132692_ + _e132346132695_ + _hd132345132698_ + _tl132344132700_) + (___kont136242136243_)))) + (___match136721136722_ + _e132316132615_ + _hd132315132618_ + _tl132314132620_ + _e132319132623_ + _hd132318132626_ + _tl132317132628_ + _e132322132631_ + _hd132321132634_ + _tl132320132636_ + _e132325132639_ + _hd132324132642_ + _tl132323132644_ + _e132328132647_ + _hd132327132650_ + _tl132326132652_ + _e132331132655_ + _hd132330132658_ + _tl132329132660_ + _e132334132663_ + _hd132333132666_ + _tl132332132668_ + _e132337132671_ + _hd132336132674_ + _tl132335132676_)))) + (___match136519136520_ + (lambda (_e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_ + _e132306132810_ + _hd132305132813_ + _tl132304132815_ + _e132309132818_ + _hd132308132821_ + _tl132307132823_) + (let ((_L132826_ _hd132308132821_) + (_L132827_ _hd132299132797_) + (_L132828_ _hd132290132773_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132824_ + _L132828_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132824_ + _L132828_ 'unchecked-slot-ref))) - (let ((__tmp137522 + (let ((__tmp137526 (let () (declare (not safe)) (slot-ref__0 - _self132166_ + _self132170_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L132823_ - __tmp137522))) - (___kont136230136231_ - _L132822_ - _L132823_ - _L132824_) - (___match136719136720_ - _e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_))))) - (___match136513136514_ - (lambda (_e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_ - _e132302132806_ - _hd132301132809_ - _tl132300132811_ - _e132305132814_ - _hd132304132817_ - _tl132303132819_) + _L132827_ + __tmp137526))) + (___kont136234136235_ + _L132826_ + _L132827_ + _L132828_) + (___match136723136724_ + _e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_))))) + (___match136517136518_ + (lambda (_e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_ + _e132306132810_ + _hd132305132813_ + _tl132304132815_ + _e132309132818_ + _hd132308132821_ + _tl132307132823_) (if (let () (declare (not safe)) - (gx#stx-null? _tl132297132803_)) - (___match136515136516_ - _e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_ - _e132302132806_ - _hd132301132809_ - _tl132300132811_ - _e132305132814_ - _hd132304132817_ - _tl132303132819_) - (___match136593136594_ - _e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_ - _e132302132806_ - _hd132301132809_ - _tl132300132811_ - _e132305132814_ - _hd132304132817_ - _tl132303132819_)))) - (___match136503136504_ - (lambda (_e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_ - _e132302132806_ - _hd132301132809_ - _tl132300132811_) + (gx#stx-null? _tl132301132807_)) + (___match136519136520_ + _e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_ + _e132306132810_ + _hd132305132813_ + _tl132304132815_ + _e132309132818_ + _hd132308132821_ + _tl132307132823_) + (___match136597136598_ + _e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_ + _e132306132810_ + _hd132305132813_ + _tl132304132815_ + _e132309132818_ + _hd132308132821_ + _tl132307132823_)))) + (___match136507136508_ + (lambda (_e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_ + _e132306132810_ + _hd132305132813_ + _tl132304132815_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd132301132809_)) + (gx#stx-eq? '%#quote _hd132305132813_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132300132811_)) - (let ((_e132305132814_ + (gx#stx-pair? _tl132304132815_)) + (let ((_e132309132818_ (let () (declare (not safe)) - (gx#stx-e _tl132300132811_)))) - (let ((_tl132303132819_ + (gx#stx-e _tl132304132815_)))) + (let ((_tl132307132823_ (let () (declare (not safe)) - (##cdr _e132305132814_))) - (_hd132304132817_ + (##cdr _e132309132818_))) + (_hd132308132821_ (let () (declare (not safe)) - (##car _e132305132814_)))) + (##car _e132309132818_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132303132819_)) + (gx#stx-null? _tl132307132823_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132297132803_)) - (___match136515136516_ - _e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_ - _e132302132806_ - _hd132301132809_ - _tl132300132811_ - _e132305132814_ - _hd132304132817_ - _tl132303132819_) - (___match136593136594_ - _e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_ - _e132302132806_ - _hd132301132809_ - _tl132300132811_ - _e132305132814_ - _hd132304132817_ - _tl132303132819_)) - (___match136717136718_ - _e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_)))) - (___match136717136718_ - _e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_)) - (___match136717136718_ - _e132278132742_ - _hd132277132745_ - _tl132276132747_ - _e132281132750_ - _hd132280132753_ - _tl132279132755_ - _e132284132758_ - _hd132283132761_ - _tl132282132763_ - _e132287132766_ - _hd132286132769_ - _tl132285132771_ - _e132290132774_ - _hd132289132777_ - _tl132288132779_ - _e132293132782_ - _hd132292132785_ - _tl132291132787_ - _e132296132790_ - _hd132295132793_ - _tl132294132795_ - _e132299132798_ - _hd132298132801_ - _tl132297132803_)))) - (___match136435136436_ - (lambda (_e132227132861_ - _hd132226132864_ - _tl132225132866_ - _e132230132869_ - _hd132229132872_ - _tl132228132874_ - _e132233132877_ - _hd132232132880_ - _tl132231132882_ - _e132236132885_ - _hd132235132888_ - _tl132234132890_ - _e132239132893_ - _hd132238132896_ - _tl132237132898_ - _e132242132901_ - _hd132241132904_ - _tl132240132906_ - _e132245132909_ - _hd132244132912_ - _tl132243132914_ - _e132248132917_ - _hd132247132920_ - _tl132246132922_ - _e132251132925_ - _hd132250132928_ - _tl132249132930_ - _e132254132933_ - _hd132253132936_ - _tl132252132938_ - _e132257132941_ - _hd132256132944_ - _tl132255132946_ - _e132260132949_ - _hd132259132952_ - _tl132258132954_ - _e132263132957_ - _hd132262132960_ - _tl132261132962_ - ___splice136228136229_ - _target132264132965_ - _tl132266132967_) - (letrec ((_loop132267132970_ - (lambda (_hd132265132973_ _args132271132975_) + (gx#stx-null? _tl132301132807_)) + (___match136519136520_ + _e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_ + _e132306132810_ + _hd132305132813_ + _tl132304132815_ + _e132309132818_ + _hd132308132821_ + _tl132307132823_) + (___match136597136598_ + _e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_ + _e132306132810_ + _hd132305132813_ + _tl132304132815_ + _e132309132818_ + _hd132308132821_ + _tl132307132823_)) + (___match136721136722_ + _e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_)))) + (___match136721136722_ + _e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_)) + (___match136721136722_ + _e132282132746_ + _hd132281132749_ + _tl132280132751_ + _e132285132754_ + _hd132284132757_ + _tl132283132759_ + _e132288132762_ + _hd132287132765_ + _tl132286132767_ + _e132291132770_ + _hd132290132773_ + _tl132289132775_ + _e132294132778_ + _hd132293132781_ + _tl132292132783_ + _e132297132786_ + _hd132296132789_ + _tl132295132791_ + _e132300132794_ + _hd132299132797_ + _tl132298132799_ + _e132303132802_ + _hd132302132805_ + _tl132301132807_)))) + (___match136439136440_ + (lambda (_e132231132865_ + _hd132230132868_ + _tl132229132870_ + _e132234132873_ + _hd132233132876_ + _tl132232132878_ + _e132237132881_ + _hd132236132884_ + _tl132235132886_ + _e132240132889_ + _hd132239132892_ + _tl132238132894_ + _e132243132897_ + _hd132242132900_ + _tl132241132902_ + _e132246132905_ + _hd132245132908_ + _tl132244132910_ + _e132249132913_ + _hd132248132916_ + _tl132247132918_ + _e132252132921_ + _hd132251132924_ + _tl132250132926_ + _e132255132929_ + _hd132254132932_ + _tl132253132934_ + _e132258132937_ + _hd132257132940_ + _tl132256132942_ + _e132261132945_ + _hd132260132948_ + _tl132259132950_ + _e132264132953_ + _hd132263132956_ + _tl132262132958_ + _e132267132961_ + _hd132266132964_ + _tl132265132966_ + ___splice136232136233_ + _target132268132969_ + _tl132270132971_) + (letrec ((_loop132271132974_ + (lambda (_hd132269132977_ _args132275132979_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132265132973_)) - (let ((_e132268132978_ + (gx#stx-pair? _hd132269132977_)) + (let ((_e132272132982_ (let () (declare (not safe)) - (gx#stx-e _hd132265132973_)))) - (let ((_lp-tl132270132983_ + (gx#stx-e _hd132269132977_)))) + (let ((_lp-tl132274132987_ (let () (declare (not safe)) - (##cdr _e132268132978_))) - (_lp-hd132269132981_ + (##cdr _e132272132982_))) + (_lp-hd132273132985_ (let () (declare (not safe)) - (##car _e132268132978_)))) - (let ((__tmp137524 + (##car _e132272132982_)))) + (let ((__tmp137528 (let () (declare (not safe)) - (cons _lp-hd132269132981_ - _args132271132975_)))) + (cons _lp-hd132273132985_ + _args132275132979_)))) (declare (not safe)) - (_loop132267132970_ - _lp-tl132270132983_ - __tmp137524)))) - (let ((_args132272132986_ - (reverse _args132271132975_))) - (let ((_L132989_ _args132272132986_) - (_L132990_ _hd132262132960_) - (_L132991_ _hd132253132936_) - (_L132992_ _hd132244132912_) - (_L132993_ _hd132235132888_)) + (_loop132271132974_ + _lp-tl132274132987_ + __tmp137528)))) + (let ((_args132276132990_ + (reverse _args132275132979_))) + (let ((_L132993_ _args132276132990_) + (_L132994_ _hd132266132964_) + (_L132995_ _hd132257132940_) + (_L132996_ _hd132248132916_) + (_L132997_ _hd132239132892_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132993_ + _L132997_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132992_ + _L132996_ 'call-method)) - (let ((__tmp137523 + (let ((__tmp137527 (let () (declare (not safe)) (slot-ref__0 - _self132166_ + _self132170_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L132991_ - __tmp137523))) - (___kont136226136227_ - _L132989_ - _L132990_ - _L132991_ - _L132992_ - _L132993_) - (___kont136238136239_)))))))) + _L132995_ + __tmp137527))) + (___kont136230136231_ + _L132993_ + _L132994_ + _L132995_ + _L132996_ + _L132997_) + (___kont136242136243_)))))))) (let () (declare (not safe)) - (_loop132267132970_ _target132264132965_ '()))))) - (___match136393136394_ - (lambda (_e132227132861_ - _hd132226132864_ - _tl132225132866_ - _e132230132869_ - _hd132229132872_ - _tl132228132874_ - _e132233132877_ - _hd132232132880_ - _tl132231132882_ - _e132236132885_ - _hd132235132888_ - _tl132234132890_ - _e132239132893_ - _hd132238132896_ - _tl132237132898_ - _e132242132901_ - _hd132241132904_ - _tl132240132906_ - _e132245132909_ - _hd132244132912_ - _tl132243132914_ - _e132248132917_ - _hd132247132920_ - _tl132246132922_ - _e132251132925_ - _hd132250132928_ - _tl132249132930_) + (_loop132271132974_ _target132268132969_ '()))))) + (___match136397136398_ + (lambda (_e132231132865_ + _hd132230132868_ + _tl132229132870_ + _e132234132873_ + _hd132233132876_ + _tl132232132878_ + _e132237132881_ + _hd132236132884_ + _tl132235132886_ + _e132240132889_ + _hd132239132892_ + _tl132238132894_ + _e132243132897_ + _hd132242132900_ + _tl132241132902_ + _e132246132905_ + _hd132245132908_ + _tl132244132910_ + _e132249132913_ + _hd132248132916_ + _tl132247132918_ + _e132252132921_ + _hd132251132924_ + _tl132250132926_ + _e132255132929_ + _hd132254132932_ + _tl132253132934_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd132250132928_)) + (gx#stx-eq? '%#ref _hd132254132932_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132249132930_)) - (let ((_e132254132933_ + (gx#stx-pair? _tl132253132934_)) + (let ((_e132258132937_ (let () (declare (not safe)) - (gx#stx-e _tl132249132930_)))) - (let ((_tl132252132938_ + (gx#stx-e _tl132253132934_)))) + (let ((_tl132256132942_ (let () (declare (not safe)) - (##cdr _e132254132933_))) - (_hd132253132936_ + (##cdr _e132258132937_))) + (_hd132257132940_ (let () (declare (not safe)) - (##car _e132254132933_)))) + (##car _e132258132937_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132252132938_)) + (gx#stx-null? _tl132256132942_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132246132922_)) - (let ((_e132257132941_ + (gx#stx-pair? _tl132250132926_)) + (let ((_e132261132945_ (let () (declare (not safe)) (gx#stx-e - _tl132246132922_)))) - (let ((_tl132255132946_ + _tl132250132926_)))) + (let ((_tl132259132950_ (let () (declare (not safe)) - (##cdr _e132257132941_))) - (_hd132256132944_ + (##cdr _e132261132945_))) + (_hd132260132948_ (let () (declare (not safe)) - (##car _e132257132941_)))) + (##car _e132261132945_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132256132944_)) - (let ((_e132260132949_ + _hd132260132948_)) + (let ((_e132264132953_ (let () (declare (not safe)) (gx#stx-e - _hd132256132944_)))) - (let ((_tl132258132954_ + _hd132260132948_)))) + (let ((_tl132262132958_ (let () (declare (not safe)) - (##cdr _e132260132949_))) - (_hd132259132952_ + (##cdr _e132264132953_))) + (_hd132263132956_ (let () (declare (not safe)) - (##car _e132260132949_)))) + (##car _e132264132953_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd132259132952_)) + _hd132263132956_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd132259132952_)) + (gx#stx-eq? '%#quote _hd132263132956_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132258132954_)) - (let ((_e132263132957_ + (gx#stx-pair? _tl132262132958_)) + (let ((_e132267132961_ (let () (declare (not safe)) - (gx#stx-e _tl132258132954_)))) - (let ((_tl132261132962_ + (gx#stx-e _tl132262132958_)))) + (let ((_tl132265132966_ (let () (declare (not safe)) - (##cdr _e132263132957_))) - (_hd132262132960_ + (##cdr _e132267132961_))) + (_hd132266132964_ (let () (declare (not safe)) - (##car _e132263132957_)))) + (##car _e132267132961_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132261132962_)) + (gx#stx-null? _tl132265132966_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl132255132946_)) - (let ((___splice136228136229_ + (gx#stx-pair/null? _tl132259132950_)) + (let ((___splice136232136233_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl132255132946_ + _tl132259132950_ '0)))) - (let ((_tl132266132967_ + (let ((_tl132270132971_ (let () (declare (not safe)) (##vector-ref - ___splice136228136229_ + ___splice136232136233_ '1))) - (_target132264132965_ + (_target132268132969_ (let () (declare (not safe)) (##vector-ref - ___splice136228136229_ + ___splice136232136233_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132266132967_)) - (___match136435136436_ - _e132227132861_ - _hd132226132864_ - _tl132225132866_ - _e132230132869_ - _hd132229132872_ - _tl132228132874_ - _e132233132877_ - _hd132232132880_ - _tl132231132882_ - _e132236132885_ - _hd132235132888_ - _tl132234132890_ - _e132239132893_ - _hd132238132896_ - _tl132237132898_ - _e132242132901_ - _hd132241132904_ - _tl132240132906_ - _e132245132909_ - _hd132244132912_ - _tl132243132914_ - _e132248132917_ - _hd132247132920_ - _tl132246132922_ - _e132251132925_ - _hd132250132928_ - _tl132249132930_ - _e132254132933_ - _hd132253132936_ - _tl132252132938_ - _e132257132941_ - _hd132256132944_ - _tl132255132946_ - _e132260132949_ - _hd132259132952_ - _tl132258132954_ - _e132263132957_ - _hd132262132960_ - _tl132261132962_ - ___splice136228136229_ - _target132264132965_ - _tl132266132967_) - (___kont136238136239_)))) - (___kont136238136239_)) - (___kont136238136239_)))) - (___kont136238136239_)) - (___kont136238136239_)) - (___kont136238136239_)))) + _tl132270132971_)) + (___match136439136440_ + _e132231132865_ + _hd132230132868_ + _tl132229132870_ + _e132234132873_ + _hd132233132876_ + _tl132232132878_ + _e132237132881_ + _hd132236132884_ + _tl132235132886_ + _e132240132889_ + _hd132239132892_ + _tl132238132894_ + _e132243132897_ + _hd132242132900_ + _tl132241132902_ + _e132246132905_ + _hd132245132908_ + _tl132244132910_ + _e132249132913_ + _hd132248132916_ + _tl132247132918_ + _e132252132921_ + _hd132251132924_ + _tl132250132926_ + _e132255132929_ + _hd132254132932_ + _tl132253132934_ + _e132258132937_ + _hd132257132940_ + _tl132256132942_ + _e132261132945_ + _hd132260132948_ + _tl132259132950_ + _e132264132953_ + _hd132263132956_ + _tl132262132958_ + _e132267132961_ + _hd132266132964_ + _tl132265132966_ + ___splice136232136233_ + _target132268132969_ + _tl132270132971_) + (___kont136242136243_)))) + (___kont136242136243_)) + (___kont136242136243_)))) + (___kont136242136243_)) + (___kont136242136243_)) + (___kont136242136243_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136238136239_)))) - (___match136717136718_ - _e132227132861_ - _hd132226132864_ - _tl132225132866_ - _e132230132869_ - _hd132229132872_ - _tl132228132874_ - _e132233132877_ - _hd132232132880_ - _tl132231132882_ - _e132236132885_ - _hd132235132888_ - _tl132234132890_ - _e132239132893_ - _hd132238132896_ - _tl132237132898_ - _e132242132901_ - _hd132241132904_ - _tl132240132906_ - _e132245132909_ - _hd132244132912_ - _tl132243132914_ - _e132248132917_ - _hd132247132920_ - _tl132246132922_)) - (___match136717136718_ - _e132227132861_ - _hd132226132864_ - _tl132225132866_ - _e132230132869_ - _hd132229132872_ - _tl132228132874_ - _e132233132877_ - _hd132232132880_ - _tl132231132882_ - _e132236132885_ - _hd132235132888_ - _tl132234132890_ - _e132239132893_ - _hd132238132896_ - _tl132237132898_ - _e132242132901_ - _hd132241132904_ - _tl132240132906_ - _e132245132909_ - _hd132244132912_ - _tl132243132914_ - _e132248132917_ - _hd132247132920_ - _tl132246132922_)))) - (___match136717136718_ - _e132227132861_ - _hd132226132864_ - _tl132225132866_ - _e132230132869_ - _hd132229132872_ - _tl132228132874_ - _e132233132877_ - _hd132232132880_ - _tl132231132882_ - _e132236132885_ - _hd132235132888_ - _tl132234132890_ - _e132239132893_ - _hd132238132896_ - _tl132237132898_ - _e132242132901_ - _hd132241132904_ - _tl132240132906_ - _e132245132909_ - _hd132244132912_ - _tl132243132914_ - _e132248132917_ - _hd132247132920_ - _tl132246132922_)) - (___match136503136504_ - _e132227132861_ - _hd132226132864_ - _tl132225132866_ - _e132230132869_ - _hd132229132872_ - _tl132228132874_ - _e132233132877_ - _hd132232132880_ - _tl132231132882_ - _e132236132885_ - _hd132235132888_ - _tl132234132890_ - _e132239132893_ - _hd132238132896_ - _tl132237132898_ - _e132242132901_ - _hd132241132904_ - _tl132240132906_ - _e132245132909_ - _hd132244132912_ - _tl132243132914_ - _e132248132917_ - _hd132247132920_ - _tl132246132922_ - _e132251132925_ - _hd132250132928_ - _tl132249132930_)))) - (___match136325136326_ - (lambda (_e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_ - _e132207133114_ - _hd132206133117_ - _tl132205133119_ - _e132210133122_ - _hd132209133125_ - _tl132208133127_ - ___splice136224136225_ - _target132211133130_ - _tl132213133132_) - (letrec ((_loop132214133135_ - (lambda (_hd132212133138_ _args132218133140_) + (___kont136242136243_)))) + (___match136721136722_ + _e132231132865_ + _hd132230132868_ + _tl132229132870_ + _e132234132873_ + _hd132233132876_ + _tl132232132878_ + _e132237132881_ + _hd132236132884_ + _tl132235132886_ + _e132240132889_ + _hd132239132892_ + _tl132238132894_ + _e132243132897_ + _hd132242132900_ + _tl132241132902_ + _e132246132905_ + _hd132245132908_ + _tl132244132910_ + _e132249132913_ + _hd132248132916_ + _tl132247132918_ + _e132252132921_ + _hd132251132924_ + _tl132250132926_)) + (___match136721136722_ + _e132231132865_ + _hd132230132868_ + _tl132229132870_ + _e132234132873_ + _hd132233132876_ + _tl132232132878_ + _e132237132881_ + _hd132236132884_ + _tl132235132886_ + _e132240132889_ + _hd132239132892_ + _tl132238132894_ + _e132243132897_ + _hd132242132900_ + _tl132241132902_ + _e132246132905_ + _hd132245132908_ + _tl132244132910_ + _e132249132913_ + _hd132248132916_ + _tl132247132918_ + _e132252132921_ + _hd132251132924_ + _tl132250132926_)))) + (___match136721136722_ + _e132231132865_ + _hd132230132868_ + _tl132229132870_ + _e132234132873_ + _hd132233132876_ + _tl132232132878_ + _e132237132881_ + _hd132236132884_ + _tl132235132886_ + _e132240132889_ + _hd132239132892_ + _tl132238132894_ + _e132243132897_ + _hd132242132900_ + _tl132241132902_ + _e132246132905_ + _hd132245132908_ + _tl132244132910_ + _e132249132913_ + _hd132248132916_ + _tl132247132918_ + _e132252132921_ + _hd132251132924_ + _tl132250132926_)) + (___match136507136508_ + _e132231132865_ + _hd132230132868_ + _tl132229132870_ + _e132234132873_ + _hd132233132876_ + _tl132232132878_ + _e132237132881_ + _hd132236132884_ + _tl132235132886_ + _e132240132889_ + _hd132239132892_ + _tl132238132894_ + _e132243132897_ + _hd132242132900_ + _tl132241132902_ + _e132246132905_ + _hd132245132908_ + _tl132244132910_ + _e132249132913_ + _hd132248132916_ + _tl132247132918_ + _e132252132921_ + _hd132251132924_ + _tl132250132926_ + _e132255132929_ + _hd132254132932_ + _tl132253132934_)))) + (___match136329136330_ + (lambda (_e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_ + _e132211133118_ + _hd132210133121_ + _tl132209133123_ + _e132214133126_ + _hd132213133129_ + _tl132212133131_ + ___splice136228136229_ + _target132215133134_ + _tl132217133136_) + (letrec ((_loop132218133139_ + (lambda (_hd132216133142_ _args132222133144_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132212133138_)) - (let ((_e132215133143_ + (gx#stx-pair? _hd132216133142_)) + (let ((_e132219133147_ (let () (declare (not safe)) - (gx#stx-e _hd132212133138_)))) - (let ((_lp-tl132217133148_ + (gx#stx-e _hd132216133142_)))) + (let ((_lp-tl132221133152_ (let () (declare (not safe)) - (##cdr _e132215133143_))) - (_lp-hd132216133146_ + (##cdr _e132219133147_))) + (_lp-hd132220133150_ (let () (declare (not safe)) - (##car _e132215133143_)))) - (let ((__tmp137526 + (##car _e132219133147_)))) + (let ((__tmp137530 (let () (declare (not safe)) - (cons _lp-hd132216133146_ - _args132218133140_)))) + (cons _lp-hd132220133150_ + _args132222133144_)))) (declare (not safe)) - (_loop132214133135_ - _lp-tl132217133148_ - __tmp137526)))) - (let ((_args132219133151_ - (reverse _args132218133140_))) - (let ((_L133154_ _args132219133151_) - (_L133155_ _hd132209133125_) - (_L133156_ _hd132200133101_) - (_L133157_ _hd132191133077_)) + (_loop132218133139_ + _lp-tl132221133152_ + __tmp137530)))) + (let ((_args132223133155_ + (reverse _args132222133144_))) + (let ((_L133158_ _args132223133155_) + (_L133159_ _hd132213133129_) + (_L133160_ _hd132204133105_) + (_L133161_ _hd132195133081_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L133157_ + _L133161_ 'call-method)) - (let ((__tmp137525 + (let ((__tmp137529 (let () (declare (not safe)) (slot-ref__0 - _self132166_ + _self132170_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L133156_ - __tmp137525))) - (___kont136222136223_ - _L133154_ - _L133155_ - _L133156_ - _L133157_) - (___match136513136514_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_ - _e132207133114_ - _hd132206133117_ - _tl132205133119_ - _e132210133122_ - _hd132209133125_ - _tl132208133127_)))))))) + _L133160_ + __tmp137529))) + (___kont136226136227_ + _L133158_ + _L133159_ + _L133160_ + _L133161_) + (___match136517136518_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_ + _e132211133118_ + _hd132210133121_ + _tl132209133123_ + _e132214133126_ + _hd132213133129_ + _tl132212133131_)))))))) (let () (declare (not safe)) - (_loop132214133135_ _target132211133130_ '())))))) + (_loop132218133139_ _target132215133134_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136220136221_)) - (let ((_e132183133050_ + (gx#stx-pair? ___stx136224136225_)) + (let ((_e132187133054_ (let () (declare (not safe)) - (gx#stx-e ___stx136220136221_)))) - (let ((_tl132181133055_ + (gx#stx-e ___stx136224136225_)))) + (let ((_tl132185133059_ (let () (declare (not safe)) - (##cdr _e132183133050_))) - (_hd132182133053_ + (##cdr _e132187133054_))) + (_hd132186133057_ (let () (declare (not safe)) - (##car _e132183133050_)))) + (##car _e132187133054_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132181133055_)) - (let ((_e132186133058_ + (gx#stx-pair? _tl132185133059_)) + (let ((_e132190133062_ (let () (declare (not safe)) - (gx#stx-e _tl132181133055_)))) - (let ((_tl132184133063_ + (gx#stx-e _tl132185133059_)))) + (let ((_tl132188133067_ (let () (declare (not safe)) - (##cdr _e132186133058_))) - (_hd132185133061_ + (##cdr _e132190133062_))) + (_hd132189133065_ (let () (declare (not safe)) - (##car _e132186133058_)))) + (##car _e132190133062_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132185133061_)) - (let ((_e132189133066_ + (gx#stx-pair? _hd132189133065_)) + (let ((_e132193133070_ (let () (declare (not safe)) - (gx#stx-e _hd132185133061_)))) - (let ((_tl132187133071_ + (gx#stx-e _hd132189133065_)))) + (let ((_tl132191133075_ (let () (declare (not safe)) - (##cdr _e132189133066_))) - (_hd132188133069_ + (##cdr _e132193133070_))) + (_hd132192133073_ (let () (declare (not safe)) - (##car _e132189133066_)))) + (##car _e132193133070_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132188133069_)) + (gx#identifier? _hd132192133073_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd132188133069_)) + _hd132192133073_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132187133071_)) - (let ((_e132192133074_ + _tl132191133075_)) + (let ((_e132196133078_ (let () (declare (not safe)) (gx#stx-e - _tl132187133071_)))) - (let ((_tl132190133079_ + _tl132191133075_)))) + (let ((_tl132194133083_ (let () (declare (not safe)) - (##cdr _e132192133074_))) - (_hd132191133077_ + (##cdr _e132196133078_))) + (_hd132195133081_ (let () (declare (not safe)) - (##car _e132192133074_)))) + (##car _e132196133078_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132190133079_)) + _tl132194133083_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl132184133063_)) - (let ((_e132195133082_ + (gx#stx-pair? _tl132188133067_)) + (let ((_e132199133086_ (let () (declare (not safe)) - (gx#stx-e _tl132184133063_)))) - (let ((_tl132193133087_ + (gx#stx-e _tl132188133067_)))) + (let ((_tl132197133091_ (let () (declare (not safe)) - (##cdr _e132195133082_))) - (_hd132194133085_ + (##cdr _e132199133086_))) + (_hd132198133089_ (let () (declare (not safe)) - (##car _e132195133082_)))) + (##car _e132199133086_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132194133085_)) - (let ((_e132198133090_ + (gx#stx-pair? _hd132198133089_)) + (let ((_e132202133094_ (let () (declare (not safe)) - (gx#stx-e _hd132194133085_)))) - (let ((_tl132196133095_ + (gx#stx-e _hd132198133089_)))) + (let ((_tl132200133099_ (let () (declare (not safe)) - (##cdr _e132198133090_))) - (_hd132197133093_ + (##cdr _e132202133094_))) + (_hd132201133097_ (let () (declare (not safe)) - (##car _e132198133090_)))) + (##car _e132202133094_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132197133093_)) + (gx#identifier? _hd132201133097_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd132197133093_)) + _hd132201133097_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132196133095_)) - (let ((_e132201133098_ + _tl132200133099_)) + (let ((_e132205133102_ (let () (declare (not safe)) (gx#stx-e - _tl132196133095_)))) - (let ((_tl132199133103_ + _tl132200133099_)))) + (let ((_tl132203133107_ (let () (declare (not safe)) - (##cdr _e132201133098_))) - (_hd132200133101_ + (##cdr _e132205133102_))) + (_hd132204133105_ (let () (declare (not safe)) - (##car _e132201133098_)))) + (##car _e132205133102_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132199133103_)) + _tl132203133107_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132193133087_)) - (let ((_e132204133106_ + _tl132197133091_)) + (let ((_e132208133110_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl132193133087_)))) - (let ((_tl132202133111_ + (gx#stx-e _tl132197133091_)))) + (let ((_tl132206133115_ (let () (declare (not safe)) - (##cdr _e132204133106_))) - (_hd132203133109_ + (##cdr _e132208133110_))) + (_hd132207133113_ (let () (declare (not safe)) - (##car _e132204133106_)))) + (##car _e132208133110_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132203133109_)) - (let ((_e132207133114_ + (gx#stx-pair? _hd132207133113_)) + (let ((_e132211133118_ (let () (declare (not safe)) - (gx#stx-e _hd132203133109_)))) - (let ((_tl132205133119_ + (gx#stx-e _hd132207133113_)))) + (let ((_tl132209133123_ (let () (declare (not safe)) - (##cdr _e132207133114_))) - (_hd132206133117_ + (##cdr _e132211133118_))) + (_hd132210133121_ (let () (declare (not safe)) - (##car _e132207133114_)))) + (##car _e132211133118_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132206133117_)) + (gx#identifier? _hd132210133121_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd132206133117_)) + (gx#stx-eq? '%#quote _hd132210133121_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132205133119_)) - (let ((_e132210133122_ + (gx#stx-pair? _tl132209133123_)) + (let ((_e132214133126_ (let () (declare (not safe)) (gx#stx-e - _tl132205133119_)))) - (let ((_tl132208133127_ + _tl132209133123_)))) + (let ((_tl132212133131_ (let () (declare (not safe)) - (##cdr _e132210133122_))) - (_hd132209133125_ + (##cdr _e132214133126_))) + (_hd132213133129_ (let () (declare (not safe)) - (##car _e132210133122_)))) + (##car _e132214133126_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132208133127_)) + _tl132212133131_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl132202133111_)) - (let ((___splice136224136225_ + _tl132206133115_)) + (let ((___splice136228136229_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl132202133111_ '0)))) - (let ((_tl132213133132_ + (gx#syntax-split-splice _tl132206133115_ '0)))) + (let ((_tl132217133136_ (let () (declare (not safe)) - (##vector-ref ___splice136224136225_ '1))) - (_target132211133130_ + (##vector-ref ___splice136228136229_ '1))) + (_target132215133134_ (let () (declare (not safe)) - (##vector-ref ___splice136224136225_ '0)))) + (##vector-ref ___splice136228136229_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132213133132_)) - (___match136325136326_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_ - _e132207133114_ - _hd132206133117_ - _tl132205133119_ - _e132210133122_ - _hd132209133125_ - _tl132208133127_ - ___splice136224136225_ - _target132211133130_ - _tl132213133132_) - (___match136513136514_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_ - _e132207133114_ - _hd132206133117_ - _tl132205133119_ - _e132210133122_ - _hd132209133125_ - _tl132208133127_)))) - (___match136513136514_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_ - _e132207133114_ - _hd132206133117_ - _tl132205133119_ - _e132210133122_ - _hd132209133125_ - _tl132208133127_)) + (gx#stx-null? _tl132217133136_)) + (___match136329136330_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_ + _e132211133118_ + _hd132210133121_ + _tl132209133123_ + _e132214133126_ + _hd132213133129_ + _tl132212133131_ + ___splice136228136229_ + _target132215133134_ + _tl132217133136_) + (___match136517136518_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_ + _e132211133118_ + _hd132210133121_ + _tl132209133123_ + _e132214133126_ + _hd132213133129_ + _tl132212133131_)))) + (___match136517136518_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_ + _e132211133118_ + _hd132210133121_ + _tl132209133123_ + _e132214133126_ + _hd132213133129_ + _tl132212133131_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match136717136718_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_)))) - (___match136717136718_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_)) - (___match136393136394_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_ - _e132207133114_ - _hd132206133117_ - _tl132205133119_)) - (___match136717136718_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_)))) - (___match136717136718_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_ - _e132204133106_ - _hd132203133109_ - _tl132202133111_)))) - (___match136655136656_ - _e132183133050_ - _hd132182133053_ - _tl132181133055_ - _e132186133058_ - _hd132185133061_ - _tl132184133063_ - _e132189133066_ - _hd132188133069_ - _tl132187133071_ - _e132192133074_ - _hd132191133077_ - _tl132190133079_ - _e132195133082_ - _hd132194133085_ - _tl132193133087_ - _e132198133090_ - _hd132197133093_ - _tl132196133095_ - _e132201133098_ - _hd132200133101_ - _tl132199133103_)) - (___kont136238136239_)))) + (___match136721136722_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_)))) + (___match136721136722_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_)) + (___match136397136398_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_ + _e132211133118_ + _hd132210133121_ + _tl132209133123_)) + (___match136721136722_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_)))) + (___match136721136722_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_ + _e132208133110_ + _hd132207133113_ + _tl132206133115_)))) + (___match136659136660_ + _e132187133054_ + _hd132186133057_ + _tl132185133059_ + _e132190133062_ + _hd132189133065_ + _tl132188133067_ + _e132193133070_ + _hd132192133073_ + _tl132191133075_ + _e132196133078_ + _hd132195133081_ + _tl132194133083_ + _e132199133086_ + _hd132198133089_ + _tl132197133091_ + _e132202133094_ + _hd132201133097_ + _tl132200133099_ + _e132205133102_ + _hd132204133105_ + _tl132203133107_)) + (___kont136242136243_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136238136239_)) - (___kont136238136239_)) - (___kont136238136239_)))) - (___kont136238136239_)))) - (___kont136238136239_)) - (___kont136238136239_)))) + (___kont136242136243_)) + (___kont136242136243_)) + (___kont136242136243_)))) + (___kont136242136243_)))) + (___kont136242136243_)) + (___kont136242136243_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136238136239_)) - (___kont136238136239_)) - (___kont136238136239_)))) - (___kont136238136239_)))) - (___kont136238136239_)))) - (___kont136238136239_))))))) + (___kont136242136243_)) + (___kont136242136243_)) + (___kont136242136243_)))) + (___kont136242136243_)))) + (___kont136242136243_)))) + (___kont136242136243_))))))) (define gxc#subst-object-refs-call% - (lambda (_self131105_ _stx131106_) - (letrec ((_force-e131108_ - (lambda (_target132164_) - (let ((__tmp137527 - (let ((__tmp137531 - (let ((__tmp137532 + (lambda (_self131109_ _stx131110_) + (letrec ((_force-e131112_ + (lambda (_target132168_) + (let ((__tmp137531 + (let ((__tmp137535 + (let ((__tmp137536 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp137532))) - (__tmp137528 - (let ((__tmp137529 - (let ((__tmp137530 + (cons '%#ref __tmp137536))) + (__tmp137532 + (let ((__tmp137533 + (let ((__tmp137534 (let () (declare (not safe)) - (cons _target132164_ '())))) + (cons _target132168_ '())))) (declare (not safe)) - (cons '%#ref __tmp137530)))) + (cons '%#ref __tmp137534)))) (declare (not safe)) - (cons __tmp137529 '())))) + (cons __tmp137533 '())))) (declare (not safe)) - (cons __tmp137531 __tmp137528)))) + (cons __tmp137535 __tmp137532)))) (declare (not safe)) - (cons '%#call __tmp137527))))) - (let* ((___stx136722136723_ _stx131106_) - (_g131116131338_ + (cons '%#call __tmp137531))))) + (let* ((___stx136726136727_ _stx131110_) + (_g131120131342_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136722136723_))))) - (let ((___kont136724136725_ - (lambda (_L132110_ _L132111_ _L132112_ _L132113_) - (let ((_$method132158_ - (let ((__tmp137534 + ___stx136726136727_))))) + (let ((___kont136728136729_ + (lambda (_L132114_ _L132115_ _L132116_ _L132117_) + (let ((_$method132162_ + (let ((__tmp137538 (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'methods))) - (__tmp137533 + (slot-ref__0 _self131109_ 'methods))) + (__tmp137537 (let () (declare (not safe)) - (gx#stx-e _L132111_)))) + (gx#stx-e _L132115_)))) (declare (not safe)) - (hash-ref__0 __tmp137534 __tmp137533))) - (_args132159_ - (map (lambda (_g132146132148_) + (hash-ref__0 __tmp137538 __tmp137537))) + (_args132163_ + (map (lambda (_g132150132152_) (let () (declare (not safe)) (gxc#compile-e__1 - _self131105_ - _g132146132148_))) - (let ((__tmp137535 - (lambda (_g132150132153_ - _g132151132155_) + _self131109_ + _g132150132152_))) + (let ((__tmp137539 + (lambda (_g132154132157_ + _g132155132159_) (let () (declare (not safe)) - (cons _g132150132153_ - _g132151132155_))))) + (cons _g132154132157_ + _g132155132159_))))) (declare (not safe)) - (foldr1 __tmp137535 '() _L132110_))))) - (let ((__tmp137536 - (let ((__tmp137537 - (let ((__tmp137542 + (foldr1 __tmp137539 '() _L132114_))))) + (let ((__tmp137540 + (let ((__tmp137541 + (let ((__tmp137546 (let () (declare (not safe)) - (_force-e131108_ - _$method132158_))) - (__tmp137538 - (let ((__tmp137539 - (let ((__tmp137540 - (let ((__tmp137541 + (_force-e131112_ + _$method132162_))) + (__tmp137542 + (let ((__tmp137543 + (let ((__tmp137544 + (let ((__tmp137545 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'receiver)))) + (slot-ref__0 _self131109_ 'receiver)))) (declare (not safe)) - (cons __tmp137541 '())))) + (cons __tmp137545 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp137540)))) + __tmp137544)))) (declare (not safe)) - (cons __tmp137539 - _args132159_)))) + (cons __tmp137543 + _args132163_)))) (declare (not safe)) - (cons __tmp137542 __tmp137538)))) + (cons __tmp137546 __tmp137542)))) (declare (not safe)) - (cons '%#call __tmp137537)))) + (cons '%#call __tmp137541)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137536 _stx131106_))))) - (___kont136728136729_ - (lambda (_L131942_ _L131943_ _L131944_ _L131945_ _L131946_) - (let ((_$method131998_ - (let ((__tmp137544 + (gxc#xform-wrap-source __tmp137540 _stx131110_))))) + (___kont136732136733_ + (lambda (_L131946_ _L131947_ _L131948_ _L131949_ _L131950_) + (let ((_$method132002_ + (let ((__tmp137548 (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'methods))) - (__tmp137543 + (slot-ref__0 _self131109_ 'methods))) + (__tmp137547 (let () (declare (not safe)) - (gx#stx-e _L131943_)))) + (gx#stx-e _L131947_)))) (declare (not safe)) - (hash-ref__0 __tmp137544 __tmp137543))) - (_args131999_ - (map (lambda (_g131986131988_) + (hash-ref__0 __tmp137548 __tmp137547))) + (_args132003_ + (map (lambda (_g131990131992_) (let () (declare (not safe)) (gxc#compile-e__1 - _self131105_ - _g131986131988_))) - (let ((__tmp137545 - (lambda (_g131990131993_ - _g131991131995_) + _self131109_ + _g131990131992_))) + (let ((__tmp137549 + (lambda (_g131994131997_ + _g131995131999_) (let () (declare (not safe)) - (cons _g131990131993_ - _g131991131995_))))) + (cons _g131994131997_ + _g131995131999_))))) (declare (not safe)) - (foldr1 __tmp137545 '() _L131942_))))) - (let ((__tmp137546 - (let ((__tmp137547 - (let ((__tmp137554 - (let ((__tmp137555 + (foldr1 __tmp137549 '() _L131946_))))) + (let ((__tmp137550 + (let ((__tmp137551 + (let ((__tmp137558 + (let ((__tmp137559 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp137555))) - (__tmp137548 - (let ((__tmp137553 + (cons '%#ref __tmp137559))) + (__tmp137552 + (let ((__tmp137557 (let () (declare (not safe)) - (_force-e131108_ - _$method131998_))) - (__tmp137549 - (let ((__tmp137550 - (let ((__tmp137551 + (_force-e131112_ + _$method132002_))) + (__tmp137553 + (let ((__tmp137554 + (let ((__tmp137555 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137552 + (let ((__tmp137556 (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'receiver)))) + (slot-ref__0 _self131109_ 'receiver)))) (declare (not safe)) - (cons __tmp137552 '())))) + (cons __tmp137556 '())))) (declare (not safe)) - (cons '%#ref __tmp137551)))) + (cons '%#ref __tmp137555)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137550 - _args131999_)))) + (cons __tmp137554 + _args132003_)))) (declare (not safe)) - (cons __tmp137553 __tmp137549)))) + (cons __tmp137557 __tmp137553)))) (declare (not safe)) - (cons __tmp137554 __tmp137548)))) + (cons __tmp137558 __tmp137552)))) (declare (not safe)) - (cons '%#call __tmp137547)))) + (cons '%#call __tmp137551)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137546 _stx131106_))))) - (___kont136732136733_ - (lambda (_L131773_ _L131774_ _L131775_) - (let* ((_$field131807_ - (let ((__tmp137557 + (gxc#xform-wrap-source __tmp137550 _stx131110_))))) + (___kont136736136737_ + (lambda (_L131777_ _L131778_ _L131779_) + (let* ((_$field131811_ + (let ((__tmp137561 (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'slots))) - (__tmp137556 + (slot-ref__0 _self131109_ 'slots))) + (__tmp137560 (let () (declare (not safe)) - (gx#stx-e _L131773_)))) + (gx#stx-e _L131777_)))) (declare (not safe)) - (hash-ref__0 __tmp137557 __tmp137556))) - (__tmp137558 - (let ((__tmp137559 - (let ((__tmp137567 - (let ((__tmp137568 - (let ((__tmp137569 + (hash-ref__0 __tmp137561 __tmp137560))) + (__tmp137562 + (let ((__tmp137563 + (let ((__tmp137571 + (let ((__tmp137572 + (let ((__tmp137573 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'klass)))) (declare (not safe)) - (cons __tmp137569 '())))) + (cons __tmp137573 '())))) (declare (not safe)) - (cons '%#ref __tmp137568))) - (__tmp137560 - (let ((__tmp137565 - (let ((__tmp137566 + (cons '%#ref __tmp137572))) + (__tmp137564 + (let ((__tmp137569 + (let ((__tmp137570 (let () (declare (not safe)) - (cons _$field131807_ + (cons _$field131811_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp137566))) - (__tmp137561 - (let ((__tmp137562 - (let ((__tmp137563 - (let ((__tmp137564 + (cons '%#ref __tmp137570))) + (__tmp137565 + (let ((__tmp137566 + (let ((__tmp137567 + (let ((__tmp137568 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'receiver)))) + (slot-ref__0 _self131109_ 'receiver)))) (declare (not safe)) - (cons __tmp137564 '())))) + (cons __tmp137568 '())))) (declare (not safe)) - (cons '%#ref __tmp137563)))) + (cons '%#ref __tmp137567)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137562 '())))) + (cons __tmp137566 '())))) (declare (not safe)) - (cons __tmp137565 __tmp137561)))) + (cons __tmp137569 __tmp137565)))) (declare (not safe)) - (cons __tmp137567 __tmp137560)))) + (cons __tmp137571 __tmp137564)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp137559)))) + (cons '%#struct-unchecked-ref __tmp137563)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137558 _stx131106_)))) - (___kont136734136735_ - (lambda (_L131647_ _L131648_ _L131649_ _L131650_) - (let ((_$field131685_ - (let ((__tmp137571 + (gxc#xform-wrap-source __tmp137562 _stx131110_)))) + (___kont136738136739_ + (lambda (_L131651_ _L131652_ _L131653_ _L131654_) + (let ((_$field131689_ + (let ((__tmp137575 (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'slots))) - (__tmp137570 + (slot-ref__0 _self131109_ 'slots))) + (__tmp137574 (let () (declare (not safe)) - (gx#stx-e _L131648_)))) + (gx#stx-e _L131652_)))) (declare (not safe)) - (hash-ref__0 __tmp137571 __tmp137570))) - (_expr131686_ + (hash-ref__0 __tmp137575 __tmp137574))) + (_expr131690_ (let () (declare (not safe)) - (gxc#compile-e__1 _self131105_ _L131647_)))) - (let ((__tmp137572 - (let ((__tmp137573 - (let ((__tmp137582 - (let ((__tmp137583 - (let ((__tmp137584 + (gxc#compile-e__1 _self131109_ _L131651_)))) + (let ((__tmp137576 + (let ((__tmp137577 + (let ((__tmp137586 + (let ((__tmp137587 + (let ((__tmp137588 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'klass)))) (declare (not safe)) - (cons __tmp137584 '())))) + (cons __tmp137588 '())))) (declare (not safe)) - (cons '%#ref __tmp137583))) - (__tmp137574 - (let ((__tmp137580 - (let ((__tmp137581 + (cons '%#ref __tmp137587))) + (__tmp137578 + (let ((__tmp137584 + (let ((__tmp137585 (let () (declare (not safe)) - (cons _$field131685_ + (cons _$field131689_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp137581))) - (__tmp137575 - (let ((__tmp137577 - (let ((__tmp137578 + __tmp137585))) + (__tmp137579 + (let ((__tmp137581 + (let ((__tmp137582 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137579 + (let ((__tmp137583 (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'receiver)))) + (slot-ref__0 _self131109_ 'receiver)))) (declare (not safe)) - (cons __tmp137579 '())))) + (cons __tmp137583 '())))) (declare (not safe)) - (cons '%#ref __tmp137578))) - (__tmp137576 - (let () (declare (not safe)) (cons _expr131686_ '())))) + (cons '%#ref __tmp137582))) + (__tmp137580 + (let () (declare (not safe)) (cons _expr131690_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137577 - __tmp137576)))) + (cons __tmp137581 + __tmp137580)))) (declare (not safe)) - (cons __tmp137580 __tmp137575)))) + (cons __tmp137584 __tmp137579)))) (declare (not safe)) - (cons __tmp137582 __tmp137574)))) + (cons __tmp137586 __tmp137578)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp137573)))) + (cons '%#struct-unchecked-set! __tmp137577)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137572 _stx131106_))))) - (___kont136736136737_ - (lambda (_L131519_ _L131520_) - (let* ((_accessor131542_ - (let ((__tmp137585 + (gxc#xform-wrap-source __tmp137576 _stx131110_))))) + (___kont136740136741_ + (lambda (_L131523_ _L131524_) + (let* ((_accessor131546_ + (let ((__tmp137589 (let () (declare (not safe)) - (gxc#identifier-symbol _L131520_)))) + (gxc#identifier-symbol _L131524_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp137585))) - (_klass131544_ - (let ((__tmp137586 + (gxc#optimizer-resolve-type __tmp137589))) + (_klass131548_ + (let ((__tmp137590 (##structure-ref - _accessor131542_ + _accessor131546_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx131106_ - __tmp137586))) - (_slot131546_ + _stx131110_ + __tmp137590))) + (_slot131550_ (##structure-ref - _accessor131542_ + _accessor131546_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp137600 + (if (and (let ((__tmp137604 (##structure-ref - _accessor131542_ + _accessor131546_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp137600)) + (not __tmp137604)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass131544_ - _slot131546_)) + _klass131548_ + _slot131550_)) (##structure-ref - _klass131544_ + _klass131548_ '8 gxc#!class::t '#f))) - _stx131106_ - (let* ((_$field131552_ - (let ((__tmp137587 + _stx131110_ + (let* ((_$field131556_ + (let ((__tmp137591 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp137587 _slot131546_))) - (__tmp137588 - (let ((__tmp137589 - (let ((__tmp137597 - (let ((__tmp137598 - (let ((__tmp137599 + (hash-ref__0 __tmp137591 _slot131550_))) + (__tmp137592 + (let ((__tmp137593 + (let ((__tmp137601 + (let ((__tmp137602 + (let ((__tmp137603 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _self131105_ 'klass)))) + (slot-ref__0 _self131109_ 'klass)))) (declare (not safe)) - (cons __tmp137599 '())))) + (cons __tmp137603 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp137598))) - (__tmp137590 - (let ((__tmp137595 - (let ((__tmp137596 + (cons '%#ref __tmp137602))) + (__tmp137594 + (let ((__tmp137599 + (let ((__tmp137600 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field131552_ '())))) + (cons _$field131556_ '())))) (declare (not safe)) - (cons '%#ref __tmp137596))) - (__tmp137591 - (let ((__tmp137592 - (let ((__tmp137593 - (let ((__tmp137594 + (cons '%#ref __tmp137600))) + (__tmp137595 + (let ((__tmp137596 + (let ((__tmp137597 + (let ((__tmp137598 (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'receiver)))) + (slot-ref__0 _self131109_ 'receiver)))) (declare (not safe)) - (cons __tmp137594 '())))) + (cons __tmp137598 '())))) (declare (not safe)) - (cons '%#ref __tmp137593)))) + (cons '%#ref __tmp137597)))) (declare (not safe)) - (cons __tmp137592 '())))) + (cons __tmp137596 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137595 - __tmp137591)))) + (cons __tmp137599 + __tmp137595)))) (declare (not safe)) - (cons __tmp137597 __tmp137590)))) + (cons __tmp137601 __tmp137594)))) (declare (not safe)) (cons '%#struct-unchecked-ref - __tmp137589)))) + __tmp137593)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137588 - _stx131106_)))))) - (___kont136738136739_ - (lambda (_L131414_ _L131415_ _L131416_) - (let* ((_mutator131444_ - (let ((__tmp137601 + __tmp137592 + _stx131110_)))))) + (___kont136742136743_ + (lambda (_L131418_ _L131419_ _L131420_) + (let* ((_mutator131448_ + (let ((__tmp137605 (let () (declare (not safe)) - (gxc#identifier-symbol _L131416_)))) + (gxc#identifier-symbol _L131420_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp137601))) - (_klass131446_ - (let ((__tmp137602 + (gxc#optimizer-resolve-type __tmp137605))) + (_klass131450_ + (let ((__tmp137606 (##structure-ref - _mutator131444_ + _mutator131448_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx131106_ - __tmp137602))) - (_slot131448_ + _stx131110_ + __tmp137606))) + (_slot131452_ (##structure-ref - _mutator131444_ + _mutator131448_ '2 gxc#!mutator::t '#f)) - (_expr131450_ + (_expr131454_ (let () (declare (not safe)) - (gxc#compile-e__1 _self131105_ _L131414_)))) - (if (and (let ((__tmp137627 + (gxc#compile-e__1 _self131109_ _L131418_)))) + (if (and (let ((__tmp137631 (##structure-ref - _mutator131444_ + _mutator131448_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp137627)) + (not __tmp137631)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass131446_ - _slot131448_)) + _klass131450_ + _slot131452_)) (##structure-ref - _klass131446_ + _klass131450_ '8 gxc#!class::t '#f))) - (let ((__tmp137617 - (let ((__tmp137618 - (let ((__tmp137624 - (let ((__tmp137626 + (let ((__tmp137621 + (let ((__tmp137622 + (let ((__tmp137628 + (let ((__tmp137630 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp137625 + (__tmp137629 (let () (declare (not safe)) - (cons _L131416_ + (cons _L131420_ '())))) (declare (not safe)) - (cons __tmp137626 - __tmp137625))) - (__tmp137619 - (let ((__tmp137621 - (let ((__tmp137623 + (cons __tmp137630 + __tmp137629))) + (__tmp137623 + (let ((__tmp137625 + (let ((__tmp137627 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp137622 - (let () (declare (not safe)) (cons _L131415_ '())))) + (__tmp137626 + (let () (declare (not safe)) (cons _L131419_ '())))) (declare (not safe)) - (cons __tmp137623 __tmp137622))) - (__tmp137620 - (let () (declare (not safe)) (cons _expr131450_ '())))) + (cons __tmp137627 __tmp137626))) + (__tmp137624 + (let () (declare (not safe)) (cons _expr131454_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137621 - __tmp137620)))) + (cons __tmp137625 + __tmp137624)))) (declare (not safe)) - (cons __tmp137624 __tmp137619)))) + (cons __tmp137628 __tmp137623)))) (declare (not safe)) - (cons '%#call __tmp137618)))) + (cons '%#call __tmp137622)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137617 _stx131106_)) - (let* ((_$field131456_ - (let ((__tmp137603 + (gxc#xform-wrap-source __tmp137621 _stx131110_)) + (let* ((_$field131460_ + (let ((__tmp137607 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp137603 _slot131448_))) - (__tmp137604 - (let ((__tmp137605 - (let ((__tmp137614 - (let ((__tmp137615 - (let ((__tmp137616 + (hash-ref__0 __tmp137607 _slot131452_))) + (__tmp137608 + (let ((__tmp137609 + (let ((__tmp137618 + (let ((__tmp137619 + (let ((__tmp137620 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _self131105_ 'klass)))) + (slot-ref__0 _self131109_ 'klass)))) (declare (not safe)) - (cons __tmp137616 '())))) + (cons __tmp137620 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp137615))) - (__tmp137606 - (let ((__tmp137612 - (let ((__tmp137613 + (cons '%#ref __tmp137619))) + (__tmp137610 + (let ((__tmp137616 + (let ((__tmp137617 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field131456_ '())))) + (cons _$field131460_ '())))) (declare (not safe)) - (cons '%#ref __tmp137613))) - (__tmp137607 - (let ((__tmp137609 - (let ((__tmp137610 - (let ((__tmp137611 + (cons '%#ref __tmp137617))) + (__tmp137611 + (let ((__tmp137613 + (let ((__tmp137614 + (let ((__tmp137615 (let () (declare (not safe)) - (slot-ref__0 _self131105_ 'receiver)))) + (slot-ref__0 _self131109_ 'receiver)))) (declare (not safe)) - (cons __tmp137611 '())))) + (cons __tmp137615 '())))) (declare (not safe)) - (cons '%#ref __tmp137610))) - (__tmp137608 - (let () (declare (not safe)) (cons _expr131450_ '())))) + (cons '%#ref __tmp137614))) + (__tmp137612 + (let () (declare (not safe)) (cons _expr131454_ '())))) (declare (not safe)) - (cons __tmp137609 __tmp137608)))) + (cons __tmp137613 __tmp137612)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137612 - __tmp137607)))) + (cons __tmp137616 + __tmp137611)))) (declare (not safe)) - (cons __tmp137614 __tmp137606)))) + (cons __tmp137618 __tmp137610)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp137605)))) + __tmp137609)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137604 - _stx131106_)))))) - (___kont136740136741_ + __tmp137608 + _stx131110_)))))) + (___kont136744136745_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _self131105_ _stx131106_))))) - (let* ((___match137221137222_ - (lambda (_e131312131350_ - _hd131311131353_ - _tl131310131355_ - _e131315131358_ - _hd131314131361_ - _tl131313131363_ - _e131318131366_ - _hd131317131369_ - _tl131316131371_ - _e131321131374_ - _hd131320131377_ - _tl131319131379_ - _e131324131382_ - _hd131323131385_ - _tl131322131387_ - _e131327131390_ - _hd131326131393_ - _tl131325131395_ - _e131330131398_ - _hd131329131401_ - _tl131328131403_ - _e131333131406_ - _hd131332131409_ - _tl131331131411_) - (let ((_L131414_ _hd131332131409_) - (_L131415_ _hd131329131401_) - (_L131416_ _hd131320131377_)) - (if (and (let ((__tmp137630 + (gxc#xform-operands _self131109_ _stx131110_))))) + (let* ((___match137225137226_ + (lambda (_e131316131354_ + _hd131315131357_ + _tl131314131359_ + _e131319131362_ + _hd131318131365_ + _tl131317131367_ + _e131322131370_ + _hd131321131373_ + _tl131320131375_ + _e131325131378_ + _hd131324131381_ + _tl131323131383_ + _e131328131386_ + _hd131327131389_ + _tl131326131391_ + _e131331131394_ + _hd131330131397_ + _tl131329131399_ + _e131334131402_ + _hd131333131405_ + _tl131332131407_ + _e131337131410_ + _hd131336131413_ + _tl131335131415_) + (let ((_L131418_ _hd131336131413_) + (_L131419_ _hd131333131405_) + (_L131420_ _hd131324131381_)) + (if (and (let ((__tmp137634 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L131415_ - __tmp137630)) - (let ((__tmp137628 - (let ((__tmp137629 + _L131419_ + __tmp137634)) + (let ((__tmp137632 + (let ((__tmp137633 (let () (declare (not safe)) (gxc#identifier-symbol - _L131416_)))) + _L131420_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp137629)))) + __tmp137633)))) (declare (not safe)) (##structure-instance-of? - __tmp137628 + __tmp137632 'gxc#!mutator::t))) - (___kont136738136739_ - _L131414_ - _L131415_ - _L131416_) - (___kont136740136741_))))) - (___match137219137220_ - (lambda (_e131312131350_ - _hd131311131353_ - _tl131310131355_ - _e131315131358_ - _hd131314131361_ - _tl131313131363_ - _e131318131366_ - _hd131317131369_ - _tl131316131371_ - _e131321131374_ - _hd131320131377_ - _tl131319131379_ - _e131324131382_ - _hd131323131385_ - _tl131322131387_ - _e131327131390_ - _hd131326131393_ - _tl131325131395_ - _e131330131398_ - _hd131329131401_ - _tl131328131403_ - _e131333131406_ - _hd131332131409_ - _tl131331131411_) + (___kont136742136743_ + _L131418_ + _L131419_ + _L131420_) + (___kont136744136745_))))) + (___match137223137224_ + (lambda (_e131316131354_ + _hd131315131357_ + _tl131314131359_ + _e131319131362_ + _hd131318131365_ + _tl131317131367_ + _e131322131370_ + _hd131321131373_ + _tl131320131375_ + _e131325131378_ + _hd131324131381_ + _tl131323131383_ + _e131328131386_ + _hd131327131389_ + _tl131326131391_ + _e131331131394_ + _hd131330131397_ + _tl131329131399_ + _e131334131402_ + _hd131333131405_ + _tl131332131407_ + _e131337131410_ + _hd131336131413_ + _tl131335131415_) (if (let () (declare (not safe)) - (gx#stx-null? _tl131331131411_)) - (___match137221137222_ - _e131312131350_ - _hd131311131353_ - _tl131310131355_ - _e131315131358_ - _hd131314131361_ - _tl131313131363_ - _e131318131366_ - _hd131317131369_ - _tl131316131371_ - _e131321131374_ - _hd131320131377_ - _tl131319131379_ - _e131324131382_ - _hd131323131385_ - _tl131322131387_ - _e131327131390_ - _hd131326131393_ - _tl131325131395_ - _e131330131398_ - _hd131329131401_ - _tl131328131403_ - _e131333131406_ - _hd131332131409_ - _tl131331131411_) - (___kont136740136741_)))) - (___match137213137214_ - (lambda (_e131312131350_ - _hd131311131353_ - _tl131310131355_ - _e131315131358_ - _hd131314131361_ - _tl131313131363_ - _e131318131366_ - _hd131317131369_ - _tl131316131371_ - _e131321131374_ - _hd131320131377_ - _tl131319131379_ - _e131324131382_ - _hd131323131385_ - _tl131322131387_ - _e131327131390_ - _hd131326131393_ - _tl131325131395_ - _e131330131398_ - _hd131329131401_ - _tl131328131403_) + (gx#stx-null? _tl131335131415_)) + (___match137225137226_ + _e131316131354_ + _hd131315131357_ + _tl131314131359_ + _e131319131362_ + _hd131318131365_ + _tl131317131367_ + _e131322131370_ + _hd131321131373_ + _tl131320131375_ + _e131325131378_ + _hd131324131381_ + _tl131323131383_ + _e131328131386_ + _hd131327131389_ + _tl131326131391_ + _e131331131394_ + _hd131330131397_ + _tl131329131399_ + _e131334131402_ + _hd131333131405_ + _tl131332131407_ + _e131337131410_ + _hd131336131413_ + _tl131335131415_) + (___kont136744136745_)))) + (___match137217137218_ + (lambda (_e131316131354_ + _hd131315131357_ + _tl131314131359_ + _e131319131362_ + _hd131318131365_ + _tl131317131367_ + _e131322131370_ + _hd131321131373_ + _tl131320131375_ + _e131325131378_ + _hd131324131381_ + _tl131323131383_ + _e131328131386_ + _hd131327131389_ + _tl131326131391_ + _e131331131394_ + _hd131330131397_ + _tl131329131399_ + _e131334131402_ + _hd131333131405_ + _tl131332131407_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131322131387_)) - (let ((_e131333131406_ + (gx#stx-pair? _tl131326131391_)) + (let ((_e131337131410_ (let () (declare (not safe)) - (gx#stx-e _tl131322131387_)))) - (let ((_tl131331131411_ + (gx#stx-e _tl131326131391_)))) + (let ((_tl131335131415_ (let () (declare (not safe)) - (##cdr _e131333131406_))) - (_hd131332131409_ + (##cdr _e131337131410_))) + (_hd131336131413_ (let () (declare (not safe)) - (##car _e131333131406_)))) + (##car _e131337131410_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131331131411_)) - (___match137221137222_ - _e131312131350_ - _hd131311131353_ - _tl131310131355_ - _e131315131358_ - _hd131314131361_ - _tl131313131363_ - _e131318131366_ - _hd131317131369_ - _tl131316131371_ - _e131321131374_ - _hd131320131377_ - _tl131319131379_ - _e131324131382_ - _hd131323131385_ - _tl131322131387_ - _e131327131390_ - _hd131326131393_ - _tl131325131395_ - _e131330131398_ - _hd131329131401_ - _tl131328131403_ - _e131333131406_ - _hd131332131409_ - _tl131331131411_) - (___kont136740136741_)))) - (___kont136740136741_)))) - (___match137159137160_ - (lambda (_e131288131463_ - _hd131287131466_ - _tl131286131468_ - _e131291131471_ - _hd131290131474_ - _tl131289131476_ - _e131294131479_ - _hd131293131482_ - _tl131292131484_ - _e131297131487_ - _hd131296131490_ - _tl131295131492_ - _e131300131495_ - _hd131299131498_ - _tl131298131500_ - _e131303131503_ - _hd131302131506_ - _tl131301131508_ - _e131306131511_ - _hd131305131514_ - _tl131304131516_) - (let ((_L131519_ _hd131305131514_) - (_L131520_ _hd131296131490_)) - (if (and (let ((__tmp137633 + (gx#stx-null? _tl131335131415_)) + (___match137225137226_ + _e131316131354_ + _hd131315131357_ + _tl131314131359_ + _e131319131362_ + _hd131318131365_ + _tl131317131367_ + _e131322131370_ + _hd131321131373_ + _tl131320131375_ + _e131325131378_ + _hd131324131381_ + _tl131323131383_ + _e131328131386_ + _hd131327131389_ + _tl131326131391_ + _e131331131394_ + _hd131330131397_ + _tl131329131399_ + _e131334131402_ + _hd131333131405_ + _tl131332131407_ + _e131337131410_ + _hd131336131413_ + _tl131335131415_) + (___kont136744136745_)))) + (___kont136744136745_)))) + (___match137163137164_ + (lambda (_e131292131467_ + _hd131291131470_ + _tl131290131472_ + _e131295131475_ + _hd131294131478_ + _tl131293131480_ + _e131298131483_ + _hd131297131486_ + _tl131296131488_ + _e131301131491_ + _hd131300131494_ + _tl131299131496_ + _e131304131499_ + _hd131303131502_ + _tl131302131504_ + _e131307131507_ + _hd131306131510_ + _tl131305131512_ + _e131310131515_ + _hd131309131518_ + _tl131308131520_) + (let ((_L131523_ _hd131309131518_) + (_L131524_ _hd131300131494_)) + (if (and (let ((__tmp137637 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L131519_ - __tmp137633)) - (let ((__tmp137631 - (let ((__tmp137632 + _L131523_ + __tmp137637)) + (let ((__tmp137635 + (let ((__tmp137636 (let () (declare (not safe)) (gxc#identifier-symbol - _L131520_)))) + _L131524_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp137632)))) + __tmp137636)))) (declare (not safe)) (##structure-instance-of? - __tmp137631 + __tmp137635 'gxc#!accessor::t))) - (___kont136736136737_ _L131519_ _L131520_) - (___kont136740136741_))))) - (___match137157137158_ - (lambda (_e131288131463_ - _hd131287131466_ - _tl131286131468_ - _e131291131471_ - _hd131290131474_ - _tl131289131476_ - _e131294131479_ - _hd131293131482_ - _tl131292131484_ - _e131297131487_ - _hd131296131490_ - _tl131295131492_ - _e131300131495_ - _hd131299131498_ - _tl131298131500_ - _e131303131503_ - _hd131302131506_ - _tl131301131508_ - _e131306131511_ - _hd131305131514_ - _tl131304131516_) + (___kont136740136741_ _L131523_ _L131524_) + (___kont136744136745_))))) + (___match137161137162_ + (lambda (_e131292131467_ + _hd131291131470_ + _tl131290131472_ + _e131295131475_ + _hd131294131478_ + _tl131293131480_ + _e131298131483_ + _hd131297131486_ + _tl131296131488_ + _e131301131491_ + _hd131300131494_ + _tl131299131496_ + _e131304131499_ + _hd131303131502_ + _tl131302131504_ + _e131307131507_ + _hd131306131510_ + _tl131305131512_ + _e131310131515_ + _hd131309131518_ + _tl131308131520_) (if (let () (declare (not safe)) - (gx#stx-null? _tl131298131500_)) - (___match137159137160_ - _e131288131463_ - _hd131287131466_ - _tl131286131468_ - _e131291131471_ - _hd131290131474_ - _tl131289131476_ - _e131294131479_ - _hd131293131482_ - _tl131292131484_ - _e131297131487_ - _hd131296131490_ - _tl131295131492_ - _e131300131495_ - _hd131299131498_ - _tl131298131500_ - _e131303131503_ - _hd131302131506_ - _tl131301131508_ - _e131306131511_ - _hd131305131514_ - _tl131304131516_) - (___match137213137214_ - _e131288131463_ - _hd131287131466_ - _tl131286131468_ - _e131291131471_ - _hd131290131474_ - _tl131289131476_ - _e131294131479_ - _hd131293131482_ - _tl131292131484_ - _e131297131487_ - _hd131296131490_ - _tl131295131492_ - _e131300131495_ - _hd131299131498_ - _tl131298131500_ - _e131303131503_ - _hd131302131506_ - _tl131301131508_ - _e131306131511_ - _hd131305131514_ - _tl131304131516_)))) - (___match137103137104_ - (lambda (_e131253131559_ - _hd131252131562_ - _tl131251131564_ - _e131256131567_ - _hd131255131570_ - _tl131254131572_ - _e131259131575_ - _hd131258131578_ - _tl131257131580_ - _e131262131583_ - _hd131261131586_ - _tl131260131588_ - _e131265131591_ - _hd131264131594_ - _tl131263131596_ - _e131268131599_ - _hd131267131602_ - _tl131266131604_ - _e131271131607_ - _hd131270131610_ - _tl131269131612_ - _e131274131615_ - _hd131273131618_ - _tl131272131620_ - _e131277131623_ - _hd131276131626_ - _tl131275131628_ - _e131280131631_ - _hd131279131634_ - _tl131278131636_ - _e131283131639_ - _hd131282131642_ - _tl131281131644_) - (let ((_L131647_ _hd131282131642_) - (_L131648_ _hd131279131634_) - (_L131649_ _hd131270131610_) - (_L131650_ _hd131261131586_)) + (gx#stx-null? _tl131302131504_)) + (___match137163137164_ + _e131292131467_ + _hd131291131470_ + _tl131290131472_ + _e131295131475_ + _hd131294131478_ + _tl131293131480_ + _e131298131483_ + _hd131297131486_ + _tl131296131488_ + _e131301131491_ + _hd131300131494_ + _tl131299131496_ + _e131304131499_ + _hd131303131502_ + _tl131302131504_ + _e131307131507_ + _hd131306131510_ + _tl131305131512_ + _e131310131515_ + _hd131309131518_ + _tl131308131520_) + (___match137217137218_ + _e131292131467_ + _hd131291131470_ + _tl131290131472_ + _e131295131475_ + _hd131294131478_ + _tl131293131480_ + _e131298131483_ + _hd131297131486_ + _tl131296131488_ + _e131301131491_ + _hd131300131494_ + _tl131299131496_ + _e131304131499_ + _hd131303131502_ + _tl131302131504_ + _e131307131507_ + _hd131306131510_ + _tl131305131512_ + _e131310131515_ + _hd131309131518_ + _tl131308131520_)))) + (___match137107137108_ + (lambda (_e131257131563_ + _hd131256131566_ + _tl131255131568_ + _e131260131571_ + _hd131259131574_ + _tl131258131576_ + _e131263131579_ + _hd131262131582_ + _tl131261131584_ + _e131266131587_ + _hd131265131590_ + _tl131264131592_ + _e131269131595_ + _hd131268131598_ + _tl131267131600_ + _e131272131603_ + _hd131271131606_ + _tl131270131608_ + _e131275131611_ + _hd131274131614_ + _tl131273131616_ + _e131278131619_ + _hd131277131622_ + _tl131276131624_ + _e131281131627_ + _hd131280131630_ + _tl131279131632_ + _e131284131635_ + _hd131283131638_ + _tl131282131640_ + _e131287131643_ + _hd131286131646_ + _tl131285131648_) + (let ((_L131651_ _hd131286131646_) + (_L131652_ _hd131283131638_) + (_L131653_ _hd131274131614_) + (_L131654_ _hd131265131590_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131650_ + _L131654_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131650_ + _L131654_ 'unchecked-slot-set!))) - (let ((__tmp137634 + (let ((__tmp137638 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L131649_ - __tmp137634))) - (___kont136734136735_ - _L131647_ - _L131648_ - _L131649_ - _L131650_) - (___kont136740136741_))))) - (___match137095137096_ - (lambda (_e131253131559_ - _hd131252131562_ - _tl131251131564_ - _e131256131567_ - _hd131255131570_ - _tl131254131572_ - _e131259131575_ - _hd131258131578_ - _tl131257131580_ - _e131262131583_ - _hd131261131586_ - _tl131260131588_ - _e131265131591_ - _hd131264131594_ - _tl131263131596_ - _e131268131599_ - _hd131267131602_ - _tl131266131604_ - _e131271131607_ - _hd131270131610_ - _tl131269131612_ - _e131274131615_ - _hd131273131618_ - _tl131272131620_ - _e131277131623_ - _hd131276131626_ - _tl131275131628_ - _e131280131631_ - _hd131279131634_ - _tl131278131636_) + _L131653_ + __tmp137638))) + (___kont136738136739_ + _L131651_ + _L131652_ + _L131653_ + _L131654_) + (___kont136744136745_))))) + (___match137099137100_ + (lambda (_e131257131563_ + _hd131256131566_ + _tl131255131568_ + _e131260131571_ + _hd131259131574_ + _tl131258131576_ + _e131263131579_ + _hd131262131582_ + _tl131261131584_ + _e131266131587_ + _hd131265131590_ + _tl131264131592_ + _e131269131595_ + _hd131268131598_ + _tl131267131600_ + _e131272131603_ + _hd131271131606_ + _tl131270131608_ + _e131275131611_ + _hd131274131614_ + _tl131273131616_ + _e131278131619_ + _hd131277131622_ + _tl131276131624_ + _e131281131627_ + _hd131280131630_ + _tl131279131632_ + _e131284131635_ + _hd131283131638_ + _tl131282131640_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131272131620_)) - (let ((_e131283131639_ + (gx#stx-pair? _tl131276131624_)) + (let ((_e131287131643_ (let () (declare (not safe)) - (gx#stx-e _tl131272131620_)))) - (let ((_tl131281131644_ + (gx#stx-e _tl131276131624_)))) + (let ((_tl131285131648_ (let () (declare (not safe)) - (##cdr _e131283131639_))) - (_hd131282131642_ + (##cdr _e131287131643_))) + (_hd131286131646_ (let () (declare (not safe)) - (##car _e131283131639_)))) + (##car _e131287131643_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131281131644_)) - (___match137103137104_ - _e131253131559_ - _hd131252131562_ - _tl131251131564_ - _e131256131567_ - _hd131255131570_ - _tl131254131572_ - _e131259131575_ - _hd131258131578_ - _tl131257131580_ - _e131262131583_ - _hd131261131586_ - _tl131260131588_ - _e131265131591_ - _hd131264131594_ - _tl131263131596_ - _e131268131599_ - _hd131267131602_ - _tl131266131604_ - _e131271131607_ - _hd131270131610_ - _tl131269131612_ - _e131274131615_ - _hd131273131618_ - _tl131272131620_ - _e131277131623_ - _hd131276131626_ - _tl131275131628_ - _e131280131631_ - _hd131279131634_ - _tl131278131636_ - _e131283131639_ - _hd131282131642_ - _tl131281131644_) - (___kont136740136741_)))) - (___match137219137220_ - _e131253131559_ - _hd131252131562_ - _tl131251131564_ - _e131256131567_ - _hd131255131570_ - _tl131254131572_ - _e131259131575_ - _hd131258131578_ - _tl131257131580_ - _e131262131583_ - _hd131261131586_ - _tl131260131588_ - _e131265131591_ - _hd131264131594_ - _tl131263131596_ - _e131268131599_ - _hd131267131602_ - _tl131266131604_ - _e131271131607_ - _hd131270131610_ - _tl131269131612_ - _e131274131615_ - _hd131273131618_ - _tl131272131620_)))) - (___match137017137018_ - (lambda (_e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_ - _e131243131757_ - _hd131242131760_ - _tl131241131762_ - _e131246131765_ - _hd131245131768_ - _tl131244131770_) - (let ((_L131773_ _hd131245131768_) - (_L131774_ _hd131236131744_) - (_L131775_ _hd131227131720_)) + (gx#stx-null? _tl131285131648_)) + (___match137107137108_ + _e131257131563_ + _hd131256131566_ + _tl131255131568_ + _e131260131571_ + _hd131259131574_ + _tl131258131576_ + _e131263131579_ + _hd131262131582_ + _tl131261131584_ + _e131266131587_ + _hd131265131590_ + _tl131264131592_ + _e131269131595_ + _hd131268131598_ + _tl131267131600_ + _e131272131603_ + _hd131271131606_ + _tl131270131608_ + _e131275131611_ + _hd131274131614_ + _tl131273131616_ + _e131278131619_ + _hd131277131622_ + _tl131276131624_ + _e131281131627_ + _hd131280131630_ + _tl131279131632_ + _e131284131635_ + _hd131283131638_ + _tl131282131640_ + _e131287131643_ + _hd131286131646_ + _tl131285131648_) + (___kont136744136745_)))) + (___match137223137224_ + _e131257131563_ + _hd131256131566_ + _tl131255131568_ + _e131260131571_ + _hd131259131574_ + _tl131258131576_ + _e131263131579_ + _hd131262131582_ + _tl131261131584_ + _e131266131587_ + _hd131265131590_ + _tl131264131592_ + _e131269131595_ + _hd131268131598_ + _tl131267131600_ + _e131272131603_ + _hd131271131606_ + _tl131270131608_ + _e131275131611_ + _hd131274131614_ + _tl131273131616_ + _e131278131619_ + _hd131277131622_ + _tl131276131624_)))) + (___match137021137022_ + (lambda (_e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_ + _e131247131761_ + _hd131246131764_ + _tl131245131766_ + _e131250131769_ + _hd131249131772_ + _tl131248131774_) + (let ((_L131777_ _hd131249131772_) + (_L131778_ _hd131240131748_) + (_L131779_ _hd131231131724_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131775_ + _L131779_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131775_ + _L131779_ 'unchecked-slot-ref))) - (let ((__tmp137635 + (let ((__tmp137639 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L131774_ - __tmp137635))) - (___kont136732136733_ - _L131773_ - _L131774_ - _L131775_) - (___match137221137222_ - _e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_))))) - (___match137015137016_ - (lambda (_e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_ - _e131243131757_ - _hd131242131760_ - _tl131241131762_ - _e131246131765_ - _hd131245131768_ - _tl131244131770_) + _L131778_ + __tmp137639))) + (___kont136736136737_ + _L131777_ + _L131778_ + _L131779_) + (___match137225137226_ + _e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_))))) + (___match137019137020_ + (lambda (_e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_ + _e131247131761_ + _hd131246131764_ + _tl131245131766_ + _e131250131769_ + _hd131249131772_ + _tl131248131774_) (if (let () (declare (not safe)) - (gx#stx-null? _tl131238131754_)) - (___match137017137018_ - _e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_ - _e131243131757_ - _hd131242131760_ - _tl131241131762_ - _e131246131765_ - _hd131245131768_ - _tl131244131770_) - (___match137095137096_ - _e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_ - _e131243131757_ - _hd131242131760_ - _tl131241131762_ - _e131246131765_ - _hd131245131768_ - _tl131244131770_)))) - (___match137005137006_ - (lambda (_e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_ - _e131243131757_ - _hd131242131760_ - _tl131241131762_) + (gx#stx-null? _tl131242131758_)) + (___match137021137022_ + _e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_ + _e131247131761_ + _hd131246131764_ + _tl131245131766_ + _e131250131769_ + _hd131249131772_ + _tl131248131774_) + (___match137099137100_ + _e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_ + _e131247131761_ + _hd131246131764_ + _tl131245131766_ + _e131250131769_ + _hd131249131772_ + _tl131248131774_)))) + (___match137009137010_ + (lambda (_e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_ + _e131247131761_ + _hd131246131764_ + _tl131245131766_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd131242131760_)) + (gx#stx-eq? '%#quote _hd131246131764_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131241131762_)) - (let ((_e131246131765_ + (gx#stx-pair? _tl131245131766_)) + (let ((_e131250131769_ (let () (declare (not safe)) - (gx#stx-e _tl131241131762_)))) - (let ((_tl131244131770_ + (gx#stx-e _tl131245131766_)))) + (let ((_tl131248131774_ (let () (declare (not safe)) - (##cdr _e131246131765_))) - (_hd131245131768_ + (##cdr _e131250131769_))) + (_hd131249131772_ (let () (declare (not safe)) - (##car _e131246131765_)))) + (##car _e131250131769_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131244131770_)) + (gx#stx-null? _tl131248131774_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl131238131754_)) - (___match137017137018_ - _e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_ - _e131243131757_ - _hd131242131760_ - _tl131241131762_ - _e131246131765_ - _hd131245131768_ - _tl131244131770_) - (___match137095137096_ - _e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_ - _e131243131757_ - _hd131242131760_ - _tl131241131762_ - _e131246131765_ - _hd131245131768_ - _tl131244131770_)) - (___match137219137220_ - _e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_)))) - (___match137219137220_ - _e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_)) - (___match137219137220_ - _e131219131693_ - _hd131218131696_ - _tl131217131698_ - _e131222131701_ - _hd131221131704_ - _tl131220131706_ - _e131225131709_ - _hd131224131712_ - _tl131223131714_ - _e131228131717_ - _hd131227131720_ - _tl131226131722_ - _e131231131725_ - _hd131230131728_ - _tl131229131730_ - _e131234131733_ - _hd131233131736_ - _tl131232131738_ - _e131237131741_ - _hd131236131744_ - _tl131235131746_ - _e131240131749_ - _hd131239131752_ - _tl131238131754_)))) - (___match136937136938_ - (lambda (_e131168131814_ - _hd131167131817_ - _tl131166131819_ - _e131171131822_ - _hd131170131825_ - _tl131169131827_ - _e131174131830_ - _hd131173131833_ - _tl131172131835_ - _e131177131838_ - _hd131176131841_ - _tl131175131843_ - _e131180131846_ - _hd131179131849_ - _tl131178131851_ - _e131183131854_ - _hd131182131857_ - _tl131181131859_ - _e131186131862_ - _hd131185131865_ - _tl131184131867_ - _e131189131870_ - _hd131188131873_ - _tl131187131875_ - _e131192131878_ - _hd131191131881_ - _tl131190131883_ - _e131195131886_ - _hd131194131889_ - _tl131193131891_ - _e131198131894_ - _hd131197131897_ - _tl131196131899_ - _e131201131902_ - _hd131200131905_ - _tl131199131907_ - _e131204131910_ - _hd131203131913_ - _tl131202131915_ - ___splice136730136731_ - _target131205131918_ - _tl131207131920_) - (letrec ((_loop131208131923_ - (lambda (_hd131206131926_ _args131212131928_) + (gx#stx-null? _tl131242131758_)) + (___match137021137022_ + _e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_ + _e131247131761_ + _hd131246131764_ + _tl131245131766_ + _e131250131769_ + _hd131249131772_ + _tl131248131774_) + (___match137099137100_ + _e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_ + _e131247131761_ + _hd131246131764_ + _tl131245131766_ + _e131250131769_ + _hd131249131772_ + _tl131248131774_)) + (___match137223137224_ + _e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_)))) + (___match137223137224_ + _e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_)) + (___match137223137224_ + _e131223131697_ + _hd131222131700_ + _tl131221131702_ + _e131226131705_ + _hd131225131708_ + _tl131224131710_ + _e131229131713_ + _hd131228131716_ + _tl131227131718_ + _e131232131721_ + _hd131231131724_ + _tl131230131726_ + _e131235131729_ + _hd131234131732_ + _tl131233131734_ + _e131238131737_ + _hd131237131740_ + _tl131236131742_ + _e131241131745_ + _hd131240131748_ + _tl131239131750_ + _e131244131753_ + _hd131243131756_ + _tl131242131758_)))) + (___match136941136942_ + (lambda (_e131172131818_ + _hd131171131821_ + _tl131170131823_ + _e131175131826_ + _hd131174131829_ + _tl131173131831_ + _e131178131834_ + _hd131177131837_ + _tl131176131839_ + _e131181131842_ + _hd131180131845_ + _tl131179131847_ + _e131184131850_ + _hd131183131853_ + _tl131182131855_ + _e131187131858_ + _hd131186131861_ + _tl131185131863_ + _e131190131866_ + _hd131189131869_ + _tl131188131871_ + _e131193131874_ + _hd131192131877_ + _tl131191131879_ + _e131196131882_ + _hd131195131885_ + _tl131194131887_ + _e131199131890_ + _hd131198131893_ + _tl131197131895_ + _e131202131898_ + _hd131201131901_ + _tl131200131903_ + _e131205131906_ + _hd131204131909_ + _tl131203131911_ + _e131208131914_ + _hd131207131917_ + _tl131206131919_ + ___splice136734136735_ + _target131209131922_ + _tl131211131924_) + (letrec ((_loop131212131927_ + (lambda (_hd131210131930_ _args131216131932_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131206131926_)) - (let ((_e131209131931_ + (gx#stx-pair? _hd131210131930_)) + (let ((_e131213131935_ (let () (declare (not safe)) - (gx#stx-e _hd131206131926_)))) - (let ((_lp-tl131211131936_ + (gx#stx-e _hd131210131930_)))) + (let ((_lp-tl131215131940_ (let () (declare (not safe)) - (##cdr _e131209131931_))) - (_lp-hd131210131934_ + (##cdr _e131213131935_))) + (_lp-hd131214131938_ (let () (declare (not safe)) - (##car _e131209131931_)))) - (let ((__tmp137637 + (##car _e131213131935_)))) + (let ((__tmp137641 (let () (declare (not safe)) - (cons _lp-hd131210131934_ - _args131212131928_)))) + (cons _lp-hd131214131938_ + _args131216131932_)))) (declare (not safe)) - (_loop131208131923_ - _lp-tl131211131936_ - __tmp137637)))) - (let ((_args131213131939_ - (reverse _args131212131928_))) - (let ((_L131942_ _args131213131939_) - (_L131943_ _hd131203131913_) - (_L131944_ _hd131194131889_) - (_L131945_ _hd131185131865_) - (_L131946_ _hd131176131841_)) + (_loop131212131927_ + _lp-tl131215131940_ + __tmp137641)))) + (let ((_args131217131943_ + (reverse _args131216131932_))) + (let ((_L131946_ _args131217131943_) + (_L131947_ _hd131207131917_) + (_L131948_ _hd131198131893_) + (_L131949_ _hd131189131869_) + (_L131950_ _hd131180131845_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131946_ + _L131950_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131945_ + _L131949_ 'call-method)) - (let ((__tmp137636 + (let ((__tmp137640 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L131944_ - __tmp137636))) - (___kont136728136729_ - _L131942_ - _L131943_ - _L131944_ - _L131945_ - _L131946_) - (___kont136740136741_)))))))) + _L131948_ + __tmp137640))) + (___kont136732136733_ + _L131946_ + _L131947_ + _L131948_ + _L131949_ + _L131950_) + (___kont136744136745_)))))))) (let () (declare (not safe)) - (_loop131208131923_ _target131205131918_ '()))))) - (___match136895136896_ - (lambda (_e131168131814_ - _hd131167131817_ - _tl131166131819_ - _e131171131822_ - _hd131170131825_ - _tl131169131827_ - _e131174131830_ - _hd131173131833_ - _tl131172131835_ - _e131177131838_ - _hd131176131841_ - _tl131175131843_ - _e131180131846_ - _hd131179131849_ - _tl131178131851_ - _e131183131854_ - _hd131182131857_ - _tl131181131859_ - _e131186131862_ - _hd131185131865_ - _tl131184131867_ - _e131189131870_ - _hd131188131873_ - _tl131187131875_ - _e131192131878_ - _hd131191131881_ - _tl131190131883_) + (_loop131212131927_ _target131209131922_ '()))))) + (___match136899136900_ + (lambda (_e131172131818_ + _hd131171131821_ + _tl131170131823_ + _e131175131826_ + _hd131174131829_ + _tl131173131831_ + _e131178131834_ + _hd131177131837_ + _tl131176131839_ + _e131181131842_ + _hd131180131845_ + _tl131179131847_ + _e131184131850_ + _hd131183131853_ + _tl131182131855_ + _e131187131858_ + _hd131186131861_ + _tl131185131863_ + _e131190131866_ + _hd131189131869_ + _tl131188131871_ + _e131193131874_ + _hd131192131877_ + _tl131191131879_ + _e131196131882_ + _hd131195131885_ + _tl131194131887_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd131191131881_)) + (gx#stx-eq? '%#ref _hd131195131885_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131190131883_)) - (let ((_e131195131886_ + (gx#stx-pair? _tl131194131887_)) + (let ((_e131199131890_ (let () (declare (not safe)) - (gx#stx-e _tl131190131883_)))) - (let ((_tl131193131891_ + (gx#stx-e _tl131194131887_)))) + (let ((_tl131197131895_ (let () (declare (not safe)) - (##cdr _e131195131886_))) - (_hd131194131889_ + (##cdr _e131199131890_))) + (_hd131198131893_ (let () (declare (not safe)) - (##car _e131195131886_)))) + (##car _e131199131890_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131193131891_)) + (gx#stx-null? _tl131197131895_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131187131875_)) - (let ((_e131198131894_ + (gx#stx-pair? _tl131191131879_)) + (let ((_e131202131898_ (let () (declare (not safe)) (gx#stx-e - _tl131187131875_)))) - (let ((_tl131196131899_ + _tl131191131879_)))) + (let ((_tl131200131903_ (let () (declare (not safe)) - (##cdr _e131198131894_))) - (_hd131197131897_ + (##cdr _e131202131898_))) + (_hd131201131901_ (let () (declare (not safe)) - (##car _e131198131894_)))) + (##car _e131202131898_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd131197131897_)) - (let ((_e131201131902_ + _hd131201131901_)) + (let ((_e131205131906_ (let () (declare (not safe)) (gx#stx-e - _hd131197131897_)))) - (let ((_tl131199131907_ + _hd131201131901_)))) + (let ((_tl131203131911_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131201131902_))) - (_hd131200131905_ - (let () (declare (not safe)) (##car _e131201131902_)))) + (##cdr _e131205131906_))) + (_hd131204131909_ + (let () (declare (not safe)) (##car _e131205131906_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd131200131905_)) + (gx#identifier? _hd131204131909_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd131200131905_)) + (gx#stx-eq? '%#quote _hd131204131909_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131199131907_)) - (let ((_e131204131910_ + (gx#stx-pair? _tl131203131911_)) + (let ((_e131208131914_ (let () (declare (not safe)) - (gx#stx-e _tl131199131907_)))) - (let ((_tl131202131915_ + (gx#stx-e _tl131203131911_)))) + (let ((_tl131206131919_ (let () (declare (not safe)) - (##cdr _e131204131910_))) - (_hd131203131913_ + (##cdr _e131208131914_))) + (_hd131207131917_ (let () (declare (not safe)) - (##car _e131204131910_)))) + (##car _e131208131914_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131202131915_)) + (gx#stx-null? _tl131206131919_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl131196131899_)) - (let ((___splice136730136731_ + (gx#stx-pair/null? _tl131200131903_)) + (let ((___splice136734136735_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl131196131899_ + _tl131200131903_ '0)))) - (let ((_tl131207131920_ + (let ((_tl131211131924_ (let () (declare (not safe)) (##vector-ref - ___splice136730136731_ + ___splice136734136735_ '1))) - (_target131205131918_ + (_target131209131922_ (let () (declare (not safe)) (##vector-ref - ___splice136730136731_ + ___splice136734136735_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl131207131920_)) - (___match136937136938_ - _e131168131814_ - _hd131167131817_ - _tl131166131819_ - _e131171131822_ - _hd131170131825_ - _tl131169131827_ - _e131174131830_ - _hd131173131833_ - _tl131172131835_ - _e131177131838_ - _hd131176131841_ - _tl131175131843_ - _e131180131846_ - _hd131179131849_ - _tl131178131851_ - _e131183131854_ - _hd131182131857_ - _tl131181131859_ - _e131186131862_ - _hd131185131865_ - _tl131184131867_ - _e131189131870_ - _hd131188131873_ - _tl131187131875_ - _e131192131878_ - _hd131191131881_ - _tl131190131883_ - _e131195131886_ - _hd131194131889_ - _tl131193131891_ - _e131198131894_ - _hd131197131897_ - _tl131196131899_ - _e131201131902_ - _hd131200131905_ - _tl131199131907_ - _e131204131910_ - _hd131203131913_ - _tl131202131915_ - ___splice136730136731_ - _target131205131918_ - _tl131207131920_) - (___kont136740136741_)))) - (___kont136740136741_)) - (___kont136740136741_)))) - (___kont136740136741_)) - (___kont136740136741_)) - (___kont136740136741_)))) + _tl131211131924_)) + (___match136941136942_ + _e131172131818_ + _hd131171131821_ + _tl131170131823_ + _e131175131826_ + _hd131174131829_ + _tl131173131831_ + _e131178131834_ + _hd131177131837_ + _tl131176131839_ + _e131181131842_ + _hd131180131845_ + _tl131179131847_ + _e131184131850_ + _hd131183131853_ + _tl131182131855_ + _e131187131858_ + _hd131186131861_ + _tl131185131863_ + _e131190131866_ + _hd131189131869_ + _tl131188131871_ + _e131193131874_ + _hd131192131877_ + _tl131191131879_ + _e131196131882_ + _hd131195131885_ + _tl131194131887_ + _e131199131890_ + _hd131198131893_ + _tl131197131895_ + _e131202131898_ + _hd131201131901_ + _tl131200131903_ + _e131205131906_ + _hd131204131909_ + _tl131203131911_ + _e131208131914_ + _hd131207131917_ + _tl131206131919_ + ___splice136734136735_ + _target131209131922_ + _tl131211131924_) + (___kont136744136745_)))) + (___kont136744136745_)) + (___kont136744136745_)))) + (___kont136744136745_)) + (___kont136744136745_)) + (___kont136744136745_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136740136741_)))) - (___match137219137220_ - _e131168131814_ - _hd131167131817_ - _tl131166131819_ - _e131171131822_ - _hd131170131825_ - _tl131169131827_ - _e131174131830_ - _hd131173131833_ - _tl131172131835_ - _e131177131838_ - _hd131176131841_ - _tl131175131843_ - _e131180131846_ - _hd131179131849_ - _tl131178131851_ - _e131183131854_ - _hd131182131857_ - _tl131181131859_ - _e131186131862_ - _hd131185131865_ - _tl131184131867_ - _e131189131870_ - _hd131188131873_ - _tl131187131875_)) - (___match137219137220_ - _e131168131814_ - _hd131167131817_ - _tl131166131819_ - _e131171131822_ - _hd131170131825_ - _tl131169131827_ - _e131174131830_ - _hd131173131833_ - _tl131172131835_ - _e131177131838_ - _hd131176131841_ - _tl131175131843_ - _e131180131846_ - _hd131179131849_ - _tl131178131851_ - _e131183131854_ - _hd131182131857_ - _tl131181131859_ - _e131186131862_ - _hd131185131865_ - _tl131184131867_ - _e131189131870_ - _hd131188131873_ - _tl131187131875_)))) - (___match137219137220_ - _e131168131814_ - _hd131167131817_ - _tl131166131819_ - _e131171131822_ - _hd131170131825_ - _tl131169131827_ - _e131174131830_ - _hd131173131833_ - _tl131172131835_ - _e131177131838_ - _hd131176131841_ - _tl131175131843_ - _e131180131846_ - _hd131179131849_ - _tl131178131851_ - _e131183131854_ - _hd131182131857_ - _tl131181131859_ - _e131186131862_ - _hd131185131865_ - _tl131184131867_ - _e131189131870_ - _hd131188131873_ - _tl131187131875_)) - (___match137005137006_ - _e131168131814_ - _hd131167131817_ - _tl131166131819_ - _e131171131822_ - _hd131170131825_ - _tl131169131827_ - _e131174131830_ - _hd131173131833_ - _tl131172131835_ - _e131177131838_ - _hd131176131841_ - _tl131175131843_ - _e131180131846_ - _hd131179131849_ - _tl131178131851_ - _e131183131854_ - _hd131182131857_ - _tl131181131859_ - _e131186131862_ - _hd131185131865_ - _tl131184131867_ - _e131189131870_ - _hd131188131873_ - _tl131187131875_ - _e131192131878_ - _hd131191131881_ - _tl131190131883_)))) - (___match136827136828_ - (lambda (_e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_ - _e131148132070_ - _hd131147132073_ - _tl131146132075_ - _e131151132078_ - _hd131150132081_ - _tl131149132083_ - ___splice136726136727_ - _target131152132086_ - _tl131154132088_) - (letrec ((_loop131155132091_ - (lambda (_hd131153132094_ _args131159132096_) + (___kont136744136745_)))) + (___match137223137224_ + _e131172131818_ + _hd131171131821_ + _tl131170131823_ + _e131175131826_ + _hd131174131829_ + _tl131173131831_ + _e131178131834_ + _hd131177131837_ + _tl131176131839_ + _e131181131842_ + _hd131180131845_ + _tl131179131847_ + _e131184131850_ + _hd131183131853_ + _tl131182131855_ + _e131187131858_ + _hd131186131861_ + _tl131185131863_ + _e131190131866_ + _hd131189131869_ + _tl131188131871_ + _e131193131874_ + _hd131192131877_ + _tl131191131879_)) + (___match137223137224_ + _e131172131818_ + _hd131171131821_ + _tl131170131823_ + _e131175131826_ + _hd131174131829_ + _tl131173131831_ + _e131178131834_ + _hd131177131837_ + _tl131176131839_ + _e131181131842_ + _hd131180131845_ + _tl131179131847_ + _e131184131850_ + _hd131183131853_ + _tl131182131855_ + _e131187131858_ + _hd131186131861_ + _tl131185131863_ + _e131190131866_ + _hd131189131869_ + _tl131188131871_ + _e131193131874_ + _hd131192131877_ + _tl131191131879_)))) + (___match137223137224_ + _e131172131818_ + _hd131171131821_ + _tl131170131823_ + _e131175131826_ + _hd131174131829_ + _tl131173131831_ + _e131178131834_ + _hd131177131837_ + _tl131176131839_ + _e131181131842_ + _hd131180131845_ + _tl131179131847_ + _e131184131850_ + _hd131183131853_ + _tl131182131855_ + _e131187131858_ + _hd131186131861_ + _tl131185131863_ + _e131190131866_ + _hd131189131869_ + _tl131188131871_ + _e131193131874_ + _hd131192131877_ + _tl131191131879_)) + (___match137009137010_ + _e131172131818_ + _hd131171131821_ + _tl131170131823_ + _e131175131826_ + _hd131174131829_ + _tl131173131831_ + _e131178131834_ + _hd131177131837_ + _tl131176131839_ + _e131181131842_ + _hd131180131845_ + _tl131179131847_ + _e131184131850_ + _hd131183131853_ + _tl131182131855_ + _e131187131858_ + _hd131186131861_ + _tl131185131863_ + _e131190131866_ + _hd131189131869_ + _tl131188131871_ + _e131193131874_ + _hd131192131877_ + _tl131191131879_ + _e131196131882_ + _hd131195131885_ + _tl131194131887_)))) + (___match136831136832_ + (lambda (_e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_ + _e131152132074_ + _hd131151132077_ + _tl131150132079_ + _e131155132082_ + _hd131154132085_ + _tl131153132087_ + ___splice136730136731_ + _target131156132090_ + _tl131158132092_) + (letrec ((_loop131159132095_ + (lambda (_hd131157132098_ _args131163132100_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131153132094_)) - (let ((_e131156132099_ + (gx#stx-pair? _hd131157132098_)) + (let ((_e131160132103_ (let () (declare (not safe)) - (gx#stx-e _hd131153132094_)))) - (let ((_lp-tl131158132104_ + (gx#stx-e _hd131157132098_)))) + (let ((_lp-tl131162132108_ (let () (declare (not safe)) - (##cdr _e131156132099_))) - (_lp-hd131157132102_ + (##cdr _e131160132103_))) + (_lp-hd131161132106_ (let () (declare (not safe)) - (##car _e131156132099_)))) - (let ((__tmp137639 + (##car _e131160132103_)))) + (let ((__tmp137643 (let () (declare (not safe)) - (cons _lp-hd131157132102_ - _args131159132096_)))) + (cons _lp-hd131161132106_ + _args131163132100_)))) (declare (not safe)) - (_loop131155132091_ - _lp-tl131158132104_ - __tmp137639)))) - (let ((_args131160132107_ - (reverse _args131159132096_))) - (let ((_L132110_ _args131160132107_) - (_L132111_ _hd131150132081_) - (_L132112_ _hd131141132057_) - (_L132113_ _hd131132132033_)) + (_loop131159132095_ + _lp-tl131162132108_ + __tmp137643)))) + (let ((_args131164132111_ + (reverse _args131163132100_))) + (let ((_L132114_ _args131164132111_) + (_L132115_ _hd131154132085_) + (_L132116_ _hd131145132061_) + (_L132117_ _hd131136132037_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132113_ + _L132117_ 'call-method)) - (let ((__tmp137638 + (let ((__tmp137642 (let () (declare (not safe)) (slot-ref__0 - _self131105_ + _self131109_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L132112_ - __tmp137638))) - (___kont136724136725_ - _L132110_ - _L132111_ - _L132112_ - _L132113_) - (___match137015137016_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_ - _e131148132070_ - _hd131147132073_ - _tl131146132075_ - _e131151132078_ - _hd131150132081_ - _tl131149132083_)))))))) + _L132116_ + __tmp137642))) + (___kont136728136729_ + _L132114_ + _L132115_ + _L132116_ + _L132117_) + (___match137019137020_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_ + _e131152132074_ + _hd131151132077_ + _tl131150132079_ + _e131155132082_ + _hd131154132085_ + _tl131153132087_)))))))) (let () (declare (not safe)) - (_loop131155132091_ _target131152132086_ '())))))) + (_loop131159132095_ _target131156132090_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136722136723_)) - (let ((_e131124132006_ + (gx#stx-pair? ___stx136726136727_)) + (let ((_e131128132010_ (let () (declare (not safe)) - (gx#stx-e ___stx136722136723_)))) - (let ((_tl131122132011_ + (gx#stx-e ___stx136726136727_)))) + (let ((_tl131126132015_ (let () (declare (not safe)) - (##cdr _e131124132006_))) - (_hd131123132009_ + (##cdr _e131128132010_))) + (_hd131127132013_ (let () (declare (not safe)) - (##car _e131124132006_)))) + (##car _e131128132010_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131122132011_)) - (let ((_e131127132014_ + (gx#stx-pair? _tl131126132015_)) + (let ((_e131131132018_ (let () (declare (not safe)) - (gx#stx-e _tl131122132011_)))) - (let ((_tl131125132019_ + (gx#stx-e _tl131126132015_)))) + (let ((_tl131129132023_ (let () (declare (not safe)) - (##cdr _e131127132014_))) - (_hd131126132017_ + (##cdr _e131131132018_))) + (_hd131130132021_ (let () (declare (not safe)) - (##car _e131127132014_)))) + (##car _e131131132018_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131126132017_)) - (let ((_e131130132022_ + (gx#stx-pair? _hd131130132021_)) + (let ((_e131134132026_ (let () (declare (not safe)) - (gx#stx-e _hd131126132017_)))) - (let ((_tl131128132027_ + (gx#stx-e _hd131130132021_)))) + (let ((_tl131132132031_ (let () (declare (not safe)) - (##cdr _e131130132022_))) - (_hd131129132025_ + (##cdr _e131134132026_))) + (_hd131133132029_ (let () (declare (not safe)) - (##car _e131130132022_)))) + (##car _e131134132026_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd131129132025_)) + _hd131133132029_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd131129132025_)) + _hd131133132029_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131128132027_)) - (let ((_e131133132030_ + _tl131132132031_)) + (let ((_e131137132034_ (let () (declare (not safe)) (gx#stx-e - _tl131128132027_)))) - (let ((_tl131131132035_ + _tl131132132031_)))) + (let ((_tl131135132039_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131133132030_))) - (_hd131132132033_ - (let () (declare (not safe)) (##car _e131133132030_)))) + (##cdr _e131137132034_))) + (_hd131136132037_ + (let () (declare (not safe)) (##car _e131137132034_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131131132035_)) + (gx#stx-null? _tl131135132039_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131125132019_)) - (let ((_e131136132038_ + (gx#stx-pair? _tl131129132023_)) + (let ((_e131140132042_ (let () (declare (not safe)) - (gx#stx-e _tl131125132019_)))) - (let ((_tl131134132043_ + (gx#stx-e _tl131129132023_)))) + (let ((_tl131138132047_ (let () (declare (not safe)) - (##cdr _e131136132038_))) - (_hd131135132041_ + (##cdr _e131140132042_))) + (_hd131139132045_ (let () (declare (not safe)) - (##car _e131136132038_)))) + (##car _e131140132042_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131135132041_)) - (let ((_e131139132046_ + (gx#stx-pair? _hd131139132045_)) + (let ((_e131143132050_ (let () (declare (not safe)) - (gx#stx-e _hd131135132041_)))) - (let ((_tl131137132051_ + (gx#stx-e _hd131139132045_)))) + (let ((_tl131141132055_ (let () (declare (not safe)) - (##cdr _e131139132046_))) - (_hd131138132049_ + (##cdr _e131143132050_))) + (_hd131142132053_ (let () (declare (not safe)) - (##car _e131139132046_)))) + (##car _e131143132050_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd131138132049_)) + (gx#identifier? _hd131142132053_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd131138132049_)) + _hd131142132053_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131137132051_)) - (let ((_e131142132054_ + _tl131141132055_)) + (let ((_e131146132058_ (let () (declare (not safe)) (gx#stx-e - _tl131137132051_)))) - (let ((_tl131140132059_ + _tl131141132055_)))) + (let ((_tl131144132063_ (let () (declare (not safe)) - (##cdr _e131142132054_))) - (_hd131141132057_ + (##cdr _e131146132058_))) + (_hd131145132061_ (let () (declare (not safe)) - (##car _e131142132054_)))) + (##car _e131146132058_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl131140132059_)) + _tl131144132063_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131134132043_)) - (let ((_e131145132062_ + _tl131138132047_)) + (let ((_e131149132066_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl131134132043_)))) - (let ((_tl131143132067_ + (gx#stx-e _tl131138132047_)))) + (let ((_tl131147132071_ (let () (declare (not safe)) - (##cdr _e131145132062_))) - (_hd131144132065_ + (##cdr _e131149132066_))) + (_hd131148132069_ (let () (declare (not safe)) - (##car _e131145132062_)))) + (##car _e131149132066_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131144132065_)) - (let ((_e131148132070_ + (gx#stx-pair? _hd131148132069_)) + (let ((_e131152132074_ (let () (declare (not safe)) - (gx#stx-e _hd131144132065_)))) - (let ((_tl131146132075_ + (gx#stx-e _hd131148132069_)))) + (let ((_tl131150132079_ (let () (declare (not safe)) - (##cdr _e131148132070_))) - (_hd131147132073_ + (##cdr _e131152132074_))) + (_hd131151132077_ (let () (declare (not safe)) - (##car _e131148132070_)))) + (##car _e131152132074_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd131147132073_)) + (gx#identifier? _hd131151132077_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd131147132073_)) + _hd131151132077_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131146132075_)) - (let ((_e131151132078_ + (gx#stx-pair? _tl131150132079_)) + (let ((_e131155132082_ (let () (declare (not safe)) (gx#stx-e - _tl131146132075_)))) - (let ((_tl131149132083_ + _tl131150132079_)))) + (let ((_tl131153132087_ (let () (declare (not safe)) - (##cdr _e131151132078_))) - (_hd131150132081_ + (##cdr _e131155132082_))) + (_hd131154132085_ (let () (declare (not safe)) - (##car _e131151132078_)))) + (##car _e131155132082_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl131149132083_)) + _tl131153132087_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl131143132067_)) - (let ((___splice136726136727_ + _tl131147132071_)) + (let ((___splice136730136731_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl131143132067_ '0)))) - (let ((_tl131154132088_ + (gx#syntax-split-splice _tl131147132071_ '0)))) + (let ((_tl131158132092_ (let () (declare (not safe)) - (##vector-ref ___splice136726136727_ '1))) - (_target131152132086_ + (##vector-ref ___splice136730136731_ '1))) + (_target131156132090_ (let () (declare (not safe)) - (##vector-ref ___splice136726136727_ '0)))) + (##vector-ref ___splice136730136731_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131154132088_)) - (___match136827136828_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_ - _e131148132070_ - _hd131147132073_ - _tl131146132075_ - _e131151132078_ - _hd131150132081_ - _tl131149132083_ - ___splice136726136727_ - _target131152132086_ - _tl131154132088_) - (___match137015137016_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_ - _e131148132070_ - _hd131147132073_ - _tl131146132075_ - _e131151132078_ - _hd131150132081_ - _tl131149132083_)))) - (___match137015137016_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_ - _e131148132070_ - _hd131147132073_ - _tl131146132075_ - _e131151132078_ - _hd131150132081_ - _tl131149132083_)) + (gx#stx-null? _tl131158132092_)) + (___match136831136832_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_ + _e131152132074_ + _hd131151132077_ + _tl131150132079_ + _e131155132082_ + _hd131154132085_ + _tl131153132087_ + ___splice136730136731_ + _target131156132090_ + _tl131158132092_) + (___match137019137020_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_ + _e131152132074_ + _hd131151132077_ + _tl131150132079_ + _e131155132082_ + _hd131154132085_ + _tl131153132087_)))) + (___match137019137020_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_ + _e131152132074_ + _hd131151132077_ + _tl131150132079_ + _e131155132082_ + _hd131154132085_ + _tl131153132087_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match137219137220_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_)))) - (___match137219137220_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_)) - (___match136895136896_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_ - _e131148132070_ - _hd131147132073_ - _tl131146132075_)) - (___match137219137220_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_)))) - (___match137219137220_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_ - _e131145132062_ - _hd131144132065_ - _tl131143132067_)))) - (___match137157137158_ - _e131124132006_ - _hd131123132009_ - _tl131122132011_ - _e131127132014_ - _hd131126132017_ - _tl131125132019_ - _e131130132022_ - _hd131129132025_ - _tl131128132027_ - _e131133132030_ - _hd131132132033_ - _tl131131132035_ - _e131136132038_ - _hd131135132041_ - _tl131134132043_ - _e131139132046_ - _hd131138132049_ - _tl131137132051_ - _e131142132054_ - _hd131141132057_ - _tl131140132059_)) - (___kont136740136741_)))) + (___match137223137224_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_)))) + (___match137223137224_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_)) + (___match136899136900_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_ + _e131152132074_ + _hd131151132077_ + _tl131150132079_)) + (___match137223137224_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_)))) + (___match137223137224_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_ + _e131149132066_ + _hd131148132069_ + _tl131147132071_)))) + (___match137161137162_ + _e131128132010_ + _hd131127132013_ + _tl131126132015_ + _e131131132018_ + _hd131130132021_ + _tl131129132023_ + _e131134132026_ + _hd131133132029_ + _tl131132132031_ + _e131137132034_ + _hd131136132037_ + _tl131135132039_ + _e131140132042_ + _hd131139132045_ + _tl131138132047_ + _e131143132050_ + _hd131142132053_ + _tl131141132055_ + _e131146132058_ + _hd131145132061_ + _tl131144132063_)) + (___kont136744136745_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136740136741_)) - (___kont136740136741_)) - (___kont136740136741_)))) - (___kont136740136741_)))) - (___kont136740136741_)) - (___kont136740136741_)))) + (___kont136744136745_)) + (___kont136744136745_)) + (___kont136744136745_)))) + (___kont136744136745_)))) + (___kont136744136745_)) + (___kont136744136745_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136740136741_)) - (___kont136740136741_)) - (___kont136740136741_)))) - (___kont136740136741_)))) - (___kont136740136741_)))) - (___kont136740136741_)))))))))) + (___kont136744136745_)) + (___kont136744136745_)) + (___kont136744136745_)))) + (___kont136744136745_)))) + (___kont136744136745_)))) + (___kont136744136745_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index 2f7b99ac9..c3fc6f5cd 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm @@ -1,279 +1,279 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g137642_| + (define |gxc[1]#_g137646_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137644_| + (define |gxc[1]#_g137648_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137646_| + (define |gxc[1]#_g137650_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137648_| + (define |gxc[1]#_g137652_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137651_| + (define |gxc[1]#_g137655_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137653_| + (define |gxc[1]#_g137657_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137655_| + (define |gxc[1]#_g137659_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137657_| + (define |gxc[1]#_g137661_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137663_| + (define |gxc[1]#_g137667_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137666_| + (define |gxc[1]#_g137670_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137669_| + (define |gxc[1]#_g137673_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137675_| + (define |gxc[1]#_g137679_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137678_| + (define |gxc[1]#_g137682_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137681_| + (define |gxc[1]#_g137685_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137687_| + (define |gxc[1]#_g137691_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137690_| + (define |gxc[1]#_g137694_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137693_| + (define |gxc[1]#_g137697_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137699_| + (define |gxc[1]#_g137703_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137702_| + (define |gxc[1]#_g137706_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137705_| + (define |gxc[1]#_g137709_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137708_| + (define |gxc[1]#_g137712_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137710_| + (define |gxc[1]#_g137714_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137712_| + (define |gxc[1]#_g137716_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137714_| + (define |gxc[1]#_g137718_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137721_| + (define |gxc[1]#_g137725_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137724_| + (define |gxc[1]#_g137728_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137727_| + (define |gxc[1]#_g137731_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137730_| + (define |gxc[1]#_g137734_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137737_| + (define |gxc[1]#_g137741_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137740_| + (define |gxc[1]#_g137744_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137743_| + (define |gxc[1]#_g137747_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137746_| + (define |gxc[1]#_g137750_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137753_| + (define |gxc[1]#_g137757_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137756_| + (define |gxc[1]#_g137760_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137759_| + (define |gxc[1]#_g137763_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137762_| + (define |gxc[1]#_g137766_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137769_| + (define |gxc[1]#_g137773_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137772_| + (define |gxc[1]#_g137776_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137775_| + (define |gxc[1]#_g137779_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137778_| + (define |gxc[1]#_g137782_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! @@ -282,7 +282,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj137223 + (let ((__obj137227 (let () (declare (not safe)) (##structure @@ -306,7 +306,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 'gxc#::generate-method-specializers::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -314,7 +314,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '::generate-method-specializers '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -322,26 +322,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137640 - (let ((__tmp137641 |gxc[1]#_g137642_|)) + (let ((__tmp137644 + (let ((__tmp137645 |gxc[1]#_g137646_|)) (declare (not safe)) - (cons __tmp137641 '())))) + (cons __tmp137645 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj137223 - __tmp137640 + __obj137227 + __tmp137644 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -349,7 +349,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -357,7 +357,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -365,39 +365,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137643 |gxc[1]#_g137644_|)) + (let ((__tmp137647 |gxc[1]#_g137648_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137223 - __tmp137643 + __obj137227 + __tmp137647 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137645 |gxc[1]#_g137646_|)) + (let ((__tmp137649 |gxc[1]#_g137650_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137223 - __tmp137645 + __obj137227 + __tmp137649 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137647 |gxc[1]#_g137648_|)) + (let ((__tmp137651 |gxc[1]#_g137652_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137223 - __tmp137647 + __obj137227 + __tmp137651 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -405,7 +405,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -413,7 +413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -421,14 +421,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137223 + __obj137227 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj137223)) + __obj137227)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj137225 + (let ((__obj137229 (let () (declare (not safe)) (##structure @@ -452,7 +452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137225 + __obj137229 'gxc#::collect-object-refs::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -460,7 +460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137225 + __obj137229 '::collect-object-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -468,26 +468,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137225 + __obj137229 '(receiver methods slots) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137649 - (let ((__tmp137650 |gxc[1]#_g137651_|)) + (let ((__tmp137653 + (let ((__tmp137654 |gxc[1]#_g137655_|)) (declare (not safe)) - (cons __tmp137650 '())))) + (cons __tmp137654 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj137225 - __tmp137649 + __obj137229 + __tmp137653 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137225 + __obj137229 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -495,7 +495,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137225 + __obj137229 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -503,7 +503,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137225 + __obj137229 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -511,150 +511,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137225 + __obj137229 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137652 |gxc[1]#_g137653_|)) + (let ((__tmp137656 |gxc[1]#_g137657_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137225 - __tmp137652 + __obj137229 + __tmp137656 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137654 |gxc[1]#_g137655_|)) + (let ((__tmp137658 |gxc[1]#_g137659_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137225 - __tmp137654 + __obj137229 + __tmp137658 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137656 |gxc[1]#_g137657_|)) + (let ((__tmp137660 |gxc[1]#_g137661_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137225 - __tmp137656 + __obj137229 + __tmp137660 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137658 - (let ((__tmp137667 - (let ((__tmp137668 |gxc[1]#_g137669_|)) + (let ((__tmp137662 + (let ((__tmp137671 + (let ((__tmp137672 |gxc[1]#_g137673_|)) (declare (not safe)) - (cons 'receiver __tmp137668))) - (__tmp137659 - (let ((__tmp137664 - (let ((__tmp137665 |gxc[1]#_g137666_|)) + (cons 'receiver __tmp137672))) + (__tmp137663 + (let ((__tmp137668 + (let ((__tmp137669 |gxc[1]#_g137670_|)) (declare (not safe)) - (cons 'methods __tmp137665))) - (__tmp137660 - (let ((__tmp137661 - (let ((__tmp137662 |gxc[1]#_g137663_|)) + (cons 'methods __tmp137669))) + (__tmp137664 + (let ((__tmp137665 + (let ((__tmp137666 |gxc[1]#_g137667_|)) (declare (not safe)) - (cons 'slots __tmp137662)))) + (cons 'slots __tmp137666)))) (declare (not safe)) - (cons __tmp137661 '())))) + (cons __tmp137665 '())))) (declare (not safe)) - (cons __tmp137664 __tmp137660)))) + (cons __tmp137668 __tmp137664)))) (declare (not safe)) - (cons __tmp137667 __tmp137659)))) + (cons __tmp137671 __tmp137663)))) (declare (not safe)) (##unchecked-structure-set! - __obj137225 - __tmp137658 + __obj137229 + __tmp137662 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137670 - (let ((__tmp137679 - (let ((__tmp137680 |gxc[1]#_g137681_|)) + (let ((__tmp137674 + (let ((__tmp137683 + (let ((__tmp137684 |gxc[1]#_g137685_|)) (declare (not safe)) - (cons 'receiver __tmp137680))) - (__tmp137671 - (let ((__tmp137676 - (let ((__tmp137677 |gxc[1]#_g137678_|)) + (cons 'receiver __tmp137684))) + (__tmp137675 + (let ((__tmp137680 + (let ((__tmp137681 |gxc[1]#_g137682_|)) (declare (not safe)) - (cons 'methods __tmp137677))) - (__tmp137672 - (let ((__tmp137673 - (let ((__tmp137674 |gxc[1]#_g137675_|)) + (cons 'methods __tmp137681))) + (__tmp137676 + (let ((__tmp137677 + (let ((__tmp137678 |gxc[1]#_g137679_|)) (declare (not safe)) - (cons 'slots __tmp137674)))) + (cons 'slots __tmp137678)))) (declare (not safe)) - (cons __tmp137673 '())))) + (cons __tmp137677 '())))) (declare (not safe)) - (cons __tmp137676 __tmp137672)))) + (cons __tmp137680 __tmp137676)))) (declare (not safe)) - (cons __tmp137679 __tmp137671)))) + (cons __tmp137683 __tmp137675)))) (declare (not safe)) (##unchecked-structure-set! - __obj137225 - __tmp137670 + __obj137229 + __tmp137674 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137682 - (let ((__tmp137691 - (let ((__tmp137692 |gxc[1]#_g137693_|)) + (let ((__tmp137686 + (let ((__tmp137695 + (let ((__tmp137696 |gxc[1]#_g137697_|)) (declare (not safe)) - (cons 'receiver __tmp137692))) - (__tmp137683 - (let ((__tmp137688 - (let ((__tmp137689 |gxc[1]#_g137690_|)) + (cons 'receiver __tmp137696))) + (__tmp137687 + (let ((__tmp137692 + (let ((__tmp137693 |gxc[1]#_g137694_|)) (declare (not safe)) - (cons 'methods __tmp137689))) - (__tmp137684 - (let ((__tmp137685 - (let ((__tmp137686 |gxc[1]#_g137687_|)) + (cons 'methods __tmp137693))) + (__tmp137688 + (let ((__tmp137689 + (let ((__tmp137690 |gxc[1]#_g137691_|)) (declare (not safe)) - (cons 'slots __tmp137686)))) + (cons 'slots __tmp137690)))) (declare (not safe)) - (cons __tmp137685 '())))) + (cons __tmp137689 '())))) (declare (not safe)) - (cons __tmp137688 __tmp137684)))) + (cons __tmp137692 __tmp137688)))) (declare (not safe)) - (cons __tmp137691 __tmp137683)))) + (cons __tmp137695 __tmp137687)))) (declare (not safe)) (##unchecked-structure-set! - __obj137225 - __tmp137682 + __obj137229 + __tmp137686 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137694 - (let ((__tmp137703 - (let ((__tmp137704 |gxc[1]#_g137705_|)) + (let ((__tmp137698 + (let ((__tmp137707 + (let ((__tmp137708 |gxc[1]#_g137709_|)) (declare (not safe)) - (cons 'receiver __tmp137704))) - (__tmp137695 - (let ((__tmp137700 - (let ((__tmp137701 |gxc[1]#_g137702_|)) + (cons 'receiver __tmp137708))) + (__tmp137699 + (let ((__tmp137704 + (let ((__tmp137705 |gxc[1]#_g137706_|)) (declare (not safe)) - (cons 'methods __tmp137701))) - (__tmp137696 - (let ((__tmp137697 - (let ((__tmp137698 |gxc[1]#_g137699_|)) + (cons 'methods __tmp137705))) + (__tmp137700 + (let ((__tmp137701 + (let ((__tmp137702 |gxc[1]#_g137703_|)) (declare (not safe)) - (cons 'slots __tmp137698)))) + (cons 'slots __tmp137702)))) (declare (not safe)) - (cons __tmp137697 '())))) + (cons __tmp137701 '())))) (declare (not safe)) - (cons __tmp137700 __tmp137696)))) + (cons __tmp137704 __tmp137700)))) (declare (not safe)) - (cons __tmp137703 __tmp137695)))) + (cons __tmp137707 __tmp137699)))) (declare (not safe)) (##unchecked-structure-set! - __obj137225 - __tmp137694 + __obj137229 + __tmp137698 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj137225)) + __obj137229)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj137227 + (let ((__obj137231 (let () (declare (not safe)) (##structure @@ -678,7 +678,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137231 'gxc#::subst-object-refs::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -686,7 +686,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137231 '::subst-object-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -694,26 +694,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137231 '(receiver klass methods slots) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137706 - (let ((__tmp137707 |gxc[1]#_g137708_|)) + (let ((__tmp137710 + (let ((__tmp137711 |gxc[1]#_g137712_|)) (declare (not safe)) - (cons __tmp137707 '())))) + (cons __tmp137711 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137706 + __obj137231 + __tmp137710 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137231 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -721,7 +721,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137231 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -729,7 +729,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137231 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -737,177 +737,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137231 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137709 |gxc[1]#_g137710_|)) + (let ((__tmp137713 |gxc[1]#_g137714_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137709 + __obj137231 + __tmp137713 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137711 |gxc[1]#_g137712_|)) + (let ((__tmp137715 |gxc[1]#_g137716_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137711 + __obj137231 + __tmp137715 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137713 |gxc[1]#_g137714_|)) + (let ((__tmp137717 |gxc[1]#_g137718_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137713 + __obj137231 + __tmp137717 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137715 - (let ((__tmp137728 - (let ((__tmp137729 |gxc[1]#_g137730_|)) + (let ((__tmp137719 + (let ((__tmp137732 + (let ((__tmp137733 |gxc[1]#_g137734_|)) (declare (not safe)) - (cons 'receiver __tmp137729))) - (__tmp137716 - (let ((__tmp137725 - (let ((__tmp137726 |gxc[1]#_g137727_|)) + (cons 'receiver __tmp137733))) + (__tmp137720 + (let ((__tmp137729 + (let ((__tmp137730 |gxc[1]#_g137731_|)) (declare (not safe)) - (cons 'klass __tmp137726))) - (__tmp137717 - (let ((__tmp137722 - (let ((__tmp137723 |gxc[1]#_g137724_|)) + (cons 'klass __tmp137730))) + (__tmp137721 + (let ((__tmp137726 + (let ((__tmp137727 |gxc[1]#_g137728_|)) (declare (not safe)) - (cons 'methods __tmp137723))) - (__tmp137718 - (let ((__tmp137719 - (let ((__tmp137720 - |gxc[1]#_g137721_|)) + (cons 'methods __tmp137727))) + (__tmp137722 + (let ((__tmp137723 + (let ((__tmp137724 + |gxc[1]#_g137725_|)) (declare (not safe)) - (cons 'slots __tmp137720)))) + (cons 'slots __tmp137724)))) (declare (not safe)) - (cons __tmp137719 '())))) + (cons __tmp137723 '())))) (declare (not safe)) - (cons __tmp137722 __tmp137718)))) + (cons __tmp137726 __tmp137722)))) (declare (not safe)) - (cons __tmp137725 __tmp137717)))) + (cons __tmp137729 __tmp137721)))) (declare (not safe)) - (cons __tmp137728 __tmp137716)))) + (cons __tmp137732 __tmp137720)))) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137715 + __obj137231 + __tmp137719 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137731 - (let ((__tmp137744 - (let ((__tmp137745 |gxc[1]#_g137746_|)) + (let ((__tmp137735 + (let ((__tmp137748 + (let ((__tmp137749 |gxc[1]#_g137750_|)) (declare (not safe)) - (cons 'receiver __tmp137745))) - (__tmp137732 - (let ((__tmp137741 - (let ((__tmp137742 |gxc[1]#_g137743_|)) + (cons 'receiver __tmp137749))) + (__tmp137736 + (let ((__tmp137745 + (let ((__tmp137746 |gxc[1]#_g137747_|)) (declare (not safe)) - (cons 'klass __tmp137742))) - (__tmp137733 - (let ((__tmp137738 - (let ((__tmp137739 |gxc[1]#_g137740_|)) + (cons 'klass __tmp137746))) + (__tmp137737 + (let ((__tmp137742 + (let ((__tmp137743 |gxc[1]#_g137744_|)) (declare (not safe)) - (cons 'methods __tmp137739))) - (__tmp137734 - (let ((__tmp137735 - (let ((__tmp137736 - |gxc[1]#_g137737_|)) + (cons 'methods __tmp137743))) + (__tmp137738 + (let ((__tmp137739 + (let ((__tmp137740 + |gxc[1]#_g137741_|)) (declare (not safe)) - (cons 'slots __tmp137736)))) + (cons 'slots __tmp137740)))) (declare (not safe)) - (cons __tmp137735 '())))) + (cons __tmp137739 '())))) (declare (not safe)) - (cons __tmp137738 __tmp137734)))) + (cons __tmp137742 __tmp137738)))) (declare (not safe)) - (cons __tmp137741 __tmp137733)))) + (cons __tmp137745 __tmp137737)))) (declare (not safe)) - (cons __tmp137744 __tmp137732)))) + (cons __tmp137748 __tmp137736)))) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137731 + __obj137231 + __tmp137735 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137747 - (let ((__tmp137760 - (let ((__tmp137761 |gxc[1]#_g137762_|)) + (let ((__tmp137751 + (let ((__tmp137764 + (let ((__tmp137765 |gxc[1]#_g137766_|)) (declare (not safe)) - (cons 'receiver __tmp137761))) - (__tmp137748 - (let ((__tmp137757 - (let ((__tmp137758 |gxc[1]#_g137759_|)) + (cons 'receiver __tmp137765))) + (__tmp137752 + (let ((__tmp137761 + (let ((__tmp137762 |gxc[1]#_g137763_|)) (declare (not safe)) - (cons 'klass __tmp137758))) - (__tmp137749 - (let ((__tmp137754 - (let ((__tmp137755 |gxc[1]#_g137756_|)) + (cons 'klass __tmp137762))) + (__tmp137753 + (let ((__tmp137758 + (let ((__tmp137759 |gxc[1]#_g137760_|)) (declare (not safe)) - (cons 'methods __tmp137755))) - (__tmp137750 - (let ((__tmp137751 - (let ((__tmp137752 - |gxc[1]#_g137753_|)) + (cons 'methods __tmp137759))) + (__tmp137754 + (let ((__tmp137755 + (let ((__tmp137756 + |gxc[1]#_g137757_|)) (declare (not safe)) - (cons 'slots __tmp137752)))) + (cons 'slots __tmp137756)))) (declare (not safe)) - (cons __tmp137751 '())))) + (cons __tmp137755 '())))) (declare (not safe)) - (cons __tmp137754 __tmp137750)))) + (cons __tmp137758 __tmp137754)))) (declare (not safe)) - (cons __tmp137757 __tmp137749)))) + (cons __tmp137761 __tmp137753)))) (declare (not safe)) - (cons __tmp137760 __tmp137748)))) + (cons __tmp137764 __tmp137752)))) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137747 + __obj137231 + __tmp137751 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137763 - (let ((__tmp137776 - (let ((__tmp137777 |gxc[1]#_g137778_|)) + (let ((__tmp137767 + (let ((__tmp137780 + (let ((__tmp137781 |gxc[1]#_g137782_|)) (declare (not safe)) - (cons 'receiver __tmp137777))) - (__tmp137764 - (let ((__tmp137773 - (let ((__tmp137774 |gxc[1]#_g137775_|)) + (cons 'receiver __tmp137781))) + (__tmp137768 + (let ((__tmp137777 + (let ((__tmp137778 |gxc[1]#_g137779_|)) (declare (not safe)) - (cons 'klass __tmp137774))) - (__tmp137765 - (let ((__tmp137770 - (let ((__tmp137771 |gxc[1]#_g137772_|)) + (cons 'klass __tmp137778))) + (__tmp137769 + (let ((__tmp137774 + (let ((__tmp137775 |gxc[1]#_g137776_|)) (declare (not safe)) - (cons 'methods __tmp137771))) - (__tmp137766 - (let ((__tmp137767 - (let ((__tmp137768 - |gxc[1]#_g137769_|)) + (cons 'methods __tmp137775))) + (__tmp137770 + (let ((__tmp137771 + (let ((__tmp137772 + |gxc[1]#_g137773_|)) (declare (not safe)) - (cons 'slots __tmp137768)))) + (cons 'slots __tmp137772)))) (declare (not safe)) - (cons __tmp137767 '())))) + (cons __tmp137771 '())))) (declare (not safe)) - (cons __tmp137770 __tmp137766)))) + (cons __tmp137774 __tmp137770)))) (declare (not safe)) - (cons __tmp137773 __tmp137765)))) + (cons __tmp137777 __tmp137769)))) (declare (not safe)) - (cons __tmp137776 __tmp137764)))) + (cons __tmp137780 __tmp137768)))) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137763 + __obj137231 + __tmp137767 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj137227)))) + __obj137231)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index bbf5ab742..7017065f7 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~0.scm @@ -1,31 +1,31 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1710781150) + (define gerbil/compiler/optimize-top::timestamp 1710833425) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp130646 (list gxc#::void::t)) - (__tmp130644 - (let ((__tmp130645 + (let ((__tmp130650 (list gxc#::void::t)) + (__tmp130648 + (let ((__tmp130649 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130645 '())))) + (cons __tmp130649 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp130646 + __tmp130650 '() - __tmp130644 + __tmp130648 '#f))) (define gxc#::collect-top-level-type-info? (let () (declare (not safe)) (make-class-predicate gxc#::collect-top-level-type-info::t))) (define gxc#make-::collect-top-level-type-info - (lambda _$args128540_ + (lambda _$args128544_ (apply make-instance gxc#::collect-top-level-type-info::t - _$args128540_))) + _$args128544_))) (define gxc#::collect-top-level-type-info-bind-methods! (make-promise (lambda () @@ -58,48 +58,48 @@ (declare (not safe)) (seal-class! gxc#::collect-top-level-type-info::t))))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx128532_) + (lambda (_stx128536_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_self128535_ - (let ((__obj130627 + (let* ((_self128539_ + (let ((__obj130631 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj130627)) - (__tmp130647 + __obj130631)) + (__tmp130651 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128535_ _stx128532_))))) + (gxc#compile-e__1 _self128539_ _stx128536_))))) (declare (not safe)) (call-with-parameters - __tmp130647 + __tmp130651 gxc#current-compile-method - _self128535_)))) + _self128539_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp130650 (list gxc#::false::t)) - (__tmp130648 - (let ((__tmp130649 + (let ((__tmp130654 (list gxc#::false::t)) + (__tmp130652 + (let ((__tmp130653 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130649 '())))) + (cons __tmp130653 '())))) (declare (not safe)) (make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp130650 + __tmp130654 '() - __tmp130648 + __tmp130652 '#f))) (define gxc#::basic-expression-top-level-type? (let () (declare (not safe)) (make-class-predicate gxc#::basic-expression-top-level-type::t))) (define gxc#make-::basic-expression-top-level-type - (lambda _$args128529_ + (lambda _$args128533_ (apply make-instance gxc#::basic-expression-top-level-type::t - _$args128529_))) + _$args128533_))) (define gxc#::basic-expression-top-level-type-bind-methods! (make-promise (lambda () @@ -120,47 +120,47 @@ (declare (not safe)) (seal-class! gxc#::basic-expression-top-level-type::t))))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx128521_) + (lambda (_stx128525_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_self128524_ - (let ((__obj130629 + (let* ((_self128528_ + (let ((__obj130633 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj130629)) - (__tmp130651 + __obj130633)) + (__tmp130655 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128524_ _stx128521_))))) + (gxc#compile-e__1 _self128528_ _stx128525_))))) (declare (not safe)) (call-with-parameters - __tmp130651 + __tmp130655 gxc#current-compile-method - _self128524_)))) + _self128528_)))) (define gxc#::collect-type-info::t - (let ((__tmp130654 (list gxc#::void::t)) - (__tmp130652 - (let ((__tmp130653 + (let ((__tmp130658 (list gxc#::void::t)) + (__tmp130656 + (let ((__tmp130657 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130653 '())))) + (cons __tmp130657 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp130654 + __tmp130658 '() - __tmp130652 + __tmp130656 '#f))) (define gxc#::collect-type-info? (let () (declare (not safe)) (make-class-predicate gxc#::collect-type-info::t))) (define gxc#make-::collect-type-info - (lambda _$args128518_ - (apply make-instance gxc#::collect-type-info::t _$args128518_))) + (lambda _$args128522_ + (apply make-instance gxc#::collect-type-info::t _$args128522_))) (define gxc#::collect-type-info-bind-methods! (make-promise (lambda () @@ -247,46 +247,46 @@ (declare (not safe)) (seal-class! gxc#::collect-type-info::t))))) (define gxc#apply-collect-type-info - (lambda (_stx128510_) + (lambda (_stx128514_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_self128513_ - (let ((__obj130631 + (let* ((_self128517_ + (let ((__obj130635 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj130631)) - (__tmp130655 + __obj130635)) + (__tmp130659 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128513_ _stx128510_))))) + (gxc#compile-e__1 _self128517_ _stx128514_))))) (declare (not safe)) (call-with-parameters - __tmp130655 + __tmp130659 gxc#current-compile-method - _self128513_)))) + _self128517_)))) (define gxc#::basic-expression-type::t - (let ((__tmp130658 (list gxc#::false::t)) - (__tmp130656 - (let ((__tmp130657 + (let ((__tmp130662 (list gxc#::false::t)) + (__tmp130660 + (let ((__tmp130661 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130657 '())))) + (cons __tmp130661 '())))) (declare (not safe)) (make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp130658 + __tmp130662 '() - __tmp130656 + __tmp130660 '#f))) (define gxc#::basic-expression-type? (let () (declare (not safe)) (make-class-predicate gxc#::basic-expression-type::t))) (define gxc#make-::basic-expression-type - (lambda _$args128507_ - (apply make-instance gxc#::basic-expression-type::t _$args128507_))) + (lambda _$args128511_ + (apply make-instance gxc#::basic-expression-type::t _$args128511_))) (define gxc#::basic-expression-type-bind-methods! (make-promise (lambda () @@ -349,46 +349,46 @@ (declare (not safe)) (seal-class! gxc#::basic-expression-type::t))))) (define gxc#apply-basic-expression-type - (lambda (_stx128499_) + (lambda (_stx128503_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_self128502_ - (let ((__obj130633 + (let* ((_self128506_ + (let ((__obj130637 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj130633)) - (__tmp130659 + __obj130637)) + (__tmp130663 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128502_ _stx128499_))))) + (gxc#compile-e__1 _self128506_ _stx128503_))))) (declare (not safe)) (call-with-parameters - __tmp130659 + __tmp130663 gxc#current-compile-method - _self128502_)))) + _self128506_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp130662 (list gxc#::basic-xform::t)) - (__tmp130660 - (let ((__tmp130661 + (let ((__tmp130666 (list gxc#::basic-xform::t)) + (__tmp130664 + (let ((__tmp130665 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130661 '())))) + (cons __tmp130665 '())))) (declare (not safe)) (make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp130662 + __tmp130666 '() - __tmp130660 + __tmp130664 '#f))) (define gxc#::lift-top-lambdas? (let () (declare (not safe)) (make-class-predicate gxc#::lift-top-lambdas::t))) (define gxc#make-::lift-top-lambdas - (lambda _$args128496_ - (apply make-instance gxc#::lift-top-lambdas::t _$args128496_))) + (lambda _$args128500_ + (apply make-instance gxc#::lift-top-lambdas::t _$args128500_))) (define gxc#::lift-top-lambdas-bind-methods! (make-promise (lambda () @@ -421,2592 +421,2592 @@ (declare (not safe)) (seal-class! gxc#::lift-top-lambdas::t))))) (define gxc#apply-lift-top-lambdas - (lambda (_stx128488_) + (lambda (_stx128492_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_self128491_ - (let ((__obj130635 + (let* ((_self128495_ + (let ((__obj130639 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj130635)) - (__tmp130663 + __obj130639)) + (__tmp130667 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128491_ _stx128488_))))) + (gxc#compile-e__1 _self128495_ _stx128492_))))) (declare (not safe)) (call-with-parameters - __tmp130663 + __tmp130667 gxc#current-compile-method - _self128491_)))) + _self128495_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_self128390_ _stx128391_) - (let* ((___stx128553128554_ _stx128391_) - (_g128394128414_ + (lambda (_self128394_ _stx128395_) + (let* ((___stx128557128558_ _stx128395_) + (_g128398128418_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128553128554_))))) - (let ((___kont128555128556_ - (lambda (_L128458_ _L128459_) - (let ((_sym128477_ + ___stx128557128558_))))) + (let ((___kont128559128560_ + (lambda (_L128462_ _L128463_) + (let ((_sym128481_ (let () (declare (not safe)) - (gxc#identifier-symbol _L128459_)))) - (if (let ((__tmp130664 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L128463_)))) + (if (let ((__tmp130668 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp130664 _sym128477_)) + (hash-get __tmp130668 _sym128481_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym128477_)) - (let ((_type128478128480_ + _sym128481_)) + (let ((_type128482128484_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L128458_)))) - (if _type128478128480_ - (let ((_type128483_ _type128478128480_)) + _L128462_)))) + (if _type128482128484_ + (let ((_type128487_ _type128482128484_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym128477_ - _type128483_)) + _sym128481_ + _type128487_)) '#f)))))) - (___kont128557128558_ (lambda () '#!void))) - (let ((___match128586128587_ - (lambda (_e128400128426_ - _hd128399128429_ - _tl128398128431_ - _e128403128434_ - _hd128402128437_ - _tl128401128439_ - _e128406128442_ - _hd128405128445_ - _tl128404128447_ - _e128409128450_ - _hd128408128453_ - _tl128407128455_) - (let ((_L128458_ _hd128408128453_) - (_L128459_ _hd128405128445_)) + (___kont128561128562_ (lambda () '#!void))) + (let ((___match128590128591_ + (lambda (_e128404128430_ + _hd128403128433_ + _tl128402128435_ + _e128407128438_ + _hd128406128441_ + _tl128405128443_ + _e128410128446_ + _hd128409128449_ + _tl128408128451_ + _e128413128454_ + _hd128412128457_ + _tl128411128459_) + (let ((_L128462_ _hd128412128457_) + (_L128463_ _hd128409128449_)) (if (let () (declare (not safe)) - (gx#identifier? _L128459_)) - (___kont128555128556_ _L128458_ _L128459_) - (___kont128557128558_)))))) + (gx#identifier? _L128463_)) + (___kont128559128560_ _L128462_ _L128463_) + (___kont128561128562_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128553128554_)) - (let ((_e128400128426_ + (gx#stx-pair? ___stx128557128558_)) + (let ((_e128404128430_ (let () (declare (not safe)) - (gx#stx-e ___stx128553128554_)))) - (let ((_tl128398128431_ + (gx#stx-e ___stx128557128558_)))) + (let ((_tl128402128435_ (let () (declare (not safe)) - (##cdr _e128400128426_))) - (_hd128399128429_ + (##cdr _e128404128430_))) + (_hd128403128433_ (let () (declare (not safe)) - (##car _e128400128426_)))) + (##car _e128404128430_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128398128431_)) - (let ((_e128403128434_ + (gx#stx-pair? _tl128402128435_)) + (let ((_e128407128438_ (let () (declare (not safe)) - (gx#stx-e _tl128398128431_)))) - (let ((_tl128401128439_ + (gx#stx-e _tl128402128435_)))) + (let ((_tl128405128443_ (let () (declare (not safe)) - (##cdr _e128403128434_))) - (_hd128402128437_ + (##cdr _e128407128438_))) + (_hd128406128441_ (let () (declare (not safe)) - (##car _e128403128434_)))) + (##car _e128407128438_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd128402128437_)) - (let ((_e128406128442_ + (gx#stx-pair? _hd128406128441_)) + (let ((_e128410128446_ (let () (declare (not safe)) - (gx#stx-e _hd128402128437_)))) - (let ((_tl128404128447_ + (gx#stx-e _hd128406128441_)))) + (let ((_tl128408128451_ (let () (declare (not safe)) - (##cdr _e128406128442_))) - (_hd128405128445_ + (##cdr _e128410128446_))) + (_hd128409128449_ (let () (declare (not safe)) - (##car _e128406128442_)))) + (##car _e128410128446_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl128404128447_)) + (gx#stx-null? _tl128408128451_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl128401128439_)) - (let ((_e128409128450_ + _tl128405128443_)) + (let ((_e128413128454_ (let () (declare (not safe)) (gx#stx-e - _tl128401128439_)))) - (let ((_tl128407128455_ + _tl128405128443_)))) + (let ((_tl128411128459_ (let () (declare (not safe)) - (##cdr _e128409128450_))) - (_hd128408128453_ + (##cdr _e128413128454_))) + (_hd128412128457_ (let () (declare (not safe)) - (##car _e128409128450_)))) + (##car _e128413128454_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128407128455_)) - (___match128586128587_ - _e128400128426_ - _hd128399128429_ - _tl128398128431_ - _e128403128434_ - _hd128402128437_ - _tl128401128439_ - _e128406128442_ - _hd128405128445_ - _tl128404128447_ - _e128409128450_ - _hd128408128453_ - _tl128407128455_) - (___kont128557128558_)))) - (___kont128557128558_)) - (___kont128557128558_)))) - (___kont128557128558_)))) - (___kont128557128558_)))) - (___kont128557128558_))))))) + _tl128411128459_)) + (___match128590128591_ + _e128404128430_ + _hd128403128433_ + _tl128402128435_ + _e128407128438_ + _hd128406128441_ + _tl128405128443_ + _e128410128446_ + _hd128409128449_ + _tl128408128451_ + _e128413128454_ + _hd128412128457_ + _tl128411128459_) + (___kont128561128562_)))) + (___kont128561128562_)) + (___kont128561128562_)))) + (___kont128561128562_)))) + (___kont128561128562_)))) + (___kont128561128562_))))))) (define gxc#collect-type-define-values% - (lambda (_self128245_ _stx128246_) - (let* ((___stx128589128590_ _stx128246_) - (_g128249128280_ + (lambda (_self128249_ _stx128250_) + (let* ((___stx128593128594_ _stx128250_) + (_g128253128284_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128589128590_))))) - (let ((___kont128591128592_ - (lambda (_L128362_ _L128363_) - (let ((_sym128379_ + ___stx128593128594_))))) + (let ((___kont128595128596_ + (lambda (_L128366_ _L128367_) + (let ((_sym128383_ (let () (declare (not safe)) - (gxc#identifier-symbol _L128363_)))) - (if (let ((__tmp130665 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L128367_)))) + (if (let ((__tmp130669 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp130665 _sym128379_)) + (hash-get __tmp130669 _sym128383_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym128379_)) + _sym128383_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym128379_)) + (gxc#optimizer-lookup-type _sym128383_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym128379_)) - (let ((_type128380128382_ + _sym128383_)) + (let ((_type128384128386_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L128362_)))) - (if _type128380128382_ - (let ((_type128385_ _type128380128382_)) + _L128366_)))) + (if _type128384128386_ + (let ((_type128389_ _type128384128386_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym128379_ - _type128385_)) + _sym128383_ + _type128389_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__1 _self128245_ _L128362_))))) - (___kont128593128594_ - (lambda (_L128309_ _L128310_) + (gxc#compile-e__1 _self128249_ _L128366_))))) + (___kont128597128598_ + (lambda (_L128313_ _L128314_) (let () (declare (not safe)) - (gxc#compile-e__1 _self128245_ _L128309_))))) - (let ((___match128622128623_ - (lambda (_e128255128330_ - _hd128254128333_ - _tl128253128335_ - _e128258128338_ - _hd128257128341_ - _tl128256128343_ - _e128261128346_ - _hd128260128349_ - _tl128259128351_ - _e128264128354_ - _hd128263128357_ - _tl128262128359_) - (let ((_L128362_ _hd128263128357_) - (_L128363_ _hd128260128349_)) + (gxc#compile-e__1 _self128249_ _L128313_))))) + (let ((___match128626128627_ + (lambda (_e128259128334_ + _hd128258128337_ + _tl128257128339_ + _e128262128342_ + _hd128261128345_ + _tl128260128347_ + _e128265128350_ + _hd128264128353_ + _tl128263128355_ + _e128268128358_ + _hd128267128361_ + _tl128266128363_) + (let ((_L128366_ _hd128267128361_) + (_L128367_ _hd128264128353_)) (if (let () (declare (not safe)) - (gx#identifier? _L128363_)) - (___kont128591128592_ _L128362_ _L128363_) - (___kont128593128594_ - _hd128263128357_ - _hd128257128341_)))))) + (gx#identifier? _L128367_)) + (___kont128595128596_ _L128366_ _L128367_) + (___kont128597128598_ + _hd128267128361_ + _hd128261128345_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128589128590_)) - (let ((_e128255128330_ + (gx#stx-pair? ___stx128593128594_)) + (let ((_e128259128334_ (let () (declare (not safe)) - (gx#stx-e ___stx128589128590_)))) - (let ((_tl128253128335_ + (gx#stx-e ___stx128593128594_)))) + (let ((_tl128257128339_ (let () (declare (not safe)) - (##cdr _e128255128330_))) - (_hd128254128333_ + (##cdr _e128259128334_))) + (_hd128258128337_ (let () (declare (not safe)) - (##car _e128255128330_)))) + (##car _e128259128334_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128253128335_)) - (let ((_e128258128338_ + (gx#stx-pair? _tl128257128339_)) + (let ((_e128262128342_ (let () (declare (not safe)) - (gx#stx-e _tl128253128335_)))) - (let ((_tl128256128343_ + (gx#stx-e _tl128257128339_)))) + (let ((_tl128260128347_ (let () (declare (not safe)) - (##cdr _e128258128338_))) - (_hd128257128341_ + (##cdr _e128262128342_))) + (_hd128261128345_ (let () (declare (not safe)) - (##car _e128258128338_)))) + (##car _e128262128342_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd128257128341_)) - (let ((_e128261128346_ + (gx#stx-pair? _hd128261128345_)) + (let ((_e128265128350_ (let () (declare (not safe)) - (gx#stx-e _hd128257128341_)))) - (let ((_tl128259128351_ + (gx#stx-e _hd128261128345_)))) + (let ((_tl128263128355_ (let () (declare (not safe)) - (##cdr _e128261128346_))) - (_hd128260128349_ + (##cdr _e128265128350_))) + (_hd128264128353_ (let () (declare (not safe)) - (##car _e128261128346_)))) + (##car _e128265128350_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl128259128351_)) + (gx#stx-null? _tl128263128355_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl128256128343_)) - (let ((_e128264128354_ + _tl128260128347_)) + (let ((_e128268128358_ (let () (declare (not safe)) (gx#stx-e - _tl128256128343_)))) - (let ((_tl128262128359_ + _tl128260128347_)))) + (let ((_tl128266128363_ (let () (declare (not safe)) - (##cdr _e128264128354_))) - (_hd128263128357_ + (##cdr _e128268128358_))) + (_hd128267128361_ (let () (declare (not safe)) - (##car _e128264128354_)))) + (##car _e128268128358_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128262128359_)) - (___match128622128623_ - _e128255128330_ - _hd128254128333_ - _tl128253128335_ - _e128258128338_ - _hd128257128341_ - _tl128256128343_ - _e128261128346_ - _hd128260128349_ - _tl128259128351_ - _e128264128354_ - _hd128263128357_ - _tl128262128359_) + _tl128266128363_)) + (___match128626128627_ + _e128259128334_ + _hd128258128337_ + _tl128257128339_ + _e128262128342_ + _hd128261128345_ + _tl128260128347_ + _e128265128350_ + _hd128264128353_ + _tl128263128355_ + _e128268128358_ + _hd128267128361_ + _tl128266128363_) (let () (declare (not safe)) - (_g128249128280_))))) + (_g128253128284_))))) (let () (declare (not safe)) - (_g128249128280_))) + (_g128253128284_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl128256128343_)) - (let ((_e128275128301_ + _tl128260128347_)) + (let ((_e128279128305_ (let () (declare (not safe)) (gx#stx-e - _tl128256128343_)))) - (let ((_tl128273128306_ + _tl128260128347_)))) + (let ((_tl128277128310_ (let () (declare (not safe)) - (##cdr _e128275128301_))) - (_hd128274128304_ + (##cdr _e128279128305_))) + (_hd128278128308_ (let () (declare (not safe)) - (##car _e128275128301_)))) + (##car _e128279128305_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128273128306_)) - (___kont128593128594_ - _hd128274128304_ - _hd128257128341_) + _tl128277128310_)) + (___kont128597128598_ + _hd128278128308_ + _hd128261128345_) (let () (declare (not safe)) - (_g128249128280_))))) + (_g128253128284_))))) (let () (declare (not safe)) - (_g128249128280_)))))) + (_g128253128284_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128256128343_)) - (let ((_e128275128301_ + (gx#stx-pair? _tl128260128347_)) + (let ((_e128279128305_ (let () (declare (not safe)) - (gx#stx-e _tl128256128343_)))) - (let ((_tl128273128306_ + (gx#stx-e _tl128260128347_)))) + (let ((_tl128277128310_ (let () (declare (not safe)) - (##cdr _e128275128301_))) - (_hd128274128304_ + (##cdr _e128279128305_))) + (_hd128278128308_ (let () (declare (not safe)) - (##car _e128275128301_)))) + (##car _e128279128305_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128273128306_)) - (___kont128593128594_ - _hd128274128304_ - _hd128257128341_) + _tl128277128310_)) + (___kont128597128598_ + _hd128278128308_ + _hd128261128345_) (let () (declare (not safe)) - (_g128249128280_))))) + (_g128253128284_))))) (let () (declare (not safe)) - (_g128249128280_)))))) - (let () (declare (not safe)) (_g128249128280_))))) - (let () (declare (not safe)) (_g128249128280_)))))))) + (_g128253128284_)))))) + (let () (declare (not safe)) (_g128253128284_))))) + (let () (declare (not safe)) (_g128253128284_)))))))) (define gxc#collect-type-let-values% - (lambda (_self128025_ _stx128026_) - (letrec ((_collect-e128028_ - (lambda (_hd128189_ _expr128190_) - (let* ((___stx128645128646_ _hd128189_) - (_g128193128203_ + (lambda (_self128029_ _stx128030_) + (letrec ((_collect-e128032_ + (lambda (_hd128193_ _expr128194_) + (let* ((___stx128649128650_ _hd128193_) + (_g128197128207_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128645128646_))))) - (let ((___kont128647128648_ - (lambda (_L128223_) - (let ((_sym128234_ + ___stx128649128650_))))) + (let ((___kont128651128652_ + (lambda (_L128227_) + (let ((_sym128238_ (let () (declare (not safe)) - (gxc#identifier-symbol _L128223_)))) - (if (let ((__tmp130666 + (gxc#identifier-symbol _L128227_)))) + (if (let ((__tmp130670 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp130666 _sym128234_)) + (hash-get __tmp130670 _sym128238_)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym128234_)) - (let ((_type128235128237_ + _sym128238_)) + (let ((_type128239128241_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr128190_)))) - (if _type128235128237_ - (let ((_type128240_ - _type128235128237_)) + _expr128194_)))) + (if _type128239128241_ + (let ((_type128244_ + _type128239128241_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym128234_ - _type128240_ + _sym128238_ + _type128244_ '#t)) '#f)))))) - (___kont128649128650_ (lambda () '#!void))) - (let ((___match128658128659_ - (lambda (_e128198128215_ - _hd128197128218_ - _tl128196128220_) - (let ((_L128223_ _hd128197128218_)) + (___kont128653128654_ (lambda () '#!void))) + (let ((___match128662128663_ + (lambda (_e128202128219_ + _hd128201128222_ + _tl128200128224_) + (let ((_L128227_ _hd128201128222_)) (if (let () (declare (not safe)) - (gx#identifier? _L128223_)) - (___kont128647128648_ _L128223_) - (___kont128649128650_)))))) + (gx#identifier? _L128227_)) + (___kont128651128652_ _L128227_) + (___kont128653128654_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128645128646_)) - (let ((_e128198128215_ + (gx#stx-pair? ___stx128649128650_)) + (let ((_e128202128219_ (let () (declare (not safe)) - (gx#stx-e ___stx128645128646_)))) - (let ((_tl128196128220_ + (gx#stx-e ___stx128649128650_)))) + (let ((_tl128200128224_ (let () (declare (not safe)) - (##cdr _e128198128215_))) - (_hd128197128218_ + (##cdr _e128202128219_))) + (_hd128201128222_ (let () (declare (not safe)) - (##car _e128198128215_)))) + (##car _e128202128219_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl128196128220_)) - (___match128658128659_ - _e128198128215_ - _hd128197128218_ - _tl128196128220_) - (___kont128649128650_)))) - (___kont128649128650_)))))))) - (let* ((_g128030128065_ - (lambda (_g128031128062_) + (gx#stx-null? _tl128200128224_)) + (___match128662128663_ + _e128202128219_ + _hd128201128222_ + _tl128200128224_) + (___kont128653128654_)))) + (___kont128653128654_)))))))) + (let* ((_g128034128069_ + (lambda (_g128035128066_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128031128062_)))) - (_g128029128186_ - (lambda (_g128031128068_) + _g128035128066_)))) + (_g128033128190_ + (lambda (_g128035128072_) (if (let () (declare (not safe)) - (gx#stx-pair? _g128031128068_)) - (let ((_e128037128070_ + (gx#stx-pair? _g128035128072_)) + (let ((_e128041128074_ (let () (declare (not safe)) - (gx#stx-e _g128031128068_)))) - (let ((_hd128036128073_ + (gx#stx-e _g128035128072_)))) + (let ((_hd128040128077_ (let () (declare (not safe)) - (##car _e128037128070_))) - (_tl128035128075_ + (##car _e128041128074_))) + (_tl128039128079_ (let () (declare (not safe)) - (##cdr _e128037128070_)))) + (##cdr _e128041128074_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128035128075_)) - (let ((_e128040128078_ + (gx#stx-pair? _tl128039128079_)) + (let ((_e128044128082_ (let () (declare (not safe)) - (gx#stx-e _tl128035128075_)))) - (let ((_hd128039128081_ + (gx#stx-e _tl128039128079_)))) + (let ((_hd128043128085_ (let () (declare (not safe)) - (##car _e128040128078_))) - (_tl128038128083_ + (##car _e128044128082_))) + (_tl128042128087_ (let () (declare (not safe)) - (##cdr _e128040128078_)))) + (##cdr _e128044128082_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd128039128081_)) - (let ((_g130667_ + (gx#stx-pair/null? _hd128043128085_)) + (let ((_g130671_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd128039128081_ + _hd128043128085_ '0)))) (begin - (let ((_g130668_ + (let ((_g130672_ (let () (declare (not safe)) - (if (##values? _g130667_) + (if (##values? _g130671_) (##vector-length - _g130667_) + _g130671_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130668_ 2))) + (##fx= _g130672_ 2))) (error "Context expects 2 values" - _g130668_))) - (let ((_target128041128086_ + _g130672_))) + (let ((_target128045128090_ (let () (declare (not safe)) (##vector-ref - _g130667_ + _g130671_ 0))) - (_tl128043128088_ + (_tl128047128092_ (let () (declare (not safe)) (##vector-ref - _g130667_ + _g130671_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128043128088_)) - (letrec ((_loop128044128091_ - (lambda (_hd128042128094_ + _tl128047128092_)) + (letrec ((_loop128048128095_ + (lambda (_hd128046128098_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr128048128096_ - _hd128049128098_) + _expr128052128100_ + _hd128053128102_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd128042128094_)) - (let ((_e128045128101_ + (gx#stx-pair? _hd128046128098_)) + (let ((_e128049128105_ (let () (declare (not safe)) - (gx#stx-e _hd128042128094_)))) - (let ((_lp-hd128046128104_ + (gx#stx-e _hd128046128098_)))) + (let ((_lp-hd128050128108_ (let () (declare (not safe)) - (##car _e128045128101_))) - (_lp-tl128047128106_ + (##car _e128049128105_))) + (_lp-tl128051128110_ (let () (declare (not safe)) - (##cdr _e128045128101_)))) + (##cdr _e128049128105_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd128046128104_)) - (let ((_e128054128109_ + (gx#stx-pair? _lp-hd128050128108_)) + (let ((_e128058128113_ (let () (declare (not safe)) - (gx#stx-e _lp-hd128046128104_)))) - (let ((_hd128053128112_ + (gx#stx-e _lp-hd128050128108_)))) + (let ((_hd128057128116_ (let () (declare (not safe)) - (##car _e128054128109_))) - (_tl128052128114_ + (##car _e128058128113_))) + (_tl128056128118_ (let () (declare (not safe)) - (##cdr _e128054128109_)))) + (##cdr _e128058128113_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128052128114_)) - (let ((_e128057128117_ + (gx#stx-pair? _tl128056128118_)) + (let ((_e128061128121_ (let () (declare (not safe)) (gx#stx-e - _tl128052128114_)))) - (let ((_hd128056128120_ + _tl128056128118_)))) + (let ((_hd128060128124_ (let () (declare (not safe)) - (##car _e128057128117_))) - (_tl128055128122_ + (##car _e128061128121_))) + (_tl128059128126_ (let () (declare (not safe)) - (##cdr _e128057128117_)))) + (##cdr _e128061128121_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128055128122_)) - (let ((__tmp130673 + _tl128059128126_)) + (let ((__tmp130677 (let () (declare (not safe)) - (cons _hd128056128120_ + (cons _hd128060128124_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr128048128096_))) - (__tmp130672 + _expr128052128100_))) + (__tmp130676 (let () (declare (not safe)) - (cons _hd128053128112_ _hd128049128098_)))) + (cons _hd128057128116_ _hd128053128102_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop128044128091_ - _lp-tl128047128106_ - __tmp130673 - __tmp130672)) + (_loop128048128095_ + _lp-tl128051128110_ + __tmp130677 + __tmp130676)) (let () (declare (not safe)) - (_g128030128065_ - _g128031128068_))))) + (_g128034128069_ + _g128035128072_))))) (let () (declare (not safe)) - (_g128030128065_ - _g128031128068_))))) + (_g128034128069_ + _g128035128072_))))) (let () (declare (not safe)) - (_g128030128065_ _g128031128068_))))) - (let ((_expr128050128125_ - (reverse _expr128048128096_)) - (_hd128051128127_ (reverse _hd128049128098_))) + (_g128034128069_ _g128035128072_))))) + (let ((_expr128054128129_ + (reverse _expr128052128100_)) + (_hd128055128131_ (reverse _hd128053128102_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128038128083_)) - (let ((_e128060128130_ + (gx#stx-pair? _tl128042128087_)) + (let ((_e128064128134_ (let () (declare (not safe)) - (gx#stx-e _tl128038128083_)))) - (let ((_hd128059128133_ + (gx#stx-e _tl128042128087_)))) + (let ((_hd128063128137_ (let () (declare (not safe)) - (##car _e128060128130_))) - (_tl128058128135_ + (##car _e128064128134_))) + (_tl128062128139_ (let () (declare (not safe)) - (##cdr _e128060128130_)))) + (##cdr _e128064128134_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl128058128135_)) - ((lambda (_L128138_ - _L128139_ - _L128140_) + (gx#stx-null? _tl128062128139_)) + ((lambda (_L128142_ + _L128143_ + _L128144_) (for-each - _collect-e128028_ - (let ((__tmp130669 - (lambda (_g128160128163_ - _g128161128165_) + _collect-e128032_ + (let ((__tmp130673 + (lambda (_g128164128167_ + _g128165128169_) (let () (declare (not safe)) - (cons _g128160128163_ - _g128161128165_))))) + (cons _g128164128167_ + _g128165128169_))))) (declare (not safe)) - (foldr1 __tmp130669 + (foldr1 __tmp130673 '() - _L128140_)) - (let ((__tmp130670 - (lambda (_g128167128170_ - _g128168128172_) + _L128144_)) + (let ((__tmp130674 + (lambda (_g128171128174_ + _g128172128176_) (let () (declare (not safe)) - (cons _g128167128170_ - _g128168128172_))))) + (cons _g128171128174_ + _g128172128176_))))) (declare (not safe)) - (foldr1 __tmp130670 + (foldr1 __tmp130674 '() - _L128139_))) + _L128143_))) (for-each - (lambda (_g128174128176_) + (lambda (_g128178128180_) (let () (declare (not safe)) (gxc#compile-e__1 - _self128025_ - _g128174128176_))) - (let ((__tmp130671 - (lambda (_g128178128181_ - _g128179128183_) + _self128029_ + _g128178128180_))) + (let ((__tmp130675 + (lambda (_g128182128185_ + _g128183128187_) (let () (declare (not safe)) - (cons _g128178128181_ - _g128179128183_))))) + (cons _g128182128185_ + _g128183128187_))))) (declare (not safe)) - (foldr1 __tmp130671 + (foldr1 __tmp130675 '() - _L128139_))) + _L128143_))) (let () (declare (not safe)) (gxc#compile-e__1 - _self128025_ - _L128138_))) - _hd128059128133_ - _expr128050128125_ - _hd128051128127_) + _self128029_ + _L128142_))) + _hd128063128137_ + _expr128054128129_ + _hd128055128131_) (let () (declare (not safe)) - (_g128030128065_ _g128031128068_))))) + (_g128034128069_ _g128035128072_))))) (let () (declare (not safe)) - (_g128030128065_ _g128031128068_)))))))) + (_g128034128069_ _g128035128072_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop128044128091_ - _target128041128086_ + (_loop128048128095_ + _target128045128090_ '() '()))) (let () (declare (not safe)) - (_g128030128065_ - _g128031128068_)))))) + (_g128034128069_ + _g128035128072_)))))) (let () (declare (not safe)) - (_g128030128065_ _g128031128068_))))) + (_g128034128069_ _g128035128072_))))) (let () (declare (not safe)) - (_g128030128065_ _g128031128068_))))) + (_g128034128069_ _g128035128072_))))) (let () (declare (not safe)) - (_g128030128065_ _g128031128068_)))))) + (_g128034128069_ _g128035128072_)))))) (declare (not safe)) - (_g128029128186_ _stx128026_))))) + (_g128033128190_ _stx128030_))))) (define gxc#collect-type-call% - (lambda (_self127512_ _stx127513_) - (let* ((___stx128661128662_ _stx127513_) - (_g127517127632_ + (lambda (_self127516_ _stx127517_) + (let* ((___stx128665128666_ _stx127517_) + (_g127521127636_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128661128662_))))) - (let ((___kont128663128664_ - (lambda (_L127975_ _L127976_ _L127977_ _L127978_ _L127979_) - (let ((__tmp130677 + ___stx128665128666_))))) + (let ((___kont128667128668_ + (lambda (_L127979_ _L127980_ _L127981_ _L127982_ _L127983_) + (let ((__tmp130681 (let () (declare (not safe)) - (gxc#identifier-symbol _L127978_))) - (__tmp130676 - (let () (declare (not safe)) (gx#stx-e _L127977_))) - (__tmp130675 + (gxc#identifier-symbol _L127982_))) + (__tmp130680 + (let () (declare (not safe)) (gx#stx-e _L127981_))) + (__tmp130679 (let () (declare (not safe)) - (gxc#identifier-symbol _L127976_))) - (__tmp130674 - (let () (declare (not safe)) (gx#stx-e _L127975_)))) + (gxc#identifier-symbol _L127980_))) + (__tmp130678 + (let () (declare (not safe)) (gx#stx-e _L127979_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp130677 - __tmp130676 - __tmp130675 - __tmp130674)))) - (___kont128665128666_ - (lambda (_L127803_ _L127804_ _L127805_ _L127806_) - (let ((__tmp130680 + __tmp130681 + __tmp130680 + __tmp130679 + __tmp130678)))) + (___kont128669128670_ + (lambda (_L127807_ _L127808_ _L127809_ _L127810_) + (let ((__tmp130684 (let () (declare (not safe)) - (gxc#identifier-symbol _L127805_))) - (__tmp130679 - (let () (declare (not safe)) (gx#stx-e _L127804_))) - (__tmp130678 + (gxc#identifier-symbol _L127809_))) + (__tmp130683 + (let () (declare (not safe)) (gx#stx-e _L127808_))) + (__tmp130682 (let () (declare (not safe)) - (gxc#identifier-symbol _L127803_)))) + (gxc#identifier-symbol _L127807_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp130680 - __tmp130679 - __tmp130678 + __tmp130684 + __tmp130683 + __tmp130682 '#f)))) - (___kont128667128668_ - (lambda (_L127669_) + (___kont128671128672_ + (lambda (_L127673_) (for-each - (lambda (_g127682127684_) + (lambda (_g127686127688_) (let () (declare (not safe)) - (gxc#compile-e__1 _self127512_ _g127682127684_))) - (let ((__tmp130681 - (lambda (_g127686127689_ _g127687127691_) + (gxc#compile-e__1 _self127516_ _g127686127688_))) + (let ((__tmp130685 + (lambda (_g127690127693_ _g127691127695_) (let () (declare (not safe)) - (cons _g127686127689_ _g127687127691_))))) + (cons _g127690127693_ _g127691127695_))))) (declare (not safe)) - (foldr1 __tmp130681 '() _L127669_)))))) - (let* ((___match128918128919_ - (lambda (_e127618127637_ - _hd127617127640_ - _tl127616127642_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) - (letrec ((_loop127622127650_ - (lambda (_hd127620127653_ _expr127626127655_) + (foldr1 __tmp130685 '() _L127673_)))))) + (let* ((___match128922128923_ + (lambda (_e127622127641_ + _hd127621127644_ + _tl127620127646_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) + (letrec ((_loop127626127654_ + (lambda (_hd127624127657_ _expr127630127659_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127620127653_)) - (let ((_e127623127658_ + (gx#stx-pair? _hd127624127657_)) + (let ((_e127627127662_ (let () (declare (not safe)) - (gx#stx-e _hd127620127653_)))) - (let ((_lp-tl127625127663_ + (gx#stx-e _hd127624127657_)))) + (let ((_lp-tl127629127667_ (let () (declare (not safe)) - (##cdr _e127623127658_))) - (_lp-hd127624127661_ + (##cdr _e127627127662_))) + (_lp-hd127628127665_ (let () (declare (not safe)) - (##car _e127623127658_)))) - (let ((__tmp130682 + (##car _e127627127662_)))) + (let ((__tmp130686 (let () (declare (not safe)) - (cons _lp-hd127624127661_ - _expr127626127655_)))) + (cons _lp-hd127628127665_ + _expr127630127659_)))) (declare (not safe)) - (_loop127622127650_ - _lp-tl127625127663_ - __tmp130682)))) - (let ((_expr127627127666_ - (reverse _expr127626127655_))) - (___kont128667128668_ - _expr127627127666_)))))) + (_loop127626127654_ + _lp-tl127629127667_ + __tmp130686)))) + (let ((_expr127631127670_ + (reverse _expr127630127659_))) + (___kont128671128672_ + _expr127631127670_)))))) (let () (declare (not safe)) - (_loop127622127650_ _target127619127645_ '()))))) - (___match128798128799_ - (lambda (_e127526127847_ - _hd127525127850_ - _tl127524127852_ - _e127529127855_ - _hd127528127858_ - _tl127527127860_ - _e127532127863_ - _hd127531127866_ - _tl127530127868_ - _e127535127871_ - _hd127534127874_ - _tl127533127876_ - _e127538127879_ - _hd127537127882_ - _tl127536127884_ - _e127541127887_ - _hd127540127890_ - _tl127539127892_ - _e127544127895_ - _hd127543127898_ - _tl127542127900_ - _e127547127903_ - _hd127546127906_ - _tl127545127908_ - _e127550127911_ - _hd127549127914_ - _tl127548127916_ - _e127553127919_ - _hd127552127922_ - _tl127551127924_ - _e127556127927_ - _hd127555127930_ - _tl127554127932_ - _e127559127935_ - _hd127558127938_ - _tl127557127940_ - _e127562127943_ - _hd127561127946_ - _tl127560127948_ - _e127565127951_ - _hd127564127954_ - _tl127563127956_ - _e127568127959_ - _hd127567127962_ - _tl127566127964_ - _e127571127967_ - _hd127570127970_ - _tl127569127972_) - (let ((_L127975_ _hd127570127970_) - (_L127976_ _hd127561127946_) - (_L127977_ _hd127552127922_) - (_L127978_ _hd127543127898_) - (_L127979_ _hd127534127874_)) + (_loop127626127654_ _target127623127649_ '()))))) + (___match128802128803_ + (lambda (_e127530127851_ + _hd127529127854_ + _tl127528127856_ + _e127533127859_ + _hd127532127862_ + _tl127531127864_ + _e127536127867_ + _hd127535127870_ + _tl127534127872_ + _e127539127875_ + _hd127538127878_ + _tl127537127880_ + _e127542127883_ + _hd127541127886_ + _tl127540127888_ + _e127545127891_ + _hd127544127894_ + _tl127543127896_ + _e127548127899_ + _hd127547127902_ + _tl127546127904_ + _e127551127907_ + _hd127550127910_ + _tl127549127912_ + _e127554127915_ + _hd127553127918_ + _tl127552127920_ + _e127557127923_ + _hd127556127926_ + _tl127555127928_ + _e127560127931_ + _hd127559127934_ + _tl127558127936_ + _e127563127939_ + _hd127562127942_ + _tl127561127944_ + _e127566127947_ + _hd127565127950_ + _tl127564127952_ + _e127569127955_ + _hd127568127958_ + _tl127567127960_ + _e127572127963_ + _hd127571127966_ + _tl127570127968_ + _e127575127971_ + _hd127574127974_ + _tl127573127976_) + (let ((_L127979_ _hd127574127974_) + (_L127980_ _hd127565127950_) + (_L127981_ _hd127556127926_) + (_L127982_ _hd127547127902_) + (_L127983_ _hd127538127878_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L127979_ + _L127983_ 'bind-method!)) - (___kont128663128664_ - _L127975_ - _L127976_ - _L127977_ - _L127978_ - _L127979_) + (___kont128667128668_ + _L127979_ + _L127980_ + _L127981_ + _L127982_ + _L127983_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))))) + (_g127521127636_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128661128662_)) - (let ((_e127526127847_ + (gx#stx-pair? ___stx128665128666_)) + (let ((_e127530127851_ (let () (declare (not safe)) - (gx#stx-e ___stx128661128662_)))) - (let ((_tl127524127852_ + (gx#stx-e ___stx128665128666_)))) + (let ((_tl127528127856_ (let () (declare (not safe)) - (##cdr _e127526127847_))) - (_hd127525127850_ + (##cdr _e127530127851_))) + (_hd127529127854_ (let () (declare (not safe)) - (##car _e127526127847_)))) + (##car _e127530127851_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127524127852_)) - (let ((_e127529127855_ + (gx#stx-pair? _tl127528127856_)) + (let ((_e127533127859_ (let () (declare (not safe)) - (gx#stx-e _tl127524127852_)))) - (let ((_tl127527127860_ + (gx#stx-e _tl127528127856_)))) + (let ((_tl127531127864_ (let () (declare (not safe)) - (##cdr _e127529127855_))) - (_hd127528127858_ + (##cdr _e127533127859_))) + (_hd127532127862_ (let () (declare (not safe)) - (##car _e127529127855_)))) + (##car _e127533127859_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127528127858_)) - (let ((_e127532127863_ + (gx#stx-pair? _hd127532127862_)) + (let ((_e127536127867_ (let () (declare (not safe)) - (gx#stx-e _hd127528127858_)))) - (let ((_tl127530127868_ + (gx#stx-e _hd127532127862_)))) + (let ((_tl127534127872_ (let () (declare (not safe)) - (##cdr _e127532127863_))) - (_hd127531127866_ + (##cdr _e127536127867_))) + (_hd127535127870_ (let () (declare (not safe)) - (##car _e127532127863_)))) + (##car _e127536127867_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127531127866_)) + (gx#identifier? _hd127535127870_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd127531127866_)) + _hd127535127870_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127530127868_)) - (let ((_e127535127871_ + _tl127534127872_)) + (let ((_e127539127875_ (let () (declare (not safe)) (gx#stx-e - _tl127530127868_)))) - (let ((_tl127533127876_ + _tl127534127872_)))) + (let ((_tl127537127880_ (let () (declare (not safe)) - (##cdr _e127535127871_))) - (_hd127534127874_ + (##cdr _e127539127875_))) + (_hd127538127878_ (let () (declare (not safe)) - (##car _e127535127871_)))) + (##car _e127539127875_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127533127876_)) + _tl127537127880_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl127527127860_)) - (let ((_e127538127879_ + (gx#stx-pair? _tl127531127864_)) + (let ((_e127542127883_ (let () (declare (not safe)) - (gx#stx-e _tl127527127860_)))) - (let ((_tl127536127884_ + (gx#stx-e _tl127531127864_)))) + (let ((_tl127540127888_ (let () (declare (not safe)) - (##cdr _e127538127879_))) - (_hd127537127882_ + (##cdr _e127542127883_))) + (_hd127541127886_ (let () (declare (not safe)) - (##car _e127538127879_)))) + (##car _e127542127883_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127537127882_)) - (let ((_e127541127887_ + (gx#stx-pair? _hd127541127886_)) + (let ((_e127545127891_ (let () (declare (not safe)) - (gx#stx-e _hd127537127882_)))) - (let ((_tl127539127892_ + (gx#stx-e _hd127541127886_)))) + (let ((_tl127543127896_ (let () (declare (not safe)) - (##cdr _e127541127887_))) - (_hd127540127890_ + (##cdr _e127545127891_))) + (_hd127544127894_ (let () (declare (not safe)) - (##car _e127541127887_)))) + (##car _e127545127891_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127540127890_)) + (gx#identifier? _hd127544127894_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd127540127890_)) + _hd127544127894_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127539127892_)) - (let ((_e127544127895_ + _tl127543127896_)) + (let ((_e127548127899_ (let () (declare (not safe)) (gx#stx-e - _tl127539127892_)))) - (let ((_tl127542127900_ + _tl127543127896_)))) + (let ((_tl127546127904_ (let () (declare (not safe)) - (##cdr _e127544127895_))) - (_hd127543127898_ + (##cdr _e127548127899_))) + (_hd127547127902_ (let () (declare (not safe)) - (##car _e127544127895_)))) + (##car _e127548127899_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127542127900_)) + _tl127546127904_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127536127884_)) - (let ((_e127547127903_ + _tl127540127888_)) + (let ((_e127551127907_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl127536127884_)))) - (let ((_tl127545127908_ + (gx#stx-e _tl127540127888_)))) + (let ((_tl127549127912_ (let () (declare (not safe)) - (##cdr _e127547127903_))) - (_hd127546127906_ + (##cdr _e127551127907_))) + (_hd127550127910_ (let () (declare (not safe)) - (##car _e127547127903_)))) + (##car _e127551127907_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127546127906_)) - (let ((_e127550127911_ + (gx#stx-pair? _hd127550127910_)) + (let ((_e127554127915_ (let () (declare (not safe)) - (gx#stx-e _hd127546127906_)))) - (let ((_tl127548127916_ + (gx#stx-e _hd127550127910_)))) + (let ((_tl127552127920_ (let () (declare (not safe)) - (##cdr _e127550127911_))) - (_hd127549127914_ + (##cdr _e127554127915_))) + (_hd127553127918_ (let () (declare (not safe)) - (##car _e127550127911_)))) + (##car _e127554127915_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127549127914_)) + (gx#identifier? _hd127553127918_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd127549127914_)) + (gx#stx-eq? '%#quote _hd127553127918_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127548127916_)) - (let ((_e127553127919_ + (gx#stx-pair? _tl127552127920_)) + (let ((_e127557127923_ (let () (declare (not safe)) (gx#stx-e - _tl127548127916_)))) - (let ((_tl127551127924_ + _tl127552127920_)))) + (let ((_tl127555127928_ (let () (declare (not safe)) - (##cdr _e127553127919_))) - (_hd127552127922_ + (##cdr _e127557127923_))) + (_hd127556127926_ (let () (declare (not safe)) - (##car _e127553127919_)))) + (##car _e127557127923_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127551127924_)) + _tl127555127928_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127545127908_)) - (let ((_e127556127927_ + _tl127549127912_)) + (let ((_e127560127931_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl127545127908_)))) - (let ((_tl127554127932_ - (let () (declare (not safe)) (##cdr _e127556127927_))) - (_hd127555127930_ - (let () (declare (not safe)) (##car _e127556127927_)))) + (gx#stx-e _tl127549127912_)))) + (let ((_tl127558127936_ + (let () (declare (not safe)) (##cdr _e127560127931_))) + (_hd127559127934_ + (let () (declare (not safe)) (##car _e127560127931_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127555127930_)) - (let ((_e127559127935_ + (gx#stx-pair? _hd127559127934_)) + (let ((_e127563127939_ (let () (declare (not safe)) - (gx#stx-e _hd127555127930_)))) - (let ((_tl127557127940_ + (gx#stx-e _hd127559127934_)))) + (let ((_tl127561127944_ (let () (declare (not safe)) - (##cdr _e127559127935_))) - (_hd127558127938_ + (##cdr _e127563127939_))) + (_hd127562127942_ (let () (declare (not safe)) - (##car _e127559127935_)))) + (##car _e127563127939_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127558127938_)) + (gx#identifier? _hd127562127942_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd127558127938_)) + (gx#stx-eq? '%#ref _hd127562127942_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127557127940_)) - (let ((_e127562127943_ + (gx#stx-pair? _tl127561127944_)) + (let ((_e127566127947_ (let () (declare (not safe)) - (gx#stx-e _tl127557127940_)))) - (let ((_tl127560127948_ + (gx#stx-e _tl127561127944_)))) + (let ((_tl127564127952_ (let () (declare (not safe)) - (##cdr _e127562127943_))) - (_hd127561127946_ + (##cdr _e127566127947_))) + (_hd127565127950_ (let () (declare (not safe)) - (##car _e127562127943_)))) + (##car _e127566127947_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127560127948_)) + _tl127564127952_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127554127932_)) - (let ((_e127565127951_ + _tl127558127936_)) + (let ((_e127569127955_ (let () (declare (not safe)) (gx#stx-e - _tl127554127932_)))) - (let ((_tl127563127956_ + _tl127558127936_)))) + (let ((_tl127567127960_ (let () (declare (not safe)) - (##cdr _e127565127951_))) - (_hd127564127954_ + (##cdr _e127569127955_))) + (_hd127568127958_ (let () (declare (not safe)) - (##car _e127565127951_)))) + (##car _e127569127955_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd127564127954_)) - (let ((_e127568127959_ + _hd127568127958_)) + (let ((_e127572127963_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd127564127954_)))) - (let ((_tl127566127964_ + (gx#stx-e _hd127568127958_)))) + (let ((_tl127570127968_ (let () (declare (not safe)) - (##cdr _e127568127959_))) - (_hd127567127962_ + (##cdr _e127572127963_))) + (_hd127571127966_ (let () (declare (not safe)) - (##car _e127568127959_)))) + (##car _e127572127963_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127567127962_)) + (gx#identifier? _hd127571127966_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd127567127962_)) + (gx#stx-eq? '%#quote _hd127571127966_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127566127964_)) - (let ((_e127571127967_ + (gx#stx-pair? _tl127570127968_)) + (let ((_e127575127971_ (let () (declare (not safe)) - (gx#stx-e _tl127566127964_)))) - (let ((_tl127569127972_ + (gx#stx-e _tl127570127968_)))) + (let ((_tl127573127976_ (let () (declare (not safe)) - (##cdr _e127571127967_))) - (_hd127570127970_ + (##cdr _e127575127971_))) + (_hd127574127974_ (let () (declare (not safe)) - (##car _e127571127967_)))) + (##car _e127575127971_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127569127972_)) + (gx#stx-null? _tl127573127976_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl127563127956_)) - (___match128798128799_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - _e127529127855_ - _hd127528127858_ - _tl127527127860_ - _e127532127863_ - _hd127531127866_ - _tl127530127868_ - _e127535127871_ - _hd127534127874_ - _tl127533127876_ - _e127538127879_ - _hd127537127882_ - _tl127536127884_ - _e127541127887_ - _hd127540127890_ - _tl127539127892_ - _e127544127895_ - _hd127543127898_ - _tl127542127900_ - _e127547127903_ - _hd127546127906_ - _tl127545127908_ - _e127550127911_ - _hd127549127914_ - _tl127548127916_ - _e127553127919_ - _hd127552127922_ - _tl127551127924_ - _e127556127927_ - _hd127555127930_ - _tl127554127932_ - _e127559127935_ - _hd127558127938_ - _tl127557127940_ - _e127562127943_ - _hd127561127946_ - _tl127560127948_ - _e127565127951_ - _hd127564127954_ - _tl127563127956_ - _e127568127959_ - _hd127567127962_ - _tl127566127964_ - _e127571127967_ - _hd127570127970_ - _tl127569127972_) + _tl127567127960_)) + (___match128802128803_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + _e127533127859_ + _hd127532127862_ + _tl127531127864_ + _e127536127867_ + _hd127535127870_ + _tl127534127872_ + _e127539127875_ + _hd127538127878_ + _tl127537127880_ + _e127542127883_ + _hd127541127886_ + _tl127540127888_ + _e127545127891_ + _hd127544127894_ + _tl127543127896_ + _e127548127899_ + _hd127547127902_ + _tl127546127904_ + _e127551127907_ + _hd127550127910_ + _tl127549127912_ + _e127554127915_ + _hd127553127918_ + _tl127552127920_ + _e127557127923_ + _hd127556127926_ + _tl127555127928_ + _e127560127931_ + _hd127559127934_ + _tl127558127936_ + _e127563127939_ + _hd127562127942_ + _tl127561127944_ + _e127566127947_ + _hd127565127950_ + _tl127564127952_ + _e127569127955_ + _hd127568127958_ + _tl127567127960_ + _e127572127963_ + _hd127571127966_ + _tl127570127968_ + _e127575127971_ + _hd127574127974_ + _tl127573127976_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))))) + (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl127554127932_)) - (if (let ((__tmp130683 + _tl127558127936_)) + (if (let ((__tmp130687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp130683 'bind-method!)) - (let ((_L127803_ _hd127561127946_) - (_L127804_ _hd127552127922_) - (_L127805_ _hd127543127898_) - (_L127806_ _hd127534127874_)) - (___kont128665128666_ - _L127803_ - _L127804_ - _L127805_ - _L127806_)) + (gxc#runtime-identifier=? __tmp130687 'bind-method!)) + (let ((_L127807_ _hd127565127950_) + (_L127808_ _hd127556127926_) + (_L127809_ _hd127547127902_) + (_L127810_ _hd127538127878_)) + (___kont128669128670_ + _L127807_ + _L127808_ + _L127809_ + _L127810_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))) + (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) - (let () (declare (not safe)) (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_))))) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) + (let () (declare (not safe)) (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))))) + (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) - (let () (declare (not safe)) (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) + (let () (declare (not safe)) (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) - (let () (declare (not safe)) (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))))) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) + (let () (declare (not safe)) (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))) + (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) - (let () (declare (not safe)) (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))))) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) + (let () (declare (not safe)) (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))) + (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))))) + (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl127524127852_ '0)))) - (let ((_tl127621127647_ + (gx#syntax-split-splice _tl127528127856_ '0)))) + (let ((_tl127625127651_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '1))) - (_target127619127645_ + (##vector-ref ___splice128673128674_ '1))) + (_target127623127649_ (let () (declare (not safe)) - (##vector-ref ___splice128669128670_ '0)))) + (##vector-ref ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) - (let () (declare (not safe)) (_g127517127632_))))) - (let () (declare (not safe)) (_g127517127632_)))) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) + (let () (declare (not safe)) (_g127521127636_))))) + (let () (declare (not safe)) (_g127521127636_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))) + (_g127521127636_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127524127852_)) - (let ((___splice128669128670_ + _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) + (_g127521127636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127524127852_)) - (let ((___splice128669128670_ + (gx#stx-pair/null? _tl127528127856_)) + (let ((___splice128673128674_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127524127852_ + _tl127528127856_ '0)))) - (let ((_tl127621127647_ + (let ((_tl127625127651_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '1))) - (_target127619127645_ + (_target127623127649_ (let () (declare (not safe)) (##vector-ref - ___splice128669128670_ + ___splice128673128674_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127621127647_)) - (___match128918128919_ - _e127526127847_ - _hd127525127850_ - _tl127524127852_ - ___splice128669128670_ - _target127619127645_ - _tl127621127647_) + (gx#stx-null? _tl127625127651_)) + (___match128922128923_ + _e127530127851_ + _hd127529127854_ + _tl127528127856_ + ___splice128673128674_ + _target127623127649_ + _tl127625127651_) (let () (declare (not safe)) - (_g127517127632_))))) + (_g127521127636_))))) (let () (declare (not safe)) - (_g127517127632_)))))) - (let () (declare (not safe)) (_g127517127632_)))))))) + (_g127521127636_)))))) + (let () (declare (not safe)) (_g127521127636_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_self127451_ _stx127452_) - (let* ((___stx128921128922_ _stx127452_) - (_g127455127468_ + (lambda (_self127455_ _stx127456_) + (let* ((___stx128925128926_ _stx127456_) + (_g127459127472_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128921128922_))))) - (let ((___kont128923128924_ - (lambda (_L127496_) + ___stx128925128926_))))) + (let ((___kont128927128928_ + (lambda (_L127500_) (let () (declare (not safe)) - (gxc#compile-e__1 _self127451_ _L127496_)))) - (___kont128925128926_ (lambda () '#f))) + (gxc#compile-e__1 _self127455_ _L127500_)))) + (___kont128929128930_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128921128922_)) - (let ((_e127460127480_ + (gx#stx-pair? ___stx128925128926_)) + (let ((_e127464127484_ (let () (declare (not safe)) - (gx#stx-e ___stx128921128922_)))) - (let ((_tl127458127485_ - (let () (declare (not safe)) (##cdr _e127460127480_))) - (_hd127459127483_ + (gx#stx-e ___stx128925128926_)))) + (let ((_tl127462127489_ + (let () (declare (not safe)) (##cdr _e127464127484_))) + (_hd127463127487_ (let () (declare (not safe)) - (##car _e127460127480_)))) + (##car _e127464127484_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127458127485_)) - (let ((_e127463127488_ + (gx#stx-pair? _tl127462127489_)) + (let ((_e127467127492_ (let () (declare (not safe)) - (gx#stx-e _tl127458127485_)))) - (let ((_tl127461127493_ + (gx#stx-e _tl127462127489_)))) + (let ((_tl127465127497_ (let () (declare (not safe)) - (##cdr _e127463127488_))) - (_hd127462127491_ + (##cdr _e127467127492_))) + (_hd127466127495_ (let () (declare (not safe)) - (##car _e127463127488_)))) + (##car _e127467127492_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127461127493_)) - (___kont128923128924_ _hd127462127491_) - (___kont128925128926_)))) - (___kont128925128926_)))) - (___kont128925128926_)))))) + (gx#stx-null? _tl127465127497_)) + (___kont128927128928_ _hd127466127495_) + (___kont128929128930_)))) + (___kont128929128930_)))) + (___kont128929128930_)))))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_self127330_ _stx127331_) - (let* ((_g127333127350_ - (lambda (_g127334127347_) + (lambda (_self127334_ _stx127335_) + (let* ((_g127337127354_ + (lambda (_g127338127351_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127334127347_)))) - (_g127332127448_ - (lambda (_g127334127353_) + _g127338127351_)))) + (_g127336127452_ + (lambda (_g127338127357_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127334127353_)) - (let ((_e127339127355_ + (gx#stx-pair? _g127338127357_)) + (let ((_e127343127359_ (let () (declare (not safe)) - (gx#stx-e _g127334127353_)))) - (let ((_hd127338127358_ + (gx#stx-e _g127338127357_)))) + (let ((_hd127342127362_ (let () (declare (not safe)) - (##car _e127339127355_))) - (_tl127337127360_ + (##car _e127343127359_))) + (_tl127341127364_ (let () (declare (not safe)) - (##cdr _e127339127355_)))) + (##cdr _e127343127359_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127337127360_)) - (let ((_e127342127363_ + (gx#stx-pair? _tl127341127364_)) + (let ((_e127346127367_ (let () (declare (not safe)) - (gx#stx-e _tl127337127360_)))) - (let ((_hd127341127366_ + (gx#stx-e _tl127341127364_)))) + (let ((_hd127345127370_ (let () (declare (not safe)) - (##car _e127342127363_))) - (_tl127340127368_ + (##car _e127346127367_))) + (_tl127344127372_ (let () (declare (not safe)) - (##cdr _e127342127363_)))) + (##cdr _e127346127367_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127340127368_)) - (let ((_e127345127371_ + (gx#stx-pair? _tl127344127372_)) + (let ((_e127349127375_ (let () (declare (not safe)) - (gx#stx-e _tl127340127368_)))) - (let ((_hd127344127374_ + (gx#stx-e _tl127344127372_)))) + (let ((_hd127348127378_ (let () (declare (not safe)) - (##car _e127345127371_))) - (_tl127343127376_ + (##car _e127349127375_))) + (_tl127347127380_ (let () (declare (not safe)) - (##cdr _e127345127371_)))) + (##cdr _e127349127375_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127343127376_)) - ((lambda (_L127379_ _L127380_) - (let* ((___stx128943128944_ - _L127380_) - (_g127396127407_ + _tl127347127380_)) + ((lambda (_L127383_ _L127384_) + (let* ((___stx128947128948_ + _L127384_) + (_g127400127411_ (lambda () (let () (declare @@ -3014,272 +3014,272 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128943128944_))))) - (let ((___kont128945128946_ - (lambda (_L127427_ + ___stx128947128948_))))) + (let ((___kont128949128950_ + (lambda (_L127431_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L127428_) - (let ((_$e127440_ - (let ((__tmp130684 + _L127432_) + (let ((_$e127444_ + (let ((__tmp130688 (let () (declare (not safe)) - (gx#stx-e _L127428_)))) + (gx#stx-e _L127432_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-annotations - __tmp130684)))) - (if _$e127440_ - ((lambda (_type-e127443_) - (_type-e127443_ _stx127331_ _L127380_)) - _$e127440_) + __tmp130688)))) + (if _$e127444_ + ((lambda (_type-e127447_) + (_type-e127447_ _stx127335_ _L127384_)) + _$e127444_) (let () (declare (not safe)) - (gxc#compile-e__1 _self127330_ _L127379_)))))) - (___kont128947128948_ + (gxc#compile-e__1 _self127334_ _L127383_)))))) + (___kont128951128952_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self127330_ _L127379_))))) + (gxc#compile-e__1 _self127334_ _L127383_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match128954128955_ - (lambda (_e127402127419_ + (let ((___match128958128959_ + (lambda (_e127406127423_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd127401127422_ - _tl127400127424_) - (let ((_L127427_ _tl127400127424_) - (_L127428_ _hd127401127422_)) + _hd127405127426_ + _tl127404127428_) + (let ((_L127431_ _tl127404127428_) + (_L127432_ _hd127405127426_)) (if (let () (declare (not safe)) - (gx#identifier? _L127428_)) - (___kont128945128946_ _L127427_ _L127428_) - (___kont128947128948_)))))) + (gx#identifier? _L127432_)) + (___kont128949128950_ _L127431_ _L127432_) + (___kont128951128952_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128943128944_)) - (let ((_e127402127419_ + (gx#stx-pair? ___stx128947128948_)) + (let ((_e127406127423_ (let () (declare (not safe)) - (gx#stx-e ___stx128943128944_)))) - (let ((_tl127400127424_ + (gx#stx-e ___stx128947128948_)))) + (let ((_tl127404127428_ (let () (declare (not safe)) - (##cdr _e127402127419_))) - (_hd127401127422_ + (##cdr _e127406127423_))) + (_hd127405127426_ (let () (declare (not safe)) - (##car _e127402127419_)))) - (___match128954128955_ - _e127402127419_ - _hd127401127422_ - _tl127400127424_))) - (___kont128947128948_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd127344127374_ - _hd127341127366_) + (##car _e127406127423_)))) + (___match128958128959_ + _e127406127423_ + _hd127405127426_ + _tl127404127428_))) + (___kont128951128952_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd127348127378_ + _hd127345127370_) (let () (declare (not safe)) - (_g127333127350_ - _g127334127353_))))) + (_g127337127354_ + _g127338127357_))))) (let () (declare (not safe)) - (_g127333127350_ _g127334127353_))))) + (_g127337127354_ _g127338127357_))))) (let () (declare (not safe)) - (_g127333127350_ _g127334127353_))))) + (_g127337127354_ _g127338127357_))))) (let () (declare (not safe)) - (_g127333127350_ _g127334127353_)))))) + (_g127337127354_ _g127338127357_)))))) (declare (not safe)) - (_g127332127448_ _stx127331_)))) + (_g127336127452_ _stx127335_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx127174_ _ann127175_) - (let* ((_g127177127214_ - (lambda (_g127178127211_) + (lambda (_stx127178_ _ann127179_) + (let* ((_g127181127218_ + (lambda (_g127182127215_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127178127211_)))) - (_g127176127327_ - (lambda (_g127178127217_) + _g127182127215_)))) + (_g127180127331_ + (lambda (_g127182127221_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127178127217_)) - (let ((_e127188127219_ + (gx#stx-pair? _g127182127221_)) + (let ((_e127192127223_ (let () (declare (not safe)) - (gx#stx-e _g127178127217_)))) - (let ((_hd127187127222_ + (gx#stx-e _g127182127221_)))) + (let ((_hd127191127226_ (let () (declare (not safe)) - (##car _e127188127219_))) - (_tl127186127224_ + (##car _e127192127223_))) + (_tl127190127228_ (let () (declare (not safe)) - (##cdr _e127188127219_)))) + (##cdr _e127192127223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127186127224_)) - (let ((_e127191127227_ + (gx#stx-pair? _tl127190127228_)) + (let ((_e127195127231_ (let () (declare (not safe)) - (gx#stx-e _tl127186127224_)))) - (let ((_hd127190127230_ + (gx#stx-e _tl127190127228_)))) + (let ((_hd127194127234_ (let () (declare (not safe)) - (##car _e127191127227_))) - (_tl127189127232_ + (##car _e127195127231_))) + (_tl127193127236_ (let () (declare (not safe)) - (##cdr _e127191127227_)))) + (##cdr _e127195127231_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127189127232_)) - (let ((_e127194127235_ + (gx#stx-pair? _tl127193127236_)) + (let ((_e127198127239_ (let () (declare (not safe)) - (gx#stx-e _tl127189127232_)))) - (let ((_hd127193127238_ + (gx#stx-e _tl127193127236_)))) + (let ((_hd127197127242_ (let () (declare (not safe)) - (##car _e127194127235_))) - (_tl127192127240_ + (##car _e127198127239_))) + (_tl127196127244_ (let () (declare (not safe)) - (##cdr _e127194127235_)))) + (##cdr _e127198127239_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127192127240_)) - (let ((_e127197127243_ + _tl127196127244_)) + (let ((_e127201127247_ (let () (declare (not safe)) (gx#stx-e - _tl127192127240_)))) - (let ((_hd127196127246_ + _tl127196127244_)))) + (let ((_hd127200127250_ (let () (declare (not safe)) - (##car _e127197127243_))) - (_tl127195127248_ + (##car _e127201127247_))) + (_tl127199127252_ (let () (declare (not safe)) - (##cdr _e127197127243_)))) + (##cdr _e127201127247_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127195127248_)) - (let ((_e127200127251_ + _tl127199127252_)) + (let ((_e127204127255_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl127195127248_)))) - (let ((_hd127199127254_ - (let () (declare (not safe)) (##car _e127200127251_))) - (_tl127198127256_ - (let () (declare (not safe)) (##cdr _e127200127251_)))) + (gx#stx-e _tl127199127252_)))) + (let ((_hd127203127258_ + (let () (declare (not safe)) (##car _e127204127255_))) + (_tl127202127260_ + (let () (declare (not safe)) (##cdr _e127204127255_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127198127256_)) - (let ((_e127203127259_ + (gx#stx-pair? _tl127202127260_)) + (let ((_e127207127263_ (let () (declare (not safe)) - (gx#stx-e _tl127198127256_)))) - (let ((_hd127202127262_ + (gx#stx-e _tl127202127260_)))) + (let ((_hd127206127266_ (let () (declare (not safe)) - (##car _e127203127259_))) - (_tl127201127264_ + (##car _e127207127263_))) + (_tl127205127268_ (let () (declare (not safe)) - (##cdr _e127203127259_)))) + (##cdr _e127207127263_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127201127264_)) - (let ((_e127206127267_ + (gx#stx-pair? _tl127205127268_)) + (let ((_e127210127271_ (let () (declare (not safe)) - (gx#stx-e _tl127201127264_)))) - (let ((_hd127205127270_ + (gx#stx-e _tl127205127268_)))) + (let ((_hd127209127274_ (let () (declare (not safe)) - (##car _e127206127267_))) - (_tl127204127272_ + (##car _e127210127271_))) + (_tl127208127276_ (let () (declare (not safe)) - (##cdr _e127206127267_)))) + (##cdr _e127210127271_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127204127272_)) - (let ((_e127209127275_ + (gx#stx-pair? _tl127208127276_)) + (let ((_e127213127279_ (let () (declare (not safe)) - (gx#stx-e _tl127204127272_)))) - (let ((_hd127208127278_ + (gx#stx-e _tl127208127276_)))) + (let ((_hd127212127282_ (let () (declare (not safe)) - (##car _e127209127275_))) - (_tl127207127280_ + (##car _e127213127279_))) + (_tl127211127284_ (let () (declare (not safe)) - (##cdr _e127209127275_)))) + (##cdr _e127213127279_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127207127280_)) - ((lambda (_L127283_ - _L127284_ - _L127285_ - _L127286_ - _L127287_ + _tl127211127284_)) + ((lambda (_L127287_ _L127288_ - _L127289_) - (let ((_type-id127319_ + _L127289_ + _L127290_ + _L127291_ + _L127292_ + _L127293_) + (let ((_type-id127323_ (let () (declare (not safe)) (gx#stx-e - _L127289_))) - (_super127320_ + _L127293_))) + (_super127324_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _L127288_))) - (_slots127321_ + _L127292_))) + (_slots127325_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _L127287_))) - (_ctor-method127322_ + _L127291_))) + (_ctor-method127326_ (let () (declare (not safe)) (gx#stx-e - _L127286_))) - (_struct?127323_ + _L127290_))) + (_struct?127327_ (let () (declare (not safe)) (gx#stx-e - _L127285_))) - (_final?127324_ + _L127289_))) + (_final?127328_ (let () (declare (not safe)) (gx#stx-e - _L127284_))) - (_metaclass127325_ + _L127288_))) + (_metaclass127329_ (if (let () (declare (not safe)) (gx#stx-e - _L127283_)) + _L127287_)) (let () (declare (not safe)) (gxc#identifier-symbol - _L127283_)) + _L127287_)) '#f))) - (let ((__obj130636 + (let ((__obj130640 (let () (declare (not safe)) @@ -3297,129 +3297,129 @@ '#f '#f)))) (gxc#!class:::init! - __obj130636 - _type-id127319_ - _super127320_ - _slots127321_ - _ctor-method127322_ - _struct?127323_ - _final?127324_ + __obj130640 + _type-id127323_ + _super127324_ + _slots127325_ + _ctor-method127326_ + _struct?127327_ + _final?127328_ '#f - _metaclass127325_) - __obj130636))) - _hd127208127278_ - _hd127205127270_ - _hd127202127262_ - _hd127199127254_ - _hd127196127246_ - _hd127193127238_ - _hd127190127230_) + _metaclass127329_) + __obj130640))) + _hd127212127282_ + _hd127209127274_ + _hd127206127266_ + _hd127203127258_ + _hd127200127250_ + _hd127197127242_ + _hd127194127234_) (let () (declare (not safe)) - (_g127177127214_ - _g127178127217_))))) + (_g127181127218_ + _g127182127221_))))) (let () (declare (not safe)) - (_g127177127214_ _g127178127217_))))) + (_g127181127218_ _g127182127221_))))) (let () (declare (not safe)) - (_g127177127214_ _g127178127217_))))) + (_g127181127218_ _g127182127221_))))) (let () (declare (not safe)) - (_g127177127214_ _g127178127217_))))) + (_g127181127218_ _g127182127221_))))) (let () (declare (not safe)) - (_g127177127214_ _g127178127217_))))) + (_g127181127218_ _g127182127221_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g127177127214_ - _g127178127217_))))) + (_g127181127218_ + _g127182127221_))))) (let () (declare (not safe)) - (_g127177127214_ _g127178127217_))))) + (_g127181127218_ _g127182127221_))))) (let () (declare (not safe)) - (_g127177127214_ _g127178127217_))))) + (_g127181127218_ _g127182127221_))))) (let () (declare (not safe)) - (_g127177127214_ _g127178127217_)))))) + (_g127181127218_ _g127182127221_)))))) (declare (not safe)) - (_g127176127327_ _ann127175_)))) + (_g127180127331_ _ann127179_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_stx127103_ _ann127104_) - (let* ((_g127106127123_ - (lambda (_g127107127120_) + (lambda (_stx127107_ _ann127108_) + (let* ((_g127110127127_ + (lambda (_g127111127124_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127107127120_)))) - (_g127105127171_ - (lambda (_g127107127126_) + _g127111127124_)))) + (_g127109127175_ + (lambda (_g127111127130_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127107127126_)) - (let ((_e127112127128_ + (gx#stx-pair? _g127111127130_)) + (let ((_e127116127132_ (let () (declare (not safe)) - (gx#stx-e _g127107127126_)))) - (let ((_hd127111127131_ + (gx#stx-e _g127111127130_)))) + (let ((_hd127115127135_ (let () (declare (not safe)) - (##car _e127112127128_))) - (_tl127110127133_ + (##car _e127116127132_))) + (_tl127114127137_ (let () (declare (not safe)) - (##cdr _e127112127128_)))) + (##cdr _e127116127132_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127110127133_)) - (let ((_e127115127136_ + (gx#stx-pair? _tl127114127137_)) + (let ((_e127119127140_ (let () (declare (not safe)) - (gx#stx-e _tl127110127133_)))) - (let ((_hd127114127139_ + (gx#stx-e _tl127114127137_)))) + (let ((_hd127118127143_ (let () (declare (not safe)) - (##car _e127115127136_))) - (_tl127113127141_ + (##car _e127119127140_))) + (_tl127117127145_ (let () (declare (not safe)) - (##cdr _e127115127136_)))) + (##cdr _e127119127140_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127113127141_)) - (let ((_e127118127144_ + (gx#stx-pair? _tl127117127145_)) + (let ((_e127122127148_ (let () (declare (not safe)) - (gx#stx-e _tl127113127141_)))) - (let ((_hd127117127147_ + (gx#stx-e _tl127117127145_)))) + (let ((_hd127121127151_ (let () (declare (not safe)) - (##car _e127118127144_))) - (_tl127116127149_ + (##car _e127122127148_))) + (_tl127120127153_ (let () (declare (not safe)) - (##cdr _e127118127144_)))) + (##cdr _e127122127148_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127116127149_)) - ((lambda (_L127152_ _L127153_) - (let ((_type-id127168_ + _tl127120127153_)) + ((lambda (_L127156_ _L127157_) + (let ((_type-id127172_ (let () (declare (not safe)) (gx#stx-e - _L127153_))) - (_super127169_ + _L127157_))) + (_super127173_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _L127152_)))) - (let ((__obj130637 + _L127156_)))) + (let ((__obj130641 (let () (declare (not safe)) @@ -3437,403 +3437,403 @@ '#f '#f)))) (gxc#!class:::init! - __obj130637 - _type-id127168_ - _super127169_ + __obj130641 + _type-id127172_ + _super127173_ '() '#f '#f '#f '#t '#f) - __obj130637))) - _hd127117127147_ - _hd127114127139_) + __obj130641))) + _hd127121127151_ + _hd127118127143_) (let () (declare (not safe)) - (_g127106127123_ - _g127107127126_))))) + (_g127110127127_ + _g127111127130_))))) (let () (declare (not safe)) - (_g127106127123_ _g127107127126_))))) + (_g127110127127_ _g127111127130_))))) (let () (declare (not safe)) - (_g127106127123_ _g127107127126_))))) + (_g127110127127_ _g127111127130_))))) (let () (declare (not safe)) - (_g127106127123_ _g127107127126_)))))) + (_g127110127127_ _g127111127130_)))))) (declare (not safe)) - (_g127105127171_ _ann127104_)))) + (_g127109127175_ _ann127108_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx127051_ _ann127052_) - (let* ((_g127054127067_ - (lambda (_g127055127064_) + (lambda (_stx127055_ _ann127056_) + (let* ((_g127058127071_ + (lambda (_g127059127068_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127055127064_)))) - (_g127053127100_ - (lambda (_g127055127070_) + _g127059127068_)))) + (_g127057127104_ + (lambda (_g127059127074_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127055127070_)) - (let ((_e127059127072_ + (gx#stx-pair? _g127059127074_)) + (let ((_e127063127076_ (let () (declare (not safe)) - (gx#stx-e _g127055127070_)))) - (let ((_hd127058127075_ + (gx#stx-e _g127059127074_)))) + (let ((_hd127062127079_ (let () (declare (not safe)) - (##car _e127059127072_))) - (_tl127057127077_ + (##car _e127063127076_))) + (_tl127061127081_ (let () (declare (not safe)) - (##cdr _e127059127072_)))) + (##cdr _e127063127076_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127057127077_)) - (let ((_e127062127080_ + (gx#stx-pair? _tl127061127081_)) + (let ((_e127066127084_ (let () (declare (not safe)) - (gx#stx-e _tl127057127077_)))) - (let ((_hd127061127083_ + (gx#stx-e _tl127061127081_)))) + (let ((_hd127065127087_ (let () (declare (not safe)) - (##car _e127062127080_))) - (_tl127060127085_ + (##car _e127066127084_))) + (_tl127064127089_ (let () (declare (not safe)) - (##cdr _e127062127080_)))) + (##cdr _e127066127084_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127060127085_)) - ((lambda (_L127088_) - (let ((__tmp130685 + (gx#stx-null? _tl127064127089_)) + ((lambda (_L127092_) + (let ((__tmp130689 (let () (declare (not safe)) (gxc#identifier-symbol - _L127088_)))) + _L127092_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp130685))) - _hd127061127083_) + __tmp130689))) + _hd127065127087_) (let () (declare (not safe)) - (_g127054127067_ _g127055127070_))))) + (_g127058127071_ _g127059127074_))))) (let () (declare (not safe)) - (_g127054127067_ _g127055127070_))))) + (_g127058127071_ _g127059127074_))))) (let () (declare (not safe)) - (_g127054127067_ _g127055127070_)))))) + (_g127058127071_ _g127059127074_)))))) (declare (not safe)) - (_g127053127100_ _ann127052_)))) + (_g127057127104_ _ann127056_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx126999_ _ann127000_) - (let* ((_g127002127015_ - (lambda (_g127003127012_) + (lambda (_stx127003_ _ann127004_) + (let* ((_g127006127019_ + (lambda (_g127007127016_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127003127012_)))) - (_g127001127048_ - (lambda (_g127003127018_) + _g127007127016_)))) + (_g127005127052_ + (lambda (_g127007127022_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127003127018_)) - (let ((_e127007127020_ + (gx#stx-pair? _g127007127022_)) + (let ((_e127011127024_ (let () (declare (not safe)) - (gx#stx-e _g127003127018_)))) - (let ((_hd127006127023_ + (gx#stx-e _g127007127022_)))) + (let ((_hd127010127027_ (let () (declare (not safe)) - (##car _e127007127020_))) - (_tl127005127025_ + (##car _e127011127024_))) + (_tl127009127029_ (let () (declare (not safe)) - (##cdr _e127007127020_)))) + (##cdr _e127011127024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127005127025_)) - (let ((_e127010127028_ + (gx#stx-pair? _tl127009127029_)) + (let ((_e127014127032_ (let () (declare (not safe)) - (gx#stx-e _tl127005127025_)))) - (let ((_hd127009127031_ + (gx#stx-e _tl127009127029_)))) + (let ((_hd127013127035_ (let () (declare (not safe)) - (##car _e127010127028_))) - (_tl127008127033_ + (##car _e127014127032_))) + (_tl127012127037_ (let () (declare (not safe)) - (##cdr _e127010127028_)))) + (##cdr _e127014127032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127008127033_)) - ((lambda (_L127036_) - (let ((__tmp130686 + (gx#stx-null? _tl127012127037_)) + ((lambda (_L127040_) + (let ((__tmp130690 (let () (declare (not safe)) (gxc#identifier-symbol - _L127036_)))) + _L127040_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp130686))) - _hd127009127031_) + __tmp130690))) + _hd127013127035_) (let () (declare (not safe)) - (_g127002127015_ _g127003127018_))))) + (_g127006127019_ _g127007127022_))))) (let () (declare (not safe)) - (_g127002127015_ _g127003127018_))))) + (_g127006127019_ _g127007127022_))))) (let () (declare (not safe)) - (_g127002127015_ _g127003127018_)))))) + (_g127006127019_ _g127007127022_)))))) (declare (not safe)) - (_g127001127048_ _ann127000_)))) + (_g127005127052_ _ann127004_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx126915_ _ann126916_) - (let* ((_g126918126939_ - (lambda (_g126919126936_) + (lambda (_stx126919_ _ann126920_) + (let* ((_g126922126943_ + (lambda (_g126923126940_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g126919126936_)))) - (_g126917126996_ - (lambda (_g126919126942_) + _g126923126940_)))) + (_g126921127000_ + (lambda (_g126923126946_) (if (let () (declare (not safe)) - (gx#stx-pair? _g126919126942_)) - (let ((_e126925126944_ + (gx#stx-pair? _g126923126946_)) + (let ((_e126929126948_ (let () (declare (not safe)) - (gx#stx-e _g126919126942_)))) - (let ((_hd126924126947_ + (gx#stx-e _g126923126946_)))) + (let ((_hd126928126951_ (let () (declare (not safe)) - (##car _e126925126944_))) - (_tl126923126949_ + (##car _e126929126948_))) + (_tl126927126953_ (let () (declare (not safe)) - (##cdr _e126925126944_)))) + (##cdr _e126929126948_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126923126949_)) - (let ((_e126928126952_ + (gx#stx-pair? _tl126927126953_)) + (let ((_e126932126956_ (let () (declare (not safe)) - (gx#stx-e _tl126923126949_)))) - (let ((_hd126927126955_ + (gx#stx-e _tl126927126953_)))) + (let ((_hd126931126959_ (let () (declare (not safe)) - (##car _e126928126952_))) - (_tl126926126957_ + (##car _e126932126956_))) + (_tl126930126961_ (let () (declare (not safe)) - (##cdr _e126928126952_)))) + (##cdr _e126932126956_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126926126957_)) - (let ((_e126931126960_ + (gx#stx-pair? _tl126930126961_)) + (let ((_e126935126964_ (let () (declare (not safe)) - (gx#stx-e _tl126926126957_)))) - (let ((_hd126930126963_ + (gx#stx-e _tl126930126961_)))) + (let ((_hd126934126967_ (let () (declare (not safe)) - (##car _e126931126960_))) - (_tl126929126965_ + (##car _e126935126964_))) + (_tl126933126969_ (let () (declare (not safe)) - (##cdr _e126931126960_)))) + (##cdr _e126935126964_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126929126965_)) - (let ((_e126934126968_ + _tl126933126969_)) + (let ((_e126938126972_ (let () (declare (not safe)) (gx#stx-e - _tl126929126965_)))) - (let ((_hd126933126971_ + _tl126933126969_)))) + (let ((_hd126937126975_ (let () (declare (not safe)) - (##car _e126934126968_))) - (_tl126932126973_ + (##car _e126938126972_))) + (_tl126936126977_ (let () (declare (not safe)) - (##cdr _e126934126968_)))) + (##cdr _e126938126972_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126932126973_)) - ((lambda (_L126976_ - _L126977_ - _L126978_) - (let ((__tmp130689 + _tl126936126977_)) + ((lambda (_L126980_ + _L126981_ + _L126982_) + (let ((__tmp130693 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L126978_))) - (__tmp130688 - (let () (declare (not safe)) (gx#stx-e _L126977_))) - (__tmp130687 - (let () (declare (not safe)) (gx#stx-e _L126976_)))) + (gxc#identifier-symbol _L126982_))) + (__tmp130692 + (let () (declare (not safe)) (gx#stx-e _L126981_))) + (__tmp130691 + (let () (declare (not safe)) (gx#stx-e _L126980_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp130689 - __tmp130688 - __tmp130687))) - _hd126933126971_ - _hd126930126963_ - _hd126927126955_) + __tmp130693 + __tmp130692 + __tmp130691))) + _hd126937126975_ + _hd126934126967_ + _hd126931126959_) (let () (declare (not safe)) - (_g126918126939_ _g126919126942_))))) + (_g126922126943_ _g126923126946_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g126918126939_ - _g126919126942_))))) + (_g126922126943_ + _g126923126946_))))) (let () (declare (not safe)) - (_g126918126939_ _g126919126942_))))) + (_g126922126943_ _g126923126946_))))) (let () (declare (not safe)) - (_g126918126939_ _g126919126942_))))) + (_g126922126943_ _g126923126946_))))) (let () (declare (not safe)) - (_g126918126939_ _g126919126942_)))))) + (_g126922126943_ _g126923126946_)))))) (declare (not safe)) - (_g126917126996_ _ann126916_)))) + (_g126921127000_ _ann126920_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx126831_ _ann126832_) - (let* ((_g126834126855_ - (lambda (_g126835126852_) + (lambda (_stx126835_ _ann126836_) + (let* ((_g126838126859_ + (lambda (_g126839126856_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g126835126852_)))) - (_g126833126912_ - (lambda (_g126835126858_) + _g126839126856_)))) + (_g126837126916_ + (lambda (_g126839126862_) (if (let () (declare (not safe)) - (gx#stx-pair? _g126835126858_)) - (let ((_e126841126860_ + (gx#stx-pair? _g126839126862_)) + (let ((_e126845126864_ (let () (declare (not safe)) - (gx#stx-e _g126835126858_)))) - (let ((_hd126840126863_ + (gx#stx-e _g126839126862_)))) + (let ((_hd126844126867_ (let () (declare (not safe)) - (##car _e126841126860_))) - (_tl126839126865_ + (##car _e126845126864_))) + (_tl126843126869_ (let () (declare (not safe)) - (##cdr _e126841126860_)))) + (##cdr _e126845126864_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126839126865_)) - (let ((_e126844126868_ + (gx#stx-pair? _tl126843126869_)) + (let ((_e126848126872_ (let () (declare (not safe)) - (gx#stx-e _tl126839126865_)))) - (let ((_hd126843126871_ + (gx#stx-e _tl126843126869_)))) + (let ((_hd126847126875_ (let () (declare (not safe)) - (##car _e126844126868_))) - (_tl126842126873_ + (##car _e126848126872_))) + (_tl126846126877_ (let () (declare (not safe)) - (##cdr _e126844126868_)))) + (##cdr _e126848126872_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126842126873_)) - (let ((_e126847126876_ + (gx#stx-pair? _tl126846126877_)) + (let ((_e126851126880_ (let () (declare (not safe)) - (gx#stx-e _tl126842126873_)))) - (let ((_hd126846126879_ + (gx#stx-e _tl126846126877_)))) + (let ((_hd126850126883_ (let () (declare (not safe)) - (##car _e126847126876_))) - (_tl126845126881_ + (##car _e126851126880_))) + (_tl126849126885_ (let () (declare (not safe)) - (##cdr _e126847126876_)))) + (##cdr _e126851126880_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126845126881_)) - (let ((_e126850126884_ + _tl126849126885_)) + (let ((_e126854126888_ (let () (declare (not safe)) (gx#stx-e - _tl126845126881_)))) - (let ((_hd126849126887_ + _tl126849126885_)))) + (let ((_hd126853126891_ (let () (declare (not safe)) - (##car _e126850126884_))) - (_tl126848126889_ + (##car _e126854126888_))) + (_tl126852126893_ (let () (declare (not safe)) - (##cdr _e126850126884_)))) + (##cdr _e126854126888_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126848126889_)) - ((lambda (_L126892_ - _L126893_ - _L126894_) - (let ((__tmp130692 + _tl126852126893_)) + ((lambda (_L126896_ + _L126897_ + _L126898_) + (let ((__tmp130696 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L126894_))) - (__tmp130691 - (let () (declare (not safe)) (gx#stx-e _L126893_))) - (__tmp130690 - (let () (declare (not safe)) (gx#stx-e _L126892_)))) + (gxc#identifier-symbol _L126898_))) + (__tmp130695 + (let () (declare (not safe)) (gx#stx-e _L126897_))) + (__tmp130694 + (let () (declare (not safe)) (gx#stx-e _L126896_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp130692 - __tmp130691 - __tmp130690))) - _hd126849126887_ - _hd126846126879_ - _hd126843126871_) + __tmp130696 + __tmp130695 + __tmp130694))) + _hd126853126891_ + _hd126850126883_ + _hd126847126875_) (let () (declare (not safe)) - (_g126834126855_ _g126835126858_))))) + (_g126838126859_ _g126839126862_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g126834126855_ - _g126835126858_))))) + (_g126838126859_ + _g126839126862_))))) (let () (declare (not safe)) - (_g126834126855_ _g126835126858_))))) + (_g126838126859_ _g126839126862_))))) (let () (declare (not safe)) - (_g126834126855_ _g126835126858_))))) + (_g126838126859_ _g126839126862_))))) (let () (declare (not safe)) - (_g126834126855_ _g126835126858_)))))) + (_g126838126859_ _g126839126862_)))))) (declare (not safe)) - (_g126833126912_ _ann126832_)))) + (_g126837126916_ _ann126836_)))) (let () (declare (not safe)) (hash-put! @@ -3871,2046 +3871,2046 @@ '@mop.system gxc#basic-expression-type-annotation-mop.system)) (define gxc#basic-expression-type-lambda% - (lambda (_self125950_ _stx125951_) - (let* ((___stx128957128958_ _stx125951_) - (_g125957126153_ + (lambda (_self125954_ _stx125955_) + (let* ((___stx128961128962_ _stx125955_) + (_g125961126157_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128957128958_))))) - (let ((___kont128959128960_ - (lambda (_L126819_) - (let ((__obj130638 + ___stx128961128962_))))) + (let ((___kont128963128964_ + (lambda (_L126823_) + (let ((__obj130642 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj130638 + __obj130642 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L126819_)) + (gxc#lambda-form-arity _L126823_)) '#f) - __obj130638))) - (___kont128961128962_ - (lambda (_L126746_ - _L126747_ - _L126748_ - _L126749_ - _L126750_ - _L126751_) - (let* ((_tab126801_ - (let () (declare (not safe)) (gx#stx-e _L126748_))) - (_keys126803_ - (if _tab126801_ - (filter values (vector->list _tab126801_)) + __obj130642))) + (___kont128965128966_ + (lambda (_L126750_ + _L126751_ + _L126752_ + _L126753_ + _L126754_ + _L126755_) + (let* ((_tab126805_ + (let () (declare (not safe)) (gx#stx-e _L126752_))) + (_keys126807_ + (if _tab126805_ + (filter values (vector->list _tab126805_)) '#f))) - (let ((__tmp130693 + (let ((__tmp130697 (let () (declare (not safe)) - (gxc#identifier-symbol _L126747_)))) + (gxc#identifier-symbol _L126751_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys126803_ - __tmp130693))))) - (___kont128963128964_ - (lambda (_L126479_ - _L126480_ - _L126481_ - _L126482_ - _L126483_ + _keys126807_ + __tmp130697))))) + (___kont128967128968_ + (lambda (_L126483_ _L126484_ _L126485_ _L126486_ _L126487_ - _L126488_) - (let ((__tmp130695 + _L126488_ + _L126489_ + _L126490_ + _L126491_ + _L126492_) + (let ((__tmp130699 (map gx#stx-e - (let ((__tmp130696 - (lambda (_g126581126584_ _g126582126586_) + (let ((__tmp130700 + (lambda (_g126585126588_ _g126586126590_) (let () (declare (not safe)) - (cons _g126581126584_ - _g126582126586_))))) + (cons _g126585126588_ + _g126586126590_))))) (declare (not safe)) - (foldr1 __tmp130696 '() _L126481_)))) - (__tmp130694 + (foldr1 __tmp130700 '() _L126485_)))) + (__tmp130698 (let () (declare (not safe)) - (gxc#identifier-symbol _L126485_)))) + (gxc#identifier-symbol _L126489_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp130695 - __tmp130694)))) - (___kont128967128968_ - (lambda (_L126189_) - (let ((__obj130639 + __tmp130699 + __tmp130698)))) + (___kont128971128972_ + (lambda (_L126193_) + (let ((__obj130643 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj130639 + __obj130643 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L126189_)) + (gxc#lambda-form-arity _L126193_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L126189_))) - __obj130639))) - (___kont128969128970_ - (lambda (_L126166_) - (let ((__obj130640 + (gxc#dispatch-lambda-form-delegate _L126193_))) + __obj130643))) + (___kont128973128974_ + (lambda (_L126170_) + (let ((__obj130644 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj130640 + __obj130644 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L126166_)) + (gxc#lambda-form-arity _L126170_)) '#f) - __obj130640)))) - (let* ((___match129276129277_ - (lambda (_e126144126181_ _hd126143126184_ _tl126142126186_) - (let ((_L126189_ _tl126142126186_)) + __obj130644)))) + (let* ((___match129280129281_ + (lambda (_e126148126185_ _hd126147126188_ _tl126146126190_) + (let ((_L126193_ _tl126146126190_)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _L126189_)) - (___kont128967128968_ _L126189_) - (___kont128969128970_ _tl126142126186_))))) - (___match129270129271_ - (lambda (_e126038126203_ - _hd126037126206_ - _tl126036126208_ - _e126041126211_ - _hd126040126214_ - _tl126039126216_ - _e126044126219_ - _hd126043126222_ - _tl126042126224_ - _e126047126227_ - _hd126046126230_ - _tl126045126232_ - _e126050126235_ - _hd126049126238_ - _tl126048126240_ - _e126053126243_ - _hd126052126246_ - _tl126051126248_ - _e126056126251_ - _hd126055126254_ - _tl126054126256_ - _e126059126259_ - _hd126058126262_ - _tl126057126264_ - _e126062126267_ - _hd126061126270_ - _tl126060126272_ - _e126065126275_ - _hd126064126278_ - _tl126063126280_ - _e126068126283_ - _hd126067126286_ - _tl126066126288_ - _e126071126291_ - _hd126070126294_ - _tl126069126296_ - _e126074126299_ - _hd126073126302_ - _tl126072126304_ - _e126077126307_ - _hd126076126310_ - _tl126075126312_ - ___splice128965128966_ - _target126078126315_ - _tl126080126317_ - _e126095126320_ - _hd126094126323_ - _tl126093126325_ - _e126098126328_ - _hd126097126331_ - _tl126096126333_ - _e126101126336_ - _hd126100126339_ - _tl126099126341_) - (letrec ((_loop126081126344_ - (lambda (_hd126079126347_ - _-absent-value126085126349_ - _key126086126351_ - _-xkwvar126087126353_ - _-hash-ref126088126355_) + (gxc#dispatch-lambda-form? _L126193_)) + (___kont128971128972_ _L126193_) + (___kont128973128974_ _tl126146126190_))))) + (___match129274129275_ + (lambda (_e126042126207_ + _hd126041126210_ + _tl126040126212_ + _e126045126215_ + _hd126044126218_ + _tl126043126220_ + _e126048126223_ + _hd126047126226_ + _tl126046126228_ + _e126051126231_ + _hd126050126234_ + _tl126049126236_ + _e126054126239_ + _hd126053126242_ + _tl126052126244_ + _e126057126247_ + _hd126056126250_ + _tl126055126252_ + _e126060126255_ + _hd126059126258_ + _tl126058126260_ + _e126063126263_ + _hd126062126266_ + _tl126061126268_ + _e126066126271_ + _hd126065126274_ + _tl126064126276_ + _e126069126279_ + _hd126068126282_ + _tl126067126284_ + _e126072126287_ + _hd126071126290_ + _tl126070126292_ + _e126075126295_ + _hd126074126298_ + _tl126073126300_ + _e126078126303_ + _hd126077126306_ + _tl126076126308_ + _e126081126311_ + _hd126080126314_ + _tl126079126316_ + ___splice128969128970_ + _target126082126319_ + _tl126084126321_ + _e126099126324_ + _hd126098126327_ + _tl126097126329_ + _e126102126332_ + _hd126101126335_ + _tl126100126337_ + _e126105126340_ + _hd126104126343_ + _tl126103126345_) + (letrec ((_loop126085126348_ + (lambda (_hd126083126351_ + _-absent-value126089126353_ + _key126090126355_ + _-xkwvar126091126357_ + _-hash-ref126092126359_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126079126347_)) - (let ((_e126082126358_ + (gx#stx-pair? _hd126083126351_)) + (let ((_e126086126362_ (let () (declare (not safe)) - (gx#stx-e _hd126079126347_)))) - (let ((_lp-tl126084126363_ + (gx#stx-e _hd126083126351_)))) + (let ((_lp-tl126088126367_ (let () (declare (not safe)) - (##cdr _e126082126358_))) - (_lp-hd126083126361_ + (##cdr _e126086126362_))) + (_lp-hd126087126365_ (let () (declare (not safe)) - (##car _e126082126358_)))) + (##car _e126086126362_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd126083126361_)) - (let ((_e126104126366_ + _lp-hd126087126365_)) + (let ((_e126108126370_ (let () (declare (not safe)) (gx#stx-e - _lp-hd126083126361_)))) - (let ((_tl126102126371_ + _lp-hd126087126365_)))) + (let ((_tl126106126375_ (let () (declare (not safe)) - (##cdr _e126104126366_))) - (_hd126103126369_ + (##cdr _e126108126370_))) + (_hd126107126373_ (let () (declare (not safe)) - (##car _e126104126366_)))) + (##car _e126108126370_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd126103126369_)) + _hd126107126373_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd126103126369_)) + _hd126107126373_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl126102126371_)) - (let ((_e126107126374_ + (gx#stx-pair? _tl126106126375_)) + (let ((_e126111126378_ (let () (declare (not safe)) - (gx#stx-e _tl126102126371_)))) - (let ((_tl126105126379_ + (gx#stx-e _tl126106126375_)))) + (let ((_tl126109126383_ (let () (declare (not safe)) - (##cdr _e126107126374_))) - (_hd126106126377_ + (##cdr _e126111126378_))) + (_hd126110126381_ (let () (declare (not safe)) - (##car _e126107126374_)))) + (##car _e126111126378_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126106126377_)) - (let ((_e126110126382_ + (gx#stx-pair? _hd126110126381_)) + (let ((_e126114126386_ (let () (declare (not safe)) - (gx#stx-e _hd126106126377_)))) - (let ((_tl126108126387_ + (gx#stx-e _hd126110126381_)))) + (let ((_tl126112126391_ (let () (declare (not safe)) - (##cdr _e126110126382_))) - (_hd126109126385_ + (##cdr _e126114126386_))) + (_hd126113126389_ (let () (declare (not safe)) - (##car _e126110126382_)))) + (##car _e126114126386_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126109126385_)) + (gx#identifier? _hd126113126389_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd126109126385_)) + _hd126113126389_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126108126387_)) - (let ((_e126113126390_ + _tl126112126391_)) + (let ((_e126117126394_ (let () (declare (not safe)) (gx#stx-e - _tl126108126387_)))) - (let ((_tl126111126395_ + _tl126112126391_)))) + (let ((_tl126115126399_ (let () (declare (not safe)) - (##cdr _e126113126390_))) - (_hd126112126393_ + (##cdr _e126117126394_))) + (_hd126116126397_ (let () (declare (not safe)) - (##car _e126113126390_)))) + (##car _e126117126394_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126111126395_)) + _tl126115126399_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126105126379_)) - (let ((_e126116126398_ + _tl126109126383_)) + (let ((_e126120126402_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl126105126379_)))) - (let ((_tl126114126403_ + (gx#stx-e _tl126109126383_)))) + (let ((_tl126118126407_ (let () (declare (not safe)) - (##cdr _e126116126398_))) - (_hd126115126401_ + (##cdr _e126120126402_))) + (_hd126119126405_ (let () (declare (not safe)) - (##car _e126116126398_)))) + (##car _e126120126402_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126115126401_)) - (let ((_e126119126406_ + (gx#stx-pair? _hd126119126405_)) + (let ((_e126123126410_ (let () (declare (not safe)) - (gx#stx-e _hd126115126401_)))) - (let ((_tl126117126411_ + (gx#stx-e _hd126119126405_)))) + (let ((_tl126121126415_ (let () (declare (not safe)) - (##cdr _e126119126406_))) - (_hd126118126409_ + (##cdr _e126123126410_))) + (_hd126122126413_ (let () (declare (not safe)) - (##car _e126119126406_)))) + (##car _e126123126410_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126118126409_)) + (gx#identifier? _hd126122126413_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126118126409_)) + (gx#stx-eq? '%#ref _hd126122126413_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126117126411_)) - (let ((_e126122126414_ + (gx#stx-pair? _tl126121126415_)) + (let ((_e126126126418_ (let () (declare (not safe)) (gx#stx-e - _tl126117126411_)))) - (let ((_tl126120126419_ + _tl126121126415_)))) + (let ((_tl126124126423_ (let () (declare (not safe)) - (##cdr _e126122126414_))) - (_hd126121126417_ + (##cdr _e126126126418_))) + (_hd126125126421_ (let () (declare (not safe)) - (##car _e126122126414_)))) + (##car _e126126126418_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126120126419_)) + _tl126124126423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126114126403_)) - (let ((_e126125126422_ + _tl126118126407_)) + (let ((_e126129126426_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl126114126403_)))) - (let ((_tl126123126427_ - (let () (declare (not safe)) (##cdr _e126125126422_))) - (_hd126124126425_ - (let () (declare (not safe)) (##car _e126125126422_)))) + (gx#stx-e _tl126118126407_)))) + (let ((_tl126127126431_ + (let () (declare (not safe)) (##cdr _e126129126426_))) + (_hd126128126429_ + (let () (declare (not safe)) (##car _e126129126426_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126124126425_)) - (let ((_e126128126430_ + (gx#stx-pair? _hd126128126429_)) + (let ((_e126132126434_ (let () (declare (not safe)) - (gx#stx-e _hd126124126425_)))) - (let ((_tl126126126435_ + (gx#stx-e _hd126128126429_)))) + (let ((_tl126130126439_ (let () (declare (not safe)) - (##cdr _e126128126430_))) - (_hd126127126433_ + (##cdr _e126132126434_))) + (_hd126131126437_ (let () (declare (not safe)) - (##car _e126128126430_)))) + (##car _e126132126434_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126127126433_)) + (gx#identifier? _hd126131126437_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd126127126433_)) + (gx#stx-eq? '%#quote _hd126131126437_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126126126435_)) - (let ((_e126131126438_ + (gx#stx-pair? _tl126130126439_)) + (let ((_e126135126442_ (let () (declare (not safe)) - (gx#stx-e _tl126126126435_)))) - (let ((_tl126129126443_ + (gx#stx-e _tl126130126439_)))) + (let ((_tl126133126447_ (let () (declare (not safe)) - (##cdr _e126131126438_))) - (_hd126130126441_ + (##cdr _e126135126442_))) + (_hd126134126445_ (let () (declare (not safe)) - (##car _e126131126438_)))) + (##car _e126135126442_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126129126443_)) + _tl126133126447_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126123126427_)) - (let ((_e126134126446_ + _tl126127126431_)) + (let ((_e126138126450_ (let () (declare (not safe)) (gx#stx-e - _tl126123126427_)))) - (let ((_tl126132126451_ + _tl126127126431_)))) + (let ((_tl126136126455_ (let () (declare (not safe)) - (##cdr _e126134126446_))) - (_hd126133126449_ + (##cdr _e126138126450_))) + (_hd126137126453_ (let () (declare (not safe)) - (##car _e126134126446_)))) + (##car _e126138126450_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126133126449_)) - (let ((_e126137126454_ + _hd126137126453_)) + (let ((_e126141126458_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd126133126449_)))) - (let ((_tl126135126459_ + (gx#stx-e _hd126137126453_)))) + (let ((_tl126139126463_ (let () (declare (not safe)) - (##cdr _e126137126454_))) - (_hd126136126457_ + (##cdr _e126141126458_))) + (_hd126140126461_ (let () (declare (not safe)) - (##car _e126137126454_)))) + (##car _e126141126458_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126136126457_)) + (gx#identifier? _hd126140126461_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126136126457_)) + (gx#stx-eq? '%#ref _hd126140126461_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126135126459_)) - (let ((_e126140126462_ + (gx#stx-pair? _tl126139126463_)) + (let ((_e126144126466_ (let () (declare (not safe)) - (gx#stx-e _tl126135126459_)))) - (let ((_tl126138126467_ + (gx#stx-e _tl126139126463_)))) + (let ((_tl126142126471_ (let () (declare (not safe)) - (##cdr _e126140126462_))) - (_hd126139126465_ + (##cdr _e126144126466_))) + (_hd126143126469_ (let () (declare (not safe)) - (##car _e126140126462_)))) + (##car _e126144126466_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126138126467_)) + (gx#stx-null? _tl126142126471_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl126132126451_)) - (let ((__tmp130711 + _tl126136126455_)) + (let ((__tmp130715 (let () (declare (not safe)) - (cons _hd126139126465_ - _-absent-value126085126349_))) - (__tmp130710 + (cons _hd126143126469_ + _-absent-value126089126353_))) + (__tmp130714 (let () (declare (not safe)) - (cons _hd126130126441_ - _key126086126351_))) - (__tmp130709 + (cons _hd126134126445_ + _key126090126355_))) + (__tmp130713 (let () (declare (not safe)) - (cons _hd126121126417_ - _-xkwvar126087126353_))) - (__tmp130708 + (cons _hd126125126421_ + _-xkwvar126091126357_))) + (__tmp130712 (let () (declare (not safe)) - (cons _hd126112126393_ - _-hash-ref126088126355_)))) + (cons _hd126116126397_ + _-hash-ref126092126359_)))) (declare (not safe)) - (_loop126081126344_ - _lp-tl126084126363_ - __tmp130711 - __tmp130710 - __tmp130709 - __tmp130708)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (let ((_-hash-ref126092126476_ - (reverse _-hash-ref126088126355_)) - (_-xkwvar126091126474_ - (reverse _-xkwvar126087126353_)) - (_key126090126472_ - (reverse _key126086126351_)) - (_-absent-value126089126470_ - (reverse _-absent-value126085126349_))) + (_loop126085126348_ + _lp-tl126088126367_ + __tmp130715 + __tmp130714 + __tmp130713 + __tmp130712)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (let ((_-hash-ref126096126480_ + (reverse _-hash-ref126092126359_)) + (_-xkwvar126095126478_ + (reverse _-xkwvar126091126357_)) + (_key126094126476_ + (reverse _key126090126355_)) + (_-absent-value126093126474_ + (reverse _-absent-value126089126353_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126045126232_)) - (let ((_L126479_ _hd126100126339_) - (_L126480_ - _-absent-value126089126470_) - (_L126481_ _key126090126472_) - (_L126482_ - _-xkwvar126091126474_) - (_L126483_ - _-hash-ref126092126476_) - (_L126484_ _hd126076126310_) - (_L126485_ _hd126067126286_) - (_L126486_ _hd126058126262_) - (_L126487_ _tl126042126224_) - (_L126488_ _hd126043126222_)) + (gx#stx-null? _tl126049126236_)) + (let ((_L126483_ _hd126104126343_) + (_L126484_ + _-absent-value126093126474_) + (_L126485_ _key126094126476_) + (_L126486_ + _-xkwvar126095126478_) + (_L126487_ + _-hash-ref126096126480_) + (_L126488_ _hd126080126314_) + (_L126489_ _hd126071126290_) + (_L126490_ _hd126062126266_) + (_L126491_ _tl126046126228_) + (_L126492_ _hd126047126226_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L126488_)) + _L126492_)) (let () (declare (not safe)) (gx#identifier? - _L126487_)) + _L126491_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L126486_ + _L126490_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L126488_ - _L126484_)) - (let ((__tmp130706 - (let ((__tmp130707 + _L126492_ + _L126488_)) + (let ((__tmp130710 + (let ((__tmp130711 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g126541126544_ _g126542126546_) + (lambda (_g126545126548_ _g126546126550_) (let () (declare (not safe)) - (cons _g126541126544_ _g126542126546_))))) + (cons _g126545126548_ _g126546126550_))))) (declare (not safe)) - (foldr1 __tmp130707 '() _L126481_)))) + (foldr1 __tmp130711 '() _L126485_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp130706)) - (let ((__tmp130705 - (lambda (_g126548126550_) + (andmap1 gx#stx-keyword? __tmp130710)) + (let ((__tmp130709 + (lambda (_g126552126554_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g126548126550_ + _g126552126554_ 'hash-ref)))) - (__tmp130703 - (let ((__tmp130704 - (lambda (_g126552126555_ _g126553126557_) + (__tmp130707 + (let ((__tmp130708 + (lambda (_g126556126559_ _g126557126561_) (let () (declare (not safe)) - (cons _g126552126555_ _g126553126557_))))) + (cons _g126556126559_ _g126557126561_))))) (declare (not safe)) - (foldr1 __tmp130704 '() _L126483_)))) + (foldr1 __tmp130708 '() _L126487_)))) (declare (not safe)) - (andmap1 __tmp130705 __tmp130703)) - (let ((__tmp130702 - (lambda (_g126559126561_) + (andmap1 __tmp130709 __tmp130707)) + (let ((__tmp130706 + (lambda (_g126563126565_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g126559126561_ + _g126563126565_ 'absent-value)))) - (__tmp130700 - (let ((__tmp130701 - (lambda (_g126563126566_ _g126564126568_) + (__tmp130704 + (let ((__tmp130705 + (lambda (_g126567126570_ _g126568126572_) (let () (declare (not safe)) - (cons _g126563126566_ _g126564126568_))))) + (cons _g126567126570_ _g126568126572_))))) (declare (not safe)) - (foldr1 __tmp130701 '() _L126480_)))) + (foldr1 __tmp130705 '() _L126484_)))) (declare (not safe)) - (andmap1 __tmp130702 __tmp130700)) - (let ((__tmp130699 - (lambda (_g126570126572_) + (andmap1 __tmp130706 __tmp130704)) + (let ((__tmp130703 + (lambda (_g126574126576_) (let () (declare (not safe)) - (gx#free-identifier=? _g126570126572_ _L126488_)))) - (__tmp130697 - (let ((__tmp130698 - (lambda (_g126574126577_ _g126575126579_) + (gx#free-identifier=? _g126574126576_ _L126492_)))) + (__tmp130701 + (let ((__tmp130702 + (lambda (_g126578126581_ _g126579126583_) (let () (declare (not safe)) - (cons _g126574126577_ _g126575126579_))))) + (cons _g126578126581_ _g126579126583_))))) (declare (not safe)) - (foldr1 __tmp130698 '() _L126482_)))) + (foldr1 __tmp130702 '() _L126486_)))) (declare (not safe)) - (andmap1 __tmp130699 __tmp130697))) + (andmap1 __tmp130703 __tmp130701))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128963128964_ - _L126479_ - _L126480_ - _L126481_ - _L126482_ + (___kont128967128968_ _L126483_ _L126484_ _L126485_ _L126486_ _L126487_ - _L126488_) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_))))))) + _L126488_ + _L126489_ + _L126490_ + _L126491_ + _L126492_) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_))))))) (let () (declare (not safe)) - (_loop126081126344_ - _target126078126315_ + (_loop126085126348_ + _target126082126319_ '() '() '() '()))))) - (___match129142129143_ - (lambda (_e126038126203_ - _hd126037126206_ - _tl126036126208_ - _e126041126211_ - _hd126040126214_ - _tl126039126216_) + (___match129146129147_ + (lambda (_e126042126207_ + _hd126041126210_ + _tl126040126212_ + _e126045126215_ + _hd126044126218_ + _tl126043126220_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126040126214_)) - (let ((_e126044126219_ + (gx#stx-pair? _hd126044126218_)) + (let ((_e126048126223_ (let () (declare (not safe)) - (gx#stx-e _hd126040126214_)))) - (let ((_tl126042126224_ + (gx#stx-e _hd126044126218_)))) + (let ((_tl126046126228_ (let () (declare (not safe)) - (##cdr _e126044126219_))) - (_hd126043126222_ + (##cdr _e126048126223_))) + (_hd126047126226_ (let () (declare (not safe)) - (##car _e126044126219_)))) + (##car _e126048126223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126039126216_)) - (let ((_e126047126227_ + (gx#stx-pair? _tl126043126220_)) + (let ((_e126051126231_ (let () (declare (not safe)) - (gx#stx-e _tl126039126216_)))) - (let ((_tl126045126232_ + (gx#stx-e _tl126043126220_)))) + (let ((_tl126049126236_ (let () (declare (not safe)) - (##cdr _e126047126227_))) - (_hd126046126230_ + (##cdr _e126051126231_))) + (_hd126050126234_ (let () (declare (not safe)) - (##car _e126047126227_)))) + (##car _e126051126231_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126046126230_)) - (let ((_e126050126235_ + (gx#stx-pair? _hd126050126234_)) + (let ((_e126054126239_ (let () (declare (not safe)) (gx#stx-e - _hd126046126230_)))) - (let ((_tl126048126240_ + _hd126050126234_)))) + (let ((_tl126052126244_ (let () (declare (not safe)) - (##cdr _e126050126235_))) - (_hd126049126238_ + (##cdr _e126054126239_))) + (_hd126053126242_ (let () (declare (not safe)) - (##car _e126050126235_)))) + (##car _e126054126239_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd126049126238_)) + _hd126053126242_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd126049126238_)) + _hd126053126242_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126048126240_)) - (let ((_e126053126243_ + _tl126052126244_)) + (let ((_e126057126247_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl126048126240_)))) - (let ((_tl126051126248_ + (gx#stx-e _tl126052126244_)))) + (let ((_tl126055126252_ (let () (declare (not safe)) - (##cdr _e126053126243_))) - (_hd126052126246_ + (##cdr _e126057126247_))) + (_hd126056126250_ (let () (declare (not safe)) - (##car _e126053126243_)))) + (##car _e126057126247_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126052126246_)) - (let ((_e126056126251_ + (gx#stx-pair? _hd126056126250_)) + (let ((_e126060126255_ (let () (declare (not safe)) - (gx#stx-e _hd126052126246_)))) - (let ((_tl126054126256_ + (gx#stx-e _hd126056126250_)))) + (let ((_tl126058126260_ (let () (declare (not safe)) - (##cdr _e126056126251_))) - (_hd126055126254_ + (##cdr _e126060126255_))) + (_hd126059126258_ (let () (declare (not safe)) - (##car _e126056126251_)))) + (##car _e126060126255_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126055126254_)) + (gx#identifier? _hd126059126258_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126055126254_)) + (gx#stx-eq? '%#ref _hd126059126258_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126054126256_)) - (let ((_e126059126259_ + (gx#stx-pair? _tl126058126260_)) + (let ((_e126063126263_ (let () (declare (not safe)) (gx#stx-e - _tl126054126256_)))) - (let ((_tl126057126264_ + _tl126058126260_)))) + (let ((_tl126061126268_ (let () (declare (not safe)) - (##cdr _e126059126259_))) - (_hd126058126262_ + (##cdr _e126063126263_))) + (_hd126062126266_ (let () (declare (not safe)) - (##car _e126059126259_)))) + (##car _e126063126263_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126057126264_)) + _tl126061126268_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126051126248_)) - (let ((_e126062126267_ + _tl126055126252_)) + (let ((_e126066126271_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl126051126248_)))) - (let ((_tl126060126272_ - (let () (declare (not safe)) (##cdr _e126062126267_))) - (_hd126061126270_ - (let () (declare (not safe)) (##car _e126062126267_)))) + (gx#stx-e _tl126055126252_)))) + (let ((_tl126064126276_ + (let () (declare (not safe)) (##cdr _e126066126271_))) + (_hd126065126274_ + (let () (declare (not safe)) (##car _e126066126271_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126061126270_)) - (let ((_e126065126275_ + (gx#stx-pair? _hd126065126274_)) + (let ((_e126069126279_ (let () (declare (not safe)) - (gx#stx-e _hd126061126270_)))) - (let ((_tl126063126280_ + (gx#stx-e _hd126065126274_)))) + (let ((_tl126067126284_ (let () (declare (not safe)) - (##cdr _e126065126275_))) - (_hd126064126278_ + (##cdr _e126069126279_))) + (_hd126068126282_ (let () (declare (not safe)) - (##car _e126065126275_)))) + (##car _e126069126279_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126064126278_)) + (gx#identifier? _hd126068126282_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126064126278_)) + (gx#stx-eq? '%#ref _hd126068126282_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126063126280_)) - (let ((_e126068126283_ + (gx#stx-pair? _tl126067126284_)) + (let ((_e126072126287_ (let () (declare (not safe)) - (gx#stx-e _tl126063126280_)))) - (let ((_tl126066126288_ + (gx#stx-e _tl126067126284_)))) + (let ((_tl126070126292_ (let () (declare (not safe)) - (##cdr _e126068126283_))) - (_hd126067126286_ + (##cdr _e126072126287_))) + (_hd126071126290_ (let () (declare (not safe)) - (##car _e126068126283_)))) + (##car _e126072126287_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126066126288_)) + _tl126070126292_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126060126272_)) - (let ((_e126071126291_ + _tl126064126276_)) + (let ((_e126075126295_ (let () (declare (not safe)) (gx#stx-e - _tl126060126272_)))) - (let ((_tl126069126296_ + _tl126064126276_)))) + (let ((_tl126073126300_ (let () (declare (not safe)) - (##cdr _e126071126291_))) - (_hd126070126294_ + (##cdr _e126075126295_))) + (_hd126074126298_ (let () (declare (not safe)) - (##car _e126071126291_)))) + (##car _e126075126295_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126070126294_)) - (let ((_e126074126299_ + _hd126074126298_)) + (let ((_e126078126303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd126070126294_)))) - (let ((_tl126072126304_ + (gx#stx-e _hd126074126298_)))) + (let ((_tl126076126308_ (let () (declare (not safe)) - (##cdr _e126074126299_))) - (_hd126073126302_ + (##cdr _e126078126303_))) + (_hd126077126306_ (let () (declare (not safe)) - (##car _e126074126299_)))) + (##car _e126078126303_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126073126302_)) + (gx#identifier? _hd126077126306_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126073126302_)) + (gx#stx-eq? '%#ref _hd126077126306_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126072126304_)) - (let ((_e126077126307_ + (gx#stx-pair? _tl126076126308_)) + (let ((_e126081126311_ (let () (declare (not safe)) - (gx#stx-e _tl126072126304_)))) - (let ((_tl126075126312_ + (gx#stx-e _tl126076126308_)))) + (let ((_tl126079126316_ (let () (declare (not safe)) - (##cdr _e126077126307_))) - (_hd126076126310_ + (##cdr _e126081126311_))) + (_hd126080126314_ (let () (declare (not safe)) - (##car _e126077126307_)))) + (##car _e126081126311_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126075126312_)) + (gx#stx-null? _tl126079126316_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl126069126296_)) + _tl126073126300_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl126069126296_)) + _tl126073126300_)) '1) - (let ((___splice128965128966_ + (let ((___splice128969128970_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl126069126296_ + _tl126073126300_ '1)))) - (let ((_tl126080126317_ + (let ((_tl126084126321_ (let () (declare (not safe)) (##vector-ref - ___splice128965128966_ + ___splice128969128970_ '1))) - (_target126078126315_ + (_target126082126319_ (let () (declare (not safe)) (##vector-ref - ___splice128965128966_ + ___splice128969128970_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126080126317_)) - (let ((_e126095126320_ + _tl126084126321_)) + (let ((_e126099126324_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl126080126317_)))) - (let ((_tl126093126325_ + (gx#stx-e _tl126084126321_)))) + (let ((_tl126097126329_ (let () (declare (not safe)) - (##cdr _e126095126320_))) - (_hd126094126323_ + (##cdr _e126099126324_))) + (_hd126098126327_ (let () (declare (not safe)) - (##car _e126095126320_)))) + (##car _e126099126324_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126094126323_)) - (let ((_e126098126328_ + (gx#stx-pair? _hd126098126327_)) + (let ((_e126102126332_ (let () (declare (not safe)) - (gx#stx-e _hd126094126323_)))) - (let ((_tl126096126333_ + (gx#stx-e _hd126098126327_)))) + (let ((_tl126100126337_ (let () (declare (not safe)) - (##cdr _e126098126328_))) - (_hd126097126331_ + (##cdr _e126102126332_))) + (_hd126101126335_ (let () (declare (not safe)) - (##car _e126098126328_)))) + (##car _e126102126332_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126097126331_)) + (gx#identifier? _hd126101126335_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126097126331_)) + (gx#stx-eq? '%#ref _hd126101126335_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126096126333_)) - (let ((_e126101126336_ + (gx#stx-pair? _tl126100126337_)) + (let ((_e126105126340_ (let () (declare (not safe)) (gx#stx-e - _tl126096126333_)))) - (let ((_tl126099126341_ + _tl126100126337_)))) + (let ((_tl126103126345_ (let () (declare (not safe)) - (##cdr _e126101126336_))) - (_hd126100126339_ + (##cdr _e126105126340_))) + (_hd126104126343_ (let () (declare (not safe)) - (##car _e126101126336_)))) + (##car _e126105126340_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126099126341_)) + _tl126103126345_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl126093126325_)) - (___match129270129271_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_ - _e126041126211_ - _hd126040126214_ - _tl126039126216_ - _e126044126219_ - _hd126043126222_ - _tl126042126224_ - _e126047126227_ - _hd126046126230_ - _tl126045126232_ - _e126050126235_ - _hd126049126238_ - _tl126048126240_ - _e126053126243_ - _hd126052126246_ - _tl126051126248_ - _e126056126251_ - _hd126055126254_ - _tl126054126256_ - _e126059126259_ - _hd126058126262_ - _tl126057126264_ - _e126062126267_ - _hd126061126270_ - _tl126060126272_ - _e126065126275_ - _hd126064126278_ - _tl126063126280_ - _e126068126283_ - _hd126067126286_ - _tl126066126288_ - _e126071126291_ - _hd126070126294_ - _tl126069126296_ - _e126074126299_ - _hd126073126302_ - _tl126072126304_ - _e126077126307_ - _hd126076126310_ - _tl126075126312_ - ___splice128965128966_ - _target126078126315_ - _tl126080126317_ - _e126095126320_ - _hd126094126323_ - _tl126093126325_ - _e126098126328_ - _hd126097126331_ - _tl126096126333_ - _e126101126336_ - _hd126100126339_ - _tl126099126341_) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129276129277_ - _e126038126203_ - _hd126037126206_ - _tl126036126208_)))) - (___match129130129131_ - (lambda (_e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_ - _e125977126610_ - _hd125976126613_ - _tl125975126615_ - _e125980126618_ - _hd125979126621_ - _tl125978126623_ - _e125983126626_ - _hd125982126629_ - _tl125981126631_ - _e125986126634_ - _hd125985126637_ - _tl125984126639_ - _e125989126642_ - _hd125988126645_ - _tl125987126647_ - _e125992126650_ - _hd125991126653_ - _tl125990126655_ - _e125995126658_ - _hd125994126661_ - _tl125993126663_ - _e125998126666_ - _hd125997126669_ - _tl125996126671_ - _e126001126674_ - _hd126000126677_ - _tl125999126679_ - _e126004126682_ - _hd126003126685_ - _tl126002126687_ - _e126007126690_ - _hd126006126693_ - _tl126005126695_ - _e126010126698_ - _hd126009126701_ - _tl126008126703_ - _e126013126706_ - _hd126012126709_ - _tl126011126711_ - _e126016126714_ - _hd126015126717_ - _tl126014126719_ - _e126019126722_ - _hd126018126725_ - _tl126017126727_ - _e126022126730_ - _hd126021126733_ - _tl126020126735_ - _e126025126738_ - _hd126024126741_ - _tl126023126743_) - (let ((_L126746_ _hd126024126741_) - (_L126747_ _hd126015126717_) - (_L126748_ _hd126006126693_) - (_L126749_ _hd125997126669_) - (_L126750_ _hd125988126645_) - (_L126751_ _hd125973126605_)) + _tl126097126329_)) + (___match129274129275_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_ + _e126045126215_ + _hd126044126218_ + _tl126043126220_ + _e126048126223_ + _hd126047126226_ + _tl126046126228_ + _e126051126231_ + _hd126050126234_ + _tl126049126236_ + _e126054126239_ + _hd126053126242_ + _tl126052126244_ + _e126057126247_ + _hd126056126250_ + _tl126055126252_ + _e126060126255_ + _hd126059126258_ + _tl126058126260_ + _e126063126263_ + _hd126062126266_ + _tl126061126268_ + _e126066126271_ + _hd126065126274_ + _tl126064126276_ + _e126069126279_ + _hd126068126282_ + _tl126067126284_ + _e126072126287_ + _hd126071126290_ + _tl126070126292_ + _e126075126295_ + _hd126074126298_ + _tl126073126300_ + _e126078126303_ + _hd126077126306_ + _tl126076126308_ + _e126081126311_ + _hd126080126314_ + _tl126079126316_ + ___splice128969128970_ + _target126082126319_ + _tl126084126321_ + _e126099126324_ + _hd126098126327_ + _tl126097126329_ + _e126102126332_ + _hd126101126335_ + _tl126100126337_ + _e126105126340_ + _hd126104126343_ + _tl126103126345_) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129280129281_ + _e126042126207_ + _hd126041126210_ + _tl126040126212_)))) + (___match129134129135_ + (lambda (_e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_ + _e125981126614_ + _hd125980126617_ + _tl125979126619_ + _e125984126622_ + _hd125983126625_ + _tl125982126627_ + _e125987126630_ + _hd125986126633_ + _tl125985126635_ + _e125990126638_ + _hd125989126641_ + _tl125988126643_ + _e125993126646_ + _hd125992126649_ + _tl125991126651_ + _e125996126654_ + _hd125995126657_ + _tl125994126659_ + _e125999126662_ + _hd125998126665_ + _tl125997126667_ + _e126002126670_ + _hd126001126673_ + _tl126000126675_ + _e126005126678_ + _hd126004126681_ + _tl126003126683_ + _e126008126686_ + _hd126007126689_ + _tl126006126691_ + _e126011126694_ + _hd126010126697_ + _tl126009126699_ + _e126014126702_ + _hd126013126705_ + _tl126012126707_ + _e126017126710_ + _hd126016126713_ + _tl126015126715_ + _e126020126718_ + _hd126019126721_ + _tl126018126723_ + _e126023126726_ + _hd126022126729_ + _tl126021126731_ + _e126026126734_ + _hd126025126737_ + _tl126024126739_ + _e126029126742_ + _hd126028126745_ + _tl126027126747_) + (let ((_L126750_ _hd126028126745_) + (_L126751_ _hd126019126721_) + (_L126752_ _hd126010126697_) + (_L126753_ _hd126001126673_) + (_L126754_ _hd125992126649_) + (_L126755_ _hd125977126609_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L126751_)) + (gx#identifier? _L126755_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L126750_ 'apply)) + (gxc#runtime-identifier=? _L126754_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L126749_ + _L126753_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L126751_ _L126746_))) - (___kont128961128962_ - _L126746_ - _L126747_ - _L126748_ - _L126749_ + (gx#free-identifier=? _L126755_ _L126750_))) + (___kont128965128966_ _L126750_ - _L126751_) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_))))) - (___match128984128985_ - (lambda (_e125971126594_ _hd125970126597_ _tl125969126599_) + _L126751_ + _L126752_ + _L126753_ + _L126754_ + _L126755_) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_))))) + (___match128988128989_ + (lambda (_e125975126598_ _hd125974126601_ _tl125973126603_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125969126599_)) - (let ((_e125974126602_ + (gx#stx-pair? _tl125973126603_)) + (let ((_e125978126606_ (let () (declare (not safe)) - (gx#stx-e _tl125969126599_)))) - (let ((_tl125972126607_ + (gx#stx-e _tl125973126603_)))) + (let ((_tl125976126611_ (let () (declare (not safe)) - (##cdr _e125974126602_))) - (_hd125973126605_ + (##cdr _e125978126606_))) + (_hd125977126609_ (let () (declare (not safe)) - (##car _e125974126602_)))) + (##car _e125978126606_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125972126607_)) - (let ((_e125977126610_ + (gx#stx-pair? _tl125976126611_)) + (let ((_e125981126614_ (let () (declare (not safe)) - (gx#stx-e _tl125972126607_)))) - (let ((_tl125975126615_ + (gx#stx-e _tl125976126611_)))) + (let ((_tl125979126619_ (let () (declare (not safe)) - (##cdr _e125977126610_))) - (_hd125976126613_ + (##cdr _e125981126614_))) + (_hd125980126617_ (let () (declare (not safe)) - (##car _e125977126610_)))) + (##car _e125981126614_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125976126613_)) - (let ((_e125980126618_ + (gx#stx-pair? _hd125980126617_)) + (let ((_e125984126622_ (let () (declare (not safe)) (gx#stx-e - _hd125976126613_)))) - (let ((_tl125978126623_ + _hd125980126617_)))) + (let ((_tl125982126627_ (let () (declare (not safe)) - (##cdr _e125980126618_))) - (_hd125979126621_ + (##cdr _e125984126622_))) + (_hd125983126625_ (let () (declare (not safe)) - (##car _e125980126618_)))) + (##car _e125984126622_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd125979126621_)) + _hd125983126625_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd125979126621_)) + _hd125983126625_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125978126623_)) - (let ((_e125983126626_ + _tl125982126627_)) + (let ((_e125987126630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl125978126623_)))) - (let ((_tl125981126631_ + (gx#stx-e _tl125982126627_)))) + (let ((_tl125985126635_ (let () (declare (not safe)) - (##cdr _e125983126626_))) - (_hd125982126629_ + (##cdr _e125987126630_))) + (_hd125986126633_ (let () (declare (not safe)) - (##car _e125983126626_)))) + (##car _e125987126630_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125982126629_)) - (let ((_e125986126634_ + (gx#stx-pair? _hd125986126633_)) + (let ((_e125990126638_ (let () (declare (not safe)) - (gx#stx-e _hd125982126629_)))) - (let ((_tl125984126639_ + (gx#stx-e _hd125986126633_)))) + (let ((_tl125988126643_ (let () (declare (not safe)) - (##cdr _e125986126634_))) - (_hd125985126637_ + (##cdr _e125990126638_))) + (_hd125989126641_ (let () (declare (not safe)) - (##car _e125986126634_)))) + (##car _e125990126638_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125985126637_)) + (gx#identifier? _hd125989126641_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125985126637_)) + (gx#stx-eq? '%#ref _hd125989126641_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125984126639_)) - (let ((_e125989126642_ + (gx#stx-pair? _tl125988126643_)) + (let ((_e125993126646_ (let () (declare (not safe)) (gx#stx-e - _tl125984126639_)))) - (let ((_tl125987126647_ + _tl125988126643_)))) + (let ((_tl125991126651_ (let () (declare (not safe)) - (##cdr _e125989126642_))) - (_hd125988126645_ + (##cdr _e125993126646_))) + (_hd125992126649_ (let () (declare (not safe)) - (##car _e125989126642_)))) + (##car _e125993126646_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125987126647_)) + _tl125991126651_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125981126631_)) - (let ((_e125992126650_ + _tl125985126635_)) + (let ((_e125996126654_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125981126631_)))) - (let ((_tl125990126655_ - (let () (declare (not safe)) (##cdr _e125992126650_))) - (_hd125991126653_ - (let () (declare (not safe)) (##car _e125992126650_)))) + (gx#stx-e _tl125985126635_)))) + (let ((_tl125994126659_ + (let () (declare (not safe)) (##cdr _e125996126654_))) + (_hd125995126657_ + (let () (declare (not safe)) (##car _e125996126654_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125991126653_)) - (let ((_e125995126658_ + (gx#stx-pair? _hd125995126657_)) + (let ((_e125999126662_ (let () (declare (not safe)) - (gx#stx-e _hd125991126653_)))) - (let ((_tl125993126663_ + (gx#stx-e _hd125995126657_)))) + (let ((_tl125997126667_ (let () (declare (not safe)) - (##cdr _e125995126658_))) - (_hd125994126661_ + (##cdr _e125999126662_))) + (_hd125998126665_ (let () (declare (not safe)) - (##car _e125995126658_)))) + (##car _e125999126662_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125994126661_)) + (gx#identifier? _hd125998126665_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125994126661_)) + (gx#stx-eq? '%#ref _hd125998126665_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125993126663_)) - (let ((_e125998126666_ + (gx#stx-pair? _tl125997126667_)) + (let ((_e126002126670_ (let () (declare (not safe)) - (gx#stx-e _tl125993126663_)))) - (let ((_tl125996126671_ + (gx#stx-e _tl125997126667_)))) + (let ((_tl126000126675_ (let () (declare (not safe)) - (##cdr _e125998126666_))) - (_hd125997126669_ + (##cdr _e126002126670_))) + (_hd126001126673_ (let () (declare (not safe)) - (##car _e125998126666_)))) + (##car _e126002126670_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125996126671_)) + _tl126000126675_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125990126655_)) - (let ((_e126001126674_ + _tl125994126659_)) + (let ((_e126005126678_ (let () (declare (not safe)) (gx#stx-e - _tl125990126655_)))) - (let ((_tl125999126679_ + _tl125994126659_)))) + (let ((_tl126003126683_ (let () (declare (not safe)) - (##cdr _e126001126674_))) - (_hd126000126677_ + (##cdr _e126005126678_))) + (_hd126004126681_ (let () (declare (not safe)) - (##car _e126001126674_)))) + (##car _e126005126678_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126000126677_)) - (let ((_e126004126682_ + _hd126004126681_)) + (let ((_e126008126686_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd126000126677_)))) - (let ((_tl126002126687_ + (gx#stx-e _hd126004126681_)))) + (let ((_tl126006126691_ (let () (declare (not safe)) - (##cdr _e126004126682_))) - (_hd126003126685_ + (##cdr _e126008126686_))) + (_hd126007126689_ (let () (declare (not safe)) - (##car _e126004126682_)))) + (##car _e126008126686_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126003126685_)) + (gx#identifier? _hd126007126689_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd126003126685_)) + (gx#stx-eq? '%#quote _hd126007126689_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126002126687_)) - (let ((_e126007126690_ + (gx#stx-pair? _tl126006126691_)) + (let ((_e126011126694_ (let () (declare (not safe)) - (gx#stx-e _tl126002126687_)))) - (let ((_tl126005126695_ + (gx#stx-e _tl126006126691_)))) + (let ((_tl126009126699_ (let () (declare (not safe)) - (##cdr _e126007126690_))) - (_hd126006126693_ + (##cdr _e126011126694_))) + (_hd126010126697_ (let () (declare (not safe)) - (##car _e126007126690_)))) + (##car _e126011126694_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126005126695_)) + (gx#stx-null? _tl126009126699_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125999126679_)) - (let ((_e126010126698_ + _tl126003126683_)) + (let ((_e126014126702_ (let () (declare (not safe)) (gx#stx-e - _tl125999126679_)))) - (let ((_tl126008126703_ + _tl126003126683_)))) + (let ((_tl126012126707_ (let () (declare (not safe)) - (##cdr _e126010126698_))) - (_hd126009126701_ + (##cdr _e126014126702_))) + (_hd126013126705_ (let () (declare (not safe)) - (##car _e126010126698_)))) + (##car _e126014126702_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126009126701_)) - (let ((_e126013126706_ + _hd126013126705_)) + (let ((_e126017126710_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd126009126701_)))) - (let ((_tl126011126711_ - (let () (declare (not safe)) (##cdr _e126013126706_))) - (_hd126012126709_ - (let () (declare (not safe)) (##car _e126013126706_)))) + (gx#stx-e _hd126013126705_)))) + (let ((_tl126015126715_ + (let () (declare (not safe)) (##cdr _e126017126710_))) + (_hd126016126713_ + (let () (declare (not safe)) (##car _e126017126710_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126012126709_)) + (gx#identifier? _hd126016126713_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126012126709_)) + (gx#stx-eq? '%#ref _hd126016126713_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126011126711_)) - (let ((_e126016126714_ + (gx#stx-pair? _tl126015126715_)) + (let ((_e126020126718_ (let () (declare (not safe)) - (gx#stx-e _tl126011126711_)))) - (let ((_tl126014126719_ + (gx#stx-e _tl126015126715_)))) + (let ((_tl126018126723_ (let () (declare (not safe)) - (##cdr _e126016126714_))) - (_hd126015126717_ + (##cdr _e126020126718_))) + (_hd126019126721_ (let () (declare (not safe)) - (##car _e126016126714_)))) + (##car _e126020126718_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126014126719_)) + (gx#stx-null? _tl126018126723_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126008126703_)) - (let ((_e126019126722_ + (gx#stx-pair? _tl126012126707_)) + (let ((_e126023126726_ (let () (declare (not safe)) (gx#stx-e - _tl126008126703_)))) - (let ((_tl126017126727_ + _tl126012126707_)))) + (let ((_tl126021126731_ (let () (declare (not safe)) - (##cdr _e126019126722_))) - (_hd126018126725_ + (##cdr _e126023126726_))) + (_hd126022126729_ (let () (declare (not safe)) - (##car _e126019126722_)))) + (##car _e126023126726_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126018126725_)) - (let ((_e126022126730_ + _hd126022126729_)) + (let ((_e126026126734_ (let () (declare (not safe)) (gx#stx-e - _hd126018126725_)))) - (let ((_tl126020126735_ + _hd126022126729_)))) + (let ((_tl126024126739_ (let () (declare (not safe)) - (##cdr _e126022126730_))) - (_hd126021126733_ + (##cdr _e126026126734_))) + (_hd126025126737_ (let () (declare (not safe)) - (##car _e126022126730_)))) + (##car _e126026126734_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd126021126733_)) + _hd126025126737_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd126021126733_)) + (gx#stx-eq? '%#ref _hd126025126737_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126020126735_)) - (let ((_e126025126738_ + (gx#stx-pair? _tl126024126739_)) + (let ((_e126029126742_ (let () (declare (not safe)) - (gx#stx-e _tl126020126735_)))) - (let ((_tl126023126743_ + (gx#stx-e _tl126024126739_)))) + (let ((_tl126027126747_ (let () (declare (not safe)) - (##cdr _e126025126738_))) - (_hd126024126741_ + (##cdr _e126029126742_))) + (_hd126028126745_ (let () (declare (not safe)) - (##car _e126025126738_)))) + (##car _e126029126742_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126023126743_)) + (gx#stx-null? _tl126027126747_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl126017126727_)) + (gx#stx-null? _tl126021126731_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl125975126615_)) - (___match129130129131_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_ - _e125977126610_ - _hd125976126613_ - _tl125975126615_ - _e125980126618_ - _hd125979126621_ - _tl125978126623_ - _e125983126626_ - _hd125982126629_ - _tl125981126631_ - _e125986126634_ - _hd125985126637_ - _tl125984126639_ - _e125989126642_ - _hd125988126645_ - _tl125987126647_ - _e125992126650_ - _hd125991126653_ - _tl125990126655_ - _e125995126658_ - _hd125994126661_ - _tl125993126663_ - _e125998126666_ - _hd125997126669_ - _tl125996126671_ - _e126001126674_ - _hd126000126677_ - _tl125999126679_ - _e126004126682_ - _hd126003126685_ - _tl126002126687_ - _e126007126690_ - _hd126006126693_ - _tl126005126695_ - _e126010126698_ - _hd126009126701_ - _tl126008126703_ - _e126013126706_ - _hd126012126709_ - _tl126011126711_ - _e126016126714_ - _hd126015126717_ - _tl126014126719_ - _e126019126722_ - _hd126018126725_ - _tl126017126727_ - _e126022126730_ - _hd126021126733_ - _tl126020126735_ - _e126025126738_ - _hd126024126741_ - _tl126023126743_) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129142129143_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_ - _e125974126602_ - _hd125973126605_ - _tl125972126607_)))) - (___match129276129277_ - _e125971126594_ - _hd125970126597_ - _tl125969126599_))))) + (gx#stx-null? _tl125979126619_)) + (___match129134129135_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_ + _e125981126614_ + _hd125980126617_ + _tl125979126619_ + _e125984126622_ + _hd125983126625_ + _tl125982126627_ + _e125987126630_ + _hd125986126633_ + _tl125985126635_ + _e125990126638_ + _hd125989126641_ + _tl125988126643_ + _e125993126646_ + _hd125992126649_ + _tl125991126651_ + _e125996126654_ + _hd125995126657_ + _tl125994126659_ + _e125999126662_ + _hd125998126665_ + _tl125997126667_ + _e126002126670_ + _hd126001126673_ + _tl126000126675_ + _e126005126678_ + _hd126004126681_ + _tl126003126683_ + _e126008126686_ + _hd126007126689_ + _tl126006126691_ + _e126011126694_ + _hd126010126697_ + _tl126009126699_ + _e126014126702_ + _hd126013126705_ + _tl126012126707_ + _e126017126710_ + _hd126016126713_ + _tl126015126715_ + _e126020126718_ + _hd126019126721_ + _tl126018126723_ + _e126023126726_ + _hd126022126729_ + _tl126021126731_ + _e126026126734_ + _hd126025126737_ + _tl126024126739_ + _e126029126742_ + _hd126028126745_ + _tl126027126747_) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129146129147_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_ + _e125978126606_ + _hd125977126609_ + _tl125976126611_)))) + (___match129280129281_ + _e125975126598_ + _hd125974126601_ + _tl125973126603_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128957128958_)) - (let ((_e125962126811_ + (gx#stx-pair? ___stx128961128962_)) + (let ((_e125966126815_ (let () (declare (not safe)) - (gx#stx-e ___stx128957128958_)))) - (let ((_tl125960126816_ + (gx#stx-e ___stx128961128962_)))) + (let ((_tl125964126820_ (let () (declare (not safe)) - (##cdr _e125962126811_))) - (_hd125961126814_ + (##cdr _e125966126815_))) + (_hd125965126818_ (let () (declare (not safe)) - (##car _e125962126811_)))) + (##car _e125966126815_)))) (if (gxc#current-compile-type-closure) - (let ((_L126819_ _tl125960126816_)) - (___kont128959128960_ _L126819_)) - (___match128984128985_ - _e125962126811_ - _hd125961126814_ - _tl125960126816_)))) - (let () (declare (not safe)) (_g125957126153_)))))))) + (let ((_L126823_ _tl125964126820_)) + (___kont128963128964_ _L126823_)) + (___match128988128989_ + _e125966126815_ + _hd125965126818_ + _tl125964126820_)))) + (let () (declare (not safe)) (_g125961126157_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_self125904_ _stx125905_) - (letrec ((_clause-e125907_ - (lambda (_form125948_) - (let ((__obj130641 + (lambda (_self125908_ _stx125909_) + (letrec ((_clause-e125911_ + (lambda (_form125952_) + (let ((__obj130645 (let () (declare (not safe)) (##structure @@ -5921,4954 +5921,4954 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj130641 + __obj130645 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form125948_)) - (if (let ((__tmp130712 + (gxc#lambda-form-arity _form125952_)) + (if (let ((__tmp130716 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp130712)) + (not __tmp130716)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form125948_)) + (gxc#dispatch-lambda-form? _form125952_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form125948_)) + _form125952_)) '#f) '#f)) - __obj130641)))) - (let* ((_g125909125919_ - (lambda (_g125910125916_) + __obj130645)))) + (let* ((_g125913125923_ + (lambda (_g125914125920_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125910125916_)))) - (_g125908125945_ - (lambda (_g125910125922_) + _g125914125920_)))) + (_g125912125949_ + (lambda (_g125914125926_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125910125922_)) - (let ((_e125914125924_ + (gx#stx-pair? _g125914125926_)) + (let ((_e125918125928_ (let () (declare (not safe)) - (gx#stx-e _g125910125922_)))) - (let ((_hd125913125927_ + (gx#stx-e _g125914125926_)))) + (let ((_hd125917125931_ (let () (declare (not safe)) - (##car _e125914125924_))) - (_tl125912125929_ + (##car _e125918125928_))) + (_tl125916125933_ (let () (declare (not safe)) - (##cdr _e125914125924_)))) - ((lambda (_L125932_) - (let ((_clauses125943_ - (map _clause-e125907_ _L125932_))) + (##cdr _e125918125928_)))) + ((lambda (_L125936_) + (let ((_clauses125947_ + (map _clause-e125911_ _L125936_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses125943_))) - _tl125912125929_))) + _clauses125947_))) + _tl125916125933_))) (let () (declare (not safe)) - (_g125909125919_ _g125910125922_)))))) + (_g125913125923_ _g125914125926_)))))) (declare (not safe)) - (_g125908125945_ _stx125905_))))) + (_g125912125949_ _stx125909_))))) (define gxc#basic-expression-type-let-values% - (lambda (_self125835_ _stx125836_) - (let* ((_g125838125855_ - (lambda (_g125839125852_) + (lambda (_self125839_ _stx125840_) + (let* ((_g125842125859_ + (lambda (_g125843125856_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125839125852_)))) - (_g125837125901_ - (lambda (_g125839125858_) + _g125843125856_)))) + (_g125841125905_ + (lambda (_g125843125862_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125839125858_)) - (let ((_e125844125860_ + (gx#stx-pair? _g125843125862_)) + (let ((_e125848125864_ (let () (declare (not safe)) - (gx#stx-e _g125839125858_)))) - (let ((_hd125843125863_ + (gx#stx-e _g125843125862_)))) + (let ((_hd125847125867_ (let () (declare (not safe)) - (##car _e125844125860_))) - (_tl125842125865_ + (##car _e125848125864_))) + (_tl125846125869_ (let () (declare (not safe)) - (##cdr _e125844125860_)))) + (##cdr _e125848125864_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125842125865_)) - (let ((_e125847125868_ + (gx#stx-pair? _tl125846125869_)) + (let ((_e125851125872_ (let () (declare (not safe)) - (gx#stx-e _tl125842125865_)))) - (let ((_hd125846125871_ + (gx#stx-e _tl125846125869_)))) + (let ((_hd125850125875_ (let () (declare (not safe)) - (##car _e125847125868_))) - (_tl125845125873_ + (##car _e125851125872_))) + (_tl125849125877_ (let () (declare (not safe)) - (##cdr _e125847125868_)))) + (##cdr _e125851125872_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125845125873_)) - (let ((_e125850125876_ + (gx#stx-pair? _tl125849125877_)) + (let ((_e125854125880_ (let () (declare (not safe)) - (gx#stx-e _tl125845125873_)))) - (let ((_hd125849125879_ + (gx#stx-e _tl125849125877_)))) + (let ((_hd125853125883_ (let () (declare (not safe)) - (##car _e125850125876_))) - (_tl125848125881_ + (##car _e125854125880_))) + (_tl125852125885_ (let () (declare (not safe)) - (##cdr _e125850125876_)))) + (##cdr _e125854125880_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125848125881_)) - ((lambda (_L125884_ _L125885_) - (let ((__tmp130713 + _tl125852125885_)) + ((lambda (_L125888_ _L125889_) + (let ((__tmp130717 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self125835_ - _L125884_))))) + _self125839_ + _L125888_))))) (declare (not safe)) (call-with-parameters - __tmp130713 + __tmp130717 gxc#current-compile-type-closure '#t))) - _hd125849125879_ - _hd125846125871_) + _hd125853125883_ + _hd125850125875_) (let () (declare (not safe)) - (_g125838125855_ - _g125839125858_))))) + (_g125842125859_ + _g125843125862_))))) (let () (declare (not safe)) - (_g125838125855_ _g125839125858_))))) + (_g125842125859_ _g125843125862_))))) (let () (declare (not safe)) - (_g125838125855_ _g125839125858_))))) + (_g125842125859_ _g125843125862_))))) (let () (declare (not safe)) - (_g125838125855_ _g125839125858_)))))) + (_g125842125859_ _g125843125862_)))))) (declare (not safe)) - (_g125837125901_ _stx125836_)))) + (_g125841125905_ _stx125840_)))) (define gxc#basic-expression-type-builtin (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_self125739_ _stx125740_) - (let* ((___stx129285129286_ _stx125740_) - (_g125743125763_ + (lambda (_self125743_ _stx125744_) + (let* ((___stx129289129290_ _stx125744_) + (_g125747125767_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129285129286_))))) - (let ((___kont129287129288_ - (lambda (_L125807_ _L125808_) - (let ((_type-e125825125827_ - (let ((__tmp130714 + ___stx129289129290_))))) + (let ((___kont129291129292_ + (lambda (_L125811_ _L125812_) + (let ((_type-e125829125831_ + (let ((__tmp130718 (let () (declare (not safe)) - (gxc#identifier-symbol _L125808_)))) + (gxc#identifier-symbol _L125812_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-builtin - __tmp130714)))) - (if _type-e125825125827_ - (let ((_type-e125830_ _type-e125825125827_)) - (_type-e125830_ _stx125740_ _L125807_)) + __tmp130718)))) + (if _type-e125829125831_ + (let ((_type-e125834_ _type-e125829125831_)) + (_type-e125834_ _stx125744_ _L125811_)) '#f)))) - (___kont129289129290_ (lambda () '#f))) + (___kont129293129294_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129285129286_)) - (let ((_e125749125775_ + (gx#stx-pair? ___stx129289129290_)) + (let ((_e125753125779_ (let () (declare (not safe)) - (gx#stx-e ___stx129285129286_)))) - (let ((_tl125747125780_ - (let () (declare (not safe)) (##cdr _e125749125775_))) - (_hd125748125778_ + (gx#stx-e ___stx129289129290_)))) + (let ((_tl125751125784_ + (let () (declare (not safe)) (##cdr _e125753125779_))) + (_hd125752125782_ (let () (declare (not safe)) - (##car _e125749125775_)))) + (##car _e125753125779_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125747125780_)) - (let ((_e125752125783_ + (gx#stx-pair? _tl125751125784_)) + (let ((_e125756125787_ (let () (declare (not safe)) - (gx#stx-e _tl125747125780_)))) - (let ((_tl125750125788_ + (gx#stx-e _tl125751125784_)))) + (let ((_tl125754125792_ (let () (declare (not safe)) - (##cdr _e125752125783_))) - (_hd125751125786_ + (##cdr _e125756125787_))) + (_hd125755125790_ (let () (declare (not safe)) - (##car _e125752125783_)))) + (##car _e125756125787_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125751125786_)) - (let ((_e125755125791_ + (gx#stx-pair? _hd125755125790_)) + (let ((_e125759125795_ (let () (declare (not safe)) - (gx#stx-e _hd125751125786_)))) - (let ((_tl125753125796_ + (gx#stx-e _hd125755125790_)))) + (let ((_tl125757125800_ (let () (declare (not safe)) - (##cdr _e125755125791_))) - (_hd125754125794_ + (##cdr _e125759125795_))) + (_hd125758125798_ (let () (declare (not safe)) - (##car _e125755125791_)))) + (##car _e125759125795_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125754125794_)) + (gx#identifier? _hd125758125798_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125754125794_)) + _hd125758125798_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125753125796_)) - (let ((_e125758125799_ + _tl125757125800_)) + (let ((_e125762125803_ (let () (declare (not safe)) (gx#stx-e - _tl125753125796_)))) - (let ((_tl125756125804_ + _tl125757125800_)))) + (let ((_tl125760125808_ (let () (declare (not safe)) - (##cdr _e125758125799_))) - (_hd125757125802_ + (##cdr _e125762125803_))) + (_hd125761125806_ (let () (declare (not safe)) - (##car _e125758125799_)))) + (##car _e125762125803_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125756125804_)) - (___kont129287129288_ - _tl125750125788_ - _hd125757125802_) - (___kont129289129290_)))) - (___kont129289129290_)) - (___kont129289129290_)) - (___kont129289129290_)))) - (___kont129289129290_)))) - (___kont129289129290_)))) - (___kont129289129290_)))))) + _tl125760125808_)) + (___kont129291129292_ + _tl125754125792_ + _hd125761125806_) + (___kont129293129294_)))) + (___kont129293129294_)) + (___kont129293129294_)) + (___kont129293129294_)))) + (___kont129293129294_)))) + (___kont129293129294_)))) + (___kont129293129294_)))))) (define gxc#basic-expression-type-ref% - (lambda (_self125687_ _stx125688_) - (let* ((_g125690125703_ - (lambda (_g125691125700_) + (lambda (_self125691_ _stx125692_) + (let* ((_g125694125707_ + (lambda (_g125695125704_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125691125700_)))) - (_g125689125736_ - (lambda (_g125691125706_) + _g125695125704_)))) + (_g125693125740_ + (lambda (_g125695125710_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125691125706_)) - (let ((_e125695125708_ + (gx#stx-pair? _g125695125710_)) + (let ((_e125699125712_ (let () (declare (not safe)) - (gx#stx-e _g125691125706_)))) - (let ((_hd125694125711_ + (gx#stx-e _g125695125710_)))) + (let ((_hd125698125715_ (let () (declare (not safe)) - (##car _e125695125708_))) - (_tl125693125713_ + (##car _e125699125712_))) + (_tl125697125717_ (let () (declare (not safe)) - (##cdr _e125695125708_)))) + (##cdr _e125699125712_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125693125713_)) - (let ((_e125698125716_ + (gx#stx-pair? _tl125697125717_)) + (let ((_e125702125720_ (let () (declare (not safe)) - (gx#stx-e _tl125693125713_)))) - (let ((_hd125697125719_ + (gx#stx-e _tl125697125717_)))) + (let ((_hd125701125723_ (let () (declare (not safe)) - (##car _e125698125716_))) - (_tl125696125721_ + (##car _e125702125720_))) + (_tl125700125725_ (let () (declare (not safe)) - (##cdr _e125698125716_)))) + (##cdr _e125702125720_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125696125721_)) - ((lambda (_L125724_) - (let ((__tmp130715 + (gx#stx-null? _tl125700125725_)) + ((lambda (_L125728_) + (let ((__tmp130719 (let () (declare (not safe)) (gxc#identifier-symbol - _L125724_)))) + _L125728_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp130715))) - _hd125697125719_) + __tmp130719))) + _hd125701125723_) (let () (declare (not safe)) - (_g125690125703_ _g125691125706_))))) + (_g125694125707_ _g125695125710_))))) (let () (declare (not safe)) - (_g125690125703_ _g125691125706_))))) + (_g125694125707_ _g125695125710_))))) (let () (declare (not safe)) - (_g125690125703_ _g125691125706_)))))) + (_g125694125707_ _g125695125710_)))))) (declare (not safe)) - (_g125689125736_ _stx125688_)))) + (_g125693125740_ _stx125692_)))) (define gxc#dispatch-lambda-form? - (lambda (_form124921_) - (let* ((___stx129323129324_ _form124921_) - (_g124926125083_ + (lambda (_form124925_) + (let* ((___stx129327129328_ _form124925_) + (_g124930125087_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129323129324_))))) - (let ((___kont129325129326_ - (lambda (_L125607_ _L125608_ _L125609_) '#t)) - (___kont129331129332_ - (lambda (_L125395_ - _L125396_ - _L125397_ - _L125398_ - _L125399_ - _L125400_) + ___stx129327129328_))))) + (let ((___kont129329129330_ + (lambda (_L125611_ _L125612_ _L125613_) '#t)) + (___kont129335129336_ + (lambda (_L125399_ + _L125400_ + _L125401_ + _L125402_ + _L125403_ + _L125404_) '#t)) - (___kont129337129338_ - (lambda (_L125191_ _L125192_ _L125193_ _L125194_) '#t)) - (___kont129339129340_ (lambda () '#f))) - (let* ((___match129464129465_ - (lambda (_e125045125095_ - _hd125044125098_ - _tl125043125100_ - _e125048125103_ - _hd125047125106_ - _tl125046125108_ - _e125051125111_ - _hd125050125114_ - _tl125049125116_ - _e125054125119_ - _hd125053125122_ - _tl125052125124_ - _e125057125127_ - _hd125056125130_ - _tl125055125132_ - _e125060125135_ - _hd125059125138_ - _tl125058125140_ - _e125063125143_ - _hd125062125146_ - _tl125061125148_ - _e125066125151_ - _hd125065125154_ - _tl125064125156_ - _e125069125159_ - _hd125068125162_ - _tl125067125164_ - _e125072125167_ - _hd125071125170_ - _tl125070125172_ - _e125075125175_ - _hd125074125178_ - _tl125073125180_ - _e125078125183_ - _hd125077125186_ - _tl125076125188_) - (let ((_L125191_ _hd125077125186_) - (_L125192_ _hd125068125162_) - (_L125193_ _hd125059125138_) - (_L125194_ _hd125044125098_)) + (___kont129341129342_ + (lambda (_L125195_ _L125196_ _L125197_ _L125198_) '#t)) + (___kont129343129344_ (lambda () '#f))) + (let* ((___match129468129469_ + (lambda (_e125049125099_ + _hd125048125102_ + _tl125047125104_ + _e125052125107_ + _hd125051125110_ + _tl125050125112_ + _e125055125115_ + _hd125054125118_ + _tl125053125120_ + _e125058125123_ + _hd125057125126_ + _tl125056125128_ + _e125061125131_ + _hd125060125134_ + _tl125059125136_ + _e125064125139_ + _hd125063125142_ + _tl125062125144_ + _e125067125147_ + _hd125066125150_ + _tl125065125152_ + _e125070125155_ + _hd125069125158_ + _tl125068125160_ + _e125073125163_ + _hd125072125166_ + _tl125071125168_ + _e125076125171_ + _hd125075125174_ + _tl125074125176_ + _e125079125179_ + _hd125078125182_ + _tl125077125184_ + _e125082125187_ + _hd125081125190_ + _tl125080125192_) + (let ((_L125195_ _hd125081125190_) + (_L125196_ _hd125072125166_) + (_L125197_ _hd125063125142_) + (_L125198_ _hd125048125102_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L125194_)) + (gx#identifier? _L125198_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L125193_ 'apply)) + (gxc#runtime-identifier=? _L125197_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L125194_ _L125191_)) - (let ((__tmp130716 + (gx#free-identifier=? _L125198_ _L125195_)) + (let ((__tmp130720 (let () (declare (not safe)) (gx#free-identifier=? - _L125192_ - _L125194_)))) + _L125196_ + _L125198_)))) (declare (not safe)) - (not __tmp130716))) - (___kont129337129338_ - _L125191_ - _L125192_ - _L125193_ - _L125194_) - (___kont129339129340_))))) - (___match129436129437_ - (lambda (_e125045125095_ - _hd125044125098_ - _tl125043125100_ - _e125048125103_ - _hd125047125106_ - _tl125046125108_ - _e125051125111_ - _hd125050125114_ - _tl125049125116_ - _e125054125119_ - _hd125053125122_ - _tl125052125124_ - _e125057125127_ - _hd125056125130_ - _tl125055125132_ - _e125060125135_ - _hd125059125138_ - _tl125058125140_ - _e125063125143_ - _hd125062125146_ - _tl125061125148_ - _e125066125151_ - _hd125065125154_ - _tl125064125156_ - _e125069125159_ - _hd125068125162_ - _tl125067125164_) + (not __tmp130720))) + (___kont129341129342_ + _L125195_ + _L125196_ + _L125197_ + _L125198_) + (___kont129343129344_))))) + (___match129440129441_ + (lambda (_e125049125099_ + _hd125048125102_ + _tl125047125104_ + _e125052125107_ + _hd125051125110_ + _tl125050125112_ + _e125055125115_ + _hd125054125118_ + _tl125053125120_ + _e125058125123_ + _hd125057125126_ + _tl125056125128_ + _e125061125131_ + _hd125060125134_ + _tl125059125136_ + _e125064125139_ + _hd125063125142_ + _tl125062125144_ + _e125067125147_ + _hd125066125150_ + _tl125065125152_ + _e125070125155_ + _hd125069125158_ + _tl125068125160_ + _e125073125163_ + _hd125072125166_ + _tl125071125168_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125061125148_)) - (let ((_e125072125167_ + (gx#stx-pair? _tl125065125152_)) + (let ((_e125076125171_ (let () (declare (not safe)) - (gx#stx-e _tl125061125148_)))) - (let ((_tl125070125172_ + (gx#stx-e _tl125065125152_)))) + (let ((_tl125074125176_ (let () (declare (not safe)) - (##cdr _e125072125167_))) - (_hd125071125170_ + (##cdr _e125076125171_))) + (_hd125075125174_ (let () (declare (not safe)) - (##car _e125072125167_)))) + (##car _e125076125171_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125071125170_)) - (let ((_e125075125175_ + (gx#stx-pair? _hd125075125174_)) + (let ((_e125079125179_ (let () (declare (not safe)) - (gx#stx-e _hd125071125170_)))) - (let ((_tl125073125180_ + (gx#stx-e _hd125075125174_)))) + (let ((_tl125077125184_ (let () (declare (not safe)) - (##cdr _e125075125175_))) - (_hd125074125178_ + (##cdr _e125079125179_))) + (_hd125078125182_ (let () (declare (not safe)) - (##car _e125075125175_)))) + (##car _e125079125179_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125074125178_)) + (gx#identifier? _hd125078125182_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125074125178_)) + _hd125078125182_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125073125180_)) - (let ((_e125078125183_ + _tl125077125184_)) + (let ((_e125082125187_ (let () (declare (not safe)) (gx#stx-e - _tl125073125180_)))) - (let ((_tl125076125188_ + _tl125077125184_)))) + (let ((_tl125080125192_ (let () (declare (not safe)) - (##cdr _e125078125183_))) - (_hd125077125186_ + (##cdr _e125082125187_))) + (_hd125081125190_ (let () (declare (not safe)) - (##car _e125078125183_)))) + (##car _e125082125187_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125076125188_)) + _tl125080125192_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl125070125172_)) + (gx#stx-null? _tl125074125176_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl125046125108_)) - (___match129464129465_ - _e125045125095_ - _hd125044125098_ - _tl125043125100_ - _e125048125103_ - _hd125047125106_ - _tl125046125108_ - _e125051125111_ - _hd125050125114_ - _tl125049125116_ - _e125054125119_ - _hd125053125122_ - _tl125052125124_ - _e125057125127_ - _hd125056125130_ - _tl125055125132_ - _e125060125135_ - _hd125059125138_ - _tl125058125140_ - _e125063125143_ - _hd125062125146_ - _tl125061125148_ - _e125066125151_ - _hd125065125154_ - _tl125064125156_ - _e125069125159_ - _hd125068125162_ - _tl125067125164_ - _e125072125167_ - _hd125071125170_ - _tl125070125172_ - _e125075125175_ - _hd125074125178_ - _tl125073125180_ - _e125078125183_ - _hd125077125186_ - _tl125076125188_) - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)))) - (___kont129339129340_)))) - (___match129366129367_ - (lambda (_e124981125235_ - _hd124980125238_ - _tl124979125240_ - ___splice129333129334_ - _target124982125243_ - _tl124984125245_) - (letrec ((_loop124985125248_ - (lambda (_hd124983125251_ _arg124989125253_) + (gx#stx-null? _tl125050125112_)) + (___match129468129469_ + _e125049125099_ + _hd125048125102_ + _tl125047125104_ + _e125052125107_ + _hd125051125110_ + _tl125050125112_ + _e125055125115_ + _hd125054125118_ + _tl125053125120_ + _e125058125123_ + _hd125057125126_ + _tl125056125128_ + _e125061125131_ + _hd125060125134_ + _tl125059125136_ + _e125064125139_ + _hd125063125142_ + _tl125062125144_ + _e125067125147_ + _hd125066125150_ + _tl125065125152_ + _e125070125155_ + _hd125069125158_ + _tl125068125160_ + _e125073125163_ + _hd125072125166_ + _tl125071125168_ + _e125076125171_ + _hd125075125174_ + _tl125074125176_ + _e125079125179_ + _hd125078125182_ + _tl125077125184_ + _e125082125187_ + _hd125081125190_ + _tl125080125192_) + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)))) + (___kont129343129344_)))) + (___match129370129371_ + (lambda (_e124985125239_ + _hd124984125242_ + _tl124983125244_ + ___splice129337129338_ + _target124986125247_ + _tl124988125249_) + (letrec ((_loop124989125252_ + (lambda (_hd124987125255_ _arg124993125257_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124983125251_)) - (let ((_e124986125256_ + (gx#stx-pair? _hd124987125255_)) + (let ((_e124990125260_ (let () (declare (not safe)) - (gx#stx-e _hd124983125251_)))) - (let ((_lp-tl124988125261_ + (gx#stx-e _hd124987125255_)))) + (let ((_lp-tl124992125265_ (let () (declare (not safe)) - (##cdr _e124986125256_))) - (_lp-hd124987125259_ + (##cdr _e124990125260_))) + (_lp-hd124991125263_ (let () (declare (not safe)) - (##car _e124986125256_)))) - (let ((__tmp130731 + (##car _e124990125260_)))) + (let ((__tmp130735 (let () (declare (not safe)) - (cons _lp-hd124987125259_ - _arg124989125253_)))) + (cons _lp-hd124991125263_ + _arg124993125257_)))) (declare (not safe)) - (_loop124985125248_ - _lp-tl124988125261_ - __tmp130731)))) - (let ((_arg124990125264_ - (reverse _arg124989125253_))) + (_loop124989125252_ + _lp-tl124992125265_ + __tmp130735)))) + (let ((_arg124994125268_ + (reverse _arg124993125257_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124979125240_)) - (let ((_e124993125267_ + (gx#stx-pair? _tl124983125244_)) + (let ((_e124997125271_ (let () (declare (not safe)) (gx#stx-e - _tl124979125240_)))) - (let ((_tl124991125272_ + _tl124983125244_)))) + (let ((_tl124995125276_ (let () (declare (not safe)) - (##cdr _e124993125267_))) - (_hd124992125270_ + (##cdr _e124997125271_))) + (_hd124996125274_ (let () (declare (not safe)) - (##car _e124993125267_)))) + (##car _e124997125271_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124992125270_)) - (let ((_e124996125275_ + _hd124996125274_)) + (let ((_e125000125279_ (let () (declare (not safe)) (gx#stx-e - _hd124992125270_)))) - (let ((_tl124994125280_ + _hd124996125274_)))) + (let ((_tl124998125284_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124996125275_))) - (_hd124995125278_ - (let () (declare (not safe)) (##car _e124996125275_)))) + (##cdr _e125000125279_))) + (_hd124999125282_ + (let () (declare (not safe)) (##car _e125000125279_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124995125278_)) + (gx#identifier? _hd124999125282_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd124995125278_)) + (gx#stx-eq? '%#call _hd124999125282_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124994125280_)) - (let ((_e124999125283_ + (gx#stx-pair? _tl124998125284_)) + (let ((_e125003125287_ (let () (declare (not safe)) - (gx#stx-e _tl124994125280_)))) - (let ((_tl124997125288_ + (gx#stx-e _tl124998125284_)))) + (let ((_tl125001125292_ (let () (declare (not safe)) - (##cdr _e124999125283_))) - (_hd124998125286_ + (##cdr _e125003125287_))) + (_hd125002125290_ (let () (declare (not safe)) - (##car _e124999125283_)))) + (##car _e125003125287_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124998125286_)) - (let ((_e125002125291_ + (gx#stx-pair? _hd125002125290_)) + (let ((_e125006125295_ (let () (declare (not safe)) - (gx#stx-e _hd124998125286_)))) - (let ((_tl125000125296_ + (gx#stx-e _hd125002125290_)))) + (let ((_tl125004125300_ (let () (declare (not safe)) - (##cdr _e125002125291_))) - (_hd125001125294_ + (##cdr _e125006125295_))) + (_hd125005125298_ (let () (declare (not safe)) - (##car _e125002125291_)))) + (##car _e125006125295_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd125001125294_)) + _hd125005125298_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125001125294_)) + _hd125005125298_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125000125296_)) - (let ((_e125005125299_ + _tl125004125300_)) + (let ((_e125009125303_ (let () (declare (not safe)) (gx#stx-e - _tl125000125296_)))) - (let ((_tl125003125304_ + _tl125004125300_)))) + (let ((_tl125007125308_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e125005125299_))) - (_hd125004125302_ - (let () (declare (not safe)) (##car _e125005125299_)))) + (##cdr _e125009125303_))) + (_hd125008125306_ + (let () (declare (not safe)) (##car _e125009125303_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125003125304_)) + (gx#stx-null? _tl125007125308_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124997125288_)) - (let ((_e125008125307_ + (gx#stx-pair? _tl125001125292_)) + (let ((_e125012125311_ (let () (declare (not safe)) - (gx#stx-e _tl124997125288_)))) - (let ((_tl125006125312_ + (gx#stx-e _tl125001125292_)))) + (let ((_tl125010125316_ (let () (declare (not safe)) - (##cdr _e125008125307_))) - (_hd125007125310_ + (##cdr _e125012125311_))) + (_hd125011125314_ (let () (declare (not safe)) - (##car _e125008125307_)))) + (##car _e125012125311_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125007125310_)) - (let ((_e125011125315_ + (gx#stx-pair? _hd125011125314_)) + (let ((_e125015125319_ (let () (declare (not safe)) - (gx#stx-e _hd125007125310_)))) - (let ((_tl125009125320_ + (gx#stx-e _hd125011125314_)))) + (let ((_tl125013125324_ (let () (declare (not safe)) - (##cdr _e125011125315_))) - (_hd125010125318_ + (##cdr _e125015125319_))) + (_hd125014125322_ (let () (declare (not safe)) - (##car _e125011125315_)))) + (##car _e125015125319_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125010125318_)) + (gx#identifier? _hd125014125322_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125010125318_)) + _hd125014125322_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125009125320_)) - (let ((_e125014125323_ + _tl125013125324_)) + (let ((_e125018125327_ (let () (declare (not safe)) (gx#stx-e - _tl125009125320_)))) - (let ((_tl125012125328_ + _tl125013125324_)))) + (let ((_tl125016125332_ (let () (declare (not safe)) - (##cdr _e125014125323_))) - (_hd125013125326_ + (##cdr _e125018125327_))) + (_hd125017125330_ (let () (declare (not safe)) - (##car _e125014125323_)))) + (##car _e125018125327_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125012125328_)) + _tl125016125332_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125006125312_)) + _tl125010125316_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl125006125312_)) + (gx#stx-length _tl125010125316_)) '1) - (let ((___splice129335129336_ + (let ((___splice129339129340_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125006125312_ + _tl125010125316_ '1)))) - (let ((_tl125017125333_ + (let ((_tl125021125337_ (let () (declare (not safe)) - (##vector-ref ___splice129335129336_ '1))) - (_target125015125331_ + (##vector-ref ___splice129339129340_ '1))) + (_target125019125335_ (let () (declare (not safe)) - (##vector-ref ___splice129335129336_ '0)))) + (##vector-ref ___splice129339129340_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125017125333_)) - (let ((_e125026125336_ + (gx#stx-pair? _tl125021125337_)) + (let ((_e125030125340_ (let () (declare (not safe)) - (gx#stx-e _tl125017125333_)))) - (let ((_tl125024125341_ + (gx#stx-e _tl125021125337_)))) + (let ((_tl125028125345_ (let () (declare (not safe)) - (##cdr _e125026125336_))) - (_hd125025125339_ + (##cdr _e125030125340_))) + (_hd125029125343_ (let () (declare (not safe)) - (##car _e125026125336_)))) + (##car _e125030125340_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125025125339_)) - (let ((_e125029125344_ + (gx#stx-pair? _hd125029125343_)) + (let ((_e125033125348_ (let () (declare (not safe)) - (gx#stx-e _hd125025125339_)))) - (let ((_tl125027125349_ + (gx#stx-e _hd125029125343_)))) + (let ((_tl125031125353_ (let () (declare (not safe)) - (##cdr _e125029125344_))) - (_hd125028125347_ + (##cdr _e125033125348_))) + (_hd125032125351_ (let () (declare (not safe)) - (##car _e125029125344_)))) + (##car _e125033125348_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd125028125347_)) + _hd125032125351_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125028125347_)) + _hd125032125351_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125027125349_)) - (let ((_e125032125352_ + _tl125031125353_)) + (let ((_e125036125356_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl125027125349_)))) - (let ((_tl125030125357_ - (let () (declare (not safe)) (##cdr _e125032125352_))) - (_hd125031125355_ + (gx#stx-e _tl125031125353_)))) + (let ((_tl125034125361_ + (let () (declare (not safe)) (##cdr _e125036125356_))) + (_hd125035125359_ (let () (declare (not safe)) - (##car _e125032125352_)))) + (##car _e125036125356_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125030125357_)) + (gx#stx-null? _tl125034125361_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl125024125341_)) - (letrec ((_loop125018125360_ - (lambda (_hd125016125363_ - _xarg125022125365_) + (gx#stx-null? _tl125028125345_)) + (letrec ((_loop125022125364_ + (lambda (_hd125020125367_ + _xarg125026125369_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125016125363_)) - (let ((_e125019125368_ + (gx#stx-pair? _hd125020125367_)) + (let ((_e125023125372_ (let () (declare (not safe)) (gx#stx-e - _hd125016125363_)))) - (let ((_lp-tl125021125373_ + _hd125020125367_)))) + (let ((_lp-tl125025125377_ (let () (declare (not safe)) - (##cdr _e125019125368_))) - (_lp-hd125020125371_ + (##cdr _e125023125372_))) + (_lp-hd125024125375_ (let () (declare (not safe)) - (##car _e125019125368_)))) + (##car _e125023125372_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd125020125371_)) - (let ((_e125035125376_ + _lp-hd125024125375_)) + (let ((_e125039125380_ (let () (declare (not safe)) (gx#stx-e - _lp-hd125020125371_)))) - (let ((_tl125033125381_ + _lp-hd125024125375_)))) + (let ((_tl125037125385_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e125035125376_))) - (_hd125034125379_ - (let () (declare (not safe)) (##car _e125035125376_)))) + (##cdr _e125039125380_))) + (_hd125038125383_ + (let () (declare (not safe)) (##car _e125039125380_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125034125379_)) + (gx#identifier? _hd125038125383_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125034125379_)) + (gx#stx-eq? '%#ref _hd125038125383_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125033125381_)) - (let ((_e125038125384_ + (gx#stx-pair? _tl125037125385_)) + (let ((_e125042125388_ (let () (declare (not safe)) - (gx#stx-e _tl125033125381_)))) - (let ((_tl125036125389_ + (gx#stx-e _tl125037125385_)))) + (let ((_tl125040125393_ (let () (declare (not safe)) - (##cdr _e125038125384_))) - (_hd125037125387_ + (##cdr _e125042125388_))) + (_hd125041125391_ (let () (declare (not safe)) - (##car _e125038125384_)))) + (##car _e125042125388_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125036125389_)) - (let ((__tmp130730 + (gx#stx-null? _tl125040125393_)) + (let ((__tmp130734 (let () (declare (not safe)) - (cons _hd125037125387_ - _xarg125022125365_)))) + (cons _hd125041125391_ + _xarg125026125369_)))) (declare (not safe)) - (_loop125018125360_ - _lp-tl125021125373_ - __tmp130730)) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)))) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)))) - (let ((_xarg125023125392_ - (reverse _xarg125022125365_))) + (_loop125022125364_ + _lp-tl125025125377_ + __tmp130734)) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)))) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)))) + (let ((_xarg125027125396_ + (reverse _xarg125026125369_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124991125272_)) - (let ((_L125395_ - _hd125031125355_) - (_L125396_ - _xarg125023125392_) - (_L125397_ - _hd125013125326_) - (_L125398_ - _hd125004125302_) - (_L125399_ - _tl124984125245_) + _tl124995125276_)) + (let ((_L125399_ + _hd125035125359_) (_L125400_ - _arg124990125264_)) - (if (and (let ((__tmp130728 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130729 - (lambda (_g125443125446_ _g125444125448_) + _xarg125027125396_) + (_L125401_ + _hd125017125330_) + (_L125402_ + _hd125008125306_) + (_L125403_ + _tl124988125249_) + (_L125404_ + _arg124994125268_)) + (if (and (let ((__tmp130732 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130733 + (lambda (_g125447125450_ _g125448125452_) (let () (declare (not safe)) - (cons _g125443125446_ - _g125444125448_))))) + (cons _g125447125450_ + _g125448125452_))))) (declare (not safe)) - (foldr1 __tmp130729 '() _L125400_)))) + (foldr1 __tmp130733 '() _L125404_)))) (declare (not safe)) - (gx#identifier-list? __tmp130728)) - (let () (declare (not safe)) (gx#identifier? _L125399_)) + (gx#identifier-list? __tmp130732)) + (let () (declare (not safe)) (gx#identifier? _L125403_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L125398_ 'apply)) - (fx= (length (let ((__tmp130726 - (lambda (_g125450125453_ - _g125451125455_) + (gxc#runtime-identifier=? _L125402_ 'apply)) + (fx= (length (let ((__tmp130730 + (lambda (_g125454125457_ + _g125455125459_) (let () (declare (not safe)) - (cons _g125450125453_ - _g125451125455_))))) + (cons _g125454125457_ + _g125455125459_))))) (declare (not safe)) - (foldr1 __tmp130726 '() _L125400_))) - (length (let ((__tmp130727 - (lambda (_g125457125460_ - _g125458125462_) + (foldr1 __tmp130730 '() _L125404_))) + (length (let ((__tmp130731 + (lambda (_g125461125464_ + _g125462125466_) (let () (declare (not safe)) - (cons _g125457125460_ - _g125458125462_))))) + (cons _g125461125464_ + _g125462125466_))))) (declare (not safe)) - (foldr1 __tmp130727 '() _L125396_)))) - (let ((__tmp130724 - (let ((__tmp130725 - (lambda (_g125464125467_ _g125465125469_) + (foldr1 __tmp130731 '() _L125400_)))) + (let ((__tmp130728 + (let ((__tmp130729 + (lambda (_g125468125471_ _g125469125473_) (let () (declare (not safe)) - (cons _g125464125467_ - _g125465125469_))))) + (cons _g125468125471_ + _g125469125473_))))) (declare (not safe)) - (foldr1 __tmp130725 '() _L125400_))) - (__tmp130722 - (let ((__tmp130723 - (lambda (_g125471125474_ _g125472125476_) + (foldr1 __tmp130729 '() _L125404_))) + (__tmp130726 + (let ((__tmp130727 + (lambda (_g125475125478_ _g125476125480_) (let () (declare (not safe)) - (cons _g125471125474_ - _g125472125476_))))) + (cons _g125475125478_ + _g125476125480_))))) (declare (not safe)) - (foldr1 __tmp130723 '() _L125396_)))) + (foldr1 __tmp130727 '() _L125400_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp130724 __tmp130722)) + (andmap2 gx#free-identifier=? __tmp130728 __tmp130726)) (let () (declare (not safe)) - (gx#free-identifier=? _L125399_ _L125395_)) - (let ((__tmp130717 - (let ((__tmp130721 - (lambda (_g125478125480_) + (gx#free-identifier=? _L125403_ _L125399_)) + (let ((__tmp130721 + (let ((__tmp130725 + (lambda (_g125482125484_) (let () (declare (not safe)) (gx#free-identifier=? - _g125478125480_ - _L125397_)))) - (__tmp130718 - (let ((__tmp130720 - (lambda (_g125482125485_ - _g125483125487_) + _g125482125484_ + _L125401_)))) + (__tmp130722 + (let ((__tmp130724 + (lambda (_g125486125489_ + _g125487125491_) (let () (declare (not safe)) - (cons _g125482125485_ - _g125483125487_)))) - (__tmp130719 + (cons _g125486125489_ + _g125487125491_)))) + (__tmp130723 (let () (declare (not safe)) - (cons _L125399_ '())))) + (cons _L125403_ '())))) (declare (not safe)) - (foldr1 __tmp130720 - __tmp130719 - _L125400_)))) + (foldr1 __tmp130724 + __tmp130723 + _L125404_)))) (declare (not safe)) - (find __tmp130721 __tmp130718)))) + (find __tmp130725 __tmp130722)))) (declare (not safe)) - (not __tmp130717))) - (___kont129331129332_ - _L125395_ - _L125396_ - _L125397_ - _L125398_ + (not __tmp130721))) + (___kont129335129336_ _L125399_ - _L125400_) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_))))))) + _L125400_ + _L125401_ + _L125402_ + _L125403_ + _L125404_) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_))))))) (let () (declare (not safe)) - (_loop125018125360_ _target125015125331_ '()))) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)))) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)))) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)))) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)))) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)) - (___match129436129437_ - _e124981125235_ - _hd124980125238_ - _tl124979125240_ - _e124993125267_ - _hd124992125270_ - _tl124991125272_ - _e124996125275_ - _hd124995125278_ - _tl124994125280_ - _e124999125283_ - _hd124998125286_ - _tl124997125288_ - _e125002125291_ - _hd125001125294_ - _tl125000125296_ - _e125005125299_ - _hd125004125302_ - _tl125003125304_ - _e125008125307_ - _hd125007125310_ - _tl125006125312_ - _e125011125315_ - _hd125010125318_ - _tl125009125320_ - _e125014125323_ - _hd125013125326_ - _tl125012125328_)) - (___kont129339129340_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)))) - (___kont129339129340_)) - (___kont129339129340_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)))) - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129339129340_)))) - (___kont129339129340_))))))) + (_loop125022125364_ _target125019125335_ '()))) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)))) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)))) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)))) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)))) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)) + (___match129440129441_ + _e124985125239_ + _hd124984125242_ + _tl124983125244_ + _e124997125271_ + _hd124996125274_ + _tl124995125276_ + _e125000125279_ + _hd124999125282_ + _tl124998125284_ + _e125003125287_ + _hd125002125290_ + _tl125001125292_ + _e125006125295_ + _hd125005125298_ + _tl125004125300_ + _e125009125303_ + _hd125008125306_ + _tl125007125308_ + _e125012125311_ + _hd125011125314_ + _tl125010125316_ + _e125015125319_ + _hd125014125322_ + _tl125013125324_ + _e125018125327_ + _hd125017125330_ + _tl125016125332_)) + (___kont129343129344_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)))) + (___kont129343129344_)) + (___kont129343129344_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)))) + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129343129344_)))) + (___kont129343129344_))))))) (let () (declare (not safe)) - (_loop124985125248_ _target124982125243_ '()))))) - (___match129354129355_ - (lambda (_e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_) - (letrec ((_loop124937125508_ - (lambda (_hd124935125511_ _arg124941125513_) + (_loop124989125252_ _target124986125247_ '()))))) + (___match129358129359_ + (lambda (_e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_) + (letrec ((_loop124941125512_ + (lambda (_hd124939125515_ _arg124945125517_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124935125511_)) - (let ((_e124938125516_ + (gx#stx-pair? _hd124939125515_)) + (let ((_e124942125520_ (let () (declare (not safe)) - (gx#stx-e _hd124935125511_)))) - (let ((_lp-tl124940125521_ + (gx#stx-e _hd124939125515_)))) + (let ((_lp-tl124944125525_ (let () (declare (not safe)) - (##cdr _e124938125516_))) - (_lp-hd124939125519_ + (##cdr _e124942125520_))) + (_lp-hd124943125523_ (let () (declare (not safe)) - (##car _e124938125516_)))) - (let ((__tmp130745 + (##car _e124942125520_)))) + (let ((__tmp130749 (let () (declare (not safe)) - (cons _lp-hd124939125519_ - _arg124941125513_)))) + (cons _lp-hd124943125523_ + _arg124945125517_)))) (declare (not safe)) - (_loop124937125508_ - _lp-tl124940125521_ - __tmp130745)))) - (let ((_arg124942125524_ - (reverse _arg124941125513_))) + (_loop124941125512_ + _lp-tl124944125525_ + __tmp130749)))) + (let ((_arg124946125528_ + (reverse _arg124945125517_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124931125500_)) - (let ((_e124945125527_ + (gx#stx-pair? _tl124935125504_)) + (let ((_e124949125531_ (let () (declare (not safe)) (gx#stx-e - _tl124931125500_)))) - (let ((_tl124943125532_ + _tl124935125504_)))) + (let ((_tl124947125536_ (let () (declare (not safe)) - (##cdr _e124945125527_))) - (_hd124944125530_ + (##cdr _e124949125531_))) + (_hd124948125534_ (let () (declare (not safe)) - (##car _e124945125527_)))) + (##car _e124949125531_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124944125530_)) - (let ((_e124948125535_ + _hd124948125534_)) + (let ((_e124952125539_ (let () (declare (not safe)) (gx#stx-e - _hd124944125530_)))) - (let ((_tl124946125540_ + _hd124948125534_)))) + (let ((_tl124950125544_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124948125535_))) - (_hd124947125538_ - (let () (declare (not safe)) (##car _e124948125535_)))) + (##cdr _e124952125539_))) + (_hd124951125542_ + (let () (declare (not safe)) (##car _e124952125539_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124947125538_)) + (gx#identifier? _hd124951125542_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd124947125538_)) + (gx#stx-eq? '%#call _hd124951125542_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124946125540_)) - (let ((_e124951125543_ + (gx#stx-pair? _tl124950125544_)) + (let ((_e124955125547_ (let () (declare (not safe)) - (gx#stx-e _tl124946125540_)))) - (let ((_tl124949125548_ + (gx#stx-e _tl124950125544_)))) + (let ((_tl124953125552_ (let () (declare (not safe)) - (##cdr _e124951125543_))) - (_hd124950125546_ + (##cdr _e124955125547_))) + (_hd124954125550_ (let () (declare (not safe)) - (##car _e124951125543_)))) + (##car _e124955125547_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124950125546_)) - (let ((_e124954125551_ + (gx#stx-pair? _hd124954125550_)) + (let ((_e124958125555_ (let () (declare (not safe)) - (gx#stx-e _hd124950125546_)))) - (let ((_tl124952125556_ + (gx#stx-e _hd124954125550_)))) + (let ((_tl124956125560_ (let () (declare (not safe)) - (##cdr _e124954125551_))) - (_hd124953125554_ + (##cdr _e124958125555_))) + (_hd124957125558_ (let () (declare (not safe)) - (##car _e124954125551_)))) + (##car _e124958125555_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124953125554_)) + _hd124957125558_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124953125554_)) + _hd124957125558_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124952125556_)) - (let ((_e124957125559_ + _tl124956125560_)) + (let ((_e124961125563_ (let () (declare (not safe)) (gx#stx-e - _tl124952125556_)))) - (let ((_tl124955125564_ + _tl124956125560_)))) + (let ((_tl124959125568_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124957125559_))) - (_hd124956125562_ - (let () (declare (not safe)) (##car _e124957125559_)))) + (##cdr _e124961125563_))) + (_hd124960125566_ + (let () (declare (not safe)) (##car _e124961125563_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124955125564_)) + (gx#stx-null? _tl124959125568_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl124949125548_)) - (let ((___splice129329129330_ + (gx#stx-pair/null? _tl124953125552_)) + (let ((___splice129333129334_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl124949125548_ + _tl124953125552_ '0)))) - (let ((_tl124960125569_ + (let ((_tl124964125573_ (let () (declare (not safe)) - (##vector-ref ___splice129329129330_ '1))) - (_target124958125567_ + (##vector-ref ___splice129333129334_ '1))) + (_target124962125571_ (let () (declare (not safe)) - (##vector-ref ___splice129329129330_ '0)))) + (##vector-ref ___splice129333129334_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124960125569_)) - (letrec ((_loop124961125572_ - (lambda (_hd124959125575_ - _xarg124965125577_) + (gx#stx-null? _tl124964125573_)) + (letrec ((_loop124965125576_ + (lambda (_hd124963125579_ + _xarg124969125581_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124959125575_)) - (let ((_e124962125580_ + _hd124963125579_)) + (let ((_e124966125584_ (let () (declare (not safe)) (gx#stx-e - _hd124959125575_)))) - (let ((_lp-tl124964125585_ + _hd124963125579_)))) + (let ((_lp-tl124968125589_ (let () (declare (not safe)) - (##cdr _e124962125580_))) - (_lp-hd124963125583_ + (##cdr _e124966125584_))) + (_lp-hd124967125587_ (let () (declare (not safe)) - (##car _e124962125580_)))) + (##car _e124966125584_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd124963125583_)) - (let ((_e124969125588_ + _lp-hd124967125587_)) + (let ((_e124973125592_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd124963125583_)))) - (let ((_tl124967125593_ - (let () (declare (not safe)) (##cdr _e124969125588_))) - (_hd124968125591_ + (gx#stx-e _lp-hd124967125587_)))) + (let ((_tl124971125597_ + (let () (declare (not safe)) (##cdr _e124973125592_))) + (_hd124972125595_ (let () (declare (not safe)) - (##car _e124969125588_)))) + (##car _e124973125592_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124968125591_)) + (gx#identifier? _hd124972125595_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124968125591_)) + (gx#stx-eq? '%#ref _hd124972125595_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124967125593_)) - (let ((_e124972125596_ + (gx#stx-pair? _tl124971125597_)) + (let ((_e124976125600_ (let () (declare (not safe)) - (gx#stx-e _tl124967125593_)))) - (let ((_tl124970125601_ + (gx#stx-e _tl124971125597_)))) + (let ((_tl124974125605_ (let () (declare (not safe)) - (##cdr _e124972125596_))) - (_hd124971125599_ + (##cdr _e124976125600_))) + (_hd124975125603_ (let () (declare (not safe)) - (##car _e124972125596_)))) + (##car _e124976125600_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124970125601_)) - (let ((__tmp130744 + (gx#stx-null? _tl124974125605_)) + (let ((__tmp130748 (let () (declare (not safe)) - (cons _hd124971125599_ - _xarg124965125577_)))) + (cons _hd124975125603_ + _xarg124969125581_)))) (declare (not safe)) - (_loop124961125572_ - _lp-tl124964125585_ - __tmp130744)) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg124966125604_ - (reverse _xarg124965125577_))) + (_loop124965125576_ + _lp-tl124968125589_ + __tmp130748)) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg124970125608_ + (reverse _xarg124969125581_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124943125532_)) - (let ((_L125607_ - _xarg124966125604_) - (_L125608_ - _hd124956125562_) - (_L125609_ - _arg124942125524_)) - (if (and (let ((__tmp130742 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130743 - (lambda (_g125637125640_ - _g125638125642_) + _tl124947125536_)) + (let ((_L125611_ + _xarg124970125608_) + (_L125612_ + _hd124960125566_) + (_L125613_ + _arg124946125528_)) + (if (and (let ((__tmp130746 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130747 + (lambda (_g125641125644_ + _g125642125646_) (let () (declare (not safe)) - (cons _g125637125640_ - _g125638125642_))))) + (cons _g125641125644_ + _g125642125646_))))) (declare (not safe)) - (foldr1 __tmp130743 '() _L125609_)))) + (foldr1 __tmp130747 '() _L125613_)))) (declare (not safe)) - (gx#identifier-list? __tmp130742)) - (fx= (length (let ((__tmp130740 - (lambda (_g125644125647_ - _g125645125649_) + (gx#identifier-list? __tmp130746)) + (fx= (length (let ((__tmp130744 + (lambda (_g125648125651_ + _g125649125653_) (let () (declare (not safe)) - (cons _g125644125647_ - _g125645125649_))))) + (cons _g125648125651_ + _g125649125653_))))) (declare (not safe)) - (foldr1 __tmp130740 '() _L125609_))) - (length (let ((__tmp130741 - (lambda (_g125651125654_ - _g125652125656_) + (foldr1 __tmp130744 '() _L125613_))) + (length (let ((__tmp130745 + (lambda (_g125655125658_ + _g125656125660_) (let () (declare (not safe)) - (cons _g125651125654_ - _g125652125656_))))) + (cons _g125655125658_ + _g125656125660_))))) (declare (not safe)) - (foldr1 __tmp130741 '() _L125607_)))) - (let ((__tmp130738 - (let ((__tmp130739 - (lambda (_g125658125661_ - _g125659125663_) + (foldr1 __tmp130745 '() _L125611_)))) + (let ((__tmp130742 + (let ((__tmp130743 + (lambda (_g125662125665_ + _g125663125667_) (let () (declare (not safe)) - (cons _g125658125661_ - _g125659125663_))))) + (cons _g125662125665_ + _g125663125667_))))) (declare (not safe)) - (foldr1 __tmp130739 '() _L125609_))) - (__tmp130736 - (let ((__tmp130737 - (lambda (_g125665125668_ - _g125666125670_) + (foldr1 __tmp130743 '() _L125613_))) + (__tmp130740 + (let ((__tmp130741 + (lambda (_g125669125672_ + _g125670125674_) (let () (declare (not safe)) - (cons _g125665125668_ - _g125666125670_))))) + (cons _g125669125672_ + _g125670125674_))))) (declare (not safe)) - (foldr1 __tmp130737 '() _L125607_)))) + (foldr1 __tmp130741 '() _L125611_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp130738 - __tmp130736)) - (let ((__tmp130732 - (let ((__tmp130735 - (lambda (_g125672125674_) + __tmp130742 + __tmp130740)) + (let ((__tmp130736 + (let ((__tmp130739 + (lambda (_g125676125678_) (let () (declare (not safe)) (gx#free-identifier=? - _g125672125674_ - _L125608_)))) - (__tmp130733 - (let ((__tmp130734 - (lambda (_g125676125679_ - _g125677125681_) + _g125676125678_ + _L125612_)))) + (__tmp130737 + (let ((__tmp130738 + (lambda (_g125680125683_ + _g125681125685_) (let () (declare (not safe)) - (cons _g125676125679_ - _g125677125681_))))) + (cons _g125680125683_ + _g125681125685_))))) (declare (not safe)) - (foldr1 __tmp130734 '() _L125609_)))) + (foldr1 __tmp130738 '() _L125613_)))) (declare (not safe)) - (find __tmp130735 __tmp130733)))) + (find __tmp130739 __tmp130737)))) (declare (not safe)) - (not __tmp130732))) - (___kont129325129326_ _L125607_ _L125608_ _L125609_) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_))) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_))))))) + (not __tmp130736))) + (___kont129329129330_ _L125611_ _L125612_ _L125613_) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_))) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop124961125572_ - _target124958125567_ + (_loop124965125576_ + _target124962125571_ '()))) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_))))))) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_))))))) (let () (declare (not safe)) - (_loop124937125508_ _target124934125503_ '())))))) + (_loop124941125512_ _target124938125507_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129323129324_)) - (let ((_e124933125495_ + (gx#stx-pair? ___stx129327129328_)) + (let ((_e124937125499_ (let () (declare (not safe)) - (gx#stx-e ___stx129323129324_)))) - (let ((_tl124931125500_ + (gx#stx-e ___stx129327129328_)))) + (let ((_tl124935125504_ (let () (declare (not safe)) - (##cdr _e124933125495_))) - (_hd124932125498_ + (##cdr _e124937125499_))) + (_hd124936125502_ (let () (declare (not safe)) - (##car _e124933125495_)))) + (##car _e124937125499_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd124932125498_)) - (let ((___splice129327129328_ + (gx#stx-pair/null? _hd124936125502_)) + (let ((___splice129331129332_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd124932125498_ + _hd124936125502_ '0)))) - (let ((_tl124936125505_ + (let ((_tl124940125509_ (let () (declare (not safe)) - (##vector-ref ___splice129327129328_ '1))) - (_target124934125503_ + (##vector-ref ___splice129331129332_ '1))) + (_target124938125507_ (let () (declare (not safe)) (##vector-ref - ___splice129327129328_ + ___splice129331129332_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124936125505_)) - (___match129354129355_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_) - (___match129366129367_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - ___splice129327129328_ - _target124934125503_ - _tl124936125505_)))) + (gx#stx-null? _tl124940125509_)) + (___match129358129359_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_) + (___match129370129371_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + ___splice129331129332_ + _target124938125507_ + _tl124940125509_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124931125500_)) - (let ((_e125048125103_ + (gx#stx-pair? _tl124935125504_)) + (let ((_e125052125107_ (let () (declare (not safe)) - (gx#stx-e _tl124931125500_)))) - (let ((_tl125046125108_ + (gx#stx-e _tl124935125504_)))) + (let ((_tl125050125112_ (let () (declare (not safe)) - (##cdr _e125048125103_))) - (_hd125047125106_ + (##cdr _e125052125107_))) + (_hd125051125110_ (let () (declare (not safe)) - (##car _e125048125103_)))) + (##car _e125052125107_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125047125106_)) - (let ((_e125051125111_ + (gx#stx-pair? _hd125051125110_)) + (let ((_e125055125115_ (let () (declare (not safe)) - (gx#stx-e _hd125047125106_)))) - (let ((_tl125049125116_ + (gx#stx-e _hd125051125110_)))) + (let ((_tl125053125120_ (let () (declare (not safe)) - (##cdr _e125051125111_))) - (_hd125050125114_ + (##cdr _e125055125115_))) + (_hd125054125118_ (let () (declare (not safe)) - (##car _e125051125111_)))) + (##car _e125055125115_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd125050125114_)) + _hd125054125118_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd125050125114_)) + _hd125054125118_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125049125116_)) - (let ((_e125054125119_ + _tl125053125120_)) + (let ((_e125058125123_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125049125116_)))) - (let ((_tl125052125124_ - (let () (declare (not safe)) (##cdr _e125054125119_))) - (_hd125053125122_ - (let () (declare (not safe)) (##car _e125054125119_)))) + (gx#stx-e _tl125053125120_)))) + (let ((_tl125056125128_ + (let () (declare (not safe)) (##cdr _e125058125123_))) + (_hd125057125126_ + (let () (declare (not safe)) (##car _e125058125123_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125053125122_)) - (let ((_e125057125127_ + (gx#stx-pair? _hd125057125126_)) + (let ((_e125061125131_ (let () (declare (not safe)) - (gx#stx-e _hd125053125122_)))) - (let ((_tl125055125132_ + (gx#stx-e _hd125057125126_)))) + (let ((_tl125059125136_ (let () (declare (not safe)) - (##cdr _e125057125127_))) - (_hd125056125130_ + (##cdr _e125061125131_))) + (_hd125060125134_ (let () (declare (not safe)) - (##car _e125057125127_)))) + (##car _e125061125131_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125056125130_)) + (gx#identifier? _hd125060125134_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125056125130_)) + (gx#stx-eq? '%#ref _hd125060125134_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125055125132_)) - (let ((_e125060125135_ + (gx#stx-pair? _tl125059125136_)) + (let ((_e125064125139_ (let () (declare (not safe)) - (gx#stx-e _tl125055125132_)))) - (let ((_tl125058125140_ + (gx#stx-e _tl125059125136_)))) + (let ((_tl125062125144_ (let () (declare (not safe)) - (##cdr _e125060125135_))) - (_hd125059125138_ + (##cdr _e125064125139_))) + (_hd125063125142_ (let () (declare (not safe)) - (##car _e125060125135_)))) + (##car _e125064125139_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125058125140_)) + _tl125062125144_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125052125124_)) - (let ((_e125063125143_ + _tl125056125128_)) + (let ((_e125067125147_ (let () (declare (not safe)) (gx#stx-e - _tl125052125124_)))) - (let ((_tl125061125148_ + _tl125056125128_)))) + (let ((_tl125065125152_ (let () (declare (not safe)) - (##cdr _e125063125143_))) - (_hd125062125146_ + (##cdr _e125067125147_))) + (_hd125066125150_ (let () (declare (not safe)) - (##car _e125063125143_)))) + (##car _e125067125147_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd125062125146_)) - (let ((_e125066125151_ + _hd125066125150_)) + (let ((_e125070125155_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd125062125146_)))) - (let ((_tl125064125156_ + (gx#stx-e _hd125066125150_)))) + (let ((_tl125068125160_ (let () (declare (not safe)) - (##cdr _e125066125151_))) - (_hd125065125154_ + (##cdr _e125070125155_))) + (_hd125069125158_ (let () (declare (not safe)) - (##car _e125066125151_)))) + (##car _e125070125155_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125065125154_)) + (gx#identifier? _hd125069125158_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125065125154_)) + (gx#stx-eq? '%#ref _hd125069125158_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125064125156_)) - (let ((_e125069125159_ + (gx#stx-pair? _tl125068125160_)) + (let ((_e125073125163_ (let () (declare (not safe)) - (gx#stx-e _tl125064125156_)))) - (let ((_tl125067125164_ + (gx#stx-e _tl125068125160_)))) + (let ((_tl125071125168_ (let () (declare (not safe)) - (##cdr _e125069125159_))) - (_hd125068125162_ + (##cdr _e125073125163_))) + (_hd125072125166_ (let () (declare (not safe)) - (##car _e125069125159_)))) + (##car _e125073125163_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125067125164_)) + (gx#stx-null? _tl125071125168_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125061125148_)) - (let ((_e125072125167_ + _tl125065125152_)) + (let ((_e125076125171_ (let () (declare (not safe)) (gx#stx-e - _tl125061125148_)))) - (let ((_tl125070125172_ + _tl125065125152_)))) + (let ((_tl125074125176_ (let () (declare (not safe)) - (##cdr _e125072125167_))) - (_hd125071125170_ + (##cdr _e125076125171_))) + (_hd125075125174_ (let () (declare (not safe)) - (##car _e125072125167_)))) + (##car _e125076125171_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd125071125170_)) - (let ((_e125075125175_ + _hd125075125174_)) + (let ((_e125079125179_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd125071125170_)))) - (let ((_tl125073125180_ - (let () (declare (not safe)) (##cdr _e125075125175_))) - (_hd125074125178_ - (let () (declare (not safe)) (##car _e125075125175_)))) + (gx#stx-e _hd125075125174_)))) + (let ((_tl125077125184_ + (let () (declare (not safe)) (##cdr _e125079125179_))) + (_hd125078125182_ + (let () (declare (not safe)) (##car _e125079125179_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125074125178_)) + (gx#identifier? _hd125078125182_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125074125178_)) + (gx#stx-eq? '%#ref _hd125078125182_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125073125180_)) - (let ((_e125078125183_ + (gx#stx-pair? _tl125077125184_)) + (let ((_e125082125187_ (let () (declare (not safe)) - (gx#stx-e _tl125073125180_)))) - (let ((_tl125076125188_ + (gx#stx-e _tl125077125184_)))) + (let ((_tl125080125192_ (let () (declare (not safe)) - (##cdr _e125078125183_))) - (_hd125077125186_ + (##cdr _e125082125187_))) + (_hd125081125190_ (let () (declare (not safe)) - (##car _e125078125183_)))) + (##car _e125082125187_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125076125188_)) + (gx#stx-null? _tl125080125192_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl125070125172_)) + (gx#stx-null? _tl125074125176_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl125046125108_)) - (___match129464129465_ - _e124933125495_ - _hd124932125498_ - _tl124931125500_ - _e125048125103_ - _hd125047125106_ - _tl125046125108_ - _e125051125111_ - _hd125050125114_ - _tl125049125116_ - _e125054125119_ - _hd125053125122_ - _tl125052125124_ - _e125057125127_ - _hd125056125130_ - _tl125055125132_ - _e125060125135_ - _hd125059125138_ - _tl125058125140_ - _e125063125143_ - _hd125062125146_ - _tl125061125148_ - _e125066125151_ - _hd125065125154_ - _tl125064125156_ - _e125069125159_ - _hd125068125162_ - _tl125067125164_ - _e125072125167_ - _hd125071125170_ - _tl125070125172_ - _e125075125175_ - _hd125074125178_ - _tl125073125180_ - _e125078125183_ - _hd125077125186_ - _tl125076125188_) - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)) - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)))) - (___kont129339129340_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129339129340_)) - (___kont129339129340_)))) - (___kont129339129340_)))) - (___kont129339129340_))))) - (___kont129339129340_))))))) + _tl125050125112_)) + (___match129468129469_ + _e124937125499_ + _hd124936125502_ + _tl124935125504_ + _e125052125107_ + _hd125051125110_ + _tl125050125112_ + _e125055125115_ + _hd125054125118_ + _tl125053125120_ + _e125058125123_ + _hd125057125126_ + _tl125056125128_ + _e125061125131_ + _hd125060125134_ + _tl125059125136_ + _e125064125139_ + _hd125063125142_ + _tl125062125144_ + _e125067125147_ + _hd125066125150_ + _tl125065125152_ + _e125070125155_ + _hd125069125158_ + _tl125068125160_ + _e125073125163_ + _hd125072125166_ + _tl125071125168_ + _e125076125171_ + _hd125075125174_ + _tl125074125176_ + _e125079125179_ + _hd125078125182_ + _tl125077125184_ + _e125082125187_ + _hd125081125190_ + _tl125080125192_) + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)) + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)))) + (___kont129343129344_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129343129344_)) + (___kont129343129344_)))) + (___kont129343129344_)))) + (___kont129343129344_))))) + (___kont129343129344_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form124389_) - (let* ((___stx129467129468_ _form124389_) - (_g124393124517_ + (lambda (_form124393_) + (let* ((___stx129471129472_ _form124393_) + (_g124397124521_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129467129468_))))) - (let ((___kont129469129470_ - (lambda (_L124887_ _L124888_ _L124889_) + ___stx129471129472_))))) + (let ((___kont129473129474_ + (lambda (_L124891_ _L124892_ _L124893_) (let () (declare (not safe)) - (gxc#identifier-symbol _L124888_)))) - (___kont129475129476_ - (lambda (_L124735_ _L124736_ _L124737_ _L124738_) + (gxc#identifier-symbol _L124892_)))) + (___kont129479129480_ + (lambda (_L124739_ _L124740_ _L124741_ _L124742_) (let () (declare (not safe)) - (gxc#identifier-symbol _L124735_)))) - (___kont129479129480_ - (lambda (_L124602_ _L124603_ _L124604_) + (gxc#identifier-symbol _L124739_)))) + (___kont129483129484_ + (lambda (_L124606_ _L124607_ _L124608_) (let () (declare (not safe)) - (gxc#identifier-symbol _L124602_))))) - (let* ((___match129576129577_ - (lambda (_e124485124522_ - _hd124484124525_ - _tl124483124527_ - _e124488124530_ - _hd124487124533_ - _tl124486124535_ - _e124491124538_ - _hd124490124541_ - _tl124489124543_ - _e124494124546_ - _hd124493124549_ - _tl124492124551_ - _e124497124554_ - _hd124496124557_ - _tl124495124559_ - _e124500124562_ - _hd124499124565_ - _tl124498124567_ - _e124503124570_ - _hd124502124573_ - _tl124501124575_ - _e124506124578_ - _hd124505124581_ - _tl124504124583_ - _e124509124586_ - _hd124508124589_ - _tl124507124591_) + (gxc#identifier-symbol _L124606_))))) + (let* ((___match129580129581_ + (lambda (_e124489124526_ + _hd124488124529_ + _tl124487124531_ + _e124492124534_ + _hd124491124537_ + _tl124490124539_ + _e124495124542_ + _hd124494124545_ + _tl124493124547_ + _e124498124550_ + _hd124497124553_ + _tl124496124555_ + _e124501124558_ + _hd124500124561_ + _tl124499124563_ + _e124504124566_ + _hd124503124569_ + _tl124502124571_ + _e124507124574_ + _hd124506124577_ + _tl124505124579_ + _e124510124582_ + _hd124509124585_ + _tl124508124587_ + _e124513124590_ + _hd124512124593_ + _tl124511124595_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124501124575_)) - (let ((_e124512124594_ + (gx#stx-pair? _tl124505124579_)) + (let ((_e124516124598_ (let () (declare (not safe)) - (gx#stx-e _tl124501124575_)))) - (let ((_tl124510124599_ + (gx#stx-e _tl124505124579_)))) + (let ((_tl124514124603_ (let () (declare (not safe)) - (##cdr _e124512124594_))) - (_hd124511124597_ + (##cdr _e124516124598_))) + (_hd124515124601_ (let () (declare (not safe)) - (##car _e124512124594_)))) + (##car _e124516124598_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124510124599_)) + (gx#stx-null? _tl124514124603_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl124486124535_)) - (___kont129479129480_ - _hd124508124589_ - _hd124499124565_ - _hd124484124525_) + (gx#stx-null? _tl124490124539_)) + (___kont129483129484_ + _hd124512124593_ + _hd124503124569_ + _hd124488124529_) (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))))) - (let () (declare (not safe)) (_g124393124517_))))) - (___match129506129507_ - (lambda (_e124446124639_ - _hd124445124642_ - _tl124444124644_ - ___splice129477129478_ - _target124447124647_ - _tl124449124649_) - (letrec ((_loop124450124652_ - (lambda (_hd124448124655_ _arg124454124657_) + (_g124397124521_))))) + (let () (declare (not safe)) (_g124397124521_))))) + (___match129510129511_ + (lambda (_e124450124643_ + _hd124449124646_ + _tl124448124648_ + ___splice129481129482_ + _target124451124651_ + _tl124453124653_) + (letrec ((_loop124454124656_ + (lambda (_hd124452124659_ _arg124458124661_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124448124655_)) - (let ((_e124451124660_ + (gx#stx-pair? _hd124452124659_)) + (let ((_e124455124664_ (let () (declare (not safe)) - (gx#stx-e _hd124448124655_)))) - (let ((_lp-tl124453124665_ + (gx#stx-e _hd124452124659_)))) + (let ((_lp-tl124457124669_ (let () (declare (not safe)) - (##cdr _e124451124660_))) - (_lp-hd124452124663_ + (##cdr _e124455124664_))) + (_lp-hd124456124667_ (let () (declare (not safe)) - (##car _e124451124660_)))) - (let ((__tmp130746 + (##car _e124455124664_)))) + (let ((__tmp130750 (let () (declare (not safe)) - (cons _lp-hd124452124663_ - _arg124454124657_)))) + (cons _lp-hd124456124667_ + _arg124458124661_)))) (declare (not safe)) - (_loop124450124652_ - _lp-tl124453124665_ - __tmp130746)))) - (let ((_arg124455124668_ - (reverse _arg124454124657_))) + (_loop124454124656_ + _lp-tl124457124669_ + __tmp130750)))) + (let ((_arg124459124672_ + (reverse _arg124458124661_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124444124644_)) - (let ((_e124458124671_ + (gx#stx-pair? _tl124448124648_)) + (let ((_e124462124675_ (let () (declare (not safe)) (gx#stx-e - _tl124444124644_)))) - (let ((_tl124456124676_ + _tl124448124648_)))) + (let ((_tl124460124680_ (let () (declare (not safe)) - (##cdr _e124458124671_))) - (_hd124457124674_ + (##cdr _e124462124675_))) + (_hd124461124678_ (let () (declare (not safe)) - (##car _e124458124671_)))) + (##car _e124462124675_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124457124674_)) - (let ((_e124461124679_ + _hd124461124678_)) + (let ((_e124465124683_ (let () (declare (not safe)) (gx#stx-e - _hd124457124674_)))) - (let ((_tl124459124684_ + _hd124461124678_)))) + (let ((_tl124463124688_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124461124679_))) - (_hd124460124682_ - (let () (declare (not safe)) (##car _e124461124679_)))) + (##cdr _e124465124683_))) + (_hd124464124686_ + (let () (declare (not safe)) (##car _e124465124683_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124460124682_)) + (gx#identifier? _hd124464124686_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd124460124682_)) + (gx#stx-eq? '%#call _hd124464124686_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124459124684_)) - (let ((_e124464124687_ + (gx#stx-pair? _tl124463124688_)) + (let ((_e124468124691_ (let () (declare (not safe)) - (gx#stx-e _tl124459124684_)))) - (let ((_tl124462124692_ + (gx#stx-e _tl124463124688_)))) + (let ((_tl124466124696_ (let () (declare (not safe)) - (##cdr _e124464124687_))) - (_hd124463124690_ + (##cdr _e124468124691_))) + (_hd124467124694_ (let () (declare (not safe)) - (##car _e124464124687_)))) + (##car _e124468124691_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124463124690_)) - (let ((_e124467124695_ + (gx#stx-pair? _hd124467124694_)) + (let ((_e124471124699_ (let () (declare (not safe)) - (gx#stx-e _hd124463124690_)))) - (let ((_tl124465124700_ + (gx#stx-e _hd124467124694_)))) + (let ((_tl124469124704_ (let () (declare (not safe)) - (##cdr _e124467124695_))) - (_hd124466124698_ + (##cdr _e124471124699_))) + (_hd124470124702_ (let () (declare (not safe)) - (##car _e124467124695_)))) + (##car _e124471124699_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124466124698_)) + _hd124470124702_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124466124698_)) + _hd124470124702_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124465124700_)) - (let ((_e124470124703_ + _tl124469124704_)) + (let ((_e124474124707_ (let () (declare (not safe)) (gx#stx-e - _tl124465124700_)))) - (let ((_tl124468124708_ + _tl124469124704_)))) + (let ((_tl124472124712_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124470124703_))) - (_hd124469124706_ - (let () (declare (not safe)) (##car _e124470124703_)))) + (##cdr _e124474124707_))) + (_hd124473124710_ + (let () (declare (not safe)) (##car _e124474124707_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124468124708_)) + (gx#stx-null? _tl124472124712_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124462124692_)) - (let ((_e124473124711_ + (gx#stx-pair? _tl124466124696_)) + (let ((_e124477124715_ (let () (declare (not safe)) - (gx#stx-e _tl124462124692_)))) - (let ((_tl124471124716_ + (gx#stx-e _tl124466124696_)))) + (let ((_tl124475124720_ (let () (declare (not safe)) - (##cdr _e124473124711_))) - (_hd124472124714_ + (##cdr _e124477124715_))) + (_hd124476124718_ (let () (declare (not safe)) - (##car _e124473124711_)))) + (##car _e124477124715_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124472124714_)) - (let ((_e124476124719_ + (gx#stx-pair? _hd124476124718_)) + (let ((_e124480124723_ (let () (declare (not safe)) - (gx#stx-e _hd124472124714_)))) - (let ((_tl124474124724_ + (gx#stx-e _hd124476124718_)))) + (let ((_tl124478124728_ (let () (declare (not safe)) - (##cdr _e124476124719_))) - (_hd124475124722_ + (##cdr _e124480124723_))) + (_hd124479124726_ (let () (declare (not safe)) - (##car _e124476124719_)))) + (##car _e124480124723_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124475124722_)) + (gx#identifier? _hd124479124726_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124475124722_)) + _hd124479124726_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124474124724_)) - (let ((_e124479124727_ + _tl124478124728_)) + (let ((_e124483124731_ (let () (declare (not safe)) (gx#stx-e - _tl124474124724_)))) - (let ((_tl124477124732_ + _tl124478124728_)))) + (let ((_tl124481124736_ (let () (declare (not safe)) - (##cdr _e124479124727_))) - (_hd124478124730_ + (##cdr _e124483124731_))) + (_hd124482124734_ (let () (declare (not safe)) - (##car _e124479124727_)))) + (##car _e124483124731_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124477124732_)) + _tl124481124736_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124456124676_)) - (___kont129475129476_ - _hd124478124730_ - _hd124469124706_ - _tl124449124649_ - _arg124455124668_) - (___match129576129577_ - _e124446124639_ - _hd124445124642_ - _tl124444124644_ - _e124458124671_ - _hd124457124674_ - _tl124456124676_ - _e124461124679_ - _hd124460124682_ - _tl124459124684_ - _e124464124687_ - _hd124463124690_ - _tl124462124692_ - _e124467124695_ - _hd124466124698_ - _tl124465124700_ - _e124470124703_ - _hd124469124706_ - _tl124468124708_ - _e124473124711_ - _hd124472124714_ - _tl124471124716_ - _e124476124719_ - _hd124475124722_ - _tl124474124724_ - _e124479124727_ - _hd124478124730_ - _tl124477124732_)) + _tl124460124680_)) + (___kont129479129480_ + _hd124482124734_ + _hd124473124710_ + _tl124453124653_ + _arg124459124672_) + (___match129580129581_ + _e124450124643_ + _hd124449124646_ + _tl124448124648_ + _e124462124675_ + _hd124461124678_ + _tl124460124680_ + _e124465124683_ + _hd124464124686_ + _tl124463124688_ + _e124468124691_ + _hd124467124694_ + _tl124466124696_ + _e124471124699_ + _hd124470124702_ + _tl124469124704_ + _e124474124707_ + _hd124473124710_ + _tl124472124712_ + _e124477124715_ + _hd124476124718_ + _tl124475124720_ + _e124480124723_ + _hd124479124726_ + _tl124478124728_ + _e124483124731_ + _hd124482124734_ + _tl124481124736_)) (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_))))) - (let () (declare (not safe)) (_g124393124517_))) - (let () (declare (not safe)) (_g124393124517_))))) + (_g124397124521_))))) + (let () (declare (not safe)) (_g124397124521_))) + (let () (declare (not safe)) (_g124397124521_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_))))) - (let () (declare (not safe)) (_g124393124517_))) - (let () (declare (not safe)) (_g124393124517_))) - (let () (declare (not safe)) (_g124393124517_))))) + (_g124397124521_))))) + (let () (declare (not safe)) (_g124397124521_))) + (let () (declare (not safe)) (_g124397124521_))) + (let () (declare (not safe)) (_g124397124521_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_)))))))) + (_g124397124521_)))))))) (let () (declare (not safe)) - (_loop124450124652_ _target124447124647_ '()))))) - (___match129494129495_ - (lambda (_e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_) - (letrec ((_loop124404124788_ - (lambda (_hd124402124791_ _arg124408124793_) + (_loop124454124656_ _target124451124651_ '()))))) + (___match129498129499_ + (lambda (_e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_) + (letrec ((_loop124408124792_ + (lambda (_hd124406124795_ _arg124412124797_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124402124791_)) - (let ((_e124405124796_ + (gx#stx-pair? _hd124406124795_)) + (let ((_e124409124800_ (let () (declare (not safe)) - (gx#stx-e _hd124402124791_)))) - (let ((_lp-tl124407124801_ + (gx#stx-e _hd124406124795_)))) + (let ((_lp-tl124411124805_ (let () (declare (not safe)) - (##cdr _e124405124796_))) - (_lp-hd124406124799_ + (##cdr _e124409124800_))) + (_lp-hd124410124803_ (let () (declare (not safe)) - (##car _e124405124796_)))) - (let ((__tmp130748 + (##car _e124409124800_)))) + (let ((__tmp130752 (let () (declare (not safe)) - (cons _lp-hd124406124799_ - _arg124408124793_)))) + (cons _lp-hd124410124803_ + _arg124412124797_)))) (declare (not safe)) - (_loop124404124788_ - _lp-tl124407124801_ - __tmp130748)))) - (let ((_arg124409124804_ - (reverse _arg124408124793_))) + (_loop124408124792_ + _lp-tl124411124805_ + __tmp130752)))) + (let ((_arg124413124808_ + (reverse _arg124412124797_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124398124780_)) - (let ((_e124412124807_ + (gx#stx-pair? _tl124402124784_)) + (let ((_e124416124811_ (let () (declare (not safe)) (gx#stx-e - _tl124398124780_)))) - (let ((_tl124410124812_ + _tl124402124784_)))) + (let ((_tl124414124816_ (let () (declare (not safe)) - (##cdr _e124412124807_))) - (_hd124411124810_ + (##cdr _e124416124811_))) + (_hd124415124814_ (let () (declare (not safe)) - (##car _e124412124807_)))) + (##car _e124416124811_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124411124810_)) - (let ((_e124415124815_ + _hd124415124814_)) + (let ((_e124419124819_ (let () (declare (not safe)) (gx#stx-e - _hd124411124810_)))) - (let ((_tl124413124820_ + _hd124415124814_)))) + (let ((_tl124417124824_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124415124815_))) - (_hd124414124818_ - (let () (declare (not safe)) (##car _e124415124815_)))) + (##cdr _e124419124819_))) + (_hd124418124822_ + (let () (declare (not safe)) (##car _e124419124819_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124414124818_)) + (gx#identifier? _hd124418124822_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd124414124818_)) + (gx#stx-eq? '%#call _hd124418124822_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124413124820_)) - (let ((_e124418124823_ + (gx#stx-pair? _tl124417124824_)) + (let ((_e124422124827_ (let () (declare (not safe)) - (gx#stx-e _tl124413124820_)))) - (let ((_tl124416124828_ + (gx#stx-e _tl124417124824_)))) + (let ((_tl124420124832_ (let () (declare (not safe)) - (##cdr _e124418124823_))) - (_hd124417124826_ + (##cdr _e124422124827_))) + (_hd124421124830_ (let () (declare (not safe)) - (##car _e124418124823_)))) + (##car _e124422124827_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124417124826_)) - (let ((_e124421124831_ + (gx#stx-pair? _hd124421124830_)) + (let ((_e124425124835_ (let () (declare (not safe)) - (gx#stx-e _hd124417124826_)))) - (let ((_tl124419124836_ + (gx#stx-e _hd124421124830_)))) + (let ((_tl124423124840_ (let () (declare (not safe)) - (##cdr _e124421124831_))) - (_hd124420124834_ + (##cdr _e124425124835_))) + (_hd124424124838_ (let () (declare (not safe)) - (##car _e124421124831_)))) + (##car _e124425124835_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124420124834_)) + _hd124424124838_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124420124834_)) + _hd124424124838_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124419124836_)) - (let ((_e124424124839_ + _tl124423124840_)) + (let ((_e124428124843_ (let () (declare (not safe)) (gx#stx-e - _tl124419124836_)))) - (let ((_tl124422124844_ + _tl124423124840_)))) + (let ((_tl124426124848_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124424124839_))) - (_hd124423124842_ - (let () (declare (not safe)) (##car _e124424124839_)))) + (##cdr _e124428124843_))) + (_hd124427124846_ + (let () (declare (not safe)) (##car _e124428124843_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124422124844_)) + (gx#stx-null? _tl124426124848_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl124416124828_)) - (let ((___splice129473129474_ + (gx#stx-pair/null? _tl124420124832_)) + (let ((___splice129477129478_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl124416124828_ + _tl124420124832_ '0)))) - (let ((_tl124427124849_ + (let ((_tl124431124853_ (let () (declare (not safe)) - (##vector-ref ___splice129473129474_ '1))) - (_target124425124847_ + (##vector-ref ___splice129477129478_ '1))) + (_target124429124851_ (let () (declare (not safe)) - (##vector-ref ___splice129473129474_ '0)))) + (##vector-ref ___splice129477129478_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124427124849_)) - (letrec ((_loop124428124852_ - (lambda (_hd124426124855_ - _xarg124432124857_) + (gx#stx-null? _tl124431124853_)) + (letrec ((_loop124432124856_ + (lambda (_hd124430124859_ + _xarg124436124861_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124426124855_)) - (let ((_e124429124860_ + _hd124430124859_)) + (let ((_e124433124864_ (let () (declare (not safe)) (gx#stx-e - _hd124426124855_)))) - (let ((_lp-tl124431124865_ + _hd124430124859_)))) + (let ((_lp-tl124435124869_ (let () (declare (not safe)) - (##cdr _e124429124860_))) - (_lp-hd124430124863_ + (##cdr _e124433124864_))) + (_lp-hd124434124867_ (let () (declare (not safe)) - (##car _e124429124860_)))) + (##car _e124433124864_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd124430124863_)) - (let ((_e124436124868_ + _lp-hd124434124867_)) + (let ((_e124440124872_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd124430124863_)))) - (let ((_tl124434124873_ - (let () (declare (not safe)) (##cdr _e124436124868_))) - (_hd124435124871_ + (gx#stx-e _lp-hd124434124867_)))) + (let ((_tl124438124877_ + (let () (declare (not safe)) (##cdr _e124440124872_))) + (_hd124439124875_ (let () (declare (not safe)) - (##car _e124436124868_)))) + (##car _e124440124872_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124435124871_)) + (gx#identifier? _hd124439124875_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124435124871_)) + (gx#stx-eq? '%#ref _hd124439124875_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124434124873_)) - (let ((_e124439124876_ + (gx#stx-pair? _tl124438124877_)) + (let ((_e124443124880_ (let () (declare (not safe)) - (gx#stx-e _tl124434124873_)))) - (let ((_tl124437124881_ + (gx#stx-e _tl124438124877_)))) + (let ((_tl124441124885_ (let () (declare (not safe)) - (##cdr _e124439124876_))) - (_hd124438124879_ + (##cdr _e124443124880_))) + (_hd124442124883_ (let () (declare (not safe)) - (##car _e124439124876_)))) + (##car _e124443124880_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124437124881_)) - (let ((__tmp130747 + (gx#stx-null? _tl124441124885_)) + (let ((__tmp130751 (let () (declare (not safe)) - (cons _hd124438124879_ - _xarg124432124857_)))) + (cons _hd124442124883_ + _xarg124436124861_)))) (declare (not safe)) - (_loop124428124852_ - _lp-tl124431124865_ - __tmp130747)) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg124433124884_ - (reverse _xarg124432124857_))) + (_loop124432124856_ + _lp-tl124435124869_ + __tmp130751)) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg124437124888_ + (reverse _xarg124436124861_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124410124812_)) - (___kont129469129470_ - _xarg124433124884_ - _hd124423124842_ - _arg124409124804_) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_))))))) + _tl124414124816_)) + (___kont129473129474_ + _xarg124437124888_ + _hd124427124846_ + _arg124413124808_) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_))))))) (let () (declare (not safe)) - (_loop124428124852_ - _target124425124847_ + (_loop124432124856_ + _target124429124851_ '()))) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_))))))) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_))))))) (let () (declare (not safe)) - (_loop124404124788_ _target124401124783_ '())))))) + (_loop124408124792_ _target124405124787_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129467129468_)) - (let ((_e124400124775_ + (gx#stx-pair? ___stx129471129472_)) + (let ((_e124404124779_ (let () (declare (not safe)) - (gx#stx-e ___stx129467129468_)))) - (let ((_tl124398124780_ + (gx#stx-e ___stx129471129472_)))) + (let ((_tl124402124784_ (let () (declare (not safe)) - (##cdr _e124400124775_))) - (_hd124399124778_ + (##cdr _e124404124779_))) + (_hd124403124782_ (let () (declare (not safe)) - (##car _e124400124775_)))) + (##car _e124404124779_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd124399124778_)) - (let ((___splice129471129472_ + (gx#stx-pair/null? _hd124403124782_)) + (let ((___splice129475129476_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd124399124778_ + _hd124403124782_ '0)))) - (let ((_tl124403124785_ + (let ((_tl124407124789_ (let () (declare (not safe)) - (##vector-ref ___splice129471129472_ '1))) - (_target124401124783_ + (##vector-ref ___splice129475129476_ '1))) + (_target124405124787_ (let () (declare (not safe)) (##vector-ref - ___splice129471129472_ + ___splice129475129476_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124403124785_)) - (___match129494129495_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_) - (___match129506129507_ - _e124400124775_ - _hd124399124778_ - _tl124398124780_ - ___splice129471129472_ - _target124401124783_ - _tl124403124785_)))) + (gx#stx-null? _tl124407124789_)) + (___match129498129499_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_) + (___match129510129511_ + _e124404124779_ + _hd124403124782_ + _tl124402124784_ + ___splice129475129476_ + _target124405124787_ + _tl124407124789_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124398124780_)) - (let ((_e124488124530_ + (gx#stx-pair? _tl124402124784_)) + (let ((_e124492124534_ (let () (declare (not safe)) - (gx#stx-e _tl124398124780_)))) - (let ((_tl124486124535_ + (gx#stx-e _tl124402124784_)))) + (let ((_tl124490124539_ (let () (declare (not safe)) - (##cdr _e124488124530_))) - (_hd124487124533_ + (##cdr _e124492124534_))) + (_hd124491124537_ (let () (declare (not safe)) - (##car _e124488124530_)))) + (##car _e124492124534_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124487124533_)) - (let ((_e124491124538_ + (gx#stx-pair? _hd124491124537_)) + (let ((_e124495124542_ (let () (declare (not safe)) - (gx#stx-e _hd124487124533_)))) - (let ((_tl124489124543_ + (gx#stx-e _hd124491124537_)))) + (let ((_tl124493124547_ (let () (declare (not safe)) - (##cdr _e124491124538_))) - (_hd124490124541_ + (##cdr _e124495124542_))) + (_hd124494124545_ (let () (declare (not safe)) - (##car _e124491124538_)))) + (##car _e124495124542_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124490124541_)) + _hd124494124545_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124490124541_)) + _hd124494124545_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124489124543_)) - (let ((_e124494124546_ + _tl124493124547_)) + (let ((_e124498124550_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124489124543_)))) - (let ((_tl124492124551_ - (let () (declare (not safe)) (##cdr _e124494124546_))) - (_hd124493124549_ - (let () (declare (not safe)) (##car _e124494124546_)))) + (gx#stx-e _tl124493124547_)))) + (let ((_tl124496124555_ + (let () (declare (not safe)) (##cdr _e124498124550_))) + (_hd124497124553_ + (let () (declare (not safe)) (##car _e124498124550_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124493124549_)) - (let ((_e124497124554_ + (gx#stx-pair? _hd124497124553_)) + (let ((_e124501124558_ (let () (declare (not safe)) - (gx#stx-e _hd124493124549_)))) - (let ((_tl124495124559_ + (gx#stx-e _hd124497124553_)))) + (let ((_tl124499124563_ (let () (declare (not safe)) - (##cdr _e124497124554_))) - (_hd124496124557_ + (##cdr _e124501124558_))) + (_hd124500124561_ (let () (declare (not safe)) - (##car _e124497124554_)))) + (##car _e124501124558_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124496124557_)) + (gx#identifier? _hd124500124561_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124496124557_)) + (gx#stx-eq? '%#ref _hd124500124561_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124495124559_)) - (let ((_e124500124562_ + (gx#stx-pair? _tl124499124563_)) + (let ((_e124504124566_ (let () (declare (not safe)) - (gx#stx-e _tl124495124559_)))) - (let ((_tl124498124567_ + (gx#stx-e _tl124499124563_)))) + (let ((_tl124502124571_ (let () (declare (not safe)) - (##cdr _e124500124562_))) - (_hd124499124565_ + (##cdr _e124504124566_))) + (_hd124503124569_ (let () (declare (not safe)) - (##car _e124500124562_)))) + (##car _e124504124566_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124498124567_)) + _tl124502124571_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124492124551_)) - (let ((_e124503124570_ + _tl124496124555_)) + (let ((_e124507124574_ (let () (declare (not safe)) (gx#stx-e - _tl124492124551_)))) - (let ((_tl124501124575_ + _tl124496124555_)))) + (let ((_tl124505124579_ (let () (declare (not safe)) - (##cdr _e124503124570_))) - (_hd124502124573_ + (##cdr _e124507124574_))) + (_hd124506124577_ (let () (declare (not safe)) - (##car _e124503124570_)))) + (##car _e124507124574_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124502124573_)) - (let ((_e124506124578_ + _hd124506124577_)) + (let ((_e124510124582_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124502124573_)))) - (let ((_tl124504124583_ + (gx#stx-e _hd124506124577_)))) + (let ((_tl124508124587_ (let () (declare (not safe)) - (##cdr _e124506124578_))) - (_hd124505124581_ + (##cdr _e124510124582_))) + (_hd124509124585_ (let () (declare (not safe)) - (##car _e124506124578_)))) + (##car _e124510124582_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124505124581_)) + (gx#identifier? _hd124509124585_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124505124581_)) + (gx#stx-eq? '%#ref _hd124509124585_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124504124583_)) - (let ((_e124509124586_ + (gx#stx-pair? _tl124508124587_)) + (let ((_e124513124590_ (let () (declare (not safe)) - (gx#stx-e _tl124504124583_)))) - (let ((_tl124507124591_ + (gx#stx-e _tl124508124587_)))) + (let ((_tl124511124595_ (let () (declare (not safe)) - (##cdr _e124509124586_))) - (_hd124508124589_ + (##cdr _e124513124590_))) + (_hd124512124593_ (let () (declare (not safe)) - (##car _e124509124586_)))) + (##car _e124513124590_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124507124591_)) + (gx#stx-null? _tl124511124595_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124501124575_)) - (let ((_e124512124594_ + _tl124505124579_)) + (let ((_e124516124598_ (let () (declare (not safe)) (gx#stx-e - _tl124501124575_)))) - (let ((_tl124510124599_ + _tl124505124579_)))) + (let ((_tl124514124603_ (let () (declare (not safe)) - (##cdr _e124512124594_))) - (_hd124511124597_ + (##cdr _e124516124598_))) + (_hd124515124601_ (let () (declare (not safe)) - (##car _e124512124594_)))) + (##car _e124516124598_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124510124599_)) + _tl124514124603_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124486124535_)) - (___kont129479129480_ - _hd124508124589_ - _hd124499124565_ - _hd124399124778_) + _tl124490124539_)) + (___kont129483129484_ + _hd124512124593_ + _hd124503124569_ + _hd124403124782_) (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_))) - (let () (declare (not safe)) (_g124393124517_))) - (let () (declare (not safe)) (_g124393124517_))))) - (let () (declare (not safe)) (_g124393124517_))))) + (_g124397124521_))) + (let () (declare (not safe)) (_g124397124521_))) + (let () (declare (not safe)) (_g124397124521_))))) + (let () (declare (not safe)) (_g124397124521_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))))) - (let () (declare (not safe)) (_g124393124517_))))) - (let () (declare (not safe)) (_g124393124517_))) + (_g124397124521_))))) + (let () (declare (not safe)) (_g124397124521_))))) + (let () (declare (not safe)) (_g124397124521_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g124393124517_))) + (_g124397124521_))) (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_))))) + (_g124397124521_))))) (let () (declare (not safe)) - (_g124393124517_)))))) - (let () (declare (not safe)) (_g124393124517_)))))))) + (_g124397124521_)))))) + (let () (declare (not safe)) (_g124397124521_)))))))) (define gxc#lambda-form-arity - (lambda (_form124193_) - (let* ((_g124195124209_ - (lambda (_g124196124206_) + (lambda (_form124197_) + (let* ((_g124199124213_ + (lambda (_g124200124210_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124196124206_)))) - (_g124194124386_ - (lambda (_g124196124212_) + _g124200124210_)))) + (_g124198124390_ + (lambda (_g124200124216_) (if (let () (declare (not safe)) - (gx#stx-pair? _g124196124212_)) - (let ((_e124201124214_ + (gx#stx-pair? _g124200124216_)) + (let ((_e124205124218_ (let () (declare (not safe)) - (gx#stx-e _g124196124212_)))) - (let ((_hd124200124217_ + (gx#stx-e _g124200124216_)))) + (let ((_hd124204124221_ (let () (declare (not safe)) - (##car _e124201124214_))) - (_tl124199124219_ + (##car _e124205124218_))) + (_tl124203124223_ (let () (declare (not safe)) - (##cdr _e124201124214_)))) + (##cdr _e124205124218_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124199124219_)) - (let ((_e124204124222_ + (gx#stx-pair? _tl124203124223_)) + (let ((_e124208124226_ (let () (declare (not safe)) - (gx#stx-e _tl124199124219_)))) - (let ((_hd124203124225_ + (gx#stx-e _tl124203124223_)))) + (let ((_hd124207124229_ (let () (declare (not safe)) - (##car _e124204124222_))) - (_tl124202124227_ + (##car _e124208124226_))) + (_tl124206124231_ (let () (declare (not safe)) - (##cdr _e124204124222_)))) + (##cdr _e124208124226_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124202124227_)) - ((lambda (_L124230_ _L124231_) - (let* ((___stx129589129590_ _L124231_) - (_g124246124274_ + (gx#stx-null? _tl124206124231_)) + ((lambda (_L124234_ _L124235_) + (let* ((___stx129593129594_ _L124235_) + (_g124250124278_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129589129590_))))) - (let ((___kont129591129592_ - (lambda (_L124365_) - (length (let ((__tmp130749 + ___stx129593129594_))))) + (let ((___kont129595129596_ + (lambda (_L124369_) + (length (let ((__tmp130753 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124375124378_ _g124376124380_) + (lambda (_g124379124382_ _g124380124384_) (let () (declare (not safe)) - (cons _g124375124378_ _g124376124380_))))) + (cons _g124379124382_ _g124380124384_))))) (declare (not safe)) - (foldr1 __tmp130749 '() _L124365_))))) + (foldr1 __tmp130753 '() _L124369_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129595129596_ - (lambda (_L124316_ _L124317_) - (let ((__tmp130750 - (length (let ((__tmp130751 + (___kont129599129600_ + (lambda (_L124320_ _L124321_) + (let ((__tmp130754 + (length (let ((__tmp130755 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124328124331_ _g124329124333_) + (lambda (_g124332124335_ _g124333124337_) (let () (declare (not safe)) - (cons _g124328124331_ - _g124329124333_))))) + (cons _g124332124335_ + _g124333124337_))))) (declare (not safe)) - (foldr1 __tmp130751 '() _L124317_))))) + (foldr1 __tmp130755 '() _L124321_))))) (declare (not safe)) - (cons __tmp130750 '())))) + (cons __tmp130754 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129599129600_ - (lambda (_L124279_) + (___kont129603129604_ + (lambda (_L124283_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match129614129615_ - (lambda (___splice129597129598_ - _target124260124292_ - _tl124262124294_) - (letrec ((_loop124263124297_ + (let* ((___match129618129619_ + (lambda (___splice129601129602_ + _target124264124296_ + _tl124266124298_) + (letrec ((_loop124267124301_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd124261124300_ _arg124267124302_) + (lambda (_hd124265124304_ _arg124271124306_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124261124300_)) - (let ((_e124264124305_ + (gx#stx-pair? _hd124265124304_)) + (let ((_e124268124309_ (let () (declare (not safe)) - (gx#stx-e _hd124261124300_)))) - (let ((_lp-tl124266124310_ + (gx#stx-e _hd124265124304_)))) + (let ((_lp-tl124270124314_ (let () (declare (not safe)) - (##cdr _e124264124305_))) - (_lp-hd124265124308_ + (##cdr _e124268124309_))) + (_lp-hd124269124312_ (let () (declare (not safe)) - (##car _e124264124305_)))) - (let ((__tmp130752 + (##car _e124268124309_)))) + (let ((__tmp130756 (let () (declare (not safe)) - (cons _lp-hd124265124308_ - _arg124267124302_)))) + (cons _lp-hd124269124312_ + _arg124271124306_)))) (declare (not safe)) - (_loop124263124297_ - _lp-tl124266124310_ - __tmp130752)))) - (let ((_arg124268124313_ - (reverse _arg124267124302_))) - (___kont129595129596_ - _tl124262124294_ - _arg124268124313_)))))) + (_loop124267124301_ + _lp-tl124270124314_ + __tmp130756)))) + (let ((_arg124272124317_ + (reverse _arg124271124306_))) + (___kont129599129600_ + _tl124266124298_ + _arg124272124317_)))))) (let () (declare (not safe)) - (_loop124263124297_ _target124260124292_ '()))))) + (_loop124267124301_ _target124264124296_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129608129609_ - (lambda (___splice129593129594_ - _target124249124341_ - _tl124251124343_) - (letrec ((_loop124252124346_ + (___match129612129613_ + (lambda (___splice129597129598_ + _target124253124345_ + _tl124255124347_) + (letrec ((_loop124256124350_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd124250124349_ _arg124256124351_) + (lambda (_hd124254124353_ _arg124260124355_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124250124349_)) - (let ((_e124253124354_ + (gx#stx-pair? _hd124254124353_)) + (let ((_e124257124358_ (let () (declare (not safe)) - (gx#stx-e _hd124250124349_)))) - (let ((_lp-tl124255124359_ + (gx#stx-e _hd124254124353_)))) + (let ((_lp-tl124259124363_ (let () (declare (not safe)) - (##cdr _e124253124354_))) - (_lp-hd124254124357_ + (##cdr _e124257124358_))) + (_lp-hd124258124361_ (let () (declare (not safe)) - (##car _e124253124354_)))) - (let ((__tmp130753 + (##car _e124257124358_)))) + (let ((__tmp130757 (let () (declare (not safe)) - (cons _lp-hd124254124357_ - _arg124256124351_)))) + (cons _lp-hd124258124361_ + _arg124260124355_)))) (declare (not safe)) - (_loop124252124346_ - _lp-tl124255124359_ - __tmp130753)))) - (let ((_arg124257124362_ - (reverse _arg124256124351_))) - (___kont129591129592_ _arg124257124362_)))))) + (_loop124256124350_ + _lp-tl124259124363_ + __tmp130757)))) + (let ((_arg124261124366_ + (reverse _arg124260124355_))) + (___kont129595129596_ _arg124261124366_)))))) (let () (declare (not safe)) - (_loop124252124346_ _target124249124341_ '())))))) + (_loop124256124350_ _target124253124345_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx129589129590_)) - (let ((___splice129593129594_ + ___stx129593129594_)) + (let ((___splice129597129598_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx129589129590_ + ___stx129593129594_ '0)))) - (let ((_tl124251124343_ + (let ((_tl124255124347_ (let () (declare (not safe)) (##vector-ref - ___splice129593129594_ + ___splice129597129598_ '1))) - (_target124249124341_ + (_target124253124345_ (let () (declare (not safe)) (##vector-ref - ___splice129593129594_ + ___splice129597129598_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124251124343_)) - (___match129608129609_ - ___splice129593129594_ - _target124249124341_ - _tl124251124343_) - (___match129614129615_ - ___splice129593129594_ - _target124249124341_ - _tl124251124343_)))) - (___kont129599129600_ - ___stx129589129590_)))))) - _hd124203124225_ - _hd124200124217_) + _tl124255124347_)) + (___match129612129613_ + ___splice129597129598_ + _target124253124345_ + _tl124255124347_) + (___match129618129619_ + ___splice129597129598_ + _target124253124345_ + _tl124255124347_)))) + (___kont129603129604_ + ___stx129593129594_)))))) + _hd124207124229_ + _hd124204124221_) (let () (declare (not safe)) - (_g124195124209_ _g124196124212_))))) + (_g124199124213_ _g124200124216_))))) (let () (declare (not safe)) - (_g124195124209_ _g124196124212_))))) + (_g124199124213_ _g124200124216_))))) (let () (declare (not safe)) - (_g124195124209_ _g124196124212_)))))) + (_g124199124213_ _g124200124216_)))))) (declare (not safe)) - (_g124194124386_ _form124193_)))) + (_g124198124390_ _form124197_)))) (define gxc#lambda-expr? - (lambda (_expr124146_) - (let* ((___stx129617129618_ _expr124146_) - (_g124149124159_ + (lambda (_expr124150_) + (let* ((___stx129621129622_ _expr124150_) + (_g124153124163_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129617129618_))))) - (let ((___kont129619129620_ (lambda (_L124179_) '#t)) - (___kont129621129622_ (lambda () '#f))) + ___stx129621129622_))))) + (let ((___kont129623129624_ (lambda (_L124183_) '#t)) + (___kont129625129626_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129617129618_)) - (let ((_e124154124171_ + (gx#stx-pair? ___stx129621129622_)) + (let ((_e124158124175_ (let () (declare (not safe)) - (gx#stx-e ___stx129617129618_)))) - (let ((_tl124152124176_ - (let () (declare (not safe)) (##cdr _e124154124171_))) - (_hd124153124174_ + (gx#stx-e ___stx129621129622_)))) + (let ((_tl124156124180_ + (let () (declare (not safe)) (##cdr _e124158124175_))) + (_hd124157124178_ (let () (declare (not safe)) - (##car _e124154124171_)))) + (##car _e124158124175_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124153124174_)) + (gx#identifier? _hd124157124178_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd124153124174_)) - (___kont129619129620_ _tl124152124176_) - (___kont129621129622_)) - (___kont129621129622_)))) - (___kont129621129622_)))))) + (gx#stx-eq? '%#lambda _hd124157124178_)) + (___kont129623129624_ _tl124156124180_) + (___kont129625129626_)) + (___kont129625129626_)))) + (___kont129625129626_)))))) (define gxc#case-lambda-expr? - (lambda (_expr124099_) - (let* ((___stx129635129636_ _expr124099_) - (_g124102124112_ + (lambda (_expr124103_) + (let* ((___stx129639129640_ _expr124103_) + (_g124106124116_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129635129636_))))) - (let ((___kont129637129638_ (lambda (_L124132_) '#t)) - (___kont129639129640_ (lambda () '#f))) + ___stx129639129640_))))) + (let ((___kont129641129642_ (lambda (_L124136_) '#t)) + (___kont129643129644_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129635129636_)) - (let ((_e124107124124_ + (gx#stx-pair? ___stx129639129640_)) + (let ((_e124111124128_ (let () (declare (not safe)) - (gx#stx-e ___stx129635129636_)))) - (let ((_tl124105124129_ - (let () (declare (not safe)) (##cdr _e124107124124_))) - (_hd124106124127_ + (gx#stx-e ___stx129639129640_)))) + (let ((_tl124109124133_ + (let () (declare (not safe)) (##cdr _e124111124128_))) + (_hd124110124131_ (let () (declare (not safe)) - (##car _e124107124124_)))) + (##car _e124111124128_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124106124127_)) + (gx#identifier? _hd124110124131_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd124106124127_)) - (___kont129637129638_ _tl124105124129_) - (___kont129639129640_)) - (___kont129639129640_)))) - (___kont129639129640_)))))) + (gx#stx-eq? '%#case-lambda _hd124110124131_)) + (___kont129641129642_ _tl124109124133_) + (___kont129643129644_)) + (___kont129643129644_)))) + (___kont129643129644_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr123968_) - (let* ((___stx129653129654_ _expr123968_) - (_g123971124001_ + (lambda (_expr123972_) + (let* ((___stx129657129658_ _expr123972_) + (_g123975124005_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129653129654_))))) - (let ((___kont129655129656_ - (lambda (_L124069_ _L124070_ _L124071_) - (if (let () (declare (not safe)) (gx#identifier? _L124071_)) + ___stx129657129658_))))) + (let ((___kont129659129660_ + (lambda (_L124073_ _L124074_ _L124075_) + (if (let () (declare (not safe)) (gx#identifier? _L124075_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L124070_)) + (gxc#lambda-expr? _L124074_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L124069_)) + (gxc#case-lambda-expr? _L124073_)) '#f) '#f))) - (___kont129657129658_ (lambda () '#f))) + (___kont129661129662_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129653129654_)) - (let ((_e123978124013_ + (gx#stx-pair? ___stx129657129658_)) + (let ((_e123982124017_ (let () (declare (not safe)) - (gx#stx-e ___stx129653129654_)))) - (let ((_tl123976124018_ - (let () (declare (not safe)) (##cdr _e123978124013_))) - (_hd123977124016_ + (gx#stx-e ___stx129657129658_)))) + (let ((_tl123980124022_ + (let () (declare (not safe)) (##cdr _e123982124017_))) + (_hd123981124020_ (let () (declare (not safe)) - (##car _e123978124013_)))) + (##car _e123982124017_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123977124016_)) + (gx#identifier? _hd123981124020_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd123977124016_)) + (gx#stx-eq? '%#let-values _hd123981124020_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123976124018_)) - (let ((_e123981124021_ + (gx#stx-pair? _tl123980124022_)) + (let ((_e123985124025_ (let () (declare (not safe)) - (gx#stx-e _tl123976124018_)))) - (let ((_tl123979124026_ + (gx#stx-e _tl123980124022_)))) + (let ((_tl123983124030_ (let () (declare (not safe)) - (##cdr _e123981124021_))) - (_hd123980124024_ + (##cdr _e123985124025_))) + (_hd123984124028_ (let () (declare (not safe)) - (##car _e123981124021_)))) + (##car _e123985124025_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123980124024_)) - (let ((_e123984124029_ + (gx#stx-pair? _hd123984124028_)) + (let ((_e123988124033_ (let () (declare (not safe)) - (gx#stx-e _hd123980124024_)))) - (let ((_tl123982124034_ + (gx#stx-e _hd123984124028_)))) + (let ((_tl123986124038_ (let () (declare (not safe)) - (##cdr _e123984124029_))) - (_hd123983124032_ + (##cdr _e123988124033_))) + (_hd123987124036_ (let () (declare (not safe)) - (##car _e123984124029_)))) + (##car _e123988124033_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123983124032_)) - (let ((_e123987124037_ + _hd123987124036_)) + (let ((_e123991124041_ (let () (declare (not safe)) (gx#stx-e - _hd123983124032_)))) - (let ((_tl123985124042_ + _hd123987124036_)))) + (let ((_tl123989124046_ (let () (declare (not safe)) - (##cdr _e123987124037_))) - (_hd123986124040_ + (##cdr _e123991124041_))) + (_hd123990124044_ (let () (declare (not safe)) - (##car _e123987124037_)))) + (##car _e123991124041_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123986124040_)) - (let ((_e123990124045_ + _hd123990124044_)) + (let ((_e123994124049_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd123986124040_)))) - (let ((_tl123988124050_ - (let () (declare (not safe)) (##cdr _e123990124045_))) - (_hd123989124048_ + (gx#stx-e _hd123990124044_)))) + (let ((_tl123992124054_ + (let () (declare (not safe)) (##cdr _e123994124049_))) + (_hd123993124052_ (let () (declare (not safe)) - (##car _e123990124045_)))) + (##car _e123994124049_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123988124050_)) + (gx#stx-null? _tl123992124054_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123985124042_)) - (let ((_e123993124053_ + (gx#stx-pair? _tl123989124046_)) + (let ((_e123997124057_ (let () (declare (not safe)) - (gx#stx-e _tl123985124042_)))) - (let ((_tl123991124058_ + (gx#stx-e _tl123989124046_)))) + (let ((_tl123995124062_ (let () (declare (not safe)) - (##cdr _e123993124053_))) - (_hd123992124056_ + (##cdr _e123997124057_))) + (_hd123996124060_ (let () (declare (not safe)) - (##car _e123993124053_)))) + (##car _e123997124057_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123991124058_)) + (gx#stx-null? _tl123995124062_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123982124034_)) + (gx#stx-null? _tl123986124038_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123979124026_)) - (let ((_e123996124061_ + (gx#stx-pair? _tl123983124030_)) + (let ((_e124000124065_ (let () (declare (not safe)) (gx#stx-e - _tl123979124026_)))) - (let ((_tl123994124066_ + _tl123983124030_)))) + (let ((_tl123998124070_ (let () (declare (not safe)) - (##cdr _e123996124061_))) - (_hd123995124064_ + (##cdr _e124000124065_))) + (_hd123999124068_ (let () (declare (not safe)) - (##car _e123996124061_)))) + (##car _e124000124065_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123994124066_)) - (___kont129655129656_ - _hd123995124064_ - _hd123992124056_ - _hd123989124048_) - (___kont129657129658_)))) - (___kont129657129658_)) - (___kont129657129658_)) - (___kont129657129658_)))) - (___kont129657129658_)) - (___kont129657129658_)))) - (___kont129657129658_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129657129658_)))) - (___kont129657129658_)))) - (___kont129657129658_)) - (___kont129657129658_)) - (___kont129657129658_)))) - (___kont129657129658_)))))) + _tl123998124070_)) + (___kont129659129660_ + _hd123999124068_ + _hd123996124060_ + _hd123993124052_) + (___kont129661129662_)))) + (___kont129661129662_)) + (___kont129661129662_)) + (___kont129661129662_)))) + (___kont129661129662_)) + (___kont129661129662_)))) + (___kont129661129662_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129661129662_)))) + (___kont129661129662_)))) + (___kont129661129662_)) + (___kont129661129662_)) + (___kont129661129662_)))) + (___kont129661129662_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr123293_) - (let* ((___stx129715129716_ _expr123293_) - (_g123296123454_ + (lambda (_expr123297_) + (let* ((___stx129719129720_ _expr123297_) + (_g123300123458_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129715129716_))))) - (let ((___kont129717129718_ - (lambda (_L123842_ - _L123843_ - _L123844_ - _L123845_ - _L123846_ + ___stx129719129720_))))) + (let ((___kont129721129722_ + (lambda (_L123846_ _L123847_ _L123848_ _L123849_ _L123850_ _L123851_ - _L123852_) + _L123852_ + _L123853_ + _L123854_ + _L123855_ + _L123856_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123849_ 'apply)) + (gxc#runtime-identifier=? _L123853_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123845_ 'apply)) + (gxc#runtime-identifier=? _L123849_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L123844_ + _L123848_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L123852_ - _L123843_)) + _L123856_ + _L123847_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L123851_ - _L123848_)) + _L123855_ + _L123852_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L123846_ - _L123842_)) + _L123850_ + _L123846_)) (let () (declare (not safe)) (gx#free-identifier=? - _L123850_ - _L123847_)) + _L123854_ + _L123851_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont129719129720_ (lambda () '#f))) + (___kont129723129724_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129715129716_)) - (let ((_e123311123466_ + (gx#stx-pair? ___stx129719129720_)) + (let ((_e123315123470_ (let () (declare (not safe)) - (gx#stx-e ___stx129715129716_)))) - (let ((_tl123309123471_ - (let () (declare (not safe)) (##cdr _e123311123466_))) - (_hd123310123469_ + (gx#stx-e ___stx129719129720_)))) + (let ((_tl123313123475_ + (let () (declare (not safe)) (##cdr _e123315123470_))) + (_hd123314123473_ (let () (declare (not safe)) - (##car _e123311123466_)))) + (##car _e123315123470_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123310123469_)) + (gx#identifier? _hd123314123473_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd123310123469_)) + (gx#stx-eq? '%#let-values _hd123314123473_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123309123471_)) - (let ((_e123314123474_ + (gx#stx-pair? _tl123313123475_)) + (let ((_e123318123478_ (let () (declare (not safe)) - (gx#stx-e _tl123309123471_)))) - (let ((_tl123312123479_ + (gx#stx-e _tl123313123475_)))) + (let ((_tl123316123483_ (let () (declare (not safe)) - (##cdr _e123314123474_))) - (_hd123313123477_ + (##cdr _e123318123478_))) + (_hd123317123481_ (let () (declare (not safe)) - (##car _e123314123474_)))) + (##car _e123318123478_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123313123477_)) - (let ((_e123317123482_ + (gx#stx-pair? _hd123317123481_)) + (let ((_e123321123486_ (let () (declare (not safe)) - (gx#stx-e _hd123313123477_)))) - (let ((_tl123315123487_ + (gx#stx-e _hd123317123481_)))) + (let ((_tl123319123491_ (let () (declare (not safe)) - (##cdr _e123317123482_))) - (_hd123316123485_ + (##cdr _e123321123486_))) + (_hd123320123489_ (let () (declare (not safe)) - (##car _e123317123482_)))) + (##car _e123321123486_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123316123485_)) - (let ((_e123320123490_ + _hd123320123489_)) + (let ((_e123324123494_ (let () (declare (not safe)) (gx#stx-e - _hd123316123485_)))) - (let ((_tl123318123495_ + _hd123320123489_)))) + (let ((_tl123322123499_ (let () (declare (not safe)) - (##cdr _e123320123490_))) - (_hd123319123493_ + (##cdr _e123324123494_))) + (_hd123323123497_ (let () (declare (not safe)) - (##car _e123320123490_)))) + (##car _e123324123494_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123319123493_)) - (let ((_e123323123498_ + _hd123323123497_)) + (let ((_e123327123502_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd123319123493_)))) - (let ((_tl123321123503_ - (let () (declare (not safe)) (##cdr _e123323123498_))) - (_hd123322123501_ + (gx#stx-e _hd123323123497_)))) + (let ((_tl123325123507_ + (let () (declare (not safe)) (##cdr _e123327123502_))) + (_hd123326123505_ (let () (declare (not safe)) - (##car _e123323123498_)))) + (##car _e123327123502_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123321123503_)) + (gx#stx-null? _tl123325123507_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123318123495_)) - (let ((_e123326123506_ + (gx#stx-pair? _tl123322123499_)) + (let ((_e123330123510_ (let () (declare (not safe)) - (gx#stx-e _tl123318123495_)))) - (let ((_tl123324123511_ + (gx#stx-e _tl123322123499_)))) + (let ((_tl123328123515_ (let () (declare (not safe)) - (##cdr _e123326123506_))) - (_hd123325123509_ + (##cdr _e123330123510_))) + (_hd123329123513_ (let () (declare (not safe)) - (##car _e123326123506_)))) + (##car _e123330123510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123325123509_)) - (let ((_e123329123514_ + (gx#stx-pair? _hd123329123513_)) + (let ((_e123333123518_ (let () (declare (not safe)) - (gx#stx-e _hd123325123509_)))) - (let ((_tl123327123519_ + (gx#stx-e _hd123329123513_)))) + (let ((_tl123331123523_ (let () (declare (not safe)) - (##cdr _e123329123514_))) - (_hd123328123517_ + (##cdr _e123333123518_))) + (_hd123332123521_ (let () (declare (not safe)) - (##car _e123329123514_)))) + (##car _e123333123518_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123328123517_)) + _hd123332123521_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd123328123517_)) + _hd123332123521_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123327123519_)) - (let ((_e123332123522_ + _tl123331123523_)) + (let ((_e123336123526_ (let () (declare (not safe)) (gx#stx-e - _tl123327123519_)))) - (let ((_tl123330123527_ + _tl123331123523_)))) + (let ((_tl123334123531_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123332123522_))) - (_hd123331123525_ - (let () (declare (not safe)) (##car _e123332123522_)))) + (##cdr _e123336123526_))) + (_hd123335123529_ + (let () (declare (not safe)) (##car _e123336123526_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123331123525_)) - (let ((_e123335123530_ + (gx#stx-pair? _hd123335123529_)) + (let ((_e123339123534_ (let () (declare (not safe)) - (gx#stx-e _hd123331123525_)))) - (let ((_tl123333123535_ + (gx#stx-e _hd123335123529_)))) + (let ((_tl123337123539_ (let () (declare (not safe)) - (##cdr _e123335123530_))) - (_hd123334123533_ + (##cdr _e123339123534_))) + (_hd123338123537_ (let () (declare (not safe)) - (##car _e123335123530_)))) + (##car _e123339123534_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123334123533_)) - (let ((_e123338123538_ + (gx#stx-pair? _hd123338123537_)) + (let ((_e123342123542_ (let () (declare (not safe)) - (gx#stx-e _hd123334123533_)))) - (let ((_tl123336123543_ + (gx#stx-e _hd123338123537_)))) + (let ((_tl123340123547_ (let () (declare (not safe)) - (##cdr _e123338123538_))) - (_hd123337123541_ + (##cdr _e123342123542_))) + (_hd123341123545_ (let () (declare (not safe)) - (##car _e123338123538_)))) + (##car _e123342123542_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123337123541_)) - (let ((_e123341123546_ + (gx#stx-pair? _hd123341123545_)) + (let ((_e123345123550_ (let () (declare (not safe)) - (gx#stx-e _hd123337123541_)))) - (let ((_tl123339123551_ + (gx#stx-e _hd123341123545_)))) + (let ((_tl123343123555_ (let () (declare (not safe)) - (##cdr _e123341123546_))) - (_hd123340123549_ + (##cdr _e123345123550_))) + (_hd123344123553_ (let () (declare (not safe)) - (##car _e123341123546_)))) + (##car _e123345123550_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123339123551_)) + (gx#stx-null? _tl123343123555_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123336123543_)) - (let ((_e123344123554_ + _tl123340123547_)) + (let ((_e123348123558_ (let () (declare (not safe)) (gx#stx-e - _tl123336123543_)))) - (let ((_tl123342123559_ + _tl123340123547_)))) + (let ((_tl123346123563_ (let () (declare (not safe)) - (##cdr _e123344123554_))) - (_hd123343123557_ + (##cdr _e123348123558_))) + (_hd123347123561_ (let () (declare (not safe)) - (##car _e123344123554_)))) + (##car _e123348123558_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123342123559_)) + _tl123346123563_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123333123535_)) + _tl123337123539_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl123330123527_)) - (let ((_e123347123562_ + (gx#stx-pair? _tl123334123531_)) + (let ((_e123351123566_ (let () (declare (not safe)) - (gx#stx-e _tl123330123527_)))) - (let ((_tl123345123567_ + (gx#stx-e _tl123334123531_)))) + (let ((_tl123349123571_ (let () (declare (not safe)) - (##cdr _e123347123562_))) - (_hd123346123565_ + (##cdr _e123351123566_))) + (_hd123350123569_ (let () (declare (not safe)) - (##car _e123347123562_)))) + (##car _e123351123566_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123346123565_)) - (let ((_e123350123570_ + (gx#stx-pair? _hd123350123569_)) + (let ((_e123354123574_ (let () (declare (not safe)) - (gx#stx-e _hd123346123565_)))) - (let ((_tl123348123575_ + (gx#stx-e _hd123350123569_)))) + (let ((_tl123352123579_ (let () (declare (not safe)) - (##cdr _e123350123570_))) - (_hd123349123573_ + (##cdr _e123354123574_))) + (_hd123353123577_ (let () (declare (not safe)) - (##car _e123350123570_)))) + (##car _e123354123574_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123349123573_)) + (gx#identifier? _hd123353123577_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd123349123573_)) + _hd123353123577_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123348123575_)) - (let ((_e123353123578_ + _tl123352123579_)) + (let ((_e123357123582_ (let () (declare (not safe)) (gx#stx-e - _tl123348123575_)))) - (let ((_tl123351123583_ + _tl123352123579_)))) + (let ((_tl123355123587_ (let () (declare (not safe)) - (##cdr _e123353123578_))) - (_hd123352123581_ + (##cdr _e123357123582_))) + (_hd123356123585_ (let () (declare (not safe)) - (##car _e123353123578_)))) + (##car _e123357123582_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123352123581_)) - (let ((_e123356123586_ + _hd123356123585_)) + (let ((_e123360123590_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd123352123581_)))) - (let ((_tl123354123591_ - (let () (declare (not safe)) (##cdr _e123356123586_))) - (_hd123355123589_ + (gx#stx-e _hd123356123585_)))) + (let ((_tl123358123595_ + (let () (declare (not safe)) (##cdr _e123360123590_))) + (_hd123359123593_ (let () (declare (not safe)) - (##car _e123356123586_)))) + (##car _e123360123590_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123351123583_)) - (let ((_e123359123594_ + (gx#stx-pair? _tl123355123587_)) + (let ((_e123363123598_ (let () (declare (not safe)) - (gx#stx-e _tl123351123583_)))) - (let ((_tl123357123599_ + (gx#stx-e _tl123355123587_)))) + (let ((_tl123361123603_ (let () (declare (not safe)) - (##cdr _e123359123594_))) - (_hd123358123597_ + (##cdr _e123363123598_))) + (_hd123362123601_ (let () (declare (not safe)) - (##car _e123359123594_)))) + (##car _e123363123598_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123358123597_)) - (let ((_e123362123602_ + (gx#stx-pair? _hd123362123601_)) + (let ((_e123366123606_ (let () (declare (not safe)) - (gx#stx-e _hd123358123597_)))) - (let ((_tl123360123607_ + (gx#stx-e _hd123362123601_)))) + (let ((_tl123364123611_ (let () (declare (not safe)) - (##cdr _e123362123602_))) - (_hd123361123605_ + (##cdr _e123366123606_))) + (_hd123365123609_ (let () (declare (not safe)) - (##car _e123362123602_)))) + (##car _e123366123606_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123361123605_)) + (gx#identifier? _hd123365123609_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd123361123605_)) + _hd123365123609_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123360123607_)) - (let ((_e123365123610_ + _tl123364123611_)) + (let ((_e123369123614_ (let () (declare (not safe)) (gx#stx-e - _tl123360123607_)))) - (let ((_tl123363123615_ + _tl123364123611_)))) + (let ((_tl123367123619_ (let () (declare (not safe)) - (##cdr _e123365123610_))) - (_hd123364123613_ + (##cdr _e123369123614_))) + (_hd123368123617_ (let () (declare (not safe)) - (##car _e123365123610_)))) + (##car _e123369123614_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123364123613_)) - (let ((_e123368123618_ + _hd123368123617_)) + (let ((_e123372123622_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd123364123613_)))) - (let ((_tl123366123623_ - (let () (declare (not safe)) (##cdr _e123368123618_))) - (_hd123367123621_ + (gx#stx-e _hd123368123617_)))) + (let ((_tl123370123627_ + (let () (declare (not safe)) (##cdr _e123372123622_))) + (_hd123371123625_ (let () (declare (not safe)) - (##car _e123368123618_)))) + (##car _e123372123622_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123367123621_)) + (gx#identifier? _hd123371123625_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123367123621_)) + (gx#stx-eq? '%#ref _hd123371123625_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123366123623_)) - (let ((_e123371123626_ + (gx#stx-pair? _tl123370123627_)) + (let ((_e123375123630_ (let () (declare (not safe)) - (gx#stx-e _tl123366123623_)))) - (let ((_tl123369123631_ + (gx#stx-e _tl123370123627_)))) + (let ((_tl123373123635_ (let () (declare (not safe)) - (##cdr _e123371123626_))) - (_hd123370123629_ + (##cdr _e123375123630_))) + (_hd123374123633_ (let () (declare (not safe)) - (##car _e123371123626_)))) + (##car _e123375123630_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123369123631_)) + (gx#stx-null? _tl123373123635_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123363123615_)) - (let ((_e123374123634_ + (gx#stx-pair? _tl123367123619_)) + (let ((_e123378123638_ (let () (declare (not safe)) (gx#stx-e - _tl123363123615_)))) - (let ((_tl123372123639_ + _tl123367123619_)))) + (let ((_tl123376123643_ (let () (declare (not safe)) - (##cdr _e123374123634_))) - (_hd123373123637_ + (##cdr _e123378123638_))) + (_hd123377123641_ (let () (declare (not safe)) - (##car _e123374123634_)))) + (##car _e123378123638_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123373123637_)) - (let ((_e123377123642_ + _hd123377123641_)) + (let ((_e123381123646_ (let () (declare (not safe)) (gx#stx-e - _hd123373123637_)))) - (let ((_tl123375123647_ + _hd123377123641_)))) + (let ((_tl123379123651_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123377123642_))) - (_hd123376123645_ - (let () (declare (not safe)) (##car _e123377123642_)))) + (##cdr _e123381123646_))) + (_hd123380123649_ + (let () (declare (not safe)) (##car _e123381123646_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123376123645_)) + (gx#identifier? _hd123380123649_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123376123645_)) + (gx#stx-eq? '%#ref _hd123380123649_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123375123647_)) - (let ((_e123380123650_ + (gx#stx-pair? _tl123379123651_)) + (let ((_e123384123654_ (let () (declare (not safe)) - (gx#stx-e _tl123375123647_)))) - (let ((_tl123378123655_ + (gx#stx-e _tl123379123651_)))) + (let ((_tl123382123659_ (let () (declare (not safe)) - (##cdr _e123380123650_))) - (_hd123379123653_ + (##cdr _e123384123654_))) + (_hd123383123657_ (let () (declare (not safe)) - (##car _e123380123650_)))) + (##car _e123384123654_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123378123655_)) + (gx#stx-null? _tl123382123659_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123372123639_)) - (let ((_e123383123658_ + (gx#stx-pair? _tl123376123643_)) + (let ((_e123387123662_ (let () (declare (not safe)) - (gx#stx-e _tl123372123639_)))) - (let ((_tl123381123663_ + (gx#stx-e _tl123376123643_)))) + (let ((_tl123385123667_ (let () (declare (not safe)) - (##cdr _e123383123658_))) - (_hd123382123661_ + (##cdr _e123387123662_))) + (_hd123386123665_ (let () (declare (not safe)) - (##car _e123383123658_)))) + (##car _e123387123662_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123382123661_)) - (let ((_e123386123666_ + _hd123386123665_)) + (let ((_e123390123670_ (let () (declare (not safe)) (gx#stx-e - _hd123382123661_)))) - (let ((_tl123384123671_ + _hd123386123665_)))) + (let ((_tl123388123675_ (let () (declare (not safe)) - (##cdr _e123386123666_))) - (_hd123385123669_ + (##cdr _e123390123670_))) + (_hd123389123673_ (let () (declare (not safe)) - (##car _e123386123666_)))) + (##car _e123390123670_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123385123669_)) + _hd123389123673_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123385123669_)) + _hd123389123673_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl123384123671_)) - (let ((_e123389123674_ + (gx#stx-pair? _tl123388123675_)) + (let ((_e123393123678_ (let () (declare (not safe)) - (gx#stx-e _tl123384123671_)))) - (let ((_tl123387123679_ + (gx#stx-e _tl123388123675_)))) + (let ((_tl123391123683_ (let () (declare (not safe)) - (##cdr _e123389123674_))) - (_hd123388123677_ + (##cdr _e123393123678_))) + (_hd123392123681_ (let () (declare (not safe)) - (##car _e123389123674_)))) + (##car _e123393123678_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123387123679_)) + (gx#stx-null? _tl123391123683_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123357123599_)) + (gx#stx-null? _tl123361123603_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123345123567_)) + (gx#stx-null? _tl123349123571_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123324123511_)) + (gx#stx-null? _tl123328123515_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123315123487_)) + _tl123319123491_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123312123479_)) - (let ((_e123392123682_ + _tl123316123483_)) + (let ((_e123396123686_ (let () (declare (not safe)) (gx#stx-e - _tl123312123479_)))) - (let ((_tl123390123687_ + _tl123316123483_)))) + (let ((_tl123394123691_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123392123682_))) - (_hd123391123685_ - (let () (declare (not safe)) (##car _e123392123682_)))) + (##cdr _e123396123686_))) + (_hd123395123689_ + (let () (declare (not safe)) (##car _e123396123686_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123391123685_)) - (let ((_e123395123690_ + (gx#stx-pair? _hd123395123689_)) + (let ((_e123399123694_ (let () (declare (not safe)) - (gx#stx-e _hd123391123685_)))) - (let ((_tl123393123695_ + (gx#stx-e _hd123395123689_)))) + (let ((_tl123397123699_ (let () (declare (not safe)) - (##cdr _e123395123690_))) - (_hd123394123693_ + (##cdr _e123399123694_))) + (_hd123398123697_ (let () (declare (not safe)) - (##car _e123395123690_)))) + (##car _e123399123694_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123394123693_)) + (gx#identifier? _hd123398123697_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd123394123693_)) + (gx#stx-eq? '%#lambda _hd123398123697_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123393123695_)) - (let ((_e123398123698_ + (gx#stx-pair? _tl123397123699_)) + (let ((_e123402123702_ (let () (declare (not safe)) - (gx#stx-e _tl123393123695_)))) - (let ((_tl123396123703_ + (gx#stx-e _tl123397123699_)))) + (let ((_tl123400123707_ (let () (declare (not safe)) - (##cdr _e123398123698_))) - (_hd123397123701_ + (##cdr _e123402123702_))) + (_hd123401123705_ (let () (declare (not safe)) - (##car _e123398123698_)))) + (##car _e123402123702_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123396123703_)) - (let ((_e123401123706_ + (gx#stx-pair? _tl123400123707_)) + (let ((_e123405123710_ (let () (declare (not safe)) (gx#stx-e - _tl123396123703_)))) - (let ((_tl123399123711_ + _tl123400123707_)))) + (let ((_tl123403123715_ (let () (declare (not safe)) - (##cdr _e123401123706_))) - (_hd123400123709_ + (##cdr _e123405123710_))) + (_hd123404123713_ (let () (declare (not safe)) - (##car _e123401123706_)))) + (##car _e123405123710_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123400123709_)) - (let ((_e123404123714_ + _hd123404123713_)) + (let ((_e123408123718_ (let () (declare (not safe)) (gx#stx-e - _hd123400123709_)))) - (let ((_tl123402123719_ + _hd123404123713_)))) + (let ((_tl123406123723_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123404123714_))) - (_hd123403123717_ - (let () (declare (not safe)) (##car _e123404123714_)))) + (##cdr _e123408123718_))) + (_hd123407123721_ + (let () (declare (not safe)) (##car _e123408123718_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123403123717_)) + (gx#identifier? _hd123407123721_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd123403123717_)) + (gx#stx-eq? '%#call _hd123407123721_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123402123719_)) - (let ((_e123407123722_ + (gx#stx-pair? _tl123406123723_)) + (let ((_e123411123726_ (let () (declare (not safe)) - (gx#stx-e _tl123402123719_)))) - (let ((_tl123405123727_ + (gx#stx-e _tl123406123723_)))) + (let ((_tl123409123731_ (let () (declare (not safe)) - (##cdr _e123407123722_))) - (_hd123406123725_ + (##cdr _e123411123726_))) + (_hd123410123729_ (let () (declare (not safe)) - (##car _e123407123722_)))) + (##car _e123411123726_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123406123725_)) - (let ((_e123410123730_ + (gx#stx-pair? _hd123410123729_)) + (let ((_e123414123734_ (let () (declare (not safe)) - (gx#stx-e _hd123406123725_)))) - (let ((_tl123408123735_ + (gx#stx-e _hd123410123729_)))) + (let ((_tl123412123739_ (let () (declare (not safe)) - (##cdr _e123410123730_))) - (_hd123409123733_ + (##cdr _e123414123734_))) + (_hd123413123737_ (let () (declare (not safe)) - (##car _e123410123730_)))) + (##car _e123414123734_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123409123733_)) + _hd123413123737_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123409123733_)) + _hd123413123737_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123408123735_)) - (let ((_e123413123738_ + _tl123412123739_)) + (let ((_e123417123742_ (let () (declare (not safe)) (gx#stx-e - _tl123408123735_)))) - (let ((_tl123411123743_ + _tl123412123739_)))) + (let ((_tl123415123747_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123413123738_))) - (_hd123412123741_ - (let () (declare (not safe)) (##car _e123413123738_)))) + (##cdr _e123417123742_))) + (_hd123416123745_ + (let () (declare (not safe)) (##car _e123417123742_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123411123743_)) + (gx#stx-null? _tl123415123747_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123405123727_)) - (let ((_e123416123746_ + (gx#stx-pair? _tl123409123731_)) + (let ((_e123420123750_ (let () (declare (not safe)) - (gx#stx-e _tl123405123727_)))) - (let ((_tl123414123751_ + (gx#stx-e _tl123409123731_)))) + (let ((_tl123418123755_ (let () (declare (not safe)) - (##cdr _e123416123746_))) - (_hd123415123749_ + (##cdr _e123420123750_))) + (_hd123419123753_ (let () (declare (not safe)) - (##car _e123416123746_)))) + (##car _e123420123750_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123415123749_)) - (let ((_e123419123754_ + (gx#stx-pair? _hd123419123753_)) + (let ((_e123423123758_ (let () (declare (not safe)) - (gx#stx-e _hd123415123749_)))) - (let ((_tl123417123759_ + (gx#stx-e _hd123419123753_)))) + (let ((_tl123421123763_ (let () (declare (not safe)) - (##cdr _e123419123754_))) - (_hd123418123757_ + (##cdr _e123423123758_))) + (_hd123422123761_ (let () (declare (not safe)) - (##car _e123419123754_)))) + (##car _e123423123758_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123418123757_)) + (gx#identifier? _hd123422123761_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123418123757_)) + _hd123422123761_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123417123759_)) - (let ((_e123422123762_ + _tl123421123763_)) + (let ((_e123426123766_ (let () (declare (not safe)) (gx#stx-e - _tl123417123759_)))) - (let ((_tl123420123767_ + _tl123421123763_)))) + (let ((_tl123424123771_ (let () (declare (not safe)) - (##cdr _e123422123762_))) - (_hd123421123765_ + (##cdr _e123426123766_))) + (_hd123425123769_ (let () (declare (not safe)) - (##car _e123422123762_)))) + (##car _e123426123766_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123420123767_)) + _tl123424123771_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123414123751_)) - (let ((_e123425123770_ + _tl123418123755_)) + (let ((_e123429123774_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl123414123751_)))) - (let ((_tl123423123775_ + (gx#stx-e _tl123418123755_)))) + (let ((_tl123427123779_ (let () (declare (not safe)) - (##cdr _e123425123770_))) - (_hd123424123773_ + (##cdr _e123429123774_))) + (_hd123428123777_ (let () (declare (not safe)) - (##car _e123425123770_)))) + (##car _e123429123774_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123424123773_)) - (let ((_e123428123778_ + (gx#stx-pair? _hd123428123777_)) + (let ((_e123432123782_ (let () (declare (not safe)) - (gx#stx-e _hd123424123773_)))) - (let ((_tl123426123783_ + (gx#stx-e _hd123428123777_)))) + (let ((_tl123430123787_ (let () (declare (not safe)) - (##cdr _e123428123778_))) - (_hd123427123781_ + (##cdr _e123432123782_))) + (_hd123431123785_ (let () (declare (not safe)) - (##car _e123428123778_)))) + (##car _e123432123782_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123427123781_)) + (gx#identifier? _hd123431123785_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd123427123781_)) + _hd123431123785_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123426123783_)) - (let ((_e123431123786_ + (gx#stx-pair? _tl123430123787_)) + (let ((_e123435123790_ (let () (declare (not safe)) (gx#stx-e - _tl123426123783_)))) - (let ((_tl123429123791_ + _tl123430123787_)))) + (let ((_tl123433123795_ (let () (declare (not safe)) - (##cdr _e123431123786_))) - (_hd123430123789_ + (##cdr _e123435123790_))) + (_hd123434123793_ (let () (declare (not safe)) - (##car _e123431123786_)))) + (##car _e123435123790_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123429123791_)) + _tl123433123795_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123423123775_)) - (let ((_e123434123794_ + _tl123427123779_)) + (let ((_e123438123798_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl123423123775_)))) - (let ((_tl123432123799_ - (let () (declare (not safe)) (##cdr _e123434123794_))) - (_hd123433123797_ + (gx#stx-e _tl123427123779_)))) + (let ((_tl123436123803_ + (let () (declare (not safe)) (##cdr _e123438123798_))) + (_hd123437123801_ (let () (declare (not safe)) - (##car _e123434123794_)))) + (##car _e123438123798_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123433123797_)) - (let ((_e123437123802_ + (gx#stx-pair? _hd123437123801_)) + (let ((_e123441123806_ (let () (declare (not safe)) - (gx#stx-e _hd123433123797_)))) - (let ((_tl123435123807_ + (gx#stx-e _hd123437123801_)))) + (let ((_tl123439123811_ (let () (declare (not safe)) - (##cdr _e123437123802_))) - (_hd123436123805_ + (##cdr _e123441123806_))) + (_hd123440123809_ (let () (declare (not safe)) - (##car _e123437123802_)))) + (##car _e123441123806_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123436123805_)) + (gx#identifier? _hd123440123809_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123436123805_)) + (gx#stx-eq? '%#ref _hd123440123809_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123435123807_)) - (let ((_e123440123810_ + (gx#stx-pair? _tl123439123811_)) + (let ((_e123444123814_ (let () (declare (not safe)) - (gx#stx-e _tl123435123807_)))) - (let ((_tl123438123815_ + (gx#stx-e _tl123439123811_)))) + (let ((_tl123442123819_ (let () (declare (not safe)) - (##cdr _e123440123810_))) - (_hd123439123813_ + (##cdr _e123444123814_))) + (_hd123443123817_ (let () (declare (not safe)) - (##car _e123440123810_)))) + (##car _e123444123814_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123438123815_)) + _tl123442123819_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123432123799_)) - (let ((_e123443123818_ + _tl123436123803_)) + (let ((_e123447123822_ (let () (declare (not safe)) (gx#stx-e - _tl123432123799_)))) - (let ((_tl123441123823_ + _tl123436123803_)))) + (let ((_tl123445123827_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123443123818_))) - (_hd123442123821_ - (let () (declare (not safe)) (##car _e123443123818_)))) + (##cdr _e123447123822_))) + (_hd123446123825_ + (let () (declare (not safe)) (##car _e123447123822_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123442123821_)) - (let ((_e123446123826_ + (gx#stx-pair? _hd123446123825_)) + (let ((_e123450123830_ (let () (declare (not safe)) - (gx#stx-e _hd123442123821_)))) - (let ((_tl123444123831_ + (gx#stx-e _hd123446123825_)))) + (let ((_tl123448123835_ (let () (declare (not safe)) - (##cdr _e123446123826_))) - (_hd123445123829_ + (##cdr _e123450123830_))) + (_hd123449123833_ (let () (declare (not safe)) - (##car _e123446123826_)))) + (##car _e123450123830_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123445123829_)) + (gx#identifier? _hd123449123833_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123445123829_)) + (gx#stx-eq? '%#ref _hd123449123833_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123444123831_)) - (let ((_e123449123834_ + (gx#stx-pair? _tl123448123835_)) + (let ((_e123453123838_ (let () (declare (not safe)) - (gx#stx-e _tl123444123831_)))) - (let ((_tl123447123839_ + (gx#stx-e _tl123448123835_)))) + (let ((_tl123451123843_ (let () (declare (not safe)) - (##cdr _e123449123834_))) - (_hd123448123837_ + (##cdr _e123453123838_))) + (_hd123452123841_ (let () (declare (not safe)) - (##car _e123449123834_)))) + (##car _e123453123838_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123447123839_)) + (gx#stx-null? _tl123451123843_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123441123823_)) + _tl123445123827_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123399123711_)) + _tl123403123715_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123390123687_)) - (___kont129717129718_ - _hd123448123837_ - _hd123439123813_ - _hd123421123765_ - _hd123412123741_ - _hd123397123701_ - _hd123388123677_ - _hd123379123653_ - _hd123370123629_ - _hd123355123589_ - _hd123340123549_ - _hd123322123501_) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129719129720_)))) - (___kont129719129720_)))) - (___kont129719129720_)) - (___kont129719129720_)) - (___kont129719129720_)))) - (___kont129719129720_)))))) + _tl123394123691_)) + (___kont129721129722_ + _hd123452123841_ + _hd123443123817_ + _hd123425123769_ + _hd123416123745_ + _hd123401123705_ + _hd123392123681_ + _hd123383123657_ + _hd123374123633_ + _hd123359123593_ + _hd123344123553_ + _hd123326123505_) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129723129724_)))) + (___kont129723129724_)))) + (___kont129723129724_)) + (___kont129723129724_)) + (___kont129723129724_)))) + (___kont129723129724_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx123035_ _id123036_ _clauses123037_ _gensym?123038_) - (let _lp123040_ ((_rest123042_ _clauses123037_) - (_ids123043_ '()) - (_impls123044_ '()) - (_clauses123045_ '())) - (let* ((_rest123046123054_ _rest123042_) - (_else123048123062_ + (lambda (_stx123039_ _id123040_ _clauses123041_ _gensym?123042_) + (let _lp123044_ ((_rest123046_ _clauses123041_) + (_ids123047_ '()) + (_impls123048_ '()) + (_clauses123049_ '())) + (let* ((_rest123050123058_ _rest123046_) + (_else123052123066_ (lambda () - (values (reverse _ids123043_) - (reverse _impls123044_) - (reverse _clauses123045_)))) - (_K123050123267_ - (lambda (_rest123065_ _clause123066_) + (values (reverse _ids123047_) + (reverse _impls123048_) + (reverse _clauses123049_)))) + (_K123054123271_ + (lambda (_rest123069_ _clause123070_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause123066_)) - (let ((__tmp130809 + (gxc#dispatch-lambda-form? _clause123070_)) + (let ((__tmp130813 (let () (declare (not safe)) - (cons _clause123066_ _clauses123045_)))) + (cons _clause123070_ _clauses123049_)))) (declare (not safe)) - (_lp123040_ - _rest123065_ - _ids123043_ - _impls123044_ - __tmp130809)) - (let* ((_g123068123079_ - (lambda (_g123069123076_) + (_lp123044_ + _rest123069_ + _ids123047_ + _impls123048_ + __tmp130813)) + (let* ((_g123072123083_ + (lambda (_g123073123080_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g123069123076_)))) - (_g123067123264_ - (lambda (_g123069123082_) + _g123073123080_)))) + (_g123071123268_ + (lambda (_g123073123086_) (if (let () (declare (not safe)) - (gx#stx-pair? _g123069123082_)) - (let ((_e123074123084_ + (gx#stx-pair? _g123073123086_)) + (let ((_e123078123088_ (let () (declare (not safe)) - (gx#stx-e _g123069123082_)))) - (let ((_hd123073123087_ + (gx#stx-e _g123073123086_)))) + (let ((_hd123077123091_ (let () (declare (not safe)) - (##car _e123074123084_))) - (_tl123072123089_ + (##car _e123078123088_))) + (_tl123076123093_ (let () (declare (not safe)) - (##cdr _e123074123084_)))) - ((lambda (_L123092_ _L123093_) - (let* ((_id123110_ - (let ((__tmp130756 + (##cdr _e123078123088_)))) + ((lambda (_L123096_ _L123097_) + (let* ((_id123114_ + (let ((__tmp130760 (let () (declare (not safe)) (gx#stx-e - _id123036_))) - (__tmp130755 - (length _clauses123045_)) - (__tmp130754 - (if _gensym?123038_ + _id123040_))) + (__tmp130759 + (length _clauses123049_)) + (__tmp130758 + (if _gensym?123042_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp130756 + __tmp130760 '"__" - __tmp130755 - __tmp130754))) - (_id123112_ - (let ((__tmp130757 + __tmp130759 + __tmp130758))) + (_id123116_ + (let ((__tmp130761 (let () (declare (not safe)) (gx#stx-source - _stx123035_)))) + _stx123039_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id123110_ - __tmp130757))) - (_impl123114_ - (let ((__tmp130758 - (let ((__tmp130760 + _id123114_ + __tmp130761))) + (_impl123118_ + (let ((__tmp130762 + (let ((__tmp130764 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp130759 + (__tmp130763 (let () (declare (not safe)) - (cons _L123093_ _L123092_)))) + (cons _L123097_ _L123096_)))) (declare (not safe)) - (cons __tmp130760 __tmp130759)))) + (cons __tmp130764 __tmp130763)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130758 _stx123035_))) + (gxc#xform-wrap-source __tmp130762 _stx123039_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause123261_ - (let* ((___stx130099130100_ - _L123093_) - (_g123118123146_ + (_clause123265_ + (let* ((___stx130103130104_ + _L123097_) + (_g123122123150_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10876,1828 +10876,1828 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130099130100_))))) - (let ((___kont130101130102_ - (lambda (_L123240_) - (let ((__tmp130761 - (let ((__tmp130762 - (let ((__tmp130763 - (let ((__tmp130764 - (let ((__tmp130770 - (let ((__tmp130771 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id123112_ '())))) + ___stx130103130104_))))) + (let ((___kont130105130106_ + (lambda (_L123244_) + (let ((__tmp130765 + (let ((__tmp130766 + (let ((__tmp130767 + (let ((__tmp130768 + (let ((__tmp130774 + (let ((__tmp130775 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id123116_ '())))) (declare (not safe)) - (cons '%#ref __tmp130771))) - (__tmp130765 - (let ((__tmp130766 - (lambda (_g123250123253_ _g123251123255_) - (let ((__tmp130767 - (let ((__tmp130769 + (cons '%#ref __tmp130775))) + (__tmp130769 + (let ((__tmp130770 + (lambda (_g123254123257_ _g123255123259_) + (let ((__tmp130771 + (let ((__tmp130773 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp130768 + (__tmp130772 (let () (declare (not safe)) - (cons _g123250123253_ '())))) + (cons _g123254123257_ '())))) (declare (not safe)) - (cons __tmp130769 __tmp130768)))) + (cons __tmp130773 __tmp130772)))) (declare (not safe)) - (cons __tmp130767 _g123251123255_))))) + (cons __tmp130771 _g123255123259_))))) (declare (not safe)) - (foldr1 __tmp130766 '() _L123240_)))) + (foldr1 __tmp130770 '() _L123244_)))) (declare (not safe)) - (cons __tmp130770 __tmp130765)))) + (cons __tmp130774 __tmp130769)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp130764)))) + (cons '%#call __tmp130768)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130763 - _stx123035_)))) + __tmp130767 + _stx123039_)))) (declare (not safe)) - (cons __tmp130762 '())))) + (cons __tmp130766 '())))) (declare (not safe)) - (cons _L123093_ __tmp130761)))) - (___kont130105130106_ - (lambda (_L123191_ _L123192_) - (let ((__tmp130772 - (let ((__tmp130773 - (let ((__tmp130774 - (let ((__tmp130775 - (let ((__tmp130789 - (let ((__tmp130790 + (cons _L123097_ __tmp130765)))) + (___kont130109130110_ + (lambda (_L123195_ _L123196_) + (let ((__tmp130776 + (let ((__tmp130777 + (let ((__tmp130778 + (let ((__tmp130779 + (let ((__tmp130793 + (let ((__tmp130794 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp130790))) - (__tmp130776 - (let ((__tmp130787 - (let ((__tmp130788 + (cons '%#ref __tmp130794))) + (__tmp130780 + (let ((__tmp130791 + (let ((__tmp130792 (let () (declare (not safe)) - (cons _id123112_ '())))) + (cons _id123116_ '())))) (declare (not safe)) - (cons '%#ref __tmp130788))) - (__tmp130777 - (let ((__tmp130783 - (let ((__tmp130784 - (let ((__tmp130786 + (cons '%#ref __tmp130792))) + (__tmp130781 + (let ((__tmp130787 + (let ((__tmp130788 + (let ((__tmp130790 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp130785 + (__tmp130789 (let () (declare (not safe)) - (cons _L123191_ '())))) + (cons _L123195_ '())))) (declare (not safe)) - (cons __tmp130786 __tmp130785)))) + (cons __tmp130790 __tmp130789)))) (declare (not safe)) - (cons __tmp130784 '()))) - (__tmp130778 - (let ((__tmp130779 - (lambda (_g123203123206_ - _g123204123208_) - (let ((__tmp130780 - (let ((__tmp130782 + (cons __tmp130788 '()))) + (__tmp130782 + (let ((__tmp130783 + (lambda (_g123207123210_ + _g123208123212_) + (let ((__tmp130784 + (let ((__tmp130786 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp130781 + (__tmp130785 (let () (declare (not safe)) - (cons _g123203123206_ + (cons _g123207123210_ '())))) (declare (not safe)) - (cons __tmp130782 - __tmp130781)))) + (cons __tmp130786 + __tmp130785)))) (declare (not safe)) - (cons __tmp130780 - _g123204123208_))))) + (cons __tmp130784 + _g123208123212_))))) (declare (not safe)) - (foldr1 __tmp130779 '() _L123192_)))) + (foldr1 __tmp130783 '() _L123196_)))) (declare (not safe)) - (foldr1 cons __tmp130783 __tmp130778)))) + (foldr1 cons __tmp130787 __tmp130782)))) (declare (not safe)) - (cons __tmp130787 __tmp130777)))) + (cons __tmp130791 __tmp130781)))) (declare (not safe)) - (cons __tmp130789 __tmp130776)))) + (cons __tmp130793 __tmp130780)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp130775)))) + (cons '%#call __tmp130779)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130774 - _stx123035_)))) + __tmp130778 + _stx123039_)))) (declare (not safe)) - (cons __tmp130773 '())))) + (cons __tmp130777 '())))) (declare (not safe)) - (cons _L123093_ __tmp130772)))) - (___kont130109130110_ - (lambda (_L123151_) - (let ((__tmp130791 - (let ((__tmp130792 - (let ((__tmp130793 - (let ((__tmp130794 - (let ((__tmp130802 - (let ((__tmp130803 + (cons _L123097_ __tmp130776)))) + (___kont130113130114_ + (lambda (_L123155_) + (let ((__tmp130795 + (let ((__tmp130796 + (let ((__tmp130797 + (let ((__tmp130798 + (let ((__tmp130806 + (let ((__tmp130807 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp130803))) - (__tmp130795 - (let ((__tmp130800 - (let ((__tmp130801 + (cons '%#ref __tmp130807))) + (__tmp130799 + (let ((__tmp130804 + (let ((__tmp130805 (let () (declare (not safe)) - (cons _id123112_ '())))) + (cons _id123116_ '())))) (declare (not safe)) - (cons '%#ref __tmp130801))) - (__tmp130796 - (let ((__tmp130797 - (let ((__tmp130799 + (cons '%#ref __tmp130805))) + (__tmp130800 + (let ((__tmp130801 + (let ((__tmp130803 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp130798 + (__tmp130802 (let () (declare (not safe)) - (cons _L123151_ '())))) + (cons _L123155_ '())))) (declare (not safe)) - (cons __tmp130799 __tmp130798)))) + (cons __tmp130803 __tmp130802)))) (declare (not safe)) - (cons __tmp130797 '())))) + (cons __tmp130801 '())))) (declare (not safe)) - (cons __tmp130800 __tmp130796)))) + (cons __tmp130804 __tmp130800)))) (declare (not safe)) - (cons __tmp130802 __tmp130795)))) + (cons __tmp130806 __tmp130799)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp130794)))) + (cons '%#call __tmp130798)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130793 - _stx123035_)))) + __tmp130797 + _stx123039_)))) (declare (not safe)) - (cons __tmp130792 '())))) + (cons __tmp130796 '())))) (declare (not safe)) - (cons _L123093_ __tmp130791))))) - (let* ((___match130124130125_ - (lambda (___splice130107130108_ - _target123132123167_ - _tl123134123169_) - (letrec ((_loop123135123172_ - (lambda (_hd123133123175_ - _arg123139123177_) + (cons _L123097_ __tmp130795))))) + (let* ((___match130128130129_ + (lambda (___splice130111130112_ + _target123136123171_ + _tl123138123173_) + (letrec ((_loop123139123176_ + (lambda (_hd123137123179_ + _arg123143123181_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123133123175_)) - (let ((_e123136123180_ + (gx#stx-pair? _hd123137123179_)) + (let ((_e123140123184_ (let () (declare (not safe)) (gx#stx-e - _hd123133123175_)))) - (let ((_lp-tl123138123185_ + _hd123137123179_)))) + (let ((_lp-tl123142123189_ (let () (declare (not safe)) - (##cdr _e123136123180_))) - (_lp-hd123137123183_ + (##cdr _e123140123184_))) + (_lp-hd123141123187_ (let () (declare (not safe)) - (##car _e123136123180_)))) - (let ((__tmp130804 + (##car _e123140123184_)))) + (let ((__tmp130808 (let () (declare (not safe)) - (cons _lp-hd123137123183_ - _arg123139123177_)))) + (cons _lp-hd123141123187_ + _arg123143123181_)))) (declare (not safe)) - (_loop123135123172_ - _lp-tl123138123185_ - __tmp130804)))) - (let ((_arg123140123188_ - (reverse _arg123139123177_))) - (___kont130105130106_ - _tl123134123169_ - _arg123140123188_)))))) + (_loop123139123176_ + _lp-tl123142123189_ + __tmp130808)))) + (let ((_arg123144123192_ + (reverse _arg123143123181_))) + (___kont130109130110_ + _tl123138123173_ + _arg123144123192_)))))) (let () (declare (not safe)) - (_loop123135123172_ - _target123132123167_ + (_loop123139123176_ + _target123136123171_ '()))))) - (___match130118130119_ - (lambda (___splice130103130104_ - _target123121123216_ - _tl123123123218_) - (letrec ((_loop123124123221_ - (lambda (_hd123122123224_ - _arg123128123226_) + (___match130122130123_ + (lambda (___splice130107130108_ + _target123125123220_ + _tl123127123222_) + (letrec ((_loop123128123225_ + (lambda (_hd123126123228_ + _arg123132123230_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123122123224_)) - (let ((_e123125123229_ + (gx#stx-pair? _hd123126123228_)) + (let ((_e123129123233_ (let () (declare (not safe)) (gx#stx-e - _hd123122123224_)))) - (let ((_lp-tl123127123234_ + _hd123126123228_)))) + (let ((_lp-tl123131123238_ (let () (declare (not safe)) - (##cdr _e123125123229_))) - (_lp-hd123126123232_ + (##cdr _e123129123233_))) + (_lp-hd123130123236_ (let () (declare (not safe)) - (##car _e123125123229_)))) - (let ((__tmp130805 + (##car _e123129123233_)))) + (let ((__tmp130809 (let () (declare (not safe)) - (cons _lp-hd123126123232_ - _arg123128123226_)))) + (cons _lp-hd123130123236_ + _arg123132123230_)))) (declare (not safe)) - (_loop123124123221_ - _lp-tl123127123234_ - __tmp130805)))) - (let ((_arg123129123237_ - (reverse _arg123128123226_))) - (___kont130101130102_ - _arg123129123237_)))))) + (_loop123128123225_ + _lp-tl123131123238_ + __tmp130809)))) + (let ((_arg123133123241_ + (reverse _arg123132123230_))) + (___kont130105130106_ + _arg123133123241_)))))) (let () (declare (not safe)) - (_loop123124123221_ - _target123121123216_ + (_loop123128123225_ + _target123125123220_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx130099130100_)) - (let ((___splice130103130104_ + (gx#stx-pair/null? ___stx130103130104_)) + (let ((___splice130107130108_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx130099130100_ + ___stx130103130104_ '0)))) - (let ((_tl123123123218_ + (let ((_tl123127123222_ (let () (declare (not safe)) - (##vector-ref ___splice130103130104_ '1))) - (_target123121123216_ + (##vector-ref ___splice130107130108_ '1))) + (_target123125123220_ (let () (declare (not safe)) - (##vector-ref ___splice130103130104_ '0)))) + (##vector-ref ___splice130107130108_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123123123218_)) - (___match130118130119_ - ___splice130103130104_ - _target123121123216_ - _tl123123123218_) - (___match130124130125_ - ___splice130103130104_ - _target123121123216_ - _tl123123123218_)))) - (___kont130109130110_ ___stx130099130100_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp130808 + (gx#stx-null? _tl123127123222_)) + (___match130122130123_ + ___splice130107130108_ + _target123125123220_ + _tl123127123222_) + (___match130128130129_ + ___splice130107130108_ + _target123125123220_ + _tl123127123222_)))) + (___kont130113130114_ ___stx130103130104_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp130812 (let () (declare (not safe)) - (cons _id123112_ - _ids123043_))) - (__tmp130807 + (cons _id123116_ + _ids123047_))) + (__tmp130811 (let () (declare (not safe)) - (cons _impl123114_ - _impls123044_))) - (__tmp130806 + (cons _impl123118_ + _impls123048_))) + (__tmp130810 (let () (declare (not safe)) - (cons _clause123261_ - _clauses123045_)))) + (cons _clause123265_ + _clauses123049_)))) (declare (not safe)) - (_lp123040_ - _rest123065_ - __tmp130808 - __tmp130807 - __tmp130806)))) - _tl123072123089_ - _hd123073123087_))) + (_lp123044_ + _rest123069_ + __tmp130812 + __tmp130811 + __tmp130810)))) + _tl123076123093_ + _hd123077123091_))) (let () (declare (not safe)) - (_g123068123079_ _g123069123082_)))))) + (_g123072123083_ _g123073123086_)))))) (declare (not safe)) - (_g123067123264_ _clause123066_)))))) - (if (let () (declare (not safe)) (##pair? _rest123046123054_)) - (let ((_hd123051123270_ + (_g123071123268_ _clause123070_)))))) + (if (let () (declare (not safe)) (##pair? _rest123050123058_)) + (let ((_hd123055123274_ (let () (declare (not safe)) - (##car _rest123046123054_))) - (_tl123052123272_ + (##car _rest123050123058_))) + (_tl123056123276_ (let () (declare (not safe)) - (##cdr _rest123046123054_)))) - (let* ((_clause123275_ _hd123051123270_) - (_rest123277_ _tl123052123272_)) + (##cdr _rest123050123058_)))) + (let* ((_clause123279_ _hd123055123274_) + (_rest123281_ _tl123056123276_)) (declare (not safe)) - (_K123050123267_ _rest123277_ _clause123275_))) - (let () (declare (not safe)) (_else123048123062_))))))) + (_K123054123271_ _rest123281_ _clause123279_))) + (let () (declare (not safe)) (_else123052123066_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx123282_ _id123283_ _clauses123284_) - (let ((_gensym?123286_ '#f)) + (lambda (_stx123286_ _id123287_ _clauses123288_) + (let ((_gensym?123290_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx123282_ - _id123283_ - _clauses123284_ - _gensym?123286_)))) + _stx123286_ + _id123287_ + _clauses123288_ + _gensym?123290_)))) (define gxc#lift-case-lambda-clauses - (lambda _g130811_ - (let ((_g130810_ (let () (declare (not safe)) (##length _g130811_)))) - (cond ((let () (declare (not safe)) (##fx= _g130810_ 3)) - (apply (lambda (_stx123282_ _id123283_ _clauses123284_) + (lambda _g130815_ + (let ((_g130814_ (let () (declare (not safe)) (##length _g130815_)))) + (cond ((let () (declare (not safe)) (##fx= _g130814_ 3)) + (apply (lambda (_stx123286_ _id123287_ _clauses123288_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx123282_ - _id123283_ - _clauses123284_))) - _g130811_)) - ((let () (declare (not safe)) (##fx= _g130810_ 4)) - (apply (lambda (_stx123288_ - _id123289_ - _clauses123290_ - _gensym?123291_) + _stx123286_ + _id123287_ + _clauses123288_))) + _g130815_)) + ((let () (declare (not safe)) (##fx= _g130814_ 4)) + (apply (lambda (_stx123292_ + _id123293_ + _clauses123294_ + _gensym?123295_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx123288_ - _id123289_ - _clauses123290_ - _gensym?123291_))) - _g130811_)) + _stx123292_ + _id123293_ + _clauses123294_ + _gensym?123295_))) + _g130815_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g130811_)))))) + _g130815_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_self122311_ _stx122312_) - (letrec ((_case-lambda-clause-def122314_ - (lambda (_id123031_ _impl123032_) - (let ((__tmp130812 - (let ((__tmp130813 - (let ((__tmp130816 + (lambda (_self122315_ _stx122316_) + (letrec ((_case-lambda-clause-def122318_ + (lambda (_id123035_ _impl123036_) + (let ((__tmp130816 + (let ((__tmp130817 + (let ((__tmp130820 (let () (declare (not safe)) - (cons _id123031_ '()))) - (__tmp130814 - (let ((__tmp130815 + (cons _id123035_ '()))) + (__tmp130818 + (let ((__tmp130819 (let () (declare (not safe)) (gxc#compile-e__1 - _self122311_ - _impl123032_)))) + _self122315_ + _impl123036_)))) (declare (not safe)) - (cons __tmp130815 '())))) + (cons __tmp130819 '())))) (declare (not safe)) - (cons __tmp130816 __tmp130814)))) + (cons __tmp130820 __tmp130818)))) (declare (not safe)) - (cons '%#define-values __tmp130813)))) + (cons '%#define-values __tmp130817)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130812 _stx122312_)))) - (_opt-lambda-dispatch-name122315_ - (lambda (_id123027_) - (if (uninterned-symbol? _id123027_) - (let ((_str123029_ (symbol->string _id123027_))) + (gxc#xform-wrap-source __tmp130816 _stx122316_)))) + (_opt-lambda-dispatch-name122319_ + (lambda (_id123031_) + (if (uninterned-symbol? _id123031_) + (let ((_str123033_ (symbol->string _id123031_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str123029_)) + (string-prefix? '"opt-lambda" _str123033_)) '"%" - _id123027_)) - _id123027_))) - (_kw-lambda-dispatch-name122316_ - (lambda (_id123022_ _name123023_) - (if (uninterned-symbol? _id123022_) - (let ((_str123025_ (symbol->string _id123022_))) + _id123031_)) + _id123031_))) + (_kw-lambda-dispatch-name122320_ + (lambda (_id123026_ _name123027_) + (if (uninterned-symbol? _id123026_) + (let ((_str123029_ (symbol->string _id123026_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str123025_)) - _name123023_ - _id123022_)) - _id123022_)))) - (let* ((___stx130147130148_ _stx122312_) - (_g122321122380_ + (string-prefix? '"kw-lambda" _str123029_)) + _name123027_ + _id123026_)) + _id123026_)))) + (let* ((___stx130151130152_ _stx122316_) + (_g122325122384_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130147130148_))))) - (let ((___kont130149130150_ - (lambda (_L122931_ _L122932_) - (let* ((___stx130127130128_ _L122931_) - (_g122949122963_ + ___stx130151130152_))))) + (let ((___kont130153130154_ + (lambda (_L122935_ _L122936_) + (let* ((___stx130131130132_ _L122935_) + (_g122953122967_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130127130128_))))) - (let ((___kont130129130130_ - (lambda (_L123007_) _stx122312_)) - (___kont130131130132_ - (lambda (_L122976_) - (let ((_g130817_ + ___stx130131130132_))))) + (let ((___kont130133130134_ + (lambda (_L123011_) _stx122316_)) + (___kont130135130136_ + (lambda (_L122980_) + (let ((_g130821_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx122312_ - _L122932_ - _L122976_)))) + _stx122316_ + _L122936_ + _L122980_)))) (begin - (let ((_g130818_ + (let ((_g130822_ (let () (declare (not safe)) - (if (##values? _g130817_) - (##vector-length _g130817_) + (if (##values? _g130821_) + (##vector-length _g130821_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130818_ 3))) + (##fx= _g130822_ 3))) (error "Context expects 3 values" - _g130818_))) - (let ((_ids122986_ + _g130822_))) + (let ((_ids122990_ (let () (declare (not safe)) - (##vector-ref _g130817_ 0))) - (_impls122987_ + (##vector-ref _g130821_ 0))) + (_impls122991_ (let () (declare (not safe)) - (##vector-ref _g130817_ 1))) - (_clauses122988_ + (##vector-ref _g130821_ 1))) + (_clauses122992_ (let () (declare (not safe)) - (##vector-ref _g130817_ 2)))) - (let* ((_g130819_ + (##vector-ref _g130821_ 2)))) + (let* ((_g130823_ (for-each gx#core-bind-runtime! - _ids122986_)) - (_defs122991_ - (map _case-lambda-clause-def122314_ - _ids122986_ - _impls122987_))) - (let ((__tmp130821 + _ids122990_)) + (_defs122995_ + (map _case-lambda-clause-def122318_ + _ids122990_ + _impls122991_))) + (let ((__tmp130825 (let () (declare (not safe)) (gxc#identifier-symbol - _L122932_))) - (__tmp130820 + _L122936_))) + (__tmp130824 (map gxc#identifier-symbol - _ids122986_))) + _ids122990_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp130821 + __tmp130825 '" => " - __tmp130820)) - (let ((__tmp130822 - (let ((__tmp130823 - (let ((__tmp130824 - (let ((__tmp130825 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130826 - (let ((__tmp130827 - (let ((__tmp130832 + __tmp130824)) + (let ((__tmp130826 + (let ((__tmp130827 + (let ((__tmp130828 + (let ((__tmp130829 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130830 + (let ((__tmp130831 + (let ((__tmp130836 (let () (declare (not safe)) - (cons _L122932_ '()))) - (__tmp130828 - (let ((__tmp130829 - (let ((__tmp130831 + (cons _L122936_ '()))) + (__tmp130832 + (let ((__tmp130833 + (let ((__tmp130835 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses122988_))) - (__tmp130830 + (cons '%#case-lambda _clauses122992_))) + (__tmp130834 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130831 __tmp130830)))) + (gxc#xform-wrap-source __tmp130835 __tmp130834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130829 '())))) + (cons __tmp130833 '())))) (declare (not safe)) - (cons __tmp130832 __tmp130828)))) + (cons __tmp130836 __tmp130832)))) (declare (not safe)) - (cons '%#define-values __tmp130827)))) + (cons '%#define-values __tmp130831)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130826 - _stx122312_)))) + __tmp130830 + _stx122316_)))) (declare (not safe)) - (cons __tmp130825 '())))) + (cons __tmp130829 '())))) (declare (not safe)) - (foldr1 cons __tmp130824 _defs122991_)))) + (foldr1 cons __tmp130828 _defs122995_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp130823)))) + (cons '%#begin __tmp130827)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130822 - _stx122312_))))))))) - (let ((___match130138130139_ - (lambda (_e122954122999_ - _hd122953123002_ - _tl122952123004_) - (let ((_L123007_ _tl122952123004_)) + __tmp130826 + _stx122316_))))))))) + (let ((___match130142130143_ + (lambda (_e122958123003_ + _hd122957123006_ + _tl122956123008_) + (let ((_L123011_ _tl122956123008_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L123007_)) - (___kont130129130130_ _L123007_) - (___kont130131130132_ - _tl122952123004_)))))) + _L123011_)) + (___kont130133130134_ _L123011_) + (___kont130135130136_ + _tl122956123008_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130127130128_)) - (let ((_e122954122999_ + (gx#stx-pair? ___stx130131130132_)) + (let ((_e122958123003_ (let () (declare (not safe)) - (gx#stx-e ___stx130127130128_)))) - (let ((_tl122952123004_ + (gx#stx-e ___stx130131130132_)))) + (let ((_tl122956123008_ (let () (declare (not safe)) - (##cdr _e122954122999_))) - (_hd122953123002_ + (##cdr _e122958123003_))) + (_hd122957123006_ (let () (declare (not safe)) - (##car _e122954122999_)))) - (___match130138130139_ - _e122954122999_ - _hd122953123002_ - _tl122952123004_))) + (##car _e122958123003_)))) + (___match130142130143_ + _e122958123003_ + _hd122957123006_ + _tl122956123008_))) (let () (declare (not safe)) - (_g122949122963_)))))))) - (___kont130151130152_ - (lambda (_L122749_ _L122750_) - (let* ((_g122766122796_ - (lambda (_g122767122793_) + (_g122953122967_)))))))) + (___kont130155130156_ + (lambda (_L122753_ _L122754_) + (let* ((_g122770122800_ + (lambda (_g122771122797_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122767122793_)))) - (_g122765122891_ - (lambda (_g122767122799_) + _g122771122797_)))) + (_g122769122895_ + (lambda (_g122771122803_) (if (let () (declare (not safe)) - (gx#stx-pair? _g122767122799_)) - (let ((_e122773122801_ + (gx#stx-pair? _g122771122803_)) + (let ((_e122777122805_ (let () (declare (not safe)) - (gx#stx-e _g122767122799_)))) - (let ((_hd122772122804_ + (gx#stx-e _g122771122803_)))) + (let ((_hd122776122808_ (let () (declare (not safe)) - (##car _e122773122801_))) - (_tl122771122806_ + (##car _e122777122805_))) + (_tl122775122810_ (let () (declare (not safe)) - (##cdr _e122773122801_)))) + (##cdr _e122777122805_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122771122806_)) - (let ((_e122776122809_ + (gx#stx-pair? _tl122775122810_)) + (let ((_e122780122813_ (let () (declare (not safe)) (gx#stx-e - _tl122771122806_)))) - (let ((_hd122775122812_ + _tl122775122810_)))) + (let ((_hd122779122816_ (let () (declare (not safe)) - (##car _e122776122809_))) - (_tl122774122814_ + (##car _e122780122813_))) + (_tl122778122818_ (let () (declare (not safe)) - (##cdr _e122776122809_)))) + (##cdr _e122780122813_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122775122812_)) - (let ((_e122779122817_ + _hd122779122816_)) + (let ((_e122783122821_ (let () (declare (not safe)) (gx#stx-e - _hd122775122812_)))) - (let ((_hd122778122820_ + _hd122779122816_)))) + (let ((_hd122782122824_ (let () (declare (not safe)) - (##car _e122779122817_))) - (_tl122777122822_ + (##car _e122783122821_))) + (_tl122781122826_ (let () (declare (not safe)) - (##cdr _e122779122817_)))) + (##cdr _e122783122821_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122778122820_)) - (let ((_e122782122825_ + _hd122782122824_)) + (let ((_e122786122829_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd122778122820_)))) - (let ((_hd122781122828_ + (gx#stx-e _hd122782122824_)))) + (let ((_hd122785122832_ (let () (declare (not safe)) - (##car _e122782122825_))) - (_tl122780122830_ + (##car _e122786122829_))) + (_tl122784122834_ (let () (declare (not safe)) - (##cdr _e122782122825_)))) + (##cdr _e122786122829_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122781122828_)) - (let ((_e122785122833_ + (gx#stx-pair? _hd122785122832_)) + (let ((_e122789122837_ (let () (declare (not safe)) - (gx#stx-e _hd122781122828_)))) - (let ((_hd122784122836_ + (gx#stx-e _hd122785122832_)))) + (let ((_hd122788122840_ (let () (declare (not safe)) - (##car _e122785122833_))) - (_tl122783122838_ + (##car _e122789122837_))) + (_tl122787122842_ (let () (declare (not safe)) - (##cdr _e122785122833_)))) + (##cdr _e122789122837_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122783122838_)) + (gx#stx-null? _tl122787122842_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122780122830_)) - (let ((_e122788122841_ + (gx#stx-pair? _tl122784122834_)) + (let ((_e122792122845_ (let () (declare (not safe)) - (gx#stx-e _tl122780122830_)))) - (let ((_hd122787122844_ + (gx#stx-e _tl122784122834_)))) + (let ((_hd122791122848_ (let () (declare (not safe)) - (##car _e122788122841_))) - (_tl122786122846_ + (##car _e122792122845_))) + (_tl122790122850_ (let () (declare (not safe)) - (##cdr _e122788122841_)))) + (##cdr _e122792122845_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122786122846_)) + _tl122790122850_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl122777122822_)) + _tl122781122826_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122774122814_)) - (let ((_e122791122849_ + _tl122778122818_)) + (let ((_e122795122853_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl122774122814_)))) - (let ((_hd122790122852_ - (let () (declare (not safe)) (##car _e122791122849_))) - (_tl122789122854_ - (let () (declare (not safe)) (##cdr _e122791122849_)))) + (gx#stx-e _tl122778122818_)))) + (let ((_hd122794122856_ + (let () (declare (not safe)) (##car _e122795122853_))) + (_tl122793122858_ + (let () (declare (not safe)) (##cdr _e122795122853_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122789122854_)) - ((lambda (_L122857_ _L122858_ _L122859_) - (let* ((_lambda-id122883_ - (let ((__tmp130835 + (gx#stx-null? _tl122793122858_)) + ((lambda (_L122861_ _L122862_ _L122863_) + (let* ((_lambda-id122887_ + (let ((__tmp130839 (let () (declare (not safe)) - (gx#stx-e _L122750_))) - (__tmp130833 - (let ((__tmp130834 + (gx#stx-e _L122754_))) + (__tmp130837 + (let ((__tmp130838 (let () (declare (not safe)) - (gx#stx-e _L122859_)))) + (gx#stx-e _L122863_)))) (declare (not safe)) - (_opt-lambda-dispatch-name122315_ - __tmp130834)))) + (_opt-lambda-dispatch-name122319_ + __tmp130838)))) (declare (not safe)) (make-symbol__1 - __tmp130835 + __tmp130839 '"__" - __tmp130833))) - (_lambda-id122885_ - (let ((__tmp130836 + __tmp130837))) + (_lambda-id122889_ + (let ((__tmp130840 (let () (declare (not safe)) - (gx#stx-source _stx122312_)))) + (gx#stx-source _stx122316_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id122883_ - __tmp130836))) - (_g130837_ + _lambda-id122887_ + __tmp130840))) + (_g130841_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id122885_))) - (_new-case-lambda-expr122888_ + _lambda-id122889_))) + (_new-case-lambda-expr122892_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L122857_ + _L122861_ 'id: - _L122859_ + _L122863_ 'new-id: - _lambda-id122885_)))) - (let ((__tmp130839 + _lambda-id122889_)))) + (let ((__tmp130843 (let () (declare (not safe)) - (gxc#identifier-symbol _L122750_))) - (__tmp130838 + (gxc#identifier-symbol _L122754_))) + (__tmp130842 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id122885_)))) + _lambda-id122889_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp130839 + __tmp130843 '" => " - __tmp130838)) - (let ((__tmp130840 - (let ((__tmp130841 - (let ((__tmp130849 - (let ((__tmp130850 - (let ((__tmp130851 - (let ((__tmp130854 + __tmp130842)) + (let ((__tmp130844 + (let ((__tmp130845 + (let ((__tmp130853 + (let ((__tmp130854 + (let ((__tmp130855 + (let ((__tmp130858 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id122885_ '()))) - (__tmp130852 - (let ((__tmp130853 + (cons _lambda-id122889_ '()))) + (__tmp130856 + (let ((__tmp130857 (let () (declare (not safe)) (gxc#compile-e__1 - _self122311_ - _L122858_)))) + _self122315_ + _L122862_)))) (declare (not safe)) - (cons __tmp130853 '())))) + (cons __tmp130857 '())))) (declare (not safe)) - (cons __tmp130854 __tmp130852)))) + (cons __tmp130858 __tmp130856)))) (declare (not safe)) - (cons '%#define-values __tmp130851)))) + (cons '%#define-values __tmp130855)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130850 - _stx122312_))) - (__tmp130842 - (let ((__tmp130843 - (let ((__tmp130844 - (let ((__tmp130845 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130846 - (let ((__tmp130848 + __tmp130854 + _stx122316_))) + (__tmp130846 + (let ((__tmp130847 + (let ((__tmp130848 + (let ((__tmp130849 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130850 + (let ((__tmp130852 (let () (declare (not safe)) - (cons _L122750_ '()))) - (__tmp130847 + (cons _L122754_ '()))) + (__tmp130851 (let () (declare (not safe)) - (cons _new-case-lambda-expr122888_ + (cons _new-case-lambda-expr122892_ '())))) (declare (not safe)) - (cons __tmp130848 __tmp130847)))) + (cons __tmp130852 __tmp130851)))) (declare (not safe)) - (cons '%#define-values __tmp130846)))) + (cons '%#define-values __tmp130850)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130845 _stx122312_)))) + (gxc#xform-wrap-source __tmp130849 _stx122316_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - _self122311_ - __tmp130844)))) + _self122315_ + __tmp130848)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130843 '())))) + (cons __tmp130847 '())))) (declare (not safe)) - (cons __tmp130849 __tmp130842)))) + (cons __tmp130853 __tmp130846)))) (declare (not safe)) - (cons '%#begin __tmp130841)))) + (cons '%#begin __tmp130845)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130840 - _stx122312_)))) - _hd122790122852_ - _hd122787122844_ - _hd122784122836_) + __tmp130844 + _stx122316_)))) + _hd122794122856_ + _hd122791122848_ + _hd122788122840_) (let () (declare (not safe)) - (_g122766122796_ _g122767122799_))))) - (let () (declare (not safe)) (_g122766122796_ _g122767122799_))) + (_g122770122800_ _g122771122803_))))) + (let () (declare (not safe)) (_g122770122800_ _g122771122803_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122766122796_ - _g122767122799_))) + (_g122770122800_ + _g122771122803_))) (let () (declare (not safe)) - (_g122766122796_ - _g122767122799_))))) + (_g122770122800_ + _g122771122803_))))) (let () (declare (not safe)) - (_g122766122796_ _g122767122799_))) + (_g122770122800_ _g122771122803_))) (let () (declare (not safe)) - (_g122766122796_ _g122767122799_))))) + (_g122770122800_ _g122771122803_))))) (let () (declare (not safe)) - (_g122766122796_ _g122767122799_))))) + (_g122770122800_ _g122771122803_))))) (let () (declare (not safe)) - (_g122766122796_ _g122767122799_))))) + (_g122770122800_ _g122771122803_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122766122796_ - _g122767122799_))))) + (_g122770122800_ + _g122771122803_))))) (let () (declare (not safe)) - (_g122766122796_ - _g122767122799_))))) + (_g122770122800_ + _g122771122803_))))) (let () (declare (not safe)) - (_g122766122796_ _g122767122799_)))))) + (_g122770122800_ _g122771122803_)))))) (declare (not safe)) - (_g122765122891_ _L122749_)))) - (___kont130153130154_ - (lambda (_L122463_ _L122464_) - (let* ((_g122480122533_ - (lambda (_g122481122530_) + (_g122769122895_ _L122753_)))) + (___kont130157130158_ + (lambda (_L122467_ _L122468_) + (let* ((_g122484122537_ + (lambda (_g122485122534_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122481122530_)))) - (_g122479122709_ - (lambda (_g122481122536_) + _g122485122534_)))) + (_g122483122713_ + (lambda (_g122485122540_) (if (let () (declare (not safe)) - (gx#stx-pair? _g122481122536_)) - (let ((_e122489122538_ + (gx#stx-pair? _g122485122540_)) + (let ((_e122493122542_ (let () (declare (not safe)) - (gx#stx-e _g122481122536_)))) - (let ((_hd122488122541_ + (gx#stx-e _g122485122540_)))) + (let ((_hd122492122545_ (let () (declare (not safe)) - (##car _e122489122538_))) - (_tl122487122543_ + (##car _e122493122542_))) + (_tl122491122547_ (let () (declare (not safe)) - (##cdr _e122489122538_)))) + (##cdr _e122493122542_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122487122543_)) - (let ((_e122492122546_ + (gx#stx-pair? _tl122491122547_)) + (let ((_e122496122550_ (let () (declare (not safe)) (gx#stx-e - _tl122487122543_)))) - (let ((_hd122491122549_ + _tl122491122547_)))) + (let ((_hd122495122553_ (let () (declare (not safe)) - (##car _e122492122546_))) - (_tl122490122551_ + (##car _e122496122550_))) + (_tl122494122555_ (let () (declare (not safe)) - (##cdr _e122492122546_)))) + (##cdr _e122496122550_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122491122549_)) - (let ((_e122495122554_ + _hd122495122553_)) + (let ((_e122499122558_ (let () (declare (not safe)) (gx#stx-e - _hd122491122549_)))) - (let ((_hd122494122557_ + _hd122495122553_)))) + (let ((_hd122498122561_ (let () (declare (not safe)) - (##car _e122495122554_))) - (_tl122493122559_ + (##car _e122499122558_))) + (_tl122497122563_ (let () (declare (not safe)) - (##cdr _e122495122554_)))) + (##cdr _e122499122558_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122494122557_)) - (let ((_e122498122562_ + _hd122498122561_)) + (let ((_e122502122566_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd122494122557_)))) - (let ((_hd122497122565_ + (gx#stx-e _hd122498122561_)))) + (let ((_hd122501122569_ (let () (declare (not safe)) - (##car _e122498122562_))) - (_tl122496122567_ + (##car _e122502122566_))) + (_tl122500122571_ (let () (declare (not safe)) - (##cdr _e122498122562_)))) + (##cdr _e122502122566_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122497122565_)) - (let ((_e122501122570_ + (gx#stx-pair? _hd122501122569_)) + (let ((_e122505122574_ (let () (declare (not safe)) - (gx#stx-e _hd122497122565_)))) - (let ((_hd122500122573_ + (gx#stx-e _hd122501122569_)))) + (let ((_hd122504122577_ (let () (declare (not safe)) - (##car _e122501122570_))) - (_tl122499122575_ + (##car _e122505122574_))) + (_tl122503122579_ (let () (declare (not safe)) - (##cdr _e122501122570_)))) + (##cdr _e122505122574_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122499122575_)) + (gx#stx-null? _tl122503122579_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122496122567_)) - (let ((_e122504122578_ + (gx#stx-pair? _tl122500122571_)) + (let ((_e122508122582_ (let () (declare (not safe)) - (gx#stx-e _tl122496122567_)))) - (let ((_hd122503122581_ + (gx#stx-e _tl122500122571_)))) + (let ((_hd122507122585_ (let () (declare (not safe)) - (##car _e122504122578_))) - (_tl122502122583_ + (##car _e122508122582_))) + (_tl122506122587_ (let () (declare (not safe)) - (##cdr _e122504122578_)))) + (##cdr _e122508122582_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122503122581_)) - (let ((_e122507122586_ + _hd122507122585_)) + (let ((_e122511122590_ (let () (declare (not safe)) (gx#stx-e - _hd122503122581_)))) - (let ((_hd122506122589_ + _hd122507122585_)))) + (let ((_hd122510122593_ (let () (declare (not safe)) - (##car _e122507122586_))) - (_tl122505122591_ + (##car _e122511122590_))) + (_tl122509122595_ (let () (declare (not safe)) - (##cdr _e122507122586_)))) + (##cdr _e122511122590_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122505122591_)) - (let ((_e122510122594_ + _tl122509122595_)) + (let ((_e122514122598_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl122505122591_)))) - (let ((_hd122509122597_ - (let () (declare (not safe)) (##car _e122510122594_))) - (_tl122508122599_ - (let () (declare (not safe)) (##cdr _e122510122594_)))) + (gx#stx-e _tl122509122595_)))) + (let ((_hd122513122601_ + (let () (declare (not safe)) (##car _e122514122598_))) + (_tl122512122603_ + (let () (declare (not safe)) (##cdr _e122514122598_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122509122597_)) - (let ((_e122513122602_ + (gx#stx-pair? _hd122513122601_)) + (let ((_e122517122606_ (let () (declare (not safe)) - (gx#stx-e _hd122509122597_)))) - (let ((_hd122512122605_ + (gx#stx-e _hd122513122601_)))) + (let ((_hd122516122609_ (let () (declare (not safe)) - (##car _e122513122602_))) - (_tl122511122607_ + (##car _e122517122606_))) + (_tl122515122611_ (let () (declare (not safe)) - (##cdr _e122513122602_)))) + (##cdr _e122517122606_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122512122605_)) - (let ((_e122516122610_ + (gx#stx-pair? _hd122516122609_)) + (let ((_e122520122614_ (let () (declare (not safe)) - (gx#stx-e _hd122512122605_)))) - (let ((_hd122515122613_ + (gx#stx-e _hd122516122609_)))) + (let ((_hd122519122617_ (let () (declare (not safe)) - (##car _e122516122610_))) - (_tl122514122615_ + (##car _e122520122614_))) + (_tl122518122619_ (let () (declare (not safe)) - (##cdr _e122516122610_)))) + (##cdr _e122520122614_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122515122613_)) - (let ((_e122519122618_ + (gx#stx-pair? _hd122519122617_)) + (let ((_e122523122622_ (let () (declare (not safe)) - (gx#stx-e _hd122515122613_)))) - (let ((_hd122518122621_ + (gx#stx-e _hd122519122617_)))) + (let ((_hd122522122625_ (let () (declare (not safe)) - (##car _e122519122618_))) - (_tl122517122623_ + (##car _e122523122622_))) + (_tl122521122627_ (let () (declare (not safe)) - (##cdr _e122519122618_)))) + (##cdr _e122523122622_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122517122623_)) + _tl122521122627_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122514122615_)) - (let ((_e122522122626_ + _tl122518122619_)) + (let ((_e122526122630_ (let () (declare (not safe)) (gx#stx-e - _tl122514122615_)))) - (let ((_hd122521122629_ + _tl122518122619_)))) + (let ((_hd122525122633_ (let () (declare (not safe)) - (##car _e122522122626_))) - (_tl122520122631_ + (##car _e122526122630_))) + (_tl122524122635_ (let () (declare (not safe)) - (##cdr _e122522122626_)))) + (##cdr _e122526122630_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122520122631_)) + _tl122524122635_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl122511122607_)) + (gx#stx-null? _tl122515122611_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122508122599_)) - (let ((_e122525122634_ + (gx#stx-pair? _tl122512122603_)) + (let ((_e122529122638_ (let () (declare (not safe)) - (gx#stx-e _tl122508122599_)))) - (let ((_hd122524122637_ + (gx#stx-e _tl122512122603_)))) + (let ((_hd122528122641_ (let () (declare (not safe)) - (##car _e122525122634_))) - (_tl122523122639_ + (##car _e122529122638_))) + (_tl122527122643_ (let () (declare (not safe)) - (##cdr _e122525122634_)))) + (##cdr _e122529122638_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122523122639_)) + (gx#stx-null? _tl122527122643_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122502122583_)) + (gx#stx-null? _tl122506122587_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122493122559_)) + (gx#stx-null? _tl122497122563_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122490122551_)) - (let ((_e122528122642_ + _tl122494122555_)) + (let ((_e122532122646_ (let () (declare (not safe)) (gx#stx-e - _tl122490122551_)))) - (let ((_hd122527122645_ + _tl122494122555_)))) + (let ((_hd122531122649_ (let () (declare (not safe)) - (##car _e122528122642_))) - (_tl122526122647_ + (##car _e122532122646_))) + (_tl122530122651_ (let () (declare (not safe)) - (##cdr _e122528122642_)))) + (##cdr _e122532122646_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122526122647_)) - ((lambda (_L122650_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L122651_ - _L122652_ - _L122653_ - _L122654_) - (let* ((_get-kws-id122694_ - (let ((__tmp130857 + _tl122530122651_)) + ((lambda (_L122654_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L122655_ + _L122656_ + _L122657_ + _L122658_) + (let* ((_get-kws-id122698_ + (let ((__tmp130861 (let () (declare (not safe)) - (gx#stx-e _L122464_))) - (__tmp130855 - (let ((__tmp130856 + (gx#stx-e _L122468_))) + (__tmp130859 + (let ((__tmp130860 (let () (declare (not safe)) - (gx#stx-e _L122654_)))) + (gx#stx-e _L122658_)))) (declare (not safe)) - (_kw-lambda-dispatch-name122316_ - __tmp130856 + (_kw-lambda-dispatch-name122320_ + __tmp130860 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp130857 '"__" __tmp130855))) - (_get-kws-id122696_ - (let ((__tmp130858 + (make-symbol__1 __tmp130861 '"__" __tmp130859))) + (_get-kws-id122700_ + (let ((__tmp130862 (let () (declare (not safe)) - (gx#stx-source _stx122312_)))) + (gx#stx-source _stx122316_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id122694_ - __tmp130858))) - (_main-id122698_ - (let ((__tmp130861 + _get-kws-id122698_ + __tmp130862))) + (_main-id122702_ + (let ((__tmp130865 (let () (declare (not safe)) - (gx#stx-e _L122464_))) - (__tmp130859 - (let ((__tmp130860 + (gx#stx-e _L122468_))) + (__tmp130863 + (let ((__tmp130864 (let () (declare (not safe)) - (gx#stx-e _L122653_)))) + (gx#stx-e _L122657_)))) (declare (not safe)) - (_kw-lambda-dispatch-name122316_ - __tmp130860 + (_kw-lambda-dispatch-name122320_ + __tmp130864 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp130861 '"__" __tmp130859))) - (_main-id122700_ - (let ((__tmp130862 + (make-symbol__1 __tmp130865 '"__" __tmp130863))) + (_main-id122704_ + (let ((__tmp130866 (let () (declare (not safe)) - (gx#stx-source _stx122312_)))) + (gx#stx-source _stx122316_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id122698_ - __tmp130862))) - (_g130863_ + _main-id122702_ + __tmp130866))) + (_g130867_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id122696_))) - (_g130864_ + (gx#core-bind-runtime!__0 _get-kws-id122700_))) + (_g130868_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id122700_))) - (_new-kw-dispatch122704_ + (gx#core-bind-runtime!__0 _main-id122704_))) + (_new-kw-dispatch122708_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L122650_ - 'id: _L122654_ + 'id: + _L122658_ 'new-id: - _get-kws-id122696_))) - (_new-get-kws122706_ + _get-kws-id122700_))) + (_new-get-kws122710_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L122651_ + _L122655_ 'id: - _L122653_ + _L122657_ 'new-id: - _main-id122700_)))) - (let ((__tmp130867 + _main-id122704_)))) + (let ((__tmp130871 (let () (declare (not safe)) - (gxc#identifier-symbol _L122464_))) - (__tmp130866 + (gxc#identifier-symbol _L122468_))) + (__tmp130870 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id122696_))) - (__tmp130865 + (gxc#identifier-symbol _get-kws-id122700_))) + (__tmp130869 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id122700_)))) + (gxc#identifier-symbol _main-id122704_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp130867 + __tmp130871 '" => " - __tmp130866 + __tmp130870 '" => " - __tmp130865)) - (let ((__tmp130868 - (let ((__tmp130869 - (let ((__tmp130882 - (let ((__tmp130883 - (let ((__tmp130884 - (let ((__tmp130885 - (let ((__tmp130887 + __tmp130869)) + (let ((__tmp130872 + (let ((__tmp130873 + (let ((__tmp130886 + (let ((__tmp130887 + (let ((__tmp130888 + (let ((__tmp130889 + (let ((__tmp130891 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id122700_ '()))) - (__tmp130886 + (cons _main-id122704_ '()))) + (__tmp130890 (let () (declare (not safe)) - (cons _L122652_ '())))) + (cons _L122656_ '())))) (declare (not safe)) - (cons __tmp130887 __tmp130886)))) + (cons __tmp130891 __tmp130890)))) (declare (not safe)) - (cons '%#define-values __tmp130885)))) + (cons '%#define-values __tmp130889)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130884 - _stx122312_)))) + __tmp130888 + _stx122316_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - _self122311_ - __tmp130883))) - (__tmp130870 - (let ((__tmp130877 - (let ((__tmp130878 - (let ((__tmp130879 - (let ((__tmp130881 + _self122315_ + __tmp130887))) + (__tmp130874 + (let ((__tmp130881 + (let ((__tmp130882 + (let ((__tmp130883 + (let ((__tmp130885 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id122696_ '()))) - (__tmp130880 + (cons _get-kws-id122700_ '()))) + (__tmp130884 (let () (declare (not safe)) - (cons _new-get-kws122706_ '())))) + (cons _new-get-kws122710_ '())))) (declare (not safe)) - (cons __tmp130881 __tmp130880)))) + (cons __tmp130885 __tmp130884)))) (declare (not safe)) - (cons '%#define-values __tmp130879)))) + (cons '%#define-values __tmp130883)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130878 - _stx122312_))) - (__tmp130871 - (let ((__tmp130872 - (let ((__tmp130873 - (let ((__tmp130874 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130876 + __tmp130882 + _stx122316_))) + (__tmp130875 + (let ((__tmp130876 + (let ((__tmp130877 + (let ((__tmp130878 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130880 (let () (declare (not safe)) - (cons _L122464_ '()))) - (__tmp130875 + (cons _L122468_ '()))) + (__tmp130879 (let () (declare (not safe)) - (cons _new-kw-dispatch122704_ '())))) + (cons _new-kw-dispatch122708_ '())))) (declare (not safe)) - (cons __tmp130876 __tmp130875)))) + (cons __tmp130880 __tmp130879)))) (declare (not safe)) - (cons '%#define-values __tmp130874)))) + (cons '%#define-values __tmp130878)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130873 _stx122312_)))) + (gxc#xform-wrap-source __tmp130877 _stx122316_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130872 '())))) + (cons __tmp130876 '())))) (declare (not safe)) - (cons __tmp130877 __tmp130871)))) + (cons __tmp130881 __tmp130875)))) (declare (not safe)) - (cons __tmp130882 __tmp130870)))) + (cons __tmp130886 __tmp130874)))) (declare (not safe)) - (cons '%#begin __tmp130869)))) + (cons '%#begin __tmp130873)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130868 _stx122312_)))) - _hd122527122645_ - _hd122524122637_ - _hd122521122629_ - _hd122518122621_ - _hd122500122573_) + (gxc#xform-wrap-source __tmp130872 _stx122316_)))) + _hd122531122649_ + _hd122528122641_ + _hd122525122633_ + _hd122522122625_ + _hd122504122577_) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122480122533_ - _g122481122536_))) + (_g122484122537_ + _g122485122540_))) (let () (declare (not safe)) - (_g122480122533_ - _g122481122536_))) + (_g122484122537_ + _g122485122540_))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))) + (_g122484122537_ _g122485122540_))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))) + (_g122484122537_ _g122485122540_))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))) + (_g122484122537_ _g122485122540_))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122480122533_ - _g122481122536_))) + (_g122484122537_ + _g122485122540_))) (let () (declare (not safe)) - (_g122480122533_ - _g122481122536_))))) + (_g122484122537_ + _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122480122533_ - _g122481122536_))))) + (_g122484122537_ + _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))) + (_g122484122537_ _g122485122540_))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_))))) + (_g122484122537_ _g122485122540_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122480122533_ - _g122481122536_))))) + (_g122484122537_ + _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ - _g122481122536_))))) + (_g122484122537_ + _g122485122540_))))) (let () (declare (not safe)) - (_g122480122533_ _g122481122536_)))))) + (_g122484122537_ _g122485122540_)))))) (declare (not safe)) - (_g122479122709_ _L122463_)))) - (___kont130155130156_ - (lambda (_L122409_ _L122410_) - (let ((__tmp130888 - (let ((__tmp130889 - (let ((__tmp130890 - (let ((__tmp130891 + (_g122483122713_ _L122467_)))) + (___kont130159130160_ + (lambda (_L122413_ _L122414_) + (let ((__tmp130892 + (let ((__tmp130893 + (let ((__tmp130894 + (let ((__tmp130895 (let () (declare (not safe)) (gxc#compile-e__1 - _self122311_ - _L122409_)))) + _self122315_ + _L122413_)))) (declare (not safe)) - (cons __tmp130891 '())))) + (cons __tmp130895 '())))) (declare (not safe)) - (cons _L122410_ __tmp130890)))) + (cons _L122414_ __tmp130894)))) (declare (not safe)) - (cons '%#define-values __tmp130889)))) + (cons '%#define-values __tmp130893)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130888 _stx122312_))))) - (let* ((___match130240130241_ - (lambda (_e122355122431_ - _hd122354122434_ - _tl122353122436_ - _e122358122439_ - _hd122357122442_ - _tl122356122444_ - _e122361122447_ - _hd122360122450_ - _tl122359122452_ - _e122364122455_ - _hd122363122458_ - _tl122362122460_) - (let ((_L122463_ _hd122363122458_) - (_L122464_ _hd122360122450_)) + (gxc#xform-wrap-source __tmp130892 _stx122316_))))) + (let* ((___match130244130245_ + (lambda (_e122359122435_ + _hd122358122438_ + _tl122357122440_ + _e122362122443_ + _hd122361122446_ + _tl122360122448_ + _e122365122451_ + _hd122364122454_ + _tl122363122456_ + _e122368122459_ + _hd122367122462_ + _tl122366122464_) + (let ((_L122467_ _hd122367122462_) + (_L122468_ _hd122364122454_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L122464_)) + (gx#identifier? _L122468_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L122463_))) - (___kont130153130154_ _L122463_ _L122464_) - (___kont130155130156_ - _hd122363122458_ - _hd122357122442_))))) - (___match130212130213_ - (lambda (_e122341122717_ - _hd122340122720_ - _tl122339122722_ - _e122344122725_ - _hd122343122728_ - _tl122342122730_ - _e122347122733_ - _hd122346122736_ - _tl122345122738_ - _e122350122741_ - _hd122349122744_ - _tl122348122746_) - (let ((_L122749_ _hd122349122744_) - (_L122750_ _hd122346122736_)) + (gxc#kw-lambda-expr? _L122467_))) + (___kont130157130158_ _L122467_ _L122468_) + (___kont130159130160_ + _hd122367122462_ + _hd122361122446_))))) + (___match130216130217_ + (lambda (_e122345122721_ + _hd122344122724_ + _tl122343122726_ + _e122348122729_ + _hd122347122732_ + _tl122346122734_ + _e122351122737_ + _hd122350122740_ + _tl122349122742_ + _e122354122745_ + _hd122353122748_ + _tl122352122750_) + (let ((_L122753_ _hd122353122748_) + (_L122754_ _hd122350122740_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L122750_)) + (gx#identifier? _L122754_)) (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L122749_))) - (___kont130151130152_ _L122749_ _L122750_) - (___match130240130241_ - _e122341122717_ - _hd122340122720_ - _tl122339122722_ - _e122344122725_ - _hd122343122728_ - _tl122342122730_ - _e122347122733_ - _hd122346122736_ - _tl122345122738_ - _e122350122741_ - _hd122349122744_ - _tl122348122746_))))) - (___match130184130185_ - (lambda (_e122327122899_ - _hd122326122902_ - _tl122325122904_ - _e122330122907_ - _hd122329122910_ - _tl122328122912_ - _e122333122915_ - _hd122332122918_ - _tl122331122920_ - _e122336122923_ - _hd122335122926_ - _tl122334122928_) - (let ((_L122931_ _hd122335122926_) - (_L122932_ _hd122332122918_)) + (gxc#opt-lambda-expr? _L122753_))) + (___kont130155130156_ _L122753_ _L122754_) + (___match130244130245_ + _e122345122721_ + _hd122344122724_ + _tl122343122726_ + _e122348122729_ + _hd122347122732_ + _tl122346122734_ + _e122351122737_ + _hd122350122740_ + _tl122349122742_ + _e122354122745_ + _hd122353122748_ + _tl122352122750_))))) + (___match130188130189_ + (lambda (_e122331122903_ + _hd122330122906_ + _tl122329122908_ + _e122334122911_ + _hd122333122914_ + _tl122332122916_ + _e122337122919_ + _hd122336122922_ + _tl122335122924_ + _e122340122927_ + _hd122339122930_ + _tl122338122932_) + (let ((_L122935_ _hd122339122930_) + (_L122936_ _hd122336122922_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L122932_)) + (gx#identifier? _L122936_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L122931_))) - (___kont130149130150_ _L122931_ _L122932_) - (___match130212130213_ - _e122327122899_ - _hd122326122902_ - _tl122325122904_ - _e122330122907_ - _hd122329122910_ - _tl122328122912_ - _e122333122915_ - _hd122332122918_ - _tl122331122920_ - _e122336122923_ - _hd122335122926_ - _tl122334122928_)))))) + (gxc#case-lambda-expr? _L122935_))) + (___kont130153130154_ _L122935_ _L122936_) + (___match130216130217_ + _e122331122903_ + _hd122330122906_ + _tl122329122908_ + _e122334122911_ + _hd122333122914_ + _tl122332122916_ + _e122337122919_ + _hd122336122922_ + _tl122335122924_ + _e122340122927_ + _hd122339122930_ + _tl122338122932_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130147130148_)) - (let ((_e122327122899_ + (gx#stx-pair? ___stx130151130152_)) + (let ((_e122331122903_ (let () (declare (not safe)) - (gx#stx-e ___stx130147130148_)))) - (let ((_tl122325122904_ + (gx#stx-e ___stx130151130152_)))) + (let ((_tl122329122908_ (let () (declare (not safe)) - (##cdr _e122327122899_))) - (_hd122326122902_ + (##cdr _e122331122903_))) + (_hd122330122906_ (let () (declare (not safe)) - (##car _e122327122899_)))) + (##car _e122331122903_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122325122904_)) - (let ((_e122330122907_ + (gx#stx-pair? _tl122329122908_)) + (let ((_e122334122911_ (let () (declare (not safe)) - (gx#stx-e _tl122325122904_)))) - (let ((_tl122328122912_ + (gx#stx-e _tl122329122908_)))) + (let ((_tl122332122916_ (let () (declare (not safe)) - (##cdr _e122330122907_))) - (_hd122329122910_ + (##cdr _e122334122911_))) + (_hd122333122914_ (let () (declare (not safe)) - (##car _e122330122907_)))) + (##car _e122334122911_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122329122910_)) - (let ((_e122333122915_ + (gx#stx-pair? _hd122333122914_)) + (let ((_e122337122919_ (let () (declare (not safe)) - (gx#stx-e _hd122329122910_)))) - (let ((_tl122331122920_ + (gx#stx-e _hd122333122914_)))) + (let ((_tl122335122924_ (let () (declare (not safe)) - (##cdr _e122333122915_))) - (_hd122332122918_ + (##cdr _e122337122919_))) + (_hd122336122922_ (let () (declare (not safe)) - (##car _e122333122915_)))) + (##car _e122337122919_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122331122920_)) + (gx#stx-null? _tl122335122924_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122328122912_)) - (let ((_e122336122923_ + _tl122332122916_)) + (let ((_e122340122927_ (let () (declare (not safe)) (gx#stx-e - _tl122328122912_)))) - (let ((_tl122334122928_ + _tl122332122916_)))) + (let ((_tl122338122932_ (let () (declare (not safe)) - (##cdr _e122336122923_))) - (_hd122335122926_ + (##cdr _e122340122927_))) + (_hd122339122930_ (let () (declare (not safe)) - (##car _e122336122923_)))) + (##car _e122340122927_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122334122928_)) - (___match130184130185_ - _e122327122899_ - _hd122326122902_ - _tl122325122904_ - _e122330122907_ - _hd122329122910_ - _tl122328122912_ - _e122333122915_ - _hd122332122918_ - _tl122331122920_ - _e122336122923_ - _hd122335122926_ - _tl122334122928_) + _tl122338122932_)) + (___match130188130189_ + _e122331122903_ + _hd122330122906_ + _tl122329122908_ + _e122334122911_ + _hd122333122914_ + _tl122332122916_ + _e122337122919_ + _hd122336122922_ + _tl122335122924_ + _e122340122927_ + _hd122339122930_ + _tl122338122932_) (let () (declare (not safe)) - (_g122321122380_))))) + (_g122325122384_))))) (let () (declare (not safe)) - (_g122321122380_))) + (_g122325122384_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122328122912_)) - (let ((_e122375122401_ + _tl122332122916_)) + (let ((_e122379122405_ (let () (declare (not safe)) (gx#stx-e - _tl122328122912_)))) - (let ((_tl122373122406_ + _tl122332122916_)))) + (let ((_tl122377122410_ (let () (declare (not safe)) - (##cdr _e122375122401_))) - (_hd122374122404_ + (##cdr _e122379122405_))) + (_hd122378122408_ (let () (declare (not safe)) - (##car _e122375122401_)))) + (##car _e122379122405_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122373122406_)) - (___kont130155130156_ - _hd122374122404_ - _hd122329122910_) + _tl122377122410_)) + (___kont130159130160_ + _hd122378122408_ + _hd122333122914_) (let () (declare (not safe)) - (_g122321122380_))))) + (_g122325122384_))))) (let () (declare (not safe)) - (_g122321122380_)))))) + (_g122325122384_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122328122912_)) - (let ((_e122375122401_ + (gx#stx-pair? _tl122332122916_)) + (let ((_e122379122405_ (let () (declare (not safe)) - (gx#stx-e _tl122328122912_)))) - (let ((_tl122373122406_ + (gx#stx-e _tl122332122916_)))) + (let ((_tl122377122410_ (let () (declare (not safe)) - (##cdr _e122375122401_))) - (_hd122374122404_ + (##cdr _e122379122405_))) + (_hd122378122408_ (let () (declare (not safe)) - (##car _e122375122401_)))) + (##car _e122379122405_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122373122406_)) - (___kont130155130156_ - _hd122374122404_ - _hd122329122910_) + _tl122377122410_)) + (___kont130159130160_ + _hd122378122408_ + _hd122333122914_) (let () (declare (not safe)) - (_g122321122380_))))) + (_g122325122384_))))) (let () (declare (not safe)) - (_g122321122380_)))))) - (let () (declare (not safe)) (_g122321122380_))))) - (let () (declare (not safe)) (_g122321122380_))))))))) + (_g122325122384_)))))) + (let () (declare (not safe)) (_g122325122384_))))) + (let () (declare (not safe)) (_g122325122384_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_self121242_ _stx121243_) - (letrec* ((_bind-e__128543128544_ - (lambda (_id122295_ _expr122296_ _compile?122297_) - (let ((__tmp130894 + (lambda (_self121246_ _stx121247_) + (letrec* ((_bind-e__128547128548_ + (lambda (_id122299_ _expr122300_ _compile?122301_) + (let ((__tmp130898 (let () (declare (not safe)) - (cons _id122295_ '()))) - (__tmp130892 - (let ((__tmp130893 - (if _compile?122297_ + (cons _id122299_ '()))) + (__tmp130896 + (let ((__tmp130897 + (if _compile?122301_ (let () (declare (not safe)) (gxc#compile-e__1 - _self121242_ - _expr122296_)) - _expr122296_))) + _self121246_ + _expr122300_)) + _expr122300_))) (declare (not safe)) - (cons __tmp130893 '())))) + (cons __tmp130897 '())))) (declare (not safe)) - (cons __tmp130894 __tmp130892)))) - (_bind-e__0__128545128546_ - (lambda (_id122302_ _expr122303_) - (let ((_compile?122305_ '#t)) + (cons __tmp130898 __tmp130896)))) + (_bind-e__0__128549128550_ + (lambda (_id122306_ _expr122307_) + (let ((_compile?122309_ '#t)) (declare (not safe)) - (_bind-e__128543128544_ - _id122302_ - _expr122303_ - _compile?122305_)))) - (_bind-e121245_ - (lambda _g130896_ - (let ((_g130895_ + (_bind-e__128547128548_ + _id122306_ + _expr122307_ + _compile?122309_)))) + (_bind-e121249_ + (lambda _g130900_ + (let ((_g130899_ (let () (declare (not safe)) - (##length _g130896_)))) - (cond ((let () (declare (not safe)) (##fx= _g130895_ 2)) - (apply (lambda (_id122302_ _expr122303_) + (##length _g130900_)))) + (cond ((let () (declare (not safe)) (##fx= _g130899_ 2)) + (apply (lambda (_id122306_ _expr122307_) (let () (declare (not safe)) - (_bind-e__0__128545128546_ - _id122302_ - _expr122303_))) - _g130896_)) - ((let () (declare (not safe)) (##fx= _g130895_ 3)) - (apply (lambda (_id122307_ - _expr122308_ - _compile?122309_) + (_bind-e__0__128549128550_ + _id122306_ + _expr122307_))) + _g130900_)) + ((let () (declare (not safe)) (##fx= _g130899_ 3)) + (apply (lambda (_id122311_ + _expr122312_ + _compile?122313_) (let () (declare (not safe)) - (_bind-e__128543128544_ - _id122307_ - _expr122308_ - _compile?122309_))) - _g130896_)) + (_bind-e__128547128548_ + _id122311_ + _expr122312_ + _compile?122313_))) + _g130900_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g130896_)))))) - (_compile-bindings121246_ - (lambda (_bindings121879_) - (let _lp121881_ ((_rest121883_ _bindings121879_) - (_lift1121884_ '()) - (_lift2121885_ '()) - (_bind121886_ '())) - (let* ((_rest121887121895_ _rest121883_) - (_else121889121903_ + _g130900_)))))) + (_compile-bindings121250_ + (lambda (_bindings121883_) + (let _lp121885_ ((_rest121887_ _bindings121883_) + (_lift1121888_ '()) + (_lift2121889_ '()) + (_bind121890_ '())) + (let* ((_rest121891121899_ _rest121887_) + (_else121893121907_ (lambda () - (values (reverse _lift1121884_) - (reverse _lift2121885_) - (reverse _bind121886_)))) - (_K121891122282_ - (lambda (_rest121906_ _hd121907_) - (let* ((___stx130283130284_ _hd121907_) - (_g121911121947_ + (values (reverse _lift1121888_) + (reverse _lift2121889_) + (reverse _bind121890_)))) + (_K121895122286_ + (lambda (_rest121910_ _hd121911_) + (let* ((___stx130287130288_ _hd121911_) + (_g121915121951_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130283130284_))))) - (let ((___kont130285130286_ - (lambda (_L122189_ _L122190_) - (let* ((___stx130263130264_ - _L122189_) - (_g122205122219_ + ___stx130287130288_))))) + (let ((___kont130289130290_ + (lambda (_L122193_ _L122194_) + (let* ((___stx130267130268_ + _L122193_) + (_g122209122223_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130263130264_))))) - (let ((___kont130265130266_ - (lambda (_L122267_) - (let ((__tmp130897 - (let ((__tmp130898 + ___stx130267130268_))))) + (let ((___kont130269130270_ + (lambda (_L122271_) + (let ((__tmp130901 + (let ((__tmp130902 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__128543128544_ - _L122190_ - _L122189_ + (_bind-e__128547128548_ + _L122194_ + _L122193_ '#f)))) (declare (not safe)) - (cons __tmp130898 _bind121886_)))) + (cons __tmp130902 _bind121890_)))) (declare (not safe)) - (_lp121881_ - _rest121906_ - _lift1121884_ - _lift2121885_ - __tmp130897)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130267130268_ - (lambda (_L122232_) - (let ((_g130899_ + (_lp121885_ + _rest121910_ + _lift1121888_ + _lift2121889_ + __tmp130901)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont130271130272_ + (lambda (_L122236_) + (let ((_g130903_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx121243_ - _L122190_ - _L122232_ + _stx121247_ + _L122194_ + _L122236_ '#t)))) (begin - (let ((_g130900_ + (let ((_g130904_ (let () (declare (not safe)) - (if (##values? _g130899_) - (##vector-length _g130899_) + (if (##values? _g130903_) + (##vector-length _g130903_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130900_ 3))) - (error "Context expects 3 values" _g130900_))) - (let ((_ids122242_ + (##fx= _g130904_ 3))) + (error "Context expects 3 values" _g130904_))) + (let ((_ids122246_ (let () (declare (not safe)) - (##vector-ref _g130899_ 0))) - (_impls122243_ + (##vector-ref _g130903_ 0))) + (_impls122247_ (let () (declare (not safe)) - (##vector-ref _g130899_ 1))) - (_clauses122244_ + (##vector-ref _g130903_ 1))) + (_clauses122248_ (let () (declare (not safe)) - (##vector-ref _g130899_ 2)))) - (let* ((_g130901_ - (for-each gx#core-bind-runtime! _ids122242_)) - (_xbind122247_ - (map _bind-e121245_ _ids122242_ _impls122243_)) - (_expr*122249_ - (let ((__tmp130903 + (##vector-ref _g130903_ 2)))) + (let* ((_g130905_ + (for-each gx#core-bind-runtime! _ids122246_)) + (_xbind122251_ + (map _bind-e121249_ _ids122246_ _impls122247_)) + (_expr*122253_ + (let ((__tmp130907 (let () (declare (not safe)) - (cons '%#case-lambda _clauses122244_))) - (__tmp130902 + (cons '%#case-lambda _clauses122248_))) + (__tmp130906 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12705,1592 +12705,1592 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130903 - __tmp130902))) - (_bind*122251_ + __tmp130907 + __tmp130906))) + (_bind*122255_ (let () (declare (not safe)) - (_bind-e__128543128544_ - _L122190_ - _expr*122249_ + (_bind-e__128547128548_ + _L122194_ + _expr*122253_ '#f)))) - (let ((__tmp130905 + (let ((__tmp130909 (let () (declare (not safe)) - (gxc#identifier-symbol _L122190_))) - (__tmp130904 - (map gxc#identifier-symbol _ids122242_))) + (gxc#identifier-symbol _L122194_))) + (__tmp130908 + (map gxc#identifier-symbol _ids122246_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp130905 + __tmp130909 '" => " - __tmp130904)) - (let ((__tmp130907 + __tmp130908)) + (let ((__tmp130911 (let () (declare (not safe)) - (foldl1 cons _lift2121885_ _xbind122247_))) - (__tmp130906 + (foldl1 cons _lift2121889_ _xbind122251_))) + (__tmp130910 (let () (declare (not safe)) - (cons _bind*122251_ _bind121886_)))) + (cons _bind*122255_ _bind121890_)))) (declare (not safe)) - (_lp121881_ - _rest121906_ - _lift1121884_ - __tmp130907 - __tmp130906))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match130274130275_ - (lambda (_e122210122259_ - _hd122209122262_ - _tl122208122264_) - (let ((_L122267_ - _tl122208122264_)) + (_lp121885_ + _rest121910_ + _lift1121888_ + __tmp130911 + __tmp130910))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match130278130279_ + (lambda (_e122214122263_ + _hd122213122266_ + _tl122212122268_) + (let ((_L122271_ + _tl122212122268_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L122267_)) - (___kont130265130266_ _L122267_) - (___kont130267130268_ _tl122208122264_)))))) + (andmap1 gxc#dispatch-lambda-form? _L122271_)) + (___kont130269130270_ _L122271_) + (___kont130271130272_ _tl122212122268_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130263130264_)) - (let ((_e122210122259_ + ___stx130267130268_)) + (let ((_e122214122263_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx130263130264_)))) - (let ((_tl122208122264_ - (let () (declare (not safe)) (##cdr _e122210122259_))) - (_hd122209122262_ - (let () (declare (not safe)) (##car _e122210122259_)))) - (___match130274130275_ - _e122210122259_ - _hd122209122262_ - _tl122208122264_))) - (let () (declare (not safe)) (_g122205122219_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130287130288_ - (lambda (_L122017_ _L122018_) - (let* ((_g122032122062_ - (lambda (_g122033122059_) + (gx#stx-e ___stx130267130268_)))) + (let ((_tl122212122268_ + (let () (declare (not safe)) (##cdr _e122214122263_))) + (_hd122213122266_ + (let () (declare (not safe)) (##car _e122214122263_)))) + (___match130278130279_ + _e122214122263_ + _hd122213122266_ + _tl122212122268_))) + (let () (declare (not safe)) (_g122209122223_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont130291130292_ + (lambda (_L122021_ _L122022_) + (let* ((_g122036122066_ + (lambda (_g122037122063_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122033122059_)))) - (_g122031122157_ - (lambda (_g122033122065_) + _g122037122063_)))) + (_g122035122161_ + (lambda (_g122037122069_) (if (let () (declare (not safe)) (gx#stx-pair? - _g122033122065_)) - (let ((_e122039122067_ + _g122037122069_)) + (let ((_e122043122071_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g122033122065_)))) - (let ((_hd122038122070_ + (gx#stx-e _g122037122069_)))) + (let ((_hd122042122074_ (let () (declare (not safe)) - (##car _e122039122067_))) - (_tl122037122072_ + (##car _e122043122071_))) + (_tl122041122076_ (let () (declare (not safe)) - (##cdr _e122039122067_)))) + (##cdr _e122043122071_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122037122072_)) - (let ((_e122042122075_ + (gx#stx-pair? _tl122041122076_)) + (let ((_e122046122079_ (let () (declare (not safe)) - (gx#stx-e _tl122037122072_)))) - (let ((_hd122041122078_ + (gx#stx-e _tl122041122076_)))) + (let ((_hd122045122082_ (let () (declare (not safe)) - (##car _e122042122075_))) - (_tl122040122080_ + (##car _e122046122079_))) + (_tl122044122084_ (let () (declare (not safe)) - (##cdr _e122042122075_)))) + (##cdr _e122046122079_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122041122078_)) - (let ((_e122045122083_ + (gx#stx-pair? _hd122045122082_)) + (let ((_e122049122087_ (let () (declare (not safe)) - (gx#stx-e _hd122041122078_)))) - (let ((_hd122044122086_ + (gx#stx-e _hd122045122082_)))) + (let ((_hd122048122090_ (let () (declare (not safe)) - (##car _e122045122083_))) - (_tl122043122088_ + (##car _e122049122087_))) + (_tl122047122092_ (let () (declare (not safe)) - (##cdr _e122045122083_)))) + (##cdr _e122049122087_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122044122086_)) - (let ((_e122048122091_ + (gx#stx-pair? _hd122048122090_)) + (let ((_e122052122095_ (let () (declare (not safe)) (gx#stx-e - _hd122044122086_)))) - (let ((_hd122047122094_ + _hd122048122090_)))) + (let ((_hd122051122098_ (let () (declare (not safe)) - (##car _e122048122091_))) - (_tl122046122096_ + (##car _e122052122095_))) + (_tl122050122100_ (let () (declare (not safe)) - (##cdr _e122048122091_)))) + (##cdr _e122052122095_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122047122094_)) - (let ((_e122051122099_ + _hd122051122098_)) + (let ((_e122055122103_ (let () (declare (not safe)) (gx#stx-e - _hd122047122094_)))) - (let ((_hd122050122102_ + _hd122051122098_)))) + (let ((_hd122054122106_ (let () (declare (not safe)) - (##car _e122051122099_))) - (_tl122049122104_ + (##car _e122055122103_))) + (_tl122053122108_ (let () (declare (not safe)) - (##cdr _e122051122099_)))) + (##cdr _e122055122103_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122049122104_)) + _tl122053122108_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl122046122096_)) - (let ((_e122054122107_ + (gx#stx-pair? _tl122050122100_)) + (let ((_e122058122111_ (let () (declare (not safe)) - (gx#stx-e _tl122046122096_)))) - (let ((_hd122053122110_ + (gx#stx-e _tl122050122100_)))) + (let ((_hd122057122114_ (let () (declare (not safe)) - (##car _e122054122107_))) - (_tl122052122112_ + (##car _e122058122111_))) + (_tl122056122116_ (let () (declare (not safe)) - (##cdr _e122054122107_)))) + (##cdr _e122058122111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122052122112_)) + (gx#stx-null? _tl122056122116_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122043122088_)) + (gx#stx-null? _tl122047122092_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122040122080_)) - (let ((_e122057122115_ + (gx#stx-pair? _tl122044122084_)) + (let ((_e122061122119_ (let () (declare (not safe)) - (gx#stx-e _tl122040122080_)))) - (let ((_hd122056122118_ + (gx#stx-e _tl122044122084_)))) + (let ((_hd122060122122_ (let () (declare (not safe)) - (##car _e122057122115_))) - (_tl122055122120_ + (##car _e122061122119_))) + (_tl122059122124_ (let () (declare (not safe)) - (##cdr _e122057122115_)))) + (##cdr _e122061122119_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122055122120_)) - ((lambda (_L122123_ - _L122124_ - _L122125_) - (let* ((_lambda-id122149_ - (let ((__tmp130909 + _tl122059122124_)) + ((lambda (_L122127_ + _L122128_ + _L122129_) + (let* ((_lambda-id122153_ + (let ((__tmp130913 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L122018_))) - (__tmp130908 (gensym '__))) + (gx#stx-e _L122022_))) + (__tmp130912 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp130909 __tmp130908))) - (_lambda-id122151_ - (let ((__tmp130910 + (make-symbol__1 __tmp130913 __tmp130912))) + (_lambda-id122155_ + (let ((__tmp130914 (let () (declare (not safe)) - (gx#stx-source _stx121243_)))) + (gx#stx-source _stx121247_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id122149_ __tmp130910))) - (_g130911_ + (gx#core-quote-syntax__1 _lambda-id122153_ __tmp130914))) + (_g130915_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id122151_))) - (_new-case-lambda-expr122154_ + (gx#core-bind-runtime!__0 _lambda-id122155_))) + (_new-case-lambda-expr122158_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L122123_ + _L122127_ 'id: - _L122125_ + _L122129_ 'new-id: - _lambda-id122151_)))) + _lambda-id122155_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp130913 + (let ((__tmp130917 (let () (declare (not safe)) (gxc#identifier-symbol - _L122018_))) - (__tmp130912 + _L122022_))) + (__tmp130916 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id122151_)))) + _lambda-id122155_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp130913 + __tmp130917 '" => " - __tmp130912)) - (let ((__tmp130916 - (let ((__tmp130917 + __tmp130916)) + (let ((__tmp130920 + (let ((__tmp130921 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__128543128544_ - _L122018_ - _new-case-lambda-expr122154_ + (_bind-e__128547128548_ + _L122022_ + _new-case-lambda-expr122158_ '#f)))) (declare (not safe)) - (cons __tmp130917 _rest121906_))) - (__tmp130914 - (let ((__tmp130915 + (cons __tmp130921 _rest121910_))) + (__tmp130918 + (let ((__tmp130919 (let () (declare (not safe)) - (_bind-e__0__128545128546_ - _lambda-id122151_ - _L122124_)))) + (_bind-e__0__128549128550_ + _lambda-id122155_ + _L122128_)))) (declare (not safe)) - (cons __tmp130915 _lift1121884_)))) + (cons __tmp130919 _lift1121888_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp121881_ - __tmp130916 - __tmp130914 - _lift2121885_ - _bind121886_)))) - _hd122056122118_ - _hd122053122110_ - _hd122050122102_) + (_lp121885_ + __tmp130920 + __tmp130918 + _lift2121889_ + _bind121890_)))) + _hd122060122122_ + _hd122057122114_ + _hd122054122106_) (let () (declare (not safe)) - (_g122032122062_ - _g122033122065_))))) + (_g122036122066_ + _g122037122069_))))) (let () (declare (not safe)) - (_g122032122062_ _g122033122065_))) + (_g122036122066_ _g122037122069_))) (let () (declare (not safe)) - (_g122032122062_ _g122033122065_))) + (_g122036122066_ _g122037122069_))) (let () (declare (not safe)) - (_g122032122062_ _g122033122065_))))) + (_g122036122066_ _g122037122069_))))) (let () (declare (not safe)) - (_g122032122062_ _g122033122065_))) + (_g122036122066_ _g122037122069_))) (let () (declare (not safe)) - (_g122032122062_ _g122033122065_))))) + (_g122036122066_ _g122037122069_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122032122062_ - _g122033122065_))))) + (_g122036122066_ + _g122037122069_))))) (let () (declare (not safe)) - (_g122032122062_ - _g122033122065_))))) + (_g122036122066_ + _g122037122069_))))) (let () (declare (not safe)) - (_g122032122062_ _g122033122065_))))) + (_g122036122066_ _g122037122069_))))) (let () (declare (not safe)) - (_g122032122062_ _g122033122065_))))) + (_g122036122066_ _g122037122069_))))) (let () (declare (not safe)) - (_g122032122062_ _g122033122065_)))))) + (_g122036122066_ _g122037122069_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g122031122157_ _L122017_)))) - (___kont130289130290_ - (lambda (_L121968_ _L121969_) - (let ((__tmp130918 - (let ((__tmp130919 - (let ((__tmp130920 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130921 + (_g122035122161_ _L122021_)))) + (___kont130293130294_ + (lambda (_L121972_ _L121973_) + (let ((__tmp130922 + (let ((__tmp130923 + (let ((__tmp130924 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130925 (let () (declare (not safe)) - (gxc#compile-e__1 _self121242_ _L121968_)))) + (gxc#compile-e__1 _self121246_ _L121972_)))) (declare (not safe)) - (cons __tmp130921 '())))) + (cons __tmp130925 '())))) (declare (not safe)) - (cons _L121969_ __tmp130920)))) + (cons _L121973_ __tmp130924)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130919 - _bind121886_)))) + (cons __tmp130923 + _bind121890_)))) (declare (not safe)) - (_lp121881_ - _rest121906_ - _lift1121884_ - _lift2121885_ - __tmp130918))))) - (let* ((___match130334130335_ - (lambda (_e121928121993_ - _hd121927121996_ - _tl121926121998_ - _e121931122001_ - _hd121930122004_ - _tl121929122006_ - _e121934122009_ - _hd121933122012_ - _tl121932122014_) - (let ((_L122017_ - _hd121933122012_) - (_L122018_ - _hd121930122004_)) + (_lp121885_ + _rest121910_ + _lift1121888_ + _lift2121889_ + __tmp130922))))) + (let* ((___match130338130339_ + (lambda (_e121932121997_ + _hd121931122000_ + _tl121930122002_ + _e121935122005_ + _hd121934122008_ + _tl121933122010_ + _e121938122013_ + _hd121937122016_ + _tl121936122018_) + (let ((_L122021_ + _hd121937122016_) + (_L122022_ + _hd121934122008_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L122018_)) + _L122022_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L122017_))) - (___kont130287130288_ - _L122017_ - _L122018_) - (___kont130289130290_ - _hd121933122012_ - _hd121927121996_))))) - (___match130312130313_ - (lambda (_e121917122165_ - _hd121916122168_ - _tl121915122170_ - _e121920122173_ - _hd121919122176_ - _tl121918122178_ - _e121923122181_ - _hd121922122184_ - _tl121921122186_) - (let ((_L122189_ - _hd121922122184_) - (_L122190_ - _hd121919122176_)) + _L122021_))) + (___kont130291130292_ + _L122021_ + _L122022_) + (___kont130293130294_ + _hd121937122016_ + _hd121931122000_))))) + (___match130316130317_ + (lambda (_e121921122169_ + _hd121920122172_ + _tl121919122174_ + _e121924122177_ + _hd121923122180_ + _tl121922122182_ + _e121927122185_ + _hd121926122188_ + _tl121925122190_) + (let ((_L122193_ + _hd121926122188_) + (_L122194_ + _hd121923122180_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L122190_)) + _L122194_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L122189_))) - (___kont130285130286_ - _L122189_ - _L122190_) - (___match130334130335_ - _e121917122165_ - _hd121916122168_ - _tl121915122170_ - _e121920122173_ - _hd121919122176_ - _tl121918122178_ - _e121923122181_ - _hd121922122184_ - _tl121921122186_)))))) + _L122193_))) + (___kont130289130290_ + _L122193_ + _L122194_) + (___match130338130339_ + _e121921122169_ + _hd121920122172_ + _tl121919122174_ + _e121924122177_ + _hd121923122180_ + _tl121922122182_ + _e121927122185_ + _hd121926122188_ + _tl121925122190_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130283130284_)) - (let ((_e121917122165_ + ___stx130287130288_)) + (let ((_e121921122169_ (let () (declare (not safe)) (gx#stx-e - ___stx130283130284_)))) - (let ((_tl121915122170_ + ___stx130287130288_)))) + (let ((_tl121919122174_ (let () (declare (not safe)) - (##cdr _e121917122165_))) - (_hd121916122168_ + (##cdr _e121921122169_))) + (_hd121920122172_ (let () (declare (not safe)) - (##car _e121917122165_)))) + (##car _e121921122169_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121916122168_)) - (let ((_e121920122173_ + _hd121920122172_)) + (let ((_e121924122177_ (let () (declare (not safe)) (gx#stx-e - _hd121916122168_)))) - (let ((_tl121918122178_ + _hd121920122172_)))) + (let ((_tl121922122182_ (let () (declare (not safe)) - (##cdr _e121920122173_))) - (_hd121919122176_ + (##cdr _e121924122177_))) + (_hd121923122180_ (let () (declare (not safe)) - (##car _e121920122173_)))) + (##car _e121924122177_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121918122178_)) + _tl121922122182_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121915122170_)) - (let ((_e121923122181_ + (gx#stx-pair? _tl121919122174_)) + (let ((_e121927122185_ (let () (declare (not safe)) - (gx#stx-e _tl121915122170_)))) - (let ((_tl121921122186_ + (gx#stx-e _tl121919122174_)))) + (let ((_tl121925122190_ (let () (declare (not safe)) - (##cdr _e121923122181_))) - (_hd121922122184_ + (##cdr _e121927122185_))) + (_hd121926122188_ (let () (declare (not safe)) - (##car _e121923122181_)))) + (##car _e121927122185_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121921122186_)) - (___match130312130313_ - _e121917122165_ - _hd121916122168_ - _tl121915122170_ - _e121920122173_ - _hd121919122176_ - _tl121918122178_ - _e121923122181_ - _hd121922122184_ - _tl121921122186_) + (gx#stx-null? _tl121925122190_)) + (___match130316130317_ + _e121921122169_ + _hd121920122172_ + _tl121919122174_ + _e121924122177_ + _hd121923122180_ + _tl121922122182_ + _e121927122185_ + _hd121926122188_ + _tl121925122190_) (let () (declare (not safe)) - (_g121911121947_))))) - (let () (declare (not safe)) (_g121911121947_))) + (_g121915121951_))))) + (let () (declare (not safe)) (_g121915121951_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121915122170_)) - (let ((_e121942121960_ + (gx#stx-pair? _tl121919122174_)) + (let ((_e121946121964_ (let () (declare (not safe)) - (gx#stx-e _tl121915122170_)))) - (let ((_tl121940121965_ + (gx#stx-e _tl121919122174_)))) + (let ((_tl121944121969_ (let () (declare (not safe)) - (##cdr _e121942121960_))) - (_hd121941121963_ + (##cdr _e121946121964_))) + (_hd121945121967_ (let () (declare (not safe)) - (##car _e121942121960_)))) + (##car _e121946121964_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121940121965_)) - (___kont130289130290_ - _hd121941121963_ - _hd121916122168_) + (gx#stx-null? _tl121944121969_)) + (___kont130293130294_ + _hd121945121967_ + _hd121920122172_) (let () (declare (not safe)) - (_g121911121947_))))) - (let () (declare (not safe)) (_g121911121947_)))))) + (_g121915121951_))))) + (let () (declare (not safe)) (_g121915121951_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl121915122170_)) - (let ((_e121942121960_ + _tl121919122174_)) + (let ((_e121946121964_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl121915122170_)))) - (let ((_tl121940121965_ - (let () (declare (not safe)) (##cdr _e121942121960_))) - (_hd121941121963_ - (let () (declare (not safe)) (##car _e121942121960_)))) + (gx#stx-e _tl121919122174_)))) + (let ((_tl121944121969_ + (let () (declare (not safe)) (##cdr _e121946121964_))) + (_hd121945121967_ + (let () (declare (not safe)) (##car _e121946121964_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121940121965_)) - (___kont130289130290_ _hd121941121963_ _hd121916122168_) - (let () (declare (not safe)) (_g121911121947_))))) - (let () (declare (not safe)) (_g121911121947_)))))) + (gx#stx-null? _tl121944121969_)) + (___kont130293130294_ _hd121945121967_ _hd121920122172_) + (let () (declare (not safe)) (_g121915121951_))))) + (let () (declare (not safe)) (_g121915121951_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121911121947_))))))))) + (_g121915121951_))))))))) (if (let () (declare (not safe)) - (##pair? _rest121887121895_)) - (let ((_hd121892122285_ + (##pair? _rest121891121899_)) + (let ((_hd121896122289_ (let () (declare (not safe)) - (##car _rest121887121895_))) - (_tl121893122287_ + (##car _rest121891121899_))) + (_tl121897122291_ (let () (declare (not safe)) - (##cdr _rest121887121895_)))) - (let* ((_hd122290_ _hd121892122285_) - (_rest122292_ _tl121893122287_)) + (##cdr _rest121891121899_)))) + (let* ((_hd122294_ _hd121896122289_) + (_rest122296_ _tl121897122291_)) (declare (not safe)) - (_K121891122282_ _rest122292_ _hd122290_))) + (_K121895122286_ _rest122296_ _hd122294_))) (let () (declare (not safe)) - (_else121889121903_))))))) - (_lift-kw-lambda?121247_ - (lambda (_bind121803_) - (let* ((___stx130351130352_ _bind121803_) - (_g121806121823_ + (_else121893121907_))))))) + (_lift-kw-lambda?121251_ + (lambda (_bind121807_) + (let* ((___stx130355130356_ _bind121807_) + (_g121810121827_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130351130352_))))) - (let ((___kont130353130354_ - (lambda (_L121859_ _L121860_) + ___stx130355130356_))))) + (let ((___kont130357130358_ + (lambda (_L121863_ _L121864_) (if (let () (declare (not safe)) - (gx#identifier? _L121860_)) + (gx#identifier? _L121864_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L121859_)) + (gxc#kw-lambda-expr? _L121863_)) '#f))) - (___kont130355130356_ (lambda () '#f))) + (___kont130359130360_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130351130352_)) - (let ((_e121812121835_ + (gx#stx-pair? ___stx130355130356_)) + (let ((_e121816121839_ (let () (declare (not safe)) - (gx#stx-e ___stx130351130352_)))) - (let ((_tl121810121840_ + (gx#stx-e ___stx130355130356_)))) + (let ((_tl121814121844_ (let () (declare (not safe)) - (##cdr _e121812121835_))) - (_hd121811121838_ + (##cdr _e121816121839_))) + (_hd121815121842_ (let () (declare (not safe)) - (##car _e121812121835_)))) + (##car _e121816121839_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121811121838_)) - (let ((_e121815121843_ + (gx#stx-pair? _hd121815121842_)) + (let ((_e121819121847_ (let () (declare (not safe)) - (gx#stx-e _hd121811121838_)))) - (let ((_tl121813121848_ + (gx#stx-e _hd121815121842_)))) + (let ((_tl121817121852_ (let () (declare (not safe)) - (##cdr _e121815121843_))) - (_hd121814121846_ + (##cdr _e121819121847_))) + (_hd121818121850_ (let () (declare (not safe)) - (##car _e121815121843_)))) + (##car _e121819121847_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121813121848_)) + (gx#stx-null? _tl121817121852_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121810121840_)) - (let ((_e121818121851_ + _tl121814121844_)) + (let ((_e121822121855_ (let () (declare (not safe)) (gx#stx-e - _tl121810121840_)))) - (let ((_tl121816121856_ + _tl121814121844_)))) + (let ((_tl121820121860_ (let () (declare (not safe)) - (##cdr _e121818121851_))) - (_hd121817121854_ + (##cdr _e121822121855_))) + (_hd121821121858_ (let () (declare (not safe)) - (##car _e121818121851_)))) + (##car _e121822121855_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121816121856_)) - (___kont130353130354_ - _hd121817121854_ - _hd121814121846_) - (___kont130355130356_)))) - (___kont130355130356_)) - (___kont130355130356_)))) - (___kont130355130356_)))) - (___kont130355130356_)))))) - (_lift-kw-lambda-bindings121248_ - (lambda (_bindings121415_) - (let _lp121417_ ((_rest121419_ _bindings121415_) - (_lift1121420_ '()) - (_lift2121421_ '()) - (_bind121422_ '())) - (let* ((_rest121423121431_ _rest121419_) - (_else121425121439_ + _tl121820121860_)) + (___kont130357130358_ + _hd121821121858_ + _hd121818121850_) + (___kont130359130360_)))) + (___kont130359130360_)) + (___kont130359130360_)))) + (___kont130359130360_)))) + (___kont130359130360_)))))) + (_lift-kw-lambda-bindings121252_ + (lambda (_bindings121419_) + (let _lp121421_ ((_rest121423_ _bindings121419_) + (_lift1121424_ '()) + (_lift2121425_ '()) + (_bind121426_ '())) + (let* ((_rest121427121435_ _rest121423_) + (_else121429121443_ (lambda () - (values (reverse _lift1121420_) - (reverse _lift2121421_) - (reverse _bind121422_)))) - (_K121427121791_ - (lambda (_rest121442_ _hd121443_) - (let* ((___stx130381130382_ _hd121443_) - (_g121446121471_ + (values (reverse _lift1121424_) + (reverse _lift2121425_) + (reverse _bind121426_)))) + (_K121431121795_ + (lambda (_rest121446_ _hd121447_) + (let* ((___stx130385130386_ _hd121447_) + (_g121450121475_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130381130382_))))) - (let ((___kont130383130384_ - (lambda (_L121541_ _L121542_) - (let* ((_g121556121609_ - (lambda (_g121557121606_) + ___stx130385130386_))))) + (let ((___kont130387130388_ + (lambda (_L121545_ _L121546_) + (let* ((_g121560121613_ + (lambda (_g121561121610_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g121557121606_)))) - (_g121555121785_ - (lambda (_g121557121612_) + _g121561121610_)))) + (_g121559121789_ + (lambda (_g121561121616_) (if (let () (declare (not safe)) (gx#stx-pair? - _g121557121612_)) - (let ((_e121565121614_ + _g121561121616_)) + (let ((_e121569121618_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g121557121612_)))) - (let ((_hd121564121617_ + (gx#stx-e _g121561121616_)))) + (let ((_hd121568121621_ (let () (declare (not safe)) - (##car _e121565121614_))) - (_tl121563121619_ + (##car _e121569121618_))) + (_tl121567121623_ (let () (declare (not safe)) - (##cdr _e121565121614_)))) + (##cdr _e121569121618_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121563121619_)) - (let ((_e121568121622_ + (gx#stx-pair? _tl121567121623_)) + (let ((_e121572121626_ (let () (declare (not safe)) - (gx#stx-e _tl121563121619_)))) - (let ((_hd121567121625_ + (gx#stx-e _tl121567121623_)))) + (let ((_hd121571121629_ (let () (declare (not safe)) - (##car _e121568121622_))) - (_tl121566121627_ + (##car _e121572121626_))) + (_tl121570121631_ (let () (declare (not safe)) - (##cdr _e121568121622_)))) + (##cdr _e121572121626_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121567121625_)) - (let ((_e121571121630_ + (gx#stx-pair? _hd121571121629_)) + (let ((_e121575121634_ (let () (declare (not safe)) - (gx#stx-e _hd121567121625_)))) - (let ((_hd121570121633_ + (gx#stx-e _hd121571121629_)))) + (let ((_hd121574121637_ (let () (declare (not safe)) - (##car _e121571121630_))) - (_tl121569121635_ + (##car _e121575121634_))) + (_tl121573121639_ (let () (declare (not safe)) - (##cdr _e121571121630_)))) + (##cdr _e121575121634_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121570121633_)) - (let ((_e121574121638_ + (gx#stx-pair? _hd121574121637_)) + (let ((_e121578121642_ (let () (declare (not safe)) (gx#stx-e - _hd121570121633_)))) - (let ((_hd121573121641_ + _hd121574121637_)))) + (let ((_hd121577121645_ (let () (declare (not safe)) - (##car _e121574121638_))) - (_tl121572121643_ + (##car _e121578121642_))) + (_tl121576121647_ (let () (declare (not safe)) - (##cdr _e121574121638_)))) + (##cdr _e121578121642_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121573121641_)) - (let ((_e121577121646_ + _hd121577121645_)) + (let ((_e121581121650_ (let () (declare (not safe)) (gx#stx-e - _hd121573121641_)))) - (let ((_hd121576121649_ + _hd121577121645_)))) + (let ((_hd121580121653_ (let () (declare (not safe)) - (##car _e121577121646_))) - (_tl121575121651_ + (##car _e121581121650_))) + (_tl121579121655_ (let () (declare (not safe)) - (##cdr _e121577121646_)))) + (##cdr _e121581121650_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121575121651_)) + _tl121579121655_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl121572121643_)) - (let ((_e121580121654_ + (gx#stx-pair? _tl121576121647_)) + (let ((_e121584121658_ (let () (declare (not safe)) - (gx#stx-e _tl121572121643_)))) - (let ((_hd121579121657_ + (gx#stx-e _tl121576121647_)))) + (let ((_hd121583121661_ (let () (declare (not safe)) - (##car _e121580121654_))) - (_tl121578121659_ + (##car _e121584121658_))) + (_tl121582121663_ (let () (declare (not safe)) - (##cdr _e121580121654_)))) + (##cdr _e121584121658_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121579121657_)) - (let ((_e121583121662_ + (gx#stx-pair? _hd121583121661_)) + (let ((_e121587121666_ (let () (declare (not safe)) - (gx#stx-e _hd121579121657_)))) - (let ((_hd121582121665_ + (gx#stx-e _hd121583121661_)))) + (let ((_hd121586121669_ (let () (declare (not safe)) - (##car _e121583121662_))) - (_tl121581121667_ + (##car _e121587121666_))) + (_tl121585121671_ (let () (declare (not safe)) - (##cdr _e121583121662_)))) + (##cdr _e121587121666_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121581121667_)) - (let ((_e121586121670_ + (gx#stx-pair? _tl121585121671_)) + (let ((_e121590121674_ (let () (declare (not safe)) - (gx#stx-e _tl121581121667_)))) - (let ((_hd121585121673_ + (gx#stx-e _tl121585121671_)))) + (let ((_hd121589121677_ (let () (declare (not safe)) - (##car _e121586121670_))) - (_tl121584121675_ + (##car _e121590121674_))) + (_tl121588121679_ (let () (declare (not safe)) - (##cdr _e121586121670_)))) + (##cdr _e121590121674_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121585121673_)) - (let ((_e121589121678_ + _hd121589121677_)) + (let ((_e121593121682_ (let () (declare (not safe)) (gx#stx-e - _hd121585121673_)))) - (let ((_hd121588121681_ + _hd121589121677_)))) + (let ((_hd121592121685_ (let () (declare (not safe)) - (##car _e121589121678_))) - (_tl121587121683_ + (##car _e121593121682_))) + (_tl121591121687_ (let () (declare (not safe)) - (##cdr _e121589121678_)))) + (##cdr _e121593121682_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121588121681_)) - (let ((_e121592121686_ + _hd121592121685_)) + (let ((_e121596121690_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd121588121681_)))) - (let ((_hd121591121689_ - (let () (declare (not safe)) (##car _e121592121686_))) - (_tl121590121691_ - (let () (declare (not safe)) (##cdr _e121592121686_)))) + (gx#stx-e _hd121592121685_)))) + (let ((_hd121595121693_ + (let () (declare (not safe)) (##car _e121596121690_))) + (_tl121594121695_ + (let () (declare (not safe)) (##cdr _e121596121690_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121591121689_)) - (let ((_e121595121694_ + (gx#stx-pair? _hd121595121693_)) + (let ((_e121599121698_ (let () (declare (not safe)) - (gx#stx-e _hd121591121689_)))) - (let ((_hd121594121697_ + (gx#stx-e _hd121595121693_)))) + (let ((_hd121598121701_ (let () (declare (not safe)) - (##car _e121595121694_))) - (_tl121593121699_ + (##car _e121599121698_))) + (_tl121597121703_ (let () (declare (not safe)) - (##cdr _e121595121694_)))) + (##cdr _e121599121698_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121593121699_)) + (gx#stx-null? _tl121597121703_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121590121691_)) - (let ((_e121598121702_ + (gx#stx-pair? _tl121594121695_)) + (let ((_e121602121706_ (let () (declare (not safe)) - (gx#stx-e _tl121590121691_)))) - (let ((_hd121597121705_ + (gx#stx-e _tl121594121695_)))) + (let ((_hd121601121709_ (let () (declare (not safe)) - (##car _e121598121702_))) - (_tl121596121707_ + (##car _e121602121706_))) + (_tl121600121711_ (let () (declare (not safe)) - (##cdr _e121598121702_)))) + (##cdr _e121602121706_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121596121707_)) + (gx#stx-null? _tl121600121711_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121587121683_)) + _tl121591121687_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121584121675_)) - (let ((_e121601121710_ + _tl121588121679_)) + (let ((_e121605121714_ (let () (declare (not safe)) (gx#stx-e - _tl121584121675_)))) - (let ((_hd121600121713_ + _tl121588121679_)))) + (let ((_hd121604121717_ (let () (declare (not safe)) - (##car _e121601121710_))) - (_tl121599121715_ + (##car _e121605121714_))) + (_tl121603121719_ (let () (declare (not safe)) - (##cdr _e121601121710_)))) + (##cdr _e121605121714_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121599121715_)) + _tl121603121719_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl121578121659_)) + (gx#stx-null? _tl121582121663_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121569121635_)) + (gx#stx-null? _tl121573121639_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121566121627_)) - (let ((_e121604121718_ + (gx#stx-pair? _tl121570121631_)) + (let ((_e121608121722_ (let () (declare (not safe)) - (gx#stx-e _tl121566121627_)))) - (let ((_hd121603121721_ + (gx#stx-e _tl121570121631_)))) + (let ((_hd121607121725_ (let () (declare (not safe)) - (##car _e121604121718_))) - (_tl121602121723_ + (##car _e121608121722_))) + (_tl121606121727_ (let () (declare (not safe)) - (##cdr _e121604121718_)))) + (##cdr _e121608121722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121602121723_)) - ((lambda (_L121726_ - _L121727_ - _L121728_ - _L121729_ - _L121730_) - (let* ((_get-kws-id121770_ - (let ((__tmp130923 + (gx#stx-null? _tl121606121727_)) + ((lambda (_L121730_ + _L121731_ + _L121732_ + _L121733_ + _L121734_) + (let* ((_get-kws-id121774_ + (let ((__tmp130927 (let () (declare (not safe)) (gx#stx-e - _L121542_))) - (__tmp130922 + _L121546_))) + (__tmp130926 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp130923 - __tmp130922))) - (_get-kws-id121772_ - (let ((__tmp130924 + __tmp130927 + __tmp130926))) + (_get-kws-id121776_ + (let ((__tmp130928 (let () (declare (not safe)) (gx#stx-source - _stx121243_)))) + _stx121247_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id121770_ - __tmp130924))) - (_main-id121774_ - (let ((__tmp130926 + _get-kws-id121774_ + __tmp130928))) + (_main-id121778_ + (let ((__tmp130930 (let () (declare (not safe)) (gx#stx-e - _L121542_))) - (__tmp130925 + _L121546_))) + (__tmp130929 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp130926 - __tmp130925))) - (_main-id121776_ - (let ((__tmp130927 + __tmp130930 + __tmp130929))) + (_main-id121780_ + (let ((__tmp130931 (let () (declare (not safe)) (gx#stx-source - _stx121243_)))) + _stx121247_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id121774_ - __tmp130927))) - (_g130928_ + _main-id121778_ + __tmp130931))) + (_g130932_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id121772_))) - (_g130929_ + _get-kws-id121776_))) + (_g130933_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id121776_))) - (_new-kw-dispatch121780_ + _main-id121780_))) + (_new-kw-dispatch121784_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121726_ - 'id: _L121730_ + 'id: + _L121734_ 'new-id: - _get-kws-id121772_))) - (_new-get-kws121782_ + _get-kws-id121776_))) + (_new-get-kws121786_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121727_ + _L121731_ 'id: - _L121729_ + _L121733_ 'new-id: - _main-id121776_)))) - (let ((__tmp130932 + _main-id121780_)))) + (let ((__tmp130936 (let () (declare (not safe)) (gxc#identifier-symbol - _L121542_))) - (__tmp130931 + _L121546_))) + (__tmp130935 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id121772_))) - (__tmp130930 + _get-kws-id121776_))) + (__tmp130934 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id121776_)))) + _main-id121780_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp130932 + __tmp130936 '" => " - __tmp130931 + __tmp130935 '" => " - __tmp130930)) - (let ((__tmp130937 - (let ((__tmp130938 + __tmp130934)) + (let ((__tmp130941 + (let ((__tmp130942 (let () (declare (not safe)) - (_bind-e__128543128544_ - _main-id121776_ - _L121728_ + (_bind-e__128547128548_ + _main-id121780_ + _L121732_ '#f)))) (declare (not safe)) - (cons __tmp130938 - _lift1121420_))) - (__tmp130935 - (let ((__tmp130936 + (cons __tmp130942 + _lift1121424_))) + (__tmp130939 + (let ((__tmp130940 (let () (declare (not safe)) - (_bind-e__128543128544_ - _get-kws-id121772_ - _new-get-kws121782_ + (_bind-e__128547128548_ + _get-kws-id121776_ + _new-get-kws121786_ '#f)))) (declare (not safe)) - (cons __tmp130936 - _lift2121421_))) - (__tmp130933 - (let ((__tmp130934 + (cons __tmp130940 + _lift2121425_))) + (__tmp130937 + (let ((__tmp130938 (let () (declare (not safe)) - (_bind-e__128543128544_ - _L121542_ - _new-kw-dispatch121780_ + (_bind-e__128547128548_ + _L121546_ + _new-kw-dispatch121784_ '#f)))) (declare (not safe)) - (cons __tmp130934 - _bind121422_)))) + (cons __tmp130938 + _bind121426_)))) (declare (not safe)) - (_lp121417_ - _rest121442_ - __tmp130937 - __tmp130935 - __tmp130933)))) - _hd121603121721_ - _hd121600121713_ - _hd121597121705_ - _hd121594121697_ - _hd121576121649_) + (_lp121421_ + _rest121446_ + __tmp130941 + __tmp130939 + __tmp130937)))) + _hd121607121725_ + _hd121604121717_ + _hd121601121709_ + _hd121598121701_ + _hd121580121653_) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))) + (_g121560121613_ _g121561121616_))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))) + (_g121560121613_ _g121561121616_))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))) + (_g121560121613_ _g121561121616_))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121556121609_ - _g121557121612_))) + (_g121560121613_ + _g121561121616_))) (let () (declare (not safe)) - (_g121556121609_ - _g121557121612_))) + (_g121560121613_ + _g121561121616_))) (let () (declare (not safe)) - (_g121556121609_ - _g121557121612_))))) + (_g121560121613_ + _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))) + (_g121560121613_ _g121561121616_))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121556121609_ - _g121557121612_))))) + (_g121560121613_ + _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))) + (_g121560121613_ _g121561121616_))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121556121609_ - _g121557121612_))))) + (_g121560121613_ + _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ - _g121557121612_))))) + (_g121560121613_ + _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_))))) + (_g121560121613_ _g121561121616_))))) (let () (declare (not safe)) - (_g121556121609_ _g121557121612_)))))) + (_g121560121613_ _g121561121616_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g121555121785_ _L121541_)))) - (___kont130385130386_ - (lambda (_L121492_ _L121493_) - (let ((__tmp130939 - (let ((__tmp130940 - (let ((__tmp130941 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L121492_ '())))) + (_g121559121789_ _L121545_)))) + (___kont130389130390_ + (lambda (_L121496_ _L121497_) + (let ((__tmp130943 + (let ((__tmp130944 + (let ((__tmp130945 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L121496_ '())))) (declare (not safe)) - (cons _L121493_ __tmp130941)))) + (cons _L121497_ __tmp130945)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130940 - _bind121422_)))) + (cons __tmp130944 + _bind121426_)))) (declare (not safe)) - (_lp121417_ - _rest121442_ - _lift1121420_ - _lift2121421_ - __tmp130939))))) - (let ((___match130408130409_ - (lambda (_e121452121517_ - _hd121451121520_ - _tl121450121522_ - _e121455121525_ - _hd121454121528_ - _tl121453121530_ - _e121458121533_ - _hd121457121536_ - _tl121456121538_) - (let ((_L121541_ - _hd121457121536_) - (_L121542_ - _hd121454121528_)) + (_lp121421_ + _rest121446_ + _lift1121424_ + _lift2121425_ + __tmp130943))))) + (let ((___match130412130413_ + (lambda (_e121456121521_ + _hd121455121524_ + _tl121454121526_ + _e121459121529_ + _hd121458121532_ + _tl121457121534_ + _e121462121537_ + _hd121461121540_ + _tl121460121542_) + (let ((_L121545_ + _hd121461121540_) + (_L121546_ + _hd121458121532_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L121542_)) + _L121546_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L121541_))) - (___kont130383130384_ - _L121541_ - _L121542_) - (___kont130385130386_ - _hd121457121536_ - _hd121451121520_)))))) + _L121545_))) + (___kont130387130388_ + _L121545_ + _L121546_) + (___kont130389130390_ + _hd121461121540_ + _hd121455121524_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130381130382_)) - (let ((_e121452121517_ + ___stx130385130386_)) + (let ((_e121456121521_ (let () (declare (not safe)) (gx#stx-e - ___stx130381130382_)))) - (let ((_tl121450121522_ + ___stx130385130386_)))) + (let ((_tl121454121526_ (let () (declare (not safe)) - (##cdr _e121452121517_))) - (_hd121451121520_ + (##cdr _e121456121521_))) + (_hd121455121524_ (let () (declare (not safe)) - (##car _e121452121517_)))) + (##car _e121456121521_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121451121520_)) - (let ((_e121455121525_ + _hd121455121524_)) + (let ((_e121459121529_ (let () (declare (not safe)) (gx#stx-e - _hd121451121520_)))) - (let ((_tl121453121530_ + _hd121455121524_)))) + (let ((_tl121457121534_ (let () (declare (not safe)) - (##cdr _e121455121525_))) - (_hd121454121528_ + (##cdr _e121459121529_))) + (_hd121458121532_ (let () (declare (not safe)) - (##car _e121455121525_)))) + (##car _e121459121529_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121453121530_)) + _tl121457121534_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121450121522_)) - (let ((_e121458121533_ + (gx#stx-pair? _tl121454121526_)) + (let ((_e121462121537_ (let () (declare (not safe)) - (gx#stx-e _tl121450121522_)))) - (let ((_tl121456121538_ + (gx#stx-e _tl121454121526_)))) + (let ((_tl121460121542_ (let () (declare (not safe)) - (##cdr _e121458121533_))) - (_hd121457121536_ + (##cdr _e121462121537_))) + (_hd121461121540_ (let () (declare (not safe)) - (##car _e121458121533_)))) + (##car _e121462121537_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121456121538_)) - (___match130408130409_ - _e121452121517_ - _hd121451121520_ - _tl121450121522_ - _e121455121525_ - _hd121454121528_ - _tl121453121530_ - _e121458121533_ - _hd121457121536_ - _tl121456121538_) + (gx#stx-null? _tl121460121542_)) + (___match130412130413_ + _e121456121521_ + _hd121455121524_ + _tl121454121526_ + _e121459121529_ + _hd121458121532_ + _tl121457121534_ + _e121462121537_ + _hd121461121540_ + _tl121460121542_) (let () (declare (not safe)) - (_g121446121471_))))) - (let () (declare (not safe)) (_g121446121471_))) + (_g121450121475_))))) + (let () (declare (not safe)) (_g121450121475_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121450121522_)) - (let ((_e121466121484_ + (gx#stx-pair? _tl121454121526_)) + (let ((_e121470121488_ (let () (declare (not safe)) - (gx#stx-e _tl121450121522_)))) - (let ((_tl121464121489_ + (gx#stx-e _tl121454121526_)))) + (let ((_tl121468121493_ (let () (declare (not safe)) - (##cdr _e121466121484_))) - (_hd121465121487_ + (##cdr _e121470121488_))) + (_hd121469121491_ (let () (declare (not safe)) - (##car _e121466121484_)))) + (##car _e121470121488_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121464121489_)) - (___kont130385130386_ - _hd121465121487_ - _hd121451121520_) + (gx#stx-null? _tl121468121493_)) + (___kont130389130390_ + _hd121469121491_ + _hd121455121524_) (let () (declare (not safe)) - (_g121446121471_))))) - (let () (declare (not safe)) (_g121446121471_)))))) + (_g121450121475_))))) + (let () (declare (not safe)) (_g121450121475_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl121450121522_)) - (let ((_e121466121484_ + _tl121454121526_)) + (let ((_e121470121488_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl121450121522_)))) - (let ((_tl121464121489_ - (let () (declare (not safe)) (##cdr _e121466121484_))) - (_hd121465121487_ - (let () (declare (not safe)) (##car _e121466121484_)))) + (gx#stx-e _tl121454121526_)))) + (let ((_tl121468121493_ + (let () (declare (not safe)) (##cdr _e121470121488_))) + (_hd121469121491_ + (let () (declare (not safe)) (##car _e121470121488_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121464121489_)) - (___kont130385130386_ _hd121465121487_ _hd121451121520_) - (let () (declare (not safe)) (_g121446121471_))))) - (let () (declare (not safe)) (_g121446121471_)))))) + (gx#stx-null? _tl121468121493_)) + (___kont130389130390_ _hd121469121491_ _hd121455121524_) + (let () (declare (not safe)) (_g121450121475_))))) + (let () (declare (not safe)) (_g121450121475_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121446121471_))))))))) + (_g121450121475_))))))))) (if (let () (declare (not safe)) - (##pair? _rest121423121431_)) - (let ((_hd121428121794_ + (##pair? _rest121427121435_)) + (let ((_hd121432121798_ (let () (declare (not safe)) - (##car _rest121423121431_))) - (_tl121429121796_ + (##car _rest121427121435_))) + (_tl121433121800_ (let () (declare (not safe)) - (##cdr _rest121423121431_)))) - (let* ((_hd121799_ _hd121428121794_) - (_rest121801_ _tl121429121796_)) + (##cdr _rest121427121435_)))) + (let* ((_hd121803_ _hd121432121798_) + (_rest121805_ _tl121433121800_)) (declare (not safe)) - (_K121427121791_ _rest121801_ _hd121799_))) + (_K121431121795_ _rest121805_ _hd121803_))) (let () (declare (not safe)) - (_else121425121439_)))))))) - (let* ((___stx130425130426_ _stx121243_) - (_g121251121277_ + (_else121429121443_)))))))) + (let* ((___stx130429130430_ _stx121247_) + (_g121255121281_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130425130426_))))) - (let ((___kont130427130428_ - (lambda (_L121337_ _L121338_) - (let ((__tmp130943 + ___stx130429130430_))))) + (let ((___kont130431130432_ + (lambda (_L121341_ _L121342_) + (let ((__tmp130947 (lambda () - (if (let ((__tmp130970 - (let ((__tmp130971 - (lambda (_g121366121369_ - _g121367121371_) + (if (let ((__tmp130974 + (let ((__tmp130975 + (lambda (_g121370121373_ + _g121371121375_) (let () (declare (not safe)) - (cons _g121366121369_ - _g121367121371_))))) + (cons _g121370121373_ + _g121371121375_))))) (declare (not safe)) - (foldr1 __tmp130971 + (foldr1 __tmp130975 '() - _L121338_)))) + _L121342_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?121247_ - __tmp130970)) - (let ((_g130957_ - (let ((__tmp130959 - (let ((__tmp130960 - (lambda (_g121373121376_ - _g121374121378_) + (ormap1 _lift-kw-lambda?121251_ + __tmp130974)) + (let ((_g130961_ + (let ((__tmp130963 + (let ((__tmp130964 + (lambda (_g121377121380_ + _g121378121382_) (let () (declare (not safe)) - (cons _g121373121376_ + (cons _g121377121380_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g121374121378_))))) + _g121378121382_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp130960 + (foldr1 __tmp130964 '() - _L121338_)))) + _L121342_)))) (declare (not safe)) - (_lift-kw-lambda-bindings121248_ - __tmp130959)))) + (_lift-kw-lambda-bindings121252_ + __tmp130963)))) (begin - (let ((_g130958_ + (let ((_g130962_ (let () (declare (not safe)) - (if (##values? _g130957_) - (##vector-length _g130957_) + (if (##values? _g130961_) + (##vector-length _g130961_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130958_ 3))) + (##fx= _g130962_ 3))) (error "Context expects 3 values" - _g130958_))) - (let ((_lift1121381_ + _g130962_))) + (let ((_lift1121385_ (let () (declare (not safe)) - (##vector-ref _g130957_ 0))) - (_lift2121382_ + (##vector-ref _g130961_ 0))) + (_lift2121386_ (let () (declare (not safe)) - (##vector-ref _g130957_ 1))) - (_hd121383_ + (##vector-ref _g130961_ 1))) + (_hd121387_ (let () (declare (not safe)) - (##vector-ref _g130957_ 2)))) - (let* ((_expr121385_ - (let ((__tmp130961 - (let ((__tmp130962 - (let ((__tmp130963 + (##vector-ref _g130961_ 2)))) + (let* ((_expr121389_ + (let ((__tmp130965 + (let ((__tmp130966 + (let ((__tmp130967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L121337_ '())))) + (cons _L121341_ '())))) (declare (not safe)) - (cons _hd121383_ __tmp130963)))) + (cons _hd121387_ __tmp130967)))) (declare (not safe)) - (cons '%#let-values __tmp130962)))) + (cons '%#let-values __tmp130966)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130961 - _stx121243_))) - (_expr121387_ - (let ((__tmp130964 - (let ((__tmp130965 - (let ((__tmp130966 + __tmp130965 + _stx121247_))) + (_expr121391_ + (let ((__tmp130968 + (let ((__tmp130969 + (let ((__tmp130970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr121385_ '())))) + (cons _expr121389_ '())))) (declare (not safe)) - (cons _lift2121382_ __tmp130966)))) + (cons _lift2121386_ __tmp130970)))) (declare (not safe)) - (cons '%#let-values __tmp130965)))) + (cons '%#let-values __tmp130969)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130964 - _stx121243_))) - (_expr121389_ - (let ((__tmp130967 - (let ((__tmp130968 - (let ((__tmp130969 + __tmp130968 + _stx121247_))) + (_expr121393_ + (let ((__tmp130971 + (let ((__tmp130972 + (let ((__tmp130973 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr121387_ '())))) + (cons _expr121391_ '())))) (declare (not safe)) - (cons _lift1121381_ __tmp130969)))) + (cons _lift1121385_ __tmp130973)))) (declare (not safe)) - (cons '%#let-values __tmp130968)))) + (cons '%#let-values __tmp130972)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130967 - _stx121243_)))) + __tmp130971 + _stx121247_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _self121242_ - _expr121389_)))))) - (let ((_g130944_ - (let ((__tmp130946 - (let ((__tmp130947 - (lambda (_g121391121394_ - _g121392121396_) + _self121246_ + _expr121393_)))))) + (let ((_g130948_ + (let ((__tmp130950 + (let ((__tmp130951 + (lambda (_g121395121398_ + _g121396121400_) (let () (declare (not safe)) - (cons _g121391121394_ + (cons _g121395121398_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g121392121396_))))) + _g121396121400_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp130947 + (foldr1 __tmp130951 '() - _L121338_)))) + _L121342_)))) (declare (not safe)) - (_compile-bindings121246_ - __tmp130946)))) + (_compile-bindings121250_ + __tmp130950)))) (begin - (let ((_g130945_ + (let ((_g130949_ (let () (declare (not safe)) - (if (##values? _g130944_) - (##vector-length _g130944_) + (if (##values? _g130948_) + (##vector-length _g130948_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130945_ 3))) + (##fx= _g130949_ 3))) (error "Context expects 3 values" - _g130945_))) - (let ((_lift1121399_ + _g130949_))) + (let ((_lift1121403_ (let () (declare (not safe)) - (##vector-ref _g130944_ 0))) - (_lift2121400_ + (##vector-ref _g130948_ 0))) + (_lift2121404_ (let () (declare (not safe)) - (##vector-ref _g130944_ 1))) - (_hd121401_ + (##vector-ref _g130948_ 1))) + (_hd121405_ (let () (declare (not safe)) - (##vector-ref _g130944_ 2)))) - (let* ((_body121403_ + (##vector-ref _g130948_ 2)))) + (let* ((_body121407_ (let () (declare (not safe)) (gxc#compile-e__1 - _self121242_ - _L121337_))) - (_expr121405_ - (let ((__tmp130948 - (let ((__tmp130949 - (let ((__tmp130950 + _self121246_ + _L121341_))) + (_expr121409_ + (let ((__tmp130952 + (let ((__tmp130953 + (let ((__tmp130954 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body121403_ '())))) + (cons _body121407_ '())))) (declare (not safe)) - (cons _hd121401_ __tmp130950)))) + (cons _hd121405_ __tmp130954)))) (declare (not safe)) - (cons '%#let-values __tmp130949)))) + (cons '%#let-values __tmp130953)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130948 - _stx121243_))) - (_expr121407_ + __tmp130952 + _stx121247_))) + (_expr121411_ (if (let () (declare (not safe)) - (null? _lift2121400_)) - _expr121405_ - (let ((__tmp130951 - (let ((__tmp130952 + (null? _lift2121404_)) + _expr121409_ + (let ((__tmp130955 + (let ((__tmp130956 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130953 + (let ((__tmp130957 (let () (declare (not safe)) - (cons _expr121405_ '())))) + (cons _expr121409_ '())))) (declare (not safe)) - (cons _lift2121400_ __tmp130953)))) + (cons _lift2121404_ __tmp130957)))) (declare (not safe)) - (cons '%#let-values __tmp130952)))) + (cons '%#let-values __tmp130956)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130951 _stx121243_)))) + (gxc#xform-wrap-source __tmp130955 _stx121247_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr121409_ + (_expr121413_ (if (let () (declare (not safe)) - (null? _lift1121399_)) - _expr121407_ - (let ((__tmp130954 - (let ((__tmp130955 + (null? _lift1121403_)) + _expr121411_ + (let ((__tmp130958 + (let ((__tmp130959 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130956 + (let ((__tmp130960 (let () (declare (not safe)) - (cons _expr121407_ '())))) + (cons _expr121411_ '())))) (declare (not safe)) - (cons _lift1121399_ __tmp130956)))) + (cons _lift1121403_ __tmp130960)))) (declare (not safe)) - (cons '%#let-values __tmp130955)))) + (cons '%#let-values __tmp130959)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130954 _stx121243_))))) + (gxc#xform-wrap-source __tmp130958 _stx121247_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr121409_))))))) - (__tmp130942 - (let ((__obj130642 + _expr121413_))))))) + (__tmp130946 + (let ((__obj130646 (let () (declare (not safe)) (##structure @@ -14300,316 +14300,316 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj130642) - __obj130642))) + (gx#local-context:::init! __obj130646) + __obj130646))) (declare (not safe)) (call-with-parameters - __tmp130943 + __tmp130947 gx#current-expander-context - __tmp130942)))) - (___kont130431130432_ + __tmp130946)))) + (___kont130435130436_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _self121242_ _stx121243_))))) - (let ((___match130452130453_ - (lambda (_e121257121289_ - _hd121256121292_ - _tl121255121294_ - _e121260121297_ - _hd121259121300_ - _tl121258121302_ - ___splice130429130430_ - _target121261121305_ - _tl121263121307_) - (letrec ((_loop121264121310_ - (lambda (_hd121262121313_ _bind121268121315_) + (gxc#xform-let-values% _self121246_ _stx121247_))))) + (let ((___match130456130457_ + (lambda (_e121261121293_ + _hd121260121296_ + _tl121259121298_ + _e121264121301_ + _hd121263121304_ + _tl121262121306_ + ___splice130433130434_ + _target121265121309_ + _tl121267121311_) + (letrec ((_loop121268121314_ + (lambda (_hd121266121317_ _bind121272121319_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121262121313_)) - (let ((_e121265121318_ + (gx#stx-pair? _hd121266121317_)) + (let ((_e121269121322_ (let () (declare (not safe)) - (gx#stx-e _hd121262121313_)))) - (let ((_lp-tl121267121323_ + (gx#stx-e _hd121266121317_)))) + (let ((_lp-tl121271121327_ (let () (declare (not safe)) - (##cdr _e121265121318_))) - (_lp-hd121266121321_ + (##cdr _e121269121322_))) + (_lp-hd121270121325_ (let () (declare (not safe)) - (##car _e121265121318_)))) - (let ((__tmp130974 + (##car _e121269121322_)))) + (let ((__tmp130978 (let () (declare (not safe)) - (cons _lp-hd121266121321_ - _bind121268121315_)))) + (cons _lp-hd121270121325_ + _bind121272121319_)))) (declare (not safe)) - (_loop121264121310_ - _lp-tl121267121323_ - __tmp130974)))) - (let ((_bind121269121326_ - (reverse _bind121268121315_))) + (_loop121268121314_ + _lp-tl121271121327_ + __tmp130978)))) + (let ((_bind121273121330_ + (reverse _bind121272121319_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121258121302_)) - (let ((_e121272121329_ + (gx#stx-pair? _tl121262121306_)) + (let ((_e121276121333_ (let () (declare (not safe)) (gx#stx-e - _tl121258121302_)))) - (let ((_tl121270121334_ + _tl121262121306_)))) + (let ((_tl121274121338_ (let () (declare (not safe)) - (##cdr _e121272121329_))) - (_hd121271121332_ + (##cdr _e121276121333_))) + (_hd121275121336_ (let () (declare (not safe)) - (##car _e121272121329_)))) + (##car _e121276121333_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121270121334_)) - (let ((_L121337_ - _hd121271121332_) - (_L121338_ - _bind121269121326_)) - (if (let ((__tmp130972 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130973 - (lambda (_g121358121361_ _g121359121363_) + _tl121274121338_)) + (let ((_L121341_ + _hd121275121336_) + (_L121342_ + _bind121273121330_)) + (if (let ((__tmp130976 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130977 + (lambda (_g121362121365_ _g121363121367_) (let () (declare (not safe)) - (cons _g121358121361_ _g121359121363_))))) + (cons _g121362121365_ _g121363121367_))))) (declare (not safe)) - (foldr1 __tmp130973 '() _L121338_)))) + (foldr1 __tmp130977 '() _L121342_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp130972)) - (___kont130427130428_ _L121337_ _L121338_) - (___kont130431130432_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp130976)) + (___kont130431130432_ _L121341_ _L121342_) + (___kont130435130436_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130431130432_)))) - (___kont130431130432_))))))) + (___kont130435130436_)))) + (___kont130435130436_))))))) (let () (declare (not safe)) - (_loop121264121310_ _target121261121305_ '())))))) + (_loop121268121314_ _target121265121309_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130425130426_)) - (let ((_e121257121289_ + (gx#stx-pair? ___stx130429130430_)) + (let ((_e121261121293_ (let () (declare (not safe)) - (gx#stx-e ___stx130425130426_)))) - (let ((_tl121255121294_ + (gx#stx-e ___stx130429130430_)))) + (let ((_tl121259121298_ (let () (declare (not safe)) - (##cdr _e121257121289_))) - (_hd121256121292_ + (##cdr _e121261121293_))) + (_hd121260121296_ (let () (declare (not safe)) - (##car _e121257121289_)))) + (##car _e121261121293_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121255121294_)) - (let ((_e121260121297_ + (gx#stx-pair? _tl121259121298_)) + (let ((_e121264121301_ (let () (declare (not safe)) - (gx#stx-e _tl121255121294_)))) - (let ((_tl121258121302_ + (gx#stx-e _tl121259121298_)))) + (let ((_tl121262121306_ (let () (declare (not safe)) - (##cdr _e121260121297_))) - (_hd121259121300_ + (##cdr _e121264121301_))) + (_hd121263121304_ (let () (declare (not safe)) - (##car _e121260121297_)))) + (##car _e121264121301_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd121259121300_)) - (let ((___splice130429130430_ + (gx#stx-pair/null? _hd121263121304_)) + (let ((___splice130433130434_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd121259121300_ + _hd121263121304_ '0)))) - (let ((_tl121263121307_ + (let ((_tl121267121311_ (let () (declare (not safe)) (##vector-ref - ___splice130429130430_ + ___splice130433130434_ '1))) - (_target121261121305_ + (_target121265121309_ (let () (declare (not safe)) (##vector-ref - ___splice130429130430_ + ___splice130433130434_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121263121307_)) - (___match130452130453_ - _e121257121289_ - _hd121256121292_ - _tl121255121294_ - _e121260121297_ - _hd121259121300_ - _tl121258121302_ - ___splice130429130430_ - _target121261121305_ - _tl121263121307_) - (___kont130431130432_)))) - (___kont130431130432_)))) - (___kont130431130432_)))) - (___kont130431130432_)))))))) + (gx#stx-null? _tl121267121311_)) + (___match130456130457_ + _e121261121293_ + _hd121260121296_ + _tl121259121298_ + _e121264121301_ + _hd121263121304_ + _tl121262121306_ + ___splice130433130434_ + _target121265121309_ + _tl121267121311_) + (___kont130435130436_)))) + (___kont130435130436_)))) + (___kont130435130436_)))) + (___kont130435130436_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_self120385_ _stx120386_) - (letrec* ((_bind-e__128548128549_ - (lambda (_id121226_ _expr121227_ _compile?121228_) - (let ((__tmp130977 + (lambda (_self120389_ _stx120390_) + (letrec* ((_bind-e__128552128553_ + (lambda (_id121230_ _expr121231_ _compile?121232_) + (let ((__tmp130981 (let () (declare (not safe)) - (cons _id121226_ '()))) - (__tmp130975 - (let ((__tmp130976 - (if _compile?121228_ + (cons _id121230_ '()))) + (__tmp130979 + (let ((__tmp130980 + (if _compile?121232_ (let () (declare (not safe)) (gxc#compile-e__1 - _self120385_ - _expr121227_)) - _expr121227_))) + _self120389_ + _expr121231_)) + _expr121231_))) (declare (not safe)) - (cons __tmp130976 '())))) + (cons __tmp130980 '())))) (declare (not safe)) - (cons __tmp130977 __tmp130975)))) - (_bind-e__0__128550128551_ - (lambda (_id121233_ _expr121234_) - (let ((_compile?121236_ '#t)) + (cons __tmp130981 __tmp130979)))) + (_bind-e__0__128554128555_ + (lambda (_id121237_ _expr121238_) + (let ((_compile?121240_ '#t)) (declare (not safe)) - (_bind-e__128548128549_ - _id121233_ - _expr121234_ - _compile?121236_)))) - (_bind-e120388_ - (lambda _g130979_ - (let ((_g130978_ + (_bind-e__128552128553_ + _id121237_ + _expr121238_ + _compile?121240_)))) + (_bind-e120392_ + (lambda _g130983_ + (let ((_g130982_ (let () (declare (not safe)) - (##length _g130979_)))) - (cond ((let () (declare (not safe)) (##fx= _g130978_ 2)) - (apply (lambda (_id121233_ _expr121234_) + (##length _g130983_)))) + (cond ((let () (declare (not safe)) (##fx= _g130982_ 2)) + (apply (lambda (_id121237_ _expr121238_) (let () (declare (not safe)) - (_bind-e__0__128550128551_ - _id121233_ - _expr121234_))) - _g130979_)) - ((let () (declare (not safe)) (##fx= _g130978_ 3)) - (apply (lambda (_id121238_ - _expr121239_ - _compile?121240_) + (_bind-e__0__128554128555_ + _id121237_ + _expr121238_))) + _g130983_)) + ((let () (declare (not safe)) (##fx= _g130982_ 3)) + (apply (lambda (_id121242_ + _expr121243_ + _compile?121244_) (let () (declare (not safe)) - (_bind-e__128548128549_ - _id121238_ - _expr121239_ - _compile?121240_))) - _g130979_)) + (_bind-e__128552128553_ + _id121242_ + _expr121243_ + _compile?121244_))) + _g130983_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g130979_)))))) - (_compile-bindings120389_ - (lambda (_rest120524_) - (let _lp120526_ ((_rest120528_ _rest120524_) - (_bind120529_ '())) - (let* ((_rest120530120538_ _rest120528_) - (_else120532120546_ - (lambda () (reverse _bind120529_))) - (_K120534121213_ - (lambda (_rest120549_ _hd120550_) - (let* ((___stx130475130476_ _hd120550_) - (_g120555120602_ + _g130983_)))))) + (_compile-bindings120393_ + (lambda (_rest120528_) + (let _lp120530_ ((_rest120532_ _rest120528_) + (_bind120533_ '())) + (let* ((_rest120534120542_ _rest120532_) + (_else120536120550_ + (lambda () (reverse _bind120533_))) + (_K120538121217_ + (lambda (_rest120553_ _hd120554_) + (let* ((___stx130479130480_ _hd120554_) + (_g120559120606_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130475130476_))))) - (let ((___kont130477130478_ - (lambda (_L121120_ _L121121_) - (let* ((___stx130455130456_ - _L121120_) - (_g121136121150_ + ___stx130479130480_))))) + (let ((___kont130481130482_ + (lambda (_L121124_ _L121125_) + (let* ((___stx130459130460_ + _L121124_) + (_g121140121154_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130455130456_))))) - (let ((___kont130457130458_ - (lambda (_L121198_) - (let ((__tmp130980 - (let ((__tmp130981 + ___stx130459130460_))))) + (let ((___kont130461130462_ + (lambda (_L121202_) + (let ((__tmp130984 + (let ((__tmp130985 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__128548128549_ - _L121121_ - _L121120_ + (_bind-e__128552128553_ + _L121125_ + _L121124_ '#f)))) (declare (not safe)) - (cons __tmp130981 _bind120529_)))) + (cons __tmp130985 _bind120533_)))) (declare (not safe)) - (_lp120526_ _rest120549_ __tmp130980)))) + (_lp120530_ _rest120553_ __tmp130984)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130459130460_ - (lambda (_L121163_) - (let ((_g130982_ + (___kont130463130464_ + (lambda (_L121167_) + (let ((_g130986_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx120386_ - _L121121_ - _L121163_ + _stx120390_ + _L121125_ + _L121167_ '#t)))) (begin - (let ((_g130983_ + (let ((_g130987_ (let () (declare (not safe)) - (if (##values? _g130982_) - (##vector-length _g130982_) + (if (##values? _g130986_) + (##vector-length _g130986_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130983_ 3))) - (error "Context expects 3 values" _g130983_))) - (let ((_ids121173_ + (##fx= _g130987_ 3))) + (error "Context expects 3 values" _g130987_))) + (let ((_ids121177_ (let () (declare (not safe)) - (##vector-ref _g130982_ 0))) - (_impls121174_ + (##vector-ref _g130986_ 0))) + (_impls121178_ (let () (declare (not safe)) - (##vector-ref _g130982_ 1))) - (_clauses121175_ + (##vector-ref _g130986_ 1))) + (_clauses121179_ (let () (declare (not safe)) - (##vector-ref _g130982_ 2)))) - (let* ((_g130984_ - (for-each gx#core-bind-runtime! _ids121173_)) - (_xbind121178_ - (map _bind-e120388_ _ids121173_ _impls121174_)) - (_expr*121180_ - (let ((__tmp130986 + (##vector-ref _g130986_ 2)))) + (let* ((_g130988_ + (for-each gx#core-bind-runtime! _ids121177_)) + (_xbind121182_ + (map _bind-e120392_ _ids121177_ _impls121178_)) + (_expr*121184_ + (let ((__tmp130990 (let () (declare (not safe)) - (cons '%#case-lambda _clauses121175_))) - (__tmp130985 + (cons '%#case-lambda _clauses121179_))) + (__tmp130989 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14617,1142 +14617,1142 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130986 - __tmp130985))) - (_bind*121182_ + __tmp130990 + __tmp130989))) + (_bind*121186_ (let () (declare (not safe)) - (_bind-e__128548128549_ - _L121121_ - _expr*121180_ + (_bind-e__128552128553_ + _L121125_ + _expr*121184_ '#f)))) - (let ((__tmp130988 + (let ((__tmp130992 (let () (declare (not safe)) - (gxc#identifier-symbol _L121121_))) - (__tmp130987 - (map gxc#identifier-symbol _ids121173_))) + (gxc#identifier-symbol _L121125_))) + (__tmp130991 + (map gxc#identifier-symbol _ids121177_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp130988 + __tmp130992 '" => " - __tmp130987)) - (let ((__tmp130989 - (let ((__tmp130990 + __tmp130991)) + (let ((__tmp130993 + (let ((__tmp130994 (let () (declare (not safe)) (foldl1 cons - _bind120529_ - _xbind121178_)))) + _bind120533_ + _xbind121182_)))) (declare (not safe)) - (cons _bind*121182_ __tmp130990)))) + (cons _bind*121186_ __tmp130994)))) (declare (not safe)) - (_lp120526_ _rest120549_ __tmp130989))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match130466130467_ - (lambda (_e121141121190_ - _hd121140121193_ - _tl121139121195_) - (let ((_L121198_ - _tl121139121195_)) + (_lp120530_ _rest120553_ __tmp130993))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match130470130471_ + (lambda (_e121145121194_ + _hd121144121197_ + _tl121143121199_) + (let ((_L121202_ + _tl121143121199_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L121198_)) - (___kont130457130458_ _L121198_) - (___kont130459130460_ _tl121139121195_)))))) + (andmap1 gxc#dispatch-lambda-form? _L121202_)) + (___kont130461130462_ _L121202_) + (___kont130463130464_ _tl121143121199_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130455130456_)) - (let ((_e121141121190_ + ___stx130459130460_)) + (let ((_e121145121194_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx130455130456_)))) - (let ((_tl121139121195_ - (let () (declare (not safe)) (##cdr _e121141121190_))) - (_hd121140121193_ - (let () (declare (not safe)) (##car _e121141121190_)))) - (___match130466130467_ - _e121141121190_ - _hd121140121193_ - _tl121139121195_))) - (let () (declare (not safe)) (_g121136121150_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130479130480_ - (lambda (_L120948_ _L120949_) - (let* ((_g120963120993_ - (lambda (_g120964120990_) + (gx#stx-e ___stx130459130460_)))) + (let ((_tl121143121199_ + (let () (declare (not safe)) (##cdr _e121145121194_))) + (_hd121144121197_ + (let () (declare (not safe)) (##car _e121145121194_)))) + (___match130470130471_ + _e121145121194_ + _hd121144121197_ + _tl121143121199_))) + (let () (declare (not safe)) (_g121140121154_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont130483130484_ + (lambda (_L120952_ _L120953_) + (let* ((_g120967120997_ + (lambda (_g120968120994_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120964120990_)))) - (_g120962121088_ - (lambda (_g120964120996_) + _g120968120994_)))) + (_g120966121092_ + (lambda (_g120968121000_) (if (let () (declare (not safe)) (gx#stx-pair? - _g120964120996_)) - (let ((_e120970120998_ + _g120968121000_)) + (let ((_e120974121002_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g120964120996_)))) - (let ((_hd120969121001_ + (gx#stx-e _g120968121000_)))) + (let ((_hd120973121005_ (let () (declare (not safe)) - (##car _e120970120998_))) - (_tl120968121003_ + (##car _e120974121002_))) + (_tl120972121007_ (let () (declare (not safe)) - (##cdr _e120970120998_)))) + (##cdr _e120974121002_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120968121003_)) - (let ((_e120973121006_ + (gx#stx-pair? _tl120972121007_)) + (let ((_e120977121010_ (let () (declare (not safe)) - (gx#stx-e _tl120968121003_)))) - (let ((_hd120972121009_ + (gx#stx-e _tl120972121007_)))) + (let ((_hd120976121013_ (let () (declare (not safe)) - (##car _e120973121006_))) - (_tl120971121011_ + (##car _e120977121010_))) + (_tl120975121015_ (let () (declare (not safe)) - (##cdr _e120973121006_)))) + (##cdr _e120977121010_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120972121009_)) - (let ((_e120976121014_ + (gx#stx-pair? _hd120976121013_)) + (let ((_e120980121018_ (let () (declare (not safe)) - (gx#stx-e _hd120972121009_)))) - (let ((_hd120975121017_ + (gx#stx-e _hd120976121013_)))) + (let ((_hd120979121021_ (let () (declare (not safe)) - (##car _e120976121014_))) - (_tl120974121019_ + (##car _e120980121018_))) + (_tl120978121023_ (let () (declare (not safe)) - (##cdr _e120976121014_)))) + (##cdr _e120980121018_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120975121017_)) - (let ((_e120979121022_ + (gx#stx-pair? _hd120979121021_)) + (let ((_e120983121026_ (let () (declare (not safe)) (gx#stx-e - _hd120975121017_)))) - (let ((_hd120978121025_ + _hd120979121021_)))) + (let ((_hd120982121029_ (let () (declare (not safe)) - (##car _e120979121022_))) - (_tl120977121027_ + (##car _e120983121026_))) + (_tl120981121031_ (let () (declare (not safe)) - (##cdr _e120979121022_)))) + (##cdr _e120983121026_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120978121025_)) - (let ((_e120982121030_ + _hd120982121029_)) + (let ((_e120986121034_ (let () (declare (not safe)) (gx#stx-e - _hd120978121025_)))) - (let ((_hd120981121033_ + _hd120982121029_)))) + (let ((_hd120985121037_ (let () (declare (not safe)) - (##car _e120982121030_))) - (_tl120980121035_ + (##car _e120986121034_))) + (_tl120984121039_ (let () (declare (not safe)) - (##cdr _e120982121030_)))) + (##cdr _e120986121034_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120980121035_)) + _tl120984121039_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl120977121027_)) - (let ((_e120985121038_ + (gx#stx-pair? _tl120981121031_)) + (let ((_e120989121042_ (let () (declare (not safe)) - (gx#stx-e _tl120977121027_)))) - (let ((_hd120984121041_ + (gx#stx-e _tl120981121031_)))) + (let ((_hd120988121045_ (let () (declare (not safe)) - (##car _e120985121038_))) - (_tl120983121043_ + (##car _e120989121042_))) + (_tl120987121047_ (let () (declare (not safe)) - (##cdr _e120985121038_)))) + (##cdr _e120989121042_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120983121043_)) + (gx#stx-null? _tl120987121047_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120974121019_)) + (gx#stx-null? _tl120978121023_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120971121011_)) - (let ((_e120988121046_ + (gx#stx-pair? _tl120975121015_)) + (let ((_e120992121050_ (let () (declare (not safe)) - (gx#stx-e _tl120971121011_)))) - (let ((_hd120987121049_ + (gx#stx-e _tl120975121015_)))) + (let ((_hd120991121053_ (let () (declare (not safe)) - (##car _e120988121046_))) - (_tl120986121051_ + (##car _e120992121050_))) + (_tl120990121055_ (let () (declare (not safe)) - (##cdr _e120988121046_)))) + (##cdr _e120992121050_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120986121051_)) - ((lambda (_L121054_ - _L121055_ - _L121056_) - (let* ((_lambda-id121080_ - (let ((__tmp130992 + _tl120990121055_)) + ((lambda (_L121058_ + _L121059_ + _L121060_) + (let* ((_lambda-id121084_ + (let ((__tmp130996 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L120949_))) - (__tmp130991 (gensym '__))) + (gx#stx-e _L120953_))) + (__tmp130995 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp130992 __tmp130991))) - (_lambda-id121082_ - (let ((__tmp130993 + (make-symbol__1 __tmp130996 __tmp130995))) + (_lambda-id121086_ + (let ((__tmp130997 (let () (declare (not safe)) - (gx#stx-source _stx120386_)))) + (gx#stx-source _stx120390_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id121080_ __tmp130993))) - (_g130994_ + (gx#core-quote-syntax__1 _lambda-id121084_ __tmp130997))) + (_g130998_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id121082_))) - (_new-case-lambda-expr121085_ + (gx#core-bind-runtime!__0 _lambda-id121086_))) + (_new-case-lambda-expr121089_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121054_ + _L121058_ 'id: - _L121056_ + _L121060_ 'new-id: - _lambda-id121082_)))) + _lambda-id121086_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp130996 + (let ((__tmp131000 (let () (declare (not safe)) (gxc#identifier-symbol - _L120949_))) - (__tmp130995 + _L120953_))) + (__tmp130999 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id121082_)))) + _lambda-id121086_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp130996 + __tmp131000 '" => " - __tmp130995)) - (let ((__tmp130999 - (let ((__tmp131000 + __tmp130999)) + (let ((__tmp131003 + (let ((__tmp131004 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__128548128549_ - _L120949_ - _new-case-lambda-expr121085_ + (_bind-e__128552128553_ + _L120953_ + _new-case-lambda-expr121089_ '#f)))) (declare (not safe)) - (cons __tmp131000 _rest120549_))) - (__tmp130997 - (let ((__tmp130998 + (cons __tmp131004 _rest120553_))) + (__tmp131001 + (let ((__tmp131002 (let () (declare (not safe)) - (_bind-e__0__128550128551_ - _lambda-id121082_ - _L121055_)))) + (_bind-e__0__128554128555_ + _lambda-id121086_ + _L121059_)))) (declare (not safe)) - (cons __tmp130998 _bind120529_)))) + (cons __tmp131002 _bind120533_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp120526_ - __tmp130999 - __tmp130997)))) - _hd120987121049_ - _hd120984121041_ - _hd120981121033_) + (_lp120530_ + __tmp131003 + __tmp131001)))) + _hd120991121053_ + _hd120988121045_ + _hd120985121037_) (let () (declare (not safe)) - (_g120963120993_ - _g120964120996_))))) + (_g120967120997_ + _g120968121000_))))) (let () (declare (not safe)) - (_g120963120993_ _g120964120996_))) + (_g120967120997_ _g120968121000_))) (let () (declare (not safe)) - (_g120963120993_ _g120964120996_))) + (_g120967120997_ _g120968121000_))) (let () (declare (not safe)) - (_g120963120993_ _g120964120996_))))) + (_g120967120997_ _g120968121000_))))) (let () (declare (not safe)) - (_g120963120993_ _g120964120996_))) + (_g120967120997_ _g120968121000_))) (let () (declare (not safe)) - (_g120963120993_ _g120964120996_))))) + (_g120967120997_ _g120968121000_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120963120993_ - _g120964120996_))))) + (_g120967120997_ + _g120968121000_))))) (let () (declare (not safe)) - (_g120963120993_ - _g120964120996_))))) + (_g120967120997_ + _g120968121000_))))) (let () (declare (not safe)) - (_g120963120993_ _g120964120996_))))) + (_g120967120997_ _g120968121000_))))) (let () (declare (not safe)) - (_g120963120993_ _g120964120996_))))) + (_g120967120997_ _g120968121000_))))) (let () (declare (not safe)) - (_g120963120993_ _g120964120996_)))))) + (_g120967120997_ _g120968121000_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g120962121088_ _L120948_)))) - (___kont130481130482_ - (lambda (_L120672_ _L120673_) - (let* ((_g120687120740_ - (lambda (_g120688120737_) + (_g120966121092_ _L120952_)))) + (___kont130485130486_ + (lambda (_L120676_ _L120677_) + (let* ((_g120691120744_ + (lambda (_g120692120741_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120688120737_)))) - (_g120686120916_ - (lambda (_g120688120743_) + _g120692120741_)))) + (_g120690120920_ + (lambda (_g120692120747_) (if (let () (declare (not safe)) (gx#stx-pair? - _g120688120743_)) - (let ((_e120696120745_ + _g120692120747_)) + (let ((_e120700120749_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g120688120743_)))) - (let ((_hd120695120748_ + (gx#stx-e _g120692120747_)))) + (let ((_hd120699120752_ (let () (declare (not safe)) - (##car _e120696120745_))) - (_tl120694120750_ + (##car _e120700120749_))) + (_tl120698120754_ (let () (declare (not safe)) - (##cdr _e120696120745_)))) + (##cdr _e120700120749_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120694120750_)) - (let ((_e120699120753_ + (gx#stx-pair? _tl120698120754_)) + (let ((_e120703120757_ (let () (declare (not safe)) - (gx#stx-e _tl120694120750_)))) - (let ((_hd120698120756_ + (gx#stx-e _tl120698120754_)))) + (let ((_hd120702120760_ (let () (declare (not safe)) - (##car _e120699120753_))) - (_tl120697120758_ + (##car _e120703120757_))) + (_tl120701120762_ (let () (declare (not safe)) - (##cdr _e120699120753_)))) + (##cdr _e120703120757_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120698120756_)) - (let ((_e120702120761_ + (gx#stx-pair? _hd120702120760_)) + (let ((_e120706120765_ (let () (declare (not safe)) - (gx#stx-e _hd120698120756_)))) - (let ((_hd120701120764_ + (gx#stx-e _hd120702120760_)))) + (let ((_hd120705120768_ (let () (declare (not safe)) - (##car _e120702120761_))) - (_tl120700120766_ + (##car _e120706120765_))) + (_tl120704120770_ (let () (declare (not safe)) - (##cdr _e120702120761_)))) + (##cdr _e120706120765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120701120764_)) - (let ((_e120705120769_ + (gx#stx-pair? _hd120705120768_)) + (let ((_e120709120773_ (let () (declare (not safe)) (gx#stx-e - _hd120701120764_)))) - (let ((_hd120704120772_ + _hd120705120768_)))) + (let ((_hd120708120776_ (let () (declare (not safe)) - (##car _e120705120769_))) - (_tl120703120774_ + (##car _e120709120773_))) + (_tl120707120778_ (let () (declare (not safe)) - (##cdr _e120705120769_)))) + (##cdr _e120709120773_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120704120772_)) - (let ((_e120708120777_ + _hd120708120776_)) + (let ((_e120712120781_ (let () (declare (not safe)) (gx#stx-e - _hd120704120772_)))) - (let ((_hd120707120780_ + _hd120708120776_)))) + (let ((_hd120711120784_ (let () (declare (not safe)) - (##car _e120708120777_))) - (_tl120706120782_ + (##car _e120712120781_))) + (_tl120710120786_ (let () (declare (not safe)) - (##cdr _e120708120777_)))) + (##cdr _e120712120781_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120706120782_)) + _tl120710120786_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl120703120774_)) - (let ((_e120711120785_ + (gx#stx-pair? _tl120707120778_)) + (let ((_e120715120789_ (let () (declare (not safe)) - (gx#stx-e _tl120703120774_)))) - (let ((_hd120710120788_ + (gx#stx-e _tl120707120778_)))) + (let ((_hd120714120792_ (let () (declare (not safe)) - (##car _e120711120785_))) - (_tl120709120790_ + (##car _e120715120789_))) + (_tl120713120794_ (let () (declare (not safe)) - (##cdr _e120711120785_)))) + (##cdr _e120715120789_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120710120788_)) - (let ((_e120714120793_ + (gx#stx-pair? _hd120714120792_)) + (let ((_e120718120797_ (let () (declare (not safe)) - (gx#stx-e _hd120710120788_)))) - (let ((_hd120713120796_ + (gx#stx-e _hd120714120792_)))) + (let ((_hd120717120800_ (let () (declare (not safe)) - (##car _e120714120793_))) - (_tl120712120798_ + (##car _e120718120797_))) + (_tl120716120802_ (let () (declare (not safe)) - (##cdr _e120714120793_)))) + (##cdr _e120718120797_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120712120798_)) - (let ((_e120717120801_ + (gx#stx-pair? _tl120716120802_)) + (let ((_e120721120805_ (let () (declare (not safe)) - (gx#stx-e _tl120712120798_)))) - (let ((_hd120716120804_ + (gx#stx-e _tl120716120802_)))) + (let ((_hd120720120808_ (let () (declare (not safe)) - (##car _e120717120801_))) - (_tl120715120806_ + (##car _e120721120805_))) + (_tl120719120810_ (let () (declare (not safe)) - (##cdr _e120717120801_)))) + (##cdr _e120721120805_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120716120804_)) - (let ((_e120720120809_ + _hd120720120808_)) + (let ((_e120724120813_ (let () (declare (not safe)) (gx#stx-e - _hd120716120804_)))) - (let ((_hd120719120812_ + _hd120720120808_)))) + (let ((_hd120723120816_ (let () (declare (not safe)) - (##car _e120720120809_))) - (_tl120718120814_ + (##car _e120724120813_))) + (_tl120722120818_ (let () (declare (not safe)) - (##cdr _e120720120809_)))) + (##cdr _e120724120813_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120719120812_)) - (let ((_e120723120817_ + _hd120723120816_)) + (let ((_e120727120821_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd120719120812_)))) - (let ((_hd120722120820_ - (let () (declare (not safe)) (##car _e120723120817_))) - (_tl120721120822_ - (let () (declare (not safe)) (##cdr _e120723120817_)))) + (gx#stx-e _hd120723120816_)))) + (let ((_hd120726120824_ + (let () (declare (not safe)) (##car _e120727120821_))) + (_tl120725120826_ + (let () (declare (not safe)) (##cdr _e120727120821_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120722120820_)) - (let ((_e120726120825_ + (gx#stx-pair? _hd120726120824_)) + (let ((_e120730120829_ (let () (declare (not safe)) - (gx#stx-e _hd120722120820_)))) - (let ((_hd120725120828_ + (gx#stx-e _hd120726120824_)))) + (let ((_hd120729120832_ (let () (declare (not safe)) - (##car _e120726120825_))) - (_tl120724120830_ + (##car _e120730120829_))) + (_tl120728120834_ (let () (declare (not safe)) - (##cdr _e120726120825_)))) + (##cdr _e120730120829_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120724120830_)) + (gx#stx-null? _tl120728120834_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120721120822_)) - (let ((_e120729120833_ + (gx#stx-pair? _tl120725120826_)) + (let ((_e120733120837_ (let () (declare (not safe)) - (gx#stx-e _tl120721120822_)))) - (let ((_hd120728120836_ + (gx#stx-e _tl120725120826_)))) + (let ((_hd120732120840_ (let () (declare (not safe)) - (##car _e120729120833_))) - (_tl120727120838_ + (##car _e120733120837_))) + (_tl120731120842_ (let () (declare (not safe)) - (##cdr _e120729120833_)))) + (##cdr _e120733120837_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120727120838_)) + (gx#stx-null? _tl120731120842_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl120718120814_)) + _tl120722120818_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120715120806_)) - (let ((_e120732120841_ + _tl120719120810_)) + (let ((_e120736120845_ (let () (declare (not safe)) (gx#stx-e - _tl120715120806_)))) - (let ((_hd120731120844_ + _tl120719120810_)))) + (let ((_hd120735120848_ (let () (declare (not safe)) - (##car _e120732120841_))) - (_tl120730120846_ + (##car _e120736120845_))) + (_tl120734120850_ (let () (declare (not safe)) - (##cdr _e120732120841_)))) + (##cdr _e120736120845_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120730120846_)) + _tl120734120850_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl120709120790_)) + (gx#stx-null? _tl120713120794_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120700120766_)) + (gx#stx-null? _tl120704120770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120697120758_)) - (let ((_e120735120849_ + (gx#stx-pair? _tl120701120762_)) + (let ((_e120739120853_ (let () (declare (not safe)) - (gx#stx-e _tl120697120758_)))) - (let ((_hd120734120852_ + (gx#stx-e _tl120701120762_)))) + (let ((_hd120738120856_ (let () (declare (not safe)) - (##car _e120735120849_))) - (_tl120733120854_ + (##car _e120739120853_))) + (_tl120737120858_ (let () (declare (not safe)) - (##cdr _e120735120849_)))) + (##cdr _e120739120853_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120733120854_)) - ((lambda (_L120857_ - _L120858_ - _L120859_ - _L120860_ - _L120861_) - (let* ((_get-kws-id120901_ - (let ((__tmp131002 + (gx#stx-null? _tl120737120858_)) + ((lambda (_L120861_ + _L120862_ + _L120863_ + _L120864_ + _L120865_) + (let* ((_get-kws-id120905_ + (let ((__tmp131006 (let () (declare (not safe)) (gx#stx-e - _L120673_))) - (__tmp131001 + _L120677_))) + (__tmp131005 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp131002 - __tmp131001))) - (_get-kws-id120903_ - (let ((__tmp131003 + __tmp131006 + __tmp131005))) + (_get-kws-id120907_ + (let ((__tmp131007 (let () (declare (not safe)) (gx#stx-source - _stx120386_)))) + _stx120390_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id120901_ - __tmp131003))) - (_main-id120905_ - (let ((__tmp131005 + _get-kws-id120905_ + __tmp131007))) + (_main-id120909_ + (let ((__tmp131009 (let () (declare (not safe)) (gx#stx-e - _L120673_))) - (__tmp131004 + _L120677_))) + (__tmp131008 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp131005 - __tmp131004))) - (_main-id120907_ - (let ((__tmp131006 + __tmp131009 + __tmp131008))) + (_main-id120911_ + (let ((__tmp131010 (let () (declare (not safe)) (gx#stx-source - _stx120386_)))) + _stx120390_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id120905_ - __tmp131006))) - (_g131007_ + _main-id120909_ + __tmp131010))) + (_g131011_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id120903_))) - (_g131008_ + _get-kws-id120907_))) + (_g131012_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id120907_))) - (_new-kw-dispatch120911_ + _main-id120911_))) + (_new-kw-dispatch120915_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120857_ - 'id: _L120861_ + 'id: + _L120865_ 'new-id: - _get-kws-id120903_))) - (_new-get-kws120913_ + _get-kws-id120907_))) + (_new-get-kws120917_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120858_ + _L120862_ 'id: - _L120860_ + _L120864_ 'new-id: - _main-id120907_)))) - (let ((__tmp131011 + _main-id120911_)))) + (let ((__tmp131015 (let () (declare (not safe)) (gxc#identifier-symbol - _L120673_))) - (__tmp131010 + _L120677_))) + (__tmp131014 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id120903_))) - (__tmp131009 + _get-kws-id120907_))) + (__tmp131013 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id120907_)))) + _main-id120911_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp131011 + __tmp131015 '" => " - __tmp131010 + __tmp131014 '" => " - __tmp131009)) - (let ((__tmp131012 - (let ((__tmp131017 + __tmp131013)) + (let ((__tmp131016 + (let ((__tmp131021 (let () (declare (not safe)) - (_bind-e__128548128549_ - _main-id120907_ - _L120859_ + (_bind-e__128552128553_ + _main-id120911_ + _L120863_ '#f))) - (__tmp131013 - (let ((__tmp131016 + (__tmp131017 + (let ((__tmp131020 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__128548128549_ - _get-kws-id120903_ - _new-get-kws120913_ + (_bind-e__128552128553_ + _get-kws-id120907_ + _new-get-kws120917_ '#f))) - (__tmp131014 - (let ((__tmp131015 + (__tmp131018 + (let ((__tmp131019 (let () (declare (not safe)) - (_bind-e__128548128549_ - _L120673_ - _new-kw-dispatch120911_ + (_bind-e__128552128553_ + _L120677_ + _new-kw-dispatch120915_ '#f)))) (declare (not safe)) - (cons __tmp131015 _rest120549_)))) + (cons __tmp131019 _rest120553_)))) (declare (not safe)) - (cons __tmp131016 __tmp131014)))) + (cons __tmp131020 __tmp131018)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp131017 - __tmp131013)))) + (cons __tmp131021 + __tmp131017)))) (declare (not safe)) - (_lp120526_ - __tmp131012 - _bind120529_)))) - _hd120734120852_ - _hd120731120844_ - _hd120728120836_ - _hd120725120828_ - _hd120707120780_) + (_lp120530_ + __tmp131016 + _bind120533_)))) + _hd120738120856_ + _hd120735120848_ + _hd120732120840_ + _hd120729120832_ + _hd120711120784_) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))) + (_g120691120744_ _g120692120747_))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))) + (_g120691120744_ _g120692120747_))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))) + (_g120691120744_ _g120692120747_))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120687120740_ - _g120688120743_))) + (_g120691120744_ + _g120692120747_))) (let () (declare (not safe)) - (_g120687120740_ - _g120688120743_))) + (_g120691120744_ + _g120692120747_))) (let () (declare (not safe)) - (_g120687120740_ - _g120688120743_))))) + (_g120691120744_ + _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))) + (_g120691120744_ _g120692120747_))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120687120740_ - _g120688120743_))))) + (_g120691120744_ + _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))) + (_g120691120744_ _g120692120747_))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120687120740_ - _g120688120743_))))) + (_g120691120744_ + _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ - _g120688120743_))))) + (_g120691120744_ + _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_))))) + (_g120691120744_ _g120692120747_))))) (let () (declare (not safe)) - (_g120687120740_ _g120688120743_)))))) + (_g120691120744_ _g120692120747_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g120686120916_ _L120672_)))) - (___kont130483130484_ - (lambda (_L120623_ _L120624_) - (let ((__tmp131018 - (let ((__tmp131019 - (let ((__tmp131020 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131021 + (_g120690120920_ _L120676_)))) + (___kont130487130488_ + (lambda (_L120627_ _L120628_) + (let ((__tmp131022 + (let ((__tmp131023 + (let ((__tmp131024 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp131025 (let () (declare (not safe)) - (gxc#compile-e__1 _self120385_ _L120623_)))) + (gxc#compile-e__1 _self120389_ _L120627_)))) (declare (not safe)) - (cons __tmp131021 '())))) + (cons __tmp131025 '())))) (declare (not safe)) - (cons _L120624_ __tmp131020)))) + (cons _L120628_ __tmp131024)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp131019 - _bind120529_)))) + (cons __tmp131023 + _bind120533_)))) (declare (not safe)) - (_lp120526_ - _rest120549_ - __tmp131018))))) - (let* ((___match130550130551_ - (lambda (_e120583120648_ - _hd120582120651_ - _tl120581120653_ - _e120586120656_ - _hd120585120659_ - _tl120584120661_ - _e120589120664_ - _hd120588120667_ - _tl120587120669_) - (let ((_L120672_ - _hd120588120667_) - (_L120673_ - _hd120585120659_)) + (_lp120530_ + _rest120553_ + __tmp131022))))) + (let* ((___match130554130555_ + (lambda (_e120587120652_ + _hd120586120655_ + _tl120585120657_ + _e120590120660_ + _hd120589120663_ + _tl120588120665_ + _e120593120668_ + _hd120592120671_ + _tl120591120673_) + (let ((_L120676_ + _hd120592120671_) + (_L120677_ + _hd120589120663_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120673_)) + _L120677_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L120672_))) - (___kont130481130482_ - _L120672_ - _L120673_) - (___kont130483130484_ - _hd120588120667_ - _hd120582120651_))))) - (___match130528130529_ - (lambda (_e120572120924_ - _hd120571120927_ - _tl120570120929_ - _e120575120932_ - _hd120574120935_ - _tl120573120937_ - _e120578120940_ - _hd120577120943_ - _tl120576120945_) - (let ((_L120948_ - _hd120577120943_) - (_L120949_ - _hd120574120935_)) + _L120676_))) + (___kont130485130486_ + _L120676_ + _L120677_) + (___kont130487130488_ + _hd120592120671_ + _hd120586120655_))))) + (___match130532130533_ + (lambda (_e120576120928_ + _hd120575120931_ + _tl120574120933_ + _e120579120936_ + _hd120578120939_ + _tl120577120941_ + _e120582120944_ + _hd120581120947_ + _tl120580120949_) + (let ((_L120952_ + _hd120581120947_) + (_L120953_ + _hd120578120939_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120949_)) + _L120953_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L120948_))) - (___kont130479130480_ - _L120948_ - _L120949_) - (___match130550130551_ - _e120572120924_ - _hd120571120927_ - _tl120570120929_ - _e120575120932_ - _hd120574120935_ - _tl120573120937_ - _e120578120940_ - _hd120577120943_ - _tl120576120945_))))) - (___match130506130507_ - (lambda (_e120561121096_ - _hd120560121099_ - _tl120559121101_ - _e120564121104_ - _hd120563121107_ - _tl120562121109_ - _e120567121112_ - _hd120566121115_ - _tl120565121117_) - (let ((_L121120_ - _hd120566121115_) - (_L121121_ - _hd120563121107_)) + _L120952_))) + (___kont130483130484_ + _L120952_ + _L120953_) + (___match130554130555_ + _e120576120928_ + _hd120575120931_ + _tl120574120933_ + _e120579120936_ + _hd120578120939_ + _tl120577120941_ + _e120582120944_ + _hd120581120947_ + _tl120580120949_))))) + (___match130510130511_ + (lambda (_e120565121100_ + _hd120564121103_ + _tl120563121105_ + _e120568121108_ + _hd120567121111_ + _tl120566121113_ + _e120571121116_ + _hd120570121119_ + _tl120569121121_) + (let ((_L121124_ + _hd120570121119_) + (_L121125_ + _hd120567121111_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L121121_)) + _L121125_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L121120_))) - (___kont130477130478_ - _L121120_ - _L121121_) - (___match130528130529_ - _e120561121096_ - _hd120560121099_ - _tl120559121101_ - _e120564121104_ - _hd120563121107_ - _tl120562121109_ - _e120567121112_ - _hd120566121115_ - _tl120565121117_)))))) + _L121124_))) + (___kont130481130482_ + _L121124_ + _L121125_) + (___match130532130533_ + _e120565121100_ + _hd120564121103_ + _tl120563121105_ + _e120568121108_ + _hd120567121111_ + _tl120566121113_ + _e120571121116_ + _hd120570121119_ + _tl120569121121_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130475130476_)) - (let ((_e120561121096_ + ___stx130479130480_)) + (let ((_e120565121100_ (let () (declare (not safe)) (gx#stx-e - ___stx130475130476_)))) - (let ((_tl120559121101_ + ___stx130479130480_)))) + (let ((_tl120563121105_ (let () (declare (not safe)) - (##cdr _e120561121096_))) - (_hd120560121099_ + (##cdr _e120565121100_))) + (_hd120564121103_ (let () (declare (not safe)) - (##car _e120561121096_)))) + (##car _e120565121100_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120560121099_)) - (let ((_e120564121104_ + _hd120564121103_)) + (let ((_e120568121108_ (let () (declare (not safe)) (gx#stx-e - _hd120560121099_)))) - (let ((_tl120562121109_ + _hd120564121103_)))) + (let ((_tl120566121113_ (let () (declare (not safe)) - (##cdr _e120564121104_))) - (_hd120563121107_ + (##cdr _e120568121108_))) + (_hd120567121111_ (let () (declare (not safe)) - (##car _e120564121104_)))) + (##car _e120568121108_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120562121109_)) + _tl120566121113_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl120559121101_)) - (let ((_e120567121112_ + (gx#stx-pair? _tl120563121105_)) + (let ((_e120571121116_ (let () (declare (not safe)) - (gx#stx-e _tl120559121101_)))) - (let ((_tl120565121117_ + (gx#stx-e _tl120563121105_)))) + (let ((_tl120569121121_ (let () (declare (not safe)) - (##cdr _e120567121112_))) - (_hd120566121115_ + (##cdr _e120571121116_))) + (_hd120570121119_ (let () (declare (not safe)) - (##car _e120567121112_)))) + (##car _e120571121116_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120565121117_)) - (___match130506130507_ - _e120561121096_ - _hd120560121099_ - _tl120559121101_ - _e120564121104_ - _hd120563121107_ - _tl120562121109_ - _e120567121112_ - _hd120566121115_ - _tl120565121117_) + (gx#stx-null? _tl120569121121_)) + (___match130510130511_ + _e120565121100_ + _hd120564121103_ + _tl120563121105_ + _e120568121108_ + _hd120567121111_ + _tl120566121113_ + _e120571121116_ + _hd120570121119_ + _tl120569121121_) (let () (declare (not safe)) - (_g120555120602_))))) - (let () (declare (not safe)) (_g120555120602_))) + (_g120559120606_))))) + (let () (declare (not safe)) (_g120559120606_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120559121101_)) - (let ((_e120597120615_ + (gx#stx-pair? _tl120563121105_)) + (let ((_e120601120619_ (let () (declare (not safe)) - (gx#stx-e _tl120559121101_)))) - (let ((_tl120595120620_ + (gx#stx-e _tl120563121105_)))) + (let ((_tl120599120624_ (let () (declare (not safe)) - (##cdr _e120597120615_))) - (_hd120596120618_ + (##cdr _e120601120619_))) + (_hd120600120622_ (let () (declare (not safe)) - (##car _e120597120615_)))) + (##car _e120601120619_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120595120620_)) - (___kont130483130484_ - _hd120596120618_ - _hd120560121099_) + (gx#stx-null? _tl120599120624_)) + (___kont130487130488_ + _hd120600120622_ + _hd120564121103_) (let () (declare (not safe)) - (_g120555120602_))))) - (let () (declare (not safe)) (_g120555120602_)))))) + (_g120559120606_))))) + (let () (declare (not safe)) (_g120559120606_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl120559121101_)) - (let ((_e120597120615_ + _tl120563121105_)) + (let ((_e120601120619_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120559121101_)))) - (let ((_tl120595120620_ - (let () (declare (not safe)) (##cdr _e120597120615_))) - (_hd120596120618_ - (let () (declare (not safe)) (##car _e120597120615_)))) + (gx#stx-e _tl120563121105_)))) + (let ((_tl120599120624_ + (let () (declare (not safe)) (##cdr _e120601120619_))) + (_hd120600120622_ + (let () (declare (not safe)) (##car _e120601120619_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120595120620_)) - (___kont130483130484_ _hd120596120618_ _hd120560121099_) - (let () (declare (not safe)) (_g120555120602_))))) - (let () (declare (not safe)) (_g120555120602_)))))) + (gx#stx-null? _tl120599120624_)) + (___kont130487130488_ _hd120600120622_ _hd120564121103_) + (let () (declare (not safe)) (_g120559120606_))))) + (let () (declare (not safe)) (_g120559120606_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120555120602_))))))))) + (_g120559120606_))))))))) (if (let () (declare (not safe)) - (##pair? _rest120530120538_)) - (let ((_hd120535121216_ + (##pair? _rest120534120542_)) + (let ((_hd120539121220_ (let () (declare (not safe)) - (##car _rest120530120538_))) - (_tl120536121218_ + (##car _rest120534120542_))) + (_tl120540121222_ (let () (declare (not safe)) - (##cdr _rest120530120538_)))) - (let* ((_hd121221_ _hd120535121216_) - (_rest121223_ _tl120536121218_)) + (##cdr _rest120534120542_)))) + (let* ((_hd121225_ _hd120539121220_) + (_rest121227_ _tl120540121222_)) (declare (not safe)) - (_K120534121213_ _rest121223_ _hd121221_))) + (_K120538121217_ _rest121227_ _hd121225_))) (let () (declare (not safe)) - (_else120532120546_)))))))) - (let* ((___stx130567130568_ _stx120386_) - (_g120392120419_ + (_else120536120550_)))))))) + (let* ((___stx130571130572_ _stx120390_) + (_g120396120423_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130567130568_))))) - (let ((___kont130569130570_ - (lambda (_L120479_ _L120480_ _L120481_) - (let ((__tmp131023 + ___stx130571130572_))))) + (let ((___kont130573130574_ + (lambda (_L120483_ _L120484_ _L120485_) + (let ((__tmp131027 (lambda () - (let ((_hd120518_ - (let ((__tmp131024 - (let ((__tmp131025 - (lambda (_g120510120513_ - _g120511120515_) + (let ((_hd120522_ + (let ((__tmp131028 + (let ((__tmp131029 + (lambda (_g120514120517_ + _g120515120519_) (let () (declare (not safe)) - (cons _g120510120513_ - _g120511120515_))))) + (cons _g120514120517_ + _g120515120519_))))) (declare (not safe)) - (foldr1 __tmp131025 + (foldr1 __tmp131029 '() - _L120480_)))) + _L120484_)))) (declare (not safe)) - (_compile-bindings120389_ __tmp131024))) - (_body120519_ + (_compile-bindings120393_ __tmp131028))) + (_body120523_ (let () (declare (not safe)) (gxc#compile-e__1 - _self120385_ - _L120479_)))) - (let ((__tmp131026 - (let ((__tmp131027 - (let ((__tmp131028 + _self120389_ + _L120483_)))) + (let ((__tmp131030 + (let ((__tmp131031 + (let ((__tmp131032 (let () (declare (not safe)) - (cons _body120519_ + (cons _body120523_ '())))) (declare (not safe)) - (cons _hd120518_ - __tmp131028)))) + (cons _hd120522_ + __tmp131032)))) (declare (not safe)) - (cons _L120481_ __tmp131027)))) + (cons _L120485_ __tmp131031)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp131026 - _stx120386_))))) - (__tmp131022 - (let ((__obj130643 + __tmp131030 + _stx120390_))))) + (__tmp131026 + (let ((__obj130647 (let () (declare (not safe)) (##structure @@ -15762,254 +15762,254 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj130643) - __obj130643))) + (gx#local-context:::init! __obj130647) + __obj130647))) (declare (not safe)) (call-with-parameters - __tmp131023 + __tmp131027 gx#current-expander-context - __tmp131022)))) - (___kont130573130574_ + __tmp131026)))) + (___kont130577130578_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _self120385_ _stx120386_))))) - (let ((___match130594130595_ - (lambda (_e120399120431_ - _hd120398120434_ - _tl120397120436_ - _e120402120439_ - _hd120401120442_ - _tl120400120444_ - ___splice130571130572_ - _target120403120447_ - _tl120405120449_) - (letrec ((_loop120406120452_ - (lambda (_hd120404120455_ _bind120410120457_) + (gxc#xform-let-values% _self120389_ _stx120390_))))) + (let ((___match130598130599_ + (lambda (_e120403120435_ + _hd120402120438_ + _tl120401120440_ + _e120406120443_ + _hd120405120446_ + _tl120404120448_ + ___splice130575130576_ + _target120407120451_ + _tl120409120453_) + (letrec ((_loop120410120456_ + (lambda (_hd120408120459_ _bind120414120461_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120404120455_)) - (let ((_e120407120460_ + (gx#stx-pair? _hd120408120459_)) + (let ((_e120411120464_ (let () (declare (not safe)) - (gx#stx-e _hd120404120455_)))) - (let ((_lp-tl120409120465_ + (gx#stx-e _hd120408120459_)))) + (let ((_lp-tl120413120469_ (let () (declare (not safe)) - (##cdr _e120407120460_))) - (_lp-hd120408120463_ + (##cdr _e120411120464_))) + (_lp-hd120412120467_ (let () (declare (not safe)) - (##car _e120407120460_)))) - (let ((__tmp131031 + (##car _e120411120464_)))) + (let ((__tmp131035 (let () (declare (not safe)) - (cons _lp-hd120408120463_ - _bind120410120457_)))) + (cons _lp-hd120412120467_ + _bind120414120461_)))) (declare (not safe)) - (_loop120406120452_ - _lp-tl120409120465_ - __tmp131031)))) - (let ((_bind120411120468_ - (reverse _bind120410120457_))) + (_loop120410120456_ + _lp-tl120413120469_ + __tmp131035)))) + (let ((_bind120415120472_ + (reverse _bind120414120461_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120400120444_)) - (let ((_e120414120471_ + (gx#stx-pair? _tl120404120448_)) + (let ((_e120418120475_ (let () (declare (not safe)) (gx#stx-e - _tl120400120444_)))) - (let ((_tl120412120476_ + _tl120404120448_)))) + (let ((_tl120416120480_ (let () (declare (not safe)) - (##cdr _e120414120471_))) - (_hd120413120474_ + (##cdr _e120418120475_))) + (_hd120417120478_ (let () (declare (not safe)) - (##car _e120414120471_)))) + (##car _e120418120475_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120412120476_)) - (let ((_L120479_ - _hd120413120474_) - (_L120480_ - _bind120411120468_) - (_L120481_ - _hd120398120434_)) - (if (let ((__tmp131029 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131030 - (lambda (_g120502120505_ _g120503120507_) + _tl120416120480_)) + (let ((_L120483_ + _hd120417120478_) + (_L120484_ + _bind120415120472_) + (_L120485_ + _hd120402120438_)) + (if (let ((__tmp131033 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp131034 + (lambda (_g120506120509_ _g120507120511_) (let () (declare (not safe)) - (cons _g120502120505_ _g120503120507_))))) + (cons _g120506120509_ _g120507120511_))))) (declare (not safe)) - (foldr1 __tmp131030 '() _L120480_)))) + (foldr1 __tmp131034 '() _L120484_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp131029)) - (___kont130569130570_ _L120479_ _L120480_ _L120481_) - (___kont130573130574_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp131033)) + (___kont130573130574_ _L120483_ _L120484_ _L120485_) + (___kont130577130578_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130573130574_)))) - (___kont130573130574_))))))) + (___kont130577130578_)))) + (___kont130577130578_))))))) (let () (declare (not safe)) - (_loop120406120452_ _target120403120447_ '())))))) + (_loop120410120456_ _target120407120451_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130567130568_)) - (let ((_e120399120431_ + (gx#stx-pair? ___stx130571130572_)) + (let ((_e120403120435_ (let () (declare (not safe)) - (gx#stx-e ___stx130567130568_)))) - (let ((_tl120397120436_ + (gx#stx-e ___stx130571130572_)))) + (let ((_tl120401120440_ (let () (declare (not safe)) - (##cdr _e120399120431_))) - (_hd120398120434_ + (##cdr _e120403120435_))) + (_hd120402120438_ (let () (declare (not safe)) - (##car _e120399120431_)))) + (##car _e120403120435_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120397120436_)) - (let ((_e120402120439_ + (gx#stx-pair? _tl120401120440_)) + (let ((_e120406120443_ (let () (declare (not safe)) - (gx#stx-e _tl120397120436_)))) - (let ((_tl120400120444_ + (gx#stx-e _tl120401120440_)))) + (let ((_tl120404120448_ (let () (declare (not safe)) - (##cdr _e120402120439_))) - (_hd120401120442_ + (##cdr _e120406120443_))) + (_hd120405120446_ (let () (declare (not safe)) - (##car _e120402120439_)))) + (##car _e120406120443_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd120401120442_)) - (let ((___splice130571130572_ + (gx#stx-pair/null? _hd120405120446_)) + (let ((___splice130575130576_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd120401120442_ + _hd120405120446_ '0)))) - (let ((_tl120405120449_ + (let ((_tl120409120453_ (let () (declare (not safe)) (##vector-ref - ___splice130571130572_ + ___splice130575130576_ '1))) - (_target120403120447_ + (_target120407120451_ (let () (declare (not safe)) (##vector-ref - ___splice130571130572_ + ___splice130575130576_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120405120449_)) - (___match130594130595_ - _e120399120431_ - _hd120398120434_ - _tl120397120436_ - _e120402120439_ - _hd120401120442_ - _tl120400120444_ - ___splice130571130572_ - _target120403120447_ - _tl120405120449_) - (___kont130573130574_)))) - (___kont130573130574_)))) - (___kont130573130574_)))) - (___kont130573130574_)))))))) + (gx#stx-null? _tl120409120453_)) + (___match130598130599_ + _e120403120435_ + _hd120402120438_ + _tl120401120440_ + _e120406120443_ + _hd120405120446_ + _tl120404120448_ + ___splice130575130576_ + _target120407120451_ + _tl120409120453_) + (___kont130577130578_)))) + (___kont130577130578_)))) + (___kont130577130578_)))) + (___kont130577130578_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind120303_) - (let* ((___stx130597130598_ _bind120303_) - (_g120306120323_ + (lambda (_bind120307_) + (let* ((___stx130601130602_ _bind120307_) + (_g120310120327_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130597130598_))))) - (let ((___kont130599130600_ - (lambda (_L120359_ _L120360_) - (if (let () (declare (not safe)) (gx#identifier? _L120360_)) - (let ((_$e120376_ + ___stx130601130602_))))) + (let ((___kont130603130604_ + (lambda (_L120363_ _L120364_) + (if (let () (declare (not safe)) (gx#identifier? _L120364_)) + (let ((_$e120380_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L120359_)))) - (if _$e120376_ - _$e120376_ - (let ((_$e120379_ + (gxc#case-lambda-expr? _L120363_)))) + (if _$e120380_ + _$e120380_ + (let ((_$e120383_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L120359_)))) - (if _$e120379_ - _$e120379_ + (gxc#opt-lambda-expr? _L120363_)))) + (if _$e120383_ + _$e120383_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L120359_)))))) + (gxc#kw-lambda-expr? _L120363_)))))) '#f))) - (___kont130601130602_ (lambda () '#f))) + (___kont130605130606_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130597130598_)) - (let ((_e120312120335_ + (gx#stx-pair? ___stx130601130602_)) + (let ((_e120316120339_ (let () (declare (not safe)) - (gx#stx-e ___stx130597130598_)))) - (let ((_tl120310120340_ - (let () (declare (not safe)) (##cdr _e120312120335_))) - (_hd120311120338_ + (gx#stx-e ___stx130601130602_)))) + (let ((_tl120314120344_ + (let () (declare (not safe)) (##cdr _e120316120339_))) + (_hd120315120342_ (let () (declare (not safe)) - (##car _e120312120335_)))) + (##car _e120316120339_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120311120338_)) - (let ((_e120315120343_ + (gx#stx-pair? _hd120315120342_)) + (let ((_e120319120347_ (let () (declare (not safe)) - (gx#stx-e _hd120311120338_)))) - (let ((_tl120313120348_ + (gx#stx-e _hd120315120342_)))) + (let ((_tl120317120352_ (let () (declare (not safe)) - (##cdr _e120315120343_))) - (_hd120314120346_ + (##cdr _e120319120347_))) + (_hd120318120350_ (let () (declare (not safe)) - (##car _e120315120343_)))) + (##car _e120319120347_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120313120348_)) + (gx#stx-null? _tl120317120352_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120310120340_)) - (let ((_e120318120351_ + (gx#stx-pair? _tl120314120344_)) + (let ((_e120322120355_ (let () (declare (not safe)) - (gx#stx-e _tl120310120340_)))) - (let ((_tl120316120356_ + (gx#stx-e _tl120314120344_)))) + (let ((_tl120320120360_ (let () (declare (not safe)) - (##cdr _e120318120351_))) - (_hd120317120354_ + (##cdr _e120322120355_))) + (_hd120321120358_ (let () (declare (not safe)) - (##car _e120318120351_)))) + (##car _e120322120355_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120316120356_)) - (___kont130599130600_ - _hd120317120354_ - _hd120314120346_) - (___kont130601130602_)))) - (___kont130601130602_)) - (___kont130601130602_)))) - (___kont130601130602_)))) - (___kont130601130602_)))))))) + (gx#stx-null? _tl120320120360_)) + (___kont130603130604_ + _hd120321120358_ + _hd120318120350_) + (___kont130605130606_)))) + (___kont130605130606_)) + (___kont130605130606_)))) + (___kont130605130606_)))) + (___kont130605130606_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index ae0565226..5e62edbd4 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~1.scm @@ -1,125 +1,125 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g131034_| + (define |gxc[1]#_g131038_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131036_| + (define |gxc[1]#_g131040_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131038_| + (define |gxc[1]#_g131042_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131040_| + (define |gxc[1]#_g131044_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131043_| + (define |gxc[1]#_g131047_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131045_| + (define |gxc[1]#_g131049_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131047_| + (define |gxc[1]#_g131051_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131049_| + (define |gxc[1]#_g131053_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131053_| + (define |gxc[1]#_g131057_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131055_| + (define |gxc[1]#_g131059_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131057_| + (define |gxc[1]#_g131061_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131061_| + (define |gxc[1]#_g131065_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131063_| + (define |gxc[1]#_g131067_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131065_| + (define |gxc[1]#_g131069_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131068_| + (define |gxc[1]#_g131072_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131070_| + (define |gxc[1]#_g131074_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131072_| + (define |gxc[1]#_g131076_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131074_| + (define |gxc[1]#_g131078_| (##structure gx#syntax-quote::t '::lift-top-lambdas? @@ -128,7 +128,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj130626 + (let ((__obj130630 (let () (declare (not safe)) (##structure @@ -152,7 +152,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 'gxc#::collect-top-level-type-info::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -160,7 +160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '::collect-top-level-type-info '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -168,26 +168,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131032 - (let ((__tmp131033 |gxc[1]#_g131034_|)) + (let ((__tmp131036 + (let ((__tmp131037 |gxc[1]#_g131038_|)) (declare (not safe)) - (cons __tmp131033 '())))) + (cons __tmp131037 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130626 - __tmp131032 + __obj130630 + __tmp131036 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -195,7 +195,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -203,7 +203,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -211,39 +211,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131035 |gxc[1]#_g131036_|)) + (let ((__tmp131039 |gxc[1]#_g131040_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130626 - __tmp131035 + __obj130630 + __tmp131039 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131037 |gxc[1]#_g131038_|)) + (let ((__tmp131041 |gxc[1]#_g131042_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130626 - __tmp131037 + __obj130630 + __tmp131041 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131039 |gxc[1]#_g131040_|)) + (let ((__tmp131043 |gxc[1]#_g131044_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130626 - __tmp131039 + __obj130630 + __tmp131043 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -251,7 +251,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -267,14 +267,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130626 + __obj130630 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130626)) + __obj130630)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj130628 + (let ((__obj130632 (let () (declare (not safe)) (##structure @@ -298,7 +298,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 'gxc#::basic-expression-top-level-type::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -306,7 +306,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '::basic-expression-top-level-type '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -314,26 +314,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131041 - (let ((__tmp131042 |gxc[1]#_g131043_|)) + (let ((__tmp131045 + (let ((__tmp131046 |gxc[1]#_g131047_|)) (declare (not safe)) - (cons __tmp131042 '())))) + (cons __tmp131046 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130628 - __tmp131041 + __obj130632 + __tmp131045 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -341,7 +341,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -349,7 +349,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -357,39 +357,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131044 |gxc[1]#_g131045_|)) + (let ((__tmp131048 |gxc[1]#_g131049_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130628 - __tmp131044 + __obj130632 + __tmp131048 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131046 |gxc[1]#_g131047_|)) + (let ((__tmp131050 |gxc[1]#_g131051_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130628 - __tmp131046 + __obj130632 + __tmp131050 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131048 |gxc[1]#_g131049_|)) + (let ((__tmp131052 |gxc[1]#_g131053_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130628 - __tmp131048 + __obj130632 + __tmp131052 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -397,7 +397,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -405,7 +405,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -413,14 +413,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130628 + __obj130632 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130628)) + __obj130632)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj130630 + (let ((__obj130634 (let () (declare (not safe)) (##structure @@ -444,7 +444,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 'gxc#::collect-type-info::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -452,7 +452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '::collect-type-info '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -460,26 +460,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131050 - (let ((__tmp131051 |gxc[1]#_g131034_|)) + (let ((__tmp131054 + (let ((__tmp131055 |gxc[1]#_g131038_|)) (declare (not safe)) - (cons __tmp131051 '())))) + (cons __tmp131055 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130630 - __tmp131050 + __obj130634 + __tmp131054 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -487,7 +487,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -495,7 +495,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -503,39 +503,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131052 |gxc[1]#_g131053_|)) + (let ((__tmp131056 |gxc[1]#_g131057_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130630 - __tmp131052 + __obj130634 + __tmp131056 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131054 |gxc[1]#_g131055_|)) + (let ((__tmp131058 |gxc[1]#_g131059_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130630 - __tmp131054 + __obj130634 + __tmp131058 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131056 |gxc[1]#_g131057_|)) + (let ((__tmp131060 |gxc[1]#_g131061_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130630 - __tmp131056 + __obj130634 + __tmp131060 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -543,7 +543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -551,7 +551,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -559,14 +559,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130634 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130630)) + __obj130634)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj130632 + (let ((__obj130636 (let () (declare (not safe)) (##structure @@ -590,7 +590,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 'gxc#::basic-expression-type::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -598,7 +598,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '::basic-expression-type '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -606,26 +606,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131058 - (let ((__tmp131059 |gxc[1]#_g131043_|)) + (let ((__tmp131062 + (let ((__tmp131063 |gxc[1]#_g131047_|)) (declare (not safe)) - (cons __tmp131059 '())))) + (cons __tmp131063 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130632 - __tmp131058 + __obj130636 + __tmp131062 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -633,7 +633,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -641,7 +641,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -649,39 +649,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131060 |gxc[1]#_g131061_|)) + (let ((__tmp131064 |gxc[1]#_g131065_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130632 - __tmp131060 + __obj130636 + __tmp131064 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131062 |gxc[1]#_g131063_|)) + (let ((__tmp131066 |gxc[1]#_g131067_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130632 - __tmp131062 + __obj130636 + __tmp131066 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131064 |gxc[1]#_g131065_|)) + (let ((__tmp131068 |gxc[1]#_g131069_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130632 - __tmp131064 + __obj130636 + __tmp131068 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -689,7 +689,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -697,7 +697,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -705,14 +705,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130636 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130632)) + __obj130636)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj130634 + (let ((__obj130638 (let () (declare (not safe)) (##structure @@ -736,7 +736,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 'gxc#::lift-top-lambdas::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '::lift-top-lambdas '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -752,26 +752,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131066 - (let ((__tmp131067 |gxc[1]#_g131068_|)) + (let ((__tmp131070 + (let ((__tmp131071 |gxc[1]#_g131072_|)) (declare (not safe)) - (cons __tmp131067 '())))) + (cons __tmp131071 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130634 - __tmp131066 + __obj130638 + __tmp131070 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -779,7 +779,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -787,7 +787,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -795,39 +795,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131069 |gxc[1]#_g131070_|)) + (let ((__tmp131073 |gxc[1]#_g131074_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130634 - __tmp131069 + __obj130638 + __tmp131073 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131071 |gxc[1]#_g131072_|)) + (let ((__tmp131075 |gxc[1]#_g131076_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130634 - __tmp131071 + __obj130638 + __tmp131075 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131073 |gxc[1]#_g131074_|)) + (let ((__tmp131077 |gxc[1]#_g131078_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130634 - __tmp131073 + __obj130638 + __tmp131077 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -835,7 +835,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -843,7 +843,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -851,413 +851,413 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130638 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130634)) + __obj130638)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_$stx120026_) - (let* ((_g120030120059_ - (lambda (_g120031120055_) + (lambda (_$stx120030_) + (let* ((_g120034120063_ + (lambda (_g120035120059_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120031120055_)))) - (_g120029120160_ - (lambda (_g120031120063_) + _g120035120059_)))) + (_g120033120164_ + (lambda (_g120035120067_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120031120063_)) - (let ((_e120036120066_ + (gx#stx-pair? _g120035120067_)) + (let ((_e120040120070_ (let () (declare (not safe)) - (gx#syntax-e _g120031120063_)))) - (let ((_hd120035120070_ + (gx#syntax-e _g120035120067_)))) + (let ((_hd120039120074_ (let () (declare (not safe)) - (##car _e120036120066_))) - (_tl120034120073_ + (##car _e120040120070_))) + (_tl120038120077_ (let () (declare (not safe)) - (##cdr _e120036120066_)))) + (##cdr _e120040120070_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl120034120073_)) - (let ((_g131075_ + (gx#stx-pair/null? _tl120038120077_)) + (let ((_g131079_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl120034120073_ + _tl120038120077_ '0)))) (begin - (let ((_g131076_ + (let ((_g131080_ (let () (declare (not safe)) - (if (##values? _g131075_) - (##vector-length _g131075_) + (if (##values? _g131079_) + (##vector-length _g131079_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131076_ 2))) + (##fx= _g131080_ 2))) (error "Context expects 2 values" - _g131076_))) - (let ((_target120037120076_ + _g131080_))) + (let ((_target120041120080_ (let () (declare (not safe)) - (##vector-ref _g131075_ 0))) - (_tl120039120079_ + (##vector-ref _g131079_ 0))) + (_tl120043120083_ (let () (declare (not safe)) - (##vector-ref _g131075_ 1)))) + (##vector-ref _g131079_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120039120079_)) - (letrec ((_loop120040120082_ - (lambda (_hd120038120086_ - _type-e120044120089_ - _id120045120091_) + (gx#stx-null? _tl120043120083_)) + (letrec ((_loop120044120086_ + (lambda (_hd120042120090_ + _type-e120048120093_ + _id120049120095_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120038120086_)) - (let ((_e120041120094_ + _hd120042120090_)) + (let ((_e120045120098_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd120038120086_)))) - (let ((_lp-hd120042120098_ - (let () (declare (not safe)) (##car _e120041120094_))) - (_lp-tl120043120101_ + (gx#syntax-e _hd120042120090_)))) + (let ((_lp-hd120046120102_ + (let () (declare (not safe)) (##car _e120045120098_))) + (_lp-tl120047120105_ (let () (declare (not safe)) - (##cdr _e120041120094_)))) + (##cdr _e120045120098_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd120042120098_)) - (let ((_e120050120104_ + (gx#stx-pair? _lp-hd120046120102_)) + (let ((_e120054120108_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd120042120098_)))) - (let ((_hd120049120108_ + (gx#syntax-e _lp-hd120046120102_)))) + (let ((_hd120053120112_ (let () (declare (not safe)) - (##car _e120050120104_))) - (_tl120048120111_ + (##car _e120054120108_))) + (_tl120052120115_ (let () (declare (not safe)) - (##cdr _e120050120104_)))) + (##cdr _e120054120108_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120048120111_)) - (let ((_e120053120114_ + (gx#stx-pair? _tl120052120115_)) + (let ((_e120057120118_ (let () (declare (not safe)) - (gx#syntax-e _tl120048120111_)))) - (let ((_hd120052120118_ + (gx#syntax-e _tl120052120115_)))) + (let ((_hd120056120122_ (let () (declare (not safe)) - (##car _e120053120114_))) - (_tl120051120121_ + (##car _e120057120118_))) + (_tl120055120125_ (let () (declare (not safe)) - (##cdr _e120053120114_)))) + (##cdr _e120057120118_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120051120121_)) - (_loop120040120082_ - _lp-tl120043120101_ + (gx#stx-null? _tl120055120125_)) + (_loop120044120086_ + _lp-tl120047120105_ (let () (declare (not safe)) - (cons _hd120052120118_ - _type-e120044120089_)) + (cons _hd120056120122_ + _type-e120048120093_)) (let () (declare (not safe)) - (cons _hd120049120108_ - _id120045120091_))) - (_g120030120059_ _g120031120063_)))) - (_g120030120059_ _g120031120063_)))) - (_g120030120059_ _g120031120063_)))) - (let ((_type-e120046120124_ (reverse _type-e120044120089_)) - (_id120047120127_ (reverse _id120045120091_))) - ((lambda (_L120130_ _L120132_) - (let ((__tmp131088 + (cons _hd120053120112_ + _id120049120095_))) + (_g120034120063_ _g120035120067_)))) + (_g120034120063_ _g120035120067_)))) + (_g120034120063_ _g120035120067_)))) + (let ((_type-e120050120128_ (reverse _type-e120048120093_)) + (_id120051120131_ (reverse _id120049120095_))) + ((lambda (_L120134_ _L120136_) + (let ((__tmp131092 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp131077 + (__tmp131081 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L120130_ - _L120132_)) - (let ((__tmp131078 - (lambda (_g120148120152_ - _g120149120155_ - _g120150120157_) - (let ((__tmp131079 - (let ((__tmp131087 + _L120134_ + _L120136_)) + (let ((__tmp131082 + (lambda (_g120152120156_ + _g120153120159_ + _g120154120161_) + (let ((__tmp131083 + (let ((__tmp131091 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp131080 - (let ((__tmp131086 + (__tmp131084 + (let ((__tmp131090 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp131081 - (let ((__tmp131083 + (__tmp131085 + (let ((__tmp131087 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131085 + (let ((__tmp131089 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp131084 + (__tmp131088 (let () (declare (not safe)) - (cons _g120149120155_ '())))) + (cons _g120153120159_ '())))) (declare (not safe)) - (cons __tmp131085 __tmp131084))) - (__tmp131082 + (cons __tmp131089 __tmp131088))) + (__tmp131086 (let () (declare (not safe)) - (cons _g120148120152_ '())))) + (cons _g120152120156_ '())))) (declare (not safe)) - (cons __tmp131083 __tmp131082)))) + (cons __tmp131087 __tmp131086)))) (declare (not safe)) - (cons __tmp131086 __tmp131081)))) + (cons __tmp131090 __tmp131085)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp131087 - __tmp131080)))) + (cons __tmp131091 + __tmp131084)))) (declare (not safe)) - (cons __tmp131079 _g120150120157_))))) + (cons __tmp131083 _g120154120161_))))) (declare (not safe)) - (foldr2 __tmp131078 + (foldr2 __tmp131082 '() - _L120130_ - _L120132_))))) + _L120134_ + _L120136_))))) (declare (not safe)) - (cons __tmp131088 __tmp131077))) - _type-e120046120124_ - _id120047120127_)))))) + (cons __tmp131092 __tmp131081))) + _type-e120050120128_ + _id120051120131_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop120040120082_ - _target120037120076_ + (_loop120044120086_ + _target120041120080_ '() '())) - (_g120030120059_ _g120031120063_))))) - (_g120030120059_ _g120031120063_)))) - (_g120030120059_ _g120031120063_))))) - (_g120029120160_ _$stx120026_)))) + (_g120034120063_ _g120035120067_))))) + (_g120034120063_ _g120035120067_)))) + (_g120034120063_ _g120035120067_))))) + (_g120033120164_ _$stx120030_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx120165_) - (let* ((_g120169120198_ - (lambda (_g120170120194_) + (lambda (_$stx120169_) + (let* ((_g120173120202_ + (lambda (_g120174120198_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120170120194_)))) - (_g120168120298_ - (lambda (_g120170120202_) + _g120174120198_)))) + (_g120172120302_ + (lambda (_g120174120206_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120170120202_)) - (let ((_e120175120205_ + (gx#stx-pair? _g120174120206_)) + (let ((_e120179120209_ (let () (declare (not safe)) - (gx#syntax-e _g120170120202_)))) - (let ((_hd120174120209_ + (gx#syntax-e _g120174120206_)))) + (let ((_hd120178120213_ (let () (declare (not safe)) - (##car _e120175120205_))) - (_tl120173120212_ + (##car _e120179120209_))) + (_tl120177120216_ (let () (declare (not safe)) - (##cdr _e120175120205_)))) + (##cdr _e120179120209_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl120173120212_)) - (let ((_g131089_ + (gx#stx-pair/null? _tl120177120216_)) + (let ((_g131093_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl120173120212_ + _tl120177120216_ '0)))) (begin - (let ((_g131090_ + (let ((_g131094_ (let () (declare (not safe)) - (if (##values? _g131089_) - (##vector-length _g131089_) + (if (##values? _g131093_) + (##vector-length _g131093_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131090_ 2))) + (##fx= _g131094_ 2))) (error "Context expects 2 values" - _g131090_))) - (let ((_target120176120215_ + _g131094_))) + (let ((_target120180120219_ (let () (declare (not safe)) - (##vector-ref _g131089_ 0))) - (_tl120178120218_ + (##vector-ref _g131093_ 0))) + (_tl120182120222_ (let () (declare (not safe)) - (##vector-ref _g131089_ 1)))) + (##vector-ref _g131093_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120178120218_)) - (letrec ((_loop120179120221_ - (lambda (_hd120177120225_ - _type-e120183120228_ - _id120184120230_) + (gx#stx-null? _tl120182120222_)) + (letrec ((_loop120183120225_ + (lambda (_hd120181120229_ + _type-e120187120232_ + _id120188120234_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120177120225_)) - (let ((_e120180120233_ + _hd120181120229_)) + (let ((_e120184120237_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd120177120225_)))) - (let ((_lp-hd120181120237_ - (let () (declare (not safe)) (##car _e120180120233_))) - (_lp-tl120182120240_ + (gx#syntax-e _hd120181120229_)))) + (let ((_lp-hd120185120241_ + (let () (declare (not safe)) (##car _e120184120237_))) + (_lp-tl120186120244_ (let () (declare (not safe)) - (##cdr _e120180120233_)))) + (##cdr _e120184120237_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd120181120237_)) - (let ((_e120189120243_ + (gx#stx-pair? _lp-hd120185120241_)) + (let ((_e120193120247_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd120181120237_)))) - (let ((_hd120188120247_ + (gx#syntax-e _lp-hd120185120241_)))) + (let ((_hd120192120251_ (let () (declare (not safe)) - (##car _e120189120243_))) - (_tl120187120250_ + (##car _e120193120247_))) + (_tl120191120254_ (let () (declare (not safe)) - (##cdr _e120189120243_)))) + (##cdr _e120193120247_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120187120250_)) - (let ((_e120192120253_ + (gx#stx-pair? _tl120191120254_)) + (let ((_e120196120257_ (let () (declare (not safe)) - (gx#syntax-e _tl120187120250_)))) - (let ((_hd120191120257_ + (gx#syntax-e _tl120191120254_)))) + (let ((_hd120195120261_ (let () (declare (not safe)) - (##car _e120192120253_))) - (_tl120190120260_ + (##car _e120196120257_))) + (_tl120194120264_ (let () (declare (not safe)) - (##cdr _e120192120253_)))) + (##cdr _e120196120257_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120190120260_)) - (_loop120179120221_ - _lp-tl120182120240_ + (gx#stx-null? _tl120194120264_)) + (_loop120183120225_ + _lp-tl120186120244_ (let () (declare (not safe)) - (cons _hd120191120257_ - _type-e120183120228_)) + (cons _hd120195120261_ + _type-e120187120232_)) (let () (declare (not safe)) - (cons _hd120188120247_ - _id120184120230_))) - (_g120169120198_ _g120170120202_)))) - (_g120169120198_ _g120170120202_)))) - (_g120169120198_ _g120170120202_)))) - (let ((_type-e120185120263_ (reverse _type-e120183120228_)) - (_id120186120266_ (reverse _id120184120230_))) - ((lambda (_L120269_ _L120271_) - (let ((__tmp131102 + (cons _hd120192120251_ + _id120188120234_))) + (_g120173120202_ _g120174120206_)))) + (_g120173120202_ _g120174120206_)))) + (_g120173120202_ _g120174120206_)))) + (let ((_type-e120189120267_ (reverse _type-e120187120232_)) + (_id120190120270_ (reverse _id120188120234_))) + ((lambda (_L120273_ _L120275_) + (let ((__tmp131106 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp131091 + (__tmp131095 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L120269_ - _L120271_)) - (let ((__tmp131092 - (lambda (_g120286120290_ - _g120287120293_ - _g120288120295_) - (let ((__tmp131093 - (let ((__tmp131101 + _L120273_ + _L120275_)) + (let ((__tmp131096 + (lambda (_g120290120294_ + _g120291120297_ + _g120292120299_) + (let ((__tmp131097 + (let ((__tmp131105 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp131094 - (let ((__tmp131100 + (__tmp131098 + (let ((__tmp131104 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp131095 - (let ((__tmp131097 + (__tmp131099 + (let ((__tmp131101 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131099 + (let ((__tmp131103 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp131098 + (__tmp131102 (let () (declare (not safe)) - (cons _g120287120293_ '())))) + (cons _g120291120297_ '())))) (declare (not safe)) - (cons __tmp131099 __tmp131098))) - (__tmp131096 + (cons __tmp131103 __tmp131102))) + (__tmp131100 (let () (declare (not safe)) - (cons _g120286120290_ '())))) + (cons _g120290120294_ '())))) (declare (not safe)) - (cons __tmp131097 __tmp131096)))) + (cons __tmp131101 __tmp131100)))) (declare (not safe)) - (cons __tmp131100 __tmp131095)))) + (cons __tmp131104 __tmp131099)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp131101 - __tmp131094)))) + (cons __tmp131105 + __tmp131098)))) (declare (not safe)) - (cons __tmp131093 _g120288120295_))))) + (cons __tmp131097 _g120292120299_))))) (declare (not safe)) - (foldr2 __tmp131092 + (foldr2 __tmp131096 '() - _L120269_ - _L120271_))))) + _L120273_ + _L120275_))))) (declare (not safe)) - (cons __tmp131102 __tmp131091))) - _type-e120185120263_ - _id120186120266_)))))) + (cons __tmp131106 __tmp131095))) + _type-e120189120267_ + _id120190120270_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop120179120221_ - _target120176120215_ + (_loop120183120225_ + _target120180120219_ '() '())) - (_g120169120198_ _g120170120202_))))) - (_g120169120198_ _g120170120202_)))) - (_g120169120198_ _g120170120202_))))) - (_g120168120298_ _$stx120165_)))))) + (_g120173120202_ _g120174120206_))))) + (_g120173120202_ _g120174120206_)))) + (_g120173120202_ _g120174120206_))))) + (_g120172120302_ _$stx120169_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index 6cfe1e5a0..0e9d4a0f1 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1710781150) + (define gerbil/compiler/optimize-xform::timestamp 1710833425) (begin (define gxc#::collect-mutators::t - (let ((__tmp119813 (list gxc#::void::t)) - (__tmp119811 - (let ((__tmp119812 + (let ((__tmp119817 (list gxc#::void::t)) + (__tmp119815 + (let ((__tmp119816 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119812 '())))) + (cons __tmp119816 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp119813 + __tmp119817 '() - __tmp119811 + __tmp119815 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _$args119552_ - (apply make-instance gxc#::collect-mutators::t _$args119552_))) + (lambda _$args119556_ + (apply make-instance gxc#::collect-mutators::t _$args119556_))) (define gxc#::collect-mutators-bind-methods! (make-promise (lambda () @@ -170,46 +170,46 @@ (declare (not safe)) (seal-class! gxc#::collect-mutators::t))))) (define gxc#apply-collect-mutators - (lambda (_stx119544_) + (lambda (_stx119548_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_self119547_ - (let ((__obj119799 + (let* ((_self119551_ + (let ((__obj119803 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj119799)) - (__tmp119814 + __obj119803)) + (__tmp119818 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119547_ _stx119544_))))) + (gxc#compile-e__1 _self119551_ _stx119548_))))) (declare (not safe)) (call-with-parameters - __tmp119814 + __tmp119818 gxc#current-compile-method - _self119547_)))) + _self119551_)))) (define gxc#::collect-methods::t - (let ((__tmp119817 (list gxc#::void::t)) - (__tmp119815 - (let ((__tmp119816 + (let ((__tmp119821 (list gxc#::void::t)) + (__tmp119819 + (let ((__tmp119820 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119816 '())))) + (cons __tmp119820 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-methods::t '::collect-methods - __tmp119817 + __tmp119821 '() - __tmp119815 + __tmp119819 '#f))) (define gxc#::collect-methods? (let () (declare (not safe)) (make-class-predicate gxc#::collect-methods::t))) (define gxc#make-::collect-methods - (lambda _$args119541_ - (apply make-instance gxc#::collect-methods::t _$args119541_))) + (lambda _$args119545_ + (apply make-instance gxc#::collect-methods::t _$args119545_))) (define gxc#::collect-methods-bind-methods! (make-promise (lambda () @@ -248,46 +248,46 @@ (declare (not safe)) (seal-class! gxc#::collect-methods::t))))) (define gxc#apply-collect-methods - (lambda (_stx119533_) + (lambda (_stx119537_) (force gxc#::collect-methods-bind-methods!) - (let* ((_self119536_ - (let ((__obj119801 + (let* ((_self119540_ + (let ((__obj119805 (let () (declare (not safe)) (##structure gxc#::collect-methods::t)))) - __obj119801)) - (__tmp119818 + __obj119805)) + (__tmp119822 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119536_ _stx119533_))))) + (gxc#compile-e__1 _self119540_ _stx119537_))))) (declare (not safe)) (call-with-parameters - __tmp119818 + __tmp119822 gxc#current-compile-method - _self119536_)))) + _self119540_)))) (define gxc#::expression-subst::t - (let ((__tmp119821 (list gxc#::basic-xform-expression::t)) - (__tmp119819 - (let ((__tmp119820 + (let ((__tmp119825 (list gxc#::basic-xform-expression::t)) + (__tmp119823 + (let ((__tmp119824 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119820 '())))) + (cons __tmp119824 '())))) (declare (not safe)) (make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp119821 + __tmp119825 '(id new-id) - __tmp119819 + __tmp119823 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _$args119530_ - (apply make-instance gxc#::expression-subst::t _$args119530_))) + (lambda _$args119534_ + (apply make-instance gxc#::expression-subst::t _$args119534_))) (define gxc#::expression-subst-id (let () (declare (not safe)) @@ -348,95 +348,95 @@ (declare (not safe)) (seal-class! gxc#::expression-subst::t))))) (define gxc#apply-expression-subst__% - (lambda (_g119822_ _id119496119500_ _new-id119497119502_ _stx119504_) - (let* ((_id119507_ + (lambda (_g119826_ _id119500119504_ _new-id119501119506_ _stx119508_) + (let* ((_id119511_ (if (let () (declare (not safe)) - (eq? _id119496119500_ absent-value)) + (eq? _id119500119504_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _id119496119500_)) - (_new-id119509_ + _id119500119504_)) + (_new-id119513_ (if (let () (declare (not safe)) - (eq? _new-id119497119502_ absent-value)) + (eq? _new-id119501119506_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _new-id119497119502_))) + _new-id119501119506_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_self119511_ - (let ((__obj119803 + (let* ((_self119515_ + (let ((__obj119807 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119803 - _id119507_ + __obj119807 + _id119511_ '1 gxc#::expression-subst::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119803 - _new-id119509_ + __obj119807 + _new-id119513_ '2 gxc#::expression-subst::t '#f)) - __obj119803)) - (__tmp119823 + __obj119807)) + (__tmp119827 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119511_ _stx119504_))))) + (gxc#compile-e__1 _self119515_ _stx119508_))))) (declare (not safe)) (call-with-parameters - __tmp119823 + __tmp119827 gxc#current-compile-method - _self119511_))))) + _self119515_))))) (define gxc#apply-expression-subst__@ - (lambda (_keys119495119518_ . _args119520_) + (lambda (_keys119499119522_ . _args119524_) (apply gxc#apply-expression-subst__% - _keys119495119518_ + _keys119499119522_ (let () (declare (not safe)) - (symbolic-table-ref _keys119495119518_ 'id: absent-value)) + (symbolic-table-ref _keys119499119522_ 'id: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys119495119518_ 'new-id: absent-value)) - _args119520_))) + (symbolic-table-ref _keys119499119522_ 'new-id: absent-value)) + _args119524_))) (define gxc#apply-expression-subst - (lambda _args119498119526_ + (lambda _args119502119530_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _args119498119526_))) + _args119502119530_))) (define gxc#::expression-subst*::t - (let ((__tmp119826 (list gxc#::basic-xform-expression::t)) - (__tmp119824 - (let ((__tmp119825 + (let ((__tmp119830 (list gxc#::basic-xform-expression::t)) + (__tmp119828 + (let ((__tmp119829 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119825 '())))) + (cons __tmp119829 '())))) (declare (not safe)) (make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp119826 + __tmp119830 '(subst) - __tmp119824 + __tmp119828 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _$args119491_ - (apply make-instance gxc#::expression-subst*::t _$args119491_))) + (lambda _$args119495_ + (apply make-instance gxc#::expression-subst*::t _$args119495_))) (define gxc#::expression-subst*-subst (let () (declare (not safe)) @@ -481,61 +481,61 @@ (declare (not safe)) (seal-class! gxc#::expression-subst*::t))))) (define gxc#apply-expression-subst*__% - (lambda (_g119827_ _subst119462119465_ _stx119467_) - (let ((_subst119470_ + (lambda (_g119831_ _subst119466119469_ _stx119471_) + (let ((_subst119474_ (if (let () (declare (not safe)) - (eq? _subst119462119465_ absent-value)) + (eq? _subst119466119469_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _subst119462119465_))) + _subst119466119469_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_self119472_ - (let ((__obj119805 + (let* ((_self119476_ + (let ((__obj119809 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119805 - _subst119470_ + __obj119809 + _subst119474_ '1 gxc#::expression-subst*::t '#f)) - __obj119805)) - (__tmp119828 + __obj119809)) + (__tmp119832 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119472_ _stx119467_))))) + (gxc#compile-e__1 _self119476_ _stx119471_))))) (declare (not safe)) (call-with-parameters - __tmp119828 + __tmp119832 gxc#current-compile-method - _self119472_))))) + _self119476_))))) (define gxc#apply-expression-subst*__@ - (lambda (_keys119461119479_ . _args119481_) + (lambda (_keys119465119483_ . _args119485_) (apply gxc#apply-expression-subst*__% - _keys119461119479_ + _keys119465119483_ (let () (declare (not safe)) - (symbolic-table-ref _keys119461119479_ 'subst: absent-value)) - _args119481_))) + (symbolic-table-ref _keys119465119483_ 'subst: absent-value)) + _args119485_))) (define gxc#apply-expression-subst* - (lambda _args119463119487_ + (lambda _args119467119491_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _args119463119487_))) + _args119467119491_))) (define gxc#::find-expression::t - (let ((__tmp119829 (list gxc#::false-expression::t))) + (let ((__tmp119833 (list gxc#::false-expression::t))) (declare (not safe)) (make-class-type 'gxc#::find-expression::t '::find-expression - __tmp119829 + __tmp119833 '() '() '#f))) @@ -544,8 +544,8 @@ (declare (not safe)) (make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _$args119457_ - (apply make-instance gxc#::find-expression::t _$args119457_))) + (lambda _$args119461_ + (apply make-instance gxc#::find-expression::t _$args119461_))) (define gxc#::find-expression-bind-methods! (make-promise (lambda () @@ -656,27 +656,27 @@ '%#struct-unchecked-set! gxc#find-body%))))) (define gxc#::find-var-refs::t - (let ((__tmp119832 (list gxc#::find-expression::t)) - (__tmp119830 - (let ((__tmp119831 + (let ((__tmp119836 (list gxc#::find-expression::t)) + (__tmp119834 + (let ((__tmp119835 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119831 '())))) + (cons __tmp119835 '())))) (declare (not safe)) (make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp119832 + __tmp119836 '(ids) - __tmp119830 + __tmp119834 '#f))) (define gxc#::find-var-refs? (let () (declare (not safe)) (make-class-predicate gxc#::find-var-refs::t))) (define gxc#make-::find-var-refs - (lambda _$args119453_ - (apply make-instance gxc#::find-var-refs::t _$args119453_))) + (lambda _$args119457_ + (apply make-instance gxc#::find-var-refs::t _$args119457_))) (define gxc#::find-var-refs-ids (let () (declare (not safe)) @@ -711,76 +711,76 @@ gxc#find-var-refs-setq%)) (let () (declare (not safe)) (seal-class! gxc#::find-var-refs::t))))) (define gxc#apply-find-var-refs__% - (lambda (_g119833_ _ids119424119427_ _stx119429_) - (let ((_ids119432_ + (lambda (_g119837_ _ids119428119431_ _stx119433_) + (let ((_ids119436_ (if (let () (declare (not safe)) - (eq? _ids119424119427_ absent-value)) + (eq? _ids119428119431_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _ids119424119427_))) + _ids119428119431_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_self119434_ - (let ((__obj119808 + (let* ((_self119438_ + (let ((__obj119812 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119808 - _ids119432_ + __obj119812 + _ids119436_ '1 gxc#::find-var-refs::t '#f)) - __obj119808)) - (__tmp119834 + __obj119812)) + (__tmp119838 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119434_ _stx119429_))))) + (gxc#compile-e__1 _self119438_ _stx119433_))))) (declare (not safe)) (call-with-parameters - __tmp119834 + __tmp119838 gxc#current-compile-method - _self119434_))))) + _self119438_))))) (define gxc#apply-find-var-refs__@ - (lambda (_keys119423119441_ . _args119443_) + (lambda (_keys119427119445_ . _args119447_) (apply gxc#apply-find-var-refs__% - _keys119423119441_ + _keys119427119445_ (let () (declare (not safe)) - (symbolic-table-ref _keys119423119441_ 'ids: absent-value)) - _args119443_))) + (symbolic-table-ref _keys119427119445_ 'ids: absent-value)) + _args119447_))) (define gxc#apply-find-var-refs - (lambda _args119425119449_ + (lambda _args119429119453_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _args119425119449_))) + _args119429119453_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp119837 (list gxc#::collect-expression-refs::t)) - (__tmp119835 - (let ((__tmp119836 + (let ((__tmp119841 (list gxc#::collect-expression-refs::t)) + (__tmp119839 + (let ((__tmp119840 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119836 '())))) + (cons __tmp119840 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp119837 + __tmp119841 '() - __tmp119835 + __tmp119839 '#f))) (define gxc#::collect-runtime-refs? (let () (declare (not safe)) (make-class-predicate gxc#::collect-runtime-refs::t))) (define gxc#make-::collect-runtime-refs - (lambda _$args119419_ - (apply make-instance gxc#::collect-runtime-refs::t _$args119419_))) + (lambda _$args119423_ + (apply make-instance gxc#::collect-runtime-refs::t _$args119423_))) (define gxc#::collect-runtime-refs-table (let () (declare (not safe)) @@ -821,1792 +821,1792 @@ (declare (not safe)) (seal-class! gxc#::collect-runtime-refs::t))))) (define gxc#apply-collect-runtime-refs__% - (lambda (_g119838_ _table119390119393_ _stx119395_) - (let ((_table119398_ + (lambda (_g119842_ _table119394119397_ _stx119399_) + (let ((_table119402_ (if (let () (declare (not safe)) - (eq? _table119390119393_ absent-value)) + (eq? _table119394119397_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _table119390119393_))) + _table119394119397_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_self119400_ - (let ((__obj119810 + (let* ((_self119404_ + (let ((__obj119814 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 - _table119398_ + __obj119814 + _table119402_ '1 gxc#::collect-runtime-refs::t '#f)) - __obj119810)) - (__tmp119839 + __obj119814)) + (__tmp119843 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119400_ _stx119395_))))) + (gxc#compile-e__1 _self119404_ _stx119399_))))) (declare (not safe)) (call-with-parameters - __tmp119839 + __tmp119843 gxc#current-compile-method - _self119400_))))) + _self119404_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_keys119389119407_ . _args119409_) + (lambda (_keys119393119411_ . _args119413_) (apply gxc#apply-collect-runtime-refs__% - _keys119389119407_ + _keys119393119411_ (let () (declare (not safe)) - (symbolic-table-ref _keys119389119407_ 'table: absent-value)) - _args119409_))) + (symbolic-table-ref _keys119393119411_ 'table: absent-value)) + _args119413_))) (define gxc#apply-collect-runtime-refs - (lambda _args119391119415_ + (lambda _args119395119419_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _args119391119415_))) + _args119395119419_))) (define gxc#collect-mutators-setq% - (lambda (_self119318_ _stx119319_) - (let* ((_g119321119338_ - (lambda (_g119322119335_) + (lambda (_self119322_ _stx119323_) + (let* ((_g119325119342_ + (lambda (_g119326119339_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g119322119335_)))) - (_g119320119385_ - (lambda (_g119322119341_) + _g119326119339_)))) + (_g119324119389_ + (lambda (_g119326119345_) (if (let () (declare (not safe)) - (gx#stx-pair? _g119322119341_)) - (let ((_e119327119343_ + (gx#stx-pair? _g119326119345_)) + (let ((_e119331119347_ (let () (declare (not safe)) - (gx#stx-e _g119322119341_)))) - (let ((_hd119326119346_ + (gx#stx-e _g119326119345_)))) + (let ((_hd119330119350_ (let () (declare (not safe)) - (##car _e119327119343_))) - (_tl119325119348_ + (##car _e119331119347_))) + (_tl119329119352_ (let () (declare (not safe)) - (##cdr _e119327119343_)))) + (##cdr _e119331119347_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119325119348_)) - (let ((_e119330119351_ + (gx#stx-pair? _tl119329119352_)) + (let ((_e119334119355_ (let () (declare (not safe)) - (gx#stx-e _tl119325119348_)))) - (let ((_hd119329119354_ + (gx#stx-e _tl119329119352_)))) + (let ((_hd119333119358_ (let () (declare (not safe)) - (##car _e119330119351_))) - (_tl119328119356_ + (##car _e119334119355_))) + (_tl119332119360_ (let () (declare (not safe)) - (##cdr _e119330119351_)))) + (##cdr _e119334119355_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119328119356_)) - (let ((_e119333119359_ + (gx#stx-pair? _tl119332119360_)) + (let ((_e119337119363_ (let () (declare (not safe)) - (gx#stx-e _tl119328119356_)))) - (let ((_hd119332119362_ + (gx#stx-e _tl119332119360_)))) + (let ((_hd119336119366_ (let () (declare (not safe)) - (##car _e119333119359_))) - (_tl119331119364_ + (##car _e119337119363_))) + (_tl119335119368_ (let () (declare (not safe)) - (##cdr _e119333119359_)))) + (##cdr _e119337119363_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119331119364_)) - ((lambda (_L119367_ _L119368_) - (let ((_sym119383_ + _tl119335119368_)) + ((lambda (_L119371_ _L119372_) + (let ((_sym119387_ (let () (declare (not safe)) (gxc#identifier-symbol - _L119368_)))) + _L119372_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym119383_)) - (let ((__tmp119840 + _sym119387_)) + (let ((__tmp119844 (gxc#current-compile-mutators))) (declare (not safe)) (hash-put! - __tmp119840 - _sym119383_ + __tmp119844 + _sym119387_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _self119318_ - _L119367_)))) - _hd119332119362_ - _hd119329119354_) + _self119322_ + _L119371_)))) + _hd119336119366_ + _hd119333119358_) (let () (declare (not safe)) - (_g119321119338_ - _g119322119341_))))) + (_g119325119342_ + _g119326119345_))))) (let () (declare (not safe)) - (_g119321119338_ _g119322119341_))))) + (_g119325119342_ _g119326119345_))))) (let () (declare (not safe)) - (_g119321119338_ _g119322119341_))))) + (_g119325119342_ _g119326119345_))))) (let () (declare (not safe)) - (_g119321119338_ _g119322119341_)))))) + (_g119325119342_ _g119326119345_)))))) (declare (not safe)) - (_g119320119385_ _stx119319_)))) + (_g119324119389_ _stx119323_)))) (define gxc#collect-methods-call% - (lambda (_self118871_ _stx118872_) - (let* ((___stx119555119556_ _stx118872_) - (_g118876118978_ + (lambda (_self118875_ _stx118876_) + (let* ((___stx119559119560_ _stx118876_) + (_g118880118982_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx119555119556_))))) - (let ((___kont119557119558_ - (lambda (_L119268_ _L119269_ _L119270_ _L119271_ _L119272_) - (let ((__tmp119841 + ___stx119559119560_))))) + (let ((___kont119561119562_ + (lambda (_L119272_ _L119273_ _L119274_ _L119275_ _L119276_) + (let ((__tmp119845 (let () (declare (not safe)) - (gxc#identifier-symbol _L119269_)))) + (gxc#identifier-symbol _L119273_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp119841)))) - (___kont119559119560_ - (lambda (_L119094_ _L119095_ _L119096_ _L119097_) - (let ((__tmp119842 + (gxc#optimizer-top-level-method! __tmp119845)))) + (___kont119563119564_ + (lambda (_L119098_ _L119099_ _L119100_ _L119101_) + (let ((__tmp119846 (let () (declare (not safe)) - (gxc#identifier-symbol _L119094_)))) + (gxc#identifier-symbol _L119098_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp119842)))) - (___kont119561119562_ (lambda () '#!void))) - (let ((___match119690119691_ - (lambda (_e118885119140_ - _hd118884119143_ - _tl118883119145_ - _e118888119148_ - _hd118887119151_ - _tl118886119153_ - _e118891119156_ - _hd118890119159_ - _tl118889119161_ - _e118894119164_ - _hd118893119167_ - _tl118892119169_ - _e118897119172_ - _hd118896119175_ - _tl118895119177_ - _e118900119180_ - _hd118899119183_ - _tl118898119185_ - _e118903119188_ - _hd118902119191_ - _tl118901119193_ - _e118906119196_ - _hd118905119199_ - _tl118904119201_ - _e118909119204_ - _hd118908119207_ - _tl118907119209_ - _e118912119212_ - _hd118911119215_ - _tl118910119217_ - _e118915119220_ - _hd118914119223_ - _tl118913119225_ - _e118918119228_ - _hd118917119231_ - _tl118916119233_ - _e118921119236_ - _hd118920119239_ - _tl118919119241_ - _e118924119244_ - _hd118923119247_ - _tl118922119249_ - _e118927119252_ - _hd118926119255_ - _tl118925119257_ - _e118930119260_ - _hd118929119263_ - _tl118928119265_) - (let ((_L119268_ _hd118929119263_) - (_L119269_ _hd118920119239_) - (_L119270_ _hd118911119215_) - (_L119271_ _hd118902119191_) - (_L119272_ _hd118893119167_)) + (gxc#optimizer-top-level-method! __tmp119846)))) + (___kont119565119566_ (lambda () '#!void))) + (let ((___match119694119695_ + (lambda (_e118889119144_ + _hd118888119147_ + _tl118887119149_ + _e118892119152_ + _hd118891119155_ + _tl118890119157_ + _e118895119160_ + _hd118894119163_ + _tl118893119165_ + _e118898119168_ + _hd118897119171_ + _tl118896119173_ + _e118901119176_ + _hd118900119179_ + _tl118899119181_ + _e118904119184_ + _hd118903119187_ + _tl118902119189_ + _e118907119192_ + _hd118906119195_ + _tl118905119197_ + _e118910119200_ + _hd118909119203_ + _tl118908119205_ + _e118913119208_ + _hd118912119211_ + _tl118911119213_ + _e118916119216_ + _hd118915119219_ + _tl118914119221_ + _e118919119224_ + _hd118918119227_ + _tl118917119229_ + _e118922119232_ + _hd118921119235_ + _tl118920119237_ + _e118925119240_ + _hd118924119243_ + _tl118923119245_ + _e118928119248_ + _hd118927119251_ + _tl118926119253_ + _e118931119256_ + _hd118930119259_ + _tl118929119261_ + _e118934119264_ + _hd118933119267_ + _tl118932119269_) + (let ((_L119272_ _hd118933119267_) + (_L119273_ _hd118924119243_) + (_L119274_ _hd118915119219_) + (_L119275_ _hd118906119195_) + (_L119276_ _hd118897119171_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L119272_ + _L119276_ 'bind-method!)) - (___kont119557119558_ - _L119268_ - _L119269_ - _L119270_ - _L119271_ - _L119272_) - (___kont119561119562_)))))) + (___kont119561119562_ + _L119272_ + _L119273_ + _L119274_ + _L119275_ + _L119276_) + (___kont119565119566_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx119555119556_)) - (let ((_e118885119140_ + (gx#stx-pair? ___stx119559119560_)) + (let ((_e118889119144_ (let () (declare (not safe)) - (gx#stx-e ___stx119555119556_)))) - (let ((_tl118883119145_ + (gx#stx-e ___stx119559119560_)))) + (let ((_tl118887119149_ (let () (declare (not safe)) - (##cdr _e118885119140_))) - (_hd118884119143_ + (##cdr _e118889119144_))) + (_hd118888119147_ (let () (declare (not safe)) - (##car _e118885119140_)))) + (##car _e118889119144_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118883119145_)) - (let ((_e118888119148_ + (gx#stx-pair? _tl118887119149_)) + (let ((_e118892119152_ (let () (declare (not safe)) - (gx#stx-e _tl118883119145_)))) - (let ((_tl118886119153_ + (gx#stx-e _tl118887119149_)))) + (let ((_tl118890119157_ (let () (declare (not safe)) - (##cdr _e118888119148_))) - (_hd118887119151_ + (##cdr _e118892119152_))) + (_hd118891119155_ (let () (declare (not safe)) - (##car _e118888119148_)))) + (##car _e118892119152_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118887119151_)) - (let ((_e118891119156_ + (gx#stx-pair? _hd118891119155_)) + (let ((_e118895119160_ (let () (declare (not safe)) - (gx#stx-e _hd118887119151_)))) - (let ((_tl118889119161_ + (gx#stx-e _hd118891119155_)))) + (let ((_tl118893119165_ (let () (declare (not safe)) - (##cdr _e118891119156_))) - (_hd118890119159_ + (##cdr _e118895119160_))) + (_hd118894119163_ (let () (declare (not safe)) - (##car _e118891119156_)))) + (##car _e118895119160_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118890119159_)) + (gx#identifier? _hd118894119163_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd118890119159_)) + _hd118894119163_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118889119161_)) - (let ((_e118894119164_ + _tl118893119165_)) + (let ((_e118898119168_ (let () (declare (not safe)) (gx#stx-e - _tl118889119161_)))) - (let ((_tl118892119169_ + _tl118893119165_)))) + (let ((_tl118896119173_ (let () (declare (not safe)) - (##cdr _e118894119164_))) - (_hd118893119167_ + (##cdr _e118898119168_))) + (_hd118897119171_ (let () (declare (not safe)) - (##car _e118894119164_)))) + (##car _e118898119168_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118892119169_)) + _tl118896119173_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl118886119153_)) - (let ((_e118897119172_ + (gx#stx-pair? _tl118890119157_)) + (let ((_e118901119176_ (let () (declare (not safe)) - (gx#stx-e _tl118886119153_)))) - (let ((_tl118895119177_ + (gx#stx-e _tl118890119157_)))) + (let ((_tl118899119181_ (let () (declare (not safe)) - (##cdr _e118897119172_))) - (_hd118896119175_ + (##cdr _e118901119176_))) + (_hd118900119179_ (let () (declare (not safe)) - (##car _e118897119172_)))) + (##car _e118901119176_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118896119175_)) - (let ((_e118900119180_ + (gx#stx-pair? _hd118900119179_)) + (let ((_e118904119184_ (let () (declare (not safe)) - (gx#stx-e _hd118896119175_)))) - (let ((_tl118898119185_ + (gx#stx-e _hd118900119179_)))) + (let ((_tl118902119189_ (let () (declare (not safe)) - (##cdr _e118900119180_))) - (_hd118899119183_ + (##cdr _e118904119184_))) + (_hd118903119187_ (let () (declare (not safe)) - (##car _e118900119180_)))) + (##car _e118904119184_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118899119183_)) + (gx#identifier? _hd118903119187_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd118899119183_)) + _hd118903119187_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118898119185_)) - (let ((_e118903119188_ + _tl118902119189_)) + (let ((_e118907119192_ (let () (declare (not safe)) (gx#stx-e - _tl118898119185_)))) - (let ((_tl118901119193_ + _tl118902119189_)))) + (let ((_tl118905119197_ (let () (declare (not safe)) - (##cdr _e118903119188_))) - (_hd118902119191_ + (##cdr _e118907119192_))) + (_hd118906119195_ (let () (declare (not safe)) - (##car _e118903119188_)))) + (##car _e118907119192_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118901119193_)) + _tl118905119197_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118895119177_)) - (let ((_e118906119196_ + _tl118899119181_)) + (let ((_e118910119200_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl118895119177_)))) - (let ((_tl118904119201_ + (gx#stx-e _tl118899119181_)))) + (let ((_tl118908119205_ (let () (declare (not safe)) - (##cdr _e118906119196_))) - (_hd118905119199_ + (##cdr _e118910119200_))) + (_hd118909119203_ (let () (declare (not safe)) - (##car _e118906119196_)))) + (##car _e118910119200_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118905119199_)) - (let ((_e118909119204_ + (gx#stx-pair? _hd118909119203_)) + (let ((_e118913119208_ (let () (declare (not safe)) - (gx#stx-e _hd118905119199_)))) - (let ((_tl118907119209_ + (gx#stx-e _hd118909119203_)))) + (let ((_tl118911119213_ (let () (declare (not safe)) - (##cdr _e118909119204_))) - (_hd118908119207_ + (##cdr _e118913119208_))) + (_hd118912119211_ (let () (declare (not safe)) - (##car _e118909119204_)))) + (##car _e118913119208_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118908119207_)) + (gx#identifier? _hd118912119211_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd118908119207_)) + (gx#stx-eq? '%#quote _hd118912119211_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118907119209_)) - (let ((_e118912119212_ + (gx#stx-pair? _tl118911119213_)) + (let ((_e118916119216_ (let () (declare (not safe)) (gx#stx-e - _tl118907119209_)))) - (let ((_tl118910119217_ + _tl118911119213_)))) + (let ((_tl118914119221_ (let () (declare (not safe)) - (##cdr _e118912119212_))) - (_hd118911119215_ + (##cdr _e118916119216_))) + (_hd118915119219_ (let () (declare (not safe)) - (##car _e118912119212_)))) + (##car _e118916119216_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118910119217_)) + _tl118914119221_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118904119201_)) - (let ((_e118915119220_ + _tl118908119205_)) + (let ((_e118919119224_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl118904119201_)))) - (let ((_tl118913119225_ - (let () (declare (not safe)) (##cdr _e118915119220_))) - (_hd118914119223_ - (let () (declare (not safe)) (##car _e118915119220_)))) + (gx#stx-e _tl118908119205_)))) + (let ((_tl118917119229_ + (let () (declare (not safe)) (##cdr _e118919119224_))) + (_hd118918119227_ + (let () (declare (not safe)) (##car _e118919119224_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118914119223_)) - (let ((_e118918119228_ + (gx#stx-pair? _hd118918119227_)) + (let ((_e118922119232_ (let () (declare (not safe)) - (gx#stx-e _hd118914119223_)))) - (let ((_tl118916119233_ + (gx#stx-e _hd118918119227_)))) + (let ((_tl118920119237_ (let () (declare (not safe)) - (##cdr _e118918119228_))) - (_hd118917119231_ + (##cdr _e118922119232_))) + (_hd118921119235_ (let () (declare (not safe)) - (##car _e118918119228_)))) + (##car _e118922119232_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118917119231_)) + (gx#identifier? _hd118921119235_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd118917119231_)) + (gx#stx-eq? '%#ref _hd118921119235_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118916119233_)) - (let ((_e118921119236_ + (gx#stx-pair? _tl118920119237_)) + (let ((_e118925119240_ (let () (declare (not safe)) - (gx#stx-e _tl118916119233_)))) - (let ((_tl118919119241_ + (gx#stx-e _tl118920119237_)))) + (let ((_tl118923119245_ (let () (declare (not safe)) - (##cdr _e118921119236_))) - (_hd118920119239_ + (##cdr _e118925119240_))) + (_hd118924119243_ (let () (declare (not safe)) - (##car _e118921119236_)))) + (##car _e118925119240_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118919119241_)) + _tl118923119245_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118913119225_)) - (let ((_e118924119244_ + _tl118917119229_)) + (let ((_e118928119248_ (let () (declare (not safe)) (gx#stx-e - _tl118913119225_)))) - (let ((_tl118922119249_ + _tl118917119229_)))) + (let ((_tl118926119253_ (let () (declare (not safe)) - (##cdr _e118924119244_))) - (_hd118923119247_ + (##cdr _e118928119248_))) + (_hd118927119251_ (let () (declare (not safe)) - (##car _e118924119244_)))) + (##car _e118928119248_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118923119247_)) - (let ((_e118927119252_ + _hd118927119251_)) + (let ((_e118931119256_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd118923119247_)))) - (let ((_tl118925119257_ + (gx#stx-e _hd118927119251_)))) + (let ((_tl118929119261_ (let () (declare (not safe)) - (##cdr _e118927119252_))) - (_hd118926119255_ + (##cdr _e118931119256_))) + (_hd118930119259_ (let () (declare (not safe)) - (##car _e118927119252_)))) + (##car _e118931119256_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118926119255_)) + (gx#identifier? _hd118930119259_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd118926119255_)) + (gx#stx-eq? '%#quote _hd118930119259_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118925119257_)) - (let ((_e118930119260_ + (gx#stx-pair? _tl118929119261_)) + (let ((_e118934119264_ (let () (declare (not safe)) - (gx#stx-e _tl118925119257_)))) - (let ((_tl118928119265_ + (gx#stx-e _tl118929119261_)))) + (let ((_tl118932119269_ (let () (declare (not safe)) - (##cdr _e118930119260_))) - (_hd118929119263_ + (##cdr _e118934119264_))) + (_hd118933119267_ (let () (declare (not safe)) - (##car _e118930119260_)))) + (##car _e118934119264_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118928119265_)) + (gx#stx-null? _tl118932119269_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl118922119249_)) - (___match119690119691_ - _e118885119140_ - _hd118884119143_ - _tl118883119145_ - _e118888119148_ - _hd118887119151_ - _tl118886119153_ - _e118891119156_ - _hd118890119159_ - _tl118889119161_ - _e118894119164_ - _hd118893119167_ - _tl118892119169_ - _e118897119172_ - _hd118896119175_ - _tl118895119177_ - _e118900119180_ - _hd118899119183_ - _tl118898119185_ - _e118903119188_ - _hd118902119191_ - _tl118901119193_ - _e118906119196_ - _hd118905119199_ - _tl118904119201_ - _e118909119204_ - _hd118908119207_ - _tl118907119209_ - _e118912119212_ - _hd118911119215_ - _tl118910119217_ - _e118915119220_ - _hd118914119223_ - _tl118913119225_ - _e118918119228_ - _hd118917119231_ - _tl118916119233_ - _e118921119236_ - _hd118920119239_ - _tl118919119241_ - _e118924119244_ - _hd118923119247_ - _tl118922119249_ - _e118927119252_ - _hd118926119255_ - _tl118925119257_ - _e118930119260_ - _hd118929119263_ - _tl118928119265_) - (___kont119561119562_)) - (___kont119561119562_)))) - (___kont119561119562_)) - (___kont119561119562_)) - (___kont119561119562_)))) - (___kont119561119562_)))) + _tl118926119253_)) + (___match119694119695_ + _e118889119144_ + _hd118888119147_ + _tl118887119149_ + _e118892119152_ + _hd118891119155_ + _tl118890119157_ + _e118895119160_ + _hd118894119163_ + _tl118893119165_ + _e118898119168_ + _hd118897119171_ + _tl118896119173_ + _e118901119176_ + _hd118900119179_ + _tl118899119181_ + _e118904119184_ + _hd118903119187_ + _tl118902119189_ + _e118907119192_ + _hd118906119195_ + _tl118905119197_ + _e118910119200_ + _hd118909119203_ + _tl118908119205_ + _e118913119208_ + _hd118912119211_ + _tl118911119213_ + _e118916119216_ + _hd118915119219_ + _tl118914119221_ + _e118919119224_ + _hd118918119227_ + _tl118917119229_ + _e118922119232_ + _hd118921119235_ + _tl118920119237_ + _e118925119240_ + _hd118924119243_ + _tl118923119245_ + _e118928119248_ + _hd118927119251_ + _tl118926119253_ + _e118931119256_ + _hd118930119259_ + _tl118929119261_ + _e118934119264_ + _hd118933119267_ + _tl118932119269_) + (___kont119565119566_)) + (___kont119565119566_)))) + (___kont119565119566_)) + (___kont119565119566_)) + (___kont119565119566_)))) + (___kont119565119566_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl118913119225_)) - (if (let ((__tmp119843 + _tl118917119229_)) + (if (let ((__tmp119847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp119843 'bind-method!)) - (let ((_L119094_ _hd118920119239_) - (_L119095_ _hd118911119215_) - (_L119096_ _hd118902119191_) - (_L119097_ _hd118893119167_)) - (___kont119559119560_ - _L119094_ - _L119095_ - _L119096_ - _L119097_)) - (___kont119561119562_)) - (___kont119561119562_))) + (gxc#runtime-identifier=? __tmp119847 'bind-method!)) + (let ((_L119098_ _hd118924119243_) + (_L119099_ _hd118915119219_) + (_L119100_ _hd118906119195_) + (_L119101_ _hd118897119171_)) + (___kont119563119564_ + _L119098_ + _L119099_ + _L119100_ + _L119101_)) + (___kont119565119566_)) + (___kont119565119566_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont119561119562_)))) - (___kont119561119562_)) - (___kont119561119562_)) - (___kont119561119562_)))) - (___kont119561119562_)))) - (___kont119561119562_)) + (___kont119565119566_)))) + (___kont119565119566_)) + (___kont119565119566_)) + (___kont119565119566_)))) + (___kont119565119566_)))) + (___kont119565119566_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont119561119562_)))) - (___kont119561119562_)) - (___kont119561119562_)) - (___kont119561119562_)))) - (___kont119561119562_)))) - (___kont119561119562_)) - (___kont119561119562_)))) + (___kont119565119566_)))) + (___kont119565119566_)) + (___kont119565119566_)) + (___kont119565119566_)))) + (___kont119565119566_)))) + (___kont119565119566_)) + (___kont119565119566_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont119561119562_)) - (___kont119561119562_)) - (___kont119561119562_)))) - (___kont119561119562_)))) - (___kont119561119562_)) - (___kont119561119562_)))) + (___kont119565119566_)) + (___kont119565119566_)) + (___kont119565119566_)))) + (___kont119565119566_)))) + (___kont119565119566_)) + (___kont119565119566_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont119561119562_)) - (___kont119561119562_)) - (___kont119561119562_)))) - (___kont119561119562_)))) - (___kont119561119562_)))) - (___kont119561119562_))))))) + (___kont119565119566_)) + (___kont119565119566_)) + (___kont119565119566_)))) + (___kont119565119566_)))) + (___kont119565119566_)))) + (___kont119565119566_))))))) (define gxc#expression-subst-ref% - (lambda (_self118819_ _stx118820_) - (let* ((_g118822118835_ - (lambda (_g118823118832_) + (lambda (_self118823_ _stx118824_) + (let* ((_g118826118839_ + (lambda (_g118827118836_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118823118832_)))) - (_g118821118868_ - (lambda (_g118823118838_) + _g118827118836_)))) + (_g118825118872_ + (lambda (_g118827118842_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118823118838_)) - (let ((_e118827118840_ + (gx#stx-pair? _g118827118842_)) + (let ((_e118831118844_ (let () (declare (not safe)) - (gx#stx-e _g118823118838_)))) - (let ((_hd118826118843_ + (gx#stx-e _g118827118842_)))) + (let ((_hd118830118847_ (let () (declare (not safe)) - (##car _e118827118840_))) - (_tl118825118845_ + (##car _e118831118844_))) + (_tl118829118849_ (let () (declare (not safe)) - (##cdr _e118827118840_)))) + (##cdr _e118831118844_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118825118845_)) - (let ((_e118830118848_ + (gx#stx-pair? _tl118829118849_)) + (let ((_e118834118852_ (let () (declare (not safe)) - (gx#stx-e _tl118825118845_)))) - (let ((_hd118829118851_ + (gx#stx-e _tl118829118849_)))) + (let ((_hd118833118855_ (let () (declare (not safe)) - (##car _e118830118848_))) - (_tl118828118853_ + (##car _e118834118852_))) + (_tl118832118857_ (let () (declare (not safe)) - (##cdr _e118830118848_)))) + (##cdr _e118834118852_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118828118853_)) - ((lambda (_L118856_) - (if (let ((__tmp119847 + (gx#stx-null? _tl118832118857_)) + ((lambda (_L118860_) + (if (let ((__tmp119851 (let () (declare (not safe)) (slot-ref__0 - _self118819_ + _self118823_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _L118856_ - __tmp119847)) - (let ((__tmp119844 - (let ((__tmp119845 - (let ((__tmp119846 + _L118860_ + __tmp119851)) + (let ((__tmp119848 + (let ((__tmp119849 + (let ((__tmp119850 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _self118819_ 'new-id)))) + (slot-ref__0 _self118823_ 'new-id)))) (declare (not safe)) - (cons __tmp119846 '())))) + (cons __tmp119850 '())))) (declare (not safe)) - (cons '%#ref __tmp119845)))) + (cons '%#ref __tmp119849)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp119844 - _stx118820_)) - _stx118820_)) - _hd118829118851_) + __tmp119848 + _stx118824_)) + _stx118824_)) + _hd118833118855_) (let () (declare (not safe)) - (_g118822118835_ _g118823118838_))))) + (_g118826118839_ _g118827118842_))))) (let () (declare (not safe)) - (_g118822118835_ _g118823118838_))))) + (_g118826118839_ _g118827118842_))))) (let () (declare (not safe)) - (_g118822118835_ _g118823118838_)))))) + (_g118826118839_ _g118827118842_)))))) (declare (not safe)) - (_g118821118868_ _stx118820_)))) + (_g118825118872_ _stx118824_)))) (define gxc#expression-subst*-ref% - (lambda (_self118760_ _stx118761_) - (let* ((_g118763118776_ - (lambda (_g118764118773_) + (lambda (_self118764_ _stx118765_) + (let* ((_g118767118780_ + (lambda (_g118768118777_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118764118773_)))) - (_g118762118816_ - (lambda (_g118764118779_) + _g118768118777_)))) + (_g118766118820_ + (lambda (_g118768118783_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118764118779_)) - (let ((_e118768118781_ + (gx#stx-pair? _g118768118783_)) + (let ((_e118772118785_ (let () (declare (not safe)) - (gx#stx-e _g118764118779_)))) - (let ((_hd118767118784_ + (gx#stx-e _g118768118783_)))) + (let ((_hd118771118788_ (let () (declare (not safe)) - (##car _e118768118781_))) - (_tl118766118786_ + (##car _e118772118785_))) + (_tl118770118790_ (let () (declare (not safe)) - (##cdr _e118768118781_)))) + (##cdr _e118772118785_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118766118786_)) - (let ((_e118771118789_ + (gx#stx-pair? _tl118770118790_)) + (let ((_e118775118793_ (let () (declare (not safe)) - (gx#stx-e _tl118766118786_)))) - (let ((_hd118770118792_ + (gx#stx-e _tl118770118790_)))) + (let ((_hd118774118796_ (let () (declare (not safe)) - (##car _e118771118789_))) - (_tl118769118794_ + (##car _e118775118793_))) + (_tl118773118798_ (let () (declare (not safe)) - (##cdr _e118771118789_)))) + (##cdr _e118775118793_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118769118794_)) - ((lambda (_L118797_) - (let ((_$e118811_ - (let ((__tmp119849 - (lambda (_sub118809_) - (let ((__tmp119850 - (car _sub118809_))) + (gx#stx-null? _tl118773118798_)) + ((lambda (_L118801_) + (let ((_$e118815_ + (let ((__tmp119853 + (lambda (_sub118813_) + (let ((__tmp119854 + (car _sub118813_))) (declare (not safe)) (gx#free-identifier=? - _L118797_ - __tmp119850)))) - (__tmp119848 + _L118801_ + __tmp119854)))) + (__tmp119852 (let () (declare (not safe)) (slot-ref__0 - _self118760_ + _self118764_ 'subst)))) (declare (not safe)) - (find __tmp119849 - __tmp119848)))) - (if _$e118811_ - ((lambda (_sub118814_) - (let ((__tmp119851 - (let ((__tmp119852 - (let ((__tmp119853 + (find __tmp119853 + __tmp119852)))) + (if _$e118815_ + ((lambda (_sub118818_) + (let ((__tmp119855 + (let ((__tmp119856 + (let ((__tmp119857 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub118814_))) + (cdr _sub118818_))) (declare (not safe)) - (cons __tmp119853 '())))) + (cons __tmp119857 '())))) (declare (not safe)) - (cons '%#ref __tmp119852)))) + (cons '%#ref __tmp119856)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp119851 - _stx118761_))) - _$e118811_) - _stx118761_))) - _hd118770118792_) + __tmp119855 + _stx118765_))) + _$e118815_) + _stx118765_))) + _hd118774118796_) (let () (declare (not safe)) - (_g118763118776_ _g118764118779_))))) + (_g118767118780_ _g118768118783_))))) (let () (declare (not safe)) - (_g118763118776_ _g118764118779_))))) + (_g118767118780_ _g118768118783_))))) (let () (declare (not safe)) - (_g118763118776_ _g118764118779_)))))) + (_g118767118780_ _g118768118783_)))))) (declare (not safe)) - (_g118762118816_ _stx118761_)))) + (_g118766118820_ _stx118765_)))) (define gxc#expression-subst-setq% - (lambda (_self118689_ _stx118690_) - (let* ((_g118692118709_ - (lambda (_g118693118706_) + (lambda (_self118693_ _stx118694_) + (let* ((_g118696118713_ + (lambda (_g118697118710_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118693118706_)))) - (_g118691118757_ - (lambda (_g118693118712_) + _g118697118710_)))) + (_g118695118761_ + (lambda (_g118697118716_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118693118712_)) - (let ((_e118698118714_ + (gx#stx-pair? _g118697118716_)) + (let ((_e118702118718_ (let () (declare (not safe)) - (gx#stx-e _g118693118712_)))) - (let ((_hd118697118717_ + (gx#stx-e _g118697118716_)))) + (let ((_hd118701118721_ (let () (declare (not safe)) - (##car _e118698118714_))) - (_tl118696118719_ + (##car _e118702118718_))) + (_tl118700118723_ (let () (declare (not safe)) - (##cdr _e118698118714_)))) + (##cdr _e118702118718_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118696118719_)) - (let ((_e118701118722_ + (gx#stx-pair? _tl118700118723_)) + (let ((_e118705118726_ (let () (declare (not safe)) - (gx#stx-e _tl118696118719_)))) - (let ((_hd118700118725_ + (gx#stx-e _tl118700118723_)))) + (let ((_hd118704118729_ (let () (declare (not safe)) - (##car _e118701118722_))) - (_tl118699118727_ + (##car _e118705118726_))) + (_tl118703118731_ (let () (declare (not safe)) - (##cdr _e118701118722_)))) + (##cdr _e118705118726_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118699118727_)) - (let ((_e118704118730_ + (gx#stx-pair? _tl118703118731_)) + (let ((_e118708118734_ (let () (declare (not safe)) - (gx#stx-e _tl118699118727_)))) - (let ((_hd118703118733_ + (gx#stx-e _tl118703118731_)))) + (let ((_hd118707118737_ (let () (declare (not safe)) - (##car _e118704118730_))) - (_tl118702118735_ + (##car _e118708118734_))) + (_tl118706118739_ (let () (declare (not safe)) - (##cdr _e118704118730_)))) + (##cdr _e118708118734_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118702118735_)) - ((lambda (_L118738_ _L118739_) - (let ((_new-expr118754_ + _tl118706118739_)) + ((lambda (_L118742_ _L118743_) + (let ((_new-expr118758_ (let () (declare (not safe)) (gxc#compile-e__1 - _self118689_ - _L118738_))) - (_new-xid118755_ - (if (let ((__tmp119854 + _self118693_ + _L118742_))) + (_new-xid118759_ + (if (let ((__tmp119858 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _self118689_ 'id)))) + (slot-ref__0 _self118693_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _L118739_ __tmp119854)) + (gx#free-identifier=? _L118743_ __tmp119858)) (let () (declare (not safe)) - (slot-ref__0 _self118689_ 'new-id)) - _L118739_))) + (slot-ref__0 _self118693_ 'new-id)) + _L118743_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp119855 - (let ((__tmp119856 + (let ((__tmp119859 + (let ((__tmp119860 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp119857 + (let ((__tmp119861 (let () (declare (not safe)) - (cons _new-expr118754_ '())))) + (cons _new-expr118758_ '())))) (declare (not safe)) - (cons _new-xid118755_ __tmp119857)))) + (cons _new-xid118759_ __tmp119861)))) (declare (not safe)) - (cons '%#set! __tmp119856)))) + (cons '%#set! __tmp119860)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp119855 - _stx118690_)))) - _hd118703118733_ - _hd118700118725_) + __tmp119859 + _stx118694_)))) + _hd118707118737_ + _hd118704118729_) (let () (declare (not safe)) - (_g118692118709_ - _g118693118712_))))) + (_g118696118713_ + _g118697118716_))))) (let () (declare (not safe)) - (_g118692118709_ _g118693118712_))))) + (_g118696118713_ _g118697118716_))))) (let () (declare (not safe)) - (_g118692118709_ _g118693118712_))))) + (_g118696118713_ _g118697118716_))))) (let () (declare (not safe)) - (_g118692118709_ _g118693118712_)))))) + (_g118696118713_ _g118697118716_)))))) (declare (not safe)) - (_g118691118757_ _stx118690_)))) + (_g118695118761_ _stx118694_)))) (define gxc#expression-subst*-setq% - (lambda (_self118613_ _stx118614_) - (let* ((_g118616118633_ - (lambda (_g118617118630_) + (lambda (_self118617_ _stx118618_) + (let* ((_g118620118637_ + (lambda (_g118621118634_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118617118630_)))) - (_g118615118686_ - (lambda (_g118617118636_) + _g118621118634_)))) + (_g118619118690_ + (lambda (_g118621118640_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118617118636_)) - (let ((_e118622118638_ + (gx#stx-pair? _g118621118640_)) + (let ((_e118626118642_ (let () (declare (not safe)) - (gx#stx-e _g118617118636_)))) - (let ((_hd118621118641_ + (gx#stx-e _g118621118640_)))) + (let ((_hd118625118645_ (let () (declare (not safe)) - (##car _e118622118638_))) - (_tl118620118643_ + (##car _e118626118642_))) + (_tl118624118647_ (let () (declare (not safe)) - (##cdr _e118622118638_)))) + (##cdr _e118626118642_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118620118643_)) - (let ((_e118625118646_ + (gx#stx-pair? _tl118624118647_)) + (let ((_e118629118650_ (let () (declare (not safe)) - (gx#stx-e _tl118620118643_)))) - (let ((_hd118624118649_ + (gx#stx-e _tl118624118647_)))) + (let ((_hd118628118653_ (let () (declare (not safe)) - (##car _e118625118646_))) - (_tl118623118651_ + (##car _e118629118650_))) + (_tl118627118655_ (let () (declare (not safe)) - (##cdr _e118625118646_)))) + (##cdr _e118629118650_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118623118651_)) - (let ((_e118628118654_ + (gx#stx-pair? _tl118627118655_)) + (let ((_e118632118658_ (let () (declare (not safe)) - (gx#stx-e _tl118623118651_)))) - (let ((_hd118627118657_ + (gx#stx-e _tl118627118655_)))) + (let ((_hd118631118661_ (let () (declare (not safe)) - (##car _e118628118654_))) - (_tl118626118659_ + (##car _e118632118658_))) + (_tl118630118663_ (let () (declare (not safe)) - (##cdr _e118628118654_)))) + (##cdr _e118632118658_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118626118659_)) - ((lambda (_L118662_ _L118663_) - (let ((_new-expr118683_ + _tl118630118663_)) + ((lambda (_L118666_ _L118667_) + (let ((_new-expr118687_ (let () (declare (not safe)) (gxc#compile-e__1 - _self118613_ - _L118662_))) - (_new-xid118684_ - (let ((_$e118680_ - (let ((__tmp119859 + _self118617_ + _L118666_))) + (_new-xid118688_ + (let ((_$e118684_ + (let ((__tmp119863 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub118678_) - (let ((__tmp119860 (car _sub118678_))) + (lambda (_sub118682_) + (let ((__tmp119864 (car _sub118682_))) (declare (not safe)) (gx#free-identifier=? - _L118663_ - __tmp119860)))) - (__tmp119858 + _L118667_ + __tmp119864)))) + (__tmp119862 (let () (declare (not safe)) - (slot-ref__0 _self118613_ 'subst)))) + (slot-ref__0 _self118617_ 'subst)))) (declare (not safe)) - (find __tmp119859 __tmp119858)))) - (if _$e118680_ (cdr _$e118680_) _L118663_)))) + (find __tmp119863 __tmp119862)))) + (if _$e118684_ (cdr _$e118684_) _L118667_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp119861 - (let ((__tmp119862 + (let ((__tmp119865 + (let ((__tmp119866 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp119863 + (let ((__tmp119867 (let () (declare (not safe)) - (cons _new-expr118683_ '())))) + (cons _new-expr118687_ '())))) (declare (not safe)) - (cons _new-xid118684_ __tmp119863)))) + (cons _new-xid118688_ __tmp119867)))) (declare (not safe)) - (cons '%#set! __tmp119862)))) + (cons '%#set! __tmp119866)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp119861 - _stx118614_)))) - _hd118627118657_ - _hd118624118649_) + __tmp119865 + _stx118618_)))) + _hd118631118661_ + _hd118628118653_) (let () (declare (not safe)) - (_g118616118633_ - _g118617118636_))))) + (_g118620118637_ + _g118621118640_))))) (let () (declare (not safe)) - (_g118616118633_ _g118617118636_))))) + (_g118620118637_ _g118621118640_))))) (let () (declare (not safe)) - (_g118616118633_ _g118617118636_))))) + (_g118620118637_ _g118621118640_))))) (let () (declare (not safe)) - (_g118616118633_ _g118617118636_)))))) + (_g118620118637_ _g118621118640_)))))) (declare (not safe)) - (_g118615118686_ _stx118614_)))) + (_g118619118690_ _stx118618_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_self118559_ _stx118560_) - (let* ((_g118562118575_ - (lambda (_g118563118572_) + (lambda (_self118563_ _stx118564_) + (let* ((_g118566118579_ + (lambda (_g118567118576_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118563118572_)))) - (_g118561118610_ - (lambda (_g118563118578_) + _g118567118576_)))) + (_g118565118614_ + (lambda (_g118567118582_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118563118578_)) - (let ((_e118567118580_ + (gx#stx-pair? _g118567118582_)) + (let ((_e118571118584_ (let () (declare (not safe)) - (gx#stx-e _g118563118578_)))) - (let ((_hd118566118583_ + (gx#stx-e _g118567118582_)))) + (let ((_hd118570118587_ (let () (declare (not safe)) - (##car _e118567118580_))) - (_tl118565118585_ + (##car _e118571118584_))) + (_tl118569118589_ (let () (declare (not safe)) - (##cdr _e118567118580_)))) + (##cdr _e118571118584_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118565118585_)) - (let ((_e118570118588_ + (gx#stx-pair? _tl118569118589_)) + (let ((_e118574118592_ (let () (declare (not safe)) - (gx#stx-e _tl118565118585_)))) - (let ((_hd118569118591_ + (gx#stx-e _tl118569118589_)))) + (let ((_hd118573118595_ (let () (declare (not safe)) - (##car _e118570118588_))) - (_tl118568118593_ + (##car _e118574118592_))) + (_tl118572118597_ (let () (declare (not safe)) - (##cdr _e118570118588_)))) + (##cdr _e118574118592_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118568118593_)) - ((lambda (_L118596_) - (let* ((_eid118608_ + (gx#stx-null? _tl118572118597_)) + ((lambda (_L118600_) + (let* ((_eid118612_ (let () (declare (not safe)) (gxc#identifier-symbol - _L118596_))) - (__tmp119864 + _L118600_))) + (__tmp119868 (let () (declare (not safe)) (slot-ref__0 - _self118559_ + _self118563_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp119864 - _eid118608_ + __tmp119868 + _eid118612_ 1+ '0))) - _hd118569118591_) + _hd118573118595_) (let () (declare (not safe)) - (_g118562118575_ _g118563118578_))))) + (_g118566118579_ _g118567118582_))))) (let () (declare (not safe)) - (_g118562118575_ _g118563118578_))))) + (_g118566118579_ _g118567118582_))))) (let () (declare (not safe)) - (_g118562118575_ _g118563118578_)))))) + (_g118566118579_ _g118567118582_)))))) (declare (not safe)) - (_g118561118610_ _stx118560_)))) + (_g118565118614_ _stx118564_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_self118489_ _stx118490_) - (let* ((_g118492118509_ - (lambda (_g118493118506_) + (lambda (_self118493_ _stx118494_) + (let* ((_g118496118513_ + (lambda (_g118497118510_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118493118506_)))) - (_g118491118556_ - (lambda (_g118493118512_) + _g118497118510_)))) + (_g118495118560_ + (lambda (_g118497118516_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118493118512_)) - (let ((_e118498118514_ + (gx#stx-pair? _g118497118516_)) + (let ((_e118502118518_ (let () (declare (not safe)) - (gx#stx-e _g118493118512_)))) - (let ((_hd118497118517_ + (gx#stx-e _g118497118516_)))) + (let ((_hd118501118521_ (let () (declare (not safe)) - (##car _e118498118514_))) - (_tl118496118519_ + (##car _e118502118518_))) + (_tl118500118523_ (let () (declare (not safe)) - (##cdr _e118498118514_)))) + (##cdr _e118502118518_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118496118519_)) - (let ((_e118501118522_ + (gx#stx-pair? _tl118500118523_)) + (let ((_e118505118526_ (let () (declare (not safe)) - (gx#stx-e _tl118496118519_)))) - (let ((_hd118500118525_ + (gx#stx-e _tl118500118523_)))) + (let ((_hd118504118529_ (let () (declare (not safe)) - (##car _e118501118522_))) - (_tl118499118527_ + (##car _e118505118526_))) + (_tl118503118531_ (let () (declare (not safe)) - (##cdr _e118501118522_)))) + (##cdr _e118505118526_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118499118527_)) - (let ((_e118504118530_ + (gx#stx-pair? _tl118503118531_)) + (let ((_e118508118534_ (let () (declare (not safe)) - (gx#stx-e _tl118499118527_)))) - (let ((_hd118503118533_ + (gx#stx-e _tl118503118531_)))) + (let ((_hd118507118537_ (let () (declare (not safe)) - (##car _e118504118530_))) - (_tl118502118535_ + (##car _e118508118534_))) + (_tl118506118539_ (let () (declare (not safe)) - (##cdr _e118504118530_)))) + (##cdr _e118508118534_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118502118535_)) - ((lambda (_L118538_ _L118539_) - (let ((_eid118554_ + _tl118506118539_)) + ((lambda (_L118542_ _L118543_) + (let ((_eid118558_ (let () (declare (not safe)) (gxc#identifier-symbol - _L118539_)))) - (let ((__tmp119865 + _L118543_)))) + (let ((__tmp119869 (let () (declare (not safe)) (slot-ref__0 - _self118489_ + _self118493_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp119865 - _eid118554_ + __tmp119869 + _eid118558_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _self118489_ - _L118538_)))) - _hd118503118533_ - _hd118500118525_) + _self118493_ + _L118542_)))) + _hd118507118537_ + _hd118504118529_) (let () (declare (not safe)) - (_g118492118509_ - _g118493118512_))))) + (_g118496118513_ + _g118497118516_))))) (let () (declare (not safe)) - (_g118492118509_ _g118493118512_))))) + (_g118496118513_ _g118497118516_))))) (let () (declare (not safe)) - (_g118492118509_ _g118493118512_))))) + (_g118496118513_ _g118497118516_))))) (let () (declare (not safe)) - (_g118492118509_ _g118493118512_)))))) + (_g118496118513_ _g118497118516_)))))) (declare (not safe)) - (_g118491118556_ _stx118490_)))) + (_g118495118560_ _stx118494_)))) (define gxc#find-body% - (lambda (_self118402_ _stx118403_) - (let* ((_g118405118424_ - (lambda (_g118406118421_) + (lambda (_self118406_ _stx118407_) + (let* ((_g118409118428_ + (lambda (_g118410118425_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118406118421_)))) - (_g118404118486_ - (lambda (_g118406118427_) + _g118410118425_)))) + (_g118408118490_ + (lambda (_g118410118431_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118406118427_)) - (let ((_e118410118429_ + (gx#stx-pair? _g118410118431_)) + (let ((_e118414118433_ (let () (declare (not safe)) - (gx#stx-e _g118406118427_)))) - (let ((_hd118409118432_ + (gx#stx-e _g118410118431_)))) + (let ((_hd118413118436_ (let () (declare (not safe)) - (##car _e118410118429_))) - (_tl118408118434_ + (##car _e118414118433_))) + (_tl118412118438_ (let () (declare (not safe)) - (##cdr _e118410118429_)))) + (##cdr _e118414118433_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl118408118434_)) - (let ((_g119866_ + (gx#stx-pair/null? _tl118412118438_)) + (let ((_g119870_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl118408118434_ + _tl118412118438_ '0)))) (begin - (let ((_g119867_ + (let ((_g119871_ (let () (declare (not safe)) - (if (##values? _g119866_) - (##vector-length _g119866_) + (if (##values? _g119870_) + (##vector-length _g119870_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g119867_ 2))) + (##fx= _g119871_ 2))) (error "Context expects 2 values" - _g119867_))) - (let ((_target118411118437_ + _g119871_))) + (let ((_target118415118441_ (let () (declare (not safe)) - (##vector-ref _g119866_ 0))) - (_tl118413118439_ + (##vector-ref _g119870_ 0))) + (_tl118417118443_ (let () (declare (not safe)) - (##vector-ref _g119866_ 1)))) + (##vector-ref _g119870_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118413118439_)) - (letrec ((_loop118414118442_ - (lambda (_hd118412118445_ - _expr118418118447_) + (gx#stx-null? _tl118417118443_)) + (letrec ((_loop118418118446_ + (lambda (_hd118416118449_ + _expr118422118451_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118412118445_)) - (let ((_e118415118450_ + _hd118416118449_)) + (let ((_e118419118454_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd118412118445_)))) - (let ((_lp-hd118416118453_ - (let () (declare (not safe)) (##car _e118415118450_))) - (_lp-tl118417118455_ + (gx#stx-e _hd118416118449_)))) + (let ((_lp-hd118420118457_ + (let () (declare (not safe)) (##car _e118419118454_))) + (_lp-tl118421118459_ (let () (declare (not safe)) - (##cdr _e118415118450_)))) - (let ((__tmp119871 + (##cdr _e118419118454_)))) + (let ((__tmp119875 (let () (declare (not safe)) - (cons _lp-hd118416118453_ _expr118418118447_)))) + (cons _lp-hd118420118457_ _expr118422118451_)))) (declare (not safe)) - (_loop118414118442_ _lp-tl118417118455_ __tmp119871)))) - (let ((_expr118419118458_ (reverse _expr118418118447_))) - ((lambda (_L118461_) - (let ((__tmp119870 - (lambda (_g118474118476_) + (_loop118418118446_ _lp-tl118421118459_ __tmp119875)))) + (let ((_expr118423118462_ (reverse _expr118422118451_))) + ((lambda (_L118465_) + (let ((__tmp119874 + (lambda (_g118478118480_) (let () (declare (not safe)) (gxc#compile-e__1 - _self118402_ - _g118474118476_)))) - (__tmp119868 - (let ((__tmp119869 - (lambda (_g118478118481_ _g118479118483_) + _self118406_ + _g118478118480_)))) + (__tmp119872 + (let ((__tmp119873 + (lambda (_g118482118485_ _g118483118487_) (let () (declare (not safe)) - (cons _g118478118481_ - _g118479118483_))))) + (cons _g118482118485_ + _g118483118487_))))) (declare (not safe)) - (foldr1 __tmp119869 '() _L118461_)))) + (foldr1 __tmp119873 '() _L118465_)))) (declare (not safe)) - (ormap1 __tmp119870 __tmp119868))) - _expr118419118458_)))))) + (ormap1 __tmp119874 __tmp119872))) + _expr118423118462_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop118414118442_ - _target118411118437_ + (_loop118418118446_ + _target118415118441_ '()))) (let () (declare (not safe)) - (_g118405118424_ - _g118406118427_)))))) + (_g118409118428_ + _g118410118431_)))))) (let () (declare (not safe)) - (_g118405118424_ _g118406118427_))))) + (_g118409118428_ _g118410118431_))))) (let () (declare (not safe)) - (_g118405118424_ _g118406118427_)))))) + (_g118409118428_ _g118410118431_)))))) (declare (not safe)) - (_g118404118486_ _stx118403_)))) + (_g118408118490_ _stx118407_)))) (define gxc#find-let-values% - (lambda (_self118252_ _stx118253_) - (let* ((_g118255118290_ - (lambda (_g118256118287_) + (lambda (_self118256_ _stx118257_) + (let* ((_g118259118294_ + (lambda (_g118260118291_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118256118287_)))) - (_g118254118399_ - (lambda (_g118256118293_) + _g118260118291_)))) + (_g118258118403_ + (lambda (_g118260118297_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118256118293_)) - (let ((_e118262118295_ + (gx#stx-pair? _g118260118297_)) + (let ((_e118266118299_ (let () (declare (not safe)) - (gx#stx-e _g118256118293_)))) - (let ((_hd118261118298_ + (gx#stx-e _g118260118297_)))) + (let ((_hd118265118302_ (let () (declare (not safe)) - (##car _e118262118295_))) - (_tl118260118300_ + (##car _e118266118299_))) + (_tl118264118304_ (let () (declare (not safe)) - (##cdr _e118262118295_)))) + (##cdr _e118266118299_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118260118300_)) - (let ((_e118265118303_ + (gx#stx-pair? _tl118264118304_)) + (let ((_e118269118307_ (let () (declare (not safe)) - (gx#stx-e _tl118260118300_)))) - (let ((_hd118264118306_ + (gx#stx-e _tl118264118304_)))) + (let ((_hd118268118310_ (let () (declare (not safe)) - (##car _e118265118303_))) - (_tl118263118308_ + (##car _e118269118307_))) + (_tl118267118312_ (let () (declare (not safe)) - (##cdr _e118265118303_)))) + (##cdr _e118269118307_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd118264118306_)) - (let ((_g119872_ + (gx#stx-pair/null? _hd118268118310_)) + (let ((_g119876_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd118264118306_ + _hd118268118310_ '0)))) (begin - (let ((_g119873_ + (let ((_g119877_ (let () (declare (not safe)) - (if (##values? _g119872_) + (if (##values? _g119876_) (##vector-length - _g119872_) + _g119876_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g119873_ 2))) + (##fx= _g119877_ 2))) (error "Context expects 2 values" - _g119873_))) - (let ((_target118266118311_ + _g119877_))) + (let ((_target118270118315_ (let () (declare (not safe)) - (##vector-ref _g119872_ 0))) - (_tl118268118313_ + (##vector-ref _g119876_ 0))) + (_tl118272118317_ (let () (declare (not safe)) (##vector-ref - _g119872_ + _g119876_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118268118313_)) - (letrec ((_loop118269118316_ - (lambda (_hd118267118319_ + _tl118272118317_)) + (letrec ((_loop118273118320_ + (lambda (_hd118271118323_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr118273118321_ - _bind118274118323_) + _expr118277118325_ + _bind118278118327_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118267118319_)) - (let ((_e118270118326_ + (gx#stx-pair? _hd118271118323_)) + (let ((_e118274118330_ (let () (declare (not safe)) - (gx#stx-e _hd118267118319_)))) - (let ((_lp-hd118271118329_ + (gx#stx-e _hd118271118323_)))) + (let ((_lp-hd118275118333_ (let () (declare (not safe)) - (##car _e118270118326_))) - (_lp-tl118272118331_ + (##car _e118274118330_))) + (_lp-tl118276118335_ (let () (declare (not safe)) - (##cdr _e118270118326_)))) + (##cdr _e118274118330_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd118271118329_)) - (let ((_e118279118334_ + (gx#stx-pair? _lp-hd118275118333_)) + (let ((_e118283118338_ (let () (declare (not safe)) - (gx#stx-e _lp-hd118271118329_)))) - (let ((_hd118278118337_ + (gx#stx-e _lp-hd118275118333_)))) + (let ((_hd118282118341_ (let () (declare (not safe)) - (##car _e118279118334_))) - (_tl118277118339_ + (##car _e118283118338_))) + (_tl118281118343_ (let () (declare (not safe)) - (##cdr _e118279118334_)))) + (##cdr _e118283118338_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118277118339_)) - (let ((_e118282118342_ + (gx#stx-pair? _tl118281118343_)) + (let ((_e118286118346_ (let () (declare (not safe)) - (gx#stx-e _tl118277118339_)))) - (let ((_hd118281118345_ + (gx#stx-e _tl118281118343_)))) + (let ((_hd118285118349_ (let () (declare (not safe)) - (##car _e118282118342_))) - (_tl118280118347_ + (##car _e118286118346_))) + (_tl118284118351_ (let () (declare (not safe)) - (##cdr _e118282118342_)))) + (##cdr _e118286118346_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118280118347_)) - (let ((__tmp119878 + _tl118284118351_)) + (let ((__tmp119882 (let () (declare (not safe)) - (cons _hd118281118345_ - _expr118273118321_))) - (__tmp119877 + (cons _hd118285118349_ + _expr118277118325_))) + (__tmp119881 (let () (declare (not safe)) - (cons _hd118278118337_ - _bind118274118323_)))) + (cons _hd118282118341_ + _bind118278118327_)))) (declare (not safe)) - (_loop118269118316_ - _lp-tl118272118331_ - __tmp119878 - __tmp119877)) + (_loop118273118320_ + _lp-tl118276118335_ + __tmp119882 + __tmp119881)) (let () (declare (not safe)) - (_g118255118290_ - _g118256118293_))))) + (_g118259118294_ + _g118260118297_))))) (let () (declare (not safe)) - (_g118255118290_ _g118256118293_))))) + (_g118259118294_ _g118260118297_))))) (let () (declare (not safe)) - (_g118255118290_ _g118256118293_))))) - (let ((_expr118275118350_ (reverse _expr118273118321_)) - (_bind118276118352_ - (reverse _bind118274118323_))) + (_g118259118294_ _g118260118297_))))) + (let ((_expr118279118354_ (reverse _expr118277118325_)) + (_bind118280118356_ + (reverse _bind118278118327_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118263118308_)) - (let ((_e118285118355_ + (gx#stx-pair? _tl118267118312_)) + (let ((_e118289118359_ (let () (declare (not safe)) - (gx#stx-e _tl118263118308_)))) - (let ((_hd118284118358_ + (gx#stx-e _tl118267118312_)))) + (let ((_hd118288118362_ (let () (declare (not safe)) - (##car _e118285118355_))) - (_tl118283118360_ + (##car _e118289118359_))) + (_tl118287118364_ (let () (declare (not safe)) - (##cdr _e118285118355_)))) + (##cdr _e118289118359_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118283118360_)) - ((lambda (_L118363_ _L118364_ _L118365_) - (let ((_$e118396_ - (let ((__tmp119876 - (lambda (_g118384118386_) + (gx#stx-null? _tl118287118364_)) + ((lambda (_L118367_ _L118368_ _L118369_) + (let ((_$e118400_ + (let ((__tmp119880 + (lambda (_g118388118390_) (let () (declare (not safe)) (gxc#compile-e__1 - _self118252_ - _g118384118386_)))) - (__tmp119874 - (let ((__tmp119875 - (lambda (_g118388118391_ + _self118256_ + _g118388118390_)))) + (__tmp119878 + (let ((__tmp119879 + (lambda (_g118392118395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g118389118393_) + _g118393118397_) (let () (declare (not safe)) - (cons _g118388118391_ _g118389118393_))))) + (cons _g118392118395_ _g118393118397_))))) (declare (not safe)) - (foldr1 __tmp119875 '() _L118364_)))) + (foldr1 __tmp119879 '() _L118368_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp119876 - __tmp119874)))) - (if _$e118396_ - _$e118396_ + (ormap1 __tmp119880 + __tmp119878)))) + (if _$e118400_ + _$e118400_ (let () (declare (not safe)) (gxc#compile-e__1 - _self118252_ - _L118363_))))) - _hd118284118358_ - _expr118275118350_ - _bind118276118352_) + _self118256_ + _L118367_))))) + _hd118288118362_ + _expr118279118354_ + _bind118280118356_) (let () (declare (not safe)) - (_g118255118290_ _g118256118293_))))) + (_g118259118294_ _g118260118297_))))) (let () (declare (not safe)) - (_g118255118290_ _g118256118293_)))))))) + (_g118259118294_ _g118260118297_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop118269118316_ - _target118266118311_ + (_loop118273118320_ + _target118270118315_ '() '()))) (let () (declare (not safe)) - (_g118255118290_ - _g118256118293_)))))) + (_g118259118294_ + _g118260118297_)))))) (let () (declare (not safe)) - (_g118255118290_ _g118256118293_))))) + (_g118259118294_ _g118260118297_))))) (let () (declare (not safe)) - (_g118255118290_ _g118256118293_))))) + (_g118259118294_ _g118260118297_))))) (let () (declare (not safe)) - (_g118255118290_ _g118256118293_)))))) + (_g118259118294_ _g118260118297_)))))) (declare (not safe)) - (_g118254118399_ _stx118253_)))) + (_g118258118403_ _stx118257_)))) (define gxc#find-var-refs-ref% - (lambda (_self118196_ _stx118197_) - (let* ((_g118199118212_ - (lambda (_g118200118209_) + (lambda (_self118200_ _stx118201_) + (let* ((_g118203118216_ + (lambda (_g118204118213_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118200118209_)))) - (_g118198118249_ - (lambda (_g118200118215_) + _g118204118213_)))) + (_g118202118253_ + (lambda (_g118204118219_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118200118215_)) - (let ((_e118204118217_ + (gx#stx-pair? _g118204118219_)) + (let ((_e118208118221_ (let () (declare (not safe)) - (gx#stx-e _g118200118215_)))) - (let ((_hd118203118220_ + (gx#stx-e _g118204118219_)))) + (let ((_hd118207118224_ (let () (declare (not safe)) - (##car _e118204118217_))) - (_tl118202118222_ + (##car _e118208118221_))) + (_tl118206118226_ (let () (declare (not safe)) - (##cdr _e118204118217_)))) + (##cdr _e118208118221_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118202118222_)) - (let ((_e118207118225_ + (gx#stx-pair? _tl118206118226_)) + (let ((_e118211118229_ (let () (declare (not safe)) - (gx#stx-e _tl118202118222_)))) - (let ((_hd118206118228_ + (gx#stx-e _tl118206118226_)))) + (let ((_hd118210118232_ (let () (declare (not safe)) - (##car _e118207118225_))) - (_tl118205118230_ + (##car _e118211118229_))) + (_tl118209118234_ (let () (declare (not safe)) - (##cdr _e118207118225_)))) + (##cdr _e118211118229_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118205118230_)) - ((lambda (_L118233_) - (let ((__tmp119880 - (lambda (_g118244118246_) + (gx#stx-null? _tl118209118234_)) + ((lambda (_L118237_) + (let ((__tmp119884 + (lambda (_g118248118250_) (let () (declare (not safe)) (gx#free-identifier=? - _L118233_ - _g118244118246_)))) - (__tmp119879 + _L118237_ + _g118248118250_)))) + (__tmp119883 (let () (declare (not safe)) (slot-ref__0 - _self118196_ + _self118200_ 'ids)))) (declare (not safe)) - (find __tmp119880 __tmp119879))) - _hd118206118228_) + (find __tmp119884 __tmp119883))) + _hd118210118232_) (let () (declare (not safe)) - (_g118199118212_ _g118200118215_))))) + (_g118203118216_ _g118204118219_))))) (let () (declare (not safe)) - (_g118199118212_ _g118200118215_))))) + (_g118203118216_ _g118204118219_))))) (let () (declare (not safe)) - (_g118199118212_ _g118200118215_)))))) + (_g118203118216_ _g118204118219_)))))) (declare (not safe)) - (_g118198118249_ _stx118197_)))) + (_g118202118253_ _stx118201_)))) (define gxc#find-var-refs-setq% - (lambda (_self118121_ _stx118122_) - (let* ((_g118124118141_ - (lambda (_g118125118138_) + (lambda (_self118125_ _stx118126_) + (let* ((_g118128118145_ + (lambda (_g118129118142_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118125118138_)))) - (_g118123118193_ - (lambda (_g118125118144_) + _g118129118142_)))) + (_g118127118197_ + (lambda (_g118129118148_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118125118144_)) - (let ((_e118130118146_ + (gx#stx-pair? _g118129118148_)) + (let ((_e118134118150_ (let () (declare (not safe)) - (gx#stx-e _g118125118144_)))) - (let ((_hd118129118149_ + (gx#stx-e _g118129118148_)))) + (let ((_hd118133118153_ (let () (declare (not safe)) - (##car _e118130118146_))) - (_tl118128118151_ + (##car _e118134118150_))) + (_tl118132118155_ (let () (declare (not safe)) - (##cdr _e118130118146_)))) + (##cdr _e118134118150_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118128118151_)) - (let ((_e118133118154_ + (gx#stx-pair? _tl118132118155_)) + (let ((_e118137118158_ (let () (declare (not safe)) - (gx#stx-e _tl118128118151_)))) - (let ((_hd118132118157_ + (gx#stx-e _tl118132118155_)))) + (let ((_hd118136118161_ (let () (declare (not safe)) - (##car _e118133118154_))) - (_tl118131118159_ + (##car _e118137118158_))) + (_tl118135118163_ (let () (declare (not safe)) - (##cdr _e118133118154_)))) + (##cdr _e118137118158_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118131118159_)) - (let ((_e118136118162_ + (gx#stx-pair? _tl118135118163_)) + (let ((_e118140118166_ (let () (declare (not safe)) - (gx#stx-e _tl118131118159_)))) - (let ((_hd118135118165_ + (gx#stx-e _tl118135118163_)))) + (let ((_hd118139118169_ (let () (declare (not safe)) - (##car _e118136118162_))) - (_tl118134118167_ + (##car _e118140118166_))) + (_tl118138118171_ (let () (declare (not safe)) - (##cdr _e118136118162_)))) + (##cdr _e118140118166_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118134118167_)) - ((lambda (_L118170_ _L118171_) - (let ((_$e118190_ - (let ((__tmp119882 - (lambda (_g118185118187_) + _tl118138118171_)) + ((lambda (_L118174_ _L118175_) + (let ((_$e118194_ + (let ((__tmp119886 + (lambda (_g118189118191_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L118171_ _g118185118187_)))) - (__tmp119881 + (gx#free-identifier=? _L118175_ _g118189118191_)))) + (__tmp119885 (let () (declare (not safe)) - (slot-ref__0 _self118121_ 'ids)))) + (slot-ref__0 _self118125_ 'ids)))) (declare (not safe)) - (find __tmp119882 __tmp119881)))) + (find __tmp119886 __tmp119885)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e118190_ - _$e118190_ + (if _$e118194_ + _$e118194_ (let () (declare (not safe)) (gxc#compile-e__1 - _self118121_ - _L118170_))))) - _hd118135118165_ - _hd118132118157_) + _self118125_ + _L118174_))))) + _hd118139118169_ + _hd118136118161_) (let () (declare (not safe)) - (_g118124118141_ - _g118125118144_))))) + (_g118128118145_ + _g118129118148_))))) (let () (declare (not safe)) - (_g118124118141_ _g118125118144_))))) + (_g118128118145_ _g118129118148_))))) (let () (declare (not safe)) - (_g118124118141_ _g118125118144_))))) + (_g118128118145_ _g118129118148_))))) (let () (declare (not safe)) - (_g118124118141_ _g118125118144_)))))) + (_g118128118145_ _g118129118148_)))))) (declare (not safe)) - (_g118123118193_ _stx118122_)))))) + (_g118127118197_ _stx118126_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index 174bd0817..ab3c42920 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm @@ -1,321 +1,321 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g119885_| + (define |gxc[1]#_g119889_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119887_| + (define |gxc[1]#_g119891_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119889_| + (define |gxc[1]#_g119893_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119891_| + (define |gxc[1]#_g119895_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119895_| + (define |gxc[1]#_g119899_| (##structure gx#syntax-quote::t '::collect-methods::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119897_| + (define |gxc[1]#_g119901_| (##structure gx#syntax-quote::t 'make-::collect-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119899_| + (define |gxc[1]#_g119903_| (##structure gx#syntax-quote::t '::collect-methods? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119902_| + (define |gxc[1]#_g119906_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119904_| + (define |gxc[1]#_g119908_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119906_| + (define |gxc[1]#_g119910_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119908_| + (define |gxc[1]#_g119912_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119913_| + (define |gxc[1]#_g119917_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119916_| + (define |gxc[1]#_g119920_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119921_| + (define |gxc[1]#_g119925_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119924_| + (define |gxc[1]#_g119928_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119929_| + (define |gxc[1]#_g119933_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119932_| + (define |gxc[1]#_g119936_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119937_| + (define |gxc[1]#_g119941_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119940_| + (define |gxc[1]#_g119944_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119944_| + (define |gxc[1]#_g119948_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119946_| + (define |gxc[1]#_g119950_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119948_| + (define |gxc[1]#_g119952_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119952_| + (define |gxc[1]#_g119956_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119956_| + (define |gxc[1]#_g119960_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119960_| + (define |gxc[1]#_g119964_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119964_| + (define |gxc[1]#_g119968_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119967_| + (define |gxc[1]#_g119971_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119969_| + (define |gxc[1]#_g119973_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119971_| + (define |gxc[1]#_g119975_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119973_| + (define |gxc[1]#_g119977_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119976_| + (define |gxc[1]#_g119980_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119978_| + (define |gxc[1]#_g119982_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119980_| + (define |gxc[1]#_g119984_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119982_| + (define |gxc[1]#_g119986_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119986_| + (define |gxc[1]#_g119990_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119990_| + (define |gxc[1]#_g119994_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119994_| + (define |gxc[1]#_g119998_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119998_| + (define |gxc[1]#_g120002_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120001_| + (define |gxc[1]#_g120005_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120003_| + (define |gxc[1]#_g120007_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120005_| + (define |gxc[1]#_g120009_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120007_| + (define |gxc[1]#_g120011_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120011_| + (define |gxc[1]#_g120015_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120015_| + (define |gxc[1]#_g120019_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120019_| + (define |gxc[1]#_g120023_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120023_| + (define |gxc[1]#_g120027_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -324,7 +324,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj119798 + (let ((__obj119802 (let () (declare (not safe)) (##structure @@ -348,7 +348,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 'gxc#::collect-mutators::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -356,7 +356,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '::collect-mutators '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -364,26 +364,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119883 - (let ((__tmp119884 |gxc[1]#_g119885_|)) + (let ((__tmp119887 + (let ((__tmp119888 |gxc[1]#_g119889_|)) (declare (not safe)) - (cons __tmp119884 '())))) + (cons __tmp119888 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119798 - __tmp119883 + __obj119802 + __tmp119887 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -391,7 +391,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -399,7 +399,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -407,39 +407,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119886 |gxc[1]#_g119887_|)) + (let ((__tmp119890 |gxc[1]#_g119891_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119798 - __tmp119886 + __obj119802 + __tmp119890 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119888 |gxc[1]#_g119889_|)) + (let ((__tmp119892 |gxc[1]#_g119893_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119798 - __tmp119888 + __obj119802 + __tmp119892 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119890 |gxc[1]#_g119891_|)) + (let ((__tmp119894 |gxc[1]#_g119895_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119798 - __tmp119890 + __obj119802 + __tmp119894 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -447,7 +447,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -455,7 +455,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -463,14 +463,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119798 + __obj119802 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119798)) + __obj119802)) (define |gxc[:0:]#::collect-methods| - (let ((__obj119800 + (let ((__obj119804 (let () (declare (not safe)) (##structure @@ -494,7 +494,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 'gxc#::collect-methods::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -502,7 +502,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '::collect-methods '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -510,26 +510,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119892 - (let ((__tmp119893 |gxc[1]#_g119885_|)) + (let ((__tmp119896 + (let ((__tmp119897 |gxc[1]#_g119889_|)) (declare (not safe)) - (cons __tmp119893 '())))) + (cons __tmp119897 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119800 - __tmp119892 + __obj119804 + __tmp119896 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -553,39 +553,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119894 |gxc[1]#_g119895_|)) + (let ((__tmp119898 |gxc[1]#_g119899_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119800 - __tmp119894 + __obj119804 + __tmp119898 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119896 |gxc[1]#_g119897_|)) + (let ((__tmp119900 |gxc[1]#_g119901_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119800 - __tmp119896 + __obj119804 + __tmp119900 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119898 |gxc[1]#_g119899_|)) + (let ((__tmp119902 |gxc[1]#_g119903_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119800 - __tmp119898 + __obj119804 + __tmp119902 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -593,7 +593,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -601,7 +601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -609,14 +609,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119800 + __obj119804 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119800)) + __obj119804)) (define |gxc[:0:]#::expression-subst| - (let ((__obj119802 + (let ((__obj119806 (let () (declare (not safe)) (##structure @@ -640,7 +640,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119806 'gxc#::expression-subst::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -648,7 +648,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119806 '::expression-subst '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -656,26 +656,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119806 '(id new-id) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119900 - (let ((__tmp119901 |gxc[1]#_g119902_|)) + (let ((__tmp119904 + (let ((__tmp119905 |gxc[1]#_g119906_|)) (declare (not safe)) - (cons __tmp119901 '())))) + (cons __tmp119905 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119900 + __obj119806 + __tmp119904 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119806 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -683,7 +683,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119806 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -691,7 +691,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119806 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -699,122 +699,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119806 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119903 |gxc[1]#_g119904_|)) + (let ((__tmp119907 |gxc[1]#_g119908_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119903 + __obj119806 + __tmp119907 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119905 |gxc[1]#_g119906_|)) + (let ((__tmp119909 |gxc[1]#_g119910_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119905 + __obj119806 + __tmp119909 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119907 |gxc[1]#_g119908_|)) + (let ((__tmp119911 |gxc[1]#_g119912_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119907 + __obj119806 + __tmp119911 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119909 - (let ((__tmp119914 - (let ((__tmp119915 |gxc[1]#_g119916_|)) + (let ((__tmp119913 + (let ((__tmp119918 + (let ((__tmp119919 |gxc[1]#_g119920_|)) (declare (not safe)) - (cons 'id __tmp119915))) - (__tmp119910 - (let ((__tmp119911 - (let ((__tmp119912 |gxc[1]#_g119913_|)) + (cons 'id __tmp119919))) + (__tmp119914 + (let ((__tmp119915 + (let ((__tmp119916 |gxc[1]#_g119917_|)) (declare (not safe)) - (cons 'new-id __tmp119912)))) + (cons 'new-id __tmp119916)))) (declare (not safe)) - (cons __tmp119911 '())))) + (cons __tmp119915 '())))) (declare (not safe)) - (cons __tmp119914 __tmp119910)))) + (cons __tmp119918 __tmp119914)))) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119909 + __obj119806 + __tmp119913 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119917 - (let ((__tmp119922 - (let ((__tmp119923 |gxc[1]#_g119924_|)) + (let ((__tmp119921 + (let ((__tmp119926 + (let ((__tmp119927 |gxc[1]#_g119928_|)) (declare (not safe)) - (cons 'id __tmp119923))) - (__tmp119918 - (let ((__tmp119919 - (let ((__tmp119920 |gxc[1]#_g119921_|)) + (cons 'id __tmp119927))) + (__tmp119922 + (let ((__tmp119923 + (let ((__tmp119924 |gxc[1]#_g119925_|)) (declare (not safe)) - (cons 'new-id __tmp119920)))) + (cons 'new-id __tmp119924)))) (declare (not safe)) - (cons __tmp119919 '())))) + (cons __tmp119923 '())))) (declare (not safe)) - (cons __tmp119922 __tmp119918)))) + (cons __tmp119926 __tmp119922)))) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119917 + __obj119806 + __tmp119921 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119925 - (let ((__tmp119930 - (let ((__tmp119931 |gxc[1]#_g119932_|)) + (let ((__tmp119929 + (let ((__tmp119934 + (let ((__tmp119935 |gxc[1]#_g119936_|)) (declare (not safe)) - (cons 'id __tmp119931))) - (__tmp119926 - (let ((__tmp119927 - (let ((__tmp119928 |gxc[1]#_g119929_|)) + (cons 'id __tmp119935))) + (__tmp119930 + (let ((__tmp119931 + (let ((__tmp119932 |gxc[1]#_g119933_|)) (declare (not safe)) - (cons 'new-id __tmp119928)))) + (cons 'new-id __tmp119932)))) (declare (not safe)) - (cons __tmp119927 '())))) + (cons __tmp119931 '())))) (declare (not safe)) - (cons __tmp119930 __tmp119926)))) + (cons __tmp119934 __tmp119930)))) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119925 + __obj119806 + __tmp119929 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119933 - (let ((__tmp119938 - (let ((__tmp119939 |gxc[1]#_g119940_|)) + (let ((__tmp119937 + (let ((__tmp119942 + (let ((__tmp119943 |gxc[1]#_g119944_|)) (declare (not safe)) - (cons 'id __tmp119939))) - (__tmp119934 - (let ((__tmp119935 - (let ((__tmp119936 |gxc[1]#_g119937_|)) + (cons 'id __tmp119943))) + (__tmp119938 + (let ((__tmp119939 + (let ((__tmp119940 |gxc[1]#_g119941_|)) (declare (not safe)) - (cons 'new-id __tmp119936)))) + (cons 'new-id __tmp119940)))) (declare (not safe)) - (cons __tmp119935 '())))) + (cons __tmp119939 '())))) (declare (not safe)) - (cons __tmp119938 __tmp119934)))) + (cons __tmp119942 __tmp119938)))) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119933 + __obj119806 + __tmp119937 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119802)) + __obj119806)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj119804 + (let ((__obj119808 (let () (declare (not safe)) (##structure @@ -838,7 +838,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 'gxc#::expression-subst*::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -846,7 +846,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 '::expression-subst* '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -854,26 +854,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 '(subst) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119941 - (let ((__tmp119942 |gxc[1]#_g119902_|)) + (let ((__tmp119945 + (let ((__tmp119946 |gxc[1]#_g119906_|)) (declare (not safe)) - (cons __tmp119942 '())))) + (cons __tmp119946 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119804 - __tmp119941 + __obj119808 + __tmp119945 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -881,7 +881,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -889,7 +889,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -897,49 +897,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119943 |gxc[1]#_g119944_|)) + (let ((__tmp119947 |gxc[1]#_g119948_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119804 - __tmp119943 + __obj119808 + __tmp119947 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119945 |gxc[1]#_g119946_|)) + (let ((__tmp119949 |gxc[1]#_g119950_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119804 - __tmp119945 + __obj119808 + __tmp119949 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119947 |gxc[1]#_g119948_|)) + (let ((__tmp119951 |gxc[1]#_g119952_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119804 - __tmp119947 + __obj119808 + __tmp119951 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119949 - (let ((__tmp119950 - (let ((__tmp119951 |gxc[1]#_g119952_|)) - (declare (not safe)) - (cons 'subst __tmp119951)))) - (declare (not safe)) - (cons __tmp119950 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj119804 - __tmp119949 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp119953 (let ((__tmp119954 (let ((__tmp119955 |gxc[1]#_g119956_|)) @@ -949,9 +935,9 @@ (cons __tmp119954 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 __tmp119953 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp119957 @@ -963,9 +949,9 @@ (cons __tmp119958 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 __tmp119957 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp119961 @@ -977,14 +963,28 @@ (cons __tmp119962 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119808 __tmp119961 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp119965 + (let ((__tmp119966 + (let ((__tmp119967 |gxc[1]#_g119968_|)) + (declare (not safe)) + (cons 'subst __tmp119967)))) + (declare (not safe)) + (cons __tmp119966 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj119808 + __tmp119965 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119804)) + __obj119808)) (define |gxc[:0:]#::find-expression| - (let ((__obj119806 + (let ((__obj119810 (let () (declare (not safe)) (##structure @@ -1008,7 +1008,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 'gxc#::find-expression::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1016,7 +1016,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '::find-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1024,26 +1024,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119965 - (let ((__tmp119966 |gxc[1]#_g119967_|)) + (let ((__tmp119969 + (let ((__tmp119970 |gxc[1]#_g119971_|)) (declare (not safe)) - (cons __tmp119966 '())))) + (cons __tmp119970 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119965 + __obj119810 + __tmp119969 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1051,7 +1051,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1059,7 +1059,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1067,39 +1067,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119968 |gxc[1]#_g119969_|)) + (let ((__tmp119972 |gxc[1]#_g119973_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119968 + __obj119810 + __tmp119972 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119970 |gxc[1]#_g119971_|)) + (let ((__tmp119974 |gxc[1]#_g119975_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119970 + __obj119810 + __tmp119974 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119972 |gxc[1]#_g119973_|)) + (let ((__tmp119976 |gxc[1]#_g119977_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119972 + __obj119810 + __tmp119976 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1107,7 +1107,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1115,7 +1115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1123,14 +1123,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119810 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119806)) + __obj119810)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj119807 + (let ((__obj119811 (let () (declare (not safe)) (##structure @@ -1154,7 +1154,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 'gxc#::find-var-refs::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1162,7 +1162,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 '::find-var-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1170,26 +1170,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 '(ids) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119974 - (let ((__tmp119975 |gxc[1]#_g119976_|)) + (let ((__tmp119978 + (let ((__tmp119979 |gxc[1]#_g119980_|)) (declare (not safe)) - (cons __tmp119975 '())))) + (cons __tmp119979 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119807 - __tmp119974 + __obj119811 + __tmp119978 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1197,7 +1197,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1205,7 +1205,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1213,49 +1213,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119977 |gxc[1]#_g119978_|)) + (let ((__tmp119981 |gxc[1]#_g119982_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119807 - __tmp119977 + __obj119811 + __tmp119981 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119979 |gxc[1]#_g119980_|)) + (let ((__tmp119983 |gxc[1]#_g119984_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119807 - __tmp119979 + __obj119811 + __tmp119983 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119981 |gxc[1]#_g119982_|)) + (let ((__tmp119985 |gxc[1]#_g119986_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119807 - __tmp119981 + __obj119811 + __tmp119985 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119983 - (let ((__tmp119984 - (let ((__tmp119985 |gxc[1]#_g119986_|)) - (declare (not safe)) - (cons 'ids __tmp119985)))) - (declare (not safe)) - (cons __tmp119984 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj119807 - __tmp119983 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp119987 (let ((__tmp119988 (let ((__tmp119989 |gxc[1]#_g119990_|)) @@ -1265,9 +1251,9 @@ (cons __tmp119988 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 __tmp119987 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp119991 @@ -1279,9 +1265,9 @@ (cons __tmp119992 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 __tmp119991 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp119995 @@ -1293,14 +1279,28 @@ (cons __tmp119996 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119807 + __obj119811 __tmp119995 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp119999 + (let ((__tmp120000 + (let ((__tmp120001 |gxc[1]#_g120002_|)) + (declare (not safe)) + (cons 'ids __tmp120001)))) + (declare (not safe)) + (cons __tmp120000 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj119811 + __tmp119999 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119807)) + __obj119811)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj119809 + (let ((__obj119813 (let () (declare (not safe)) (##structure @@ -1324,7 +1324,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 'gxc#::collect-runtime-refs::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1332,7 +1332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 '::collect-runtime-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1340,26 +1340,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119999 - (let ((__tmp120000 |gxc[1]#_g120001_|)) + (let ((__tmp120003 + (let ((__tmp120004 |gxc[1]#_g120005_|)) (declare (not safe)) - (cons __tmp120000 '())))) + (cons __tmp120004 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119809 - __tmp119999 + __obj119813 + __tmp120003 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1367,7 +1367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1375,7 +1375,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1383,49 +1383,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120002 |gxc[1]#_g120003_|)) + (let ((__tmp120006 |gxc[1]#_g120007_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119809 - __tmp120002 + __obj119813 + __tmp120006 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120004 |gxc[1]#_g120005_|)) + (let ((__tmp120008 |gxc[1]#_g120009_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119809 - __tmp120004 + __obj119813 + __tmp120008 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120006 |gxc[1]#_g120007_|)) + (let ((__tmp120010 |gxc[1]#_g120011_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119809 - __tmp120006 + __obj119813 + __tmp120010 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120008 - (let ((__tmp120009 - (let ((__tmp120010 |gxc[1]#_g120011_|)) - (declare (not safe)) - (cons 'table __tmp120010)))) - (declare (not safe)) - (cons __tmp120009 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj119809 - __tmp120008 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp120012 (let ((__tmp120013 (let ((__tmp120014 |gxc[1]#_g120015_|)) @@ -1435,9 +1421,9 @@ (cons __tmp120013 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 __tmp120012 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp120016 @@ -1449,9 +1435,9 @@ (cons __tmp120017 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 __tmp120016 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp120020 @@ -1463,9 +1449,23 @@ (cons __tmp120021 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119809 + __obj119813 __tmp120020 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp120024 + (let ((__tmp120025 + (let ((__tmp120026 |gxc[1]#_g120027_|)) + (declare (not safe)) + (cons 'table __tmp120026)))) + (declare (not safe)) + (cons __tmp120025 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj119813 + __tmp120024 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119809)))) + __obj119813)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index ea731d49c..c455d5d88 100644 --- a/src/bootstrap/gerbil/compiler/optimize~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize~0.scm @@ -1,96 +1,96 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1710781154) + (define gerbil/compiler/optimize::timestamp 1710833429) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj158754 + (let ((__obj158758 (let () (declare (not safe)) (##structure gxc#optimizer-info::t '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj158754) - __obj158754))))) + (gxc#optimizer-info:::init! __obj158758) + __obj158758))))) (define gxc#optimize! - (lambda (_ctx158447_) - (let ((__tmp158760 + (lambda (_ctx158451_) + (let ((__tmp158764 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx158447_)) + (gxc#optimizer-load-ssxi-deps _ctx158451_)) (let () (declare (not safe)) - (gxc#optimizer-load-builtin-ssxi _ctx158447_)) - (let ((__tmp158762 + (gxc#optimizer-load-builtin-ssxi _ctx158451_)) + (let ((__tmp158766 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp158761 + (__tmp158765 (##structure-ref - _ctx158447_ + _ctx158451_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp158762 __tmp158761 '#t)) - (let ((_code158450_ - (let ((__tmp158763 + (hash-put! __tmp158766 __tmp158765 '#t)) + (let ((_code158454_ + (let ((__tmp158767 (##structure-ref - _ctx158447_ + _ctx158451_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp158763)))) + (gxc#optimize-source __tmp158767)))) (##structure-set! - _ctx158447_ - _code158450_ + _ctx158451_ + _code158454_ '11 gx#module-context::t '#f)))) - (__tmp158759 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158758 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp158763 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp158762 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters - __tmp158760 + __tmp158764 gxc#current-compile-mutators - __tmp158759 + __tmp158763 gxc#current-compile-local-type - __tmp158758)))) + __tmp158762)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_ctx158436_) - (letrec ((_load-it!158438_ - (lambda (_id158445_) - (if (let ((__tmp158765 + (lambda (_ctx158440_) + (letrec ((_load-it!158442_ + (lambda (_id158449_) + (if (let ((__tmp158769 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp158765 _id158445_)) + (hash-get __tmp158769 _id158449_)) '#!void (begin (let () (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id _id158445_)) - (let ((__tmp158764 + (gxc#optimizer-import-ssxi-by-id _id158449_)) + (let ((__tmp158768 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp158764 _id158445_ '#t))))))) - (let* ((_modid158440_ - (##structure-ref _ctx158436_ '1 gx#expander-context::t '#f)) - (_modid-str158442_ (symbol->string _modid158440_))) + (hash-put! __tmp158768 _id158449_ '#t))))))) + (let* ((_modid158444_ + (##structure-ref _ctx158440_ '1 gx#expander-context::t '#f)) + (_modid-str158446_ (symbol->string _modid158444_))) (for-each - _load-it!158438_ + _load-it!158442_ '(gerbil/runtime/gambit gerbil/runtime/util gerbil/runtime/table @@ -111,344 +111,344 @@ gerbil/runtime gerbil/builtin)))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx158381_) - (letrec* ((_deps158383_ - (let* ((_imports158427_ + (lambda (_ctx158385_) + (letrec* ((_deps158387_ + (let* ((_imports158431_ (##structure-ref - _ctx158381_ + _ctx158385_ '8 gx#module-context::t '#f)) - (_$e158429_ + (_$e158433_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx158381_)))) - (if _$e158429_ - ((lambda (_g158431158433_) + (gx#core-context-prelude__% _ctx158385_)))) + (if _$e158433_ + ((lambda (_g158435158437_) (let () (declare (not safe)) - (cons _g158431158433_ _imports158427_))) - _$e158429_) - _imports158427_)))) - (let _lp158385_ ((_rest158387_ _deps158383_)) - (let* ((_rest158388158396_ _rest158387_) - (_else158390158404_ (lambda () '#!void)) - (_K158392158415_ - (lambda (_rest158407_ _hd158408_) + (cons _g158435158437_ _imports158431_))) + _$e158433_) + _imports158431_)))) + (let _lp158389_ ((_rest158391_ _deps158387_)) + (let* ((_rest158392158400_ _rest158391_) + (_else158394158408_ (lambda () '#!void)) + (_K158396158419_ + (lambda (_rest158411_ _hd158412_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd158408_ + _hd158412_ 'gx#module-context::t)) (begin - (if (let ((__tmp158779 + (if (let ((__tmp158783 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp158778 + (__tmp158782 (##structure-ref - _hd158408_ + _hd158412_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp158779 __tmp158778)) + (hash-get __tmp158783 __tmp158782)) '#!void (begin - (let ((_$e158410_ + (let ((_$e158414_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd158408_)))) - (if _$e158410_ - ((lambda (_pre158413_) - (let ((__tmp158776 - (let ((__tmp158777 + _hd158412_)))) + (if _$e158414_ + ((lambda (_pre158417_) + (let ((__tmp158780 + (let ((__tmp158781 (##structure-ref - _hd158408_ + _hd158412_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre158413_ - __tmp158777)))) + (cons _pre158417_ + __tmp158781)))) (declare (not safe)) - (_lp158385_ __tmp158776))) - _$e158410_) - (let ((__tmp158775 + (_lp158389_ __tmp158780))) + _$e158414_) + (let ((__tmp158779 (##structure-ref - _hd158408_ + _hd158412_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp158385_ __tmp158775)))) + (_lp158389_ __tmp158779)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd158408_)))) + (gxc#optimizer-load-ssxi _hd158412_)))) (let () (declare (not safe)) - (_lp158385_ _rest158407_))) + (_lp158389_ _rest158411_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd158408_ + _hd158412_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp158774 + (if (let ((__tmp158778 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp158773 + (__tmp158777 (##structure-ref - _hd158408_ + _hd158412_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp158774 __tmp158773)) + (hash-get __tmp158778 __tmp158777)) '#!void (begin - (let ((__tmp158772 + (let ((__tmp158776 (##structure-ref - _hd158408_ + _hd158412_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp158385_ __tmp158772)) + (_lp158389_ __tmp158776)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd158408_)))) + (gxc#optimizer-load-ssxi _hd158412_)))) (let () (declare (not safe)) - (_lp158385_ _rest158407_))) + (_lp158389_ _rest158411_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd158408_ + _hd158412_ 'gx#module-import::t)) - (let ((__tmp158770 - (let ((__tmp158771 + (let ((__tmp158774 + (let ((__tmp158775 (##direct-structure-ref - _hd158408_ + _hd158412_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp158771 _rest158407_)))) + (cons __tmp158775 _rest158411_)))) (declare (not safe)) - (_lp158385_ __tmp158770)) + (_lp158389_ __tmp158774)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd158408_ + _hd158412_ 'gx#module-export::t)) - (let ((__tmp158768 - (let ((__tmp158769 + (let ((__tmp158772 + (let ((__tmp158773 (##direct-structure-ref - _hd158408_ + _hd158412_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp158769 - _rest158407_)))) + (cons __tmp158773 + _rest158411_)))) (declare (not safe)) - (_lp158385_ __tmp158768)) + (_lp158389_ __tmp158772)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd158408_ + _hd158412_ 'gx#import-set::t)) - (let ((__tmp158766 - (let ((__tmp158767 + (let ((__tmp158770 + (let ((__tmp158771 (##direct-structure-ref - _hd158408_ + _hd158412_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp158767 - _rest158407_)))) + (cons __tmp158771 + _rest158411_)))) (declare (not safe)) - (_lp158385_ __tmp158766)) + (_lp158389_ __tmp158770)) (let () (declare (not safe)) (error '"Unexpected module import" - _hd158408_)))))))))) - (if (let () (declare (not safe)) (##pair? _rest158388158396_)) - (let ((_hd158393158418_ + _hd158412_)))))))))) + (if (let () (declare (not safe)) (##pair? _rest158392158400_)) + (let ((_hd158397158422_ (let () (declare (not safe)) - (##car _rest158388158396_))) - (_tl158394158420_ + (##car _rest158392158400_))) + (_tl158398158424_ (let () (declare (not safe)) - (##cdr _rest158388158396_)))) - (let* ((_hd158423_ _hd158393158418_) - (_rest158425_ _tl158394158420_)) + (##cdr _rest158392158400_)))) + (let* ((_hd158427_ _hd158397158422_) + (_rest158429_ _tl158398158424_)) (declare (not safe)) - (_K158392158415_ _rest158425_ _hd158423_))) + (_K158396158419_ _rest158429_ _hd158427_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx158361_) + (lambda (_ctx158365_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx158361_ + _ctx158365_ 'gx#module-context::t)) - (let ((__tmp158780 + (let ((__tmp158784 (##structure-ref - _ctx158361_ + _ctx158365_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp158780))) + (list? __tmp158784))) '#!void - (let* ((_ht158363_ + (let* ((_ht158367_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id158365_ + (_id158369_ (##structure-ref - _ctx158361_ + _ctx158365_ '1 gx#expander-context::t '#f)) - (_mod158367_ + (_mod158371_ (let () (declare (not safe)) - (hash-get _ht158363_ _id158365_)))) - (let ((_$e158370_ _mod158367_)) - (if _$e158370_ - _$e158370_ - (let* ((_mod158373_ + (hash-get _ht158367_ _id158369_)))) + (let ((_$e158374_ _mod158371_)) + (if _$e158374_ + _$e158374_ + (let* ((_mod158377_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx158361_))) - (_val158378_ - (let ((_$e158375_ _mod158373_)) - (if _$e158375_ _$e158375_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx158365_))) + (_val158382_ + (let ((_$e158379_ _mod158377_)) + (if _$e158379_ _$e158379_ '#!void)))) (let () (declare (not safe)) - (hash-put! _ht158363_ _id158365_ _val158378_)) - _val158378_))))))) + (hash-put! _ht158367_ _id158369_ _val158382_)) + _val158382_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx158359_) - (if (##structure-ref _ctx158359_ '1 gx#expander-context::t '#f) - (let ((__tmp158781 + (lambda (_ctx158363_) + (if (##structure-ref _ctx158363_ '1 gx#expander-context::t '#f) + (let ((__tmp158785 (##structure-ref - _ctx158359_ + _ctx158363_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp158781)) + (gxc#optimizer-import-ssxi-by-id __tmp158785)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id158336_) - (letrec ((_catch-e158338_ - (lambda (_exn158357_) + (lambda (_id158340_) + (letrec ((_catch-e158342_ + (lambda (_exn158361_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id158336_)) - (display-exception _exn158357_)) + _id158340_)) + (display-exception _exn158361_)) '#!void) '#f)) - (_import-e158339_ + (_import-e158343_ (lambda () - (let* ((_str-id158342_ + (let* ((_str-id158346_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id158336_)) + (gxc#module-id->path-string _id158340_)) '".ssxi")) - (_artefact-path158350_ - (let ((_odir158343158345_ + (_artefact-path158354_ + (let ((_odir158347158349_ (gxc#current-compile-output-dir))) - (if _odir158343158345_ - (let ((_odir158348_ _odir158343158345_)) + (if _odir158347158349_ + (let ((_odir158352_ _odir158347158349_)) (path-expand - (string-append _str-id158342_ '".ss") - _odir158348_)) + (string-append _str-id158346_ '".ss") + _odir158352_)) '#f))) - (_library-path158352_ + (_library-path158356_ (string->symbol - (string-append '":" _str-id158342_ '".ss"))) - (_ssxi-path158354_ - (if (and _artefact-path158350_ - (file-exists? _artefact-path158350_)) - _artefact-path158350_ - _library-path158352_))) + (string-append '":" _str-id158346_ '".ss"))) + (_ssxi-path158358_ + (if (and _artefact-path158354_ + (file-exists? _artefact-path158354_)) + _artefact-path158354_ + _library-path158356_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path158354_)) + _ssxi-path158358_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path158354_ '#t '#t)))))) + (gx#import-module__% _ssxi-path158358_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e158338_ _import-e158339_))))) + (with-catch _catch-e158342_ _import-e158343_))))) (define gxc#optimize-source - (lambda (_stx158327_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx158327_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx158327_)) + (lambda (_stx158331_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx158331_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx158331_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx158327_)) - (let* ((_stx158329_ + (gxc#apply-collect-top-level-type-info _stx158331_)) + (let* ((_stx158333_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx158327_))) - (_stx158331_ + (gxc#apply-generate-method-specializers _stx158331_))) + (_stx158335_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx158329_)))) + (gxc#apply-lift-top-lambdas _stx158333_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx158331_)) - (let ((_stx158334_ + (gxc#apply-collect-type-info _stx158335_)) + (let ((_stx158338_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx158331_)))) + (gxc#apply-optimize-annotated _stx158335_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx158334_))))) + (gxc#apply-optimize-call _stx158338_))))) (define gxc#::generate-ssxi::t - (let ((__tmp158784 (list gxc#::generate-runtime-empty::t)) - (__tmp158782 - (let ((__tmp158783 + (let ((__tmp158788 (list gxc#::generate-runtime-empty::t)) + (__tmp158786 + (let ((__tmp158787 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp158783 '())))) + (cons __tmp158787 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp158784 + __tmp158788 '() - __tmp158782 + __tmp158786 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _$args158324_ - (apply make-instance gxc#::generate-ssxi::t _$args158324_))) + (lambda _$args158328_ + (apply make-instance gxc#::generate-ssxi::t _$args158328_))) (define gxc#::generate-ssxi-bind-methods! (make-promise (lambda () @@ -485,1348 +485,1348 @@ gxc#generate-ssxi-call%)) (let () (declare (not safe)) (seal-class! gxc#::generate-ssxi::t))))) (define gxc#apply-generate-ssxi - (lambda (_stx158316_) + (lambda (_stx158320_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_self158319_ - (let ((__obj158756 + (let* ((_self158323_ + (let ((__obj158760 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj158756)) - (__tmp158785 + __obj158760)) + (__tmp158789 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self158319_ _stx158316_))))) + (gxc#compile-e__1 _self158323_ _stx158320_))))) (declare (not safe)) (call-with-parameters - __tmp158785 + __tmp158789 gxc#current-compile-method - _self158319_)))) + _self158323_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_self158276_ _stx158277_) - (let* ((_g158279158289_ - (lambda (_g158280158286_) + (lambda (_self158280_ _stx158281_) + (let* ((_g158283158293_ + (lambda (_g158284158290_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158280158286_)))) - (_g158278158313_ - (lambda (_g158280158292_) + _g158284158290_)))) + (_g158282158317_ + (lambda (_g158284158296_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158280158292_)) - (let ((_e158284158294_ + (gx#stx-pair? _g158284158296_)) + (let ((_e158288158298_ (let () (declare (not safe)) - (gx#stx-e _g158280158292_)))) - (let ((_hd158283158297_ + (gx#stx-e _g158284158296_)))) + (let ((_hd158287158301_ (let () (declare (not safe)) - (##car _e158284158294_))) - (_tl158282158299_ + (##car _e158288158298_))) + (_tl158286158303_ (let () (declare (not safe)) - (##cdr _e158284158294_)))) - ((lambda (_L158302_) - (let ((__tmp158788 + (##cdr _e158288158298_)))) + ((lambda (_L158306_) + (let ((__tmp158792 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _self158276_ - _stx158277_)))) - (__tmp158786 - (let ((__tmp158787 + _self158280_ + _stx158281_)))) + (__tmp158790 + (let ((__tmp158791 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp158787 '1)))) + (fx+ __tmp158791 '1)))) (declare (not safe)) (call-with-parameters - __tmp158788 + __tmp158792 gx#current-expander-phi - __tmp158786))) - _tl158282158299_))) + __tmp158790))) + _tl158286158303_))) (let () (declare (not safe)) - (_g158279158289_ _g158280158292_)))))) + (_g158283158293_ _g158284158296_)))))) (declare (not safe)) - (_g158278158313_ _stx158277_)))) + (_g158282158317_ _stx158281_)))) (define gxc#generate-ssxi-module% - (lambda (_self158215_ _stx158216_) - (let* ((_g158218158232_ - (lambda (_g158219158229_) + (lambda (_self158219_ _stx158220_) + (let* ((_g158222158236_ + (lambda (_g158223158233_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158219158229_)))) - (_g158217158273_ - (lambda (_g158219158235_) + _g158223158233_)))) + (_g158221158277_ + (lambda (_g158223158239_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158219158235_)) - (let ((_e158224158237_ + (gx#stx-pair? _g158223158239_)) + (let ((_e158228158241_ (let () (declare (not safe)) - (gx#stx-e _g158219158235_)))) - (let ((_hd158223158240_ + (gx#stx-e _g158223158239_)))) + (let ((_hd158227158244_ (let () (declare (not safe)) - (##car _e158224158237_))) - (_tl158222158242_ + (##car _e158228158241_))) + (_tl158226158246_ (let () (declare (not safe)) - (##cdr _e158224158237_)))) + (##cdr _e158228158241_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158222158242_)) - (let ((_e158227158245_ + (gx#stx-pair? _tl158226158246_)) + (let ((_e158231158249_ (let () (declare (not safe)) - (gx#stx-e _tl158222158242_)))) - (let ((_hd158226158248_ + (gx#stx-e _tl158226158246_)))) + (let ((_hd158230158252_ (let () (declare (not safe)) - (##car _e158227158245_))) - (_tl158225158250_ + (##car _e158231158249_))) + (_tl158229158254_ (let () (declare (not safe)) - (##cdr _e158227158245_)))) - ((lambda (_L158253_ _L158254_) - (let* ((_ctx158267_ + (##cdr _e158231158249_)))) + ((lambda (_L158257_ _L158258_) + (let* ((_ctx158271_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L158254_))) - (_code158269_ + _L158258_))) + (_code158273_ (##structure-ref - _ctx158267_ + _ctx158271_ '11 gx#module-context::t '#f))) - (let ((__tmp158789 + (let ((__tmp158793 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self158215_ - _code158269_))))) + _self158219_ + _code158273_))))) (declare (not safe)) (call-with-parameters - __tmp158789 + __tmp158793 gx#current-expander-context - _ctx158267_)))) - _tl158225158250_ - _hd158226158248_))) + _ctx158271_)))) + _tl158229158254_ + _hd158230158252_))) (let () (declare (not safe)) - (_g158218158232_ _g158219158235_))))) + (_g158222158236_ _g158223158239_))))) (let () (declare (not safe)) - (_g158218158232_ _g158219158235_)))))) + (_g158222158236_ _g158223158239_)))))) (declare (not safe)) - (_g158217158273_ _stx158216_)))) + (_g158221158277_ _stx158220_)))) (define gxc#generate-ssxi-define-values% - (lambda (_self158024_ _stx158025_) - (letrec ((_generate-e158027_ - (lambda (_id158204_) - (let* ((_sym158206_ - (if (let ((__tmp158790 + (lambda (_self158028_ _stx158029_) + (letrec ((_generate-e158031_ + (lambda (_id158208_) + (let* ((_sym158210_ + (if (let ((__tmp158794 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp158790)) + (gx#identifier? __tmp158794)) (let () (declare (not safe)) - (gxc#identifier-symbol _id158204_)) + (gxc#identifier-symbol _id158208_)) '#f)) - (_$e158208_ - (if _sym158206_ + (_$e158212_ + (if _sym158210_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym158206_)) + (gxc#optimizer-lookup-type _sym158210_)) '#f))) - (if _$e158208_ - ((lambda (_type158211_) + (if _$e158212_ + ((lambda (_type158215_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym158206_)) - (let* ((_typedecl158213_ - (let ((__method158757 + (gxc#verbose '"generate typedecl " _sym158210_)) + (let* ((_typedecl158217_ + (let ((__method158761 (let () (declare (not safe)) (method-ref - _type158211_ + _type158215_ 'typedecl)))) - (if __method158757 - (__method158757 _type158211_) + (if __method158761 + (__method158761 _type158215_) (let () (declare (not safe)) (error '"Missing method" - _type158211_ + _type158215_ 'typedecl))))) - (__tmp158791 - (let ((__tmp158792 + (__tmp158795 + (let ((__tmp158796 (let () (declare (not safe)) - (cons _typedecl158213_ '())))) + (cons _typedecl158217_ '())))) (declare (not safe)) - (cons _sym158206_ __tmp158792)))) + (cons _sym158210_ __tmp158796)))) (declare (not safe)) - (cons 'declare-type __tmp158791))) - _$e158208_) + (cons 'declare-type __tmp158795))) + _$e158212_) '(begin)))))) - (let* ((___stx158453158454_ _stx158025_) - (_g158030158068_ + (let* ((___stx158457158458_ _stx158029_) + (_g158034158072_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx158453158454_))))) - (let ((___kont158455158456_ - (lambda (_L158186_) + ___stx158457158458_))))) + (let ((___kont158459158460_ + (lambda (_L158190_) (let () (declare (not safe)) - (_generate-e158027_ _L158186_)))) - (___kont158457158458_ - (lambda (_L158121_) - (let ((_types158147_ - (map _generate-e158027_ - (let ((__tmp158793 - (lambda (_g158139158142_ - _g158140158144_) + (_generate-e158031_ _L158190_)))) + (___kont158461158462_ + (lambda (_L158125_) + (let ((_types158151_ + (map _generate-e158031_ + (let ((__tmp158797 + (lambda (_g158143158146_ + _g158144158148_) (let () (declare (not safe)) - (cons _g158139158142_ - _g158140158144_))))) + (cons _g158143158146_ + _g158144158148_))))) (declare (not safe)) - (foldr1 __tmp158793 '() _L158121_))))) + (foldr1 __tmp158797 '() _L158125_))))) (declare (not safe)) - (cons 'begin _types158147_))))) - (let ((___match158508158509_ - (lambda (_e158048158073_ - _hd158047158076_ - _tl158046158078_ - _e158051158081_ - _hd158050158084_ - _tl158049158086_ - ___splice158459158460_ - _target158052158089_ - _tl158054158091_) - (letrec ((_loop158055158094_ - (lambda (_hd158053158097_ _id158059158099_) + (cons 'begin _types158151_))))) + (let ((___match158512158513_ + (lambda (_e158052158077_ + _hd158051158080_ + _tl158050158082_ + _e158055158085_ + _hd158054158088_ + _tl158053158090_ + ___splice158463158464_ + _target158056158093_ + _tl158058158095_) + (letrec ((_loop158059158098_ + (lambda (_hd158057158101_ _id158063158103_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd158053158097_)) - (let ((_e158056158102_ + (gx#stx-pair? _hd158057158101_)) + (let ((_e158060158106_ (let () (declare (not safe)) - (gx#stx-e _hd158053158097_)))) - (let ((_lp-tl158058158107_ + (gx#stx-e _hd158057158101_)))) + (let ((_lp-tl158062158111_ (let () (declare (not safe)) - (##cdr _e158056158102_))) - (_lp-hd158057158105_ + (##cdr _e158060158106_))) + (_lp-hd158061158109_ (let () (declare (not safe)) - (##car _e158056158102_)))) - (let ((__tmp158794 + (##car _e158060158106_)))) + (let ((__tmp158798 (let () (declare (not safe)) - (cons _lp-hd158057158105_ - _id158059158099_)))) + (cons _lp-hd158061158109_ + _id158063158103_)))) (declare (not safe)) - (_loop158055158094_ - _lp-tl158058158107_ - __tmp158794)))) - (let ((_id158060158110_ - (reverse _id158059158099_))) + (_loop158059158098_ + _lp-tl158062158111_ + __tmp158798)))) + (let ((_id158064158114_ + (reverse _id158063158103_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158049158086_)) - (let ((_e158063158113_ + (gx#stx-pair? _tl158053158090_)) + (let ((_e158067158117_ (let () (declare (not safe)) (gx#stx-e - _tl158049158086_)))) - (let ((_tl158061158118_ + _tl158053158090_)))) + (let ((_tl158065158122_ (let () (declare (not safe)) - (##cdr _e158063158113_))) - (_hd158062158116_ + (##cdr _e158067158117_))) + (_hd158066158120_ (let () (declare (not safe)) - (##car _e158063158113_)))) + (##car _e158067158117_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158061158118_)) - (___kont158457158458_ - _id158060158110_) + _tl158065158122_)) + (___kont158461158462_ + _id158064158114_) (let () (declare (not safe)) - (_g158030158068_))))) + (_g158034158072_))))) (let () (declare (not safe)) - (_g158030158068_)))))))) + (_g158034158072_)))))))) (let () (declare (not safe)) - (_loop158055158094_ _target158052158089_ '())))))) + (_loop158059158098_ _target158056158093_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx158453158454_)) - (let ((_e158035158154_ + (gx#stx-pair? ___stx158457158458_)) + (let ((_e158039158158_ (let () (declare (not safe)) - (gx#stx-e ___stx158453158454_)))) - (let ((_tl158033158159_ + (gx#stx-e ___stx158457158458_)))) + (let ((_tl158037158163_ (let () (declare (not safe)) - (##cdr _e158035158154_))) - (_hd158034158157_ + (##cdr _e158039158158_))) + (_hd158038158161_ (let () (declare (not safe)) - (##car _e158035158154_)))) + (##car _e158039158158_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158033158159_)) - (let ((_e158038158162_ + (gx#stx-pair? _tl158037158163_)) + (let ((_e158042158166_ (let () (declare (not safe)) - (gx#stx-e _tl158033158159_)))) - (let ((_tl158036158167_ + (gx#stx-e _tl158037158163_)))) + (let ((_tl158040158171_ (let () (declare (not safe)) - (##cdr _e158038158162_))) - (_hd158037158165_ + (##cdr _e158042158166_))) + (_hd158041158169_ (let () (declare (not safe)) - (##car _e158038158162_)))) + (##car _e158042158166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd158037158165_)) - (let ((_e158041158170_ + (gx#stx-pair? _hd158041158169_)) + (let ((_e158045158174_ (let () (declare (not safe)) - (gx#stx-e _hd158037158165_)))) - (let ((_tl158039158175_ + (gx#stx-e _hd158041158169_)))) + (let ((_tl158043158179_ (let () (declare (not safe)) - (##cdr _e158041158170_))) - (_hd158040158173_ + (##cdr _e158045158174_))) + (_hd158044158177_ (let () (declare (not safe)) - (##car _e158041158170_)))) + (##car _e158045158174_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158039158175_)) + (gx#stx-null? _tl158043158179_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl158036158167_)) - (let ((_e158044158178_ + _tl158040158171_)) + (let ((_e158048158182_ (let () (declare (not safe)) (gx#stx-e - _tl158036158167_)))) - (let ((_tl158042158183_ + _tl158040158171_)))) + (let ((_tl158046158187_ (let () (declare (not safe)) - (##cdr _e158044158178_))) - (_hd158043158181_ + (##cdr _e158048158182_))) + (_hd158047158185_ (let () (declare (not safe)) - (##car _e158044158178_)))) + (##car _e158048158182_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158042158183_)) - (___kont158455158456_ - _hd158040158173_) + _tl158046158187_)) + (___kont158459158460_ + _hd158044158177_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd158037158165_)) - (let ((___splice158459158460_ + _hd158041158169_)) + (let ((___splice158463158464_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd158037158165_ '0)))) - (let ((_tl158054158091_ + (gx#syntax-split-splice _hd158041158169_ '0)))) + (let ((_tl158058158095_ (let () (declare (not safe)) - (##vector-ref ___splice158459158460_ '1))) - (_target158052158089_ + (##vector-ref ___splice158463158464_ '1))) + (_target158056158093_ (let () (declare (not safe)) - (##vector-ref ___splice158459158460_ '0)))) + (##vector-ref ___splice158463158464_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158054158091_)) - (___match158508158509_ - _e158035158154_ - _hd158034158157_ - _tl158033158159_ - _e158038158162_ - _hd158037158165_ - _tl158036158167_ - ___splice158459158460_ - _target158052158089_ - _tl158054158091_) - (let () (declare (not safe)) (_g158030158068_))))) - (let () (declare (not safe)) (_g158030158068_)))))) + (gx#stx-null? _tl158058158095_)) + (___match158512158513_ + _e158039158158_ + _hd158038158161_ + _tl158037158163_ + _e158042158166_ + _hd158041158169_ + _tl158040158171_ + ___splice158463158464_ + _target158056158093_ + _tl158058158095_) + (let () (declare (not safe)) (_g158034158072_))))) + (let () (declare (not safe)) (_g158034158072_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd158037158165_)) - (let ((___splice158459158460_ + _hd158041158169_)) + (let ((___splice158463158464_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd158037158165_ + _hd158041158169_ '0)))) - (let ((_tl158054158091_ + (let ((_tl158058158095_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice158459158460_ '1))) - (_target158052158089_ + (##vector-ref ___splice158463158464_ '1))) + (_target158056158093_ (let () (declare (not safe)) - (##vector-ref ___splice158459158460_ '0)))) + (##vector-ref ___splice158463158464_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158054158091_)) - (___match158508158509_ - _e158035158154_ - _hd158034158157_ - _tl158033158159_ - _e158038158162_ - _hd158037158165_ - _tl158036158167_ - ___splice158459158460_ - _target158052158089_ - _tl158054158091_) - (let () (declare (not safe)) (_g158030158068_))))) + (gx#stx-null? _tl158058158095_)) + (___match158512158513_ + _e158039158158_ + _hd158038158161_ + _tl158037158163_ + _e158042158166_ + _hd158041158169_ + _tl158040158171_ + ___splice158463158464_ + _target158056158093_ + _tl158058158095_) + (let () (declare (not safe)) (_g158034158072_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g158030158068_)))) + (_g158034158072_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd158037158165_)) - (let ((___splice158459158460_ + _hd158041158169_)) + (let ((___splice158463158464_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd158037158165_ + _hd158041158169_ '0)))) - (let ((_tl158054158091_ + (let ((_tl158058158095_ (let () (declare (not safe)) (##vector-ref - ___splice158459158460_ + ___splice158463158464_ '1))) - (_target158052158089_ + (_target158056158093_ (let () (declare (not safe)) (##vector-ref - ___splice158459158460_ + ___splice158463158464_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158054158091_)) - (___match158508158509_ - _e158035158154_ - _hd158034158157_ - _tl158033158159_ - _e158038158162_ - _hd158037158165_ - _tl158036158167_ - ___splice158459158460_ - _target158052158089_ - _tl158054158091_) + _tl158058158095_)) + (___match158512158513_ + _e158039158158_ + _hd158038158161_ + _tl158037158163_ + _e158042158166_ + _hd158041158169_ + _tl158040158171_ + ___splice158463158464_ + _target158056158093_ + _tl158058158095_) (let () (declare (not safe)) - (_g158030158068_))))) + (_g158034158072_))))) (let () (declare (not safe)) - (_g158030158068_)))))) + (_g158034158072_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd158037158165_)) - (let ((___splice158459158460_ + (gx#stx-pair/null? _hd158041158169_)) + (let ((___splice158463158464_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd158037158165_ + _hd158041158169_ '0)))) - (let ((_tl158054158091_ + (let ((_tl158058158095_ (let () (declare (not safe)) (##vector-ref - ___splice158459158460_ + ___splice158463158464_ '1))) - (_target158052158089_ + (_target158056158093_ (let () (declare (not safe)) (##vector-ref - ___splice158459158460_ + ___splice158463158464_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158054158091_)) - (___match158508158509_ - _e158035158154_ - _hd158034158157_ - _tl158033158159_ - _e158038158162_ - _hd158037158165_ - _tl158036158167_ - ___splice158459158460_ - _target158052158089_ - _tl158054158091_) + _tl158058158095_)) + (___match158512158513_ + _e158039158158_ + _hd158038158161_ + _tl158037158163_ + _e158042158166_ + _hd158041158169_ + _tl158040158171_ + ___splice158463158464_ + _target158056158093_ + _tl158058158095_) (let () (declare (not safe)) - (_g158030158068_))))) + (_g158034158072_))))) (let () (declare (not safe)) - (_g158030158068_)))))) - (let () (declare (not safe)) (_g158030158068_))))) - (let () (declare (not safe)) (_g158030158068_))))))))) + (_g158034158072_)))))) + (let () (declare (not safe)) (_g158034158072_))))) + (let () (declare (not safe)) (_g158034158072_))))))))) (define gxc#generate-ssxi-call% - (lambda (_self157577_ _stx157578_) - (let* ((___stx158511158512_ _stx157578_) - (_g157582157684_ + (lambda (_self157581_ _stx157582_) + (let* ((___stx158515158516_ _stx157582_) + (_g157586157688_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx158511158512_))))) - (let ((___kont158513158514_ - (lambda (_L157974_ _L157975_ _L157976_ _L157977_ _L157978_) - (let ((__tmp158795 - (let ((__tmp158802 + ___stx158515158516_))))) + (let ((___kont158517158518_ + (lambda (_L157978_ _L157979_ _L157980_ _L157981_ _L157982_) + (let ((__tmp158799 + (let ((__tmp158806 (let () (declare (not safe)) - (gxc#identifier-symbol _L157977_))) - (__tmp158796 - (let ((__tmp158801 + (gxc#identifier-symbol _L157981_))) + (__tmp158800 + (let ((__tmp158805 (let () (declare (not safe)) - (gx#stx-e _L157976_))) - (__tmp158797 - (let ((__tmp158800 + (gx#stx-e _L157980_))) + (__tmp158801 + (let ((__tmp158804 (let () (declare (not safe)) (gxc#identifier-symbol - _L157975_))) - (__tmp158798 - (let ((__tmp158799 + _L157979_))) + (__tmp158802 + (let ((__tmp158803 (let () (declare (not safe)) - (gx#stx-e _L157974_)))) + (gx#stx-e _L157978_)))) (declare (not safe)) - (cons __tmp158799 '())))) + (cons __tmp158803 '())))) (declare (not safe)) - (cons __tmp158800 __tmp158798)))) + (cons __tmp158804 __tmp158802)))) (declare (not safe)) - (cons __tmp158801 __tmp158797)))) + (cons __tmp158805 __tmp158801)))) (declare (not safe)) - (cons __tmp158802 __tmp158796)))) + (cons __tmp158806 __tmp158800)))) (declare (not safe)) - (cons 'declare-method __tmp158795)))) - (___kont158515158516_ - (lambda (_L157800_ _L157801_ _L157802_ _L157803_) - (let ((__tmp158803 - (let ((__tmp158809 + (cons 'declare-method __tmp158799)))) + (___kont158519158520_ + (lambda (_L157804_ _L157805_ _L157806_ _L157807_) + (let ((__tmp158807 + (let ((__tmp158813 (let () (declare (not safe)) - (gxc#identifier-symbol _L157802_))) - (__tmp158804 - (let ((__tmp158808 + (gxc#identifier-symbol _L157806_))) + (__tmp158808 + (let ((__tmp158812 (let () (declare (not safe)) - (gx#stx-e _L157801_))) - (__tmp158805 - (let ((__tmp158807 + (gx#stx-e _L157805_))) + (__tmp158809 + (let ((__tmp158811 (let () (declare (not safe)) (gxc#identifier-symbol - _L157800_))) - (__tmp158806 + _L157804_))) + (__tmp158810 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp158807 __tmp158806)))) + (cons __tmp158811 __tmp158810)))) (declare (not safe)) - (cons __tmp158808 __tmp158805)))) + (cons __tmp158812 __tmp158809)))) (declare (not safe)) - (cons __tmp158809 __tmp158804)))) + (cons __tmp158813 __tmp158808)))) (declare (not safe)) - (cons 'declare-method __tmp158803)))) - (___kont158517158518_ (lambda () '(begin)))) - (let ((___match158646158647_ - (lambda (_e157591157846_ - _hd157590157849_ - _tl157589157851_ - _e157594157854_ - _hd157593157857_ - _tl157592157859_ - _e157597157862_ - _hd157596157865_ - _tl157595157867_ - _e157600157870_ - _hd157599157873_ - _tl157598157875_ - _e157603157878_ - _hd157602157881_ - _tl157601157883_ - _e157606157886_ - _hd157605157889_ - _tl157604157891_ - _e157609157894_ - _hd157608157897_ - _tl157607157899_ - _e157612157902_ - _hd157611157905_ - _tl157610157907_ - _e157615157910_ - _hd157614157913_ - _tl157613157915_ - _e157618157918_ - _hd157617157921_ - _tl157616157923_ - _e157621157926_ - _hd157620157929_ - _tl157619157931_ - _e157624157934_ - _hd157623157937_ - _tl157622157939_ - _e157627157942_ - _hd157626157945_ - _tl157625157947_ - _e157630157950_ - _hd157629157953_ - _tl157628157955_ - _e157633157958_ - _hd157632157961_ - _tl157631157963_ - _e157636157966_ - _hd157635157969_ - _tl157634157971_) - (let ((_L157974_ _hd157635157969_) - (_L157975_ _hd157626157945_) - (_L157976_ _hd157617157921_) - (_L157977_ _hd157608157897_) - (_L157978_ _hd157599157873_)) + (cons 'declare-method __tmp158807)))) + (___kont158521158522_ (lambda () '(begin)))) + (let ((___match158650158651_ + (lambda (_e157595157850_ + _hd157594157853_ + _tl157593157855_ + _e157598157858_ + _hd157597157861_ + _tl157596157863_ + _e157601157866_ + _hd157600157869_ + _tl157599157871_ + _e157604157874_ + _hd157603157877_ + _tl157602157879_ + _e157607157882_ + _hd157606157885_ + _tl157605157887_ + _e157610157890_ + _hd157609157893_ + _tl157608157895_ + _e157613157898_ + _hd157612157901_ + _tl157611157903_ + _e157616157906_ + _hd157615157909_ + _tl157614157911_ + _e157619157914_ + _hd157618157917_ + _tl157617157919_ + _e157622157922_ + _hd157621157925_ + _tl157620157927_ + _e157625157930_ + _hd157624157933_ + _tl157623157935_ + _e157628157938_ + _hd157627157941_ + _tl157626157943_ + _e157631157946_ + _hd157630157949_ + _tl157629157951_ + _e157634157954_ + _hd157633157957_ + _tl157632157959_ + _e157637157962_ + _hd157636157965_ + _tl157635157967_ + _e157640157970_ + _hd157639157973_ + _tl157638157975_) + (let ((_L157978_ _hd157639157973_) + (_L157979_ _hd157630157949_) + (_L157980_ _hd157621157925_) + (_L157981_ _hd157612157901_) + (_L157982_ _hd157603157877_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L157978_ + _L157982_ 'bind-method!)) - (___kont158513158514_ - _L157974_ - _L157975_ - _L157976_ - _L157977_ - _L157978_) - (___kont158517158518_)))))) + (___kont158517158518_ + _L157978_ + _L157979_ + _L157980_ + _L157981_ + _L157982_) + (___kont158521158522_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx158511158512_)) - (let ((_e157591157846_ + (gx#stx-pair? ___stx158515158516_)) + (let ((_e157595157850_ (let () (declare (not safe)) - (gx#stx-e ___stx158511158512_)))) - (let ((_tl157589157851_ + (gx#stx-e ___stx158515158516_)))) + (let ((_tl157593157855_ (let () (declare (not safe)) - (##cdr _e157591157846_))) - (_hd157590157849_ + (##cdr _e157595157850_))) + (_hd157594157853_ (let () (declare (not safe)) - (##car _e157591157846_)))) + (##car _e157595157850_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl157589157851_)) - (let ((_e157594157854_ + (gx#stx-pair? _tl157593157855_)) + (let ((_e157598157858_ (let () (declare (not safe)) - (gx#stx-e _tl157589157851_)))) - (let ((_tl157592157859_ + (gx#stx-e _tl157593157855_)))) + (let ((_tl157596157863_ (let () (declare (not safe)) - (##cdr _e157594157854_))) - (_hd157593157857_ + (##cdr _e157598157858_))) + (_hd157597157861_ (let () (declare (not safe)) - (##car _e157594157854_)))) + (##car _e157598157858_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd157593157857_)) - (let ((_e157597157862_ + (gx#stx-pair? _hd157597157861_)) + (let ((_e157601157866_ (let () (declare (not safe)) - (gx#stx-e _hd157593157857_)))) - (let ((_tl157595157867_ + (gx#stx-e _hd157597157861_)))) + (let ((_tl157599157871_ (let () (declare (not safe)) - (##cdr _e157597157862_))) - (_hd157596157865_ + (##cdr _e157601157866_))) + (_hd157600157869_ (let () (declare (not safe)) - (##car _e157597157862_)))) + (##car _e157601157866_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157596157865_)) + (gx#identifier? _hd157600157869_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd157596157865_)) + _hd157600157869_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157595157867_)) - (let ((_e157600157870_ + _tl157599157871_)) + (let ((_e157604157874_ (let () (declare (not safe)) (gx#stx-e - _tl157595157867_)))) - (let ((_tl157598157875_ + _tl157599157871_)))) + (let ((_tl157602157879_ (let () (declare (not safe)) - (##cdr _e157600157870_))) - (_hd157599157873_ + (##cdr _e157604157874_))) + (_hd157603157877_ (let () (declare (not safe)) - (##car _e157600157870_)))) + (##car _e157604157874_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl157598157875_)) + _tl157602157879_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl157592157859_)) - (let ((_e157603157878_ + (gx#stx-pair? _tl157596157863_)) + (let ((_e157607157882_ (let () (declare (not safe)) - (gx#stx-e _tl157592157859_)))) - (let ((_tl157601157883_ + (gx#stx-e _tl157596157863_)))) + (let ((_tl157605157887_ (let () (declare (not safe)) - (##cdr _e157603157878_))) - (_hd157602157881_ + (##cdr _e157607157882_))) + (_hd157606157885_ (let () (declare (not safe)) - (##car _e157603157878_)))) + (##car _e157607157882_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd157602157881_)) - (let ((_e157606157886_ + (gx#stx-pair? _hd157606157885_)) + (let ((_e157610157890_ (let () (declare (not safe)) - (gx#stx-e _hd157602157881_)))) - (let ((_tl157604157891_ + (gx#stx-e _hd157606157885_)))) + (let ((_tl157608157895_ (let () (declare (not safe)) - (##cdr _e157606157886_))) - (_hd157605157889_ + (##cdr _e157610157890_))) + (_hd157609157893_ (let () (declare (not safe)) - (##car _e157606157886_)))) + (##car _e157610157890_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157605157889_)) + (gx#identifier? _hd157609157893_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd157605157889_)) + _hd157609157893_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157604157891_)) - (let ((_e157609157894_ + _tl157608157895_)) + (let ((_e157613157898_ (let () (declare (not safe)) (gx#stx-e - _tl157604157891_)))) - (let ((_tl157607157899_ + _tl157608157895_)))) + (let ((_tl157611157903_ (let () (declare (not safe)) - (##cdr _e157609157894_))) - (_hd157608157897_ + (##cdr _e157613157898_))) + (_hd157612157901_ (let () (declare (not safe)) - (##car _e157609157894_)))) + (##car _e157613157898_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl157607157899_)) + _tl157611157903_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157601157883_)) - (let ((_e157612157902_ + _tl157605157887_)) + (let ((_e157616157906_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl157601157883_)))) - (let ((_tl157610157907_ + (gx#stx-e _tl157605157887_)))) + (let ((_tl157614157911_ (let () (declare (not safe)) - (##cdr _e157612157902_))) - (_hd157611157905_ + (##cdr _e157616157906_))) + (_hd157615157909_ (let () (declare (not safe)) - (##car _e157612157902_)))) + (##car _e157616157906_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd157611157905_)) - (let ((_e157615157910_ + (gx#stx-pair? _hd157615157909_)) + (let ((_e157619157914_ (let () (declare (not safe)) - (gx#stx-e _hd157611157905_)))) - (let ((_tl157613157915_ + (gx#stx-e _hd157615157909_)))) + (let ((_tl157617157919_ (let () (declare (not safe)) - (##cdr _e157615157910_))) - (_hd157614157913_ + (##cdr _e157619157914_))) + (_hd157618157917_ (let () (declare (not safe)) - (##car _e157615157910_)))) + (##car _e157619157914_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157614157913_)) + (gx#identifier? _hd157618157917_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd157614157913_)) + (gx#stx-eq? '%#quote _hd157618157917_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl157613157915_)) - (let ((_e157618157918_ + (gx#stx-pair? _tl157617157919_)) + (let ((_e157622157922_ (let () (declare (not safe)) (gx#stx-e - _tl157613157915_)))) - (let ((_tl157616157923_ + _tl157617157919_)))) + (let ((_tl157620157927_ (let () (declare (not safe)) - (##cdr _e157618157918_))) - (_hd157617157921_ + (##cdr _e157622157922_))) + (_hd157621157925_ (let () (declare (not safe)) - (##car _e157618157918_)))) + (##car _e157622157922_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl157616157923_)) + _tl157620157927_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157610157907_)) - (let ((_e157621157926_ + _tl157614157911_)) + (let ((_e157625157930_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl157610157907_)))) - (let ((_tl157619157931_ - (let () (declare (not safe)) (##cdr _e157621157926_))) - (_hd157620157929_ - (let () (declare (not safe)) (##car _e157621157926_)))) + (gx#stx-e _tl157614157911_)))) + (let ((_tl157623157935_ + (let () (declare (not safe)) (##cdr _e157625157930_))) + (_hd157624157933_ + (let () (declare (not safe)) (##car _e157625157930_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd157620157929_)) - (let ((_e157624157934_ + (gx#stx-pair? _hd157624157933_)) + (let ((_e157628157938_ (let () (declare (not safe)) - (gx#stx-e _hd157620157929_)))) - (let ((_tl157622157939_ + (gx#stx-e _hd157624157933_)))) + (let ((_tl157626157943_ (let () (declare (not safe)) - (##cdr _e157624157934_))) - (_hd157623157937_ + (##cdr _e157628157938_))) + (_hd157627157941_ (let () (declare (not safe)) - (##car _e157624157934_)))) + (##car _e157628157938_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157623157937_)) + (gx#identifier? _hd157627157941_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd157623157937_)) + (gx#stx-eq? '%#ref _hd157627157941_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl157622157939_)) - (let ((_e157627157942_ + (gx#stx-pair? _tl157626157943_)) + (let ((_e157631157946_ (let () (declare (not safe)) - (gx#stx-e _tl157622157939_)))) - (let ((_tl157625157947_ + (gx#stx-e _tl157626157943_)))) + (let ((_tl157629157951_ (let () (declare (not safe)) - (##cdr _e157627157942_))) - (_hd157626157945_ + (##cdr _e157631157946_))) + (_hd157630157949_ (let () (declare (not safe)) - (##car _e157627157942_)))) + (##car _e157631157946_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl157625157947_)) + _tl157629157951_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157619157931_)) - (let ((_e157630157950_ + _tl157623157935_)) + (let ((_e157634157954_ (let () (declare (not safe)) (gx#stx-e - _tl157619157931_)))) - (let ((_tl157628157955_ + _tl157623157935_)))) + (let ((_tl157632157959_ (let () (declare (not safe)) - (##cdr _e157630157950_))) - (_hd157629157953_ + (##cdr _e157634157954_))) + (_hd157633157957_ (let () (declare (not safe)) - (##car _e157630157950_)))) + (##car _e157634157954_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd157629157953_)) - (let ((_e157633157958_ + _hd157633157957_)) + (let ((_e157637157962_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd157629157953_)))) - (let ((_tl157631157963_ + (gx#stx-e _hd157633157957_)))) + (let ((_tl157635157967_ (let () (declare (not safe)) - (##cdr _e157633157958_))) - (_hd157632157961_ + (##cdr _e157637157962_))) + (_hd157636157965_ (let () (declare (not safe)) - (##car _e157633157958_)))) + (##car _e157637157962_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157632157961_)) + (gx#identifier? _hd157636157965_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd157632157961_)) + (gx#stx-eq? '%#quote _hd157636157965_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl157631157963_)) - (let ((_e157636157966_ + (gx#stx-pair? _tl157635157967_)) + (let ((_e157640157970_ (let () (declare (not safe)) - (gx#stx-e _tl157631157963_)))) - (let ((_tl157634157971_ + (gx#stx-e _tl157635157967_)))) + (let ((_tl157638157975_ (let () (declare (not safe)) - (##cdr _e157636157966_))) - (_hd157635157969_ + (##cdr _e157640157970_))) + (_hd157639157973_ (let () (declare (not safe)) - (##car _e157636157966_)))) + (##car _e157640157970_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl157634157971_)) + (gx#stx-null? _tl157638157975_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl157628157955_)) - (___match158646158647_ - _e157591157846_ - _hd157590157849_ - _tl157589157851_ - _e157594157854_ - _hd157593157857_ - _tl157592157859_ - _e157597157862_ - _hd157596157865_ - _tl157595157867_ - _e157600157870_ - _hd157599157873_ - _tl157598157875_ - _e157603157878_ - _hd157602157881_ - _tl157601157883_ - _e157606157886_ - _hd157605157889_ - _tl157604157891_ - _e157609157894_ - _hd157608157897_ - _tl157607157899_ - _e157612157902_ - _hd157611157905_ - _tl157610157907_ - _e157615157910_ - _hd157614157913_ - _tl157613157915_ - _e157618157918_ - _hd157617157921_ - _tl157616157923_ - _e157621157926_ - _hd157620157929_ - _tl157619157931_ - _e157624157934_ - _hd157623157937_ - _tl157622157939_ - _e157627157942_ - _hd157626157945_ - _tl157625157947_ - _e157630157950_ - _hd157629157953_ - _tl157628157955_ - _e157633157958_ - _hd157632157961_ - _tl157631157963_ - _e157636157966_ - _hd157635157969_ - _tl157634157971_) - (___kont158517158518_)) - (___kont158517158518_)))) - (___kont158517158518_)) - (___kont158517158518_)) - (___kont158517158518_)))) - (___kont158517158518_)))) + _tl157632157959_)) + (___match158650158651_ + _e157595157850_ + _hd157594157853_ + _tl157593157855_ + _e157598157858_ + _hd157597157861_ + _tl157596157863_ + _e157601157866_ + _hd157600157869_ + _tl157599157871_ + _e157604157874_ + _hd157603157877_ + _tl157602157879_ + _e157607157882_ + _hd157606157885_ + _tl157605157887_ + _e157610157890_ + _hd157609157893_ + _tl157608157895_ + _e157613157898_ + _hd157612157901_ + _tl157611157903_ + _e157616157906_ + _hd157615157909_ + _tl157614157911_ + _e157619157914_ + _hd157618157917_ + _tl157617157919_ + _e157622157922_ + _hd157621157925_ + _tl157620157927_ + _e157625157930_ + _hd157624157933_ + _tl157623157935_ + _e157628157938_ + _hd157627157941_ + _tl157626157943_ + _e157631157946_ + _hd157630157949_ + _tl157629157951_ + _e157634157954_ + _hd157633157957_ + _tl157632157959_ + _e157637157962_ + _hd157636157965_ + _tl157635157967_ + _e157640157970_ + _hd157639157973_ + _tl157638157975_) + (___kont158521158522_)) + (___kont158521158522_)))) + (___kont158521158522_)) + (___kont158521158522_)) + (___kont158521158522_)))) + (___kont158521158522_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl157619157931_)) - (if (let ((__tmp158810 + _tl157623157935_)) + (if (let ((__tmp158814 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp158810 'bind-method!)) - (let ((_L157800_ _hd157626157945_) - (_L157801_ _hd157617157921_) - (_L157802_ _hd157608157897_) - (_L157803_ _hd157599157873_)) - (___kont158515158516_ - _L157800_ - _L157801_ - _L157802_ - _L157803_)) - (___kont158517158518_)) - (___kont158517158518_))) + (gxc#runtime-identifier=? __tmp158814 'bind-method!)) + (let ((_L157804_ _hd157630157949_) + (_L157805_ _hd157621157925_) + (_L157806_ _hd157612157901_) + (_L157807_ _hd157603157877_)) + (___kont158519158520_ + _L157804_ + _L157805_ + _L157806_ + _L157807_)) + (___kont158521158522_)) + (___kont158521158522_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont158517158518_)))) - (___kont158517158518_)) - (___kont158517158518_)) - (___kont158517158518_)))) - (___kont158517158518_)))) - (___kont158517158518_)) + (___kont158521158522_)))) + (___kont158521158522_)) + (___kont158521158522_)) + (___kont158521158522_)))) + (___kont158521158522_)))) + (___kont158521158522_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont158517158518_)))) - (___kont158517158518_)) - (___kont158517158518_)) - (___kont158517158518_)))) - (___kont158517158518_)))) - (___kont158517158518_)) - (___kont158517158518_)))) + (___kont158521158522_)))) + (___kont158521158522_)) + (___kont158521158522_)) + (___kont158521158522_)))) + (___kont158521158522_)))) + (___kont158521158522_)) + (___kont158521158522_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont158517158518_)) - (___kont158517158518_)) - (___kont158517158518_)))) - (___kont158517158518_)))) - (___kont158517158518_)) - (___kont158517158518_)))) + (___kont158521158522_)) + (___kont158521158522_)) + (___kont158521158522_)))) + (___kont158521158522_)))) + (___kont158521158522_)) + (___kont158521158522_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont158517158518_)) - (___kont158517158518_)) - (___kont158517158518_)))) - (___kont158517158518_)))) - (___kont158517158518_)))) - (___kont158517158518_))))))) + (___kont158521158522_)) + (___kont158521158522_)) + (___kont158521158522_)))) + (___kont158521158522_)))) + (___kont158521158522_)))) + (___kont158521158522_))))))) (define gxc#!alias::typedecl - (lambda (_self157553_) - (let* ((_self157554157560_ _self157553_) - (_E157556157564_ + (lambda (_self157557_) + (let* ((_self157558157564_ _self157557_) + (_E157560157568_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self157554157560_)))) - (_K157557157569_ - (lambda (_alias-id157567_) - (let ((__tmp158811 + (error '"No clause matching" _self157558157564_)))) + (_K157561157573_ + (lambda (_alias-id157571_) + (let ((__tmp158815 (let () (declare (not safe)) - (cons _alias-id157567_ '())))) + (cons _alias-id157571_ '())))) (declare (not safe)) - (cons '@alias __tmp158811))))) + (cons '@alias __tmp158815))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self157554157560_ 'gxc#!alias::t)) - (let* ((_e157558157572_ + (##structure-instance-of? _self157558157564_ 'gxc#!alias::t)) + (let* ((_e157562157576_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157554157560_ + _self157558157564_ '1 gxc#!type::t '#f))) - (_alias-id157575_ _e157558157572_)) + (_alias-id157579_ _e157562157576_)) (declare (not safe)) - (_K157557157569_ _alias-id157575_)) - (let () (declare (not safe)) (_E157556157564_)))))) + (_K157561157573_ _alias-id157579_)) + (let () (declare (not safe)) (_E157560157568_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self157337_) - (let* ((_self157338157354_ _self157337_) - (_E157340157358_ + (lambda (_self157341_) + (let* ((_self157342157358_ _self157341_) + (_E157344157362_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self157338157354_)))) - (_K157341157373_ - (lambda (_methods157361_ - _metaclass157362_ - _system?157363_ - _final?157364_ - _struct?157365_ - _constructor157366_ - _fields157367_ - _slots157368_ - _precendence-list157369_ - _super157370_ - _id157371_) - (let ((__tmp158812 - (let ((__tmp158813 - (let ((__tmp158814 - (let ((__tmp158815 - (let ((__tmp158816 - (let ((__tmp158817 - (let ((__tmp158818 + (error '"No clause matching" _self157342157358_)))) + (_K157345157377_ + (lambda (_methods157365_ + _metaclass157366_ + _system?157367_ + _final?157368_ + _struct?157369_ + _constructor157370_ + _fields157371_ + _slots157372_ + _precendence-list157373_ + _super157374_ + _id157375_) + (let ((__tmp158816 + (let ((__tmp158817 + (let ((__tmp158818 + (let ((__tmp158819 + (let ((__tmp158820 + (let ((__tmp158821 + (let ((__tmp158822 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158819 - (let ((__tmp158820 - (let ((__tmp158821 - (let ((__tmp158822 - (let ((__tmp158823 - (if _methods157361_ + (let ((__tmp158823 + (let ((__tmp158824 + (let ((__tmp158825 + (let ((__tmp158826 + (let ((__tmp158827 + (if _methods157365_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (hash->list _methods157361_)) + (hash->list _methods157365_)) '#f))) (declare (not safe)) - (cons __tmp158823 '())))) + (cons __tmp158827 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _metaclass157362_ - __tmp158822)))) + (cons _metaclass157366_ + __tmp158826)))) (declare (not safe)) - (cons _system?157363_ - __tmp158821)))) + (cons _system?157367_ + __tmp158825)))) (declare (not safe)) - (cons _final?157364_ __tmp158820)))) + (cons _final?157368_ __tmp158824)))) (declare (not safe)) - (cons _struct?157365_ __tmp158819)))) + (cons _struct?157369_ __tmp158823)))) (declare (not safe)) - (cons _constructor157366_ __tmp158818)))) + (cons _constructor157370_ __tmp158822)))) (declare (not safe)) - (cons _fields157367_ __tmp158817)))) + (cons _fields157371_ __tmp158821)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots157368_ - __tmp158816)))) + (cons _slots157372_ + __tmp158820)))) (declare (not safe)) - (cons _precendence-list157369_ - __tmp158815)))) + (cons _precendence-list157373_ + __tmp158819)))) (declare (not safe)) - (cons _super157370_ __tmp158814)))) + (cons _super157374_ __tmp158818)))) (declare (not safe)) - (cons _id157371_ __tmp158813)))) + (cons _id157375_ __tmp158817)))) (declare (not safe)) - (cons '@class __tmp158812))))) + (cons '@class __tmp158816))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self157338157354_ 'gxc#!class::t)) - (let* ((_e157342157376_ + (##structure-instance-of? _self157342157358_ 'gxc#!class::t)) + (let* ((_e157346157380_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '1 gxc#!type::t '#f))) - (_id157379_ _e157342157376_) - (_e157343157381_ + (_id157383_ _e157346157380_) + (_e157347157385_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '2 gxc#!class::t '#f))) - (_super157384_ _e157343157381_) - (_e157344157386_ + (_super157388_ _e157347157385_) + (_e157348157390_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '3 gxc#!class::t '#f))) - (_precendence-list157389_ _e157344157386_) - (_e157345157391_ + (_precendence-list157393_ _e157348157390_) + (_e157349157395_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '4 gxc#!class::t '#f))) - (_slots157394_ _e157345157391_) - (_e157346157396_ + (_slots157398_ _e157349157395_) + (_e157350157400_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '5 gxc#!class::t '#f))) - (_fields157399_ _e157346157396_) - (_e157347157401_ + (_fields157403_ _e157350157400_) + (_e157351157405_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '6 gxc#!class::t '#f))) - (_constructor157404_ _e157347157401_) - (_e157348157406_ + (_constructor157408_ _e157351157405_) + (_e157352157410_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '7 gxc#!class::t '#f))) - (_struct?157409_ _e157348157406_) - (_e157349157411_ + (_struct?157413_ _e157352157410_) + (_e157353157415_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '8 gxc#!class::t '#f))) - (_final?157414_ _e157349157411_) - (_e157350157416_ + (_final?157418_ _e157353157415_) + (_e157354157420_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '9 gxc#!class::t '#f))) - (_system?157419_ _e157350157416_) - (_e157351157421_ + (_system?157423_ _e157354157420_) + (_e157355157425_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '10 gxc#!class::t '#f))) - (_metaclass157424_ _e157351157421_) - (_e157352157426_ + (_metaclass157428_ _e157355157425_) + (_e157356157430_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157338157354_ + _self157342157358_ '11 gxc#!class::t '#f))) - (_methods157429_ _e157352157426_)) + (_methods157433_ _e157356157430_)) (declare (not safe)) - (_K157341157373_ - _methods157429_ - _metaclass157424_ - _system?157419_ - _final?157414_ - _struct?157409_ - _constructor157404_ - _fields157399_ - _slots157394_ - _precendence-list157389_ - _super157384_ - _id157379_)) - (let () (declare (not safe)) (_E157340157358_)))))) + (_K157345157377_ + _methods157433_ + _metaclass157428_ + _system?157423_ + _final?157418_ + _struct?157413_ + _constructor157408_ + _fields157403_ + _slots157398_ + _precendence-list157393_ + _super157388_ + _id157383_)) + (let () (declare (not safe)) (_E157344157362_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self157191_) - (let* ((_self157192157198_ _self157191_) - (_E157194157202_ + (lambda (_self157195_) + (let* ((_self157196157202_ _self157195_) + (_E157198157206_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self157192157198_)))) - (_K157195157207_ - (lambda (_klass-id157205_) - (let ((__tmp158824 + (error '"No clause matching" _self157196157202_)))) + (_K157199157211_ + (lambda (_klass-id157209_) + (let ((__tmp158828 (let () (declare (not safe)) - (cons _klass-id157205_ '())))) + (cons _klass-id157209_ '())))) (declare (not safe)) - (cons '@predicate __tmp158824))))) + (cons '@predicate __tmp158828))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self157192157198_ + _self157196157202_ 'gxc#!predicate::t)) - (let* ((_e157196157210_ + (let* ((_e157200157214_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157192157198_ + _self157196157202_ '1 gxc#!type::t '#f))) - (_klass-id157213_ _e157196157210_)) + (_klass-id157217_ _e157200157214_)) (declare (not safe)) - (_K157195157207_ _klass-id157213_)) - (let () (declare (not safe)) (_E157194157202_)))))) + (_K157199157211_ _klass-id157217_)) + (let () (declare (not safe)) (_E157198157206_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1835,38 +1835,38 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_self157045_) - (let* ((_self157046157052_ _self157045_) - (_E157048157056_ + (lambda (_self157049_) + (let* ((_self157050157056_ _self157049_) + (_E157052157060_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self157046157052_)))) - (_K157049157061_ - (lambda (_klass-id157059_) - (let ((__tmp158825 + (error '"No clause matching" _self157050157056_)))) + (_K157053157065_ + (lambda (_klass-id157063_) + (let ((__tmp158829 (let () (declare (not safe)) - (cons _klass-id157059_ '())))) + (cons _klass-id157063_ '())))) (declare (not safe)) - (cons '@constructor __tmp158825))))) + (cons '@constructor __tmp158829))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self157046157052_ + _self157050157056_ 'gxc#!constructor::t)) - (let* ((_e157050157064_ + (let* ((_e157054157068_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157046157052_ + _self157050157056_ '1 gxc#!type::t '#f))) - (_klass-id157067_ _e157050157064_)) + (_klass-id157071_ _e157054157068_)) (declare (not safe)) - (_K157049157061_ _klass-id157067_)) - (let () (declare (not safe)) (_E157048157056_)))))) + (_K157053157065_ _klass-id157071_)) + (let () (declare (not safe)) (_E157052157060_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1875,305 +1875,305 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self156885_) - (let* ((_self156886156894_ _self156885_) - (_E156888156898_ + (lambda (_self156889_) + (let* ((_self156890156898_ _self156889_) + (_E156892156902_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156886156894_)))) - (_K156889156905_ - (lambda (_checked?156901_ _slot156902_ _klass-id156903_) - (let ((__tmp158826 - (let ((__tmp158827 - (let ((__tmp158828 + (error '"No clause matching" _self156890156898_)))) + (_K156893156909_ + (lambda (_checked?156905_ _slot156906_ _klass-id156907_) + (let ((__tmp158830 + (let ((__tmp158831 + (let ((__tmp158832 (let () (declare (not safe)) - (cons _checked?156901_ '())))) + (cons _checked?156905_ '())))) (declare (not safe)) - (cons _slot156902_ __tmp158828)))) + (cons _slot156906_ __tmp158832)))) (declare (not safe)) - (cons _klass-id156903_ __tmp158827)))) + (cons _klass-id156907_ __tmp158831)))) (declare (not safe)) - (cons '@accessor __tmp158826))))) + (cons '@accessor __tmp158830))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self156886156894_ + _self156890156898_ 'gxc#!accessor::t)) - (let* ((_e156890156908_ + (let* ((_e156894156912_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156886156894_ + _self156890156898_ '1 gxc#!type::t '#f))) - (_klass-id156911_ _e156890156908_) - (_e156891156913_ + (_klass-id156915_ _e156894156912_) + (_e156895156917_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156886156894_ + _self156890156898_ '2 gxc#!accessor::t '#f))) - (_slot156916_ _e156891156913_) - (_e156892156918_ + (_slot156920_ _e156895156917_) + (_e156896156922_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156886156894_ + _self156890156898_ '3 gxc#!accessor::t '#f))) - (_checked?156921_ _e156892156918_)) + (_checked?156925_ _e156896156922_)) (declare (not safe)) - (_K156889156905_ - _checked?156921_ - _slot156916_ - _klass-id156911_)) - (let () (declare (not safe)) (_E156888156898_)))))) + (_K156893156909_ + _checked?156925_ + _slot156920_ + _klass-id156915_)) + (let () (declare (not safe)) (_E156892156902_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self156725_) - (let* ((_self156726156734_ _self156725_) - (_E156728156738_ + (lambda (_self156729_) + (let* ((_self156730156738_ _self156729_) + (_E156732156742_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156726156734_)))) - (_K156729156745_ - (lambda (_checked?156741_ _slot156742_ _klass-id156743_) - (let ((__tmp158829 - (let ((__tmp158830 - (let ((__tmp158831 + (error '"No clause matching" _self156730156738_)))) + (_K156733156749_ + (lambda (_checked?156745_ _slot156746_ _klass-id156747_) + (let ((__tmp158833 + (let ((__tmp158834 + (let ((__tmp158835 (let () (declare (not safe)) - (cons _checked?156741_ '())))) + (cons _checked?156745_ '())))) (declare (not safe)) - (cons _slot156742_ __tmp158831)))) + (cons _slot156746_ __tmp158835)))) (declare (not safe)) - (cons _klass-id156743_ __tmp158830)))) + (cons _klass-id156747_ __tmp158834)))) (declare (not safe)) - (cons '@mutator __tmp158829))))) + (cons '@mutator __tmp158833))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self156726156734_ 'gxc#!mutator::t)) - (let* ((_e156730156748_ + (##structure-instance-of? _self156730156738_ 'gxc#!mutator::t)) + (let* ((_e156734156752_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156726156734_ + _self156730156738_ '1 gxc#!type::t '#f))) - (_klass-id156751_ _e156730156748_) - (_e156731156753_ + (_klass-id156755_ _e156734156752_) + (_e156735156757_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156726156734_ + _self156730156738_ '2 gxc#!mutator::t '#f))) - (_slot156756_ _e156731156753_) - (_e156732156758_ + (_slot156760_ _e156735156757_) + (_e156736156762_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156726156734_ + _self156730156738_ '3 gxc#!mutator::t '#f))) - (_checked?156761_ _e156732156758_)) + (_checked?156765_ _e156736156762_)) (declare (not safe)) - (_K156729156745_ - _checked?156761_ - _slot156756_ - _klass-id156751_)) - (let () (declare (not safe)) (_E156728156738_)))))) + (_K156733156749_ + _checked?156765_ + _slot156760_ + _klass-id156755_)) + (let () (declare (not safe)) (_E156732156742_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self156551_) - (let* ((_self156552156562_ _self156551_) - (_E156554156566_ + (lambda (_self156555_) + (let* ((_self156556156566_ _self156555_) + (_E156558156570_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156552156562_)))) - (_K156555156577_ - (lambda (_typedecl156569_ - _inline156570_ - _dispatch156571_ - _arity156572_) - (if _inline156570_ - (let ((_$e156574_ _typedecl156569_)) - (if _$e156574_ - _$e156574_ + (error '"No clause matching" _self156556156566_)))) + (_K156559156581_ + (lambda (_typedecl156573_ + _inline156574_ + _dispatch156575_ + _arity156576_) + (if _inline156574_ + (let ((_$e156578_ _typedecl156573_)) + (if _$e156578_ + _$e156578_ (let () (declare (not safe)) (error '"Cannot generate typedecl for inline rules")))) - (let ((__tmp158832 - (let ((__tmp158833 + (let ((__tmp158836 + (let ((__tmp158837 (let () (declare (not safe)) - (cons _dispatch156571_ '())))) + (cons _dispatch156575_ '())))) (declare (not safe)) - (cons _arity156572_ __tmp158833)))) + (cons _arity156576_ __tmp158837)))) (declare (not safe)) - (cons '@lambda __tmp158832)))))) + (cons '@lambda __tmp158836)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self156552156562_ 'gxc#!lambda::t)) - (let* ((_e156556156580_ + (##structure-instance-of? _self156556156566_ 'gxc#!lambda::t)) + (let* ((_e156560156584_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156552156562_ + _self156556156566_ '1 gxc#!type::t '#f))) - (_e156557156583_ + (_e156561156587_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156552156562_ + _self156556156566_ '2 gxc#!lambda::t '#f))) - (_arity156586_ _e156557156583_) - (_e156558156588_ + (_arity156590_ _e156561156587_) + (_e156562156592_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156552156562_ + _self156556156566_ '3 gxc#!lambda::t '#f))) - (_dispatch156591_ _e156558156588_) - (_e156559156593_ + (_dispatch156595_ _e156562156592_) + (_e156563156597_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156552156562_ + _self156556156566_ '4 gxc#!lambda::t '#f))) - (_inline156596_ _e156559156593_) - (_e156560156598_ + (_inline156600_ _e156563156597_) + (_e156564156602_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156552156562_ + _self156556156566_ '5 gxc#!lambda::t '#f))) - (_typedecl156601_ _e156560156598_)) + (_typedecl156605_ _e156564156602_)) (declare (not safe)) - (_K156555156577_ - _typedecl156601_ - _inline156596_ - _dispatch156591_ - _arity156586_)) - (let () (declare (not safe)) (_E156554156566_)))))) + (_K156559156581_ + _typedecl156605_ + _inline156600_ + _dispatch156595_ + _arity156590_)) + (let () (declare (not safe)) (_E156558156570_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self156362_) - (letrec ((_clause-e156364_ - (lambda (_clause156394_) - (let* ((_clause156395156403_ _clause156394_) - (_E156397156407_ + (lambda (_self156366_) + (letrec ((_clause-e156368_ + (lambda (_clause156398_) + (let* ((_clause156399156407_ _clause156398_) + (_E156401156411_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause156395156403_)))) - (_K156398156413_ - (lambda (_dispatch156410_ _arity156411_) - (let ((__tmp158834 + _clause156399156407_)))) + (_K156402156417_ + (lambda (_dispatch156414_ _arity156415_) + (let ((__tmp158838 (let () (declare (not safe)) - (cons _dispatch156410_ '())))) + (cons _dispatch156414_ '())))) (declare (not safe)) - (cons _arity156411_ __tmp158834))))) + (cons _arity156415_ __tmp158838))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause156395156403_ + _clause156399156407_ 'gxc#!lambda::t)) - (let* ((_e156399156416_ + (let* ((_e156403156420_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause156395156403_ + _clause156399156407_ '1 gxc#!type::t '#f))) - (_e156400156419_ + (_e156404156423_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause156395156403_ + _clause156399156407_ '2 gxc#!lambda::t '#f))) - (_arity156422_ _e156400156419_) - (_e156401156424_ + (_arity156426_ _e156404156423_) + (_e156405156428_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause156395156403_ + _clause156399156407_ '3 gxc#!lambda::t '#f))) - (_dispatch156427_ _e156401156424_)) + (_dispatch156431_ _e156405156428_)) (declare (not safe)) - (_K156398156413_ _dispatch156427_ _arity156422_)) - (let () (declare (not safe)) (_E156397156407_))))))) - (let* ((_self156365156372_ _self156362_) - (_E156367156376_ + (_K156402156417_ _dispatch156431_ _arity156426_)) + (let () (declare (not safe)) (_E156401156411_))))))) + (let* ((_self156369156376_ _self156366_) + (_E156371156380_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156365156372_)))) - (_K156368156383_ - (lambda (_clauses156379_) - (let ((_clauses156381_ - (map _clause-e156364_ _clauses156379_))) + (error '"No clause matching" _self156369156376_)))) + (_K156372156387_ + (lambda (_clauses156383_) + (let ((_clauses156385_ + (map _clause-e156368_ _clauses156383_))) (declare (not safe)) - (cons '@case-lambda _clauses156381_))))) + (cons '@case-lambda _clauses156385_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self156365156372_ + _self156369156376_ 'gxc#!case-lambda::t)) - (let* ((_e156369156386_ + (let* ((_e156373156390_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156365156372_ + _self156369156376_ '1 gxc#!type::t '#f))) - (_e156370156389_ + (_e156374156393_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156365156372_ + _self156369156376_ '2 gxc#!case-lambda::t '#f))) - (_clauses156392_ _e156370156389_)) + (_clauses156396_ _e156374156393_)) (declare (not safe)) - (_K156368156383_ _clauses156392_)) - (let () (declare (not safe)) (_E156367156376_))))))) + (_K156372156387_ _clauses156396_)) + (let () (declare (not safe)) (_E156371156380_))))))) (let () (declare (not safe)) (bind-method!__% @@ -2182,58 +2182,58 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self156205_) - (let* ((_self156206156214_ _self156205_) - (_E156208156218_ + (lambda (_self156209_) + (let* ((_self156210156218_ _self156209_) + (_E156212156222_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156206156214_)))) - (_K156209156224_ - (lambda (_dispatch156221_ _table156222_) - (let ((__tmp158835 - (let ((__tmp158836 + (error '"No clause matching" _self156210156218_)))) + (_K156213156228_ + (lambda (_dispatch156225_ _table156226_) + (let ((__tmp158839 + (let ((__tmp158840 (let () (declare (not safe)) - (cons _dispatch156221_ '())))) + (cons _dispatch156225_ '())))) (declare (not safe)) - (cons _table156222_ __tmp158836)))) + (cons _table156226_ __tmp158840)))) (declare (not safe)) - (cons '@kw-lambda __tmp158835))))) + (cons '@kw-lambda __tmp158839))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self156206156214_ + _self156210156218_ 'gxc#!kw-lambda::t)) - (let* ((_e156210156227_ + (let* ((_e156214156231_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156206156214_ + _self156210156218_ '1 gxc#!type::t '#f))) - (_e156211156230_ + (_e156215156234_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156206156214_ + _self156210156218_ '2 gxc#!kw-lambda::t '#f))) - (_table156233_ _e156211156230_) - (_e156212156235_ + (_table156237_ _e156215156234_) + (_e156216156239_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156206156214_ + _self156210156218_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch156238_ _e156212156235_)) + (_dispatch156242_ _e156216156239_)) (declare (not safe)) - (_K156209156224_ _dispatch156238_ _table156233_)) - (let () (declare (not safe)) (_E156208156218_)))))) + (_K156213156228_ _dispatch156242_ _table156237_)) + (let () (declare (not safe)) (_E156212156222_)))))) (let () (declare (not safe)) (bind-method!__% @@ -2242,58 +2242,58 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self156048_) - (let* ((_self156049156057_ _self156048_) - (_E156051156061_ + (lambda (_self156052_) + (let* ((_self156053156061_ _self156052_) + (_E156055156065_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156049156057_)))) - (_K156052156067_ - (lambda (_main156064_ _keys156065_) - (let ((__tmp158837 - (let ((__tmp158838 + (error '"No clause matching" _self156053156061_)))) + (_K156056156071_ + (lambda (_main156068_ _keys156069_) + (let ((__tmp158841 + (let ((__tmp158842 (let () (declare (not safe)) - (cons _main156064_ '())))) + (cons _main156068_ '())))) (declare (not safe)) - (cons _keys156065_ __tmp158838)))) + (cons _keys156069_ __tmp158842)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp158837))))) + (cons '@kw-lambda-dispatch __tmp158841))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self156049156057_ + _self156053156061_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e156053156070_ + (let* ((_e156057156074_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156049156057_ + _self156053156061_ '1 gxc#!type::t '#f))) - (_e156054156073_ + (_e156058156077_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156049156057_ + _self156053156061_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys156076_ _e156054156073_) - (_e156055156078_ + (_keys156080_ _e156058156077_) + (_e156059156082_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156049156057_ + _self156053156061_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main156081_ _e156055156078_)) + (_main156085_ _e156059156082_)) (declare (not safe)) - (_K156052156067_ _main156081_ _keys156076_)) - (let () (declare (not safe)) (_E156051156061_)))))) + (_K156056156071_ _main156085_ _keys156080_)) + (let () (declare (not safe)) (_E156055156065_)))))) (let () (declare (not safe)) (bind-method!__% diff --git a/src/bootstrap/gerbil/compiler/optimize~1.scm b/src/bootstrap/gerbil/compiler/optimize~1.scm index 8163d981c..9ee1d52e0 100644 --- a/src/bootstrap/gerbil/compiler/optimize~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize~1.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g158841_| + (define |gxc[1]#_g158845_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158843_| + (define |gxc[1]#_g158847_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158845_| + (define |gxc[1]#_g158849_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158847_| + (define |gxc[1]#_g158851_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj158755 + (let ((__obj158759 (let () (declare (not safe)) (##structure @@ -53,7 +53,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 'gxc#::generate-ssxi::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -61,7 +61,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '::generate-ssxi '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -69,26 +69,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp158839 - (let ((__tmp158840 |gxc[1]#_g158841_|)) + (let ((__tmp158843 + (let ((__tmp158844 |gxc[1]#_g158845_|)) (declare (not safe)) - (cons __tmp158840 '())))) + (cons __tmp158844 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj158755 - __tmp158839 + __obj158759 + __tmp158843 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -96,7 +96,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -104,7 +104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -112,39 +112,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp158842 |gxc[1]#_g158843_|)) + (let ((__tmp158846 |gxc[1]#_g158847_|)) (declare (not safe)) (##unchecked-structure-set! - __obj158755 - __tmp158842 + __obj158759 + __tmp158846 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp158844 |gxc[1]#_g158845_|)) + (let ((__tmp158848 |gxc[1]#_g158849_|)) (declare (not safe)) (##unchecked-structure-set! - __obj158755 - __tmp158844 + __obj158759 + __tmp158848 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp158846 |gxc[1]#_g158847_|)) + (let ((__tmp158850 |gxc[1]#_g158851_|)) (declare (not safe)) (##unchecked-structure-set! - __obj158755 - __tmp158846 + __obj158759 + __tmp158850 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -152,7 +152,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -160,7 +160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -168,9 +168,9 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158755 + __obj158759 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj158755))) + __obj158759))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index a8f80e5c8..a09503ae3 100644 --- a/src/bootstrap/gerbil/compiler/ssxi~1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi~1.scm @@ -1,4619 +1,4619 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx160658_) - (let* ((_g160662160680_ - (lambda (_g160663160676_) + (lambda (_$stx160662_) + (let* ((_g160666160684_ + (lambda (_g160667160680_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160663160676_)))) - (_g160661160735_ - (lambda (_g160663160684_) + _g160667160680_)))) + (_g160665160739_ + (lambda (_g160667160688_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160663160684_)) - (let ((_e160668160687_ + (gx#stx-pair? _g160667160688_)) + (let ((_e160672160691_ (let () (declare (not safe)) - (gx#syntax-e _g160663160684_)))) - (let ((_hd160667160691_ + (gx#syntax-e _g160667160688_)))) + (let ((_hd160671160695_ (let () (declare (not safe)) - (##car _e160668160687_))) - (_tl160666160694_ + (##car _e160672160691_))) + (_tl160670160698_ (let () (declare (not safe)) - (##cdr _e160668160687_)))) + (##cdr _e160672160691_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160666160694_)) - (let ((_e160671160697_ + (gx#stx-pair? _tl160670160698_)) + (let ((_e160675160701_ (let () (declare (not safe)) - (gx#syntax-e _tl160666160694_)))) - (let ((_hd160670160701_ + (gx#syntax-e _tl160670160698_)))) + (let ((_hd160674160705_ (let () (declare (not safe)) - (##car _e160671160697_))) - (_tl160669160704_ + (##car _e160675160701_))) + (_tl160673160708_ (let () (declare (not safe)) - (##cdr _e160671160697_)))) + (##cdr _e160675160701_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160669160704_)) - (let ((_e160674160707_ + (gx#stx-pair? _tl160673160708_)) + (let ((_e160678160711_ (let () (declare (not safe)) - (gx#syntax-e _tl160669160704_)))) - (let ((_hd160673160711_ + (gx#syntax-e _tl160673160708_)))) + (let ((_hd160677160715_ (let () (declare (not safe)) - (##car _e160674160707_))) - (_tl160672160714_ + (##car _e160678160711_))) + (_tl160676160718_ (let () (declare (not safe)) - (##cdr _e160674160707_)))) + (##cdr _e160678160711_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160672160714_)) - ((lambda (_L160717_ _L160719_) + (gx#stx-null? _tl160676160718_)) + ((lambda (_L160721_ _L160723_) (if (let () (declare (not safe)) (gx#identifier? - _L160719_)) - (let ((__tmp164217 + _L160723_)) + (let ((__tmp164221 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp164212 - (let ((__tmp164214 + (__tmp164216 + (let ((__tmp164218 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp164216 + (let ((__tmp164220 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164215 + (__tmp164219 (let () (declare (not safe)) - (cons _L160719_ '())))) + (cons _L160723_ '())))) (declare (not safe)) - (cons __tmp164216 __tmp164215))) - (__tmp164213 - (let () (declare (not safe)) (cons _L160717_ '())))) + (cons __tmp164220 __tmp164219))) + (__tmp164217 + (let () (declare (not safe)) (cons _L160721_ '())))) (declare (not safe)) - (cons __tmp164214 __tmp164213)))) + (cons __tmp164218 __tmp164217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164217 - __tmp164212)) - (_g160662160680_ - _g160663160684_))) - _hd160673160711_ - _hd160670160701_) - (_g160662160680_ - _g160663160684_)))) - (_g160662160680_ _g160663160684_)))) - (_g160662160680_ _g160663160684_)))) - (_g160662160680_ _g160663160684_))))) - (_g160661160735_ _$stx160658_)))) + (cons __tmp164221 + __tmp164216)) + (_g160666160684_ + _g160667160688_))) + _hd160677160715_ + _hd160674160705_) + (_g160666160684_ + _g160667160688_)))) + (_g160666160684_ _g160667160688_)))) + (_g160666160684_ _g160667160688_)))) + (_g160666160684_ _g160667160688_))))) + (_g160665160739_ _$stx160662_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx160739_) - (let* ((_g160743160772_ - (lambda (_g160744160768_) + (lambda (_$stx160743_) + (let* ((_g160747160776_ + (lambda (_g160748160772_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160744160768_)))) - (_g160742160872_ - (lambda (_g160744160776_) + _g160748160772_)))) + (_g160746160876_ + (lambda (_g160748160780_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160744160776_)) - (let ((_e160749160779_ + (gx#stx-pair? _g160748160780_)) + (let ((_e160753160783_ (let () (declare (not safe)) - (gx#syntax-e _g160744160776_)))) - (let ((_hd160748160783_ + (gx#syntax-e _g160748160780_)))) + (let ((_hd160752160787_ (let () (declare (not safe)) - (##car _e160749160779_))) - (_tl160747160786_ + (##car _e160753160783_))) + (_tl160751160790_ (let () (declare (not safe)) - (##cdr _e160749160779_)))) + (##cdr _e160753160783_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160747160786_)) - (let ((_g164218_ + (gx#stx-pair/null? _tl160751160790_)) + (let ((_g164222_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160747160786_ + _tl160751160790_ '0)))) (begin - (let ((_g164219_ + (let ((_g164223_ (let () (declare (not safe)) - (if (##values? _g164218_) - (##vector-length _g164218_) + (if (##values? _g164222_) + (##vector-length _g164222_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164219_ 2))) + (##fx= _g164223_ 2))) (error "Context expects 2 values" - _g164219_))) - (let ((_target160750160789_ + _g164223_))) + (let ((_target160754160793_ (let () (declare (not safe)) - (##vector-ref _g164218_ 0))) - (_tl160752160792_ + (##vector-ref _g164222_ 0))) + (_tl160756160796_ (let () (declare (not safe)) - (##vector-ref _g164218_ 1)))) + (##vector-ref _g164222_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160752160792_)) - (letrec ((_loop160753160795_ - (lambda (_hd160751160799_ - _type160757160802_ - _symbol160758160804_) + (gx#stx-null? _tl160756160796_)) + (letrec ((_loop160757160799_ + (lambda (_hd160755160803_ + _type160761160806_ + _symbol160762160808_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd160751160799_)) - (let ((_e160754160807_ + _hd160755160803_)) + (let ((_e160758160811_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd160751160799_)))) - (let ((_lp-hd160755160811_ - (let () (declare (not safe)) (##car _e160754160807_))) - (_lp-tl160756160814_ - (let () (declare (not safe)) (##cdr _e160754160807_)))) + (gx#syntax-e _hd160755160803_)))) + (let ((_lp-hd160759160815_ + (let () (declare (not safe)) (##car _e160758160811_))) + (_lp-tl160760160818_ + (let () (declare (not safe)) (##cdr _e160758160811_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd160755160811_)) - (let ((_e160763160817_ + (gx#stx-pair? _lp-hd160759160815_)) + (let ((_e160767160821_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd160755160811_)))) - (let ((_hd160762160821_ + (gx#syntax-e _lp-hd160759160815_)))) + (let ((_hd160766160825_ (let () (declare (not safe)) - (##car _e160763160817_))) - (_tl160761160824_ + (##car _e160767160821_))) + (_tl160765160828_ (let () (declare (not safe)) - (##cdr _e160763160817_)))) + (##cdr _e160767160821_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160761160824_)) - (let ((_e160766160827_ + (gx#stx-pair? _tl160765160828_)) + (let ((_e160770160831_ (let () (declare (not safe)) - (gx#syntax-e _tl160761160824_)))) - (let ((_hd160765160831_ + (gx#syntax-e _tl160765160828_)))) + (let ((_hd160769160835_ (let () (declare (not safe)) - (##car _e160766160827_))) - (_tl160764160834_ + (##car _e160770160831_))) + (_tl160768160838_ (let () (declare (not safe)) - (##cdr _e160766160827_)))) + (##cdr _e160770160831_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160764160834_)) - (_loop160753160795_ - _lp-tl160756160814_ + (gx#stx-null? _tl160768160838_)) + (_loop160757160799_ + _lp-tl160760160818_ (let () (declare (not safe)) - (cons _hd160765160831_ - _type160757160802_)) + (cons _hd160769160835_ + _type160761160806_)) (let () (declare (not safe)) - (cons _hd160762160821_ - _symbol160758160804_))) - (_g160743160772_ _g160744160776_)))) - (_g160743160772_ _g160744160776_)))) - (_g160743160772_ _g160744160776_)))) - (let ((_type160759160837_ (reverse _type160757160802_)) - (_symbol160760160840_ (reverse _symbol160758160804_))) - ((lambda (_L160843_ _L160845_) - (let ((__tmp164226 + (cons _hd160766160825_ + _symbol160762160808_))) + (_g160747160776_ _g160748160780_)))) + (_g160747160776_ _g160748160780_)))) + (_g160747160776_ _g160748160780_)))) + (let ((_type160763160841_ (reverse _type160761160806_)) + (_symbol160764160844_ (reverse _symbol160762160808_))) + ((lambda (_L160847_ _L160849_) + (let ((__tmp164230 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164220 + (__tmp164224 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L160843_ - _L160845_)) - (let ((__tmp164221 - (lambda (_g160860160864_ - _g160861160867_ - _g160862160869_) - (let ((__tmp164222 - (let ((__tmp164225 + _L160847_ + _L160849_)) + (let ((__tmp164225 + (lambda (_g160864160868_ + _g160865160871_ + _g160866160873_) + (let ((__tmp164226 + (let ((__tmp164229 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164223 - (let ((__tmp164224 + (__tmp164227 + (let ((__tmp164228 (let () (declare (not safe)) - (cons _g160860160864_ + (cons _g160864160868_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g160861160867_ - __tmp164224)))) + (cons _g160865160871_ + __tmp164228)))) (declare (not safe)) - (cons __tmp164225 __tmp164223)))) + (cons __tmp164229 __tmp164227)))) (declare (not safe)) - (cons __tmp164222 _g160862160869_))))) + (cons __tmp164226 _g160866160873_))))) (declare (not safe)) - (foldr2 __tmp164221 '() _L160843_ _L160845_))))) + (foldr2 __tmp164225 '() _L160847_ _L160849_))))) (declare (not safe)) - (cons __tmp164226 __tmp164220))) - _type160759160837_ - _symbol160760160840_)))))) + (cons __tmp164230 __tmp164224))) + _type160763160841_ + _symbol160764160844_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop160753160795_ - _target160750160789_ + (_loop160757160799_ + _target160754160793_ '() '())) - (_g160743160772_ _g160744160776_))))) - (_g160743160772_ _g160744160776_)))) - (_g160743160772_ _g160744160776_))))) - (_g160742160872_ _$stx160739_)))) + (_g160747160776_ _g160748160780_))))) + (_g160747160776_ _g160748160780_)))) + (_g160747160776_ _g160748160780_))))) + (_g160746160876_ _$stx160743_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx160877_) - (let* ((___stx163777163778_ _$stx160877_) - (_g160882160924_ + (lambda (_$stx160881_) + (let* ((___stx163781163782_ _$stx160881_) + (_g160886160928_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx163777163778_))))) - (let ((___kont163780163781_ - (lambda (_L161052_ _L161054_ _L161055_ _L161056_) - (let ((__tmp164240 + ___stx163781163782_))))) + (let ((___kont163784163785_ + (lambda (_L161056_ _L161058_ _L161059_ _L161060_) + (let ((__tmp164244 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp164227 - (let ((__tmp164237 - (let ((__tmp164239 + (__tmp164231 + (let ((__tmp164241 + (let ((__tmp164243 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164238 + (__tmp164242 (let () (declare (not safe)) - (cons _L161056_ '())))) + (cons _L161060_ '())))) (declare (not safe)) - (cons __tmp164239 __tmp164238))) - (__tmp164228 - (let ((__tmp164234 - (let ((__tmp164236 + (cons __tmp164243 __tmp164242))) + (__tmp164232 + (let ((__tmp164238 + (let ((__tmp164240 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164235 + (__tmp164239 (let () (declare (not safe)) - (cons _L161055_ '())))) + (cons _L161059_ '())))) (declare (not safe)) - (cons __tmp164236 __tmp164235))) - (__tmp164229 - (let ((__tmp164231 - (let ((__tmp164233 + (cons __tmp164240 __tmp164239))) + (__tmp164233 + (let ((__tmp164235 + (let ((__tmp164237 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164232 + (__tmp164236 (let () (declare (not safe)) - (cons _L161054_ '())))) + (cons _L161058_ '())))) (declare (not safe)) - (cons __tmp164233 __tmp164232))) - (__tmp164230 + (cons __tmp164237 __tmp164236))) + (__tmp164234 (let () (declare (not safe)) - (cons _L161052_ '())))) + (cons _L161056_ '())))) (declare (not safe)) - (cons __tmp164231 __tmp164230)))) + (cons __tmp164235 __tmp164234)))) (declare (not safe)) - (cons __tmp164234 __tmp164229)))) + (cons __tmp164238 __tmp164233)))) (declare (not safe)) - (cons __tmp164237 __tmp164228)))) + (cons __tmp164241 __tmp164232)))) (declare (not safe)) - (cons __tmp164240 __tmp164227)))) - (___kont163782163783_ - (lambda (_L160971_ _L160973_ _L160974_ _L160975_) - (let ((__tmp164241 - (let ((__tmp164242 - (let ((__tmp164243 - (let ((__tmp164244 - (let ((__tmp164245 + (cons __tmp164244 __tmp164231)))) + (___kont163786163787_ + (lambda (_L160975_ _L160977_ _L160978_ _L160979_) + (let ((__tmp164245 + (let ((__tmp164246 + (let ((__tmp164247 + (let ((__tmp164248 + (let ((__tmp164249 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp164245 '())))) + (cons __tmp164249 '())))) (declare (not safe)) - (cons _L160971_ __tmp164244)))) + (cons _L160975_ __tmp164248)))) (declare (not safe)) - (cons _L160973_ __tmp164243)))) + (cons _L160977_ __tmp164247)))) (declare (not safe)) - (cons _L160974_ __tmp164242)))) + (cons _L160978_ __tmp164246)))) (declare (not safe)) - (cons _L160975_ __tmp164241))))) - (let ((___match163816163817_ - (lambda (_e160890161002_ - _hd160889161006_ - _tl160888161009_ - _e160893161012_ - _hd160892161016_ - _tl160891161019_ - _e160896161022_ - _hd160895161026_ - _tl160894161029_ - _e160899161032_ - _hd160898161036_ - _tl160897161039_ - _e160902161042_ - _hd160901161046_ - _tl160900161049_) - (let ((_L161052_ _hd160901161046_) - (_L161054_ _hd160898161036_) - (_L161055_ _hd160895161026_) - (_L161056_ _hd160892161016_)) + (cons _L160979_ __tmp164245))))) + (let ((___match163820163821_ + (lambda (_e160894161006_ + _hd160893161010_ + _tl160892161013_ + _e160897161016_ + _hd160896161020_ + _tl160895161023_ + _e160900161026_ + _hd160899161030_ + _tl160898161033_ + _e160903161036_ + _hd160902161040_ + _tl160901161043_ + _e160906161046_ + _hd160905161050_ + _tl160904161053_) + (let ((_L161056_ _hd160905161050_) + (_L161058_ _hd160902161040_) + (_L161059_ _hd160899161030_) + (_L161060_ _hd160896161020_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L161056_)) + (gx#identifier? _L161060_)) (let () (declare (not safe)) - (gx#identifier? _L161055_)) + (gx#identifier? _L161059_)) (let () (declare (not safe)) - (gx#identifier? _L161054_))) - (___kont163780163781_ - _L161052_ - _L161054_ - _L161055_ - _L161056_) - (let () (declare (not safe)) (_g160882160924_))))))) + (gx#identifier? _L161058_))) + (___kont163784163785_ + _L161056_ + _L161058_ + _L161059_ + _L161060_) + (let () (declare (not safe)) (_g160886160928_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx163777163778_)) - (let ((_e160890161002_ + (gx#stx-pair? ___stx163781163782_)) + (let ((_e160894161006_ (let () (declare (not safe)) - (gx#syntax-e ___stx163777163778_)))) - (let ((_tl160888161009_ - (let () (declare (not safe)) (##cdr _e160890161002_))) - (_hd160889161006_ + (gx#syntax-e ___stx163781163782_)))) + (let ((_tl160892161013_ + (let () (declare (not safe)) (##cdr _e160894161006_))) + (_hd160893161010_ (let () (declare (not safe)) - (##car _e160890161002_)))) + (##car _e160894161006_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160888161009_)) - (let ((_e160893161012_ + (gx#stx-pair? _tl160892161013_)) + (let ((_e160897161016_ (let () (declare (not safe)) - (gx#syntax-e _tl160888161009_)))) - (let ((_tl160891161019_ + (gx#syntax-e _tl160892161013_)))) + (let ((_tl160895161023_ (let () (declare (not safe)) - (##cdr _e160893161012_))) - (_hd160892161016_ + (##cdr _e160897161016_))) + (_hd160896161020_ (let () (declare (not safe)) - (##car _e160893161012_)))) + (##car _e160897161016_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160891161019_)) - (let ((_e160896161022_ + (gx#stx-pair? _tl160895161023_)) + (let ((_e160900161026_ (let () (declare (not safe)) - (gx#syntax-e _tl160891161019_)))) - (let ((_tl160894161029_ + (gx#syntax-e _tl160895161023_)))) + (let ((_tl160898161033_ (let () (declare (not safe)) - (##cdr _e160896161022_))) - (_hd160895161026_ + (##cdr _e160900161026_))) + (_hd160899161030_ (let () (declare (not safe)) - (##car _e160896161022_)))) + (##car _e160900161026_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160894161029_)) - (let ((_e160899161032_ + (gx#stx-pair? _tl160898161033_)) + (let ((_e160903161036_ (let () (declare (not safe)) (gx#syntax-e - _tl160894161029_)))) - (let ((_tl160897161039_ + _tl160898161033_)))) + (let ((_tl160901161043_ (let () (declare (not safe)) - (##cdr _e160899161032_))) - (_hd160898161036_ + (##cdr _e160903161036_))) + (_hd160902161040_ (let () (declare (not safe)) - (##car _e160899161032_)))) + (##car _e160903161036_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160897161039_)) - (let ((_e160902161042_ + _tl160901161043_)) + (let ((_e160906161046_ (let () (declare (not safe)) (gx#syntax-e - _tl160897161039_)))) - (let ((_tl160900161049_ + _tl160901161043_)))) + (let ((_tl160904161053_ (let () (declare (not safe)) - (##cdr _e160902161042_))) - (_hd160901161046_ + (##cdr _e160906161046_))) + (_hd160905161050_ (let () (declare (not safe)) - (##car _e160902161042_)))) + (##car _e160906161046_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160900161049_)) - (___match163816163817_ - _e160890161002_ - _hd160889161006_ - _tl160888161009_ - _e160893161012_ - _hd160892161016_ - _tl160891161019_ - _e160896161022_ - _hd160895161026_ - _tl160894161029_ - _e160899161032_ - _hd160898161036_ - _tl160897161039_ - _e160902161042_ - _hd160901161046_ - _tl160900161049_) + _tl160904161053_)) + (___match163820163821_ + _e160894161006_ + _hd160893161010_ + _tl160892161013_ + _e160897161016_ + _hd160896161020_ + _tl160895161023_ + _e160900161026_ + _hd160899161030_ + _tl160898161033_ + _e160903161036_ + _hd160902161040_ + _tl160901161043_ + _e160906161046_ + _hd160905161050_ + _tl160904161053_) (let () (declare (not safe)) - (_g160882160924_))))) + (_g160886160928_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160897161039_)) - (___kont163782163783_ - _hd160898161036_ - _hd160895161026_ - _hd160892161016_ - _hd160889161006_) + _tl160901161043_)) + (___kont163786163787_ + _hd160902161040_ + _hd160899161030_ + _hd160896161020_ + _hd160893161010_) (let () (declare (not safe)) - (_g160882160924_)))))) + (_g160886160928_)))))) (let () (declare (not safe)) - (_g160882160924_))))) + (_g160886160928_))))) (let () (declare (not safe)) - (_g160882160924_))))) - (let () (declare (not safe)) (_g160882160924_))))) - (let () (declare (not safe)) (_g160882160924_)))))))) + (_g160886160928_))))) + (let () (declare (not safe)) (_g160886160928_))))) + (let () (declare (not safe)) (_g160886160928_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx161081_) - (let* ((_g161085161120_ - (lambda (_g161086161116_) + (lambda (_$stx161085_) + (let* ((_g161089161124_ + (lambda (_g161090161120_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161086161116_)))) - (_g161084161239_ - (lambda (_g161086161124_) + _g161090161120_)))) + (_g161088161243_ + (lambda (_g161090161128_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161086161124_)) - (let ((_e161092161127_ + (gx#stx-pair? _g161090161128_)) + (let ((_e161096161131_ (let () (declare (not safe)) - (gx#syntax-e _g161086161124_)))) - (let ((_hd161091161131_ + (gx#syntax-e _g161090161128_)))) + (let ((_hd161095161135_ (let () (declare (not safe)) - (##car _e161092161127_))) - (_tl161090161134_ + (##car _e161096161131_))) + (_tl161094161138_ (let () (declare (not safe)) - (##cdr _e161092161127_)))) + (##cdr _e161096161131_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161090161134_)) - (let ((_g164246_ + (gx#stx-pair/null? _tl161094161138_)) + (let ((_g164250_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161090161134_ + _tl161094161138_ '0)))) (begin - (let ((_g164247_ + (let ((_g164251_ (let () (declare (not safe)) - (if (##values? _g164246_) - (##vector-length _g164246_) + (if (##values? _g164250_) + (##vector-length _g164250_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164247_ 2))) + (##fx= _g164251_ 2))) (error "Context expects 2 values" - _g164247_))) - (let ((_target161093161137_ + _g164251_))) + (let ((_target161097161141_ (let () (declare (not safe)) - (##vector-ref _g164246_ 0))) - (_tl161095161140_ + (##vector-ref _g164250_ 0))) + (_tl161099161144_ (let () (declare (not safe)) - (##vector-ref _g164246_ 1)))) + (##vector-ref _g164250_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161095161140_)) - (letrec ((_loop161096161143_ - (lambda (_hd161094161147_ - _symbol161100161150_ - _method161101161152_ - _type-t161102161154_) + (gx#stx-null? _tl161099161144_)) + (letrec ((_loop161100161147_ + (lambda (_hd161098161151_ + _symbol161104161154_ + _method161105161156_ + _type-t161106161158_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161094161147_)) - (let ((_e161097161157_ + _hd161098161151_)) + (let ((_e161101161161_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd161094161147_)))) - (let ((_lp-hd161098161161_ - (let () (declare (not safe)) (##car _e161097161157_))) - (_lp-tl161099161164_ - (let () (declare (not safe)) (##cdr _e161097161157_)))) + (gx#syntax-e _hd161098161151_)))) + (let ((_lp-hd161102161165_ + (let () (declare (not safe)) (##car _e161101161161_))) + (_lp-tl161103161168_ + (let () (declare (not safe)) (##cdr _e161101161161_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161098161161_)) - (let ((_e161108161167_ + (gx#stx-pair? _lp-hd161102161165_)) + (let ((_e161112161171_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161098161161_)))) - (let ((_hd161107161171_ + (gx#syntax-e _lp-hd161102161165_)))) + (let ((_hd161111161175_ (let () (declare (not safe)) - (##car _e161108161167_))) - (_tl161106161174_ + (##car _e161112161171_))) + (_tl161110161178_ (let () (declare (not safe)) - (##cdr _e161108161167_)))) + (##cdr _e161112161171_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161106161174_)) - (let ((_e161111161177_ + (gx#stx-pair? _tl161110161178_)) + (let ((_e161115161181_ (let () (declare (not safe)) - (gx#syntax-e _tl161106161174_)))) - (let ((_hd161110161181_ + (gx#syntax-e _tl161110161178_)))) + (let ((_hd161114161185_ (let () (declare (not safe)) - (##car _e161111161177_))) - (_tl161109161184_ + (##car _e161115161181_))) + (_tl161113161188_ (let () (declare (not safe)) - (##cdr _e161111161177_)))) + (##cdr _e161115161181_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161109161184_)) - (let ((_e161114161187_ + (gx#stx-pair? _tl161113161188_)) + (let ((_e161118161191_ (let () (declare (not safe)) (gx#syntax-e - _tl161109161184_)))) - (let ((_hd161113161191_ + _tl161113161188_)))) + (let ((_hd161117161195_ (let () (declare (not safe)) - (##car _e161114161187_))) - (_tl161112161194_ + (##car _e161118161191_))) + (_tl161116161198_ (let () (declare (not safe)) - (##cdr _e161114161187_)))) + (##cdr _e161118161191_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161112161194_)) - (_loop161096161143_ - _lp-tl161099161164_ + _tl161116161198_)) + (_loop161100161147_ + _lp-tl161103161168_ (let () (declare (not safe)) - (cons _hd161113161191_ - _symbol161100161150_)) + (cons _hd161117161195_ + _symbol161104161154_)) (let () (declare (not safe)) - (cons _hd161110161181_ - _method161101161152_)) + (cons _hd161114161185_ + _method161105161156_)) (let () (declare (not safe)) - (cons _hd161107161171_ - _type-t161102161154_))) - (_g161085161120_ - _g161086161124_)))) - (_g161085161120_ _g161086161124_)))) - (_g161085161120_ _g161086161124_)))) - (_g161085161120_ _g161086161124_)))) - (let ((_symbol161103161197_ (reverse _symbol161100161150_)) - (_method161104161200_ (reverse _method161101161152_)) - (_type-t161105161202_ (reverse _type-t161102161154_))) - ((lambda (_L161205_ _L161207_ _L161208_) - (let ((__tmp164255 + (cons _hd161111161175_ + _type-t161106161158_))) + (_g161089161124_ + _g161090161128_)))) + (_g161089161124_ _g161090161128_)))) + (_g161089161124_ _g161090161128_)))) + (_g161089161124_ _g161090161128_)))) + (let ((_symbol161107161201_ (reverse _symbol161104161154_)) + (_method161108161204_ (reverse _method161105161156_)) + (_type-t161109161206_ (reverse _type-t161106161158_))) + ((lambda (_L161209_ _L161211_ _L161212_) + (let ((__tmp164259 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164248 + (__tmp164252 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161205_ - _L161207_ - _L161208_)) - (let ((__tmp164249 - (lambda (_g161224161229_ - _g161225161232_ - _g161226161234_ - _g161227161236_) - (let ((__tmp164250 - (let ((__tmp164254 + _L161209_ + _L161211_ + _L161212_)) + (let ((__tmp164253 + (lambda (_g161228161233_ + _g161229161236_ + _g161230161238_ + _g161231161240_) + (let ((__tmp164254 + (let ((__tmp164258 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp164251 - (let ((__tmp164252 - (let ((__tmp164253 + (__tmp164255 + (let ((__tmp164256 + (let ((__tmp164257 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g161224161229_ '())))) + (cons _g161228161233_ '())))) (declare (not safe)) - (cons _g161225161232_ __tmp164253)))) + (cons _g161229161236_ __tmp164257)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g161226161234_ - __tmp164252)))) + (cons _g161230161238_ + __tmp164256)))) (declare (not safe)) - (cons __tmp164254 __tmp164251)))) + (cons __tmp164258 __tmp164255)))) (declare (not safe)) - (cons __tmp164250 _g161227161236_))))) + (cons __tmp164254 _g161231161240_))))) (declare (not safe)) - (foldr* __tmp164249 + (foldr* __tmp164253 '() - _L161205_ - _L161207_ - _L161208_))))) + _L161209_ + _L161211_ + _L161212_))))) (declare (not safe)) - (cons __tmp164255 __tmp164248))) - _symbol161103161197_ - _method161104161200_ - _type-t161105161202_)))))) + (cons __tmp164259 __tmp164252))) + _symbol161107161201_ + _method161108161204_ + _type-t161109161206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161096161143_ - _target161093161137_ + (_loop161100161147_ + _target161097161141_ '() '() '())) - (_g161085161120_ _g161086161124_))))) - (_g161085161120_ _g161086161124_)))) - (_g161085161120_ _g161086161124_))))) - (_g161084161239_ _$stx161081_)))) + (_g161089161124_ _g161090161128_))))) + (_g161089161124_ _g161090161128_)))) + (_g161089161124_ _g161090161128_))))) + (_g161088161243_ _$stx161085_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx161244_) - (let* ((_g161248161281_ - (lambda (_g161249161277_) + (lambda (_$stx161248_) + (let* ((_g161252161285_ + (lambda (_g161253161281_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161249161277_)))) - (_g161247161395_ - (lambda (_g161249161285_) + _g161253161281_)))) + (_g161251161399_ + (lambda (_g161253161289_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161249161285_)) - (let ((_e161255161288_ + (gx#stx-pair? _g161253161289_)) + (let ((_e161259161292_ (let () (declare (not safe)) - (gx#syntax-e _g161249161285_)))) - (let ((_hd161254161292_ + (gx#syntax-e _g161253161289_)))) + (let ((_hd161258161296_ (let () (declare (not safe)) - (##car _e161255161288_))) - (_tl161253161295_ + (##car _e161259161292_))) + (_tl161257161299_ (let () (declare (not safe)) - (##cdr _e161255161288_)))) + (##cdr _e161259161292_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161253161295_)) - (let ((_e161258161298_ + (gx#stx-pair? _tl161257161299_)) + (let ((_e161262161302_ (let () (declare (not safe)) - (gx#syntax-e _tl161253161295_)))) - (let ((_hd161257161302_ + (gx#syntax-e _tl161257161299_)))) + (let ((_hd161261161306_ (let () (declare (not safe)) - (##car _e161258161298_))) - (_tl161256161305_ + (##car _e161262161302_))) + (_tl161260161309_ (let () (declare (not safe)) - (##cdr _e161258161298_)))) + (##cdr _e161262161302_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161256161305_)) - (let ((_g164256_ + (gx#stx-pair/null? _tl161260161309_)) + (let ((_g164260_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161256161305_ + _tl161260161309_ '0)))) (begin - (let ((_g164257_ + (let ((_g164261_ (let () (declare (not safe)) - (if (##values? _g164256_) + (if (##values? _g164260_) (##vector-length - _g164256_) + _g164260_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164257_ 2))) + (##fx= _g164261_ 2))) (error "Context expects 2 values" - _g164257_))) - (let ((_target161259161308_ + _g164261_))) + (let ((_target161263161312_ (let () (declare (not safe)) - (##vector-ref _g164256_ 0))) - (_tl161261161311_ + (##vector-ref _g164260_ 0))) + (_tl161265161315_ (let () (declare (not safe)) - (##vector-ref _g164256_ 1)))) + (##vector-ref _g164260_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161261161311_)) - (letrec ((_loop161262161314_ - (lambda (_hd161260161318_ + _tl161265161315_)) + (letrec ((_loop161266161318_ + (lambda (_hd161264161322_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol161266161321_ - _method161267161323_) + _symbol161270161325_ + _method161271161327_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd161260161318_)) - (let ((_e161263161326_ + (gx#stx-pair? _hd161264161322_)) + (let ((_e161267161330_ (let () (declare (not safe)) - (gx#syntax-e _hd161260161318_)))) - (let ((_lp-hd161264161330_ + (gx#syntax-e _hd161264161322_)))) + (let ((_lp-hd161268161334_ (let () (declare (not safe)) - (##car _e161263161326_))) - (_lp-tl161265161333_ + (##car _e161267161330_))) + (_lp-tl161269161337_ (let () (declare (not safe)) - (##cdr _e161263161326_)))) + (##cdr _e161267161330_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161264161330_)) - (let ((_e161272161336_ + (gx#stx-pair? _lp-hd161268161334_)) + (let ((_e161276161340_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161264161330_)))) - (let ((_hd161271161340_ + (gx#syntax-e _lp-hd161268161334_)))) + (let ((_hd161275161344_ (let () (declare (not safe)) - (##car _e161272161336_))) - (_tl161270161343_ + (##car _e161276161340_))) + (_tl161274161347_ (let () (declare (not safe)) - (##cdr _e161272161336_)))) + (##cdr _e161276161340_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161270161343_)) - (let ((_e161275161346_ + (gx#stx-pair? _tl161274161347_)) + (let ((_e161279161350_ (let () (declare (not safe)) (gx#syntax-e - _tl161270161343_)))) - (let ((_hd161274161350_ + _tl161274161347_)))) + (let ((_hd161278161354_ (let () (declare (not safe)) - (##car _e161275161346_))) - (_tl161273161353_ + (##car _e161279161350_))) + (_tl161277161357_ (let () (declare (not safe)) - (##cdr _e161275161346_)))) + (##cdr _e161279161350_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161273161353_)) - (_loop161262161314_ - _lp-tl161265161333_ + _tl161277161357_)) + (_loop161266161318_ + _lp-tl161269161337_ (let () (declare (not safe)) - (cons _hd161274161350_ - _symbol161266161321_)) + (cons _hd161278161354_ + _symbol161270161325_)) (let () (declare (not safe)) - (cons _hd161271161340_ - _method161267161323_))) - (_g161248161281_ - _g161249161285_)))) - (_g161248161281_ _g161249161285_)))) - (_g161248161281_ _g161249161285_)))) - (let ((_symbol161268161356_ - (reverse _symbol161266161321_)) - (_method161269161359_ - (reverse _method161267161323_))) - ((lambda (_L161362_ _L161364_ _L161365_) - (let ((__tmp164265 + (cons _hd161275161344_ + _method161271161327_))) + (_g161252161285_ + _g161253161289_)))) + (_g161252161285_ _g161253161289_)))) + (_g161252161285_ _g161253161289_)))) + (let ((_symbol161272161360_ + (reverse _symbol161270161325_)) + (_method161273161363_ + (reverse _method161271161327_))) + ((lambda (_L161366_ _L161368_ _L161369_) + (let ((__tmp164269 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164258 + (__tmp164262 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161362_ - _L161364_)) - (let ((__tmp164259 - (lambda (_g161383161387_ - _g161384161390_ - _g161385161392_) - (let ((__tmp164260 - (let ((__tmp164264 + _L161366_ + _L161368_)) + (let ((__tmp164263 + (lambda (_g161387161391_ + _g161388161394_ + _g161389161396_) + (let ((__tmp164264 + (let ((__tmp164268 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp164261 - (let ((__tmp164262 + (__tmp164265 + (let ((__tmp164266 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp164263 + (let ((__tmp164267 (let () (declare (not safe)) - (cons _g161383161387_ '())))) + (cons _g161387161391_ '())))) (declare (not safe)) - (cons _g161384161390_ __tmp164263)))) + (cons _g161388161394_ __tmp164267)))) (declare (not safe)) - (cons _L161365_ __tmp164262)))) + (cons _L161369_ __tmp164266)))) (declare (not safe)) - (cons __tmp164264 __tmp164261)))) + (cons __tmp164268 __tmp164265)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164260 - _g161385161392_))))) + (cons __tmp164264 + _g161389161396_))))) (declare (not safe)) - (foldr2 __tmp164259 + (foldr2 __tmp164263 '() - _L161362_ - _L161364_))))) + _L161366_ + _L161368_))))) (declare (not safe)) - (cons __tmp164265 __tmp164258))) - _symbol161268161356_ - _method161269161359_ - _hd161257161302_)))))) + (cons __tmp164269 __tmp164262))) + _symbol161272161360_ + _method161273161363_ + _hd161261161306_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161262161314_ - _target161259161308_ + (_loop161266161318_ + _target161263161312_ '() '())) - (_g161248161281_ - _g161249161285_))))) - (_g161248161281_ _g161249161285_)))) - (_g161248161281_ _g161249161285_)))) - (_g161248161281_ _g161249161285_))))) - (_g161247161395_ _$stx161244_)))) + (_g161252161285_ + _g161253161289_))))) + (_g161252161285_ _g161253161289_)))) + (_g161252161285_ _g161253161289_)))) + (_g161252161285_ _g161253161289_))))) + (_g161251161399_ _$stx161248_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx161400_) - (let* ((_g161404161418_ - (lambda (_g161405161414_) + (lambda (_$stx161404_) + (let* ((_g161408161422_ + (lambda (_g161409161418_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161405161414_)))) - (_g161403161459_ - (lambda (_g161405161422_) + _g161409161418_)))) + (_g161407161463_ + (lambda (_g161409161426_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161405161422_)) - (let ((_e161409161425_ + (gx#stx-pair? _g161409161426_)) + (let ((_e161413161429_ (let () (declare (not safe)) - (gx#syntax-e _g161405161422_)))) - (let ((_hd161408161429_ + (gx#syntax-e _g161409161426_)))) + (let ((_hd161412161433_ (let () (declare (not safe)) - (##car _e161409161425_))) - (_tl161407161432_ + (##car _e161413161429_))) + (_tl161411161436_ (let () (declare (not safe)) - (##cdr _e161409161425_)))) + (##cdr _e161413161429_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161407161432_)) - (let ((_e161412161435_ + (gx#stx-pair? _tl161411161436_)) + (let ((_e161416161439_ (let () (declare (not safe)) - (gx#syntax-e _tl161407161432_)))) - (let ((_hd161411161439_ + (gx#syntax-e _tl161411161436_)))) + (let ((_hd161415161443_ (let () (declare (not safe)) - (##car _e161412161435_))) - (_tl161410161442_ + (##car _e161416161439_))) + (_tl161414161446_ (let () (declare (not safe)) - (##cdr _e161412161435_)))) + (##cdr _e161416161439_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161410161442_)) - ((lambda (_L161445_) - (let ((__tmp164270 + (gx#stx-null? _tl161414161446_)) + ((lambda (_L161449_) + (let ((__tmp164274 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp164266 - (let ((__tmp164267 - (let ((__tmp164269 + (__tmp164270 + (let ((__tmp164271 + (let ((__tmp164273 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164268 + (__tmp164272 (let () (declare (not safe)) - (cons _L161445_ + (cons _L161449_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp164269 __tmp164268)))) + (cons __tmp164273 __tmp164272)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164267 '())))) + (cons __tmp164271 '())))) (declare (not safe)) - (cons __tmp164270 __tmp164266))) - _hd161411161439_) - (_g161404161418_ _g161405161422_)))) - (_g161404161418_ _g161405161422_)))) - (_g161404161418_ _g161405161422_))))) - (_g161403161459_ _$stx161400_)))) + (cons __tmp164274 __tmp164270))) + _hd161415161443_) + (_g161408161422_ _g161409161426_)))) + (_g161408161422_ _g161409161426_)))) + (_g161408161422_ _g161409161426_))))) + (_g161407161463_ _$stx161404_)))) (define |gxc[:0:]#@class| - (lambda (_$stx161463_) - (let* ((_g161467161521_ - (lambda (_g161468161517_) + (lambda (_$stx161467_) + (let* ((_g161471161525_ + (lambda (_g161472161521_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161468161517_)))) - (_g161466161702_ - (lambda (_g161468161525_) + _g161472161521_)))) + (_g161470161706_ + (lambda (_g161472161529_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161468161525_)) - (let ((_e161482161528_ + (gx#stx-pair? _g161472161529_)) + (let ((_e161486161532_ (let () (declare (not safe)) - (gx#syntax-e _g161468161525_)))) - (let ((_hd161481161532_ + (gx#syntax-e _g161472161529_)))) + (let ((_hd161485161536_ (let () (declare (not safe)) - (##car _e161482161528_))) - (_tl161480161535_ + (##car _e161486161532_))) + (_tl161484161539_ (let () (declare (not safe)) - (##cdr _e161482161528_)))) + (##cdr _e161486161532_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161480161535_)) - (let ((_e161485161538_ + (gx#stx-pair? _tl161484161539_)) + (let ((_e161489161542_ (let () (declare (not safe)) - (gx#syntax-e _tl161480161535_)))) - (let ((_hd161484161542_ + (gx#syntax-e _tl161484161539_)))) + (let ((_hd161488161546_ (let () (declare (not safe)) - (##car _e161485161538_))) - (_tl161483161545_ + (##car _e161489161542_))) + (_tl161487161549_ (let () (declare (not safe)) - (##cdr _e161485161538_)))) + (##cdr _e161489161542_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161483161545_)) - (let ((_e161488161548_ + (gx#stx-pair? _tl161487161549_)) + (let ((_e161492161552_ (let () (declare (not safe)) - (gx#syntax-e _tl161483161545_)))) - (let ((_hd161487161552_ + (gx#syntax-e _tl161487161549_)))) + (let ((_hd161491161556_ (let () (declare (not safe)) - (##car _e161488161548_))) - (_tl161486161555_ + (##car _e161492161552_))) + (_tl161490161559_ (let () (declare (not safe)) - (##cdr _e161488161548_)))) + (##cdr _e161492161552_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161486161555_)) - (let ((_e161491161558_ + (gx#stx-pair? _tl161490161559_)) + (let ((_e161495161562_ (let () (declare (not safe)) (gx#syntax-e - _tl161486161555_)))) - (let ((_hd161490161562_ + _tl161490161559_)))) + (let ((_hd161494161566_ (let () (declare (not safe)) - (##car _e161491161558_))) - (_tl161489161565_ + (##car _e161495161562_))) + (_tl161493161569_ (let () (declare (not safe)) - (##cdr _e161491161558_)))) + (##cdr _e161495161562_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl161489161565_)) - (let ((_e161494161568_ + _tl161493161569_)) + (let ((_e161498161572_ (let () (declare (not safe)) (gx#syntax-e - _tl161489161565_)))) - (let ((_hd161493161572_ + _tl161493161569_)))) + (let ((_hd161497161576_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e161494161568_))) - (_tl161492161575_ - (let () (declare (not safe)) (##cdr _e161494161568_)))) + (##car _e161498161572_))) + (_tl161496161579_ + (let () (declare (not safe)) (##cdr _e161498161572_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161492161575_)) - (let ((_e161497161578_ + (gx#stx-pair? _tl161496161579_)) + (let ((_e161501161582_ (let () (declare (not safe)) - (gx#syntax-e _tl161492161575_)))) - (let ((_hd161496161582_ + (gx#syntax-e _tl161496161579_)))) + (let ((_hd161500161586_ (let () (declare (not safe)) - (##car _e161497161578_))) - (_tl161495161585_ + (##car _e161501161582_))) + (_tl161499161589_ (let () (declare (not safe)) - (##cdr _e161497161578_)))) + (##cdr _e161501161582_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161495161585_)) - (let ((_e161500161588_ + (gx#stx-pair? _tl161499161589_)) + (let ((_e161504161592_ (let () (declare (not safe)) - (gx#syntax-e _tl161495161585_)))) - (let ((_hd161499161592_ + (gx#syntax-e _tl161499161589_)))) + (let ((_hd161503161596_ (let () (declare (not safe)) - (##car _e161500161588_))) - (_tl161498161595_ + (##car _e161504161592_))) + (_tl161502161599_ (let () (declare (not safe)) - (##cdr _e161500161588_)))) + (##cdr _e161504161592_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161498161595_)) - (let ((_e161503161598_ + (gx#stx-pair? _tl161502161599_)) + (let ((_e161507161602_ (let () (declare (not safe)) - (gx#syntax-e _tl161498161595_)))) - (let ((_hd161502161602_ + (gx#syntax-e _tl161502161599_)))) + (let ((_hd161506161606_ (let () (declare (not safe)) - (##car _e161503161598_))) - (_tl161501161605_ + (##car _e161507161602_))) + (_tl161505161609_ (let () (declare (not safe)) - (##cdr _e161503161598_)))) + (##cdr _e161507161602_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161501161605_)) - (let ((_e161506161608_ + (gx#stx-pair? _tl161505161609_)) + (let ((_e161510161612_ (let () (declare (not safe)) (gx#syntax-e - _tl161501161605_)))) - (let ((_hd161505161612_ + _tl161505161609_)))) + (let ((_hd161509161616_ (let () (declare (not safe)) - (##car _e161506161608_))) - (_tl161504161615_ + (##car _e161510161612_))) + (_tl161508161619_ (let () (declare (not safe)) - (##cdr _e161506161608_)))) + (##cdr _e161510161612_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl161504161615_)) - (let ((_e161509161618_ + _tl161508161619_)) + (let ((_e161513161622_ (let () (declare (not safe)) (gx#syntax-e - _tl161504161615_)))) - (let ((_hd161508161622_ + _tl161508161619_)))) + (let ((_hd161512161626_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e161509161618_))) - (_tl161507161625_ - (let () (declare (not safe)) (##cdr _e161509161618_)))) + (##car _e161513161622_))) + (_tl161511161629_ + (let () (declare (not safe)) (##cdr _e161513161622_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161507161625_)) - (let ((_e161512161628_ + (gx#stx-pair? _tl161511161629_)) + (let ((_e161516161632_ (let () (declare (not safe)) - (gx#syntax-e _tl161507161625_)))) - (let ((_hd161511161632_ + (gx#syntax-e _tl161511161629_)))) + (let ((_hd161515161636_ (let () (declare (not safe)) - (##car _e161512161628_))) - (_tl161510161635_ + (##car _e161516161632_))) + (_tl161514161639_ (let () (declare (not safe)) - (##cdr _e161512161628_)))) + (##cdr _e161516161632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161510161635_)) - (let ((_e161515161638_ + (gx#stx-pair? _tl161514161639_)) + (let ((_e161519161642_ (let () (declare (not safe)) - (gx#syntax-e _tl161510161635_)))) - (let ((_hd161514161642_ + (gx#syntax-e _tl161514161639_)))) + (let ((_hd161518161646_ (let () (declare (not safe)) - (##car _e161515161638_))) - (_tl161513161645_ + (##car _e161519161642_))) + (_tl161517161649_ (let () (declare (not safe)) - (##cdr _e161515161638_)))) + (##cdr _e161519161642_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161513161645_)) - ((lambda (_L161648_ - _L161650_ - _L161651_ - _L161652_ - _L161653_ + (gx#stx-null? _tl161517161649_)) + ((lambda (_L161652_ _L161654_ _L161655_ _L161656_ _L161657_ _L161658_ - _L161659_) - (let ((__tmp164306 + _L161659_ + _L161660_ + _L161661_ + _L161662_ + _L161663_) + (let ((__tmp164310 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp164271 - (let ((__tmp164303 - (let ((__tmp164305 + (__tmp164275 + (let ((__tmp164307 + (let ((__tmp164309 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164304 + (__tmp164308 (let () (declare (not safe)) - (cons _L161659_ + (cons _L161663_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp164305 __tmp164304))) + (cons __tmp164309 __tmp164308))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp164272 - (let ((__tmp164300 - (let ((__tmp164302 + (__tmp164276 + (let ((__tmp164304 + (let ((__tmp164306 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164301 - (let () (declare (not safe)) (cons _L161658_ '())))) + (__tmp164305 + (let () (declare (not safe)) (cons _L161662_ '())))) (declare (not safe)) - (cons __tmp164302 __tmp164301))) - (__tmp164273 - (let ((__tmp164297 - (let ((__tmp164299 + (cons __tmp164306 __tmp164305))) + (__tmp164277 + (let ((__tmp164301 + (let ((__tmp164303 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164298 + (__tmp164302 (let () (declare (not safe)) - (cons _L161657_ '())))) + (cons _L161661_ '())))) (declare (not safe)) - (cons __tmp164299 __tmp164298))) - (__tmp164274 - (let ((__tmp164294 - (let ((__tmp164296 + (cons __tmp164303 __tmp164302))) + (__tmp164278 + (let ((__tmp164298 + (let ((__tmp164300 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164295 + (__tmp164299 (let () (declare (not safe)) - (cons _L161656_ '())))) + (cons _L161660_ '())))) (declare (not safe)) - (cons __tmp164296 __tmp164295))) - (__tmp164275 - (let ((__tmp164291 - (let ((__tmp164293 + (cons __tmp164300 __tmp164299))) + (__tmp164279 + (let ((__tmp164295 + (let ((__tmp164297 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164292 + (__tmp164296 (let () (declare (not safe)) - (cons _L161655_ '())))) + (cons _L161659_ '())))) (declare (not safe)) - (cons __tmp164293 __tmp164292))) - (__tmp164276 - (let ((__tmp164288 - (let ((__tmp164290 + (cons __tmp164297 __tmp164296))) + (__tmp164280 + (let ((__tmp164292 + (let ((__tmp164294 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164289 + (__tmp164293 (let () (declare (not safe)) - (cons _L161654_ + (cons _L161658_ '())))) (declare (not safe)) - (cons __tmp164290 - __tmp164289))) - (__tmp164277 - (let ((__tmp164278 - (let ((__tmp164279 - (let ((__tmp164280 + (cons __tmp164294 + __tmp164293))) + (__tmp164281 + (let ((__tmp164282 + (let ((__tmp164283 + (let ((__tmp164284 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp164285 - (let ((__tmp164287 + (let ((__tmp164289 + (let ((__tmp164291 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164286 + (__tmp164290 (let () (declare (not safe)) - (cons _L161650_ '())))) + (cons _L161654_ '())))) (declare (not safe)) - (cons __tmp164287 __tmp164286))) - (__tmp164281 - (let ((__tmp164282 - (let ((__tmp164284 + (cons __tmp164291 __tmp164290))) + (__tmp164285 + (let ((__tmp164286 + (let ((__tmp164288 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164283 + (__tmp164287 (let () (declare (not safe)) - (cons _L161648_ '())))) + (cons _L161652_ '())))) (declare (not safe)) - (cons __tmp164284 __tmp164283)))) + (cons __tmp164288 __tmp164287)))) (declare (not safe)) - (cons __tmp164282 '())))) + (cons __tmp164286 '())))) (declare (not safe)) - (cons __tmp164285 __tmp164281)))) + (cons __tmp164289 __tmp164285)))) (declare (not safe)) - (cons _L161651_ __tmp164280)))) + (cons _L161655_ __tmp164284)))) (declare (not safe)) - (cons _L161652_ __tmp164279)))) + (cons _L161656_ __tmp164283)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L161653_ - __tmp164278)))) + (cons _L161657_ + __tmp164282)))) (declare (not safe)) - (cons __tmp164288 __tmp164277)))) + (cons __tmp164292 __tmp164281)))) (declare (not safe)) - (cons __tmp164291 __tmp164276)))) + (cons __tmp164295 __tmp164280)))) (declare (not safe)) - (cons __tmp164294 __tmp164275)))) + (cons __tmp164298 __tmp164279)))) (declare (not safe)) - (cons __tmp164297 __tmp164274)))) + (cons __tmp164301 __tmp164278)))) (declare (not safe)) - (cons __tmp164300 __tmp164273)))) + (cons __tmp164304 __tmp164277)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164303 - __tmp164272)))) + (cons __tmp164307 + __tmp164276)))) (declare (not safe)) - (cons __tmp164306 __tmp164271))) - _hd161514161642_ - _hd161511161632_ - _hd161508161622_ - _hd161505161612_ - _hd161502161602_ - _hd161499161592_ - _hd161496161582_ - _hd161493161572_ - _hd161490161562_ - _hd161487161552_ - _hd161484161542_) - (_g161467161521_ _g161468161525_)))) - (_g161467161521_ _g161468161525_)))) - (_g161467161521_ _g161468161525_)))) + (cons __tmp164310 __tmp164275))) + _hd161518161646_ + _hd161515161636_ + _hd161512161626_ + _hd161509161616_ + _hd161506161606_ + _hd161503161596_ + _hd161500161586_ + _hd161497161576_ + _hd161494161566_ + _hd161491161556_ + _hd161488161546_) + (_g161471161525_ _g161472161529_)))) + (_g161471161525_ _g161472161529_)))) + (_g161471161525_ _g161472161529_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g161467161521_ - _g161468161525_)))) - (_g161467161521_ - _g161468161525_)))) - (_g161467161521_ _g161468161525_)))) - (_g161467161521_ _g161468161525_)))) - (_g161467161521_ _g161468161525_)))) + (_g161471161525_ + _g161472161529_)))) + (_g161471161525_ + _g161472161529_)))) + (_g161471161525_ _g161472161529_)))) + (_g161471161525_ _g161472161529_)))) + (_g161471161525_ _g161472161529_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g161467161521_ - _g161468161525_)))) - (_g161467161521_ - _g161468161525_)))) - (_g161467161521_ _g161468161525_)))) - (_g161467161521_ _g161468161525_)))) - (_g161467161521_ _g161468161525_))))) - (_g161466161702_ _$stx161463_)))) + (_g161471161525_ + _g161472161529_)))) + (_g161471161525_ + _g161472161529_)))) + (_g161471161525_ _g161472161529_)))) + (_g161471161525_ _g161472161529_)))) + (_g161471161525_ _g161472161529_))))) + (_g161470161706_ _$stx161467_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx161706_) - (let* ((_g161710161724_ - (lambda (_g161711161720_) + (lambda (_$stx161710_) + (let* ((_g161714161728_ + (lambda (_g161715161724_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161711161720_)))) - (_g161709161765_ - (lambda (_g161711161728_) + _g161715161724_)))) + (_g161713161769_ + (lambda (_g161715161732_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161711161728_)) - (let ((_e161715161731_ + (gx#stx-pair? _g161715161732_)) + (let ((_e161719161735_ (let () (declare (not safe)) - (gx#syntax-e _g161711161728_)))) - (let ((_hd161714161735_ + (gx#syntax-e _g161715161732_)))) + (let ((_hd161718161739_ (let () (declare (not safe)) - (##car _e161715161731_))) - (_tl161713161738_ + (##car _e161719161735_))) + (_tl161717161742_ (let () (declare (not safe)) - (##cdr _e161715161731_)))) + (##cdr _e161719161735_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161713161738_)) - (let ((_e161718161741_ + (gx#stx-pair? _tl161717161742_)) + (let ((_e161722161745_ (let () (declare (not safe)) - (gx#syntax-e _tl161713161738_)))) - (let ((_hd161717161745_ + (gx#syntax-e _tl161717161742_)))) + (let ((_hd161721161749_ (let () (declare (not safe)) - (##car _e161718161741_))) - (_tl161716161748_ + (##car _e161722161745_))) + (_tl161720161752_ (let () (declare (not safe)) - (##cdr _e161718161741_)))) + (##cdr _e161722161745_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161716161748_)) - ((lambda (_L161751_) - (let ((__tmp164311 + (gx#stx-null? _tl161720161752_)) + ((lambda (_L161755_) + (let ((__tmp164315 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp164307 - (let ((__tmp164308 - (let ((__tmp164310 + (__tmp164311 + (let ((__tmp164312 + (let ((__tmp164314 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164309 + (__tmp164313 (let () (declare (not safe)) - (cons _L161751_ + (cons _L161755_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp164310 __tmp164309)))) + (cons __tmp164314 __tmp164313)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164308 '())))) + (cons __tmp164312 '())))) (declare (not safe)) - (cons __tmp164311 __tmp164307))) - _hd161717161745_) - (_g161710161724_ _g161711161728_)))) - (_g161710161724_ _g161711161728_)))) - (_g161710161724_ _g161711161728_))))) - (_g161709161765_ _$stx161706_)))) + (cons __tmp164315 __tmp164311))) + _hd161721161749_) + (_g161714161728_ _g161715161732_)))) + (_g161714161728_ _g161715161732_)))) + (_g161714161728_ _g161715161732_))))) + (_g161713161769_ _$stx161710_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx161769_) - (let* ((_g161773161787_ - (lambda (_g161774161783_) + (lambda (_$stx161773_) + (let* ((_g161777161791_ + (lambda (_g161778161787_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161774161783_)))) - (_g161772161828_ - (lambda (_g161774161791_) + _g161778161787_)))) + (_g161776161832_ + (lambda (_g161778161795_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161774161791_)) - (let ((_e161778161794_ + (gx#stx-pair? _g161778161795_)) + (let ((_e161782161798_ (let () (declare (not safe)) - (gx#syntax-e _g161774161791_)))) - (let ((_hd161777161798_ + (gx#syntax-e _g161778161795_)))) + (let ((_hd161781161802_ (let () (declare (not safe)) - (##car _e161778161794_))) - (_tl161776161801_ + (##car _e161782161798_))) + (_tl161780161805_ (let () (declare (not safe)) - (##cdr _e161778161794_)))) + (##cdr _e161782161798_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161776161801_)) - (let ((_e161781161804_ + (gx#stx-pair? _tl161780161805_)) + (let ((_e161785161808_ (let () (declare (not safe)) - (gx#syntax-e _tl161776161801_)))) - (let ((_hd161780161808_ + (gx#syntax-e _tl161780161805_)))) + (let ((_hd161784161812_ (let () (declare (not safe)) - (##car _e161781161804_))) - (_tl161779161811_ + (##car _e161785161808_))) + (_tl161783161815_ (let () (declare (not safe)) - (##cdr _e161781161804_)))) + (##cdr _e161785161808_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161779161811_)) - ((lambda (_L161814_) - (let ((__tmp164316 + (gx#stx-null? _tl161783161815_)) + ((lambda (_L161818_) + (let ((__tmp164320 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp164312 - (let ((__tmp164313 - (let ((__tmp164315 + (__tmp164316 + (let ((__tmp164317 + (let ((__tmp164319 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164314 + (__tmp164318 (let () (declare (not safe)) - (cons _L161814_ + (cons _L161818_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp164315 __tmp164314)))) + (cons __tmp164319 __tmp164318)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164313 '())))) + (cons __tmp164317 '())))) (declare (not safe)) - (cons __tmp164316 __tmp164312))) - _hd161780161808_) - (_g161773161787_ _g161774161791_)))) - (_g161773161787_ _g161774161791_)))) - (_g161773161787_ _g161774161791_))))) - (_g161772161828_ _$stx161769_)))) + (cons __tmp164320 __tmp164316))) + _hd161784161812_) + (_g161777161791_ _g161778161795_)))) + (_g161777161791_ _g161778161795_)))) + (_g161777161791_ _g161778161795_))))) + (_g161776161832_ _$stx161773_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx161832_) - (let* ((_g161836161858_ - (lambda (_g161837161854_) + (lambda (_$stx161836_) + (let* ((_g161840161862_ + (lambda (_g161841161858_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161837161854_)))) - (_g161835161927_ - (lambda (_g161837161862_) + _g161841161858_)))) + (_g161839161931_ + (lambda (_g161841161866_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161837161862_)) - (let ((_e161843161865_ + (gx#stx-pair? _g161841161866_)) + (let ((_e161847161869_ (let () (declare (not safe)) - (gx#syntax-e _g161837161862_)))) - (let ((_hd161842161869_ + (gx#syntax-e _g161841161866_)))) + (let ((_hd161846161873_ (let () (declare (not safe)) - (##car _e161843161865_))) - (_tl161841161872_ + (##car _e161847161869_))) + (_tl161845161876_ (let () (declare (not safe)) - (##cdr _e161843161865_)))) + (##cdr _e161847161869_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161841161872_)) - (let ((_e161846161875_ + (gx#stx-pair? _tl161845161876_)) + (let ((_e161850161879_ (let () (declare (not safe)) - (gx#syntax-e _tl161841161872_)))) - (let ((_hd161845161879_ + (gx#syntax-e _tl161845161876_)))) + (let ((_hd161849161883_ (let () (declare (not safe)) - (##car _e161846161875_))) - (_tl161844161882_ + (##car _e161850161879_))) + (_tl161848161886_ (let () (declare (not safe)) - (##cdr _e161846161875_)))) + (##cdr _e161850161879_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161844161882_)) - (let ((_e161849161885_ + (gx#stx-pair? _tl161848161886_)) + (let ((_e161853161889_ (let () (declare (not safe)) - (gx#syntax-e _tl161844161882_)))) - (let ((_hd161848161889_ + (gx#syntax-e _tl161848161886_)))) + (let ((_hd161852161893_ (let () (declare (not safe)) - (##car _e161849161885_))) - (_tl161847161892_ + (##car _e161853161889_))) + (_tl161851161896_ (let () (declare (not safe)) - (##cdr _e161849161885_)))) + (##cdr _e161853161889_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161847161892_)) - (let ((_e161852161895_ + (gx#stx-pair? _tl161851161896_)) + (let ((_e161856161899_ (let () (declare (not safe)) (gx#syntax-e - _tl161847161892_)))) - (let ((_hd161851161899_ + _tl161851161896_)))) + (let ((_hd161855161903_ (let () (declare (not safe)) - (##car _e161852161895_))) - (_tl161850161902_ + (##car _e161856161899_))) + (_tl161854161906_ (let () (declare (not safe)) - (##cdr _e161852161895_)))) + (##cdr _e161856161899_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161850161902_)) - ((lambda (_L161905_ - _L161907_ - _L161908_) - (let ((__tmp164326 + _tl161854161906_)) + ((lambda (_L161909_ + _L161911_ + _L161912_) + (let ((__tmp164330 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp164317 - (let ((__tmp164323 - (let ((__tmp164325 + (__tmp164321 + (let ((__tmp164327 + (let ((__tmp164329 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164324 + (__tmp164328 (let () (declare (not safe)) - (cons _L161908_ '())))) + (cons _L161912_ '())))) (declare (not safe)) - (cons __tmp164325 __tmp164324))) - (__tmp164318 - (let ((__tmp164320 - (let ((__tmp164322 + (cons __tmp164329 __tmp164328))) + (__tmp164322 + (let ((__tmp164324 + (let ((__tmp164326 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164321 + (__tmp164325 (let () (declare (not safe)) - (cons _L161907_ '())))) + (cons _L161911_ '())))) (declare (not safe)) - (cons __tmp164322 __tmp164321))) - (__tmp164319 + (cons __tmp164326 __tmp164325))) + (__tmp164323 (let () (declare (not safe)) - (cons _L161905_ '())))) + (cons _L161909_ '())))) (declare (not safe)) - (cons __tmp164320 __tmp164319)))) + (cons __tmp164324 __tmp164323)))) (declare (not safe)) - (cons __tmp164323 __tmp164318)))) + (cons __tmp164327 __tmp164322)))) (declare (not safe)) - (cons __tmp164326 __tmp164317))) + (cons __tmp164330 __tmp164321))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd161851161899_ - _hd161848161889_ - _hd161845161879_) - (_g161836161858_ - _g161837161862_)))) - (_g161836161858_ - _g161837161862_)))) - (_g161836161858_ _g161837161862_)))) - (_g161836161858_ _g161837161862_)))) - (_g161836161858_ _g161837161862_))))) - (_g161835161927_ _$stx161832_)))) + _hd161855161903_ + _hd161852161893_ + _hd161849161883_) + (_g161840161862_ + _g161841161866_)))) + (_g161840161862_ + _g161841161866_)))) + (_g161840161862_ _g161841161866_)))) + (_g161840161862_ _g161841161866_)))) + (_g161840161862_ _g161841161866_))))) + (_g161839161931_ _$stx161836_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx161931_) - (let* ((_g161935161957_ - (lambda (_g161936161953_) + (lambda (_$stx161935_) + (let* ((_g161939161961_ + (lambda (_g161940161957_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161936161953_)))) - (_g161934162026_ - (lambda (_g161936161961_) + _g161940161957_)))) + (_g161938162030_ + (lambda (_g161940161965_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161936161961_)) - (let ((_e161942161964_ + (gx#stx-pair? _g161940161965_)) + (let ((_e161946161968_ (let () (declare (not safe)) - (gx#syntax-e _g161936161961_)))) - (let ((_hd161941161968_ + (gx#syntax-e _g161940161965_)))) + (let ((_hd161945161972_ (let () (declare (not safe)) - (##car _e161942161964_))) - (_tl161940161971_ + (##car _e161946161968_))) + (_tl161944161975_ (let () (declare (not safe)) - (##cdr _e161942161964_)))) + (##cdr _e161946161968_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161940161971_)) - (let ((_e161945161974_ + (gx#stx-pair? _tl161944161975_)) + (let ((_e161949161978_ (let () (declare (not safe)) - (gx#syntax-e _tl161940161971_)))) - (let ((_hd161944161978_ + (gx#syntax-e _tl161944161975_)))) + (let ((_hd161948161982_ (let () (declare (not safe)) - (##car _e161945161974_))) - (_tl161943161981_ + (##car _e161949161978_))) + (_tl161947161985_ (let () (declare (not safe)) - (##cdr _e161945161974_)))) + (##cdr _e161949161978_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161943161981_)) - (let ((_e161948161984_ + (gx#stx-pair? _tl161947161985_)) + (let ((_e161952161988_ (let () (declare (not safe)) - (gx#syntax-e _tl161943161981_)))) - (let ((_hd161947161988_ + (gx#syntax-e _tl161947161985_)))) + (let ((_hd161951161992_ (let () (declare (not safe)) - (##car _e161948161984_))) - (_tl161946161991_ + (##car _e161952161988_))) + (_tl161950161995_ (let () (declare (not safe)) - (##cdr _e161948161984_)))) + (##cdr _e161952161988_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161946161991_)) - (let ((_e161951161994_ + (gx#stx-pair? _tl161950161995_)) + (let ((_e161955161998_ (let () (declare (not safe)) (gx#syntax-e - _tl161946161991_)))) - (let ((_hd161950161998_ + _tl161950161995_)))) + (let ((_hd161954162002_ (let () (declare (not safe)) - (##car _e161951161994_))) - (_tl161949162001_ + (##car _e161955161998_))) + (_tl161953162005_ (let () (declare (not safe)) - (##cdr _e161951161994_)))) + (##cdr _e161955161998_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161949162001_)) - ((lambda (_L162004_ - _L162006_ - _L162007_) - (let ((__tmp164336 + _tl161953162005_)) + ((lambda (_L162008_ + _L162010_ + _L162011_) + (let ((__tmp164340 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp164327 - (let ((__tmp164333 - (let ((__tmp164335 + (__tmp164331 + (let ((__tmp164337 + (let ((__tmp164339 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164334 + (__tmp164338 (let () (declare (not safe)) - (cons _L162007_ '())))) + (cons _L162011_ '())))) (declare (not safe)) - (cons __tmp164335 __tmp164334))) - (__tmp164328 - (let ((__tmp164330 - (let ((__tmp164332 + (cons __tmp164339 __tmp164338))) + (__tmp164332 + (let ((__tmp164334 + (let ((__tmp164336 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164331 + (__tmp164335 (let () (declare (not safe)) - (cons _L162006_ '())))) + (cons _L162010_ '())))) (declare (not safe)) - (cons __tmp164332 __tmp164331))) - (__tmp164329 + (cons __tmp164336 __tmp164335))) + (__tmp164333 (let () (declare (not safe)) - (cons _L162004_ '())))) + (cons _L162008_ '())))) (declare (not safe)) - (cons __tmp164330 __tmp164329)))) + (cons __tmp164334 __tmp164333)))) (declare (not safe)) - (cons __tmp164333 __tmp164328)))) + (cons __tmp164337 __tmp164332)))) (declare (not safe)) - (cons __tmp164336 __tmp164327))) + (cons __tmp164340 __tmp164331))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd161950161998_ - _hd161947161988_ - _hd161944161978_) - (_g161935161957_ - _g161936161961_)))) - (_g161935161957_ - _g161936161961_)))) - (_g161935161957_ _g161936161961_)))) - (_g161935161957_ _g161936161961_)))) - (_g161935161957_ _g161936161961_))))) - (_g161934162026_ _$stx161931_)))) + _hd161954162002_ + _hd161951161992_ + _hd161948161982_) + (_g161939161961_ + _g161940161965_)))) + (_g161939161961_ + _g161940161965_)))) + (_g161939161961_ _g161940161965_)))) + (_g161939161961_ _g161940161965_)))) + (_g161939161961_ _g161940161965_))))) + (_g161938162030_ _$stx161935_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx162030_) - (let* ((___stx163845163846_ _$stx162030_) - (_g162038162106_ + (lambda (_$stx162034_) + (let* ((___stx163849163850_ _$stx162034_) + (_g162042162110_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx163845163846_))))) - (let ((___kont163848163849_ - (lambda (_L162384_ _L162386_) - (let ((__tmp164357 + ___stx163849163850_))))) + (let ((___kont163852163853_ + (lambda (_L162388_ _L162390_) + (let ((__tmp164361 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp164337 - (let ((__tmp164353 - (let ((__tmp164356 + (__tmp164341 + (let ((__tmp164357 + (let ((__tmp164360 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164354 - (let ((__tmp164355 + (__tmp164358 + (let ((__tmp164359 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp164355 '())))) + (cons __tmp164359 '())))) (declare (not safe)) - (cons __tmp164356 __tmp164354))) - (__tmp164338 - (let ((__tmp164350 - (let ((__tmp164352 + (cons __tmp164360 __tmp164358))) + (__tmp164342 + (let ((__tmp164354 + (let ((__tmp164356 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164351 + (__tmp164355 (let () (declare (not safe)) - (cons _L162386_ '())))) + (cons _L162390_ '())))) (declare (not safe)) - (cons __tmp164352 __tmp164351))) - (__tmp164339 - (let ((__tmp164340 - (let ((__tmp164341 - (let ((__tmp164342 - (let ((__tmp164349 + (cons __tmp164356 __tmp164355))) + (__tmp164343 + (let ((__tmp164344 + (let ((__tmp164345 + (let ((__tmp164346 + (let ((__tmp164353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164343 - (let ((__tmp164344 - (let ((__tmp164348 + (__tmp164347 + (let ((__tmp164348 + (let ((__tmp164352 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164345 - (let ((__tmp164346 - (let ((__tmp164347 + (__tmp164349 + (let ((__tmp164350 + (let ((__tmp164351 (let () (declare (not safe)) - (cons _L162384_ '())))) + (cons _L162388_ '())))) (declare (not safe)) - (cons 'inline: __tmp164347)))) + (cons 'inline: __tmp164351)))) (declare (not safe)) - (cons _L162386_ __tmp164346)))) + (cons _L162390_ __tmp164350)))) (declare (not safe)) - (cons __tmp164348 __tmp164345)))) + (cons __tmp164352 __tmp164349)))) (declare (not safe)) - (cons __tmp164344 '())))) + (cons __tmp164348 '())))) (declare (not safe)) - (cons __tmp164349 __tmp164343)))) + (cons __tmp164353 __tmp164347)))) (declare (not safe)) - (cons __tmp164342 '())))) + (cons __tmp164346 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L162384_ __tmp164341)))) + (cons _L162388_ __tmp164345)))) (declare (not safe)) - (cons '#f __tmp164340)))) + (cons '#f __tmp164344)))) (declare (not safe)) - (cons __tmp164350 __tmp164339)))) + (cons __tmp164354 __tmp164343)))) (declare (not safe)) - (cons __tmp164353 __tmp164338)))) + (cons __tmp164357 __tmp164342)))) (declare (not safe)) - (cons __tmp164357 __tmp164337)))) - (___kont163850163851_ - (lambda (_L162315_ _L162317_) - (let ((__tmp164358 - (let ((__tmp164359 - (let ((__tmp164360 + (cons __tmp164361 __tmp164341)))) + (___kont163854163855_ + (lambda (_L162319_ _L162321_) + (let ((__tmp164362 + (let ((__tmp164363 + (let ((__tmp164364 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L162315_ __tmp164360)))) + (cons _L162319_ __tmp164364)))) (declare (not safe)) - (cons 'primitive: __tmp164359)))) + (cons 'primitive: __tmp164363)))) (declare (not safe)) - (cons _L162317_ __tmp164358)))) - (___kont163852163853_ - (lambda (_L162254_ _L162256_) - (let ((__tmp164374 + (cons _L162321_ __tmp164362)))) + (___kont163856163857_ + (lambda (_L162258_ _L162260_) + (let ((__tmp164378 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp164361 - (let ((__tmp164370 - (let ((__tmp164373 + (__tmp164365 + (let ((__tmp164374 + (let ((__tmp164377 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164371 - (let ((__tmp164372 + (__tmp164375 + (let ((__tmp164376 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp164372 '())))) + (cons __tmp164376 '())))) (declare (not safe)) - (cons __tmp164373 __tmp164371))) - (__tmp164362 - (let ((__tmp164367 - (let ((__tmp164369 + (cons __tmp164377 __tmp164375))) + (__tmp164366 + (let ((__tmp164371 + (let ((__tmp164373 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164368 + (__tmp164372 (let () (declare (not safe)) - (cons _L162256_ '())))) + (cons _L162260_ '())))) (declare (not safe)) - (cons __tmp164369 __tmp164368))) - (__tmp164363 - (let ((__tmp164364 - (let ((__tmp164366 + (cons __tmp164373 __tmp164372))) + (__tmp164367 + (let ((__tmp164368 + (let ((__tmp164370 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164365 + (__tmp164369 (let () (declare (not safe)) - (cons _L162254_ '())))) + (cons _L162258_ '())))) (declare (not safe)) - (cons __tmp164366 - __tmp164365)))) + (cons __tmp164370 + __tmp164369)))) (declare (not safe)) - (cons __tmp164364 '())))) + (cons __tmp164368 '())))) (declare (not safe)) - (cons __tmp164367 __tmp164363)))) + (cons __tmp164371 __tmp164367)))) (declare (not safe)) - (cons __tmp164370 __tmp164362)))) + (cons __tmp164374 __tmp164366)))) (declare (not safe)) - (cons __tmp164374 __tmp164361)))) - (___kont163854163855_ - (lambda (_L162186_ _L162188_) - (let ((__tmp164388 + (cons __tmp164378 __tmp164365)))) + (___kont163858163859_ + (lambda (_L162190_ _L162192_) + (let ((__tmp164392 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp164375 - (let ((__tmp164384 - (let ((__tmp164387 + (__tmp164379 + (let ((__tmp164388 + (let ((__tmp164391 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164385 - (let ((__tmp164386 + (__tmp164389 + (let ((__tmp164390 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp164386 '())))) + (cons __tmp164390 '())))) (declare (not safe)) - (cons __tmp164387 __tmp164385))) - (__tmp164376 - (let ((__tmp164381 - (let ((__tmp164383 + (cons __tmp164391 __tmp164389))) + (__tmp164380 + (let ((__tmp164385 + (let ((__tmp164387 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164382 + (__tmp164386 (let () (declare (not safe)) - (cons _L162188_ '())))) + (cons _L162192_ '())))) (declare (not safe)) - (cons __tmp164383 __tmp164382))) - (__tmp164377 - (let ((__tmp164378 - (let ((__tmp164380 + (cons __tmp164387 __tmp164386))) + (__tmp164381 + (let ((__tmp164382 + (let ((__tmp164384 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164379 + (__tmp164383 (let () (declare (not safe)) - (cons _L162186_ '())))) + (cons _L162190_ '())))) (declare (not safe)) - (cons __tmp164380 - __tmp164379)))) + (cons __tmp164384 + __tmp164383)))) (declare (not safe)) - (cons __tmp164378 '())))) + (cons __tmp164382 '())))) (declare (not safe)) - (cons __tmp164381 __tmp164377)))) + (cons __tmp164385 __tmp164381)))) (declare (not safe)) - (cons __tmp164384 __tmp164376)))) + (cons __tmp164388 __tmp164380)))) (declare (not safe)) - (cons __tmp164388 __tmp164375)))) - (___kont163856163857_ - (lambda (_L162133_ _L162135_) - (let ((__tmp164389 - (let ((__tmp164390 + (cons __tmp164392 __tmp164379)))) + (___kont163860163861_ + (lambda (_L162137_ _L162139_) + (let ((__tmp164393 + (let ((__tmp164394 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L162133_ __tmp164390)))) + (cons _L162137_ __tmp164394)))) (declare (not safe)) - (cons _L162135_ __tmp164389))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx163845163846_)) - (let ((_e162044162340_ + (cons _L162139_ __tmp164393))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx163849163850_)) + (let ((_e162048162344_ (let () (declare (not safe)) - (gx#syntax-e ___stx163845163846_)))) - (let ((_tl162042162347_ - (let () (declare (not safe)) (##cdr _e162044162340_))) - (_hd162043162344_ - (let () (declare (not safe)) (##car _e162044162340_)))) + (gx#syntax-e ___stx163849163850_)))) + (let ((_tl162046162351_ + (let () (declare (not safe)) (##cdr _e162048162344_))) + (_hd162047162348_ + (let () (declare (not safe)) (##car _e162048162344_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162042162347_)) - (let ((_e162047162350_ + (gx#stx-pair? _tl162046162351_)) + (let ((_e162051162354_ (let () (declare (not safe)) - (gx#syntax-e _tl162042162347_)))) - (let ((_tl162045162357_ + (gx#syntax-e _tl162046162351_)))) + (let ((_tl162049162361_ (let () (declare (not safe)) - (##cdr _e162047162350_))) - (_hd162046162354_ + (##cdr _e162051162354_))) + (_hd162050162358_ (let () (declare (not safe)) - (##car _e162047162350_)))) + (##car _e162051162354_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162045162357_)) - (let ((_e162050162360_ + (gx#stx-pair? _tl162049162361_)) + (let ((_e162054162364_ (let () (declare (not safe)) - (gx#syntax-e _tl162045162357_)))) - (let ((_tl162048162367_ + (gx#syntax-e _tl162049162361_)))) + (let ((_tl162052162371_ (let () (declare (not safe)) - (##cdr _e162050162360_))) - (_hd162049162364_ + (##cdr _e162054162364_))) + (_hd162053162368_ (let () (declare (not safe)) - (##car _e162050162360_)))) + (##car _e162054162364_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162049162364_)) - (let ((_e162051162370_ + (gx#stx-datum? _hd162053162368_)) + (let ((_e162055162374_ (let () (declare (not safe)) - (gx#stx-e _hd162049162364_)))) + (gx#stx-e _hd162053162368_)))) (if (let () (declare (not safe)) - (equal? _e162051162370_ + (equal? _e162055162374_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162048162367_)) - (let ((_e162054162374_ + _tl162052162371_)) + (let ((_e162058162378_ (let () (declare (not safe)) (gx#syntax-e - _tl162048162367_)))) - (let ((_tl162052162381_ + _tl162052162371_)))) + (let ((_tl162056162385_ (let () (declare (not safe)) - (##cdr _e162054162374_))) - (_hd162053162378_ + (##cdr _e162058162378_))) + (_hd162057162382_ (let () (declare (not safe)) - (##car _e162054162374_)))) + (##car _e162058162378_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162052162381_)) - (___kont163848163849_ - _hd162053162378_ - _hd162046162354_) + _tl162056162385_)) + (___kont163852163853_ + _hd162057162382_ + _hd162050162358_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd162046162354_)) - (let ((_e162063162301_ + _hd162050162358_)) + (let ((_e162067162305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd162046162354_)))) + (gx#stx-e _hd162050162358_)))) (declare (not safe)) - (_g162038162106_)) - (let () (declare (not safe)) (_g162038162106_)))))) + (_g162042162110_)) + (let () (declare (not safe)) (_g162042162110_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd162046162354_)) - (let ((_e162063162301_ + _hd162050162358_)) + (let ((_e162067162305_ (let () (declare (not safe)) (gx#stx-e - _hd162046162354_)))) + _hd162050162358_)))) (if (let () (declare (not safe)) - (equal? _e162063162301_ + (equal? _e162067162305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl162048162367_)) - (___kont163850163851_ _hd162049162364_ _hd162043162344_) - (let () (declare (not safe)) (_g162038162106_))) + (gx#stx-null? _tl162052162371_)) + (___kont163854163855_ _hd162053162368_ _hd162047162348_) + (let () (declare (not safe)) (_g162042162110_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162048162367_)) - (___kont163854163855_ _hd162049162364_ _hd162046162354_) - (let () (declare (not safe)) (_g162038162106_))))) + (gx#stx-null? _tl162052162371_)) + (___kont163858163859_ _hd162053162368_ _hd162050162358_) + (let () (declare (not safe)) (_g162042162110_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl162048162367_)) - (___kont163854163855_ - _hd162049162364_ - _hd162046162354_) + _tl162052162371_)) + (___kont163858163859_ + _hd162053162368_ + _hd162050162358_) (let () (declare (not safe)) - (_g162038162106_))))) + (_g162042162110_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd162046162354_)) - (let ((_e162063162301_ + _hd162050162358_)) + (let ((_e162067162305_ (let () (declare (not safe)) (gx#stx-e - _hd162046162354_)))) + _hd162050162358_)))) (if (let () (declare (not safe)) - (equal? _e162063162301_ + (equal? _e162067162305_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl162048162367_)) - (___kont163850163851_ - _hd162049162364_ - _hd162043162344_) + _tl162052162371_)) + (___kont163854163855_ + _hd162053162368_ + _hd162047162348_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl162048162367_)) - (let ((_e162081162244_ + (gx#stx-pair? _tl162052162371_)) + (let ((_e162085162248_ (let () (declare (not safe)) - (gx#syntax-e _tl162048162367_)))) - (let ((_tl162079162251_ + (gx#syntax-e _tl162052162371_)))) + (let ((_tl162083162255_ (let () (declare (not safe)) - (##cdr _e162081162244_))) - (_hd162080162248_ + (##cdr _e162085162248_))) + (_hd162084162252_ (let () (declare (not safe)) - (##car _e162081162244_)))) + (##car _e162085162248_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162079162251_)) - (___kont163852163853_ - _hd162080162248_ - _hd162049162364_) + (gx#stx-null? _tl162083162255_)) + (___kont163856163857_ + _hd162084162252_ + _hd162053162368_) (let () (declare (not safe)) - (_g162038162106_))))) - (let () (declare (not safe)) (_g162038162106_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl162048162367_)) - (___kont163854163855_ _hd162049162364_ _hd162046162354_) - (let () (declare (not safe)) (_g162038162106_))))) + (_g162042162110_))))) + (let () (declare (not safe)) (_g162042162110_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl162052162371_)) + (___kont163858163859_ _hd162053162368_ _hd162050162358_) + (let () (declare (not safe)) (_g162042162110_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl162048162367_)) - (___kont163854163855_ - _hd162049162364_ - _hd162046162354_) + _tl162052162371_)) + (___kont163858163859_ + _hd162053162368_ + _hd162050162358_) (let () (declare (not safe)) - (_g162038162106_)))))) + (_g162042162110_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162046162354_)) - (let ((_e162063162301_ + (gx#stx-datum? _hd162050162358_)) + (let ((_e162067162305_ (let () (declare (not safe)) (gx#stx-e - _hd162046162354_)))) + _hd162050162358_)))) (if (let () (declare (not safe)) - (equal? _e162063162301_ + (equal? _e162067162305_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl162048162367_)) - (___kont163850163851_ - _hd162049162364_ - _hd162043162344_) + _tl162052162371_)) + (___kont163854163855_ + _hd162053162368_ + _hd162047162348_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162048162367_)) - (let ((_e162081162244_ + _tl162052162371_)) + (let ((_e162085162248_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl162048162367_)))) - (let ((_tl162079162251_ - (let () (declare (not safe)) (##cdr _e162081162244_))) - (_hd162080162248_ + (gx#syntax-e _tl162052162371_)))) + (let ((_tl162083162255_ + (let () (declare (not safe)) (##cdr _e162085162248_))) + (_hd162084162252_ (let () (declare (not safe)) - (##car _e162081162244_)))) + (##car _e162085162248_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162079162251_)) - (___kont163852163853_ - _hd162080162248_ - _hd162049162364_) - (let () (declare (not safe)) (_g162038162106_))))) - (let () (declare (not safe)) (_g162038162106_)))) + (gx#stx-null? _tl162083162255_)) + (___kont163856163857_ + _hd162084162252_ + _hd162053162368_) + (let () (declare (not safe)) (_g162042162110_))))) + (let () (declare (not safe)) (_g162042162110_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl162048162367_)) - (___kont163854163855_ - _hd162049162364_ - _hd162046162354_) + _tl162052162371_)) + (___kont163858163859_ + _hd162053162368_ + _hd162050162358_) (let () (declare (not safe)) - (_g162038162106_))))) + (_g162042162110_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162048162367_)) - (___kont163854163855_ - _hd162049162364_ - _hd162046162354_) + _tl162052162371_)) + (___kont163858163859_ + _hd162053162368_ + _hd162050162358_) (let () (declare (not safe)) - (_g162038162106_))))))) + (_g162042162110_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162046162354_)) - (let ((_e162063162301_ + (gx#stx-datum? _hd162050162358_)) + (let ((_e162067162305_ (let () (declare (not safe)) - (gx#stx-e _hd162046162354_)))) + (gx#stx-e _hd162050162358_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162045162357_)) - (___kont163856163857_ - _hd162046162354_ - _hd162043162344_) + (gx#stx-null? _tl162049162361_)) + (___kont163860163861_ + _hd162050162358_ + _hd162047162348_) (let () (declare (not safe)) - (_g162038162106_)))) + (_g162042162110_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162045162357_)) - (___kont163856163857_ - _hd162046162354_ - _hd162043162344_) + (gx#stx-null? _tl162049162361_)) + (___kont163860163861_ + _hd162050162358_ + _hd162047162348_) (let () (declare (not safe)) - (_g162038162106_))))))) - (let () (declare (not safe)) (_g162038162106_))))) - (let () (declare (not safe)) (_g162038162106_))))))) + (_g162042162110_))))))) + (let () (declare (not safe)) (_g162042162110_))))) + (let () (declare (not safe)) (_g162042162110_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx162408_) - (let* ((___stx163985163986_ _$stx162408_) - (_g162413162468_ + (lambda (_$stx162412_) + (let* ((___stx163989163990_ _$stx162412_) + (_g162417162472_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx163985163986_))))) - (let ((___kont163988163989_ - (lambda (_L162653_ _L162655_) - (let ((__tmp164406 + ___stx163989163990_))))) + (let ((___kont163992163993_ + (lambda (_L162657_ _L162659_) + (let ((__tmp164410 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp164391 - (let ((__tmp164402 - (let ((__tmp164405 + (__tmp164395 + (let ((__tmp164406 + (let ((__tmp164409 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164403 - (let ((__tmp164404 + (__tmp164407 + (let ((__tmp164408 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp164404 '())))) + (cons __tmp164408 '())))) (declare (not safe)) - (cons __tmp164405 __tmp164403))) - (__tmp164392 - (let ((__tmp164393 - (let ((__tmp164401 + (cons __tmp164409 __tmp164407))) + (__tmp164396 + (let ((__tmp164397 + (let ((__tmp164405 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp164394 + (__tmp164398 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L162653_ - _L162655_)) - (let ((__tmp164395 - (lambda (_g162672162676_ - _g162673162679_ - _g162674162681_) - (let ((__tmp164396 - (let ((__tmp164400 + _L162657_ + _L162659_)) + (let ((__tmp164399 + (lambda (_g162676162680_ + _g162677162683_ + _g162678162685_) + (let ((__tmp164400 + (let ((__tmp164404 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164397 - (let ((__tmp164398 - (let ((__tmp164399 + (__tmp164401 + (let ((__tmp164402 + (let ((__tmp164403 (let () (declare (not safe)) - (cons _g162672162676_ '())))) + (cons _g162676162680_ '())))) (declare (not safe)) - (cons _g162673162679_ __tmp164399)))) + (cons _g162677162683_ __tmp164403)))) (declare (not safe)) - (cons 'primitive: __tmp164398)))) + (cons 'primitive: __tmp164402)))) (declare (not safe)) - (cons __tmp164400 __tmp164397)))) + (cons __tmp164404 __tmp164401)))) (declare (not safe)) - (cons __tmp164396 _g162674162681_))))) + (cons __tmp164400 _g162678162685_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp164395 + (foldr2 __tmp164399 '() - _L162653_ - _L162655_))))) + _L162657_ + _L162659_))))) (declare (not safe)) - (cons __tmp164401 __tmp164394)))) + (cons __tmp164405 __tmp164398)))) (declare (not safe)) - (cons __tmp164393 '())))) + (cons __tmp164397 '())))) (declare (not safe)) - (cons __tmp164402 __tmp164392)))) + (cons __tmp164406 __tmp164396)))) (declare (not safe)) - (cons __tmp164406 __tmp164391)))) - (___kont163992163993_ - (lambda (_L162539_ _L162541_) - (let ((__tmp164421 + (cons __tmp164410 __tmp164395)))) + (___kont163996163997_ + (lambda (_L162543_ _L162545_) + (let ((__tmp164425 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp164407 - (let ((__tmp164417 - (let ((__tmp164420 + (__tmp164411 + (let ((__tmp164421 + (let ((__tmp164424 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164418 - (let ((__tmp164419 + (__tmp164422 + (let ((__tmp164423 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp164419 '())))) + (cons __tmp164423 '())))) (declare (not safe)) - (cons __tmp164420 __tmp164418))) - (__tmp164408 - (let ((__tmp164409 - (let ((__tmp164416 + (cons __tmp164424 __tmp164422))) + (__tmp164412 + (let ((__tmp164413 + (let ((__tmp164420 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp164410 + (__tmp164414 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L162539_ - _L162541_)) - (let ((__tmp164411 - (lambda (_g162556162560_ - _g162557162563_ - _g162558162565_) - (let ((__tmp164412 - (let ((__tmp164415 + _L162543_ + _L162545_)) + (let ((__tmp164415 + (lambda (_g162560162564_ + _g162561162567_ + _g162562162569_) + (let ((__tmp164416 + (let ((__tmp164419 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164413 - (let ((__tmp164414 + (__tmp164417 + (let ((__tmp164418 (let () (declare (not safe)) - (cons _g162556162560_ '())))) + (cons _g162560162564_ '())))) (declare (not safe)) - (cons _g162557162563_ __tmp164414)))) + (cons _g162561162567_ __tmp164418)))) (declare (not safe)) - (cons __tmp164415 __tmp164413)))) + (cons __tmp164419 __tmp164417)))) (declare (not safe)) - (cons __tmp164412 _g162558162565_))))) + (cons __tmp164416 _g162562162569_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp164411 + (foldr2 __tmp164415 '() - _L162539_ - _L162541_))))) + _L162543_ + _L162545_))))) (declare (not safe)) - (cons __tmp164416 __tmp164410)))) + (cons __tmp164420 __tmp164414)))) (declare (not safe)) - (cons __tmp164409 '())))) + (cons __tmp164413 '())))) (declare (not safe)) - (cons __tmp164417 __tmp164408)))) + (cons __tmp164421 __tmp164412)))) (declare (not safe)) - (cons __tmp164421 __tmp164407))))) - (let* ((___match164036164037_ - (lambda (_e162445162475_ - _hd162444162479_ - _tl162443162482_ - ___splice163994163995_ - _target162446162485_ - _tl162448162488_) - (letrec ((_loop162449162491_ - (lambda (_hd162447162495_ - _dispatch162453162498_ - _arity162454162500_) + (cons __tmp164425 __tmp164411))))) + (let* ((___match164040164041_ + (lambda (_e162449162479_ + _hd162448162483_ + _tl162447162486_ + ___splice163998163999_ + _target162450162489_ + _tl162452162492_) + (letrec ((_loop162453162495_ + (lambda (_hd162451162499_ + _dispatch162457162502_ + _arity162458162504_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd162447162495_)) - (let ((_e162450162503_ + (gx#stx-pair? _hd162451162499_)) + (let ((_e162454162507_ (let () (declare (not safe)) - (gx#syntax-e _hd162447162495_)))) - (let ((_lp-tl162452162510_ + (gx#syntax-e _hd162451162499_)))) + (let ((_lp-tl162456162514_ (let () (declare (not safe)) - (##cdr _e162450162503_))) - (_lp-hd162451162507_ + (##cdr _e162454162507_))) + (_lp-hd162455162511_ (let () (declare (not safe)) - (##car _e162450162503_)))) + (##car _e162454162507_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd162451162507_)) - (let ((_e162459162513_ + _lp-hd162455162511_)) + (let ((_e162463162517_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd162451162507_)))) - (let ((_tl162457162520_ + _lp-hd162455162511_)))) + (let ((_tl162461162524_ (let () (declare (not safe)) - (##cdr _e162459162513_))) - (_hd162458162517_ + (##cdr _e162463162517_))) + (_hd162462162521_ (let () (declare (not safe)) - (##car _e162459162513_)))) + (##car _e162463162517_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162457162520_)) - (let ((_e162462162523_ + _tl162461162524_)) + (let ((_e162466162527_ (let () (declare (not safe)) (gx#syntax-e - _tl162457162520_)))) - (let ((_tl162460162530_ + _tl162461162524_)))) + (let ((_tl162464162534_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e162462162523_))) - (_hd162461162527_ - (let () (declare (not safe)) (##car _e162462162523_)))) + (##cdr _e162466162527_))) + (_hd162465162531_ + (let () (declare (not safe)) (##car _e162466162527_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162460162530_)) - (_loop162449162491_ - _lp-tl162452162510_ + (gx#stx-null? _tl162464162534_)) + (_loop162453162495_ + _lp-tl162456162514_ (let () (declare (not safe)) - (cons _hd162461162527_ _dispatch162453162498_)) + (cons _hd162465162531_ _dispatch162457162502_)) (let () (declare (not safe)) - (cons _hd162458162517_ _arity162454162500_))) - (let () (declare (not safe)) (_g162413162468_))))) + (cons _hd162462162521_ _arity162458162504_))) + (let () (declare (not safe)) (_g162417162472_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g162413162468_))))) + (_g162417162472_))))) (let () (declare (not safe)) - (_g162413162468_))))) - (let ((_arity162456162536_ - (reverse _arity162454162500_)) - (_dispatch162455162533_ - (reverse _dispatch162453162498_))) - (___kont163992163993_ - _dispatch162455162533_ - _arity162456162536_)))))) - (_loop162449162491_ _target162446162485_ '() '())))) - (___match164028164029_ - (lambda (_e162445162475_ _hd162444162479_ _tl162443162482_) + (_g162417162472_))))) + (let ((_arity162460162540_ + (reverse _arity162458162504_)) + (_dispatch162459162537_ + (reverse _dispatch162457162502_))) + (___kont163996163997_ + _dispatch162459162537_ + _arity162460162540_)))))) + (_loop162453162495_ _target162450162489_ '() '())))) + (___match164032164033_ + (lambda (_e162449162479_ _hd162448162483_ _tl162447162486_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162443162482_)) - (let ((___splice163994163995_ + (gx#stx-pair/null? _tl162447162486_)) + (let ((___splice163998163999_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162443162482_ + _tl162447162486_ '0)))) - (let ((_tl162448162488_ + (let ((_tl162452162492_ (let () (declare (not safe)) - (##vector-ref ___splice163994163995_ '1))) - (_target162446162485_ + (##vector-ref ___splice163998163999_ '1))) + (_target162450162489_ (let () (declare (not safe)) - (##vector-ref ___splice163994163995_ '0)))) + (##vector-ref ___splice163998163999_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162448162488_)) - (___match164036164037_ - _e162445162475_ - _hd162444162479_ - _tl162443162482_ - ___splice163994163995_ - _target162446162485_ - _tl162448162488_) + (gx#stx-null? _tl162452162492_)) + (___match164040164041_ + _e162449162479_ + _hd162448162483_ + _tl162447162486_ + ___splice163998163999_ + _target162450162489_ + _tl162452162492_) (let () (declare (not safe)) - (_g162413162468_))))) - (let () (declare (not safe)) (_g162413162468_))))) - (___match164022164023_ - (lambda (_e162419162575_ - _hd162418162579_ - _tl162417162582_ - _e162422162585_ - _hd162421162589_ - _tl162420162592_ - _e162423162595_ - ___splice163990163991_ - _target162424162599_ - _tl162426162602_) - (letrec ((_loop162427162605_ - (lambda (_hd162425162609_ - _dispatch162431162612_ - _arity162432162614_) + (_g162417162472_))))) + (let () (declare (not safe)) (_g162417162472_))))) + (___match164026164027_ + (lambda (_e162423162579_ + _hd162422162583_ + _tl162421162586_ + _e162426162589_ + _hd162425162593_ + _tl162424162596_ + _e162427162599_ + ___splice163994163995_ + _target162428162603_ + _tl162430162606_) + (letrec ((_loop162431162609_ + (lambda (_hd162429162613_ + _dispatch162435162616_ + _arity162436162618_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd162425162609_)) - (let ((_e162428162617_ + (gx#stx-pair? _hd162429162613_)) + (let ((_e162432162621_ (let () (declare (not safe)) - (gx#syntax-e _hd162425162609_)))) - (let ((_lp-tl162430162624_ + (gx#syntax-e _hd162429162613_)))) + (let ((_lp-tl162434162628_ (let () (declare (not safe)) - (##cdr _e162428162617_))) - (_lp-hd162429162621_ + (##cdr _e162432162621_))) + (_lp-hd162433162625_ (let () (declare (not safe)) - (##car _e162428162617_)))) + (##car _e162432162621_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd162429162621_)) - (let ((_e162437162627_ + _lp-hd162433162625_)) + (let ((_e162441162631_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd162429162621_)))) - (let ((_tl162435162634_ + _lp-hd162433162625_)))) + (let ((_tl162439162638_ (let () (declare (not safe)) - (##cdr _e162437162627_))) - (_hd162436162631_ + (##cdr _e162441162631_))) + (_hd162440162635_ (let () (declare (not safe)) - (##car _e162437162627_)))) + (##car _e162441162631_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162435162634_)) - (let ((_e162440162637_ + _tl162439162638_)) + (let ((_e162444162641_ (let () (declare (not safe)) (gx#syntax-e - _tl162435162634_)))) - (let ((_tl162438162644_ + _tl162439162638_)))) + (let ((_tl162442162648_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e162440162637_))) - (_hd162439162641_ - (let () (declare (not safe)) (##car _e162440162637_)))) + (##cdr _e162444162641_))) + (_hd162443162645_ + (let () (declare (not safe)) (##car _e162444162641_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162438162644_)) - (_loop162427162605_ - _lp-tl162430162624_ + (gx#stx-null? _tl162442162648_)) + (_loop162431162609_ + _lp-tl162434162628_ (let () (declare (not safe)) - (cons _hd162439162641_ _dispatch162431162612_)) + (cons _hd162443162645_ _dispatch162435162616_)) (let () (declare (not safe)) - (cons _hd162436162631_ _arity162432162614_))) - (___match164028164029_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_)))) + (cons _hd162440162635_ _arity162436162618_))) + (___match164032164033_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match164028164029_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_)))) - (___match164028164029_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_)))) - (let ((_arity162434162650_ - (reverse _arity162432162614_)) - (_dispatch162433162647_ - (reverse _dispatch162431162612_))) - (___kont163988163989_ - _dispatch162433162647_ - _arity162434162650_)))))) - (_loop162427162605_ _target162424162599_ '() '()))))) + (___match164032164033_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_)))) + (___match164032164033_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_)))) + (let ((_arity162438162654_ + (reverse _arity162436162618_)) + (_dispatch162437162651_ + (reverse _dispatch162435162616_))) + (___kont163992163993_ + _dispatch162437162651_ + _arity162438162654_)))))) + (_loop162431162609_ _target162428162603_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx163985163986_)) - (let ((_e162419162575_ + (gx#stx-pair? ___stx163989163990_)) + (let ((_e162423162579_ (let () (declare (not safe)) - (gx#syntax-e ___stx163985163986_)))) - (let ((_tl162417162582_ - (let () (declare (not safe)) (##cdr _e162419162575_))) - (_hd162418162579_ + (gx#syntax-e ___stx163989163990_)))) + (let ((_tl162421162586_ + (let () (declare (not safe)) (##cdr _e162423162579_))) + (_hd162422162583_ (let () (declare (not safe)) - (##car _e162419162575_)))) + (##car _e162423162579_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162417162582_)) - (let ((_e162422162585_ + (gx#stx-pair? _tl162421162586_)) + (let ((_e162426162589_ (let () (declare (not safe)) - (gx#syntax-e _tl162417162582_)))) - (let ((_tl162420162592_ + (gx#syntax-e _tl162421162586_)))) + (let ((_tl162424162596_ (let () (declare (not safe)) - (##cdr _e162422162585_))) - (_hd162421162589_ + (##cdr _e162426162589_))) + (_hd162425162593_ (let () (declare (not safe)) - (##car _e162422162585_)))) + (##car _e162426162589_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162421162589_)) - (let ((_e162423162595_ + (gx#stx-datum? _hd162425162593_)) + (let ((_e162427162599_ (let () (declare (not safe)) - (gx#stx-e _hd162421162589_)))) + (gx#stx-e _hd162425162593_)))) (if (let () (declare (not safe)) - (equal? _e162423162595_ 'primitive:)) + (equal? _e162427162599_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162420162592_)) - (let ((___splice163990163991_ + _tl162424162596_)) + (let ((___splice163994163995_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162420162592_ + _tl162424162596_ '0)))) - (let ((_tl162426162602_ + (let ((_tl162430162606_ (let () (declare (not safe)) (##vector-ref - ___splice163990163991_ + ___splice163994163995_ '1))) - (_target162424162599_ + (_target162428162603_ (let () (declare (not safe)) (##vector-ref - ___splice163990163991_ + ___splice163994163995_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162426162602_)) - (___match164022164023_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_ - _e162422162585_ - _hd162421162589_ - _tl162420162592_ - _e162423162595_ - ___splice163990163991_ - _target162424162599_ - _tl162426162602_) + _tl162430162606_)) + (___match164026164027_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_ + _e162426162589_ + _hd162425162593_ + _tl162424162596_ + _e162427162599_ + ___splice163994163995_ + _target162428162603_ + _tl162430162606_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162417162582_)) - (let ((___splice163994163995_ + _tl162421162586_)) + (let ((___splice163998163999_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl162417162582_ '0)))) - (let ((_tl162448162488_ + (gx#syntax-split-splice _tl162421162586_ '0)))) + (let ((_tl162452162492_ (let () (declare (not safe)) - (##vector-ref ___splice163994163995_ '1))) - (_target162446162485_ + (##vector-ref ___splice163998163999_ '1))) + (_target162450162489_ (let () (declare (not safe)) - (##vector-ref ___splice163994163995_ '0)))) + (##vector-ref ___splice163998163999_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162448162488_)) - (___match164036164037_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_ - ___splice163994163995_ - _target162446162485_ - _tl162448162488_) - (let () (declare (not safe)) (_g162413162468_))))) - (let () (declare (not safe)) (_g162413162468_)))))) + (gx#stx-null? _tl162452162492_)) + (___match164040164041_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_ + ___splice163998163999_ + _target162450162489_ + _tl162452162492_) + (let () (declare (not safe)) (_g162417162472_))))) + (let () (declare (not safe)) (_g162417162472_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162417162582_)) - (let ((___splice163994163995_ + _tl162421162586_)) + (let ((___splice163998163999_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162417162582_ + _tl162421162586_ '0)))) - (let ((_tl162448162488_ + (let ((_tl162452162492_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163998163999_ '1))) - (_target162446162485_ + (_target162450162489_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163998163999_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162448162488_)) - (___match164036164037_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_ - ___splice163994163995_ - _target162446162485_ - _tl162448162488_) + _tl162452162492_)) + (___match164040164041_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_ + ___splice163998163999_ + _target162450162489_ + _tl162452162492_) (let () (declare (not safe)) - (_g162413162468_))))) + (_g162417162472_))))) (let () (declare (not safe)) - (_g162413162468_)))) + (_g162417162472_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162417162582_)) - (let ((___splice163994163995_ + _tl162421162586_)) + (let ((___splice163998163999_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162417162582_ + _tl162421162586_ '0)))) - (let ((_tl162448162488_ + (let ((_tl162452162492_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163998163999_ '1))) - (_target162446162485_ + (_target162450162489_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163998163999_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162448162488_)) - (___match164036164037_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_ - ___splice163994163995_ - _target162446162485_ - _tl162448162488_) + _tl162452162492_)) + (___match164040164041_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_ + ___splice163998163999_ + _target162450162489_ + _tl162452162492_) (let () (declare (not safe)) - (_g162413162468_))))) + (_g162417162472_))))) (let () (declare (not safe)) - (_g162413162468_))))) + (_g162417162472_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162417162582_)) - (let ((___splice163994163995_ + (gx#stx-pair/null? _tl162421162586_)) + (let ((___splice163998163999_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162417162582_ + _tl162421162586_ '0)))) - (let ((_tl162448162488_ + (let ((_tl162452162492_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163998163999_ '1))) - (_target162446162485_ + (_target162450162489_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163998163999_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162448162488_)) - (___match164036164037_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_ - ___splice163994163995_ - _target162446162485_ - _tl162448162488_) + (gx#stx-null? _tl162452162492_)) + (___match164040164041_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_ + ___splice163998163999_ + _target162450162489_ + _tl162452162492_) (let () (declare (not safe)) - (_g162413162468_))))) + (_g162417162472_))))) (let () (declare (not safe)) - (_g162413162468_)))))) + (_g162417162472_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162417162582_)) - (let ((___splice163994163995_ + (gx#stx-pair/null? _tl162421162586_)) + (let ((___splice163998163999_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162417162582_ + _tl162421162586_ '0)))) - (let ((_tl162448162488_ + (let ((_tl162452162492_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163998163999_ '1))) - (_target162446162485_ + (_target162450162489_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163998163999_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162448162488_)) - (___match164036164037_ - _e162419162575_ - _hd162418162579_ - _tl162417162582_ - ___splice163994163995_ - _target162446162485_ - _tl162448162488_) + (gx#stx-null? _tl162452162492_)) + (___match164040164041_ + _e162423162579_ + _hd162422162583_ + _tl162421162586_ + ___splice163998163999_ + _target162450162489_ + _tl162452162492_) (let () (declare (not safe)) - (_g162413162468_))))) - (let () (declare (not safe)) (_g162413162468_)))))) - (let () (declare (not safe)) (_g162413162468_)))))))) + (_g162417162472_))))) + (let () (declare (not safe)) (_g162417162472_)))))) + (let () (declare (not safe)) (_g162417162472_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx162690_) - (let* ((_g162694162712_ - (lambda (_g162695162708_) + (lambda (_$stx162694_) + (let* ((_g162698162716_ + (lambda (_g162699162712_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g162695162708_)))) - (_g162693162767_ - (lambda (_g162695162716_) + _g162699162712_)))) + (_g162697162771_ + (lambda (_g162699162720_) (if (let () (declare (not safe)) - (gx#stx-pair? _g162695162716_)) - (let ((_e162700162719_ + (gx#stx-pair? _g162699162720_)) + (let ((_e162704162723_ (let () (declare (not safe)) - (gx#syntax-e _g162695162716_)))) - (let ((_hd162699162723_ + (gx#syntax-e _g162699162720_)))) + (let ((_hd162703162727_ (let () (declare (not safe)) - (##car _e162700162719_))) - (_tl162698162726_ + (##car _e162704162723_))) + (_tl162702162730_ (let () (declare (not safe)) - (##cdr _e162700162719_)))) + (##cdr _e162704162723_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162698162726_)) - (let ((_e162703162729_ + (gx#stx-pair? _tl162702162730_)) + (let ((_e162707162733_ (let () (declare (not safe)) - (gx#syntax-e _tl162698162726_)))) - (let ((_hd162702162733_ + (gx#syntax-e _tl162702162730_)))) + (let ((_hd162706162737_ (let () (declare (not safe)) - (##car _e162703162729_))) - (_tl162701162736_ + (##car _e162707162733_))) + (_tl162705162740_ (let () (declare (not safe)) - (##cdr _e162703162729_)))) + (##cdr _e162707162733_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162701162736_)) - (let ((_e162706162739_ + (gx#stx-pair? _tl162705162740_)) + (let ((_e162710162743_ (let () (declare (not safe)) - (gx#syntax-e _tl162701162736_)))) - (let ((_hd162705162743_ + (gx#syntax-e _tl162705162740_)))) + (let ((_hd162709162747_ (let () (declare (not safe)) - (##car _e162706162739_))) - (_tl162704162746_ + (##car _e162710162743_))) + (_tl162708162750_ (let () (declare (not safe)) - (##cdr _e162706162739_)))) + (##cdr _e162710162743_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162704162746_)) - ((lambda (_L162749_ _L162751_) - (let ((__tmp164435 + (gx#stx-null? _tl162708162750_)) + ((lambda (_L162753_ _L162755_) + (let ((__tmp164439 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp164422 - (let ((__tmp164431 - (let ((__tmp164434 + (__tmp164426 + (let ((__tmp164435 + (let ((__tmp164438 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164432 - (let ((__tmp164433 + (__tmp164436 + (let ((__tmp164437 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp164433 '())))) + (cons __tmp164437 '())))) (declare (not safe)) - (cons __tmp164434 __tmp164432))) - (__tmp164423 - (let ((__tmp164428 - (let ((__tmp164430 + (cons __tmp164438 __tmp164436))) + (__tmp164427 + (let ((__tmp164432 + (let ((__tmp164434 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164429 + (__tmp164433 (let () (declare (not safe)) - (cons _L162751_ '())))) + (cons _L162755_ '())))) (declare (not safe)) - (cons __tmp164430 __tmp164429))) - (__tmp164424 - (let ((__tmp164425 - (let ((__tmp164427 + (cons __tmp164434 __tmp164433))) + (__tmp164428 + (let ((__tmp164429 + (let ((__tmp164431 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164426 + (__tmp164430 (let () (declare (not safe)) - (cons _L162749_ '())))) + (cons _L162753_ '())))) (declare (not safe)) - (cons __tmp164427 __tmp164426)))) + (cons __tmp164431 __tmp164430)))) (declare (not safe)) - (cons __tmp164425 '())))) + (cons __tmp164429 '())))) (declare (not safe)) - (cons __tmp164428 __tmp164424)))) + (cons __tmp164432 __tmp164428)))) (declare (not safe)) - (cons __tmp164431 __tmp164423)))) + (cons __tmp164435 __tmp164427)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164435 - __tmp164422))) - _hd162705162743_ - _hd162702162733_) - (_g162694162712_ - _g162695162716_)))) - (_g162694162712_ _g162695162716_)))) - (_g162694162712_ _g162695162716_)))) - (_g162694162712_ _g162695162716_))))) - (_g162693162767_ _$stx162690_)))) + (cons __tmp164439 + __tmp164426))) + _hd162709162747_ + _hd162706162737_) + (_g162698162716_ + _g162699162720_)))) + (_g162698162716_ _g162699162720_)))) + (_g162698162716_ _g162699162720_)))) + (_g162698162716_ _g162699162720_))))) + (_g162697162771_ _$stx162694_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx162771_) - (let* ((_g162775162793_ - (lambda (_g162776162789_) + (lambda (_$stx162775_) + (let* ((_g162779162797_ + (lambda (_g162780162793_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g162776162789_)))) - (_g162774162848_ - (lambda (_g162776162797_) + _g162780162793_)))) + (_g162778162852_ + (lambda (_g162780162801_) (if (let () (declare (not safe)) - (gx#stx-pair? _g162776162797_)) - (let ((_e162781162800_ + (gx#stx-pair? _g162780162801_)) + (let ((_e162785162804_ (let () (declare (not safe)) - (gx#syntax-e _g162776162797_)))) - (let ((_hd162780162804_ + (gx#syntax-e _g162780162801_)))) + (let ((_hd162784162808_ (let () (declare (not safe)) - (##car _e162781162800_))) - (_tl162779162807_ + (##car _e162785162804_))) + (_tl162783162811_ (let () (declare (not safe)) - (##cdr _e162781162800_)))) + (##cdr _e162785162804_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162779162807_)) - (let ((_e162784162810_ + (gx#stx-pair? _tl162783162811_)) + (let ((_e162788162814_ (let () (declare (not safe)) - (gx#syntax-e _tl162779162807_)))) - (let ((_hd162783162814_ + (gx#syntax-e _tl162783162811_)))) + (let ((_hd162787162818_ (let () (declare (not safe)) - (##car _e162784162810_))) - (_tl162782162817_ + (##car _e162788162814_))) + (_tl162786162821_ (let () (declare (not safe)) - (##cdr _e162784162810_)))) + (##cdr _e162788162814_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162782162817_)) - (let ((_e162787162820_ + (gx#stx-pair? _tl162786162821_)) + (let ((_e162791162824_ (let () (declare (not safe)) - (gx#syntax-e _tl162782162817_)))) - (let ((_hd162786162824_ + (gx#syntax-e _tl162786162821_)))) + (let ((_hd162790162828_ (let () (declare (not safe)) - (##car _e162787162820_))) - (_tl162785162827_ + (##car _e162791162824_))) + (_tl162789162831_ (let () (declare (not safe)) - (##cdr _e162787162820_)))) + (##cdr _e162791162824_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162785162827_)) - ((lambda (_L162830_ _L162832_) - (let ((__tmp164449 + (gx#stx-null? _tl162789162831_)) + ((lambda (_L162834_ _L162836_) + (let ((__tmp164453 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp164436 - (let ((__tmp164445 - (let ((__tmp164448 + (__tmp164440 + (let ((__tmp164449 + (let ((__tmp164452 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164446 - (let ((__tmp164447 + (__tmp164450 + (let ((__tmp164451 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp164447 '())))) + (cons __tmp164451 '())))) (declare (not safe)) - (cons __tmp164448 __tmp164446))) - (__tmp164437 - (let ((__tmp164442 - (let ((__tmp164444 + (cons __tmp164452 __tmp164450))) + (__tmp164441 + (let ((__tmp164446 + (let ((__tmp164448 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164443 + (__tmp164447 (let () (declare (not safe)) - (cons _L162832_ '())))) + (cons _L162836_ '())))) (declare (not safe)) - (cons __tmp164444 __tmp164443))) - (__tmp164438 - (let ((__tmp164439 - (let ((__tmp164441 + (cons __tmp164448 __tmp164447))) + (__tmp164442 + (let ((__tmp164443 + (let ((__tmp164445 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164440 + (__tmp164444 (let () (declare (not safe)) - (cons _L162830_ '())))) + (cons _L162834_ '())))) (declare (not safe)) - (cons __tmp164441 __tmp164440)))) + (cons __tmp164445 __tmp164444)))) (declare (not safe)) - (cons __tmp164439 '())))) + (cons __tmp164443 '())))) (declare (not safe)) - (cons __tmp164442 __tmp164438)))) + (cons __tmp164446 __tmp164442)))) (declare (not safe)) - (cons __tmp164445 __tmp164437)))) + (cons __tmp164449 __tmp164441)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164449 - __tmp164436))) - _hd162786162824_ - _hd162783162814_) - (_g162775162793_ - _g162776162797_)))) - (_g162775162793_ _g162776162797_)))) - (_g162775162793_ _g162776162797_)))) - (_g162775162793_ _g162776162797_))))) - (_g162774162848_ _$stx162771_)))) + (cons __tmp164453 + __tmp164440))) + _hd162790162828_ + _hd162787162818_) + (_g162779162797_ + _g162780162801_)))) + (_g162779162797_ _g162780162801_)))) + (_g162779162797_ _g162780162801_)))) + (_g162779162797_ _g162780162801_))))) + (_g162778162852_ _$stx162775_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx162852_) - (let* ((___stx164039164040_ _$stx162852_) - (_g162859162930_ + (lambda (_$stx162856_) + (let* ((___stx164043164044_ _$stx162856_) + (_g162863162934_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx164039164040_))))) - (let ((___kont164042164043_ - (lambda (_L163221_ _L163223_) - (let ((__tmp164455 + ___stx164043164044_))))) + (let ((___kont164046164047_ + (lambda (_L163225_ _L163227_) + (let ((__tmp164459 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164450 - (let ((__tmp164451 - (let ((__tmp164452 - (let ((__tmp164454 + (__tmp164454 + (let ((__tmp164455 + (let ((__tmp164456 + (let ((__tmp164458 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164453 + (__tmp164457 (let () (declare (not safe)) - (cons _L163221_ '())))) + (cons _L163225_ '())))) (declare (not safe)) - (cons __tmp164454 __tmp164453)))) + (cons __tmp164458 __tmp164457)))) (declare (not safe)) - (cons __tmp164452 '())))) + (cons __tmp164456 '())))) (declare (not safe)) - (cons _L163223_ __tmp164451)))) + (cons _L163227_ __tmp164455)))) (declare (not safe)) - (cons __tmp164455 __tmp164450)))) - (___kont164044164045_ - (lambda (_L163140_ _L163142_) - (let ((__tmp164464 + (cons __tmp164459 __tmp164454)))) + (___kont164048164049_ + (lambda (_L163144_ _L163146_) + (let ((__tmp164468 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164456 - (let ((__tmp164457 - (let ((__tmp164458 - (let ((__tmp164463 + (__tmp164460 + (let ((__tmp164461 + (let ((__tmp164462 + (let ((__tmp164467 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp164459 - (let ((__tmp164460 - (lambda (_g163161163164_ - _g163162163167_) - (let ((__tmp164461 - (let ((__tmp164462 + (__tmp164463 + (let ((__tmp164464 + (lambda (_g163165163168_ + _g163166163171_) + (let ((__tmp164465 + (let ((__tmp164466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g163161163164_ __tmp164462)))) + (cons _g163165163168_ __tmp164466)))) (declare (not safe)) - (cons __tmp164461 _g163162163167_))))) + (cons __tmp164465 _g163166163171_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp164460 + (foldr1 __tmp164464 '() - _L163140_)))) + _L163144_)))) (declare (not safe)) - (cons __tmp164463 __tmp164459)))) + (cons __tmp164467 __tmp164463)))) (declare (not safe)) - (cons __tmp164458 '())))) + (cons __tmp164462 '())))) (declare (not safe)) - (cons _L163142_ __tmp164457)))) + (cons _L163146_ __tmp164461)))) (declare (not safe)) - (cons __tmp164464 __tmp164456)))) - (___kont164048164049_ - (lambda (_L163052_ _L163054_) - (let ((__tmp164471 + (cons __tmp164468 __tmp164460)))) + (___kont164052164053_ + (lambda (_L163056_ _L163058_) + (let ((__tmp164475 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164465 - (let ((__tmp164466 - (let ((__tmp164467 - (let ((__tmp164470 + (__tmp164469 + (let ((__tmp164470 + (let ((__tmp164471 + (let ((__tmp164474 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164468 - (let ((__tmp164469 + (__tmp164472 + (let ((__tmp164473 (let () (declare (not safe)) - (cons _L163052_ '())))) + (cons _L163056_ '())))) (declare (not safe)) (cons 'primitive: - __tmp164469)))) + __tmp164473)))) (declare (not safe)) - (cons __tmp164470 __tmp164468)))) + (cons __tmp164474 __tmp164472)))) (declare (not safe)) - (cons __tmp164467 '())))) + (cons __tmp164471 '())))) (declare (not safe)) - (cons _L163054_ __tmp164466)))) + (cons _L163058_ __tmp164470)))) (declare (not safe)) - (cons __tmp164471 __tmp164465)))) - (___kont164050164051_ - (lambda (_L162987_ _L162989_) - (let ((__tmp164481 + (cons __tmp164475 __tmp164469)))) + (___kont164054164055_ + (lambda (_L162991_ _L162993_) + (let ((__tmp164485 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164472 - (let ((__tmp164473 - (let ((__tmp164474 - (let ((__tmp164480 + (__tmp164476 + (let ((__tmp164477 + (let ((__tmp164478 + (let ((__tmp164484 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp164475 - (let ((__tmp164476 - (let ((__tmp164477 - (lambda (_g163006163009_ + (__tmp164479 + (let ((__tmp164480 + (let ((__tmp164481 + (lambda (_g163010163013_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g163007163012_) - (let ((__tmp164478 - (let ((__tmp164479 + _g163011163016_) + (let ((__tmp164482 + (let ((__tmp164483 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g163006163009_ __tmp164479)))) + (cons _g163010163013_ __tmp164483)))) (declare (not safe)) - (cons __tmp164478 _g163007163012_))))) + (cons __tmp164482 _g163011163016_))))) (declare (not safe)) - (foldr1 __tmp164477 '() _L162987_)))) + (foldr1 __tmp164481 '() _L162991_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp164476)))) + __tmp164480)))) (declare (not safe)) - (cons __tmp164480 __tmp164475)))) + (cons __tmp164484 __tmp164479)))) (declare (not safe)) - (cons __tmp164474 '())))) + (cons __tmp164478 '())))) (declare (not safe)) - (cons _L162989_ __tmp164473)))) + (cons _L162993_ __tmp164477)))) (declare (not safe)) - (cons __tmp164481 __tmp164472))))) - (let* ((___match164158164159_ - (lambda (_e162912162937_ - _hd162911162941_ - _tl162910162944_ - _e162915162947_ - _hd162914162951_ - _tl162913162954_ - ___splice164052164053_ - _target162916162957_ - _tl162918162960_) - (letrec ((_loop162919162963_ - (lambda (_hd162917162967_ _arity162923162970_) + (cons __tmp164485 __tmp164476))))) + (let* ((___match164162164163_ + (lambda (_e162916162941_ + _hd162915162945_ + _tl162914162948_ + _e162919162951_ + _hd162918162955_ + _tl162917162958_ + ___splice164056164057_ + _target162920162961_ + _tl162922162964_) + (letrec ((_loop162923162967_ + (lambda (_hd162921162971_ _arity162927162974_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd162917162967_)) - (let ((_e162920162973_ + (gx#stx-pair? _hd162921162971_)) + (let ((_e162924162977_ (let () (declare (not safe)) - (gx#syntax-e _hd162917162967_)))) - (let ((_lp-tl162922162980_ + (gx#syntax-e _hd162921162971_)))) + (let ((_lp-tl162926162984_ (let () (declare (not safe)) - (##cdr _e162920162973_))) - (_lp-hd162921162977_ + (##cdr _e162924162977_))) + (_lp-hd162925162981_ (let () (declare (not safe)) - (##car _e162920162973_)))) - (_loop162919162963_ - _lp-tl162922162980_ + (##car _e162924162977_)))) + (_loop162923162967_ + _lp-tl162926162984_ (let () (declare (not safe)) - (cons _lp-hd162921162977_ - _arity162923162970_))))) - (let ((_arity162924162983_ - (reverse _arity162923162970_))) - (___kont164050164051_ - _arity162924162983_ - _hd162914162951_)))))) - (_loop162919162963_ _target162916162957_ '())))) - (___match164118164119_ - (lambda (_e162880163076_ - _hd162879163080_ - _tl162878163083_ - _e162883163086_ - _hd162882163090_ - _tl162881163093_ - _e162886163096_ - _hd162885163100_ - _tl162884163103_ - _e162887163106_ - ___splice164046164047_ - _target162888163110_ - _tl162890163113_) - (letrec ((_loop162891163116_ - (lambda (_hd162889163120_ _arity162895163123_) + (cons _lp-hd162925162981_ + _arity162927162974_))))) + (let ((_arity162928162987_ + (reverse _arity162927162974_))) + (___kont164054164055_ + _arity162928162987_ + _hd162918162955_)))))) + (_loop162923162967_ _target162920162961_ '())))) + (___match164122164123_ + (lambda (_e162884163080_ + _hd162883163084_ + _tl162882163087_ + _e162887163090_ + _hd162886163094_ + _tl162885163097_ + _e162890163100_ + _hd162889163104_ + _tl162888163107_ + _e162891163110_ + ___splice164050164051_ + _target162892163114_ + _tl162894163117_) + (letrec ((_loop162895163120_ + (lambda (_hd162893163124_ _arity162899163127_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd162889163120_)) - (let ((_e162892163126_ + (gx#stx-pair? _hd162893163124_)) + (let ((_e162896163130_ (let () (declare (not safe)) - (gx#syntax-e _hd162889163120_)))) - (let ((_lp-tl162894163133_ + (gx#syntax-e _hd162893163124_)))) + (let ((_lp-tl162898163137_ (let () (declare (not safe)) - (##cdr _e162892163126_))) - (_lp-hd162893163130_ + (##cdr _e162896163130_))) + (_lp-hd162897163134_ (let () (declare (not safe)) - (##car _e162892163126_)))) - (_loop162891163116_ - _lp-tl162894163133_ + (##car _e162896163130_)))) + (_loop162895163120_ + _lp-tl162898163137_ (let () (declare (not safe)) - (cons _lp-hd162893163130_ - _arity162895163123_))))) - (let ((_arity162896163136_ - (reverse _arity162895163123_))) - (___kont164044164045_ - _arity162896163136_ - _hd162882163090_)))))) - (_loop162891163116_ _target162888163110_ '()))))) + (cons _lp-hd162897163134_ + _arity162899163127_))))) + (let ((_arity162900163140_ + (reverse _arity162899163127_))) + (___kont164048164049_ + _arity162900163140_ + _hd162886163094_)))))) + (_loop162895163120_ _target162892163114_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx164039164040_)) - (let ((_e162865163177_ + (gx#stx-pair? ___stx164043164044_)) + (let ((_e162869163181_ (let () (declare (not safe)) - (gx#syntax-e ___stx164039164040_)))) - (let ((_tl162863163184_ - (let () (declare (not safe)) (##cdr _e162865163177_))) - (_hd162864163181_ + (gx#syntax-e ___stx164043164044_)))) + (let ((_tl162867163188_ + (let () (declare (not safe)) (##cdr _e162869163181_))) + (_hd162868163185_ (let () (declare (not safe)) - (##car _e162865163177_)))) + (##car _e162869163181_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162863163184_)) - (let ((_e162868163187_ + (gx#stx-pair? _tl162867163188_)) + (let ((_e162872163191_ (let () (declare (not safe)) - (gx#syntax-e _tl162863163184_)))) - (let ((_tl162866163194_ + (gx#syntax-e _tl162867163188_)))) + (let ((_tl162870163198_ (let () (declare (not safe)) - (##cdr _e162868163187_))) - (_hd162867163191_ + (##cdr _e162872163191_))) + (_hd162871163195_ (let () (declare (not safe)) - (##car _e162868163187_)))) + (##car _e162872163191_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162866163194_)) - (let ((_e162871163197_ + (gx#stx-pair? _tl162870163198_)) + (let ((_e162875163201_ (let () (declare (not safe)) - (gx#syntax-e _tl162866163194_)))) - (let ((_tl162869163204_ + (gx#syntax-e _tl162870163198_)))) + (let ((_tl162873163208_ (let () (declare (not safe)) - (##cdr _e162871163197_))) - (_hd162870163201_ + (##cdr _e162875163201_))) + (_hd162874163205_ (let () (declare (not safe)) - (##car _e162871163197_)))) + (##car _e162875163201_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162870163201_)) - (let ((_e162872163207_ + (gx#stx-datum? _hd162874163205_)) + (let ((_e162876163211_ (let () (declare (not safe)) - (gx#stx-e _hd162870163201_)))) + (gx#stx-e _hd162874163205_)))) (if (let () (declare (not safe)) - (equal? _e162872163207_ + (equal? _e162876163211_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162869163204_)) - (let ((_e162875163211_ + _tl162873163208_)) + (let ((_e162879163215_ (let () (declare (not safe)) (gx#syntax-e - _tl162869163204_)))) - (let ((_tl162873163218_ + _tl162873163208_)))) + (let ((_tl162877163222_ (let () (declare (not safe)) - (##cdr _e162875163211_))) - (_hd162874163215_ + (##cdr _e162879163215_))) + (_hd162878163219_ (let () (declare (not safe)) - (##car _e162875163211_)))) + (##car _e162879163215_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162873163218_)) - (___kont164042164043_ - _hd162874163215_ - _hd162867163191_) + _tl162877163222_)) + (___kont164046164047_ + _hd162878163219_ + _hd162871163195_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl162869163204_)) - (let ((___splice164046164047_ + (gx#stx-pair/null? _tl162873163208_)) + (let ((___splice164050164051_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl162869163204_ '0)))) - (let ((_tl162890163113_ + (gx#syntax-split-splice _tl162873163208_ '0)))) + (let ((_tl162894163117_ (let () (declare (not safe)) - (##vector-ref ___splice164046164047_ '1))) - (_target162888163110_ + (##vector-ref ___splice164050164051_ '1))) + (_target162892163114_ (let () (declare (not safe)) - (##vector-ref ___splice164046164047_ '0)))) + (##vector-ref ___splice164050164051_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162890163113_)) - (___match164118164119_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - _e162871163197_ - _hd162870163201_ - _tl162869163204_ - _e162872163207_ - ___splice164046164047_ - _target162888163110_ - _tl162890163113_) + (gx#stx-null? _tl162894163117_)) + (___match164122164123_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + _e162875163201_ + _hd162874163205_ + _tl162873163208_ + _e162876163211_ + ___splice164050164051_ + _target162892163114_ + _tl162894163117_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162866163194_)) - (let ((___splice164052164053_ + (gx#stx-pair/null? _tl162870163198_)) + (let ((___splice164056164057_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162866163194_ + _tl162870163198_ '0)))) - (let ((_tl162918162960_ + (let ((_tl162922162964_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '1))) - (_target162916162957_ + (_target162920162961_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162918162960_)) - (___match164158164159_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - ___splice164052164053_ - _target162916162957_ - _tl162918162960_) + (gx#stx-null? _tl162922162964_)) + (___match164162164163_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + ___splice164056164057_ + _target162920162961_ + _tl162922162964_) (let () (declare (not safe)) - (_g162859162930_))))) + (_g162863162934_))))) (let () (declare (not safe)) - (_g162859162930_)))))) + (_g162863162934_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162866163194_)) - (let ((___splice164052164053_ + (gx#stx-pair/null? _tl162870163198_)) + (let ((___splice164056164057_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162866163194_ + _tl162870163198_ '0)))) - (let ((_tl162918162960_ + (let ((_tl162922162964_ (let () (declare (not safe)) - (##vector-ref ___splice164052164053_ '1))) - (_target162916162957_ + (##vector-ref ___splice164056164057_ '1))) + (_target162920162961_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162918162960_)) - (___match164158164159_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - ___splice164052164053_ - _target162916162957_ - _tl162918162960_) + (gx#stx-null? _tl162922162964_)) + (___match164162164163_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + ___splice164056164057_ + _target162920162961_ + _tl162922162964_) (let () (declare (not safe)) - (_g162859162930_))))) - (let () (declare (not safe)) (_g162859162930_))))))) + (_g162863162934_))))) + (let () (declare (not safe)) (_g162863162934_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162869163204_)) - (let ((___splice164046164047_ + _tl162873163208_)) + (let ((___splice164050164051_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl162869163204_ '0)))) - (let ((_tl162890163113_ + (gx#syntax-split-splice _tl162873163208_ '0)))) + (let ((_tl162894163117_ (let () (declare (not safe)) - (##vector-ref ___splice164046164047_ '1))) - (_target162888163110_ + (##vector-ref ___splice164050164051_ '1))) + (_target162892163114_ (let () (declare (not safe)) - (##vector-ref ___splice164046164047_ '0)))) + (##vector-ref ___splice164050164051_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162890163113_)) - (___match164118164119_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - _e162871163197_ - _hd162870163201_ - _tl162869163204_ - _e162872163207_ - ___splice164046164047_ - _target162888163110_ - _tl162890163113_) + (gx#stx-null? _tl162894163117_)) + (___match164122164123_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + _e162875163201_ + _hd162874163205_ + _tl162873163208_ + _e162876163211_ + ___splice164050164051_ + _target162892163114_ + _tl162894163117_) (if (let () (declare (not safe)) - (gx#stx-null? _tl162869163204_)) - (___kont164048164049_ - _hd162870163201_ - _hd162867163191_) + (gx#stx-null? _tl162873163208_)) + (___kont164052164053_ + _hd162874163205_ + _hd162871163195_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162866163194_)) - (let ((___splice164052164053_ + (gx#stx-pair/null? _tl162870163198_)) + (let ((___splice164056164057_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162866163194_ + _tl162870163198_ '0)))) - (let ((_tl162918162960_ + (let ((_tl162922162964_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '1))) - (_target162916162957_ + (_target162920162961_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162918162960_)) - (___match164158164159_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - ___splice164052164053_ - _target162916162957_ - _tl162918162960_) + (gx#stx-null? _tl162922162964_)) + (___match164162164163_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + ___splice164056164057_ + _target162920162961_ + _tl162922162964_) (let () (declare (not safe)) - (_g162859162930_))))) + (_g162863162934_))))) (let () (declare (not safe)) - (_g162859162930_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl162869163204_)) - (___kont164048164049_ _hd162870163201_ _hd162867163191_) + (_g162863162934_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl162873163208_)) + (___kont164052164053_ _hd162874163205_ _hd162871163195_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162866163194_)) - (let ((___splice164052164053_ + (gx#stx-pair/null? _tl162870163198_)) + (let ((___splice164056164057_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl162866163194_ '0)))) - (let ((_tl162918162960_ + (gx#syntax-split-splice _tl162870163198_ '0)))) + (let ((_tl162922162964_ (let () (declare (not safe)) - (##vector-ref ___splice164052164053_ '1))) - (_target162916162957_ + (##vector-ref ___splice164056164057_ '1))) + (_target162920162961_ (let () (declare (not safe)) - (##vector-ref ___splice164052164053_ '0)))) + (##vector-ref ___splice164056164057_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162918162960_)) - (___match164158164159_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - ___splice164052164053_ - _target162916162957_ - _tl162918162960_) + (gx#stx-null? _tl162922162964_)) + (___match164162164163_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + ___splice164056164057_ + _target162920162961_ + _tl162922162964_) (let () (declare (not safe)) - (_g162859162930_))))) - (let () (declare (not safe)) (_g162859162930_)))))) + (_g162863162934_))))) + (let () (declare (not safe)) (_g162863162934_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl162869163204_)) - (___kont164048164049_ - _hd162870163201_ - _hd162867163191_) + _tl162873163208_)) + (___kont164052164053_ + _hd162874163205_ + _hd162871163195_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162866163194_)) - (let ((___splice164052164053_ + _tl162870163198_)) + (let ((___splice164056164057_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl162866163194_ '0)))) - (let ((_tl162918162960_ + (gx#syntax-split-splice _tl162870163198_ '0)))) + (let ((_tl162922162964_ (let () (declare (not safe)) - (##vector-ref ___splice164052164053_ '1))) - (_target162916162957_ + (##vector-ref ___splice164056164057_ '1))) + (_target162920162961_ (let () (declare (not safe)) - (##vector-ref ___splice164052164053_ '0)))) + (##vector-ref ___splice164056164057_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162918162960_)) - (___match164158164159_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - ___splice164052164053_ - _target162916162957_ - _tl162918162960_) - (let () (declare (not safe)) (_g162859162930_))))) - (let () (declare (not safe)) (_g162859162930_)))))) + (gx#stx-null? _tl162922162964_)) + (___match164162164163_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + ___splice164056164057_ + _target162920162961_ + _tl162922162964_) + (let () (declare (not safe)) (_g162863162934_))))) + (let () (declare (not safe)) (_g162863162934_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl162869163204_)) - (___kont164048164049_ - _hd162870163201_ - _hd162867163191_) + (gx#stx-null? _tl162873163208_)) + (___kont164052164053_ + _hd162874163205_ + _hd162871163195_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162866163194_)) - (let ((___splice164052164053_ + _tl162870163198_)) + (let ((___splice164056164057_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162866163194_ + _tl162870163198_ '0)))) - (let ((_tl162918162960_ + (let ((_tl162922162964_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '1))) - (_target162916162957_ + (_target162920162961_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162918162960_)) - (___match164158164159_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - ___splice164052164053_ - _target162916162957_ - _tl162918162960_) + _tl162922162964_)) + (___match164162164163_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + ___splice164056164057_ + _target162920162961_ + _tl162922162964_) (let () (declare (not safe)) - (_g162859162930_))))) + (_g162863162934_))))) (let () (declare (not safe)) - (_g162859162930_))))))) + (_g162863162934_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162866163194_)) - (let ((___splice164052164053_ + (gx#stx-pair/null? _tl162870163198_)) + (let ((___splice164056164057_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162866163194_ + _tl162870163198_ '0)))) - (let ((_tl162918162960_ + (let ((_tl162922162964_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '1))) - (_target162916162957_ + (_target162920162961_ (let () (declare (not safe)) (##vector-ref - ___splice164052164053_ + ___splice164056164057_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162918162960_)) - (___match164158164159_ - _e162865163177_ - _hd162864163181_ - _tl162863163184_ - _e162868163187_ - _hd162867163191_ - _tl162866163194_ - ___splice164052164053_ - _target162916162957_ - _tl162918162960_) + (gx#stx-null? _tl162922162964_)) + (___match164162164163_ + _e162869163181_ + _hd162868163185_ + _tl162867163188_ + _e162872163191_ + _hd162871163195_ + _tl162870163198_ + ___splice164056164057_ + _target162920162961_ + _tl162922162964_) (let () (declare (not safe)) - (_g162859162930_))))) + (_g162863162934_))))) (let () (declare (not safe)) - (_g162859162930_)))))) - (let () (declare (not safe)) (_g162859162930_))))) - (let () (declare (not safe)) (_g162859162930_)))))))) + (_g162863162934_)))))) + (let () (declare (not safe)) (_g162863162934_))))) + (let () (declare (not safe)) (_g162863162934_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx163247_) - (let* ((___stx164161164162_ _$stx163247_) - (_g163252163287_ + (lambda (_$stx163251_) + (let* ((___stx164165164166_ _$stx163251_) + (_g163256163291_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx164161164162_))))) - (let ((___kont164164164165_ - (lambda (_L163409_ _L163411_) - (let ((__tmp164487 + ___stx164165164166_))))) + (let ((___kont164168164169_ + (lambda (_L163413_ _L163415_) + (let ((__tmp164491 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164482 - (let ((__tmp164483 - (let ((__tmp164484 - (let ((__tmp164486 + (__tmp164486 + (let ((__tmp164487 + (let ((__tmp164488 + (let ((__tmp164490 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164485 + (__tmp164489 (let () (declare (not safe)) - (cons _L163409_ '())))) + (cons _L163413_ '())))) (declare (not safe)) - (cons __tmp164486 __tmp164485)))) + (cons __tmp164490 __tmp164489)))) (declare (not safe)) - (cons __tmp164484 '())))) + (cons __tmp164488 '())))) (declare (not safe)) - (cons _L163411_ __tmp164483)))) + (cons _L163415_ __tmp164487)))) (declare (not safe)) - (cons __tmp164487 __tmp164482)))) - (___kont164166164167_ - (lambda (_L163344_ _L163346_) - (let ((__tmp164496 + (cons __tmp164491 __tmp164486)))) + (___kont164170164171_ + (lambda (_L163348_ _L163350_) + (let ((__tmp164500 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164488 - (let ((__tmp164489 - (let ((__tmp164490 - (let ((__tmp164495 + (__tmp164492 + (let ((__tmp164493 + (let ((__tmp164494 + (let ((__tmp164499 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp164491 - (let ((__tmp164492 - (lambda (_g163363163366_ - _g163364163369_) - (let ((__tmp164493 - (let ((__tmp164494 + (__tmp164495 + (let ((__tmp164496 + (lambda (_g163367163370_ + _g163368163373_) + (let ((__tmp164497 + (let ((__tmp164498 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g163363163366_ __tmp164494)))) + (cons _g163367163370_ __tmp164498)))) (declare (not safe)) - (cons __tmp164493 _g163364163369_))))) + (cons __tmp164497 _g163368163373_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp164492 + (foldr1 __tmp164496 '() - _L163344_)))) + _L163348_)))) (declare (not safe)) - (cons __tmp164495 __tmp164491)))) + (cons __tmp164499 __tmp164495)))) (declare (not safe)) - (cons __tmp164490 '())))) + (cons __tmp164494 '())))) (declare (not safe)) - (cons _L163346_ __tmp164489)))) + (cons _L163350_ __tmp164493)))) (declare (not safe)) - (cons __tmp164496 __tmp164488))))) - (let ((___match164210164211_ - (lambda (_e163269163294_ - _hd163268163298_ - _tl163267163301_ - _e163272163304_ - _hd163271163308_ - _tl163270163311_ - ___splice164168164169_ - _target163273163314_ - _tl163275163317_) - (letrec ((_loop163276163320_ - (lambda (_hd163274163324_ _arity163280163327_) + (cons __tmp164500 __tmp164492))))) + (let ((___match164214164215_ + (lambda (_e163273163298_ + _hd163272163302_ + _tl163271163305_ + _e163276163308_ + _hd163275163312_ + _tl163274163315_ + ___splice164172164173_ + _target163277163318_ + _tl163279163321_) + (letrec ((_loop163280163324_ + (lambda (_hd163278163328_ _arity163284163331_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd163274163324_)) - (let ((_e163277163330_ + (gx#stx-pair? _hd163278163328_)) + (let ((_e163281163334_ (let () (declare (not safe)) - (gx#syntax-e _hd163274163324_)))) - (let ((_lp-tl163279163337_ + (gx#syntax-e _hd163278163328_)))) + (let ((_lp-tl163283163341_ (let () (declare (not safe)) - (##cdr _e163277163330_))) - (_lp-hd163278163334_ + (##cdr _e163281163334_))) + (_lp-hd163282163338_ (let () (declare (not safe)) - (##car _e163277163330_)))) - (_loop163276163320_ - _lp-tl163279163337_ + (##car _e163281163334_)))) + (_loop163280163324_ + _lp-tl163283163341_ (let () (declare (not safe)) - (cons _lp-hd163278163334_ - _arity163280163327_))))) - (let ((_arity163281163340_ - (reverse _arity163280163327_))) - (___kont164166164167_ - _arity163281163340_ - _hd163271163308_)))))) - (_loop163276163320_ _target163273163314_ '()))))) + (cons _lp-hd163282163338_ + _arity163284163331_))))) + (let ((_arity163285163344_ + (reverse _arity163284163331_))) + (___kont164170164171_ + _arity163285163344_ + _hd163275163312_)))))) + (_loop163280163324_ _target163277163318_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx164161164162_)) - (let ((_e163258163379_ + (gx#stx-pair? ___stx164165164166_)) + (let ((_e163262163383_ (let () (declare (not safe)) - (gx#syntax-e ___stx164161164162_)))) - (let ((_tl163256163386_ - (let () (declare (not safe)) (##cdr _e163258163379_))) - (_hd163257163383_ + (gx#syntax-e ___stx164165164166_)))) + (let ((_tl163260163390_ + (let () (declare (not safe)) (##cdr _e163262163383_))) + (_hd163261163387_ (let () (declare (not safe)) - (##car _e163258163379_)))) + (##car _e163262163383_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl163256163386_)) - (let ((_e163261163389_ + (gx#stx-pair? _tl163260163390_)) + (let ((_e163265163393_ (let () (declare (not safe)) - (gx#syntax-e _tl163256163386_)))) - (let ((_tl163259163396_ + (gx#syntax-e _tl163260163390_)))) + (let ((_tl163263163400_ (let () (declare (not safe)) - (##cdr _e163261163389_))) - (_hd163260163393_ + (##cdr _e163265163393_))) + (_hd163264163397_ (let () (declare (not safe)) - (##car _e163261163389_)))) + (##car _e163265163393_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl163259163396_)) - (let ((_e163264163399_ + (gx#stx-pair? _tl163263163400_)) + (let ((_e163268163403_ (let () (declare (not safe)) - (gx#syntax-e _tl163259163396_)))) - (let ((_tl163262163406_ + (gx#syntax-e _tl163263163400_)))) + (let ((_tl163266163410_ (let () (declare (not safe)) - (##cdr _e163264163399_))) - (_hd163263163403_ + (##cdr _e163268163403_))) + (_hd163267163407_ (let () (declare (not safe)) - (##car _e163264163399_)))) + (##car _e163268163403_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163262163406_)) - (___kont164164164165_ - _hd163263163403_ - _hd163260163393_) + (gx#stx-null? _tl163266163410_)) + (___kont164168164169_ + _hd163267163407_ + _hd163264163397_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl163259163396_)) - (let ((___splice164168164169_ + _tl163263163400_)) + (let ((___splice164172164173_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163259163396_ + _tl163263163400_ '0)))) - (let ((_tl163275163317_ + (let ((_tl163279163321_ (let () (declare (not safe)) (##vector-ref - ___splice164168164169_ + ___splice164172164173_ '1))) - (_target163273163314_ + (_target163277163318_ (let () (declare (not safe)) (##vector-ref - ___splice164168164169_ + ___splice164172164173_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl163275163317_)) - (___match164210164211_ - _e163258163379_ - _hd163257163383_ - _tl163256163386_ - _e163261163389_ - _hd163260163393_ - _tl163259163396_ - ___splice164168164169_ - _target163273163314_ - _tl163275163317_) + _tl163279163321_)) + (___match164214164215_ + _e163262163383_ + _hd163261163387_ + _tl163260163390_ + _e163265163393_ + _hd163264163397_ + _tl163263163400_ + ___splice164172164173_ + _target163277163318_ + _tl163279163321_) (let () (declare (not safe)) - (_g163252163287_))))) + (_g163256163291_))))) (let () (declare (not safe)) - (_g163252163287_)))))) + (_g163256163291_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163259163396_)) - (let ((___splice164168164169_ + (gx#stx-pair/null? _tl163263163400_)) + (let ((___splice164172164173_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163259163396_ + _tl163263163400_ '0)))) - (let ((_tl163275163317_ + (let ((_tl163279163321_ (let () (declare (not safe)) (##vector-ref - ___splice164168164169_ + ___splice164172164173_ '1))) - (_target163273163314_ + (_target163277163318_ (let () (declare (not safe)) (##vector-ref - ___splice164168164169_ + ___splice164172164173_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163275163317_)) - (___match164210164211_ - _e163258163379_ - _hd163257163383_ - _tl163256163386_ - _e163261163389_ - _hd163260163393_ - _tl163259163396_ - ___splice164168164169_ - _target163273163314_ - _tl163275163317_) + (gx#stx-null? _tl163279163321_)) + (___match164214164215_ + _e163262163383_ + _hd163261163387_ + _tl163260163390_ + _e163265163393_ + _hd163264163397_ + _tl163263163400_ + ___splice164172164173_ + _target163277163318_ + _tl163279163321_) (let () (declare (not safe)) - (_g163252163287_))))) + (_g163256163291_))))) (let () (declare (not safe)) - (_g163252163287_)))))) - (let () (declare (not safe)) (_g163252163287_))))) - (let () (declare (not safe)) (_g163252163287_)))))))) + (_g163256163291_)))))) + (let () (declare (not safe)) (_g163256163291_))))) + (let () (declare (not safe)) (_g163256163291_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx163431_) - (let* ((_g163435163470_ - (lambda (_g163436163466_) + (lambda (_$stx163435_) + (let* ((_g163439163474_ + (lambda (_g163440163470_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g163436163466_)))) - (_g163434163598_ - (lambda (_g163436163474_) + _g163440163470_)))) + (_g163438163602_ + (lambda (_g163440163478_) (if (let () (declare (not safe)) - (gx#stx-pair? _g163436163474_)) - (let ((_e163441163477_ + (gx#stx-pair? _g163440163478_)) + (let ((_e163445163481_ (let () (declare (not safe)) - (gx#syntax-e _g163436163474_)))) - (let ((_hd163440163481_ + (gx#syntax-e _g163440163478_)))) + (let ((_hd163444163485_ (let () (declare (not safe)) - (##car _e163441163477_))) - (_tl163439163484_ + (##car _e163445163481_))) + (_tl163443163488_ (let () (declare (not safe)) - (##cdr _e163441163477_)))) + (##cdr _e163445163481_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163439163484_)) - (let ((_g164497_ + (gx#stx-pair/null? _tl163443163488_)) + (let ((_g164501_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163439163484_ + _tl163443163488_ '0)))) (begin - (let ((_g164498_ + (let ((_g164502_ (let () (declare (not safe)) - (if (##values? _g164497_) - (##vector-length _g164497_) + (if (##values? _g164501_) + (##vector-length _g164501_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164498_ 2))) + (##fx= _g164502_ 2))) (error "Context expects 2 values" - _g164498_))) - (let ((_target163442163487_ + _g164502_))) + (let ((_target163446163491_ (let () (declare (not safe)) - (##vector-ref _g164497_ 0))) - (_tl163444163490_ + (##vector-ref _g164501_ 0))) + (_tl163448163494_ (let () (declare (not safe)) - (##vector-ref _g164497_ 1)))) + (##vector-ref _g164501_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163444163490_)) - (letrec ((_loop163445163493_ - (lambda (_hd163443163497_ - _arity163449163500_ - _prim163450163502_) + (gx#stx-null? _tl163448163494_)) + (letrec ((_loop163449163497_ + (lambda (_hd163447163501_ + _arity163453163504_ + _prim163454163506_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd163443163497_)) - (let ((_e163446163505_ + _hd163447163501_)) + (let ((_e163450163509_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd163443163497_)))) - (let ((_lp-hd163447163509_ - (let () (declare (not safe)) (##car _e163446163505_))) - (_lp-tl163448163512_ - (let () (declare (not safe)) (##cdr _e163446163505_)))) + (gx#syntax-e _hd163447163501_)))) + (let ((_lp-hd163451163513_ + (let () (declare (not safe)) (##car _e163450163509_))) + (_lp-tl163452163516_ + (let () (declare (not safe)) (##cdr _e163450163509_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd163447163509_)) - (let ((_e163455163515_ + (gx#stx-pair? _lp-hd163451163513_)) + (let ((_e163459163519_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd163447163509_)))) - (let ((_hd163454163519_ + (gx#syntax-e _lp-hd163451163513_)))) + (let ((_hd163458163523_ (let () (declare (not safe)) - (##car _e163455163515_))) - (_tl163453163522_ + (##car _e163459163519_))) + (_tl163457163526_ (let () (declare (not safe)) - (##cdr _e163455163515_)))) + (##cdr _e163459163519_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163453163522_)) - (let ((_g164507_ + (gx#stx-pair/null? _tl163457163526_)) + (let ((_g164511_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163453163522_ + _tl163457163526_ '0)))) (begin - (let ((_g164508_ + (let ((_g164512_ (let () (declare (not safe)) - (if (##values? _g164507_) - (##vector-length _g164507_) + (if (##values? _g164511_) + (##vector-length _g164511_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164508_ 2))) + (##fx= _g164512_ 2))) (error "Context expects 2 values" - _g164508_))) - (let ((_target163456163525_ + _g164512_))) + (let ((_target163460163529_ (let () (declare (not safe)) - (##vector-ref _g164507_ 0))) - (_tl163458163528_ + (##vector-ref _g164511_ 0))) + (_tl163462163532_ (let () (declare (not safe)) - (##vector-ref _g164507_ 1)))) + (##vector-ref _g164511_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163458163528_)) - (letrec ((_loop163459163531_ - (lambda (_hd163457163535_ - _arity163463163538_) + (gx#stx-null? _tl163462163532_)) + (letrec ((_loop163463163535_ + (lambda (_hd163461163539_ + _arity163467163542_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd163457163535_)) - (let ((_e163460163541_ + _hd163461163539_)) + (let ((_e163464163545_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd163457163535_)))) - (let ((_lp-hd163461163545_ - (let () (declare (not safe)) (##car _e163460163541_))) - (_lp-tl163462163548_ + (gx#syntax-e _hd163461163539_)))) + (let ((_lp-hd163465163549_ + (let () (declare (not safe)) (##car _e163464163545_))) + (_lp-tl163466163552_ (let () (declare (not safe)) - (##cdr _e163460163541_)))) - (_loop163459163531_ - _lp-tl163462163548_ + (##cdr _e163464163545_)))) + (_loop163463163535_ + _lp-tl163466163552_ (let () (declare (not safe)) - (cons _lp-hd163461163545_ _arity163463163538_))))) - (let ((_arity163464163551_ (reverse _arity163463163538_))) - (_loop163445163493_ - _lp-tl163448163512_ + (cons _lp-hd163465163549_ _arity163467163542_))))) + (let ((_arity163468163555_ (reverse _arity163467163542_))) + (_loop163449163497_ + _lp-tl163452163516_ (let () (declare (not safe)) - (cons _arity163464163551_ _arity163449163500_)) + (cons _arity163468163555_ _arity163453163504_)) (let () (declare (not safe)) - (cons _hd163454163519_ _prim163450163502_)))))))) + (cons _hd163458163523_ _prim163454163506_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop163459163531_ - _target163456163525_ + (_loop163463163535_ + _target163460163529_ '())) - (_g163435163470_ _g163436163474_))))) - (_g163435163470_ _g163436163474_)))) - (_g163435163470_ _g163436163474_)))) - (let ((_arity163451163555_ (reverse _arity163449163500_)) - (_prim163452163558_ (reverse _prim163450163502_))) - ((lambda (_L163561_ _L163563_) - (let ((__tmp164506 + (_g163439163474_ _g163440163478_))))) + (_g163439163474_ _g163440163478_)))) + (_g163439163474_ _g163440163478_)))) + (let ((_arity163455163559_ (reverse _arity163453163504_)) + (_prim163456163562_ (reverse _prim163454163506_))) + ((lambda (_L163565_ _L163567_) + (let ((__tmp164510 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164499 + (__tmp164503 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L163561_ - _L163563_)) - (let ((__tmp164500 - (lambda (_g163578163584_ - _g163579163587_ - _g163580163589_) - (let ((__tmp164501 - (let ((__tmp164505 + _L163565_ + _L163567_)) + (let ((__tmp164504 + (lambda (_g163582163588_ + _g163583163591_ + _g163584163593_) + (let ((__tmp164505 + (let ((__tmp164509 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp164502 - (let ((__tmp164503 - (let ((__tmp164504 + (__tmp164506 + (let ((__tmp164507 + (let ((__tmp164508 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g163581163592_ _g163582163595_) + (lambda (_g163585163596_ _g163586163599_) (let () (declare (not safe)) - (cons _g163581163592_ _g163582163595_))))) + (cons _g163585163596_ _g163586163599_))))) (declare (not safe)) - (foldr1 __tmp164504 '() _g163578163584_)))) + (foldr1 __tmp164508 '() _g163582163588_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g163579163587_ - __tmp164503)))) + (cons _g163583163591_ + __tmp164507)))) (declare (not safe)) - (cons __tmp164505 __tmp164502)))) + (cons __tmp164509 __tmp164506)))) (declare (not safe)) - (cons __tmp164501 _g163580163589_))))) + (cons __tmp164505 _g163584163593_))))) (declare (not safe)) - (foldr2 __tmp164500 '() _L163561_ _L163563_))))) + (foldr2 __tmp164504 '() _L163565_ _L163567_))))) (declare (not safe)) - (cons __tmp164506 __tmp164499))) - _arity163451163555_ - _prim163452163558_)))))) + (cons __tmp164510 __tmp164503))) + _arity163455163559_ + _prim163456163562_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop163445163493_ - _target163442163487_ + (_loop163449163497_ + _target163446163491_ '() '())) - (_g163435163470_ _g163436163474_))))) - (_g163435163470_ _g163436163474_)))) - (_g163435163470_ _g163436163474_))))) - (_g163434163598_ _$stx163431_)))) + (_g163439163474_ _g163440163478_))))) + (_g163439163474_ _g163440163478_)))) + (_g163439163474_ _g163440163478_))))) + (_g163438163602_ _$stx163435_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx163604_) - (let* ((_g163608163643_ - (lambda (_g163609163639_) + (lambda (_$stx163608_) + (let* ((_g163612163647_ + (lambda (_g163613163643_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g163609163639_)))) - (_g163607163771_ - (lambda (_g163609163647_) + _g163613163643_)))) + (_g163611163775_ + (lambda (_g163613163651_) (if (let () (declare (not safe)) - (gx#stx-pair? _g163609163647_)) - (let ((_e163614163650_ + (gx#stx-pair? _g163613163651_)) + (let ((_e163618163654_ (let () (declare (not safe)) - (gx#syntax-e _g163609163647_)))) - (let ((_hd163613163654_ + (gx#syntax-e _g163613163651_)))) + (let ((_hd163617163658_ (let () (declare (not safe)) - (##car _e163614163650_))) - (_tl163612163657_ + (##car _e163618163654_))) + (_tl163616163661_ (let () (declare (not safe)) - (##cdr _e163614163650_)))) + (##cdr _e163618163654_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163612163657_)) - (let ((_g164509_ + (gx#stx-pair/null? _tl163616163661_)) + (let ((_g164513_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163612163657_ + _tl163616163661_ '0)))) (begin - (let ((_g164510_ + (let ((_g164514_ (let () (declare (not safe)) - (if (##values? _g164509_) - (##vector-length _g164509_) + (if (##values? _g164513_) + (##vector-length _g164513_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164510_ 2))) + (##fx= _g164514_ 2))) (error "Context expects 2 values" - _g164510_))) - (let ((_target163615163660_ + _g164514_))) + (let ((_target163619163664_ (let () (declare (not safe)) - (##vector-ref _g164509_ 0))) - (_tl163617163663_ + (##vector-ref _g164513_ 0))) + (_tl163621163667_ (let () (declare (not safe)) - (##vector-ref _g164509_ 1)))) + (##vector-ref _g164513_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163617163663_)) - (letrec ((_loop163618163666_ - (lambda (_hd163616163670_ - _arity163622163673_ - _prim163623163675_) + (gx#stx-null? _tl163621163667_)) + (letrec ((_loop163622163670_ + (lambda (_hd163620163674_ + _arity163626163677_ + _prim163627163679_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd163616163670_)) - (let ((_e163619163678_ + _hd163620163674_)) + (let ((_e163623163682_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd163616163670_)))) - (let ((_lp-hd163620163682_ - (let () (declare (not safe)) (##car _e163619163678_))) - (_lp-tl163621163685_ - (let () (declare (not safe)) (##cdr _e163619163678_)))) + (gx#syntax-e _hd163620163674_)))) + (let ((_lp-hd163624163686_ + (let () (declare (not safe)) (##car _e163623163682_))) + (_lp-tl163625163689_ + (let () (declare (not safe)) (##cdr _e163623163682_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd163620163682_)) - (let ((_e163628163688_ + (gx#stx-pair? _lp-hd163624163686_)) + (let ((_e163632163692_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd163620163682_)))) - (let ((_hd163627163692_ + (gx#syntax-e _lp-hd163624163686_)))) + (let ((_hd163631163696_ (let () (declare (not safe)) - (##car _e163628163688_))) - (_tl163626163695_ + (##car _e163632163692_))) + (_tl163630163699_ (let () (declare (not safe)) - (##cdr _e163628163688_)))) + (##cdr _e163632163692_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163626163695_)) - (let ((_g164519_ + (gx#stx-pair/null? _tl163630163699_)) + (let ((_g164523_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163626163695_ + _tl163630163699_ '0)))) (begin - (let ((_g164520_ + (let ((_g164524_ (let () (declare (not safe)) - (if (##values? _g164519_) - (##vector-length _g164519_) + (if (##values? _g164523_) + (##vector-length _g164523_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164520_ 2))) + (##fx= _g164524_ 2))) (error "Context expects 2 values" - _g164520_))) - (let ((_target163629163698_ + _g164524_))) + (let ((_target163633163702_ (let () (declare (not safe)) - (##vector-ref _g164519_ 0))) - (_tl163631163701_ + (##vector-ref _g164523_ 0))) + (_tl163635163705_ (let () (declare (not safe)) - (##vector-ref _g164519_ 1)))) + (##vector-ref _g164523_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163631163701_)) - (letrec ((_loop163632163704_ - (lambda (_hd163630163708_ - _arity163636163711_) + (gx#stx-null? _tl163635163705_)) + (letrec ((_loop163636163708_ + (lambda (_hd163634163712_ + _arity163640163715_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd163630163708_)) - (let ((_e163633163714_ + _hd163634163712_)) + (let ((_e163637163718_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd163630163708_)))) - (let ((_lp-hd163634163718_ - (let () (declare (not safe)) (##car _e163633163714_))) - (_lp-tl163635163721_ + (gx#syntax-e _hd163634163712_)))) + (let ((_lp-hd163638163722_ + (let () (declare (not safe)) (##car _e163637163718_))) + (_lp-tl163639163725_ (let () (declare (not safe)) - (##cdr _e163633163714_)))) - (_loop163632163704_ - _lp-tl163635163721_ + (##cdr _e163637163718_)))) + (_loop163636163708_ + _lp-tl163639163725_ (let () (declare (not safe)) - (cons _lp-hd163634163718_ _arity163636163711_))))) - (let ((_arity163637163724_ (reverse _arity163636163711_))) - (_loop163618163666_ - _lp-tl163621163685_ + (cons _lp-hd163638163722_ _arity163640163715_))))) + (let ((_arity163641163728_ (reverse _arity163640163715_))) + (_loop163622163670_ + _lp-tl163625163689_ (let () (declare (not safe)) - (cons _arity163637163724_ _arity163622163673_)) + (cons _arity163641163728_ _arity163626163677_)) (let () (declare (not safe)) - (cons _hd163627163692_ _prim163623163675_)))))))) + (cons _hd163631163696_ _prim163627163679_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop163632163704_ - _target163629163698_ + (_loop163636163708_ + _target163633163702_ '())) - (_g163608163643_ _g163609163647_))))) - (_g163608163643_ _g163609163647_)))) - (_g163608163643_ _g163609163647_)))) - (let ((_arity163624163728_ (reverse _arity163622163673_)) - (_prim163625163731_ (reverse _prim163623163675_))) - ((lambda (_L163734_ _L163736_) - (let ((__tmp164518 + (_g163612163647_ _g163613163651_))))) + (_g163612163647_ _g163613163651_)))) + (_g163612163647_ _g163613163651_)))) + (let ((_arity163628163732_ (reverse _arity163626163677_)) + (_prim163629163735_ (reverse _prim163627163679_))) + ((lambda (_L163738_ _L163740_) + (let ((__tmp164522 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164511 + (__tmp164515 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L163734_ - _L163736_)) - (let ((__tmp164512 - (lambda (_g163751163757_ - _g163752163760_ - _g163753163762_) - (let ((__tmp164513 - (let ((__tmp164517 + _L163738_ + _L163740_)) + (let ((__tmp164516 + (lambda (_g163755163761_ + _g163756163764_ + _g163757163766_) + (let ((__tmp164517 + (let ((__tmp164521 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp164514 - (let ((__tmp164515 - (let ((__tmp164516 + (__tmp164518 + (let ((__tmp164519 + (let ((__tmp164520 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g163754163765_ _g163755163768_) + (lambda (_g163758163769_ _g163759163772_) (let () (declare (not safe)) - (cons _g163754163765_ _g163755163768_))))) + (cons _g163758163769_ _g163759163772_))))) (declare (not safe)) - (foldr1 __tmp164516 '() _g163751163757_)))) + (foldr1 __tmp164520 '() _g163755163761_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g163752163760_ - __tmp164515)))) + (cons _g163756163764_ + __tmp164519)))) (declare (not safe)) - (cons __tmp164517 __tmp164514)))) + (cons __tmp164521 __tmp164518)))) (declare (not safe)) - (cons __tmp164513 _g163753163762_))))) + (cons __tmp164517 _g163757163766_))))) (declare (not safe)) - (foldr2 __tmp164512 '() _L163734_ _L163736_))))) + (foldr2 __tmp164516 '() _L163738_ _L163740_))))) (declare (not safe)) - (cons __tmp164518 __tmp164511))) - _arity163624163728_ - _prim163625163731_)))))) + (cons __tmp164522 __tmp164515))) + _arity163628163732_ + _prim163629163735_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop163618163666_ - _target163615163660_ + (_loop163622163670_ + _target163619163664_ '() '())) - (_g163608163643_ _g163609163647_))))) - (_g163608163643_ _g163609163647_)))) - (_g163608163643_ _g163609163647_))))) - (_g163607163771_ _$stx163604_))))) + (_g163612163647_ _g163613163651_))))) + (_g163612163647_ _g163613163651_)))) + (_g163612163647_ _g163613163651_))))) + (_g163611163775_ _$stx163608_))))) diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index a7b10aab8..25efe71ff 100644 --- a/src/bootstrap/gerbil/core/macro-object~0.scm +++ b/src/bootstrap/gerbil/core/macro-object~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/macro-object::timestamp 1710781147) + (define gerbil/core/macro-object::timestamp 1710833422) (begin (define gerbil/core/macro-object#macro-object::t (let ((__tmp36222 (list))) diff --git a/src/bootstrap/gerbil/core/match~1.scm b/src/bootstrap/gerbil/core/match~1.scm index 209759754..a47371755 100644 --- a/src/bootstrap/gerbil/core/match~1.scm +++ b/src/bootstrap/gerbil/core/match~1.scm @@ -70,28 +70,28 @@ (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (define |gerbil/core/match[1]#_g48253_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g48646_| + (define |gerbil/core/match[1]#_g48671_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g48730_| + (define |gerbil/core/match[1]#_g48755_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g48750_| + (define |gerbil/core/match[1]#_g48775_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g48751_| + (define |gerbil/core/match[1]#_g48776_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (define |gerbil/core/match[1]#_g48905_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) @@ -4139,12 +4139,12 @@ (let () (declare (not safe)) (##cdr _e3808938122_)))) - (let ((__tmp48554 + (let ((__tmp48579 (let () (declare (not safe)) (cons _lp-hd3809038126_ _var3809238119_)))) (declare (not safe)) - (_loop3808838112_ _lp-tl3809138129_ __tmp48554)))) + (_loop3808838112_ _lp-tl3809138129_ __tmp48579)))) (let ((_var3809338132_ (reverse _var3809238119_))) ((lambda (_L38136_) (let () @@ -4202,7 +4202,7 @@ (let () (declare (not safe)) (##cdr _e3815938192_)))) - (let ((__tmp48551 + (let ((__tmp48576 (let () (declare (not safe)) (cons _lp-hd3816038196_ @@ -4210,7 +4210,7 @@ (declare (not safe)) (_loop3815838182_ _lp-tl3816138199_ - __tmp48551)))) + __tmp48576)))) (let ((_var-r3816338202_ (reverse _var-r3816238189_))) ((lambda (_L38206_) @@ -4735,12 +4735,12 @@ (foldr1 __tmp48549 '() _L38136_))) - (let ((__tmp48550 + (let ((__tmp48575 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp48550 '()))))) + (cons __tmp48575 '()))))) (declare (not safe)) (_g3822238675_ __tmp48548)))) _var-r3816338202_)))))) @@ -4757,9 +4757,9 @@ (let () (declare (not safe)) (_g3815238169_ _g3815338173_))))) - (__tmp48552 + (__tmp48577 (gx#gentemps - (let ((__tmp48553 + (let ((__tmp48578 (lambda (_g3869038693_ _g3869138696_) (let () @@ -4767,9 +4767,9 @@ (cons _g3869038693_ _g3869138696_))))) (declare (not safe)) - (foldr1 __tmp48553 '() _L38136_))))) + (foldr1 __tmp48578 '() _L38136_))))) (declare (not safe)) - (_g3815138687_ __tmp48552)))) + (_g3815138687_ __tmp48577)))) _var3809338132_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4784,13 +4784,13 @@ (let () (declare (not safe)) (_g3808238099_ _g3808338103_))))) - (__tmp48555 + (__tmp48580 (let () (declare (not safe)) (|gerbil/core/match[1]#match-pattern-vars| _hd38077_)))) (declare (not safe)) - (_g3808138699_ __tmp48555)))) + (_g3808138699_ __tmp48580)))) (_generate-simple-vector37461_ (lambda (_tgt37917_ _body37919_ @@ -4853,49 +4853,49 @@ (if (gx#stx-null? _tl3800038042_) ((lambda (_L38045_ _L38047_ _L38048_) (let () - (let ((__tmp48556 - (let ((__tmp48561 - (let ((__tmp48562 - (let ((__tmp48563 - (let ((__tmp48564 + (let ((__tmp48581 + (let ((__tmp48586 + (let ((__tmp48587 + (let ((__tmp48588 + (let ((__tmp48589 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48567 + (let ((__tmp48592 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48565 - (let ((__tmp48566 + (__tmp48590 + (let ((__tmp48591 (let () (declare (not safe)) (cons _L38045_ '())))) (declare (not safe)) - (cons _L38047_ __tmp48566)))) + (cons _L38047_ __tmp48591)))) (declare (not safe)) - (cons __tmp48567 __tmp48565)))) + (cons __tmp48592 __tmp48590)))) (declare (not safe)) - (cons __tmp48564 '())))) + (cons __tmp48589 '())))) (declare (not safe)) - (cons _L38048_ __tmp48563)))) + (cons _L38048_ __tmp48588)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48562 '()))) - (__tmp48557 - (let ((__tmp48558 - (let ((__tmp48559 - (let ((__tmp48560 + (cons __tmp48587 '()))) + (__tmp48582 + (let ((__tmp48583 + (let ((__tmp48584 + (let ((__tmp48585 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (fx+ _off37929_ '1)))) (declare (not safe)) - (_recur37924_ _L37972_ __tmp48560)))) + (_recur37924_ _L37972_ __tmp48585)))) (declare (not safe)) - (_generate137458_ _L38048_ _L37974_ __tmp48559 _E37922_)))) + (_generate137458_ _L38048_ _L37974_ __tmp48584 _E37922_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48558 '())))) + (cons __tmp48583 '())))) (declare (not safe)) - (cons __tmp48561 __tmp48557)))) + (cons __tmp48586 __tmp48582)))) (declare (not safe)) - (cons 'let __tmp48556)))) + (cons 'let __tmp48581)))) _hd3800138039_ _hd3799838029_ _hd3799538019_) @@ -4911,12 +4911,12 @@ (declare (not safe)) (_g3798938008_ _g3799038012_))))) - (__tmp48568 + (__tmp48593 (list (gx#genident 'e) _tgt37917_ _off37929_))) (declare (not safe)) - (_g3798838067_ __tmp48568)))) + (_g3798838067_ __tmp48593)))) (___kont4739347394_ (lambda () _K37921_))) (if (gx#stx-pair? ___stx4738847389_) (let ((_e3793837962_ @@ -4971,19 +4971,19 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp48569 - (let ((__tmp48572 - (let ((__tmp48573 - (let ((__tmp48574 + (let ((__tmp48594 + (let ((__tmp48597 + (let ((__tmp48598 + (let ((__tmp48599 (let () (declare (not safe)) (cons _L37886_ '())))) (declare (not safe)) - (cons _L37831_ __tmp48574)))) + (cons _L37831_ __tmp48599)))) (declare (not safe)) - (cons __tmp48573 '()))) - (__tmp48570 - (let ((__tmp48571 + (cons __tmp48598 '()))) + (__tmp48595 + (let ((__tmp48596 (let () (declare (not safe)) (_generate137458_ @@ -4992,56 +4992,56 @@ _K37813_ _E37814_)))) (declare (not safe)) - (cons __tmp48571 '())))) + (cons __tmp48596 '())))) (declare (not safe)) - (cons __tmp48572 __tmp48570)))) + (cons __tmp48597 __tmp48595)))) (declare (not safe)) - (cons 'let __tmp48569))))) + (cons 'let __tmp48594))))) _g3787237883_))) - (__tmp48575 + (__tmp48600 (let ((_$e37905_ _->list37812_)) (if (let () (declare (not safe)) (eq? 'values->list _$e37905_)) - (let ((__tmp48584 (gx#datum->syntax '#f 'values->list)) - (__tmp48583 + (let ((__tmp48609 (gx#datum->syntax '#f 'values->list)) + (__tmp48608 (let () (declare (not safe)) (cons _L37858_ '())))) (declare (not safe)) - (cons __tmp48584 __tmp48583)) + (cons __tmp48609 __tmp48608)) (if (let () (declare (not safe)) (eq? 'vector->list _$e37905_)) - (let ((__tmp48582 + (let ((__tmp48607 (gx#datum->syntax '#f '##vector->list)) - (__tmp48581 + (__tmp48606 (let () (declare (not safe)) (cons _L37858_ '())))) (declare (not safe)) - (cons __tmp48582 __tmp48581)) + (cons __tmp48607 __tmp48606)) (if (let () (declare (not safe)) (eq? 'struct->list _$e37905_)) - (let ((__tmp48580 + (let ((__tmp48605 (gx#datum->syntax '#f '##cdr)) - (__tmp48576 - (let ((__tmp48577 - (let ((__tmp48579 + (__tmp48601 + (let ((__tmp48602 + (let ((__tmp48604 (gx#datum->syntax '#f '##structure->list)) - (__tmp48578 + (__tmp48603 (let () (declare (not safe)) (cons _L37858_ '())))) (declare (not safe)) - (cons __tmp48579 __tmp48578)))) + (cons __tmp48604 __tmp48603)))) (declare (not safe)) - (cons __tmp48577 '())))) + (cons __tmp48602 '())))) (declare (not safe)) - (cons __tmp48580 __tmp48576)) + (cons __tmp48605 __tmp48601)) (gx#raise-syntax-error '#f '"Unexpected list conversion" @@ -5050,14 +5050,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g3787037901_ - __tmp48575)))) + __tmp48600)))) _g3784437855_)))) (declare (not safe)) (_g3784237909_ _tgt37809_)))) _g3781737828_))) - (__tmp48585 (gx#genident 'e))) + (__tmp48610 (gx#genident 'e))) (declare (not safe)) - (_g3781537913_ __tmp48585)))) + (_g3781537913_ __tmp48610)))) (_generate-struct37463_ (lambda (_info37680_ _tgt37682_ @@ -5078,9 +5078,9 @@ (declare (not safe)) (_struct-field-accessors37465_ _info37680_))) - (__tmp48586 - (let ((__tmp48590 - (let ((__tmp48592 + (__tmp48611 + (let ((__tmp48615 + (let ((__tmp48617 (let ((__obj48158 _info37680_)) (if (let () @@ -5101,14 +5101,14 @@ gerbil/core/mop~MOP-2#class-type-info::t __obj48158 'predicate)))) - (__tmp48591 + (__tmp48616 (let () (declare (not safe)) (cons _tgt37682_ '())))) (declare (not safe)) - (cons __tmp48592 __tmp48591))) - (__tmp48587 - (let ((__tmp48589 + (cons __tmp48617 __tmp48616))) + (__tmp48612 + (let ((__tmp48614 (let () (declare (not safe)) (_generate-simple-struct-body37464_ @@ -5117,21 +5117,21 @@ _L37788_ _K37684_ _E37685_))) - (__tmp48588 + (__tmp48613 (let () (declare (not safe)) (cons _E37685_ '())))) (declare (not safe)) - (cons __tmp48589 __tmp48588)))) + (cons __tmp48614 __tmp48613)))) (declare (not safe)) - (cons __tmp48590 __tmp48587)))) + (cons __tmp48615 __tmp48612)))) (declare (not safe)) - (cons 'if __tmp48586)))) + (cons 'if __tmp48611)))) (___kont4740947410_ (lambda (_L37742_) - (let ((__tmp48593 - (let ((__tmp48597 - (let ((__tmp48599 + (let ((__tmp48618 + (let ((__tmp48622 + (let ((__tmp48624 (let ((__obj48159 _info37680_)) (if (let () @@ -5152,14 +5152,14 @@ gerbil/core/mop~MOP-2#class-type-info::t __obj48159 'predicate)))) - (__tmp48598 + (__tmp48623 (let () (declare (not safe)) (cons _tgt37682_ '())))) (declare (not safe)) - (cons __tmp48599 __tmp48598))) - (__tmp48594 - (let ((__tmp48596 + (cons __tmp48624 __tmp48623))) + (__tmp48619 + (let ((__tmp48621 (let () (declare (not safe)) (_generate-list-vector37462_ @@ -5168,16 +5168,16 @@ 'struct->list _K37684_ _E37685_))) - (__tmp48595 + (__tmp48620 (let () (declare (not safe)) (cons _E37685_ '())))) (declare (not safe)) - (cons __tmp48596 __tmp48595)))) + (cons __tmp48621 __tmp48620)))) (declare (not safe)) - (cons __tmp48597 __tmp48594)))) + (cons __tmp48622 __tmp48619)))) (declare (not safe)) - (cons 'if __tmp48593))))) + (cons 'if __tmp48618))))) (if (gx#stx-pair? ___stx4740447405_) (let ((_e3769337764_ (gx#syntax-e ___stx4740447405_))) @@ -5300,45 +5300,45 @@ 'name)))) (let ((_$tgt37672_ (gx#genident 'e)) (_getf37674_ (car _fields37612_))) - (let ((__tmp48600 - (let ((__tmp48605 - (let ((__tmp48606 - (let ((__tmp48607 + (let ((__tmp48625 + (let ((__tmp48630 + (let ((__tmp48631 + (let ((__tmp48632 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48608 - (let ((__tmp48609 + (let ((__tmp48633 + (let ((__tmp48634 (let () (declare (not safe)) (cons _tgt37602_ '())))) (declare (not safe)) - (cons _getf37674_ __tmp48609)))) + (cons _getf37674_ __tmp48634)))) (declare (not safe)) - (cons __tmp48608 '())))) + (cons __tmp48633 '())))) (declare (not safe)) - (cons _$tgt37672_ __tmp48607)))) + (cons _$tgt37672_ __tmp48632)))) (declare (not safe)) - (cons __tmp48606 '()))) + (cons __tmp48631 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48601 - (let ((__tmp48602 - (let ((__tmp48603 + (__tmp48626 + (let ((__tmp48627 + (let ((__tmp48628 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48604 (cdr _fields37612_))) + (let ((__tmp48629 (cdr _fields37612_))) (declare (not safe)) - (_recur37607_ _L37655_ __tmp48604)))) + (_recur37607_ _L37655_ __tmp48629)))) (declare (not safe)) (_generate137458_ _$tgt37672_ _L37657_ - __tmp48603 + __tmp48628 _E37605_)))) (declare (not safe)) - (cons __tmp48602 '())))) + (cons __tmp48627 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48605 __tmp48601)))) + (cons __tmp48630 __tmp48626)))) (declare (not safe)) - (cons 'let __tmp48600)))))) + (cons 'let __tmp48625)))))) (___kont4745947460_ (lambda () _K37604_))) (if (gx#stx-pair? ___stx4745447455_) (let ((_e3762137645_ @@ -5364,7 +5364,7 @@ (if (let () (declare (not safe)) (null? _next37587_)) '() (let ((_ti37590_ (car _next37587_))) - (append (let ((__tmp48610 + (append (let ((__tmp48635 (map gx#syntax-local-value (let ((__obj48161 _ti37590_)) (if (let () @@ -5384,10 +5384,10 @@ __obj48161 'super)))))) (declare (not safe)) - (_recur37584_ __tmp48610)) + (_recur37584_ __tmp48635)) (map (lambda (_slot37593_) (let ((_$e37596_ - (let ((__tmp48611 + (let ((__tmp48636 (let ((__obj48162 _ti37590_)) (if (let () @@ -5411,7 +5411,7 @@ (declare (not safe)) (assgetq__0 _slot37593_ - __tmp48611)))) + __tmp48636)))) (if _$e37596_ _$e37596_ (gx#raise-syntax-error @@ -5443,9 +5443,9 @@ _body37577_ _K37578_ _E37579_) - (let ((__tmp48612 - (let ((__tmp48616 - (let ((__tmp48618 + (let ((__tmp48637 + (let ((__tmp48641 + (let ((__tmp48643 (let ((__obj48164 _info37574_)) (if (let () (declare (not safe)) @@ -5463,14 +5463,14 @@ gerbil/core/mop~MOP-2#class-type-info::t __obj48164 'predicate)))) - (__tmp48617 + (__tmp48642 (let () (declare (not safe)) (cons _tgt37576_ '())))) (declare (not safe)) - (cons __tmp48618 __tmp48617))) - (__tmp48613 - (let ((__tmp48615 + (cons __tmp48643 __tmp48642))) + (__tmp48638 + (let ((__tmp48640 (let () (declare (not safe)) (_generate-class-body37467_ @@ -5479,16 +5479,16 @@ _body37577_ _K37578_ _E37579_))) - (__tmp48614 + (__tmp48639 (let () (declare (not safe)) (cons _E37579_ '())))) (declare (not safe)) - (cons __tmp48615 __tmp48614)))) + (cons __tmp48640 __tmp48639)))) (declare (not safe)) - (cons __tmp48616 __tmp48613)))) + (cons __tmp48641 __tmp48638)))) (declare (not safe)) - (cons 'if __tmp48612)))) + (cons 'if __tmp48637)))) (_generate-class-body37467_ (lambda (_info37469_ _tgt37471_ @@ -5506,11 +5506,11 @@ (let ((___kont4747347474_ (lambda (_L37537_ _L37539_ _L37540_) (let ((_$e37560_ - (let ((__tmp48620 + (let ((__tmp48645 (string->symbol (keyword->string (gx#stx-e _L37540_)))) - (__tmp48619 + (__tmp48644 (let ((__obj48165 _info37469_)) (if (let () (declare (not safe)) @@ -5529,31 +5529,31 @@ __obj48165 'unchecked-accessors))))) (declare (not safe)) - (assgetq__0 __tmp48620 __tmp48619)))) + (assgetq__0 __tmp48645 __tmp48644)))) (if _$e37560_ ((lambda (_getf37564_) (let* ((_$tgt37567_ (gx#genident 'e)) - (__tmp48621 - (let ((__tmp48625 - (let ((__tmp48626 - (let ((__tmp48627 + (__tmp48646 + (let ((__tmp48650 + (let ((__tmp48651 + (let ((__tmp48652 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48628 - (let ((__tmp48629 + (let ((__tmp48653 + (let ((__tmp48654 (let () (declare (not safe)) (cons _tgt37471_ '())))) (declare (not safe)) - (cons _getf37564_ __tmp48629)))) + (cons _getf37564_ __tmp48654)))) (declare (not safe)) - (cons __tmp48628 '())))) + (cons __tmp48653 '())))) (declare (not safe)) - (cons _$tgt37567_ __tmp48627)))) + (cons _$tgt37567_ __tmp48652)))) (declare (not safe)) - (cons __tmp48626 '()))) - (__tmp48622 - (let ((__tmp48623 - (let ((__tmp48624 + (cons __tmp48651 '()))) + (__tmp48647 + (let ((__tmp48648 + (let ((__tmp48649 (let () (declare (not safe)) (_recur37476_ _L37537_)))) @@ -5561,16 +5561,16 @@ (_generate137458_ _$tgt37567_ _L37539_ - __tmp48624 + __tmp48649 _E37474_)))) (declare (not safe)) - (cons __tmp48623 '())))) + (cons __tmp48648 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48625 - __tmp48622)))) + (cons __tmp48650 + __tmp48647)))) (declare (not safe)) - (cons 'let __tmp48621))) + (cons 'let __tmp48646))) _$e37560_) (gx#raise-syntax-error '#f @@ -5635,33 +5635,33 @@ (let ((___kont4749547496_ (lambda (_L37428_) (if (gx#stx-null? _L37324_) - (let ((__tmp48630 - (let ((__tmp48635 + (let ((__tmp48655 + (let ((__tmp48660 (gx#genident 'else)) - (__tmp48631 - (let ((__tmp48632 + (__tmp48656 + (let ((__tmp48657 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48633 + (let ((__tmp48658 (gx#stx-wrap-source - (let ((__tmp48634 + (let ((__tmp48659 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp48634 _L37428_)) + (cons __tmp48659 _L37428_)) (let ((_$e37439_ (gx#stx-source _L37326_))) (if _$e37439_ _$e37439_ (gx#stx-source _stx36347_)))))) (declare (not safe)) - (cons __tmp48633 '())))) + (cons __tmp48658 '())))) (declare (not safe)) - (cons '#f __tmp48632)))) + (cons '#f __tmp48657)))) (declare (not safe)) - (cons __tmp48635 __tmp48631)))) + (cons __tmp48660 __tmp48656)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48630 _r37281_)) + (cons __tmp48655 _r37281_)) (gx#raise-syntax-error '#f '"bad syntax; misplaced else" @@ -5669,13 +5669,13 @@ _L37326_)))) (___kont4749747498_ (lambda (_L37387_ _L37389_) - (let ((__tmp48636 - (let ((__tmp48637 - (let ((__tmp48643 + (let ((__tmp48661 + (let ((__tmp48662 + (let ((__tmp48668 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#genident 'try-match)) - (__tmp48638 - (let ((__tmp48642 + (__tmp48663 + (let ((__tmp48667 (gx#stx-map (lambda (_g3740137403_) (let () @@ -5684,32 +5684,32 @@ _g3740137403_ _stx36347_))) _L37389_)) - (__tmp48639 - (let ((__tmp48640 + (__tmp48664 + (let ((__tmp48665 (gx#stx-wrap-source - (let ((__tmp48641 + (let ((__tmp48666 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp48641 _L37387_)) + (cons __tmp48666 _L37387_)) (let ((_$e37407_ (gx#stx-source _L37326_))) (if _$e37407_ _$e37407_ (gx#stx-source _stx36347_)))))) (declare (not safe)) - (cons __tmp48640 '())))) + (cons __tmp48665 '())))) (declare (not safe)) - (cons __tmp48642 __tmp48639)))) + (cons __tmp48667 __tmp48664)))) (declare (not safe)) - (cons __tmp48643 __tmp48638)))) + (cons __tmp48668 __tmp48663)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48637 + (cons __tmp48662 _r37281_)))) (declare (not safe)) (_lp37276_ _L37324_ - __tmp48636)))) + __tmp48661)))) (___kont4749947500_ (lambda () (gx#raise-syntax-error @@ -5730,11 +5730,11 @@ _hd-len37273_) (gx#stx-list? _L37387_) - (let ((__tmp48644 + (let ((__tmp48669 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L37387_))) (declare (not safe)) - (not __tmp48644))) + (not __tmp48669))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4749747498_ _L37387_ @@ -5747,11 +5747,11 @@ (let ((_L37428_ _tl3734637425_)) (if (and (gx#stx-list? _L37428_) - (let ((__tmp48645 + (let ((__tmp48670 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L37428_))) (declare (not safe)) - (not __tmp48645))) + (not __tmp48670))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4749547496_ _L37428_) @@ -5774,7 +5774,7 @@ (if (gx#identifier? _hd3734737422_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g48646_| + |gerbil/core/match[1]#_g48671_| _hd3734737422_) (___match4751147512_ _e3734837418_ @@ -5827,36 +5827,36 @@ (lambda (_g3708937109_) (if (gx#stx-pair/null? _g3708937109_) - (let ((_g48647_ + (let ((_g48672_ (gx#syntax-split-splice _g3708937109_ '0))) (begin - (let ((_g48648_ + (let ((_g48673_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48647_) - (##vector-length _g48647_) + _g48672_) + (##vector-length _g48672_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48648_ 2))) - (error "Context expects 2 values" _g48648_))) + (if (not (let () (declare (not safe)) (##fx= _g48673_ 2))) + (error "Context expects 2 values" _g48673_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3709137112_ (let () (declare (not safe)) (##vector-ref - _g48647_ + _g48672_ 0))) (_tl3709337115_ (let () (declare (not safe)) (##vector-ref - _g48647_ + _g48672_ 1)))) (if (gx#stx-null? _tl3709337115_) @@ -5874,7 +5874,7 @@ (let () (declare (not safe)) (##cdr _e3709537128_)))) - (let ((__tmp48671 + (let ((__tmp48696 (let () (declare (not safe)) (cons _lp-hd3709637132_ @@ -5882,7 +5882,7 @@ (declare (not safe)) (_loop3709437118_ _lp-tl3709737135_ - __tmp48671)))) + __tmp48696)))) (let ((_target3709937138_ (reverse _target3709837125_))) ((lambda (_L37142_) @@ -5919,80 +5919,80 @@ ((lambda (_L37230_) (let () (let () - (let ((__tmp48652 + (let ((__tmp48677 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp48649 - (let ((__tmp48651 + (__tmp48674 + (let ((__tmp48676 (gx#datum->syntax '#f '@match)) - (__tmp48650 + (__tmp48675 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L37230_ '())))) (declare (not safe)) - (cons __tmp48651 __tmp48650)))) + (cons __tmp48676 __tmp48675)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48652 - __tmp48649))))) + (cons __tmp48677 + __tmp48674))))) _g3721637227_))) - (__tmp48653 + (__tmp48678 (gx#stx-wrap-source - (let ((__tmp48659 + (let ((__tmp48684 (gx#datum->syntax '#f 'let)) - (__tmp48654 - (let ((__tmp48656 - (let ((__tmp48657 - (let ((__tmp48658 + (__tmp48679 + (let ((__tmp48681 + (let ((__tmp48682 + (let ((__tmp48683 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L37174_ '())))) (declare (not safe)) - (cons _L37076_ __tmp48658)))) + (cons _L37076_ __tmp48683)))) (declare (not safe)) - (cons __tmp48657 '()))) - (__tmp48655 (let () (declare (not safe)) (cons _L37202_ '())))) + (cons __tmp48682 '()))) + (__tmp48680 (let () (declare (not safe)) (cons _L37202_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48656 - __tmp48655)))) + (cons __tmp48681 + __tmp48680)))) (declare (not safe)) - (cons __tmp48659 __tmp48654)) + (cons __tmp48684 __tmp48679)) (gx#stx-source _stx36347_)))) (declare (not safe)) - (_g3721437245_ __tmp48653)))) + (_g3721437245_ __tmp48678)))) _g3718837199_))) - (__tmp48660 - (let ((__tmp48661 + (__tmp48685 + (let ((__tmp48686 (let () (declare (not safe)) (cons _L37076_ '())))) (declare (not safe)) - (_generate-clauses36355_ _body37058_ __tmp48661)))) + (_generate-clauses36355_ _body37058_ __tmp48686)))) (declare (not safe)) - (_g3718637249_ __tmp48660)))) + (_g3718637249_ __tmp48685)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3716037171_))) - (__tmp48662 + (__tmp48687 (gx#stx-wrap-source - (let ((__tmp48670 + (let ((__tmp48695 (gx#datum->syntax '#f 'lambda)) - (__tmp48663 - (let ((__tmp48664 + (__tmp48688 + (let ((__tmp48689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48665 - (let ((__tmp48669 + (let ((__tmp48690 + (let ((__tmp48694 (gx#datum->syntax '#f 'error)) - (__tmp48666 - (let ((__tmp48667 - (let ((__tmp48668 + (__tmp48691 + (let ((__tmp48692 + (let ((__tmp48693 (lambda (_g3725637259_ _g3725737262_) (let () @@ -6000,26 +6000,26 @@ (cons _g3725637259_ _g3725737262_))))) (declare (not safe)) - (foldr1 __tmp48668 + (foldr1 __tmp48693 '() _L37142_)))) (declare (not safe)) (cons '"No clause matching" - __tmp48667)))) + __tmp48692)))) (declare (not safe)) - (cons __tmp48669 __tmp48666)))) + (cons __tmp48694 __tmp48691)))) (declare (not safe)) - (cons __tmp48665 '())))) + (cons __tmp48690 '())))) (declare (not safe)) - (cons '() __tmp48664)))) + (cons '() __tmp48689)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48670 - __tmp48663)) + (cons __tmp48695 + __tmp48688)) (gx#stx-source _stx36347_)))) (declare (not safe)) - (_g3715837253_ __tmp48662)))) + (_g3715837253_ __tmp48687)))) _target3709937138_)))))) (let () (declare (not safe)) @@ -6035,9 +6035,9 @@ (declare (not safe)) (_g3708737265_ _tgt-lst36349_)))) _g3706237073_))) - (__tmp48672 (gx#genident 'E))) + (__tmp48697 (gx#genident 'E))) (declare (not safe)) - (_g3706037269_ __tmp48672)))) + (_g3706037269_ __tmp48697)))) (_generate-clauses36355_ (lambda (_rest36710_ _E36712_) (let* ((___stx4753647537_ _rest36710_) @@ -6094,9 +6094,9 @@ (##cdr _e3698937022_)))) (if (gx#stx-null? _tl3698737029_) ((lambda (_L37032_ _L37034_) - (let ((__tmp48673 - (let ((__tmp48674 - (let ((__tmp48675 + (let ((__tmp48698 + (let ((__tmp48699 + (let ((__tmp48700 (if (gx#stx-e _L37034_) (let () (declare (not safe)) @@ -6106,11 +6106,11 @@ _E36712_)) _L37032_))) (declare (not safe)) - (cons __tmp48675 '())))) + (cons __tmp48700 '())))) (declare (not safe)) - (cons '@match-body __tmp48674)))) + (cons '@match-body __tmp48699)))) (declare (not safe)) - (cons 'begin-annotation __tmp48673))) + (cons 'begin-annotation __tmp48698))) _hd3698837026_ _hd3698537016_) (let () @@ -6214,38 +6214,38 @@ (if (gx#stx-null? _tl3685836890_) ((lambda (_L36893_ _L36895_) (let () - (let ((__tmp48702 (gx#datum->syntax '#f 'let)) - (__tmp48693 - (let ((__tmp48695 - (let ((__tmp48696 - (let ((__tmp48697 - (let ((__tmp48698 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48701 (gx#datum->syntax '#f 'lambda)) - (__tmp48699 - (let ((__tmp48700 + (let ((__tmp48727 (gx#datum->syntax '#f 'let)) + (__tmp48718 + (let ((__tmp48720 + (let ((__tmp48721 + (let ((__tmp48722 + (let ((__tmp48723 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48726 (gx#datum->syntax '#f 'lambda)) + (__tmp48724 + (let ((__tmp48725 (let () (declare (not safe)) (cons _L36895_ '())))) (declare (not safe)) - (cons '() __tmp48700)))) + (cons '() __tmp48725)))) (declare (not safe)) - (cons __tmp48701 __tmp48699)))) + (cons __tmp48726 __tmp48724)))) (declare (not safe)) - (cons __tmp48698 '())))) + (cons __tmp48723 '())))) (declare (not safe)) - (cons _L36834_ __tmp48697)))) + (cons _L36834_ __tmp48722)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48696 '()))) - (__tmp48694 + (cons __tmp48721 '()))) + (__tmp48719 (let () (declare (not safe)) (cons _L36893_ '())))) (declare (not safe)) - (cons __tmp48695 __tmp48694)))) + (cons __tmp48720 __tmp48719)))) (declare (not safe)) - (cons __tmp48702 __tmp48693)))) + (cons __tmp48727 __tmp48718)))) _hd3685936887_ _hd3685636877_) (let () @@ -6259,14 +6259,14 @@ (declare (not safe)) (_g3685136866_ _g3685236870_))))) - (__tmp48703 + (__tmp48728 (list (let () (declare (not safe)) (_generate136356_ _L36833_ _L36831_ _E36712_)) - (let ((__tmp48704 + (let ((__tmp48729 (let () (declare (not safe)) (cons _L36834_ @@ -6276,9 +6276,9 @@ (declare (not safe)) (_generate-clauses36355_ _L36760_ - __tmp48704))))) + __tmp48729))))) (declare (not safe)) - (_g3685036911_ __tmp48703)) + (_g3685036911_ __tmp48728)) (let* ((_g3691536923_ (lambda (_g3691636919_) (gx#raise-syntax-error @@ -6289,71 +6289,71 @@ (lambda (_g3691636927_) ((lambda (_L36930_) (let () - (let ((__tmp48690 + (let ((__tmp48715 (gx#datum->syntax '#f 'let)) - (__tmp48676 - (let ((__tmp48678 + (__tmp48701 + (let ((__tmp48703 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48679 - (let ((__tmp48680 - (let ((__tmp48681 - (let ((__tmp48689 + (let ((__tmp48704 + (let ((__tmp48705 + (let ((__tmp48706 + (let ((__tmp48714 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp48682 - (let ((__tmp48688 + (__tmp48707 + (let ((__tmp48713 (gx#datum->syntax '#f '@match-else)) - (__tmp48683 - (let ((__tmp48684 + (__tmp48708 + (let ((__tmp48709 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48687 (gx#datum->syntax '#f 'lambda)) - (__tmp48685 - (let ((__tmp48686 + (let ((__tmp48712 (gx#datum->syntax '#f 'lambda)) + (__tmp48710 + (let ((__tmp48711 (let () (declare (not safe)) (cons _L36831_ '())))) (declare (not safe)) - (cons '() __tmp48686)))) + (cons '() __tmp48711)))) (declare (not safe)) - (cons __tmp48687 __tmp48685)))) + (cons __tmp48712 __tmp48710)))) (declare (not safe)) - (cons __tmp48684 '())))) + (cons __tmp48709 '())))) (declare (not safe)) - (cons __tmp48688 __tmp48683)))) + (cons __tmp48713 __tmp48708)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48689 __tmp48682)))) + (cons __tmp48714 __tmp48707)))) (declare (not safe)) - (cons __tmp48681 '())))) + (cons __tmp48706 '())))) (declare (not safe)) - (cons _L36834_ __tmp48680)))) + (cons _L36834_ __tmp48705)))) (declare (not safe)) - (cons __tmp48679 '()))) - (__tmp48677 + (cons __tmp48704 '()))) + (__tmp48702 (let () (declare (not safe)) (cons _L36930_ '())))) (declare (not safe)) - (cons __tmp48678 __tmp48677)))) + (cons __tmp48703 __tmp48702)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48690 - __tmp48676)))) + (cons __tmp48715 + __tmp48701)))) _g3691636927_))) - (__tmp48691 - (let ((__tmp48692 + (__tmp48716 + (let ((__tmp48717 (let () (declare (not safe)) (cons _L36834_ '())))) (declare (not safe)) (_generate-clauses36355_ _L36760_ - __tmp48692)))) + __tmp48717)))) (declare (not safe)) - (_g3691436941_ __tmp48691)))) + (_g3691436941_ __tmp48716)))) _hd3678736825_ _hd3678436815_ _hd3678136805_) @@ -6376,15 +6376,15 @@ (_g3677436945_ _L36762_)))) (___kont4754347544_ (lambda () - (let ((__tmp48705 - (let ((__tmp48706 + (let ((__tmp48730 + (let ((__tmp48731 (let () (declare (not safe)) (cons _E36712_ '())))) (declare (not safe)) - (cons '@match-body __tmp48706)))) + (cons '@match-body __tmp48731)))) (declare (not safe)) - (cons 'begin-annotation __tmp48705))))) + (cons 'begin-annotation __tmp48730))))) (if (gx#stx-pair? ___stx4753647537_) (let ((_e3672136956_ (gx#syntax-e ___stx4753647537_))) @@ -6436,25 +6436,25 @@ (##cdr _e3637236404_)))) (if (gx#stx-pair/null? _hd3637136408_) - (let ((_g48707_ + (let ((_g48732_ (gx#syntax-split-splice _hd3637136408_ '0))) (begin - (let ((_g48708_ + (let ((_g48733_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g48707_) - (##vector-length _g48707_) + (if (##values? _g48732_) + (##vector-length _g48732_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48708_ 2))) - (error "Context expects 2 values" _g48708_))) + (if (not (let () (declare (not safe)) (##fx= _g48733_ 2))) + (error "Context expects 2 values" _g48733_))) (let ((_target3637336414_ - (let () (declare (not safe)) (##vector-ref _g48707_ 0))) + (let () (declare (not safe)) (##vector-ref _g48732_ 0))) (_tl3637536417_ - (let () (declare (not safe)) (##vector-ref _g48707_ 1)))) + (let () (declare (not safe)) (##vector-ref _g48732_ 1)))) (if (gx#stx-null? _tl3637536417_) (letrec ((_loop3637636420_ (lambda (_hd3637436424_ _var3638036427_) @@ -6469,7 +6469,7 @@ (let () (declare (not safe)) (##cdr _e3637736430_)))) - (let ((__tmp48725 + (let ((__tmp48750 (let () (declare (not safe)) (cons _lp-hd3637836434_ @@ -6477,14 +6477,14 @@ (declare (not safe)) (_loop3637636420_ _lp-tl3637936437_ - __tmp48725)))) + __tmp48750)))) (let ((_var3638136440_ (reverse _var3638036427_))) (if (gx#stx-null? _tl3637036411_) ((lambda (_L36444_ _L36446_) (let () (gx#check-duplicate-identifiers - (let ((__tmp48709 + (let ((__tmp48734 (lambda (_g3646736470_ _g3646836473_) (let () @@ -6494,7 +6494,7 @@ _g3646836473_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48709 + (foldr1 __tmp48734 '() _L36444_)) _stx36347_) @@ -6531,61 +6531,61 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp48714 + (let ((__tmp48739 (gx#datum->syntax '#f 'let)) - (__tmp48710 - (let ((__tmp48712 + (__tmp48735 + (let ((__tmp48737 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48713 + (let ((__tmp48738 (let () (declare (not safe)) (cons _L36547_ '())))) (declare (not safe)) - (cons _L36446_ __tmp48713))) - (__tmp48711 + (cons _L36446_ __tmp48738))) + (__tmp48736 (let () (declare (not safe)) (cons _L36491_ '())))) (declare (not safe)) - (cons __tmp48712 __tmp48711)))) + (cons __tmp48737 __tmp48736)))) (declare (not safe)) - (cons __tmp48714 __tmp48710)) + (cons __tmp48739 __tmp48735)) (gx#stx-source _stx36347_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3653336544_))) - (__tmp48715 + (__tmp48740 (gx#stx-wrap-source - (let ((__tmp48720 + (let ((__tmp48745 (gx#datum->syntax '#f 'lambda)) - (__tmp48716 - (let ((__tmp48718 - (let ((__tmp48719 + (__tmp48741 + (let ((__tmp48743 + (let ((__tmp48744 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g3656536568_ _g3656636571_) (let () (declare (not safe)) (cons _g3656536568_ _g3656636571_))))) (declare (not safe)) - (foldr1 __tmp48719 '() _L36444_))) - (__tmp48717 + (foldr1 __tmp48744 '() _L36444_))) + (__tmp48742 (let () (declare (not safe)) (cons _L36519_ '())))) (declare (not safe)) - (cons __tmp48718 __tmp48717)))) + (cons __tmp48743 __tmp48742)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48720 __tmp48716)) + (cons __tmp48745 __tmp48741)) (gx#stx-source _stx36347_)))) (declare (not safe)) - (_g3653136562_ __tmp48715)))) + (_g3653136562_ __tmp48740)))) _g3650536516_)))) (declare (not safe)) (_g3650336574_ _body36360_)))) _g3647736488_))) - (__tmp48721 + (__tmp48746 (let _recur36582_ ((_rest36585_ _clause36358_) (_rest-targets36587_ _tgt-lst36349_)) (let* ((___stx4756247563_ _rest36585_) @@ -6617,7 +6617,7 @@ (declare (not safe)) (##cdr _e3666136674_)))) ((lambda (_L36684_ _L36686_) - (let ((__tmp48722 + (let ((__tmp48747 (let () (declare (not safe)) (_recur36582_ @@ -6628,7 +6628,7 @@ _stx36347_ _L36686_ _L36640_ - __tmp48722 + __tmp48747 _E36361_))) _tl3665936681_ _hd3666036678_))) @@ -6639,17 +6639,17 @@ (_g3665436698_ _rest-targets36587_)))) (___kont4756747568_ (lambda () - (let ((__tmp48723 - (let ((__tmp48724 + (let ((__tmp48748 + (let ((__tmp48749 (lambda (_g3661236615_ _g3661336618_) (let () (declare (not safe)) (cons _g3661236615_ _g3661336618_))))) (declare (not safe)) - (foldr1 __tmp48724 '() _L36444_)))) + (foldr1 __tmp48749 '() _L36444_)))) (declare (not safe)) - (cons _L36446_ __tmp48723))))) + (cons _L36446_ __tmp48748))))) (if (gx#stx-pair? ___stx4756247563_) (let ((_e3659636628_ (gx#syntax-e ___stx4756247563_))) (let ((_tl3659436635_ @@ -6666,7 +6666,7 @@ (___kont4756747568_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g3647536578_ __tmp48721)))) + (_g3647536578_ __tmp48746)))) _var3638136440_ _hd3636836398_) (let () @@ -6690,19 +6690,19 @@ (let () (declare (not safe)) (_g3636336387_ _g3636436391_))))) - (__tmp48726 + (__tmp48751 (list (gx#genident 'K) (apply append (map |gerbil/core/match[1]#match-pattern-vars| _clause36358_))))) (declare (not safe)) - (_g3636236706_ __tmp48726))))) - (let ((__tmp48727 - (let ((__tmp48728 (gx#stx-length _tgt-lst36349_))) + (_g3636236706_ __tmp48751))))) + (let ((__tmp48752 + (let ((__tmp48753 (gx#stx-length _tgt-lst36349_))) (declare (not safe)) - (_parse-body36352_ __tmp48728)))) + (_parse-body36352_ __tmp48753)))) (declare (not safe)) - (_generate-body36354_ __tmp48727))))) + (_generate-body36354_ __tmp48752))))) (define |gerbil/core/match[1]#generate-match| (lambda (_stx36249_ _tgt36251_ _clauses36252_) (letrec ((_reclause36254_ @@ -6718,12 +6718,12 @@ (___kont4758347584_ (lambda (_L36305_ _L36307_) (gx#stx-wrap-source - (let ((__tmp48729 + (let ((__tmp48754 (let () (declare (not safe)) (cons _L36307_ '())))) (declare (not safe)) - (cons __tmp48729 _L36305_)) + (cons __tmp48754 _L36305_)) (gx#stx-source (gx#datum->syntax '#f 'clause))))) (___kont4758547586_ @@ -6746,7 +6746,7 @@ (##car _e3626636329_)))) (if (gx#identifier? _hd3626536333_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g48730_| + |gerbil/core/match[1]#_g48755_| _hd3626536333_) (___kont4758147582_) (___kont4758347584_ @@ -6756,14 +6756,14 @@ _tl3626436336_ _hd3626536333_)))) (___kont4758547586_))))))) - (let ((__tmp48732 + (let ((__tmp48757 (let () (declare (not safe)) (cons _tgt36251_ '()))) - (__tmp48731 (gx#stx-map _reclause36254_ _clauses36252_))) + (__tmp48756 (gx#stx-map _reclause36254_ _clauses36252_))) (declare (not safe)) (|gerbil/core/match[1]#generate-match*| _stx36249_ - __tmp48732 - __tmp48731))))) + __tmp48757 + __tmp48756))))) (define |gerbil/core/match[:0:]#match| (lambda (_stx43479_) (let* ((___stx4760647607_ _stx43479_) @@ -6796,33 +6796,33 @@ ((lambda (_L43808_) (let () (let () - (let ((__tmp48736 + (let ((__tmp48761 (gx#datum->syntax '#f 'lambda)) - (__tmp48733 - (let ((__tmp48735 + (__tmp48758 + (let ((__tmp48760 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L43781_ '()))) - (__tmp48734 + (__tmp48759 (let () (declare (not safe)) (cons _L43808_ '())))) (declare (not safe)) - (cons __tmp48735 __tmp48734)))) + (cons __tmp48760 __tmp48759)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48736 - __tmp48733))))) + (cons __tmp48761 + __tmp48758))))) _g4379443805_)))) (_g4379243823_ (gx#stx-wrap-source - (let ((__tmp48738 + (let ((__tmp48763 (gx#datum->syntax '#f 'match)) - (__tmp48737 + (__tmp48762 (let () (declare (not safe)) (cons _L43781_ _L43753_)))) (declare (not safe)) - (cons __tmp48738 __tmp48737)) + (cons __tmp48763 __tmp48762)) (gx#stx-source _stx43479_)))))) _g4376743778_)))) (_g4376543827_ (gx#genident 'e))))) @@ -6849,31 +6849,31 @@ ((lambda (_L43703_) (let () (let () - (let ((__tmp48741 + (let ((__tmp48766 (gx#datum->syntax '#f 'lambda)) - (__tmp48739 - (let ((__tmp48740 + (__tmp48764 + (let ((__tmp48765 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L43703_ '())))) (declare (not safe)) - (cons _L43676_ __tmp48740)))) + (cons _L43676_ __tmp48765)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48741 - __tmp48739))))) + (cons __tmp48766 + __tmp48764))))) _g4368943700_)))) (_g4368743718_ (gx#stx-wrap-source - (let ((__tmp48743 + (let ((__tmp48768 (gx#datum->syntax '#f 'match)) - (__tmp48742 + (__tmp48767 (let () (declare (not safe)) (cons _L43676_ _L43648_)))) (declare (not safe)) - (cons __tmp48743 __tmp48742)) + (cons __tmp48768 __tmp48767)) (gx#stx-source _stx43479_)))))) _g4366243673_)))) (_g4366043722_ (gx#genident 'args))))) @@ -6900,30 +6900,30 @@ ((lambda (_L43598_) (let () (let () - (let ((__tmp48749 + (let ((__tmp48774 (gx#datum->syntax '#f 'let)) - (__tmp48744 - (let ((__tmp48746 + (__tmp48769 + (let ((__tmp48771 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48747 - (let ((__tmp48748 + (let ((__tmp48772 + (let ((__tmp48773 (let () (declare (not safe)) (cons _L43542_ '())))) (declare (not safe)) - (cons _L43571_ __tmp48748)))) + (cons _L43571_ __tmp48773)))) (declare (not safe)) - (cons __tmp48747 '()))) - (__tmp48745 + (cons __tmp48772 '()))) + (__tmp48770 (let () (declare (not safe)) (cons _L43598_ '())))) (declare (not safe)) - (cons __tmp48746 __tmp48745)))) + (cons __tmp48771 __tmp48770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48749 - __tmp48744))))) + (cons __tmp48774 + __tmp48769))))) _g4358443595_)))) (_g4358243613_ (let () @@ -7000,7 +7000,7 @@ (##car _e4349243743_)))) (if (gx#identifier? _hd4349143747_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g48751_| + |gerbil/core/match[1]#_g48776_| _hd4349143747_) (___match4763147632_ _e4348943733_ @@ -7010,7 +7010,7 @@ _hd4349143747_ _tl4349043750_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g48750_| + |gerbil/core/match[1]#_g48775_| _hd4349143747_) (___match4764747648_ _e4348943733_ @@ -7067,31 +7067,31 @@ (declare (not safe)) (##cdr _e4384743879_)))) (if (gx#stx-pair/null? _hd4384643883_) - (let ((_g48752_ + (let ((_g48777_ (gx#syntax-split-splice _hd4384643883_ '0))) (begin - (let ((_g48753_ + (let ((_g48778_ (let () (declare (not safe)) - (if (##values? _g48752_) + (if (##values? _g48777_) (##vector-length - _g48752_) + _g48777_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48753_ 2))) + (##fx= _g48778_ 2))) (error "Context expects 2 values" - _g48753_))) + _g48778_))) (let ((_target4384843889_ (let () (declare (not safe)) - (##vector-ref _g48752_ 0))) + (##vector-ref _g48777_ 0))) (_tl4385043892_ (let () (declare (not safe)) - (##vector-ref _g48752_ 1)))) + (##vector-ref _g48777_ 1)))) (if (gx#stx-null? _tl4385043892_) (letrec ((_loop4385143895_ (lambda (_hd4384943899_ @@ -7125,41 +7125,41 @@ (lambda (_g4394043960_) (if (gx#stx-pair/null? _g4394043960_) - (let ((_g48754_ + (let ((_g48779_ (gx#syntax-split-splice _g4394043960_ '0))) (begin - (let ((_g48755_ + (let ((_g48780_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48754_) - (##vector-length _g48754_) + _g48779_) + (##vector-length _g48779_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g48755_ 2))) - (error "Context expects 2 values" _g48755_))) + (##fx= _g48780_ 2))) + (error "Context expects 2 values" _g48780_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target4394243963_ (let () (declare (not safe)) (##vector-ref - _g48754_ + _g48779_ 0))) (_tl4394443966_ (let () (declare (not safe)) (##vector-ref - _g48754_ + _g48779_ 1)))) (if (gx#stx-null? _tl4394443966_) @@ -7198,47 +7198,47 @@ ((lambda (_L44024_) (let () (let () - (let ((__tmp48762 + (let ((__tmp48787 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp48756 - (let ((__tmp48758 + (__tmp48781 + (let ((__tmp48783 (begin (gx#syntax-check-splice-targets _L43921_ _L43993_) - (let ((__tmp48759 + (let ((__tmp48784 (lambda (_g4403844042_ _g4403944045_ _g4404044047_) - (let ((__tmp48760 - (let ((__tmp48761 + (let ((__tmp48785 + (let ((__tmp48786 (let () (declare (not safe)) (cons _g4403844042_ '())))) (declare (not safe)) (cons _g4403944045_ - __tmp48761)))) + __tmp48786)))) (declare (not safe)) - (cons __tmp48760 _g4404044047_))))) + (cons __tmp48785 _g4404044047_))))) (declare (not safe)) - (foldr2 __tmp48759 '() _L43921_ _L43993_)))) - (__tmp48757 + (foldr2 __tmp48784 '() _L43921_ _L43993_)))) + (__tmp48782 (let () (declare (not safe)) (cons _L44024_ '())))) (declare (not safe)) - (cons __tmp48758 __tmp48757)))) + (cons __tmp48783 __tmp48782)))) (declare (not safe)) - (cons __tmp48762 __tmp48756))))) + (cons __tmp48787 __tmp48781))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g4401044021_)))) (_g4400844050_ - (let ((__tmp48763 - (let ((__tmp48764 + (let ((__tmp48788 + (let ((__tmp48789 (lambda (_g4405344056_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g4405444059_) @@ -7247,13 +7247,13 @@ (cons _g4405344056_ _g4405444059_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48764 + (foldr1 __tmp48789 '() _L43993_)))) (declare (not safe)) (|gerbil/core/match[1]#generate-match*| _stx43835_ - __tmp48763 + __tmp48788 _L43919_)))))) _$e4395043989_)))))) (_loop4394543969_ _target4394243963_ '())) @@ -7263,7 +7263,7 @@ _g4394043960_))))) (_g4393844062_ (gx#gentemps - (let ((__tmp48765 + (let ((__tmp48790 (lambda (_g4406544068_ _g4406644071_) (let () @@ -7271,7 +7271,7 @@ (cons _g4406544068_ _g4406644071_))))) (declare (not safe)) - (foldr1 __tmp48765 '() _L43921_))))) + (foldr1 __tmp48790 '() _L43921_))))) (_g4383843862_ _g4383943866_))) _tl4384543886_ _e4385643915_)))))) @@ -7296,64 +7296,64 @@ ___stx4766247663_)))) (let ((___kont4766547666_ (lambda (_L44499_) - (let ((__tmp48769 (gx#datum->syntax '#f 'let)) - (__tmp48766 - (let ((__tmp48767 - (let ((__tmp48768 + (let ((__tmp48794 (gx#datum->syntax '#f 'let)) + (__tmp48791 + (let ((__tmp48792 + (let ((__tmp48793 (lambda (_g4451544518_ _g4451644521_) (let () (declare (not safe)) (cons _g4451544518_ _g4451644521_))))) (declare (not safe)) - (foldr1 __tmp48768 '() _L44499_)))) + (foldr1 __tmp48793 '() _L44499_)))) (declare (not safe)) - (cons '() __tmp48767)))) + (cons '() __tmp48792)))) (declare (not safe)) - (cons __tmp48769 __tmp48766)))) + (cons __tmp48794 __tmp48791)))) (___kont4766947670_ (lambda (_L44407_ _L44409_ _L44410_ _L44411_) - (let ((__tmp48770 - (let ((__tmp48773 - (let ((__tmp48774 - (let ((__tmp48775 + (let ((__tmp48795 + (let ((__tmp48798 + (let ((__tmp48799 + (let ((__tmp48800 (let () (declare (not safe)) (cons _L44409_ '())))) (declare (not safe)) - (cons _L44410_ __tmp48775)))) + (cons _L44410_ __tmp48800)))) (declare (not safe)) - (cons __tmp48774 '()))) - (__tmp48771 - (let ((__tmp48772 + (cons __tmp48799 '()))) + (__tmp48796 + (let ((__tmp48797 (lambda (_g4443344436_ _g4443444439_) (let () (declare (not safe)) (cons _g4443344436_ _g4443444439_))))) (declare (not safe)) - (foldr1 __tmp48772 '() _L44407_)))) + (foldr1 __tmp48797 '() _L44407_)))) (declare (not safe)) - (cons __tmp48773 __tmp48771)))) + (cons __tmp48798 __tmp48796)))) (declare (not safe)) - (cons _L44411_ __tmp48770)))) + (cons _L44411_ __tmp48795)))) (___kont4767347674_ (lambda (_L44280_ _L44282_ _L44283_) - (let ((__tmp48785 (gx#datum->syntax '#f 'match*)) - (__tmp48776 - (let ((__tmp48783 - (let ((__tmp48784 + (let ((__tmp48810 (gx#datum->syntax '#f 'match*)) + (__tmp48801 + (let ((__tmp48808 + (let ((__tmp48809 (lambda (_g4430944312_ _g4431044315_) (let () (declare (not safe)) (cons _g4430944312_ _g4431044315_))))) (declare (not safe)) - (foldr1 __tmp48784 '() _L44282_))) - (__tmp48777 - (let ((__tmp48778 - (let ((__tmp48781 - (let ((__tmp48782 + (foldr1 __tmp48809 '() _L44282_))) + (__tmp48802 + (let ((__tmp48803 + (let ((__tmp48806 + (let ((__tmp48807 (lambda (_g4430744318_ _g4430844321_) (let () @@ -7361,11 +7361,11 @@ (cons _g4430744318_ _g4430844321_))))) (declare (not safe)) - (foldr1 __tmp48782 + (foldr1 __tmp48807 '() _L44283_))) - (__tmp48779 - (let ((__tmp48780 + (__tmp48804 + (let ((__tmp48805 (lambda (_g4430544324_ _g4430644327_) (let () @@ -7373,17 +7373,17 @@ (cons _g4430544324_ _g4430644327_))))) (declare (not safe)) - (foldr1 __tmp48780 + (foldr1 __tmp48805 '() _L44280_)))) (declare (not safe)) - (cons __tmp48781 __tmp48779)))) + (cons __tmp48806 __tmp48804)))) (declare (not safe)) - (cons __tmp48778 '())))) + (cons __tmp48803 '())))) (declare (not safe)) - (cons __tmp48783 __tmp48777)))) + (cons __tmp48808 __tmp48802)))) (declare (not safe)) - (cons __tmp48785 __tmp48776))))) + (cons __tmp48810 __tmp48801))))) (let* ((___match4775547756_ (lambda (_e4413444176_ _hd4413344180_ @@ -7973,23 +7973,23 @@ ___stx4775847759_)))) (let ((___kont4776147762_ (lambda (_L44759_ _L44761_ _L44762_ _L44763_ _L44764_) - (let ((__tmp48795 (gx#datum->syntax '#f 'with)) - (__tmp48786 - (let ((__tmp48792 - (let ((__tmp48793 - (let ((__tmp48794 + (let ((__tmp48820 (gx#datum->syntax '#f 'with)) + (__tmp48811 + (let ((__tmp48817 + (let ((__tmp48818 + (let ((__tmp48819 (let () (declare (not safe)) (cons _L44762_ '())))) (declare (not safe)) - (cons _L44763_ __tmp48794)))) + (cons _L44763_ __tmp48819)))) (declare (not safe)) - (cons __tmp48793 '()))) - (__tmp48787 - (let ((__tmp48788 - (let ((__tmp48789 - (let ((__tmp48790 - (let ((__tmp48791 + (cons __tmp48818 '()))) + (__tmp48812 + (let ((__tmp48813 + (let ((__tmp48814 + (let ((__tmp48815 + (let ((__tmp48816 (lambda (_g4478944792_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g4479044795_) @@ -7997,35 +7997,35 @@ (declare (not safe)) (cons _g4478944792_ _g4479044795_))))) (declare (not safe)) - (foldr1 __tmp48791 '() _L44759_)))) + (foldr1 __tmp48816 '() _L44759_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L44761_ __tmp48790)))) + (cons _L44761_ __tmp48815)))) (declare (not safe)) - (cons _L44764_ __tmp48789)))) + (cons _L44764_ __tmp48814)))) (declare (not safe)) - (cons __tmp48788 '())))) + (cons __tmp48813 '())))) (declare (not safe)) - (cons __tmp48792 __tmp48787)))) + (cons __tmp48817 __tmp48812)))) (declare (not safe)) - (cons __tmp48795 __tmp48786)))) + (cons __tmp48820 __tmp48811)))) (___kont4776547766_ (lambda (_L44646_) - (let ((__tmp48799 (gx#datum->syntax '#f 'let)) - (__tmp48796 - (let ((__tmp48797 - (let ((__tmp48798 + (let ((__tmp48824 (gx#datum->syntax '#f 'let)) + (__tmp48821 + (let ((__tmp48822 + (let ((__tmp48823 (lambda (_g4466344666_ _g4466444669_) (let () (declare (not safe)) (cons _g4466344666_ _g4466444669_))))) (declare (not safe)) - (foldr1 __tmp48798 '() _L44646_)))) + (foldr1 __tmp48823 '() _L44646_)))) (declare (not safe)) - (cons '() __tmp48797)))) + (cons '() __tmp48822)))) (declare (not safe)) - (cons __tmp48799 __tmp48796))))) + (cons __tmp48824 __tmp48821))))) (let* ((___match4783147832_ (lambda (_e4457144596_ _hd4457044600_ diff --git a/src/bootstrap/gerbil/core/match~2.scm b/src/bootstrap/gerbil/core/match~2.scm index 829aa2a11..384e0d2d1 100644 --- a/src/bootstrap/gerbil/core/match~2.scm +++ b/src/bootstrap/gerbil/core/match~2.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/match[2]#_g48802_| + (define |gerbil/core/match[2]#_g48552_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48804_| + (define |gerbil/core/match[2]#_g48554_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48806_| + (define |gerbil/core/match[2]#_g48556_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48808_| + (define |gerbil/core/match[2]#_g48558_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48812_| + (define |gerbil/core/match[2]#_g48562_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48816_| + (define |gerbil/core/match[2]#_g48566_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48820_| + (define |gerbil/core/match[2]#_g48570_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48824_| + (define |gerbil/core/match[2]#_g48574_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -102,14 +102,14 @@ '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48800 - (let ((__tmp48801 |gerbil/core/match[2]#_g48802_|)) + (let ((__tmp48550 + (let ((__tmp48551 |gerbil/core/match[2]#_g48552_|)) (declare (not safe)) - (cons __tmp48801 '())))) + (cons __tmp48551 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48800 + __tmp48550 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) @@ -145,83 +145,83 @@ '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48803 |gerbil/core/match[2]#_g48804_|)) + (let ((__tmp48553 |gerbil/core/match[2]#_g48554_|)) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48803 + __tmp48553 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48805 |gerbil/core/match[2]#_g48806_|)) + (let ((__tmp48555 |gerbil/core/match[2]#_g48556_|)) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48805 + __tmp48555 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48807 |gerbil/core/match[2]#_g48808_|)) + (let ((__tmp48557 |gerbil/core/match[2]#_g48558_|)) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48807 + __tmp48557 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48809 - (let ((__tmp48810 - (let ((__tmp48811 |gerbil/core/match[2]#_g48812_|)) + (let ((__tmp48559 + (let ((__tmp48560 + (let ((__tmp48561 |gerbil/core/match[2]#_g48562_|)) (declare (not safe)) - (cons 'macro __tmp48811)))) + (cons 'macro __tmp48561)))) (declare (not safe)) - (cons __tmp48810 '())))) + (cons __tmp48560 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48809 + __tmp48559 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48813 - (let ((__tmp48814 - (let ((__tmp48815 |gerbil/core/match[2]#_g48816_|)) + (let ((__tmp48563 + (let ((__tmp48564 + (let ((__tmp48565 |gerbil/core/match[2]#_g48566_|)) (declare (not safe)) - (cons 'macro __tmp48815)))) + (cons 'macro __tmp48565)))) (declare (not safe)) - (cons __tmp48814 '())))) + (cons __tmp48564 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48813 + __tmp48563 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48817 - (let ((__tmp48818 - (let ((__tmp48819 |gerbil/core/match[2]#_g48820_|)) + (let ((__tmp48567 + (let ((__tmp48568 + (let ((__tmp48569 |gerbil/core/match[2]#_g48570_|)) (declare (not safe)) - (cons 'macro __tmp48819)))) + (cons 'macro __tmp48569)))) (declare (not safe)) - (cons __tmp48818 '())))) + (cons __tmp48568 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48817 + __tmp48567 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48821 - (let ((__tmp48822 - (let ((__tmp48823 |gerbil/core/match[2]#_g48824_|)) + (let ((__tmp48571 + (let ((__tmp48572 + (let ((__tmp48573 |gerbil/core/match[2]#_g48574_|)) (declare (not safe)) - (cons 'macro __tmp48823)))) + (cons 'macro __tmp48573)))) (declare (not safe)) - (cons __tmp48822 '())))) + (cons __tmp48572 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48821 + __tmp48571 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index f81bf1550..2f3c238c2 100644 --- a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm +++ b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/mop~MOP-2::timestamp 1710781147) + (define gerbil/core/mop~MOP-2::timestamp 1710833422) (begin (define gerbil/core/mop~MOP-2#class-type-info::t (let ((__tmp34653 (list))) diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index 5d47e4bc3..70228b7b2 100644 --- a/src/bootstrap/gerbil/expander/common~0.scm +++ b/src/bootstrap/gerbil/expander/common~0.scm @@ -1,26 +1,26 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1710781149) + (define gerbil/expander/common::timestamp 1710833424) (begin (define gx#AST::t - (let ((__tmp81484 (list)) - (__tmp81482 - (let ((__tmp81483 + (let ((__tmp81488 (list)) + (__tmp81486 + (let ((__tmp81487 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp81483 '())))) + (cons __tmp81487 '())))) (declare (not safe)) (make-class-type 'gerbil#AST::t 'syntax - __tmp81484 + __tmp81488 '(e source) - __tmp81482 + __tmp81486 '#f))) (define gx#AST? (let () (declare (not safe)) (make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _$args81381_ (apply make-instance gx#AST::t _$args81381_))) + (lambda _$args81385_ (apply make-instance gx#AST::t _$args81385_))) (define gx#AST-e (let () (declare (not safe)) (make-class-slot-accessor gx#AST::t 'e))) (define gx#AST-source diff --git a/src/bootstrap/gerbil/expander/common~1.scm b/src/bootstrap/gerbil/expander/common~1.scm index abe117fd0..8f0a36f2d 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]#_g81486_| + (define |gx[1]#_g81490_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g81488_| + (define |gx[1]#_g81492_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g81490_| + (define |gx[1]#_g81494_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g81495_| + (define |gx[1]#_g81499_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81498_| + (define |gx[1]#_g81502_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81503_| + (define |gx[1]#_g81507_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81506_| + (define |gx[1]#_g81510_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81511_| + (define |gx[1]#_g81515_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81514_| + (define |gx[1]#_g81518_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81519_| + (define |gx[1]#_g81523_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81522_| + (define |gx[1]#_g81526_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81629_| + (define |gx[1]#_g81633_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj81481 + (let ((__obj81485 (let () (declare (not safe)) (##structure @@ -110,7 +110,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81481 + __obj81485 'gerbil#AST::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -118,7 +118,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81481 + __obj81485 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -126,7 +126,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81481 + __obj81485 '(e source) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -134,7 +134,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81481 + __obj81485 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -142,7 +142,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81481 + __obj81485 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -150,7 +150,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81481 + __obj81485 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -158,7 +158,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81481 + __obj81485 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -166,847 +166,847 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81481 + __obj81485 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81485 |gx[1]#_g81486_|)) + (let ((__tmp81489 |gx[1]#_g81490_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81481 - __tmp81485 + __obj81485 + __tmp81489 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81487 |gx[1]#_g81488_|)) + (let ((__tmp81491 |gx[1]#_g81492_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81481 - __tmp81487 + __obj81485 + __tmp81491 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81489 |gx[1]#_g81490_|)) + (let ((__tmp81493 |gx[1]#_g81494_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81481 - __tmp81489 + __obj81485 + __tmp81493 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81491 - (let ((__tmp81496 - (let ((__tmp81497 |gx[1]#_g81498_|)) + (let ((__tmp81495 + (let ((__tmp81500 + (let ((__tmp81501 |gx[1]#_g81502_|)) (declare (not safe)) - (cons 'e __tmp81497))) - (__tmp81492 - (let ((__tmp81493 - (let ((__tmp81494 |gx[1]#_g81495_|)) + (cons 'e __tmp81501))) + (__tmp81496 + (let ((__tmp81497 + (let ((__tmp81498 |gx[1]#_g81499_|)) (declare (not safe)) - (cons 'source __tmp81494)))) + (cons 'source __tmp81498)))) (declare (not safe)) - (cons __tmp81493 '())))) + (cons __tmp81497 '())))) (declare (not safe)) - (cons __tmp81496 __tmp81492)))) + (cons __tmp81500 __tmp81496)))) (declare (not safe)) (##unchecked-structure-set! - __obj81481 - __tmp81491 + __obj81485 + __tmp81495 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81499 - (let ((__tmp81504 - (let ((__tmp81505 |gx[1]#_g81506_|)) + (let ((__tmp81503 + (let ((__tmp81508 + (let ((__tmp81509 |gx[1]#_g81510_|)) (declare (not safe)) - (cons 'e __tmp81505))) - (__tmp81500 - (let ((__tmp81501 - (let ((__tmp81502 |gx[1]#_g81503_|)) + (cons 'e __tmp81509))) + (__tmp81504 + (let ((__tmp81505 + (let ((__tmp81506 |gx[1]#_g81507_|)) (declare (not safe)) - (cons 'source __tmp81502)))) + (cons 'source __tmp81506)))) (declare (not safe)) - (cons __tmp81501 '())))) + (cons __tmp81505 '())))) (declare (not safe)) - (cons __tmp81504 __tmp81500)))) + (cons __tmp81508 __tmp81504)))) (declare (not safe)) (##unchecked-structure-set! - __obj81481 - __tmp81499 + __obj81485 + __tmp81503 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81507 - (let ((__tmp81512 - (let ((__tmp81513 |gx[1]#_g81514_|)) + (let ((__tmp81511 + (let ((__tmp81516 + (let ((__tmp81517 |gx[1]#_g81518_|)) (declare (not safe)) - (cons 'e __tmp81513))) - (__tmp81508 - (let ((__tmp81509 - (let ((__tmp81510 |gx[1]#_g81511_|)) + (cons 'e __tmp81517))) + (__tmp81512 + (let ((__tmp81513 + (let ((__tmp81514 |gx[1]#_g81515_|)) (declare (not safe)) - (cons 'source __tmp81510)))) + (cons 'source __tmp81514)))) (declare (not safe)) - (cons __tmp81509 '())))) + (cons __tmp81513 '())))) (declare (not safe)) - (cons __tmp81512 __tmp81508)))) + (cons __tmp81516 __tmp81512)))) (declare (not safe)) (##unchecked-structure-set! - __obj81481 - __tmp81507 + __obj81485 + __tmp81511 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81515 - (let ((__tmp81520 - (let ((__tmp81521 |gx[1]#_g81522_|)) + (let ((__tmp81519 + (let ((__tmp81524 + (let ((__tmp81525 |gx[1]#_g81526_|)) (declare (not safe)) - (cons 'e __tmp81521))) - (__tmp81516 - (let ((__tmp81517 - (let ((__tmp81518 |gx[1]#_g81519_|)) + (cons 'e __tmp81525))) + (__tmp81520 + (let ((__tmp81521 + (let ((__tmp81522 |gx[1]#_g81523_|)) (declare (not safe)) - (cons 'source __tmp81518)))) + (cons 'source __tmp81522)))) (declare (not safe)) - (cons __tmp81517 '())))) + (cons __tmp81521 '())))) (declare (not safe)) - (cons __tmp81520 __tmp81516)))) + (cons __tmp81524 __tmp81520)))) (declare (not safe)) (##unchecked-structure-set! - __obj81481 - __tmp81515 + __obj81485 + __tmp81519 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj81481)) + __obj81485)) (define |gx[:0:]#check-procedure| - (lambda (_$stx80101_) - (let* ((_g8010580119_ - (lambda (_g8010680115_) + (lambda (_$stx80105_) + (let* ((_g8010980123_ + (lambda (_g8011080119_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8010680115_))) - (_g8010480161_ - (lambda (_g8010680123_) - (if (gx#stx-pair? _g8010680123_) - (let ((_e8011080126_ (gx#syntax-e _g8010680123_))) - (let ((_hd8010980130_ + _g8011080119_))) + (_g8010880165_ + (lambda (_g8011080127_) + (if (gx#stx-pair? _g8011080127_) + (let ((_e8011480130_ (gx#syntax-e _g8011080127_))) + (let ((_hd8011380134_ (let () (declare (not safe)) - (##car _e8011080126_))) - (_tl8010880133_ + (##car _e8011480130_))) + (_tl8011280137_ (let () (declare (not safe)) - (##cdr _e8011080126_)))) - (if (gx#stx-pair? _tl8010880133_) - (let ((_e8011380136_ - (gx#syntax-e _tl8010880133_))) - (let ((_hd8011280140_ + (##cdr _e8011480130_)))) + (if (gx#stx-pair? _tl8011280137_) + (let ((_e8011780140_ + (gx#syntax-e _tl8011280137_))) + (let ((_hd8011680144_ (let () (declare (not safe)) - (##car _e8011380136_))) - (_tl8011180143_ + (##car _e8011780140_))) + (_tl8011580147_ (let () (declare (not safe)) - (##cdr _e8011380136_)))) - (if (gx#stx-null? _tl8011180143_) - ((lambda (_L80146_) - (let ((__tmp81532 + (##cdr _e8011780140_)))) + (if (gx#stx-null? _tl8011580147_) + ((lambda (_L80150_) + (let ((__tmp81536 (gx#datum->syntax '#f 'unless)) - (__tmp81523 - (let ((__tmp81529 - (let ((__tmp81531 + (__tmp81527 + (let ((__tmp81533 + (let ((__tmp81535 (gx#datum->syntax '#f 'procedure?)) - (__tmp81530 + (__tmp81534 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L80146_ '())))) + (cons _L80150_ '())))) (declare (not safe)) - (cons __tmp81531 __tmp81530))) - (__tmp81524 - (let ((__tmp81525 - (let ((__tmp81528 (gx#datum->syntax '#f 'error)) - (__tmp81526 - (let ((__tmp81527 + (cons __tmp81535 __tmp81534))) + (__tmp81528 + (let ((__tmp81529 + (let ((__tmp81532 (gx#datum->syntax '#f 'error)) + (__tmp81530 + (let ((__tmp81531 (let () (declare (not safe)) - (cons _L80146_ '())))) + (cons _L80150_ '())))) (declare (not safe)) - (cons '"expected procedure" __tmp81527)))) + (cons '"expected procedure" __tmp81531)))) (declare (not safe)) - (cons __tmp81528 __tmp81526)))) + (cons __tmp81532 __tmp81530)))) (declare (not safe)) - (cons __tmp81525 '())))) + (cons __tmp81529 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81529 - __tmp81524)))) + (cons __tmp81533 + __tmp81528)))) (declare (not safe)) - (cons __tmp81532 __tmp81523))) - _hd8011280140_) - (_g8010580119_ _g8010680123_)))) - (_g8010580119_ _g8010680123_)))) - (_g8010580119_ _g8010680123_))))) - (_g8010480161_ _$stx80101_)))) + (cons __tmp81536 __tmp81527))) + _hd8011680144_) + (_g8010980123_ _g8011080127_)))) + (_g8010980123_ _g8011080127_)))) + (_g8010980123_ _g8011080127_))))) + (_g8010880165_ _$stx80105_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_stx80165_) - (letrec ((_generate80168_ - (lambda (_tgt80317_ _kws80319_ _clauses80320_) - (letrec ((_generate-clause80322_ - (lambda (_hd81232_ _E81234_) - (let* ((___stx8138481385_ _hd81232_) - (_g8123881265_ + (lambda (_stx80169_) + (letrec ((_generate80172_ + (lambda (_tgt80321_ _kws80323_ _clauses80324_) + (letrec ((_generate-clause80326_ + (lambda (_hd81236_ _E81238_) + (let* ((___stx8138881389_ _hd81236_) + (_g8124281269_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8138481385_)))) - (let ((___kont8138781388_ - (lambda (_L81361_ _L81363_) - (_generate180324_ - _hd81232_ - _L81363_ + ___stx8138881389_)))) + (let ((___kont8139181392_ + (lambda (_L81365_ _L81367_) + (_generate180328_ + _hd81236_ + _L81367_ '#t - _L81361_ - _E81234_))) - (___kont8138981390_ - (lambda (_L81313_ _L81315_ _L81316_) - (_generate180324_ - _hd81232_ - _L81316_ - _L81315_ - _L81313_ - _E81234_))) - (___kont8139181392_ + _L81365_ + _E81238_))) + (___kont8139381394_ + (lambda (_L81317_ _L81319_ _L81320_) + (_generate180328_ + _hd81236_ + _L81320_ + _L81319_ + _L81317_ + _E81238_))) + (___kont8139581396_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _stx80165_ - _hd81232_)))) - (if (gx#stx-pair? ___stx8138481385_) - (let ((_e8124481341_ + _stx80169_ + _hd81236_)))) + (if (gx#stx-pair? ___stx8138881389_) + (let ((_e8124881345_ (gx#syntax-e - ___stx8138481385_))) - (let ((_tl8124281348_ + ___stx8138881389_))) + (let ((_tl8124681352_ (let () (declare (not safe)) - (##cdr _e8124481341_))) - (_hd8124381345_ + (##cdr _e8124881345_))) + (_hd8124781349_ (let () (declare (not safe)) - (##car _e8124481341_)))) - (if (gx#stx-pair? _tl8124281348_) - (let ((_e8124781351_ + (##car _e8124881345_)))) + (if (gx#stx-pair? _tl8124681352_) + (let ((_e8125181355_ (gx#syntax-e - _tl8124281348_))) - (let ((_tl8124581358_ + _tl8124681352_))) + (let ((_tl8124981362_ (let () (declare (not safe)) - (##cdr _e8124781351_))) - (_hd8124681355_ + (##cdr _e8125181355_))) + (_hd8125081359_ (let () (declare (not safe)) - (##car _e8124781351_)))) + (##car _e8125181355_)))) (if (gx#stx-null? - _tl8124581358_) - (___kont8138781388_ - _hd8124681355_ - _hd8124381345_) + _tl8124981362_) + (___kont8139181392_ + _hd8125081359_ + _hd8124781349_) (if (gx#stx-pair? - _tl8124581358_) - (let ((_e8125981303_ + _tl8124981362_) + (let ((_e8126381307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl8124581358_))) - (let ((_tl8125781310_ + (gx#syntax-e _tl8124981362_))) + (let ((_tl8126181314_ (let () (declare (not safe)) - (##cdr _e8125981303_))) - (_hd8125881307_ + (##cdr _e8126381307_))) + (_hd8126281311_ (let () (declare (not safe)) - (##car _e8125981303_)))) - (if (gx#stx-null? _tl8125781310_) - (___kont8138981390_ - _hd8125881307_ - _hd8124681355_ - _hd8124381345_) - (___kont8139181392_)))) - (___kont8139181392_))))) + (##car _e8126381307_)))) + (if (gx#stx-null? _tl8126181314_) + (___kont8139381394_ + _hd8126281311_ + _hd8125081359_ + _hd8124781349_) + (___kont8139581396_)))) + (___kont8139581396_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8139181392_)))) - (___kont8139181392_)))))) - (_generate180324_ - (lambda (_where80710_ - _hd80712_ - _fender80713_ - _body80714_ - _E80715_) - (letrec ((_recur80717_ - (lambda (_hd80720_ - _tgt80722_ - _K80723_) - (let* ((___stx8143081431_ - _hd80720_) - (_g8072680738_ + (___kont8139581396_)))) + (___kont8139581396_)))))) + (_generate180328_ + (lambda (_where80714_ + _hd80716_ + _fender80717_ + _body80718_ + _E80719_) + (letrec ((_recur80721_ + (lambda (_hd80724_ + _tgt80726_ + _K80727_) + (let* ((___stx8143481435_ + _hd80724_) + (_g8073080742_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8143081431_)))) - (let ((___kont8143381434_ - (lambda (_L81022_ - _L81024_) - (let* ((_g8103581043_ - (lambda (_g8103681039_) + ___stx8143481435_)))) + (let ((___kont8143781438_ + (lambda (_L81026_ + _L81028_) + (let* ((_g8103981047_ + (lambda (_g8104081043_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8103681039_))) - (_g8103481224_ - (lambda (_g8103681047_) - ((lambda (_L81050_) + _g8104081043_))) + (_g8103881228_ + (lambda (_g8104081051_) + ((lambda (_L81054_) (let () - (let* ((_g8106281070_ - (lambda (_g8106381066_) + (let* ((_g8106681074_ + (lambda (_g8106781070_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8106381066_))) - (_g8106181220_ - (lambda (_g8106381074_) - ((lambda (_L81077_) + _g8106781070_))) + (_g8106581224_ + (lambda (_g8106781078_) + ((lambda (_L81081_) (let () - (let* ((_g8109081098_ - (lambda (_g8109181094_) + (let* ((_g8109481102_ + (lambda (_g8109581098_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8109181094_))) - (_g8108981216_ - (lambda (_g8109181102_) - ((lambda (_L81105_) + _g8109581098_))) + (_g8109381220_ + (lambda (_g8109581106_) + ((lambda (_L81109_) (let () - (let* ((_g8111881126_ + (let* ((_g8112281130_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g8111981122_) + (lambda (_g8112381126_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8111981122_))) - (_g8111781212_ - (lambda (_g8111981130_) - ((lambda (_L81133_) + _g8112381126_))) + (_g8112181216_ + (lambda (_g8112381134_) + ((lambda (_L81137_) (let () - (let* ((_g8114681154_ - (lambda (_g8114781150_) + (let* ((_g8115081158_ + (lambda (_g8115181154_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8114781150_))) - (_g8114581208_ - (lambda (_g8114781158_) - ((lambda (_L81161_) + _g8115181154_))) + (_g8114981212_ + (lambda (_g8115181162_) + ((lambda (_L81165_) (let () - (let* ((_g8117481182_ - (lambda (_g8117581178_) + (let* ((_g8117881186_ + (lambda (_g8117981182_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8117581178_))) - (_g8117381204_ - (lambda (_g8117581186_) - ((lambda (_L81189_) + _g8117981182_))) + (_g8117781208_ + (lambda (_g8117981190_) + ((lambda (_L81193_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp81565 (gx#datum->syntax '#f 'if)) - (__tmp81533 - (let ((__tmp81562 - (let ((__tmp81564 + (let ((__tmp81569 (gx#datum->syntax '#f 'if)) + (__tmp81537 + (let ((__tmp81566 + (let ((__tmp81568 (gx#datum->syntax '#f 'stx-pair?)) - (__tmp81563 + (__tmp81567 (let () (declare (not safe)) - (cons _L81050_ '())))) + (cons _L81054_ '())))) (declare (not safe)) - (cons __tmp81564 __tmp81563))) - (__tmp81534 - (let ((__tmp81536 - (let ((__tmp81561 + (cons __tmp81568 __tmp81567))) + (__tmp81538 + (let ((__tmp81540 + (let ((__tmp81565 (gx#datum->syntax '#f 'let)) - (__tmp81537 - (let ((__tmp81555 - (let ((__tmp81556 + (__tmp81541 + (let ((__tmp81559 + (let ((__tmp81560 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81557 - (let ((__tmp81558 - (let ((__tmp81560 + (let ((__tmp81561 + (let ((__tmp81562 + (let ((__tmp81564 (gx#datum->syntax '#f 'syntax-e)) - (__tmp81559 + (__tmp81563 (let () (declare (not safe)) - (cons _L81050_ '())))) + (cons _L81054_ '())))) (declare (not safe)) - (cons __tmp81560 __tmp81559)))) + (cons __tmp81564 __tmp81563)))) (declare (not safe)) - (cons __tmp81558 '())))) + (cons __tmp81562 '())))) (declare (not safe)) - (cons _L81077_ __tmp81557)))) + (cons _L81081_ __tmp81561)))) (declare (not safe)) - (cons __tmp81556 '()))) - (__tmp81538 - (let ((__tmp81539 - (let ((__tmp81554 (gx#datum->syntax '#f 'let)) - (__tmp81540 - (let ((__tmp81542 - (let ((__tmp81549 - (let ((__tmp81550 - (let ((__tmp81551 - (let ((__tmp81553 + (cons __tmp81560 '()))) + (__tmp81542 + (let ((__tmp81543 + (let ((__tmp81558 (gx#datum->syntax '#f 'let)) + (__tmp81544 + (let ((__tmp81546 + (let ((__tmp81553 + (let ((__tmp81554 + (let ((__tmp81555 + (let ((__tmp81557 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp81552 + (__tmp81556 (let () (declare (not safe)) - (cons _L81077_ '())))) + (cons _L81081_ '())))) (declare (not safe)) - (cons __tmp81553 __tmp81552)))) + (cons __tmp81557 __tmp81556)))) (declare (not safe)) - (cons __tmp81551 '())))) + (cons __tmp81555 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L81105_ - __tmp81550))) - (__tmp81543 - (let ((__tmp81544 - (let ((__tmp81545 - (let ((__tmp81546 + (cons _L81109_ + __tmp81554))) + (__tmp81547 + (let ((__tmp81548 + (let ((__tmp81549 + (let ((__tmp81550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81548 (gx#datum->syntax '#f '##cdr)) - (__tmp81547 + (let ((__tmp81552 (gx#datum->syntax '#f '##cdr)) + (__tmp81551 (let () (declare (not safe)) - (cons _L81077_ '())))) + (cons _L81081_ '())))) (declare (not safe)) - (cons __tmp81548 __tmp81547)))) + (cons __tmp81552 __tmp81551)))) (declare (not safe)) - (cons __tmp81546 '())))) + (cons __tmp81550 '())))) (declare (not safe)) - (cons _L81133_ __tmp81545)))) + (cons _L81137_ __tmp81549)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81544 '())))) + (cons __tmp81548 '())))) (declare (not safe)) - (cons __tmp81549 __tmp81543))) - (__tmp81541 + (cons __tmp81553 __tmp81547))) + (__tmp81545 (let () (declare (not safe)) - (cons _L81161_ '())))) + (cons _L81165_ '())))) (declare (not safe)) - (cons __tmp81542 __tmp81541)))) + (cons __tmp81546 __tmp81545)))) (declare (not safe)) - (cons __tmp81554 __tmp81540)))) + (cons __tmp81558 __tmp81544)))) (declare (not safe)) - (cons __tmp81539 '())))) + (cons __tmp81543 '())))) (declare (not safe)) - (cons __tmp81555 __tmp81538)))) + (cons __tmp81559 __tmp81542)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81561 - __tmp81537))) - (__tmp81535 + (cons __tmp81565 + __tmp81541))) + (__tmp81539 (let () (declare (not safe)) - (cons _L81189_ '())))) + (cons _L81193_ '())))) (declare (not safe)) - (cons __tmp81536 __tmp81535)))) + (cons __tmp81540 __tmp81539)))) (declare (not safe)) - (cons __tmp81562 __tmp81534)))) + (cons __tmp81566 __tmp81538)))) (declare (not safe)) - (cons __tmp81565 __tmp81533))))) - _g8117581186_)))) + (cons __tmp81569 __tmp81537))))) + _g8117981190_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8117381204_ _E80715_)))) - _g8114781158_)))) - (_g8114581208_ - (_recur80717_ - _L81024_ - _L81105_ - (_recur80717_ - _L81022_ - _L81133_ - _K80723_)))))) - _g8111981130_)))) - (_g8111781212_ (gx#genident 'tl))))) - _g8109181102_)))) + (_g8117781208_ _E80719_)))) + _g8115181162_)))) + (_g8114981212_ + (_recur80721_ + _L81028_ + _L81109_ + (_recur80721_ + _L81026_ + _L81137_ + _K80727_)))))) + _g8112381134_)))) + (_g8112181216_ (gx#genident 'tl))))) + _g8109581106_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8108981216_ + (_g8109381220_ (gx#genident 'hd))))) - _g8106381074_)))) - (_g8106181220_ (gx#genident 'e))))) - _g8103681047_)))) - (_g8103481224_ _tgt80722_)))) + _g8106781078_)))) + (_g8106581224_ (gx#genident 'e))))) + _g8104081051_)))) + (_g8103881228_ _tgt80726_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8143581436_ + (___kont8143981440_ (lambda () (if (gx#identifier? - _hd80720_) + _hd80724_) (if (gx#underscore? - _hd80720_) - _K80723_ - (if (let ((__tmp81610 + _hd80724_) + _K80727_ + (if (let ((__tmp81614 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g8074880750_) + (lambda (_g8075280754_) (gx#bound-identifier=? - _g8074880750_ - _hd80720_)))) + _g8075280754_ + _hd80724_)))) (declare (not safe)) - (find __tmp81610 _kws80319_)) - (let* ((_g8075480769_ - (lambda (_g8075580765_) + (find __tmp81614 _kws80323_)) + (let* ((_g8075880773_ + (lambda (_g8075980769_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8075580765_))) - (_g8075380820_ - (lambda (_g8075580773_) - (if (gx#stx-pair? _g8075580773_) - (let ((_e8076080776_ - (gx#syntax-e _g8075580773_))) - (let ((_hd8075980780_ + _g8075980769_))) + (_g8075780824_ + (lambda (_g8075980777_) + (if (gx#stx-pair? _g8075980777_) + (let ((_e8076480780_ + (gx#syntax-e _g8075980777_))) + (let ((_hd8076380784_ (let () (declare (not safe)) - (##car _e8076080776_))) - (_tl8075880783_ + (##car _e8076480780_))) + (_tl8076280787_ (let () (declare (not safe)) - (##cdr _e8076080776_)))) - (if (gx#stx-pair? _tl8075880783_) - (let ((_e8076380786_ + (##cdr _e8076480780_)))) + (if (gx#stx-pair? _tl8076280787_) + (let ((_e8076780790_ (gx#syntax-e - _tl8075880783_))) - (let ((_hd8076280790_ + _tl8076280787_))) + (let ((_hd8076680794_ (let () (declare (not safe)) - (##car _e8076380786_))) - (_tl8076180793_ + (##car _e8076780790_))) + (_tl8076580797_ (let () (declare (not safe)) - (##cdr _e8076380786_)))) + (##cdr _e8076780790_)))) (if (gx#stx-null? - _tl8076180793_) - ((lambda (_L80796_ + _tl8076580797_) + ((lambda (_L80800_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L80798_) + _L80802_) (let () - (let ((__tmp81609 (gx#datum->syntax '#f 'if)) - (__tmp81592 - (let ((__tmp81595 - (let ((__tmp81608 + (let ((__tmp81613 (gx#datum->syntax '#f 'if)) + (__tmp81596 + (let ((__tmp81599 + (let ((__tmp81612 (gx#datum->syntax '#f 'and)) - (__tmp81596 - (let ((__tmp81605 - (let ((__tmp81607 + (__tmp81600 + (let ((__tmp81609 + (let ((__tmp81611 (gx#datum->syntax '#f 'identifier?)) - (__tmp81606 + (__tmp81610 (let () (declare (not safe)) - (cons _L80798_ + (cons _L80802_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81607 - __tmp81606))) - (__tmp81597 - (let ((__tmp81598 - (let ((__tmp81604 + (cons __tmp81611 + __tmp81610))) + (__tmp81601 + (let ((__tmp81602 + (let ((__tmp81608 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'core-identifier=?)) - (__tmp81599 - (let ((__tmp81600 - (let ((__tmp81601 - (let ((__tmp81603 + (__tmp81603 + (let ((__tmp81604 + (let ((__tmp81605 + (let ((__tmp81607 (gx#datum->syntax '#f 'quote)) - (__tmp81602 + (__tmp81606 (let () (declare (not safe)) - (cons _L80796_ '())))) + (cons _L80800_ '())))) (declare (not safe)) - (cons __tmp81603 __tmp81602)))) + (cons __tmp81607 __tmp81606)))) (declare (not safe)) - (cons __tmp81601 '())))) + (cons __tmp81605 '())))) (declare (not safe)) - (cons _L80798_ __tmp81600)))) + (cons _L80802_ __tmp81604)))) (declare (not safe)) - (cons __tmp81604 __tmp81599)))) + (cons __tmp81608 __tmp81603)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81598 '())))) + (cons __tmp81602 '())))) (declare (not safe)) - (cons __tmp81605 __tmp81597)))) + (cons __tmp81609 __tmp81601)))) (declare (not safe)) - (cons __tmp81608 __tmp81596))) - (__tmp81593 - (let ((__tmp81594 + (cons __tmp81612 __tmp81600))) + (__tmp81597 + (let ((__tmp81598 (let () (declare (not safe)) - (cons _E80715_ '())))) + (cons _E80719_ '())))) (declare (not safe)) - (cons _K80723_ __tmp81594)))) + (cons _K80727_ __tmp81598)))) (declare (not safe)) - (cons __tmp81595 __tmp81593)))) + (cons __tmp81599 __tmp81597)))) (declare (not safe)) - (cons __tmp81609 __tmp81592)))) - _hd8076280790_ - _hd8075980780_) - (_g8075480769_ _g8075580773_)))) + (cons __tmp81613 __tmp81596)))) + _hd8076680794_ + _hd8076380784_) + (_g8075880773_ _g8075980777_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8075480769_ - _g8075580773_)))) - (_g8075480769_ _g8075580773_))))) - (_g8075380820_ (list _tgt80722_ _hd80720_))) - (let* ((_g8082480839_ - (lambda (_g8082580835_) + (_g8075880773_ + _g8075980777_)))) + (_g8075880773_ _g8075980777_))))) + (_g8075780824_ (list _tgt80726_ _hd80724_))) + (let* ((_g8082880843_ + (lambda (_g8082980839_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8082580835_))) - (_g8082380883_ - (lambda (_g8082580843_) - (if (gx#stx-pair? _g8082580843_) - (let ((_e8083080846_ - (gx#syntax-e _g8082580843_))) - (let ((_hd8082980850_ + _g8082980839_))) + (_g8082780887_ + (lambda (_g8082980847_) + (if (gx#stx-pair? _g8082980847_) + (let ((_e8083480850_ + (gx#syntax-e _g8082980847_))) + (let ((_hd8083380854_ (let () (declare (not safe)) - (##car _e8083080846_))) - (_tl8082880853_ + (##car _e8083480850_))) + (_tl8083280857_ (let () (declare (not safe)) - (##cdr _e8083080846_)))) - (if (gx#stx-pair? _tl8082880853_) - (let ((_e8083380856_ + (##cdr _e8083480850_)))) + (if (gx#stx-pair? _tl8083280857_) + (let ((_e8083780860_ (gx#syntax-e - _tl8082880853_))) - (let ((_hd8083280860_ + _tl8083280857_))) + (let ((_hd8083680864_ (let () (declare (not safe)) - (##car _e8083380856_))) - (_tl8083180863_ + (##car _e8083780860_))) + (_tl8083580867_ (let () (declare (not safe)) - (##cdr _e8083380856_)))) + (##cdr _e8083780860_)))) (if (gx#stx-null? - _tl8083180863_) - ((lambda (_L80866_ + _tl8083580867_) + ((lambda (_L80870_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L80868_) + _L80872_) (let () - (let ((__tmp81591 (gx#datum->syntax '#f 'let)) - (__tmp81586 - (let ((__tmp81588 - (let ((__tmp81589 - (let ((__tmp81590 + (let ((__tmp81595 (gx#datum->syntax '#f 'let)) + (__tmp81590 + (let ((__tmp81592 + (let ((__tmp81593 + (let ((__tmp81594 (let () (declare (not safe)) - (cons _L80868_ '())))) + (cons _L80872_ '())))) (declare (not safe)) - (cons _L80866_ __tmp81590)))) + (cons _L80870_ __tmp81594)))) (declare (not safe)) - (cons __tmp81589 '()))) - (__tmp81587 + (cons __tmp81593 '()))) + (__tmp81591 (let () (declare (not safe)) - (cons _K80723_ '())))) + (cons _K80727_ '())))) (declare (not safe)) - (cons __tmp81588 __tmp81587)))) + (cons __tmp81592 __tmp81591)))) (declare (not safe)) - (cons __tmp81591 __tmp81586)))) - _hd8083280860_ - _hd8082980850_) - (_g8082480839_ _g8082580843_)))) + (cons __tmp81595 __tmp81590)))) + _hd8083680864_ + _hd8083380854_) + (_g8082880843_ _g8082980847_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8082480839_ - _g8082580843_)))) - (_g8082480839_ _g8082580843_))))) - (_g8082380883_ (list _tgt80722_ _hd80720_))))) - (if (gx#stx-null? _hd80720_) - (let* ((_g8088780895_ - (lambda (_g8088880891_) + (_g8082880843_ + _g8082980847_)))) + (_g8082880843_ _g8082980847_))))) + (_g8082780887_ (list _tgt80726_ _hd80724_))))) + (if (gx#stx-null? _hd80724_) + (let* ((_g8089180899_ + (lambda (_g8089280895_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8088880891_))) - (_g8088680913_ - (lambda (_g8088880899_) - ((lambda (_L80902_) + _g8089280895_))) + (_g8089080917_ + (lambda (_g8089280903_) + ((lambda (_L80906_) (let () - (let ((__tmp81585 + (let ((__tmp81589 (gx#datum->syntax '#f 'if)) - (__tmp81579 - (let ((__tmp81582 - (let ((__tmp81584 + (__tmp81583 + (let ((__tmp81586 + (let ((__tmp81588 (gx#datum->syntax '#f 'stx-null?)) - (__tmp81583 + (__tmp81587 (let () (declare (not safe)) - (cons _L80902_ + (cons _L80906_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp81584 __tmp81583))) + (cons __tmp81588 __tmp81587))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp81580 - (let ((__tmp81581 + (__tmp81584 + (let ((__tmp81585 (let () (declare (not safe)) - (cons _E80715_ + (cons _E80719_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _K80723_ __tmp81581)))) + (cons _K80727_ __tmp81585)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81582 __tmp81580)))) + (cons __tmp81586 __tmp81584)))) (declare (not safe)) - (cons __tmp81585 __tmp81579)))) - _g8088880899_)))) - (_g8088680913_ _tgt80722_)) - (if (gx#stx-datum? _hd80720_) - (let* ((_g8091780936_ - (lambda (_g8091880932_) + (cons __tmp81589 __tmp81583)))) + _g8089280903_)))) + (_g8089080917_ _tgt80726_)) + (if (gx#stx-datum? _hd80724_) + (let* ((_g8092180940_ + (lambda (_g8092280936_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8091880932_))) - (_g8091680994_ - (lambda (_g8091880940_) - (if (gx#stx-pair? _g8091880940_) - (let ((_e8092480943_ - (gx#syntax-e _g8091880940_))) - (let ((_hd8092380947_ + _g8092280936_))) + (_g8092080998_ + (lambda (_g8092280944_) + (if (gx#stx-pair? _g8092280944_) + (let ((_e8092880947_ + (gx#syntax-e _g8092280944_))) + (let ((_hd8092780951_ (let () (declare (not safe)) - (##car _e8092480943_))) - (_tl8092280950_ + (##car _e8092880947_))) + (_tl8092680954_ (let () (declare (not safe)) - (##cdr _e8092480943_)))) - (if (gx#stx-pair? _tl8092280950_) - (let ((_e8092780953_ + (##cdr _e8092880947_)))) + (if (gx#stx-pair? _tl8092680954_) + (let ((_e8093180957_ (gx#syntax-e - _tl8092280950_))) - (let ((_hd8092680957_ + _tl8092680954_))) + (let ((_hd8093080961_ (let () (declare (not safe)) - (##car _e8092780953_))) - (_tl8092580960_ + (##car _e8093180957_))) + (_tl8092980964_ (let () (declare (not safe)) - (##cdr _e8092780953_)))) + (##cdr _e8093180957_)))) (if (gx#stx-pair? - _tl8092580960_) - (let ((_e8093080963_ + _tl8092980964_) + (let ((_e8093480967_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl8092580960_))) - (let ((_hd8092980967_ - (let () (declare (not safe)) (##car _e8093080963_))) - (_tl8092880970_ - (let () (declare (not safe)) (##cdr _e8093080963_)))) - (if (gx#stx-null? _tl8092880970_) - ((lambda (_L80973_ _L80975_ _L80976_) + _tl8092980964_))) + (let ((_hd8093380971_ + (let () (declare (not safe)) (##car _e8093480967_))) + (_tl8093280974_ + (let () (declare (not safe)) (##cdr _e8093480967_)))) + (if (gx#stx-null? _tl8093280974_) + ((lambda (_L80977_ _L80979_ _L80980_) (let () - (let ((__tmp81578 (gx#datum->syntax '#f 'if)) - (__tmp81566 - (let ((__tmp81569 - (let ((__tmp81570 - (let ((__tmp81575 - (let ((__tmp81577 + (let ((__tmp81582 (gx#datum->syntax '#f 'if)) + (__tmp81570 + (let ((__tmp81573 + (let ((__tmp81574 + (let ((__tmp81579 + (let ((__tmp81581 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'stx-e)) - (__tmp81576 - (let () (declare (not safe)) (cons _L80976_ '())))) + (__tmp81580 + (let () (declare (not safe)) (cons _L80980_ '())))) (declare (not safe)) - (cons __tmp81577 __tmp81576))) - (__tmp81571 - (let ((__tmp81572 - (let ((__tmp81574 (gx#datum->syntax '#f 'quote)) - (__tmp81573 + (cons __tmp81581 __tmp81580))) + (__tmp81575 + (let ((__tmp81576 + (let ((__tmp81578 (gx#datum->syntax '#f 'quote)) + (__tmp81577 (let () (declare (not safe)) - (cons _L80975_ '())))) + (cons _L80979_ '())))) (declare (not safe)) - (cons __tmp81574 __tmp81573)))) + (cons __tmp81578 __tmp81577)))) (declare (not safe)) - (cons __tmp81572 '())))) + (cons __tmp81576 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81575 - __tmp81571)))) + (cons __tmp81579 + __tmp81575)))) (declare (not safe)) - (cons _L80973_ __tmp81570))) - (__tmp81567 - (let ((__tmp81568 + (cons _L80977_ __tmp81574))) + (__tmp81571 + (let ((__tmp81572 (let () (declare (not safe)) - (cons _E80715_ '())))) + (cons _E80719_ '())))) (declare (not safe)) - (cons _K80723_ __tmp81568)))) + (cons _K80727_ __tmp81572)))) (declare (not safe)) - (cons __tmp81569 __tmp81567)))) + (cons __tmp81573 __tmp81571)))) (declare (not safe)) - (cons __tmp81578 __tmp81566)))) - _hd8092980967_ - _hd8092680957_ - _hd8092380947_) - (_g8091780936_ _g8091880940_)))) - (_g8091780936_ _g8091880940_)))) + (cons __tmp81582 __tmp81570)))) + _hd8093380971_ + _hd8093080961_ + _hd8092780951_) + (_g8092180940_ _g8092280944_)))) + (_g8092180940_ _g8092280944_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8091780936_ - _g8091880940_)))) - (_g8091780936_ _g8091880940_))))) - (_g8091680994_ - (list _tgt80722_ - _hd80720_ - (let ((_e80998_ (gx#stx-e _hd80720_))) - (if (or (keyword? _e80998_) + (_g8092180940_ + _g8092280944_)))) + (_g8092180940_ _g8092280944_))))) + (_g8092080998_ + (list _tgt80726_ + _hd80724_ + (let ((_e81002_ (gx#stx-e _hd80724_))) + (if (or (keyword? _e81002_) (let () (declare (not safe)) - (immediate? _e80998_))) + (immediate? _e81002_))) (gx#datum->syntax '#f 'eq?) (if (let () (declare (not safe)) - (number? _e80998_)) + (number? _e81002_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -1014,499 +1014,499 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _stx80165_ - _where80710_ - _hd80720_))))))) + _stx80169_ + _where80714_ + _hd80724_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx8143081431_) - (let ((_e8073281012_ + ___stx8143481435_) + (let ((_e8073681016_ (gx#syntax-e - ___stx8143081431_))) - (let ((_tl8073081019_ + ___stx8143481435_))) + (let ((_tl8073481023_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e8073281012_))) - (_hd8073181016_ - (let () (declare (not safe)) (##car _e8073281012_)))) - (___kont8143381434_ _tl8073081019_ _hd8073181016_))) + (##cdr _e8073681016_))) + (_hd8073581020_ + (let () (declare (not safe)) (##car _e8073681016_)))) + (___kont8143781438_ _tl8073481023_ _hd8073581020_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8143581436_))))))) - (_recur80717_ - _hd80712_ - _tgt80317_ - (let ((__tmp81614 + (___kont8143981440_))))))) + (_recur80721_ + _hd80716_ + _tgt80321_ + (let ((__tmp81618 (gx#datum->syntax '#f 'if)) - (__tmp81611 - (let ((__tmp81612 - (let ((__tmp81613 + (__tmp81615 + (let ((__tmp81616 + (let ((__tmp81617 (let () (declare (not safe)) - (cons _E80715_ + (cons _E80719_ '())))) (declare (not safe)) - (cons _body80714_ - __tmp81613)))) + (cons _body80718_ + __tmp81617)))) (declare (not safe)) - (cons _fender80713_ __tmp81612)))) + (cons _fender80717_ __tmp81616)))) (declare (not safe)) - (cons __tmp81614 __tmp81611)))))) - (_generate-clauses80325_ - (lambda (_clauses80448_) - (let _lp80451_ ((_rest80454_ _clauses80448_) - (_E80456_ (gx#genident 'E)) - (_r80457_ '())) - (let* ((___stx8146681467_ _rest80454_) - (_g8046080472_ + (cons __tmp81618 __tmp81615)))))) + (_generate-clauses80329_ + (lambda (_clauses80452_) + (let _lp80455_ ((_rest80458_ _clauses80452_) + (_E80460_ (gx#genident 'E)) + (_r80461_ '())) + (let* ((___stx8147081471_ _rest80458_) + (_g8046480476_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8146681467_)))) - (let ((___kont8146981470_ - (lambda (_L80537_ _L80539_) - (let* ((___stx8144681447_ - _L80539_) - (_g8055180562_ + ___stx8147081471_)))) + (let ((___kont8147381474_ + (lambda (_L80541_ _L80543_) + (let* ((___stx8145081451_ + _L80543_) + (_g8055580566_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8144681447_)))) - (let ((___kont8144981450_ - (lambda (_L80691_) + ___stx8145081451_)))) + (let ((___kont8145381454_ + (lambda (_L80695_) (if (gx#stx-null? - _L80537_) + _L80541_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L80691_) - (let ((__tmp81623 (gx#stx-null? _L80691_))) + _L80695_) + (let ((__tmp81627 (gx#stx-null? _L80695_))) (declare (not safe)) - (not __tmp81623))) - (let ((__tmp81615 - (let ((__tmp81616 - (let ((__tmp81617 + (not __tmp81627))) + (let ((__tmp81619 + (let ((__tmp81620 + (let ((__tmp81621 (gx#stx-wrap-source - (let ((__tmp81622 + (let ((__tmp81626 (gx#datum->syntax '#f 'lambda)) - (__tmp81618 - (let ((__tmp81619 - (let ((__tmp81620 + (__tmp81622 + (let ((__tmp81623 + (let ((__tmp81624 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81621 (gx#datum->syntax '#f 'begin))) + (let ((__tmp81625 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp81621 _L80691_)))) + (cons __tmp81625 _L80695_)))) (declare (not safe)) - (cons __tmp81620 '())))) + (cons __tmp81624 '())))) (declare (not safe)) - (cons '() __tmp81619)))) + (cons '() __tmp81623)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81622 __tmp81618)) - (gx#stx-source _L80539_)))) + (cons __tmp81626 __tmp81622)) + (gx#stx-source _L80543_)))) (declare (not safe)) - (cons __tmp81617 '())))) + (cons __tmp81621 '())))) (declare (not safe)) - (cons _E80456_ __tmp81616)))) + (cons _E80460_ __tmp81620)))) (declare (not safe)) - (cons __tmp81615 _r80457_)) + (cons __tmp81619 _r80461_)) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _stx80165_ - _L80539_)) + _stx80169_ + _L80543_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx80165_ - _L80539_)))) + _stx80169_ + _L80543_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8145181452_ + (___kont8145581456_ (lambda () - (let* ((_g8057380581_ - (lambda (_g8057480577_) + (let* ((_g8057780585_ + (lambda (_g8057880581_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8057480577_))) - (_g8057280670_ - (lambda (_g8057480585_) - ((lambda (_L80588_) + _g8057880581_))) + (_g8057680674_ + (lambda (_g8057880589_) + ((lambda (_L80592_) (let () - (let* ((_g8060480612_ - (lambda (_g8060580608_) + (let* ((_g8060880616_ + (lambda (_g8060980612_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8060580608_))) - (_g8060380666_ - (lambda (_g8060580616_) - ((lambda (_L80619_) + _g8060980612_))) + (_g8060780670_ + (lambda (_g8060980620_) + ((lambda (_L80623_) (let () - (let* ((_g8063280640_ - (lambda (_g8063380636_) + (let* ((_g8063680644_ + (lambda (_g8063780640_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8063380636_))) - (_g8063180662_ - (lambda (_g8063380644_) - ((lambda (_L80647_) + _g8063780640_))) + (_g8063580666_ + (lambda (_g8063780648_) + ((lambda (_L80651_) (let () (let () - (_lp80451_ - _L80537_ - _L80588_ - (let ((__tmp81624 + (_lp80455_ + _L80541_ + _L80592_ + (let ((__tmp81628 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81625 + (let ((__tmp81629 (let () (declare (not safe)) - (cons _L80647_ '())))) + (cons _L80651_ '())))) (declare (not safe)) - (cons _E80456_ __tmp81625)))) + (cons _E80460_ __tmp81629)))) (declare (not safe)) - (cons __tmp81624 _r80457_)))))) - _g8063380644_)))) + (cons __tmp81628 _r80461_)))))) + _g8063780648_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8063180662_ + (_g8063580666_ (gx#stx-wrap-source - (let ((__tmp81628 + (let ((__tmp81632 (gx#datum->syntax '#f 'lambda)) - (__tmp81626 - (let ((__tmp81627 + (__tmp81630 + (let ((__tmp81631 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L80619_ '())))) + (cons _L80623_ '())))) (declare (not safe)) - (cons '() __tmp81627)))) + (cons '() __tmp81631)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81628 - __tmp81626)) - (gx#stx-source _L80539_)))))) - _g8060580616_)))) - (_g8060380666_ - (_generate-clause80322_ - _L80539_ + (cons __tmp81632 + __tmp81630)) + (gx#stx-source _L80543_)))))) + _g8060980620_)))) + (_g8060780670_ + (_generate-clause80326_ + _L80543_ (let () (declare (not safe)) - (cons _L80588_ '()))))))) - _g8057480585_)))) - (_g8057280670_ (gx#genident 'E)))))) + (cons _L80592_ '()))))))) + _g8057880589_)))) + (_g8057680674_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx8144681447_) - (let ((_e8055680681_ + ___stx8145081451_) + (let ((_e8056080685_ (gx#syntax-e - ___stx8144681447_))) - (let ((_tl8055480688_ + ___stx8145081451_))) + (let ((_tl8055880692_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e8055680681_))) - (_hd8055580685_ - (let () (declare (not safe)) (##car _e8055680681_)))) - (if (gx#identifier? _hd8055580685_) - (if (gx#free-identifier=? |gx[1]#_g81629_| _hd8055580685_) - (___kont8144981450_ _tl8055480688_) - (___kont8145181452_)) - (___kont8145181452_)))) + (##cdr _e8056080685_))) + (_hd8055980689_ + (let () (declare (not safe)) (##car _e8056080685_)))) + (if (gx#identifier? _hd8055980689_) + (if (gx#free-identifier=? |gx[1]#_g81633_| _hd8055980689_) + (___kont8145381454_ _tl8055880692_) + (___kont8145581456_)) + (___kont8145581456_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8145181452_)))))) - (___kont8147181472_ + (___kont8145581456_)))))) + (___kont8147581476_ (lambda () - (let* ((_g8048380491_ - (lambda (_g8048480487_) + (let* ((_g8048780495_ + (lambda (_g8048880491_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8048480487_))) - (_g8048280516_ - (lambda (_g8048480495_) - ((lambda (_L80498_) + _g8048880491_))) + (_g8048680520_ + (lambda (_g8048880499_) + ((lambda (_L80502_) (let () - (let ((__tmp81630 + (let ((__tmp81634 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81631 - (let ((__tmp81632 + (let ((__tmp81635 + (let ((__tmp81636 (gx#stx-wrap-source - (let ((__tmp81640 + (let ((__tmp81644 (gx#datum->syntax '#f 'lambda)) - (__tmp81633 - (let ((__tmp81634 - (let ((__tmp81635 - (let ((__tmp81639 + (__tmp81637 + (let ((__tmp81638 + (let ((__tmp81639 + (let ((__tmp81643 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp81636 - (let ((__tmp81637 - (let ((__tmp81638 + (__tmp81640 + (let ((__tmp81641 + (let ((__tmp81642 (let () (declare (not safe)) - (cons _L80498_ '())))) + (cons _L80502_ '())))) (declare (not safe)) (cons '"Bad syntax; invalid syntax-case clause" - __tmp81638)))) + __tmp81642)))) (declare (not safe)) - (cons '#f __tmp81637)))) + (cons '#f __tmp81641)))) (declare (not safe)) - (cons __tmp81639 __tmp81636)))) + (cons __tmp81643 __tmp81640)))) (declare (not safe)) - (cons __tmp81635 '())))) + (cons __tmp81639 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp81634)))) + (cons '() __tmp81638)))) (declare (not safe)) - (cons __tmp81640 __tmp81633)) - (gx#stx-source _stx80165_)))) + (cons __tmp81644 __tmp81637)) + (gx#stx-source _stx80169_)))) (declare (not safe)) - (cons __tmp81632 '())))) + (cons __tmp81636 '())))) (declare (not safe)) - (cons _E80456_ __tmp81631)))) + (cons _E80460_ __tmp81635)))) (declare (not safe)) - (cons __tmp81630 _r80457_)))) - _g8048480495_)))) + (cons __tmp81634 _r80461_)))) + _g8048880499_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8048280516_ _tgt80317_))))) - (if (gx#stx-pair? ___stx8146681467_) - (let ((_e8046680527_ + (_g8048680520_ _tgt80321_))))) + (if (gx#stx-pair? ___stx8147081471_) + (let ((_e8047080531_ (gx#syntax-e - ___stx8146681467_))) - (let ((_tl8046480534_ + ___stx8147081471_))) + (let ((_tl8046880538_ (let () (declare (not safe)) - (##cdr _e8046680527_))) - (_hd8046580531_ + (##cdr _e8047080531_))) + (_hd8046980535_ (let () (declare (not safe)) - (##car _e8046680527_)))) - (___kont8146981470_ - _tl8046480534_ - _hd8046580531_))) - (___kont8147181472_)))))))) - (let* ((_bind80327_ - (_generate-clauses80325_ _clauses80320_)) - (_g8033080347_ - (lambda (_g8033180343_) + (##car _e8047080531_)))) + (___kont8147381474_ + _tl8046880538_ + _hd8046980535_))) + (___kont8147581476_)))))))) + (let* ((_bind80331_ + (_generate-clauses80329_ _clauses80324_)) + (_g8033480351_ + (lambda (_g8033580347_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8033180343_))) - (_g8032980444_ - (lambda (_g8033180351_) - (if (gx#stx-pair/null? _g8033180351_) - (let ((_g81641_ + _g8033580347_))) + (_g8033380448_ + (lambda (_g8033580355_) + (if (gx#stx-pair/null? _g8033580355_) + (let ((_g81645_ (gx#syntax-split-splice - _g8033180351_ + _g8033580355_ '0))) (begin - (let ((_g81642_ + (let ((_g81646_ (let () (declare (not safe)) - (if (##values? _g81641_) - (##vector-length _g81641_) + (if (##values? _g81645_) + (##vector-length _g81645_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g81642_ 2))) + (##fx= _g81646_ 2))) (error "Context expects 2 values" - _g81642_))) - (let ((_target8033380354_ + _g81646_))) + (let ((_target8033780358_ (let () (declare (not safe)) - (##vector-ref _g81641_ 0))) - (_tl8033580357_ + (##vector-ref _g81645_ 0))) + (_tl8033980361_ (let () (declare (not safe)) - (##vector-ref _g81641_ 1)))) - (if (gx#stx-null? _tl8033580357_) - (letrec ((_loop8033680360_ - (lambda (_hd8033480364_ + (##vector-ref _g81645_ 1)))) + (if (gx#stx-null? _tl8033980361_) + (letrec ((_loop8034080364_ + (lambda (_hd8033880368_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try8034080367_) - (if (gx#stx-pair? _hd8033480364_) - (let ((_e8033780370_ (gx#syntax-e _hd8033480364_))) - (let ((_lp-hd8033880374_ + _bind-try8034480371_) + (if (gx#stx-pair? _hd8033880368_) + (let ((_e8034180374_ (gx#syntax-e _hd8033880368_))) + (let ((_lp-hd8034280378_ (let () (declare (not safe)) - (##car _e8033780370_))) - (_lp-tl8033980377_ + (##car _e8034180374_))) + (_lp-tl8034380381_ (let () (declare (not safe)) - (##cdr _e8033780370_)))) - (_loop8033680360_ - _lp-tl8033980377_ + (##cdr _e8034180374_)))) + (_loop8034080364_ + _lp-tl8034380381_ (let () (declare (not safe)) - (cons _lp-hd8033880374_ _bind-try8034080367_))))) - (let ((_bind-try8034180380_ - (reverse _bind-try8034080367_))) - ((lambda (_L80384_) + (cons _lp-hd8034280378_ _bind-try8034480371_))))) + (let ((_bind-try8034580384_ + (reverse _bind-try8034480371_))) + ((lambda (_L80388_) (let () - (let* ((_g8040280410_ - (lambda (_g8040380406_) + (let* ((_g8040680414_ + (lambda (_g8040780410_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8040380406_))) - (_g8040180440_ - (lambda (_g8040380414_) - ((lambda (_L80417_) + _g8040780410_))) + (_g8040580444_ + (lambda (_g8040780418_) + ((lambda (_L80421_) (let () (let () - (let ((__tmp81648 + (let ((__tmp81652 (gx#datum->syntax '#f 'let*)) - (__tmp81643 - (let ((__tmp81646 - (let ((__tmp81647 + (__tmp81647 + (let ((__tmp81650 + (let ((__tmp81651 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g8043180434_ _g8043280437_) + (lambda (_g8043580438_ _g8043680441_) (let () (declare (not safe)) - (cons _g8043180434_ _g8043280437_))))) + (cons _g8043580438_ _g8043680441_))))) (declare (not safe)) - (foldr1 __tmp81647 '() _L80384_))) - (__tmp81644 - (let ((__tmp81645 - (let () (declare (not safe)) (cons _L80417_ '())))) + (foldr1 __tmp81651 '() _L80388_))) + (__tmp81648 + (let ((__tmp81649 + (let () (declare (not safe)) (cons _L80421_ '())))) (declare (not safe)) - (cons __tmp81645 '())))) + (cons __tmp81649 '())))) (declare (not safe)) - (cons __tmp81646 __tmp81644)))) + (cons __tmp81650 __tmp81648)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81648 - __tmp81643))))) - _g8040380414_)))) - (_g8040180440_ (car (last _bind80327_)))))) - _bind-try8034180380_)))))) + (cons __tmp81652 + __tmp81647))))) + _g8040780418_)))) + (_g8040580444_ (car (last _bind80331_)))))) + _bind-try8034580384_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop8033680360_ - _target8033380354_ + (_loop8034080364_ + _target8033780358_ '())) - (_g8033080347_ _g8033180351_))))) - (_g8033080347_ _g8033180351_))))) - (_g8032980444_ _bind80327_)))))) - (let* ((_g8017180190_ - (lambda (_g8017280186_) + (_g8033480351_ _g8033580355_))))) + (_g8033480351_ _g8033580355_))))) + (_g8033380448_ _bind80331_)))))) + (let* ((_g8017580194_ + (lambda (_g8017680190_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8017280186_))) - (_g8017080313_ - (lambda (_g8017280194_) - (if (gx#stx-pair? _g8017280194_) - (let ((_e8017880197_ (gx#syntax-e _g8017280194_))) - (let ((_hd8017780201_ + _g8017680190_))) + (_g8017480317_ + (lambda (_g8017680198_) + (if (gx#stx-pair? _g8017680198_) + (let ((_e8018280201_ (gx#syntax-e _g8017680198_))) + (let ((_hd8018180205_ (let () (declare (not safe)) - (##car _e8017880197_))) - (_tl8017680204_ + (##car _e8018280201_))) + (_tl8018080208_ (let () (declare (not safe)) - (##cdr _e8017880197_)))) - (if (gx#stx-pair? _tl8017680204_) - (let ((_e8018180207_ - (gx#syntax-e _tl8017680204_))) - (let ((_hd8018080211_ + (##cdr _e8018280201_)))) + (if (gx#stx-pair? _tl8018080208_) + (let ((_e8018580211_ + (gx#syntax-e _tl8018080208_))) + (let ((_hd8018480215_ (let () (declare (not safe)) - (##car _e8018180207_))) - (_tl8017980214_ + (##car _e8018580211_))) + (_tl8018380218_ (let () (declare (not safe)) - (##cdr _e8018180207_)))) - (if (gx#stx-pair? _tl8017980214_) - (let ((_e8018480217_ - (gx#syntax-e _tl8017980214_))) - (let ((_hd8018380221_ + (##cdr _e8018580211_)))) + (if (gx#stx-pair? _tl8018380218_) + (let ((_e8018880221_ + (gx#syntax-e _tl8018380218_))) + (let ((_hd8018780225_ (let () (declare (not safe)) - (##car _e8018480217_))) - (_tl8018280224_ + (##car _e8018880221_))) + (_tl8018680228_ (let () (declare (not safe)) - (##cdr _e8018480217_)))) - ((lambda (_L80227_ - _L80229_ - _L80230_) + (##cdr _e8018880221_)))) + ((lambda (_L80231_ + _L80233_ + _L80234_) (if (and (gx#identifier-list? - _L80229_) + _L80233_) (gx#stx-list? - _L80227_)) - (let* ((_g8024880256_ - (lambda (_g8024980252_) + _L80231_)) + (let* ((_g8025280260_ + (lambda (_g8025380256_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8024980252_))) - (_g8024780309_ - (lambda (_g8024980260_) - ((lambda (_L80263_) + _g8025380256_))) + (_g8025180313_ + (lambda (_g8025380264_) + ((lambda (_L80267_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g8027580283_ - (lambda (_g8027680279_) + (let* ((_g8027980287_ + (lambda (_g8028080283_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8027680279_))) - (_g8027480305_ - (lambda (_g8027680287_) - ((lambda (_L80290_) + _g8028080283_))) + (_g8027880309_ + (lambda (_g8028080291_) + ((lambda (_L80294_) (let () (let () - (let ((__tmp81654 + (let ((__tmp81658 (gx#datum->syntax '#f 'let)) - (__tmp81649 - (let ((__tmp81651 - (let ((__tmp81652 - (let ((__tmp81653 + (__tmp81653 + (let ((__tmp81655 + (let ((__tmp81656 + (let ((__tmp81657 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L80230_ '())))) + (cons _L80234_ '())))) (declare (not safe)) - (cons _L80263_ __tmp81653)))) + (cons _L80267_ __tmp81657)))) (declare (not safe)) - (cons __tmp81652 '()))) - (__tmp81650 (let () (declare (not safe)) (cons _L80290_ '())))) + (cons __tmp81656 '()))) + (__tmp81654 (let () (declare (not safe)) (cons _L80294_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81651 - __tmp81650)))) + (cons __tmp81655 + __tmp81654)))) (declare (not safe)) - (cons __tmp81654 __tmp81649))))) - _g8027680287_)))) - (_g8027480305_ - (_generate80168_ - _L80263_ - (gx#syntax->list _L80229_) - _L80227_))))) - _g8024980260_)))) + (cons __tmp81658 __tmp81653))))) + _g8028080291_)))) + (_g8027880309_ + (_generate80172_ + _L80267_ + (gx#syntax->list _L80233_) + _L80231_))))) + _g8025380264_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8024780309_ + (_g8025180313_ (gx#genident 'e))) - (_g8017180190_ - _g8017280194_))) - _tl8018280224_ - _hd8018380221_ - _hd8018080211_))) - (_g8017180190_ _g8017280194_)))) - (_g8017180190_ _g8017280194_)))) - (_g8017180190_ _g8017280194_))))) - (_g8017080313_ _stx80165_))))))) + (_g8017580194_ + _g8017680198_))) + _tl8018680228_ + _hd8018780225_ + _hd8018480215_))) + (_g8017580194_ _g8017680198_)))) + (_g8017580194_ _g8017680198_)))) + (_g8017580194_ _g8017680198_))))) + (_g8017480317_ _stx80169_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index 8aa226ff7..14bbfbc53 100644 --- a/src/bootstrap/gerbil/expander/compile~0.scm +++ b/src/bootstrap/gerbil/expander/compile~0.scm @@ -1,862 +1,862 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1710781149) + (define gerbil/expander/compile::timestamp 1710833424) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx96176_) - (let* ((_e9617796184_ _stx96176_) - (_E9617996188_ + (lambda (_stx96180_) + (let* ((_e9618196188_ _stx96180_) + (_E9618396192_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9617796184_))) - (_E9617896202_ - (lambda () - (if (gx#stx-pair? _e9617796184_) - (let ((_e9618096192_ (gx#syntax-e _e9617796184_))) - (let ((_hd9618196195_ (##car _e9618096192_)) - (_tl9618296197_ (##cdr _e9618096192_))) - (let ((_form96200_ _hd9618196195_)) + _e9618196188_))) + (_E9618296206_ + (lambda () + (if (gx#stx-pair? _e9618196188_) + (let ((_e9618496196_ (gx#syntax-e _e9618196188_))) + (let ((_hd9618596199_ (##car _e9618496196_)) + (_tl9618696201_ (##cdr _e9618496196_))) + (let ((_form96204_ _hd9618596199_)) (if '#t - (let* ((__self96205 - (gx#syntax-local-e__0 _form96200_)) - (__method96206 + (let* ((__self96209 + (gx#syntax-local-e__0 _form96204_)) + (__method96210 (method-ref - __self96205 + __self96209 'compile-top-syntax))) - (if __method96206 - (__method96206 __self96205 _stx96176_) + (if __method96210 + (__method96210 __self96209 _stx96180_) (error '"Missing method" - __self96205 + __self96209 'compile-top-syntax))) - (_E9617996188_))))) - (_E9617996188_))))) - (_E9617896202_)))) + (_E9618396192_))))) + (_E9618396192_))))) + (_E9618296206_)))) (define gx#core-expander::compile-top-syntax - (lambda (_self96136_ _stx96137_) - (let* ((_self9613896146_ _self96136_) - (_E9614096150_ - (lambda () (error '"No clause matching" _self9613896146_))) - (_K9614196162_ - (lambda (_K96153_) - (let ((_$e96155_ (gx#stx-source _stx96137_))) - (if _$e96155_ - ((lambda (_g9615796159_) + (lambda (_self96140_ _stx96141_) + (let* ((_self9614296150_ _self96140_) + (_E9614496154_ + (lambda () (error '"No clause matching" _self9614296150_))) + (_K9614596166_ + (lambda (_K96157_) + (let ((_$e96159_ (gx#stx-source _stx96141_))) + (if _$e96159_ + ((lambda (_g9616196163_) (gx#stx-wrap-source - (_K96153_ _stx96137_) - _g9615796159_)) - _$e96155_) - (_K96153_ _stx96137_)))))) - (if (##structure-instance-of? _self9613896146_ 'gx#core-expander::t) - (let* ((_e9614296165_ + (_K96157_ _stx96141_) + _g9616196163_)) + _$e96159_) + (_K96157_ _stx96141_)))))) + (if (##structure-instance-of? _self9614296150_ 'gx#core-expander::t) + (let* ((_e9614696169_ (##unchecked-structure-ref - _self9613896146_ + _self9614296150_ '1 gx#expander::t '#f)) - (_e9614396168_ + (_e9614796172_ (##unchecked-structure-ref - _self9613896146_ + _self9614296150_ '2 gx#core-expander::t '#f)) - (_e9614496171_ + (_e9614896175_ (##unchecked-structure-ref - _self9613896146_ + _self9614296150_ '3 gx#core-expander::t '#f)) - (_K96174_ _e9614496171_)) - (_K9614196162_ _K96174_)) - (_E9614096150_))))) + (_K96178_ _e9614896175_)) + (_K9614596166_ _K96178_)) + (_E9614496154_))))) (bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx96010_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx96010_))) + (lambda (_stx96014_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx96014_))) (define gx#core-compile-top-begin% - (lambda (_stx95980_) - (let* ((_e9598195988_ _stx95980_) - (_E9598395992_ + (lambda (_stx95984_) + (let* ((_e9598595992_ _stx95984_) + (_E9598795996_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9598195988_))) - (_E9598296006_ - (lambda () - (if (gx#stx-pair? _e9598195988_) - (let ((_e9598495996_ (gx#syntax-e _e9598195988_))) - (let ((_hd9598595999_ (##car _e9598495996_)) - (_tl9598696001_ (##cdr _e9598495996_))) - (let ((_body96004_ _tl9598696001_)) + _e9598595992_))) + (_E9598696010_ + (lambda () + (if (gx#stx-pair? _e9598595992_) + (let ((_e9598896000_ (gx#syntax-e _e9598595992_))) + (let ((_hd9598996003_ (##car _e9598896000_)) + (_tl9599096005_ (##cdr _e9598896000_))) + (let ((_body96008_ _tl9599096005_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body96004_)) - (_E9598395992_))))) - (_E9598395992_))))) - (_E9598296006_)))) + _body96008_)) + (_E9598795996_))))) + (_E9598795996_))))) + (_E9598696010_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx95949_) - (let* ((_e9595095957_ _stx95949_) - (_E9595295961_ + (lambda (_stx95953_) + (let* ((_e9595495961_ _stx95953_) + (_E9595695965_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9595095957_))) - (_E9595195976_ - (lambda () - (if (gx#stx-pair? _e9595095957_) - (let ((_e9595395965_ (gx#syntax-e _e9595095957_))) - (let ((_hd9595495968_ (##car _e9595395965_)) - (_tl9595595970_ (##cdr _e9595395965_))) - (let ((_body95973_ _tl9595595970_)) + _e9595495961_))) + (_E9595595980_ + (lambda () + (if (gx#stx-pair? _e9595495961_) + (let ((_e9595795969_ (gx#syntax-e _e9595495961_))) + (let ((_hd9595895972_ (##car _e9595795969_)) + (_tl9595995974_ (##cdr _e9595795969_))) + (let ((_body95977_ _tl9595995974_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body95973_)) + _body95977_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E9595295961_))))) - (_E9595295961_))))) - (_E9595195976_)))) + (_E9595695965_))))) + (_E9595695965_))))) + (_E9595595980_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx95919_) - (let* ((_e9592095927_ _stx95919_) - (_E9592295931_ + (lambda (_stx95923_) + (let* ((_e9592495931_ _stx95923_) + (_E9592695935_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9592095927_))) - (_E9592195945_ - (lambda () - (if (gx#stx-pair? _e9592095927_) - (let ((_e9592395935_ (gx#syntax-e _e9592095927_))) - (let ((_hd9592495938_ (##car _e9592395935_)) - (_tl9592595940_ (##cdr _e9592395935_))) - (let ((_body95943_ _tl9592595940_)) + _e9592495931_))) + (_E9592595949_ + (lambda () + (if (gx#stx-pair? _e9592495931_) + (let ((_e9592795939_ (gx#syntax-e _e9592495931_))) + (let ((_hd9592895942_ (##car _e9592795939_)) + (_tl9592995944_ (##cdr _e9592795939_))) + (let ((_body95947_ _tl9592995944_)) (if '#t - (cons '%#begin-foreign _body95943_) - (_E9592295931_))))) - (_E9592295931_))))) - (_E9592195945_)))) + (cons '%#begin-foreign _body95947_) + (_E9592695935_))))) + (_E9592695935_))))) + (_E9592595949_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx95865_) - (let* ((_e9586695879_ _stx95865_) - (_E9586895883_ + (lambda (_stx95869_) + (let* ((_e9587095883_ _stx95869_) + (_E9587295887_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9586695879_))) - (_E9586795915_ - (lambda () - (if (gx#stx-pair? _e9586695879_) - (let ((_e9586995887_ (gx#syntax-e _e9586695879_))) - (let ((_hd9587095890_ (##car _e9586995887_)) - (_tl9587195892_ (##cdr _e9586995887_))) - (if (gx#stx-pair? _tl9587195892_) - (let ((_e9587295895_ - (gx#syntax-e _tl9587195892_))) - (let ((_hd9587395898_ (##car _e9587295895_)) - (_tl9587495900_ (##cdr _e9587295895_))) - (let ((_ann95903_ _hd9587395898_)) - (if (gx#stx-pair? _tl9587495900_) - (let ((_e9587595905_ - (gx#syntax-e _tl9587495900_))) - (let ((_hd9587695908_ - (##car _e9587595905_)) - (_tl9587795910_ - (##cdr _e9587595905_))) - (let ((_expr95913_ _hd9587695908_)) - (if (gx#stx-null? _tl9587795910_) + _e9587095883_))) + (_E9587195919_ + (lambda () + (if (gx#stx-pair? _e9587095883_) + (let ((_e9587395891_ (gx#syntax-e _e9587095883_))) + (let ((_hd9587495894_ (##car _e9587395891_)) + (_tl9587595896_ (##cdr _e9587395891_))) + (if (gx#stx-pair? _tl9587595896_) + (let ((_e9587695899_ + (gx#syntax-e _tl9587595896_))) + (let ((_hd9587795902_ (##car _e9587695899_)) + (_tl9587895904_ (##cdr _e9587695899_))) + (let ((_ann95907_ _hd9587795902_)) + (if (gx#stx-pair? _tl9587895904_) + (let ((_e9587995909_ + (gx#syntax-e _tl9587895904_))) + (let ((_hd9588095912_ + (##car _e9587995909_)) + (_tl9588195914_ + (##cdr _e9587995909_))) + (let ((_expr95917_ _hd9588095912_)) + (if (gx#stx-null? _tl9588195914_) (if '#t (gx#core-compile-top-syntax - _expr95913_) - (_E9586895883_)) - (_E9586895883_))))) - (_E9586895883_))))) - (_E9586895883_)))) - (_E9586895883_))))) - (_E9586795915_)))) + _expr95917_) + (_E9587295887_)) + (_E9587295887_))))) + (_E9587295887_))))) + (_E9587295887_)))) + (_E9587295887_))))) + (_E9587195919_)))) (define gx#core-compile-top-import% - (lambda (_stx95835_) - (let* ((_e9583695843_ _stx95835_) - (_E9583895847_ + (lambda (_stx95839_) + (let* ((_e9584095847_ _stx95839_) + (_E9584295851_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9583695843_))) - (_E9583795861_ - (lambda () - (if (gx#stx-pair? _e9583695843_) - (let ((_e9583995851_ (gx#syntax-e _e9583695843_))) - (let ((_hd9584095854_ (##car _e9583995851_)) - (_tl9584195856_ (##cdr _e9583995851_))) - (let ((_body95859_ _tl9584195856_)) + _e9584095847_))) + (_E9584195865_ + (lambda () + (if (gx#stx-pair? _e9584095847_) + (let ((_e9584395855_ (gx#syntax-e _e9584095847_))) + (let ((_hd9584495858_ (##car _e9584395855_)) + (_tl9584595860_ (##cdr _e9584395855_))) + (let ((_body95863_ _tl9584595860_)) (if '#t - (cons '%#import _body95859_) - (_E9583895847_))))) - (_E9583895847_))))) - (_E9583795861_)))) + (cons '%#import _body95863_) + (_E9584295851_))))) + (_E9584295851_))))) + (_E9584195865_)))) (define gx#core-compile-top-module% - (lambda (_stx95792_) - (let* ((_e9579395803_ _stx95792_) - (_E9579595807_ + (lambda (_stx95796_) + (let* ((_e9579795807_ _stx95796_) + (_E9579995811_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9579395803_))) - (_E9579495831_ - (lambda () - (if (gx#stx-pair? _e9579395803_) - (let ((_e9579695811_ (gx#syntax-e _e9579395803_))) - (let ((_hd9579795814_ (##car _e9579695811_)) - (_tl9579895816_ (##cdr _e9579695811_))) - (if (gx#stx-pair? _tl9579895816_) - (let ((_e9579995819_ - (gx#syntax-e _tl9579895816_))) - (let ((_hd9580095822_ (##car _e9579995819_)) - (_tl9580195824_ (##cdr _e9579995819_))) - (let* ((_hd95827_ _hd9580095822_) - (_body95829_ _tl9580195824_)) + _e9579795807_))) + (_E9579895835_ + (lambda () + (if (gx#stx-pair? _e9579795807_) + (let ((_e9580095815_ (gx#syntax-e _e9579795807_))) + (let ((_hd9580195818_ (##car _e9580095815_)) + (_tl9580295820_ (##cdr _e9580095815_))) + (if (gx#stx-pair? _tl9580295820_) + (let ((_e9580395823_ + (gx#syntax-e _tl9580295820_))) + (let ((_hd9580495826_ (##car _e9580395823_)) + (_tl9580595828_ (##cdr _e9580395823_))) + (let* ((_hd95831_ _hd9580495826_) + (_body95833_ _tl9580595828_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd95827_) + _hd95831_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body95829_))) - (_E9579595807_))))) - (_E9579595807_)))) - (_E9579595807_))))) - (_E9579495831_)))) + _body95833_))) + (_E9579995811_))))) + (_E9579995811_)))) + (_E9579995811_))))) + (_E9579895835_)))) (define gx#core-compile-top-export% - (lambda (_stx95762_) - (let* ((_e9576395770_ _stx95762_) - (_E9576595774_ + (lambda (_stx95766_) + (let* ((_e9576795774_ _stx95766_) + (_E9576995778_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9576395770_))) - (_E9576495788_ - (lambda () - (if (gx#stx-pair? _e9576395770_) - (let ((_e9576695778_ (gx#syntax-e _e9576395770_))) - (let ((_hd9576795781_ (##car _e9576695778_)) - (_tl9576895783_ (##cdr _e9576695778_))) - (let ((_body95786_ _tl9576895783_)) + _e9576795774_))) + (_E9576895792_ + (lambda () + (if (gx#stx-pair? _e9576795774_) + (let ((_e9577095782_ (gx#syntax-e _e9576795774_))) + (let ((_hd9577195785_ (##car _e9577095782_)) + (_tl9577295787_ (##cdr _e9577095782_))) + (let ((_body95790_ _tl9577295787_)) (if '#t - (cons '%#export _body95786_) - (_E9576595774_))))) - (_E9576595774_))))) - (_E9576495788_)))) + (cons '%#export _body95790_) + (_E9576995778_))))) + (_E9576995778_))))) + (_E9576895792_)))) (define gx#core-compile-top-provide% - (lambda (_stx95732_) - (let* ((_e9573395740_ _stx95732_) - (_E9573595744_ + (lambda (_stx95736_) + (let* ((_e9573795744_ _stx95736_) + (_E9573995748_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9573395740_))) - (_E9573495758_ - (lambda () - (if (gx#stx-pair? _e9573395740_) - (let ((_e9573695748_ (gx#syntax-e _e9573395740_))) - (let ((_hd9573795751_ (##car _e9573695748_)) - (_tl9573895753_ (##cdr _e9573695748_))) - (let ((_body95756_ _tl9573895753_)) + _e9573795744_))) + (_E9573895762_ + (lambda () + (if (gx#stx-pair? _e9573795744_) + (let ((_e9574095752_ (gx#syntax-e _e9573795744_))) + (let ((_hd9574195755_ (##car _e9574095752_)) + (_tl9574295757_ (##cdr _e9574095752_))) + (let ((_body95760_ _tl9574295757_)) (if '#t - (cons '%#provide _body95756_) - (_E9573595744_))))) - (_E9573595744_))))) - (_E9573495758_)))) + (cons '%#provide _body95760_) + (_E9573995748_))))) + (_E9573995748_))))) + (_E9573895762_)))) (define gx#core-compile-top-extern% - (lambda (_stx95702_) - (let* ((_e9570395710_ _stx95702_) - (_E9570595714_ + (lambda (_stx95706_) + (let* ((_e9570795714_ _stx95706_) + (_E9570995718_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9570395710_))) - (_E9570495728_ - (lambda () - (if (gx#stx-pair? _e9570395710_) - (let ((_e9570695718_ (gx#syntax-e _e9570395710_))) - (let ((_hd9570795721_ (##car _e9570695718_)) - (_tl9570895723_ (##cdr _e9570695718_))) - (let ((_body95726_ _tl9570895723_)) + _e9570795714_))) + (_E9570895732_ + (lambda () + (if (gx#stx-pair? _e9570795714_) + (let ((_e9571095722_ (gx#syntax-e _e9570795714_))) + (let ((_hd9571195725_ (##car _e9571095722_)) + (_tl9571295727_ (##cdr _e9571095722_))) + (let ((_body95730_ _tl9571295727_)) (if '#t - (cons '%#extern _body95726_) - (_E9570595714_))))) - (_E9570595714_))))) - (_E9570495728_)))) + (cons '%#extern _body95730_) + (_E9570995718_))))) + (_E9570995718_))))) + (_E9570895732_)))) (define gx#core-compile-top-define-values% - (lambda (_stx95648_) - (let* ((_e9564995662_ _stx95648_) - (_E9565195666_ + (lambda (_stx95652_) + (let* ((_e9565395666_ _stx95652_) + (_E9565595670_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9564995662_))) - (_E9565095698_ - (lambda () - (if (gx#stx-pair? _e9564995662_) - (let ((_e9565295670_ (gx#syntax-e _e9564995662_))) - (let ((_hd9565395673_ (##car _e9565295670_)) - (_tl9565495675_ (##cdr _e9565295670_))) - (if (gx#stx-pair? _tl9565495675_) - (let ((_e9565595678_ - (gx#syntax-e _tl9565495675_))) - (let ((_hd9565695681_ (##car _e9565595678_)) - (_tl9565795683_ (##cdr _e9565595678_))) - (let ((_hd95686_ _hd9565695681_)) - (if (gx#stx-pair? _tl9565795683_) - (let ((_e9565895688_ - (gx#syntax-e _tl9565795683_))) - (let ((_hd9565995691_ - (##car _e9565895688_)) - (_tl9566095693_ - (##cdr _e9565895688_))) - (let ((_expr95696_ _hd9565995691_)) - (if (gx#stx-null? _tl9566095693_) + _e9565395666_))) + (_E9565495702_ + (lambda () + (if (gx#stx-pair? _e9565395666_) + (let ((_e9565695674_ (gx#syntax-e _e9565395666_))) + (let ((_hd9565795677_ (##car _e9565695674_)) + (_tl9565895679_ (##cdr _e9565695674_))) + (if (gx#stx-pair? _tl9565895679_) + (let ((_e9565995682_ + (gx#syntax-e _tl9565895679_))) + (let ((_hd9566095685_ (##car _e9565995682_)) + (_tl9566195687_ (##cdr _e9565995682_))) + (let ((_hd95690_ _hd9566095685_)) + (if (gx#stx-pair? _tl9566195687_) + (let ((_e9566295692_ + (gx#syntax-e _tl9566195687_))) + (let ((_hd9566395695_ + (##car _e9566295692_)) + (_tl9566495697_ + (##cdr _e9566295692_))) + (let ((_expr95700_ _hd9566395695_)) + (if (gx#stx-null? _tl9566495697_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd95686_) - (cons (gx#core-compile-top-syntax _expr95696_) '()))) - (_E9565195666_)) + _hd95690_) + (cons (gx#core-compile-top-syntax _expr95700_) '()))) + (_E9565595670_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9565195666_))))) - (_E9565195666_))))) - (_E9565195666_)))) - (_E9565195666_))))) - (_E9565095698_)))) + (_E9565595670_))))) + (_E9565595670_))))) + (_E9565595670_)))) + (_E9565595670_))))) + (_E9565495702_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx95593_) - (let* ((_e9559495607_ _stx95593_) - (_E9559695611_ + (lambda (_stx95597_) + (let* ((_e9559895611_ _stx95597_) + (_E9560095615_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9559495607_))) - (_E9559595644_ - (lambda () - (if (gx#stx-pair? _e9559495607_) - (let ((_e9559795615_ (gx#syntax-e _e9559495607_))) - (let ((_hd9559895618_ (##car _e9559795615_)) - (_tl9559995620_ (##cdr _e9559795615_))) - (if (gx#stx-pair? _tl9559995620_) - (let ((_e9560095623_ - (gx#syntax-e _tl9559995620_))) - (let ((_hd9560195626_ (##car _e9560095623_)) - (_tl9560295628_ (##cdr _e9560095623_))) - (let ((_hd95631_ _hd9560195626_)) - (if (gx#stx-pair? _tl9560295628_) - (let ((_e9560395633_ - (gx#syntax-e _tl9560295628_))) - (let ((_hd9560495636_ - (##car _e9560395633_)) - (_tl9560595638_ - (##cdr _e9560395633_))) - (let ((_expr95641_ _hd9560495636_)) - (if (gx#stx-null? _tl9560595638_) + _e9559895611_))) + (_E9559995648_ + (lambda () + (if (gx#stx-pair? _e9559895611_) + (let ((_e9560195619_ (gx#syntax-e _e9559895611_))) + (let ((_hd9560295622_ (##car _e9560195619_)) + (_tl9560395624_ (##cdr _e9560195619_))) + (if (gx#stx-pair? _tl9560395624_) + (let ((_e9560495627_ + (gx#syntax-e _tl9560395624_))) + (let ((_hd9560595630_ (##car _e9560495627_)) + (_tl9560695632_ (##cdr _e9560495627_))) + (let ((_hd95635_ _hd9560595630_)) + (if (gx#stx-pair? _tl9560695632_) + (let ((_e9560795637_ + (gx#syntax-e _tl9560695632_))) + (let ((_hd9560895640_ + (##car _e9560795637_)) + (_tl9560995642_ + (##cdr _e9560795637_))) + (let ((_expr95645_ _hd9560895640_)) + (if (gx#stx-null? _tl9560995642_) (if '#t (cons '%#define-syntax - (cons _hd95631_ + (cons _hd95635_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr95641_)) + (gx#core-compile-top-syntax _expr95645_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E9559695611_)) + (_E9560095615_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9559695611_))))) - (_E9559695611_))))) - (_E9559695611_)))) - (_E9559695611_))))) - (_E9559595644_)))) + (_E9560095615_))))) + (_E9560095615_))))) + (_E9560095615_)))) + (_E9560095615_))))) + (_E9559995648_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx95563_) - (let* ((_e9556495571_ _stx95563_) - (_E9556695575_ + (lambda (_stx95567_) + (let* ((_e9556895575_ _stx95567_) + (_E9557095579_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9556495571_))) - (_E9556595589_ - (lambda () - (if (gx#stx-pair? _e9556495571_) - (let ((_e9556795579_ (gx#syntax-e _e9556495571_))) - (let ((_hd9556895582_ (##car _e9556795579_)) - (_tl9556995584_ (##cdr _e9556795579_))) - (let ((_body95587_ _tl9556995584_)) + _e9556895575_))) + (_E9556995593_ + (lambda () + (if (gx#stx-pair? _e9556895575_) + (let ((_e9557195583_ (gx#syntax-e _e9556895575_))) + (let ((_hd9557295586_ (##car _e9557195583_)) + (_tl9557395588_ (##cdr _e9557195583_))) + (let ((_body95591_ _tl9557395588_)) (if '#t - (cons '%#define-alias _body95587_) - (_E9556695575_))))) - (_E9556695575_))))) - (_E9556595589_)))) + (cons '%#define-alias _body95591_) + (_E9557095579_))))) + (_E9557095579_))))) + (_E9556995593_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx95533_) - (let* ((_e9553495541_ _stx95533_) - (_E9553695545_ + (lambda (_stx95537_) + (let* ((_e9553895545_ _stx95537_) + (_E9554095549_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9553495541_))) - (_E9553595559_ - (lambda () - (if (gx#stx-pair? _e9553495541_) - (let ((_e9553795549_ (gx#syntax-e _e9553495541_))) - (let ((_hd9553895552_ (##car _e9553795549_)) - (_tl9553995554_ (##cdr _e9553795549_))) - (let ((_body95557_ _tl9553995554_)) + _e9553895545_))) + (_E9553995563_ + (lambda () + (if (gx#stx-pair? _e9553895545_) + (let ((_e9554195553_ (gx#syntax-e _e9553895545_))) + (let ((_hd9554295556_ (##car _e9554195553_)) + (_tl9554395558_ (##cdr _e9554195553_))) + (let ((_body95561_ _tl9554395558_)) (if '#t - (cons '%#define-runtime _body95557_) - (_E9553695545_))))) - (_E9553695545_))))) - (_E9553595559_)))) + (cons '%#define-runtime _body95561_) + (_E9554095549_))))) + (_E9554095549_))))) + (_E9553995563_)))) (define gx#core-compile-top-declare% - (lambda (_stx95503_) - (let* ((_e9550495511_ _stx95503_) - (_E9550695515_ + (lambda (_stx95507_) + (let* ((_e9550895515_ _stx95507_) + (_E9551095519_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9550495511_))) - (_E9550595529_ - (lambda () - (if (gx#stx-pair? _e9550495511_) - (let ((_e9550795519_ (gx#syntax-e _e9550495511_))) - (let ((_hd9550895522_ (##car _e9550795519_)) - (_tl9550995524_ (##cdr _e9550795519_))) - (let ((_decls95527_ _tl9550995524_)) + _e9550895515_))) + (_E9550995533_ + (lambda () + (if (gx#stx-pair? _e9550895515_) + (let ((_e9551195523_ (gx#syntax-e _e9550895515_))) + (let ((_hd9551295526_ (##car _e9551195523_)) + (_tl9551395528_ (##cdr _e9551195523_))) + (let ((_decls95531_ _tl9551395528_)) (if '#t - (cons '%#declare _decls95527_) - (_E9550695515_))))) - (_E9550695515_))))) - (_E9550595529_)))) + (cons '%#declare _decls95531_) + (_E9551095519_))))) + (_E9551095519_))))) + (_E9550995533_)))) (define gx#core-compile-top-lambda% - (lambda (_stx95473_) - (let* ((_e9547495481_ _stx95473_) - (_E9547695485_ + (lambda (_stx95477_) + (let* ((_e9547895485_ _stx95477_) + (_E9548095489_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9547495481_))) - (_E9547595499_ - (lambda () - (if (gx#stx-pair? _e9547495481_) - (let ((_e9547795489_ (gx#syntax-e _e9547495481_))) - (let ((_hd9547895492_ (##car _e9547795489_)) - (_tl9547995494_ (##cdr _e9547795489_))) - (let ((_clause95497_ _tl9547995494_)) + _e9547895485_))) + (_E9547995503_ + (lambda () + (if (gx#stx-pair? _e9547895485_) + (let ((_e9548195493_ (gx#syntax-e _e9547895485_))) + (let ((_hd9548295496_ (##car _e9548195493_)) + (_tl9548395498_ (##cdr _e9548195493_))) + (let ((_clause95501_ _tl9548395498_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause95497_)) - (_E9547695485_))))) - (_E9547695485_))))) - (_E9547595499_)))) + _clause95501_)) + (_E9548095489_))))) + (_E9548095489_))))) + (_E9547995503_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx95430_) - (let* ((_e9543195441_ _stx95430_) - (_E9543395445_ + (lambda (_stx95434_) + (let* ((_e9543595445_ _stx95434_) + (_E9543795449_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9543195441_))) - (_E9543295469_ - (lambda () - (if (gx#stx-pair? _e9543195441_) - (let ((_e9543495449_ (gx#syntax-e _e9543195441_))) - (let ((_hd9543595452_ (##car _e9543495449_)) - (_tl9543695454_ (##cdr _e9543495449_))) - (let ((_hd95457_ _hd9543595452_)) - (if (gx#stx-pair? _tl9543695454_) - (let ((_e9543795459_ - (gx#syntax-e _tl9543695454_))) - (let ((_hd9543895462_ (##car _e9543795459_)) - (_tl9543995464_ (##cdr _e9543795459_))) - (let ((_body95467_ _hd9543895462_)) - (if (gx#stx-null? _tl9543995464_) + _e9543595445_))) + (_E9543695473_ + (lambda () + (if (gx#stx-pair? _e9543595445_) + (let ((_e9543895453_ (gx#syntax-e _e9543595445_))) + (let ((_hd9543995456_ (##car _e9543895453_)) + (_tl9544095458_ (##cdr _e9543895453_))) + (let ((_hd95461_ _hd9543995456_)) + (if (gx#stx-pair? _tl9544095458_) + (let ((_e9544195463_ + (gx#syntax-e _tl9544095458_))) + (let ((_hd9544295466_ (##car _e9544195463_)) + (_tl9544395468_ (##cdr _e9544195463_))) + (let ((_body95471_ _hd9544295466_)) + (if (gx#stx-null? _tl9544395468_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd95457_) + _hd95461_) (cons (gx#core-compile-top-syntax - _body95467_) + _body95471_) '())) - (_E9543395445_)) - (_E9543395445_))))) - (_E9543395445_))))) - (_E9543395445_))))) - (_E9543295469_)))) + (_E9543795449_)) + (_E9543795449_))))) + (_E9543795449_))))) + (_E9543795449_))))) + (_E9543695473_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx95400_) - (let* ((_e9540195408_ _stx95400_) - (_E9540395412_ + (lambda (_stx95404_) + (let* ((_e9540595412_ _stx95404_) + (_E9540795416_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9540195408_))) - (_E9540295426_ - (lambda () - (if (gx#stx-pair? _e9540195408_) - (let ((_e9540495416_ (gx#syntax-e _e9540195408_))) - (let ((_hd9540595419_ (##car _e9540495416_)) - (_tl9540695421_ (##cdr _e9540495416_))) - (let ((_clauses95424_ _tl9540695421_)) + _e9540595412_))) + (_E9540695430_ + (lambda () + (if (gx#stx-pair? _e9540595412_) + (let ((_e9540895420_ (gx#syntax-e _e9540595412_))) + (let ((_hd9540995423_ (##car _e9540895420_)) + (_tl9541095425_ (##cdr _e9540895420_))) + (let ((_clauses95428_ _tl9541095425_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses95424_)) - (_E9540395412_))))) - (_E9540395412_))))) - (_E9540295426_)))) + _clauses95428_)) + (_E9540795416_))))) + (_E9540795416_))))) + (_E9540695430_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx95335_ _form95336_) - (let* ((_e9533795350_ _stx95335_) - (_E9533995354_ + (lambda (_stx95339_ _form95340_) + (let* ((_e9534195354_ _stx95339_) + (_E9534395358_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9533795350_))) - (_E9533895386_ - (lambda () - (if (gx#stx-pair? _e9533795350_) - (let ((_e9534095358_ (gx#syntax-e _e9533795350_))) - (let ((_hd9534195361_ (##car _e9534095358_)) - (_tl9534295363_ (##cdr _e9534095358_))) - (if (gx#stx-pair? _tl9534295363_) - (let ((_e9534395366_ - (gx#syntax-e _tl9534295363_))) - (let ((_hd9534495369_ (##car _e9534395366_)) - (_tl9534595371_ (##cdr _e9534395366_))) - (let ((_hd95374_ _hd9534495369_)) - (if (gx#stx-pair? _tl9534595371_) - (let ((_e9534695376_ - (gx#syntax-e _tl9534595371_))) - (let ((_hd9534795379_ - (##car _e9534695376_)) - (_tl9534895381_ - (##cdr _e9534695376_))) - (let ((_body95384_ _hd9534795379_)) - (if (gx#stx-null? _tl9534895381_) + _e9534195354_))) + (_E9534295390_ + (lambda () + (if (gx#stx-pair? _e9534195354_) + (let ((_e9534495362_ (gx#syntax-e _e9534195354_))) + (let ((_hd9534595365_ (##car _e9534495362_)) + (_tl9534695367_ (##cdr _e9534495362_))) + (if (gx#stx-pair? _tl9534695367_) + (let ((_e9534795370_ + (gx#syntax-e _tl9534695367_))) + (let ((_hd9534895373_ (##car _e9534795370_)) + (_tl9534995375_ (##cdr _e9534795370_))) + (let ((_hd95378_ _hd9534895373_)) + (if (gx#stx-pair? _tl9534995375_) + (let ((_e9535095380_ + (gx#syntax-e _tl9534995375_))) + (let ((_hd9535195383_ + (##car _e9535095380_)) + (_tl9535295385_ + (##cdr _e9535095380_))) + (let ((_body95388_ _hd9535195383_)) + (if (gx#stx-null? _tl9535295385_) (if '#t - (cons _form95336_ + (cons _form95340_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd95374_) - (cons (gx#core-compile-top-syntax _body95384_) '()))) - (_E9533995354_)) + _hd95378_) + (cons (gx#core-compile-top-syntax _body95388_) '()))) + (_E9534395358_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9533995354_))))) - (_E9533995354_))))) - (_E9533995354_)))) - (_E9533995354_))))) - (_E9533895386_)))) + (_E9534395358_))))) + (_E9534395358_))))) + (_E9534395358_)))) + (_E9534395358_))))) + (_E9534295390_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx95393_) - (let ((_form95395_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx95393_ _form95395_)))) + (lambda (_stx95397_) + (let ((_form95399_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx95397_ _form95399_)))) (define gx#core-compile-top-let-values% - (lambda _g96208_ - (let ((_g96207_ (##length _g96208_))) - (cond ((##fx= _g96207_ 1) - (apply (lambda (_stx95393_) - (gx#core-compile-top-let-values%__0 _stx95393_)) - _g96208_)) - ((##fx= _g96207_ 2) - (apply (lambda (_stx95397_ _form95398_) + (lambda _g96212_ + (let ((_g96211_ (##length _g96212_))) + (cond ((##fx= _g96211_ 1) + (apply (lambda (_stx95397_) + (gx#core-compile-top-let-values%__0 _stx95397_)) + _g96212_)) + ((##fx= _g96211_ 2) + (apply (lambda (_stx95401_ _form95402_) (gx#core-compile-top-let-values%__% - _stx95397_ - _form95398_)) - _g96208_)) + _stx95401_ + _form95402_)) + _g96212_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g96208_)))))) + _g96212_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx95332_) - (gx#core-compile-top-let-values%__% _stx95332_ '%#letrec-values))) + (lambda (_stx95336_) + (gx#core-compile-top-let-values%__% _stx95336_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx95330_) - (gx#core-compile-top-let-values%__% _stx95330_ '%#letrec*-values))) + (lambda (_stx95334_) + (gx#core-compile-top-let-values%__% _stx95334_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx95289_) - (let* ((_e9529095300_ _stx95289_) - (_E9529295304_ + (lambda (_stx95293_) + (let* ((_e9529495304_ _stx95293_) + (_E9529695308_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9529095300_))) - (_E9529195326_ - (lambda () - (if (gx#stx-pair? _e9529095300_) - (let ((_e9529395308_ (gx#syntax-e _e9529095300_))) - (let ((_hd9529495311_ (##car _e9529395308_)) - (_tl9529595313_ (##cdr _e9529395308_))) - (if (gx#stx-pair? _tl9529595313_) - (let ((_e9529695316_ - (gx#syntax-e _tl9529595313_))) - (let ((_hd9529795319_ (##car _e9529695316_)) - (_tl9529895321_ (##cdr _e9529695316_))) - (let ((_e95324_ _hd9529795319_)) - (if (gx#stx-null? _tl9529895321_) + _e9529495304_))) + (_E9529595330_ + (lambda () + (if (gx#stx-pair? _e9529495304_) + (let ((_e9529795312_ (gx#syntax-e _e9529495304_))) + (let ((_hd9529895315_ (##car _e9529795312_)) + (_tl9529995317_ (##cdr _e9529795312_))) + (if (gx#stx-pair? _tl9529995317_) + (let ((_e9530095320_ + (gx#syntax-e _tl9529995317_))) + (let ((_hd9530195323_ (##car _e9530095320_)) + (_tl9530295325_ (##cdr _e9530095320_))) + (let ((_e95328_ _hd9530195323_)) + (if (gx#stx-null? _tl9530295325_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e95324_) + _e95328_) '())) - (_E9529295304_)) - (_E9529295304_))))) - (_E9529295304_)))) - (_E9529295304_))))) - (_E9529195326_)))) + (_E9529695308_)) + (_E9529695308_))))) + (_E9529695308_)))) + (_E9529695308_))))) + (_E9529595330_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx95248_) - (let* ((_e9524995259_ _stx95248_) - (_E9525195263_ + (lambda (_stx95252_) + (let* ((_e9525395263_ _stx95252_) + (_E9525595267_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9524995259_))) - (_E9525095285_ - (lambda () - (if (gx#stx-pair? _e9524995259_) - (let ((_e9525295267_ (gx#syntax-e _e9524995259_))) - (let ((_hd9525395270_ (##car _e9525295267_)) - (_tl9525495272_ (##cdr _e9525295267_))) - (if (gx#stx-pair? _tl9525495272_) - (let ((_e9525595275_ - (gx#syntax-e _tl9525495272_))) - (let ((_hd9525695278_ (##car _e9525595275_)) - (_tl9525795280_ (##cdr _e9525595275_))) - (let ((_e95283_ _hd9525695278_)) - (if (gx#stx-null? _tl9525795280_) + _e9525395263_))) + (_E9525495289_ + (lambda () + (if (gx#stx-pair? _e9525395263_) + (let ((_e9525695271_ (gx#syntax-e _e9525395263_))) + (let ((_hd9525795274_ (##car _e9525695271_)) + (_tl9525895276_ (##cdr _e9525695271_))) + (if (gx#stx-pair? _tl9525895276_) + (let ((_e9525995279_ + (gx#syntax-e _tl9525895276_))) + (let ((_hd9526095282_ (##car _e9525995279_)) + (_tl9526195284_ (##cdr _e9525995279_))) + (let ((_e95287_ _hd9526095282_)) + (if (gx#stx-null? _tl9526195284_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e95283_) + _e95287_) '())) - (_E9525195263_)) - (_E9525195263_))))) - (_E9525195263_)))) - (_E9525195263_))))) - (_E9525095285_)))) + (_E9525595267_)) + (_E9525595267_))))) + (_E9525595267_)))) + (_E9525595267_))))) + (_E9525495289_)))) (define gx#core-compile-top-call% - (lambda (_stx95205_) - (let* ((_e9520695216_ _stx95205_) - (_E9520895220_ + (lambda (_stx95209_) + (let* ((_e9521095220_ _stx95209_) + (_E9521295224_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9520695216_))) - (_E9520795244_ - (lambda () - (if (gx#stx-pair? _e9520695216_) - (let ((_e9520995224_ (gx#syntax-e _e9520695216_))) - (let ((_hd9521095227_ (##car _e9520995224_)) - (_tl9521195229_ (##cdr _e9520995224_))) - (if (gx#stx-pair? _tl9521195229_) - (let ((_e9521295232_ - (gx#syntax-e _tl9521195229_))) - (let ((_hd9521395235_ (##car _e9521295232_)) - (_tl9521495237_ (##cdr _e9521295232_))) - (let* ((_rator95240_ _hd9521395235_) - (_args95242_ _tl9521495237_)) + _e9521095220_))) + (_E9521195248_ + (lambda () + (if (gx#stx-pair? _e9521095220_) + (let ((_e9521395228_ (gx#syntax-e _e9521095220_))) + (let ((_hd9521495231_ (##car _e9521395228_)) + (_tl9521595233_ (##cdr _e9521395228_))) + (if (gx#stx-pair? _tl9521595233_) + (let ((_e9521695236_ + (gx#syntax-e _tl9521595233_))) + (let ((_hd9521795239_ (##car _e9521695236_)) + (_tl9521895241_ (##cdr _e9521695236_))) + (let* ((_rator95244_ _hd9521795239_) + (_args95246_ _tl9521895241_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator95240_) + _rator95244_) (gx#stx-map1 gx#core-compile-top-syntax - _args95242_))) - (_E9520895220_))))) - (_E9520895220_)))) - (_E9520895220_))))) - (_E9520795244_)))) + _args95246_))) + (_E9521295224_))))) + (_E9521295224_)))) + (_E9521295224_))))) + (_E9521195248_)))) (define gx#core-compile-top-if% - (lambda (_stx95138_) - (let* ((_e9513995155_ _stx95138_) - (_E9514195159_ + (lambda (_stx95142_) + (let* ((_e9514395159_ _stx95142_) + (_E9514595163_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9513995155_))) - (_E9514095201_ - (lambda () - (if (gx#stx-pair? _e9513995155_) - (let ((_e9514295163_ (gx#syntax-e _e9513995155_))) - (let ((_hd9514395166_ (##car _e9514295163_)) - (_tl9514495168_ (##cdr _e9514295163_))) - (if (gx#stx-pair? _tl9514495168_) - (let ((_e9514595171_ - (gx#syntax-e _tl9514495168_))) - (let ((_hd9514695174_ (##car _e9514595171_)) - (_tl9514795176_ (##cdr _e9514595171_))) - (let ((_test95179_ _hd9514695174_)) - (if (gx#stx-pair? _tl9514795176_) - (let ((_e9514895181_ - (gx#syntax-e _tl9514795176_))) - (let ((_hd9514995184_ - (##car _e9514895181_)) - (_tl9515095186_ - (##cdr _e9514895181_))) - (let ((_K95189_ _hd9514995184_)) - (if (gx#stx-pair? _tl9515095186_) - (let ((_e9515195191_ + _e9514395159_))) + (_E9514495205_ + (lambda () + (if (gx#stx-pair? _e9514395159_) + (let ((_e9514695167_ (gx#syntax-e _e9514395159_))) + (let ((_hd9514795170_ (##car _e9514695167_)) + (_tl9514895172_ (##cdr _e9514695167_))) + (if (gx#stx-pair? _tl9514895172_) + (let ((_e9514995175_ + (gx#syntax-e _tl9514895172_))) + (let ((_hd9515095178_ (##car _e9514995175_)) + (_tl9515195180_ (##cdr _e9514995175_))) + (let ((_test95183_ _hd9515095178_)) + (if (gx#stx-pair? _tl9515195180_) + (let ((_e9515295185_ + (gx#syntax-e _tl9515195180_))) + (let ((_hd9515395188_ + (##car _e9515295185_)) + (_tl9515495190_ + (##cdr _e9515295185_))) + (let ((_K95193_ _hd9515395188_)) + (if (gx#stx-pair? _tl9515495190_) + (let ((_e9515595195_ (gx#syntax-e - _tl9515095186_))) - (let ((_hd9515295194_ - (##car _e9515195191_)) - (_tl9515395196_ - (##cdr _e9515195191_))) - (let ((_E95199_ - _hd9515295194_)) + _tl9515495190_))) + (let ((_hd9515695198_ + (##car _e9515595195_)) + (_tl9515795200_ + (##cdr _e9515595195_))) + (let ((_E95203_ + _hd9515695198_)) (if (gx#stx-null? - _tl9515395196_) + _tl9515795200_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test95179_) - (cons (gx#core-compile-top-syntax _K95189_) + (cons (gx#core-compile-top-syntax _test95183_) + (cons (gx#core-compile-top-syntax _K95193_) (cons (gx#core-compile-top-syntax - _E95199_) + _E95203_) '())))) - (_E9514195159_)) - (_E9514195159_))))) + (_E9514595163_)) + (_E9514595163_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9514195159_))))) - (_E9514195159_))))) - (_E9514195159_)))) - (_E9514195159_))))) - (_E9514095201_)))) + (_E9514595163_))))) + (_E9514595163_))))) + (_E9514595163_)))) + (_E9514595163_))))) + (_E9514495205_)))) (define gx#core-compile-top-ref% - (lambda (_stx95097_) - (let* ((_e9509895108_ _stx95097_) - (_E9510095112_ + (lambda (_stx95101_) + (let* ((_e9510295112_ _stx95101_) + (_E9510495116_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9509895108_))) - (_E9509995134_ - (lambda () - (if (gx#stx-pair? _e9509895108_) - (let ((_e9510195116_ (gx#syntax-e _e9509895108_))) - (let ((_hd9510295119_ (##car _e9510195116_)) - (_tl9510395121_ (##cdr _e9510195116_))) - (if (gx#stx-pair? _tl9510395121_) - (let ((_e9510495124_ - (gx#syntax-e _tl9510395121_))) - (let ((_hd9510595127_ (##car _e9510495124_)) - (_tl9510695129_ (##cdr _e9510495124_))) - (let ((_id95132_ _hd9510595127_)) - (if (gx#stx-null? _tl9510695129_) - (if (gx#identifier? _id95132_) + _e9510295112_))) + (_E9510395138_ + (lambda () + (if (gx#stx-pair? _e9510295112_) + (let ((_e9510595120_ (gx#syntax-e _e9510295112_))) + (let ((_hd9510695123_ (##car _e9510595120_)) + (_tl9510795125_ (##cdr _e9510595120_))) + (if (gx#stx-pair? _tl9510795125_) + (let ((_e9510895128_ + (gx#syntax-e _tl9510795125_))) + (let ((_hd9510995131_ (##car _e9510895128_)) + (_tl9511095133_ (##cdr _e9510895128_))) + (let ((_id95136_ _hd9510995131_)) + (if (gx#stx-null? _tl9511095133_) + (if (gx#identifier? _id95136_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id95132_) + _id95136_) '())) - (_E9510095112_)) - (_E9510095112_))))) - (_E9510095112_)))) - (_E9510095112_))))) - (_E9509995134_)))) + (_E9510495116_)) + (_E9510495116_))))) + (_E9510495116_)))) + (_E9510495116_))))) + (_E9510395138_)))) (define gx#core-compile-top-setq% - (lambda (_stx95043_) - (let* ((_e9504495057_ _stx95043_) - (_E9504695061_ + (lambda (_stx95047_) + (let* ((_e9504895061_ _stx95047_) + (_E9505095065_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9504495057_))) - (_E9504595093_ - (lambda () - (if (gx#stx-pair? _e9504495057_) - (let ((_e9504795065_ (gx#syntax-e _e9504495057_))) - (let ((_hd9504895068_ (##car _e9504795065_)) - (_tl9504995070_ (##cdr _e9504795065_))) - (if (gx#stx-pair? _tl9504995070_) - (let ((_e9505095073_ - (gx#syntax-e _tl9504995070_))) - (let ((_hd9505195076_ (##car _e9505095073_)) - (_tl9505295078_ (##cdr _e9505095073_))) - (let ((_id95081_ _hd9505195076_)) - (if (gx#stx-pair? _tl9505295078_) - (let ((_e9505395083_ - (gx#syntax-e _tl9505295078_))) - (let ((_hd9505495086_ - (##car _e9505395083_)) - (_tl9505595088_ - (##cdr _e9505395083_))) - (let ((_expr95091_ _hd9505495086_)) - (if (gx#stx-null? _tl9505595088_) + _e9504895061_))) + (_E9504995097_ + (lambda () + (if (gx#stx-pair? _e9504895061_) + (let ((_e9505195069_ (gx#syntax-e _e9504895061_))) + (let ((_hd9505295072_ (##car _e9505195069_)) + (_tl9505395074_ (##cdr _e9505195069_))) + (if (gx#stx-pair? _tl9505395074_) + (let ((_e9505495077_ + (gx#syntax-e _tl9505395074_))) + (let ((_hd9505595080_ (##car _e9505495077_)) + (_tl9505695082_ (##cdr _e9505495077_))) + (let ((_id95085_ _hd9505595080_)) + (if (gx#stx-pair? _tl9505695082_) + (let ((_e9505795087_ + (gx#syntax-e _tl9505695082_))) + (let ((_hd9505895090_ + (##car _e9505795087_)) + (_tl9505995092_ + (##cdr _e9505795087_))) + (let ((_expr95095_ _hd9505895090_)) + (if (gx#stx-null? _tl9505995092_) (if (gx#identifier? - _id95081_) + _id95085_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id95081_) - (cons (gx#core-compile-top-syntax _expr95091_) '()))) - (_E9504695061_)) + _id95085_) + (cons (gx#core-compile-top-syntax _expr95095_) '()))) + (_E9505095065_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9504695061_))))) - (_E9504695061_))))) - (_E9504695061_)))) - (_E9504695061_))))) - (_E9504595093_)))) + (_E9505095065_))))) + (_E9505095065_))))) + (_E9505095065_)))) + (_E9505095065_))))) + (_E9504995097_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id95038_) - (let ((_$e95040_ (gx#resolve-identifier__0 _id95038_))) - (if _$e95040_ - (##unchecked-structure-ref _$e95040_ '1 gx#binding::t '#f) - _id95038_)))) + (lambda (_id95042_) + (let ((_$e95044_ (gx#resolve-identifier__0 _id95042_))) + (if _$e95044_ + (##unchecked-structure-ref _$e95044_ '1 gx#binding::t '#f) + _id95042_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd95036_) - (if (gx#identifier? _hd95036_) - (gx#core-compile-top-runtime-ref _hd95036_) + (lambda (_hd95040_) + (if (gx#identifier? _hd95040_) + (gx#core-compile-top-runtime-ref _hd95040_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index 74c5f5672..c69abaca7 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 1710781149) + (define gerbil/expander/core::timestamp 1710833424) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -24,8 +24,8 @@ ':init!)) (define gx#expander-context? (make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _$args86051_ - (apply make-instance gx#expander-context::t _$args86051_))) + (lambda _$args86055_ + (apply make-instance gx#expander-context::t _$args86055_))) (define gx#expander-context-id (make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -52,8 +52,8 @@ '#f)) (define gx#root-context? (make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _$args86048_ - (apply make-instance gx#root-context::t _$args86048_))) + (lambda _$args86052_ + (apply make-instance gx#root-context::t _$args86052_))) (define gx#root-context-id (make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -80,8 +80,8 @@ '#f)) (define gx#phi-context? (make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _$args86045_ - (apply make-instance gx#phi-context::t _$args86045_))) + (lambda _$args86049_ + (apply make-instance gx#phi-context::t _$args86049_))) (define gx#phi-context-super (make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up (make-class-slot-accessor gx#phi-context::t 'up)) @@ -130,8 +130,8 @@ '#f)) (define gx#top-context? (make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _$args86042_ - (apply make-instance gx#top-context::t _$args86042_))) + (lambda _$args86046_ + (apply make-instance gx#top-context::t _$args86046_))) (define gx#top-context-super (make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up (make-class-slot-accessor gx#top-context::t 'up)) @@ -180,8 +180,8 @@ '#f)) (define gx#module-context? (make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _$args86039_ - (apply make-instance gx#module-context::t _$args86039_))) + (lambda _$args86043_ + (apply make-instance gx#module-context::t _$args86043_))) (define gx#module-context-ns (make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -280,8 +280,8 @@ '#f)) (define gx#prelude-context? (make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _$args86036_ - (apply make-instance gx#prelude-context::t _$args86036_))) + (lambda _$args86040_ + (apply make-instance gx#prelude-context::t _$args86040_))) (define gx#prelude-context-path (make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -356,8 +356,8 @@ '#f)) (define gx#local-context? (make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _$args86033_ - (apply make-instance gx#local-context::t _$args86033_))) + (lambda _$args86037_ + (apply make-instance gx#local-context::t _$args86037_))) (define gx#local-context-super (make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -399,101 +399,101 @@ (define gx#&local-context-table-set! (make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_self86017_ _id86018_ _super86019_) - (if (##fx< '3 (##structure-length _self86017_)) + (lambda (_self86021_ _id86022_ _super86023_) + (if (##fx< '3 (##structure-length _self86021_)) (begin (##unchecked-structure-set! - _self86017_ - _id86018_ + _self86021_ + _id86022_ '1 - (##structure-type _self86017_) + (##structure-type _self86021_) '#f) (##unchecked-structure-set! - _self86017_ + _self86021_ (make-hash-table-eq) '2 - (##structure-type _self86017_) + (##structure-type _self86021_) '#f) (##unchecked-structure-set! - _self86017_ - _super86019_ + _self86021_ + _super86023_ '3 - (##structure-type _self86017_) + (##structure-type _self86021_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self86017_ + _self86021_ '3 - (##vector-length _self86017_))))) + (##vector-length _self86021_))))) (define gx#phi-context:::init!__0 - (lambda (_self86024_ _id86025_) - (let ((_super86027_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self86024_ _id86025_ _super86027_)))) + (lambda (_self86028_ _id86029_) + (let ((_super86031_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self86028_ _id86029_ _super86031_)))) (define gx#phi-context:::init! - (lambda _g86094_ - (let ((_g86093_ (##length _g86094_))) - (cond ((##fx= _g86093_ 2) - (apply (lambda (_self86024_ _id86025_) - (gx#phi-context:::init!__0 _self86024_ _id86025_)) - _g86094_)) - ((##fx= _g86093_ 3) - (apply (lambda (_self86029_ _id86030_ _super86031_) + (lambda _g86098_ + (let ((_g86097_ (##length _g86098_))) + (cond ((##fx= _g86097_ 2) + (apply (lambda (_self86028_ _id86029_) + (gx#phi-context:::init!__0 _self86028_ _id86029_)) + _g86098_)) + ((##fx= _g86097_ 3) + (apply (lambda (_self86033_ _id86034_ _super86035_) (gx#phi-context:::init!__% - _self86029_ - _id86030_ - _super86031_)) - _g86094_)) + _self86033_ + _id86034_ + _super86035_)) + _g86098_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g86094_)))))) + _g86098_)))))) (bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self85881_ _super85882_) - (if (##fx< '3 (##structure-length _self85881_)) + (lambda (_self85885_ _super85886_) + (if (##fx< '3 (##structure-length _self85885_)) (begin (##unchecked-structure-set! - _self85881_ + _self85885_ (gensym 'L) '1 - (##structure-type _self85881_) + (##structure-type _self85885_) '#f) (##unchecked-structure-set! - _self85881_ + _self85885_ (make-hash-table-eq) '2 - (##structure-type _self85881_) + (##structure-type _self85885_) '#f) (##unchecked-structure-set! - _self85881_ - _super85882_ + _self85885_ + _super85886_ '3 - (##structure-type _self85881_) + (##structure-type _self85885_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self85881_ + _self85885_ '3 - (##vector-length _self85881_))))) + (##vector-length _self85885_))))) (define gx#local-context:::init!__0 - (lambda (_self85887_) - (let ((_super85889_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self85887_ _super85889_)))) + (lambda (_self85891_) + (let ((_super85893_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self85891_ _super85893_)))) (define gx#local-context:::init! - (lambda _g86096_ - (let ((_g86095_ (##length _g86096_))) - (cond ((##fx= _g86095_ 1) - (apply (lambda (_self85887_) - (gx#local-context:::init!__0 _self85887_)) - _g86096_)) - ((##fx= _g86095_ 2) - (apply (lambda (_self85891_ _super85892_) + (lambda _g86100_ + (let ((_g86099_ (##length _g86100_))) + (cond ((##fx= _g86099_ 1) + (apply (lambda (_self85891_) + (gx#local-context:::init!__0 _self85891_)) + _g86100_)) + ((##fx= _g86099_ 2) + (apply (lambda (_self85895_ _super85896_) (gx#local-context:::init!__% - _self85891_ - _super85892_)) - _g86096_)) + _self85895_ + _super85896_)) + _g86100_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g86096_)))))) + _g86100_)))))) (bind-method!__% gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t (make-class-type @@ -505,7 +505,7 @@ '#f)) (define gx#binding? (make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _$args85755_ (apply make-instance gx#binding::t _$args85755_))) + (lambda _$args85759_ (apply make-instance gx#binding::t _$args85759_))) (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)) @@ -534,8 +534,8 @@ '#f)) (define gx#runtime-binding? (make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _$args85752_ - (apply make-instance gx#runtime-binding::t _$args85752_))) + (lambda _$args85756_ + (apply make-instance gx#runtime-binding::t _$args85756_))) (define gx#runtime-binding-id (make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -570,8 +570,8 @@ '#f)) (define gx#local-binding? (make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _$args85749_ - (apply make-instance gx#local-binding::t _$args85749_))) + (lambda _$args85753_ + (apply make-instance gx#local-binding::t _$args85753_))) (define gx#local-binding-id (make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -606,8 +606,8 @@ '#f)) (define gx#top-binding? (make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _$args85746_ - (apply make-instance gx#top-binding::t _$args85746_))) + (lambda _$args85750_ + (apply make-instance gx#top-binding::t _$args85750_))) (define gx#top-binding-id (make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key (make-class-slot-accessor gx#top-binding::t 'key)) @@ -641,8 +641,8 @@ '#f)) (define gx#module-binding? (make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _$args85743_ - (apply make-instance gx#module-binding::t _$args85743_))) + (lambda _$args85747_ + (apply make-instance gx#module-binding::t _$args85747_))) (define gx#module-binding-context (make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -685,8 +685,8 @@ '#f)) (define gx#extern-binding? (make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _$args85740_ - (apply make-instance gx#extern-binding::t _$args85740_))) + (lambda _$args85744_ + (apply make-instance gx#extern-binding::t _$args85744_))) (define gx#extern-binding-id (make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -722,8 +722,8 @@ '#f)) (define gx#syntax-binding? (make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _$args85737_ - (apply make-instance gx#syntax-binding::t _$args85737_))) + (lambda _$args85741_ + (apply make-instance gx#syntax-binding::t _$args85741_))) (define gx#syntax-binding-e (make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -767,8 +767,8 @@ '#f)) (define gx#import-binding? (make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _$args85734_ - (apply make-instance gx#import-binding::t _$args85734_))) + (lambda _$args85738_ + (apply make-instance gx#import-binding::t _$args85738_))) (define gx#import-binding-e (make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -828,8 +828,8 @@ '#f)) (define gx#alias-binding? (make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _$args85731_ - (apply make-instance gx#alias-binding::t _$args85731_))) + (lambda _$args85735_ + (apply make-instance gx#alias-binding::t _$args85735_))) (define gx#alias-binding-e (make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -872,7 +872,7 @@ '#f)) (define gx#expander? (make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _$args85728_ (apply make-instance gx#expander::t _$args85728_))) + (lambda _$args85732_ (apply make-instance gx#expander::t _$args85732_))) (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 @@ -889,8 +889,8 @@ '#f)) (define gx#core-expander? (make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _$args85725_ - (apply make-instance gx#core-expander::t _$args85725_))) + (lambda _$args85729_ + (apply make-instance gx#core-expander::t _$args85729_))) (define gx#core-expander-id (make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -925,8 +925,8 @@ '#f)) (define gx#expression-form? (make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _$args85722_ - (apply make-instance gx#expression-form::t _$args85722_))) + (lambda _$args85726_ + (apply make-instance gx#expression-form::t _$args85726_))) (define gx#expression-form-id (make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -961,8 +961,8 @@ '#f)) (define gx#special-form? (make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _$args85719_ - (apply make-instance gx#special-form::t _$args85719_))) + (lambda _$args85723_ + (apply make-instance gx#special-form::t _$args85723_))) (define gx#special-form-id (make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -996,8 +996,8 @@ '#f)) (define gx#definition-form? (make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _$args85716_ - (apply make-instance gx#definition-form::t _$args85716_))) + (lambda _$args85720_ + (apply make-instance gx#definition-form::t _$args85720_))) (define gx#definition-form-id (make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1032,8 +1032,8 @@ '#f)) (define gx#top-special-form? (make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _$args85713_ - (apply make-instance gx#top-special-form::t _$args85713_))) + (lambda _$args85717_ + (apply make-instance gx#top-special-form::t _$args85717_))) (define gx#top-special-form-id (make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1069,8 +1069,8 @@ (define gx#module-special-form? (make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _$args85710_ - (apply make-instance gx#module-special-form::t _$args85710_))) + (lambda _$args85714_ + (apply make-instance gx#module-special-form::t _$args85714_))) (define gx#module-special-form-id (make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1109,8 +1109,8 @@ '#f)) (define gx#feature-expander? (make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _$args85707_ - (apply make-instance gx#feature-expander::t _$args85707_))) + (lambda _$args85711_ + (apply make-instance gx#feature-expander::t _$args85711_))) (define gx#feature-expander-e (make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1130,8 +1130,8 @@ (define gx#private-feature-expander? (make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _$args85704_ - (apply make-instance gx#private-feature-expander::t _$args85704_))) + (lambda _$args85708_ + (apply make-instance gx#private-feature-expander::t _$args85708_))) (define gx#private-feature-expander-e (make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1151,8 +1151,8 @@ (define gx#reserved-expander? (make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _$args85701_ - (apply make-instance gx#reserved-expander::t _$args85701_))) + (lambda _$args85705_ + (apply make-instance gx#reserved-expander::t _$args85705_))) (define gx#reserved-expander-e (make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1171,8 +1171,8 @@ '#f)) (define gx#macro-expander? (make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _$args85698_ - (apply make-instance gx#macro-expander::t _$args85698_))) + (lambda _$args85702_ + (apply make-instance gx#macro-expander::t _$args85702_))) (define gx#macro-expander-e (make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1192,8 +1192,8 @@ (define gx#rename-macro-expander? (make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _$args85695_ - (apply make-instance gx#rename-macro-expander::t _$args85695_))) + (lambda _$args85699_ + (apply make-instance gx#rename-macro-expander::t _$args85699_))) (define gx#rename-macro-expander-e (make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1212,8 +1212,8 @@ '#f)) (define gx#user-expander? (make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _$args85692_ - (apply make-instance gx#user-expander::t _$args85692_))) + (lambda _$args85696_ + (apply make-instance gx#user-expander::t _$args85696_))) (define gx#user-expander-context (make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1248,8 +1248,8 @@ '#f)) (define gx#expander-mark? (make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _$args85689_ - (apply make-instance gx#expander-mark::t _$args85689_))) + (lambda _$args85693_ + (apply make-instance gx#expander-mark::t _$args85693_))) (define gx#expander-mark-subst (make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1283,982 +1283,982 @@ (define gx#&expander-mark-trace-set! (make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_ctx85674_ _message85675_ _stx85676_ . _details85677_) - (let ((_ctx85687_ - (let ((_$e85679_ _ctx85674_)) - (if _$e85679_ - _$e85679_ - (let ((_$e85682_ (gx#core-context-top__0))) - (if _$e85682_ - ((lambda (_ctx85685_) + (lambda (_ctx85678_ _message85679_ _stx85680_ . _details85681_) + (let ((_ctx85691_ + (let ((_$e85683_ _ctx85678_)) + (if _$e85683_ + _$e85683_ + (let ((_$e85686_ (gx#core-context-top__0))) + (if _$e85686_ + ((lambda (_ctx85689_) (cons 'expand (cons (##structure-ref - _ctx85685_ + _ctx85689_ '1 gx#expander-context::t '#f) '()))) - _$e85682_) + _$e85686_) '#f)))))) (raise (make-syntax-error - _message85675_ - (cons _stx85676_ _details85677_) - _ctx85687_ + _message85679_ + (cons _stx85680_ _details85681_) + _ctx85691_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_stx85661_ _expression?85662_) - (gx#eval-syntax* (gx#core-expand__% _stx85661_ _expression?85662_)))) + (lambda (_stx85665_ _expression?85666_) + (gx#eval-syntax* (gx#core-expand__% _stx85665_ _expression?85666_)))) (define gx#eval-syntax__0 - (lambda (_stx85667_) - (let ((_expression?85669_ '#f)) - (gx#eval-syntax__% _stx85667_ _expression?85669_)))) + (lambda (_stx85671_) + (let ((_expression?85673_ '#f)) + (gx#eval-syntax__% _stx85671_ _expression?85673_)))) (define gx#eval-syntax - (lambda _g86098_ - (let ((_g86097_ (##length _g86098_))) - (cond ((##fx= _g86097_ 1) - (apply (lambda (_stx85667_) (gx#eval-syntax__0 _stx85667_)) - _g86098_)) - ((##fx= _g86097_ 2) - (apply (lambda (_stx85671_ _expression?85672_) - (gx#eval-syntax__% _stx85671_ _expression?85672_)) - _g86098_)) + (lambda _g86102_ + (let ((_g86101_ (##length _g86102_))) + (cond ((##fx= _g86101_ 1) + (apply (lambda (_stx85671_) (gx#eval-syntax__0 _stx85671_)) + _g86102_)) + ((##fx= _g86101_ 2) + (apply (lambda (_stx85675_ _expression?85676_) + (gx#eval-syntax__% _stx85675_ _expression?85676_)) + _g86102_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g86098_)))))) + _g86102_)))))) (define gx#eval-syntax* - (lambda (_stx85658_) + (lambda (_stx85662_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx85658_)))) + ((gx#current-expander-compile) _stx85662_)))) (define gx#core-expand__% - (lambda (_stx85645_ _expression?85646_) - (if _expression?85646_ - (gx#core-expand-expression _stx85645_) - (gx#core-expand-top _stx85645_)))) + (lambda (_stx85649_ _expression?85650_) + (if _expression?85650_ + (gx#core-expand-expression _stx85649_) + (gx#core-expand-top _stx85649_)))) (define gx#core-expand__0 - (lambda (_stx85651_) - (let ((_expression?85653_ '#f)) - (gx#core-expand__% _stx85651_ _expression?85653_)))) + (lambda (_stx85655_) + (let ((_expression?85657_ '#f)) + (gx#core-expand__% _stx85655_ _expression?85657_)))) (define gx#core-expand - (lambda _g86100_ - (let ((_g86099_ (##length _g86100_))) - (cond ((##fx= _g86099_ 1) - (apply (lambda (_stx85651_) (gx#core-expand__0 _stx85651_)) - _g86100_)) - ((##fx= _g86099_ 2) - (apply (lambda (_stx85655_ _expression?85656_) - (gx#core-expand__% _stx85655_ _expression?85656_)) - _g86100_)) + (lambda _g86104_ + (let ((_g86103_ (##length _g86104_))) + (cond ((##fx= _g86103_ 1) + (apply (lambda (_stx85655_) (gx#core-expand__0 _stx85655_)) + _g86104_)) + ((##fx= _g86103_ 2) + (apply (lambda (_stx85659_ _expression?85660_) + (gx#core-expand__% _stx85659_ _expression?85660_)) + _g86104_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g86100_)))))) + _g86104_)))))) (define gx#core-expand-top - (lambda (_stx85612_) - (let* ((_stx85614_ (gx#core-expand*__0 _stx85612_)) - (_e8561585622_ _stx85614_) - (_E8561785626_ - (lambda () (gx#core-expand-expression _stx85614_))) - (_E8561685640_ + (lambda (_stx85616_) + (let* ((_stx85618_ (gx#core-expand*__0 _stx85616_)) + (_e8561985626_ _stx85618_) + (_E8562185630_ + (lambda () (gx#core-expand-expression _stx85618_))) + (_E8562085644_ (lambda () - (if (gx#stx-pair? _e8561585622_) - (let ((_e8561885630_ (gx#syntax-e _e8561585622_))) - (let ((_hd8561985633_ (##car _e8561885630_)) - (_tl8562085635_ (##cdr _e8561885630_))) - (let ((_form85638_ _hd8561985633_)) - (if (gx#core-bound-identifier?__0 _form85638_) - _stx85614_ - (_E8561785626_))))) - (_E8561785626_))))) - (_E8561685640_)))) + (if (gx#stx-pair? _e8561985626_) + (let ((_e8562285634_ (gx#syntax-e _e8561985626_))) + (let ((_hd8562385637_ (##car _e8562285634_)) + (_tl8562485639_ (##cdr _e8562285634_))) + (let ((_form85642_ _hd8562385637_)) + (if (gx#core-bound-identifier?__0 _form85642_) + _stx85618_ + (_E8562185630_))))) + (_E8562185630_))))) + (_E8562085644_)))) (define gx#core-expand-expression - (lambda (_stx85559_) - (letrec ((_sealed-expression?85561_ - (lambda (_hd85582_) - (if (gx#sealed-syntax? _hd85582_) - (let* ((_e8558385590_ _hd85582_) - (_E8558585594_ (lambda () '#f)) - (_E8558485608_ + (lambda (_stx85563_) + (letrec ((_sealed-expression?85565_ + (lambda (_hd85586_) + (if (gx#sealed-syntax? _hd85586_) + (let* ((_e8558785594_ _hd85586_) + (_E8558985598_ (lambda () '#f)) + (_E8558885612_ (lambda () - (if (gx#stx-pair? _e8558385590_) - (let ((_e8558685598_ - (gx#syntax-e _e8558385590_))) - (let ((_hd8558785601_ - (##car _e8558685598_)) - (_tl8558885603_ - (##cdr _e8558685598_))) - (let ((_form85606_ _hd8558785601_)) + (if (gx#stx-pair? _e8558785594_) + (let ((_e8559085602_ + (gx#syntax-e _e8558785594_))) + (let ((_hd8559185605_ + (##car _e8559085602_)) + (_tl8559285607_ + (##cdr _e8559085602_))) + (let ((_form85610_ _hd8559185605_)) (if '#t (gx#core-bound-identifier?__% - _form85606_ + _form85610_ gx#expression-form-binding?) - (_E8558585594_))))) - (_E8558585594_))))) - (_E8558485608_)) + (_E8558985598_))))) + (_E8558985598_))))) + (_E8558885612_)) '#f))) - (_illegal-expression85562_ - (lambda (_hd85580_ . _g86101_) + (_illegal-expression85566_ + (lambda (_hd85584_ . _g86105_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx85559_ - _hd85580_))) - (_expand-e85563_ - (lambda (_form85575_ _hd85576_) - (let ((_bind85578_ + _stx85563_ + _hd85584_))) + (_expand-e85567_ + (lambda (_form85579_ _hd85580_) + (let ((_bind85582_ (if (##structure-instance-of? - _form85575_ + _form85579_ 'gx#binding::t) - _form85575_ - (gx#resolve-identifier__0 _form85575_)))) - (if (gx#core-expander-binding? _bind85578_) + _form85579_ + (gx#resolve-identifier__0 _form85579_)))) + (if (gx#core-expander-binding? _bind85582_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind85578_ + _bind85582_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd85576_ - (gx#stx-source _stx85559_))) + _hd85580_ + (gx#stx-source _stx85563_))) (if (##structure-direct-instance-of? - _bind85578_ + _bind85582_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind85578_ + _bind85582_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd85576_ - (gx#stx-source _stx85559_)))) + _hd85580_ + (gx#stx-source _stx85563_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx85559_ - _form85575_))))))) - (let ((_hd85565_ (gx#core-expand-head _stx85559_))) - (if (_sealed-expression?85561_ _hd85565_) - _hd85565_ - (if (gx#stx-pair? _hd85565_) - (let* ((_form85567_ (gx#stx-car _hd85565_)) - (_bind85569_ - (if (gx#identifier? _form85567_) - (gx#resolve-identifier__0 _form85567_) + _stx85563_ + _form85579_))))))) + (let ((_hd85569_ (gx#core-expand-head _stx85563_))) + (if (_sealed-expression?85565_ _hd85569_) + _hd85569_ + (if (gx#stx-pair? _hd85569_) + (let* ((_form85571_ (gx#stx-car _hd85569_)) + (_bind85573_ + (if (gx#identifier? _form85571_) + (gx#resolve-identifier__0 _form85571_) '#f))) - (if (or (not _bind85569_) - (not (gx#core-expander-binding? _bind85569_))) - (_expand-e85563_ '%%app (cons '%%app _hd85565_)) + (if (or (not _bind85573_) + (not (gx#core-expander-binding? _bind85573_))) + (_expand-e85567_ '%%app (cons '%%app _hd85569_)) (if (eq? (##unchecked-structure-ref - _bind85569_ + _bind85573_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd85565_ - _illegal-expression85562_) - (if (gx#expression-form-binding? _bind85569_) - (_expand-e85563_ _bind85569_ _hd85565_) + _hd85569_ + _illegal-expression85566_) + (if (gx#expression-form-binding? _bind85573_) + (_expand-e85567_ _bind85573_ _hd85569_) (if (gx#direct-special-form-binding? - _bind85569_) + _bind85573_) (gx#core-expand-expression - (_expand-e85563_ _bind85569_ _hd85565_)) - (_illegal-expression85562_ - _hd85565_)))))) - (if (gx#core-bound-identifier?__0 _hd85565_) - (_illegal-expression85562_ _hd85565_) - (if (gx#identifier? _hd85565_) - (_expand-e85563_ + (_expand-e85567_ _bind85573_ _hd85569_)) + (_illegal-expression85566_ + _hd85569_)))))) + (if (gx#core-bound-identifier?__0 _hd85569_) + (_illegal-expression85566_ _hd85569_) + (if (gx#identifier? _hd85569_) + (_expand-e85567_ '%%ref - (cons '%%ref (cons _hd85565_ '()))) - (if (gx#stx-datum? _hd85565_) - (_expand-e85563_ + (cons '%%ref (cons _hd85569_ '()))) + (if (gx#stx-datum? _hd85569_) + (_expand-e85567_ '%#quote - (cons '%#quote (cons _hd85565_ '()))) - (_illegal-expression85562_ _hd85565_)))))))))) + (cons '%#quote (cons _hd85569_ '()))) + (_illegal-expression85566_ _hd85569_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx85554_) + (lambda (_stx85558_) (call-with-parameters (lambda () - (let ((_stx85557_ (gx#core-expand-expression _stx85554_))) - (values _stx85557_ (gx#eval-syntax* _stx85557_)))) + (let ((_stx85561_ (gx#core-expand-expression _stx85558_))) + (values _stx85561_ (gx#eval-syntax* _stx85561_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_stx85535_ _stop?85536_) - (let _lp85538_ ((_stx85540_ _stx85535_)) - (if (_stop?85536_ _stx85540_) - _stx85540_ - (let ((_rstx85542_ (gx#core-expand1 _stx85540_))) - (if (eq? _stx85540_ _rstx85542_) - _stx85540_ - (_lp85538_ _rstx85542_))))))) + (lambda (_stx85539_ _stop?85540_) + (let _lp85542_ ((_stx85544_ _stx85539_)) + (if (_stop?85540_ _stx85544_) + _stx85544_ + (let ((_rstx85546_ (gx#core-expand1 _stx85544_))) + (if (eq? _stx85544_ _rstx85546_) + _stx85544_ + (_lp85542_ _rstx85546_))))))) (define gx#core-expand*__0 - (lambda (_stx85547_) - (let ((_stop?85549_ false)) - (gx#core-expand*__% _stx85547_ _stop?85549_)))) + (lambda (_stx85551_) + (let ((_stop?85553_ false)) + (gx#core-expand*__% _stx85551_ _stop?85553_)))) (define gx#core-expand* - (lambda _g86103_ - (let ((_g86102_ (##length _g86103_))) - (cond ((##fx= _g86102_ 1) - (apply (lambda (_stx85547_) (gx#core-expand*__0 _stx85547_)) - _g86103_)) - ((##fx= _g86102_ 2) - (apply (lambda (_stx85551_ _stop?85552_) - (gx#core-expand*__% _stx85551_ _stop?85552_)) - _g86103_)) + (lambda _g86107_ + (let ((_g86106_ (##length _g86107_))) + (cond ((##fx= _g86106_ 1) + (apply (lambda (_stx85551_) (gx#core-expand*__0 _stx85551_)) + _g86107_)) + ((##fx= _g86106_ 2) + (apply (lambda (_stx85555_ _stop?85556_) + (gx#core-expand*__% _stx85555_ _stop?85556_)) + _g86107_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g86103_)))))) + _g86107_)))))) (define gx#core-expand1 - (lambda (_stx85491_) - (letrec ((_step85493_ - (lambda (_hd85530_) - (let ((_bind85532_ (gx#resolve-identifier__0 _hd85530_))) + (lambda (_stx85495_) + (letrec ((_step85497_ + (lambda (_hd85534_) + (let ((_bind85536_ (gx#resolve-identifier__0 _hd85534_))) (if (##structure-instance-of? - _bind85532_ + _bind85536_ 'gx#runtime-binding::t) - _stx85491_ + _stx85495_ (if (##structure-direct-instance-of? - _bind85532_ + _bind85536_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind85532_ + _bind85536_ '4 gx#syntax-binding::t '#f) - _stx85491_) - (if (not _bind85532_) - _stx85491_ + _stx85495_) + (if (not _bind85536_) + _stx85495_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _stx85491_)))))))) - (let* ((_e8549485502_ _stx85491_) - (_E8550085506_ (lambda () _stx85491_)) - (_E8549685512_ + _stx85495_)))))))) + (let* ((_e8549885506_ _stx85495_) + (_E8550485510_ (lambda () _stx85495_)) + (_E8550085516_ (lambda () - (let ((_hd85510_ _e8549485502_)) - (if (gx#identifier? _hd85510_) - (_step85493_ _hd85510_) - (_E8550085506_))))) - (_E8549585526_ + (let ((_hd85514_ _e8549885506_)) + (if (gx#identifier? _hd85514_) + (_step85497_ _hd85514_) + (_E8550485510_))))) + (_E8549985530_ (lambda () - (if (gx#stx-pair? _e8549485502_) - (let ((_e8549785516_ (gx#syntax-e _e8549485502_))) - (let ((_hd8549885519_ (##car _e8549785516_)) - (_tl8549985521_ (##cdr _e8549785516_))) - (let ((_hd85524_ _hd8549885519_)) - (if (gx#identifier? _hd85524_) - (_step85493_ _hd85524_) - (_E8549685512_))))) - (_E8549685512_))))) - (_E8549585526_))))) + (if (gx#stx-pair? _e8549885506_) + (let ((_e8550185520_ (gx#syntax-e _e8549885506_))) + (let ((_hd8550285523_ (##car _e8550185520_)) + (_tl8550385525_ (##cdr _e8550185520_))) + (let ((_hd85528_ _hd8550285523_)) + (if (gx#identifier? _hd85528_) + (_step85497_ _hd85528_) + (_E8550085516_))))) + (_E8550085516_))))) + (_E8549985530_))))) (define gx#core-expand-head - (lambda (_stx85457_) - (letrec ((_stop?85459_ - (lambda (_stx85461_) - (let* ((_e8546285469_ _stx85461_) - (_E8546485473_ (lambda () '#f)) - (_E8546385487_ + (lambda (_stx85461_) + (letrec ((_stop?85463_ + (lambda (_stx85465_) + (let* ((_e8546685473_ _stx85465_) + (_E8546885477_ (lambda () '#f)) + (_E8546785491_ (lambda () - (if (gx#stx-pair? _e8546285469_) - (let ((_e8546585477_ - (gx#syntax-e _e8546285469_))) - (let ((_hd8546685480_ - (##car _e8546585477_)) - (_tl8546785482_ - (##cdr _e8546585477_))) - (let ((_hd85485_ _hd8546685480_)) + (if (gx#stx-pair? _e8546685473_) + (let ((_e8546985481_ + (gx#syntax-e _e8546685473_))) + (let ((_hd8547085484_ + (##car _e8546985481_)) + (_tl8547185486_ + (##cdr _e8546985481_))) + (let ((_hd85489_ _hd8547085484_)) (if '#t (gx#core-bound-identifier?__0 - _hd85485_) - (_E8546485473_))))) - (_E8546485473_))))) - (_E8546385487_))))) - (gx#core-expand*__% _stx85457_ _stop?85459_)))) + _hd85489_) + (_E8546885477_))))) + (_E8546885477_))))) + (_E8546785491_))))) + (gx#core-expand*__% _stx85461_ _stop?85463_)))) (define gx#core-expand-block__% - (lambda (_stx85263_ - _expand-special85264_ - _begin-form85265_ - _expand-e85266_) - (letrec ((_expand-splice85268_ - (lambda (_hd85431_ _body85432_ _rest85433_ _r85434_) - (if (gx#stx-list? _body85432_) - (_K85272_ - (gx#stx-foldr cons _rest85433_ _body85432_) - _r85434_) + (lambda (_stx85267_ + _expand-special85268_ + _begin-form85269_ + _expand-e85270_) + (letrec ((_expand-splice85272_ + (lambda (_hd85435_ _body85436_ _rest85437_ _r85438_) + (if (gx#stx-list? _body85436_) + (_K85276_ + (gx#stx-foldr cons _rest85437_ _body85436_) + _r85438_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _stx85263_ - _hd85431_)))) - (_expand-cond-expand85269_ - (lambda (_hd85427_ _rest85428_ _r85429_) - (_K85272_ - (cons (gx#core-expand-cond-expand% _hd85427_) _rest85428_) - _r85429_))) - (_expand-include85270_ - (lambda (_hd85376_ _rest85377_ _r85378_) - (let* ((_e8537985389_ _hd85376_) - (_E8538185393_ + _stx85267_ + _hd85435_)))) + (_expand-cond-expand85273_ + (lambda (_hd85431_ _rest85432_ _r85433_) + (_K85276_ + (cons (gx#core-expand-cond-expand% _hd85431_) _rest85432_) + _r85433_))) + (_expand-include85274_ + (lambda (_hd85380_ _rest85381_ _r85382_) + (let* ((_e8538385393_ _hd85380_) + (_E8538585397_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8537985389_))) - (_E8538085423_ + _e8538385393_))) + (_E8538485427_ (lambda () - (if (gx#stx-pair? _e8537985389_) - (let ((_e8538285397_ - (gx#syntax-e _e8537985389_))) - (let ((_hd8538385400_ - (##car _e8538285397_)) - (_tl8538485402_ - (##cdr _e8538285397_))) - (if (gx#stx-pair? _tl8538485402_) - (let ((_e8538585405_ - (gx#syntax-e _tl8538485402_))) - (let ((_hd8538685408_ - (##car _e8538585405_)) - (_tl8538785410_ - (##cdr _e8538585405_))) - (let ((_path85413_ - _hd8538685408_)) + (if (gx#stx-pair? _e8538385393_) + (let ((_e8538685401_ + (gx#syntax-e _e8538385393_))) + (let ((_hd8538785404_ + (##car _e8538685401_)) + (_tl8538885406_ + (##cdr _e8538685401_))) + (if (gx#stx-pair? _tl8538885406_) + (let ((_e8538985409_ + (gx#syntax-e _tl8538885406_))) + (let ((_hd8539085412_ + (##car _e8538985409_)) + (_tl8539185414_ + (##cdr _e8538985409_))) + (let ((_path85417_ + _hd8539085412_)) (if (gx#stx-null? - _tl8538785410_) + _tl8539185414_) (if (gx#stx-string? - _path85413_) - (let* ((_rpath85415_ + _path85417_) + (let* ((_rpath85419_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path85413_ - (gx#stx-source _hd85376_))) - (_block85417_ - (gx#core-expand-include%__% _hd85376_ _rpath85415_)) - (_rbody85420_ + _path85417_ + (gx#stx-source _hd85380_))) + (_block85421_ + (gx#core-expand-include%__% _hd85380_ _rpath85419_)) + (_rbody85424_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block85417_ - _expand-special85264_ + _block85421_ + _expand-special85268_ '#f - _expand-e85266_)) + _expand-e85270_)) gx#current-expander-path - (cons _rpath85415_ (gx#current-expander-path))))) - (_K85272_ _rest85377_ (foldr1 cons _r85378_ _rbody85420_))) - (_E8538185393_)) + (cons _rpath85419_ (gx#current-expander-path))))) + (_K85276_ _rest85381_ (foldr1 cons _r85382_ _rbody85424_))) + (_E8538585397_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8538185393_))))) - (_E8538185393_)))) - (_E8538185393_))))) - (_E8538085423_)))) - (_expand-expression85271_ - (lambda (_hd85372_ _rest85373_ _r85374_) - (_K85272_ - _rest85373_ - (cons (_expand-e85266_ _hd85372_) _r85374_)))) - (_K85272_ - (lambda (_rest85302_ _r85303_) - (let* ((_e8530485311_ _rest85302_) - (_E8530685315_ + (_E8538585397_))))) + (_E8538585397_)))) + (_E8538585397_))))) + (_E8538485427_)))) + (_expand-expression85275_ + (lambda (_hd85376_ _rest85377_ _r85378_) + (_K85276_ + _rest85377_ + (cons (_expand-e85270_ _hd85376_) _r85378_)))) + (_K85276_ + (lambda (_rest85306_ _r85307_) + (let* ((_e8530885315_ _rest85306_) + (_E8531085319_ (lambda () - (if _begin-form85265_ + (if _begin-form85269_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form85265_ - (reverse _r85303_)) - (gx#stx-source _stx85263_)) - _r85303_))) - (_E8530585368_ + _begin-form85269_ + (reverse _r85307_)) + (gx#stx-source _stx85267_)) + _r85307_))) + (_E8530985372_ (lambda () - (if (gx#stx-pair? _e8530485311_) - (let ((_e8530785319_ - (gx#syntax-e _e8530485311_))) - (let ((_hd8530885322_ - (##car _e8530785319_)) - (_tl8530985324_ - (##cdr _e8530785319_))) - (let* ((_hd85327_ _hd8530885322_) - (_rest85329_ _tl8530985324_)) + (if (gx#stx-pair? _e8530885315_) + (let ((_e8531185323_ + (gx#syntax-e _e8530885315_))) + (let ((_hd8531285326_ + (##car _e8531185323_)) + (_tl8531385328_ + (##cdr _e8531185323_))) + (let* ((_hd85331_ _hd8531285326_) + (_rest85333_ _tl8531385328_)) (if '#t - (let* ((_hd85331_ + (let* ((_hd85335_ (gx#core-expand-head - _hd85327_)) - (_e8533285339_ _hd85331_) - (_E8533485343_ + _hd85331_)) + (_e8533685343_ _hd85335_) + (_E8533885347_ (lambda () - (_expand-expression85271_ - _hd85331_ - _rest85329_ - _r85303_))) - (_E8533385364_ + (_expand-expression85275_ + _hd85335_ + _rest85333_ + _r85307_))) + (_E8533785368_ (lambda () (if (gx#stx-pair? - _e8533285339_) - (let ((_e8533585347_ + _e8533685343_) + (let ((_e8533985351_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8533285339_))) - (let ((_hd8533685350_ (##car _e8533585347_)) - (_tl8533785352_ (##cdr _e8533585347_))) - (let* ((_form85355_ _hd8533685350_) - (_body85357_ _tl8533785352_)) + (gx#syntax-e _e8533685343_))) + (let ((_hd8534085354_ (##car _e8533985351_)) + (_tl8534185356_ (##cdr _e8533985351_))) + (let* ((_form85359_ _hd8534085354_) + (_body85361_ _tl8534185356_)) (if '#t - (let ((_bind85359_ - (if (gx#identifier? _form85355_) - (gx#resolve-identifier__0 _form85355_) + (let ((_bind85363_ + (if (gx#identifier? _form85359_) + (gx#resolve-identifier__0 _form85359_) '#f))) - (if (gx#special-form-binding? _bind85359_) - (let ((_$e85361_ + (if (gx#special-form-binding? _bind85363_) + (let ((_$e85365_ (##unchecked-structure-ref - _bind85359_ + _bind85363_ '1 gx#binding::t '#f))) - (if (eq? '%#begin _$e85361_) - (_expand-splice85268_ - _hd85331_ - _body85357_ - _rest85329_ - _r85303_) - (if (eq? '%#cond-expand _$e85361_) - (_expand-cond-expand85269_ - _hd85331_ - _rest85329_ - _r85303_) - (if (eq? '%#include _$e85361_) - (_expand-include85270_ - _hd85331_ - _rest85329_ - _r85303_) - (_expand-special85264_ - _hd85331_ - _K85272_ - _rest85329_ - _r85303_))))) - (_expand-expression85271_ - _hd85331_ - _rest85329_ - _r85303_))) - (_E8533485343_))))) - (_E8533485343_))))) + (if (eq? '%#begin _$e85365_) + (_expand-splice85272_ + _hd85335_ + _body85361_ + _rest85333_ + _r85307_) + (if (eq? '%#cond-expand _$e85365_) + (_expand-cond-expand85273_ + _hd85335_ + _rest85333_ + _r85307_) + (if (eq? '%#include _$e85365_) + (_expand-include85274_ + _hd85335_ + _rest85333_ + _r85307_) + (_expand-special85268_ + _hd85335_ + _K85276_ + _rest85333_ + _r85307_))))) + (_expand-expression85275_ + _hd85335_ + _rest85333_ + _r85307_))) + (_E8533885347_))))) + (_E8533885347_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8533385364_)) - (_E8530685315_))))) - (_E8530685315_))))) - (_E8530585368_))))) - (let* ((_e8527385280_ _stx85263_) - (_E8527585284_ + (_E8533785368_)) + (_E8531085319_))))) + (_E8531085319_))))) + (_E8530985372_))))) + (let* ((_e8527785284_ _stx85267_) + (_E8527985288_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8527385280_))) - (_E8527485298_ + _e8527785284_))) + (_E8527885302_ (lambda () - (if (gx#stx-pair? _e8527385280_) - (let ((_e8527685288_ (gx#syntax-e _e8527385280_))) - (let ((_hd8527785291_ (##car _e8527685288_)) - (_tl8527885293_ (##cdr _e8527685288_))) - (let ((_body85296_ _tl8527885293_)) - (if (gx#stx-list? _body85296_) - (_K85272_ _body85296_ '()) - (_E8527585284_))))) - (_E8527585284_))))) - (_E8527485298_))))) + (if (gx#stx-pair? _e8527785284_) + (let ((_e8528085292_ (gx#syntax-e _e8527785284_))) + (let ((_hd8528185295_ (##car _e8528085292_)) + (_tl8528285297_ (##cdr _e8528085292_))) + (let ((_body85300_ _tl8528285297_)) + (if (gx#stx-list? _body85300_) + (_K85276_ _body85300_ '()) + (_E8527985288_))))) + (_E8527985288_))))) + (_E8527885302_))))) (define gx#core-expand-block__0 - (lambda (_stx85439_ _expand-special85440_) - (let* ((_begin-form85442_ '%#begin) - (_expand-e85444_ gx#core-expand-expression)) + (lambda (_stx85443_ _expand-special85444_) + (let* ((_begin-form85446_ '%#begin) + (_expand-e85448_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx85439_ - _expand-special85440_ - _begin-form85442_ - _expand-e85444_)))) + _stx85443_ + _expand-special85444_ + _begin-form85446_ + _expand-e85448_)))) (define gx#core-expand-block__1 - (lambda (_stx85446_ _expand-special85447_ _begin-form85448_) - (let ((_expand-e85450_ gx#core-expand-expression)) + (lambda (_stx85450_ _expand-special85451_ _begin-form85452_) + (let ((_expand-e85454_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx85446_ - _expand-special85447_ - _begin-form85448_ - _expand-e85450_)))) + _stx85450_ + _expand-special85451_ + _begin-form85452_ + _expand-e85454_)))) (define gx#core-expand-block - (lambda _g86105_ - (let ((_g86104_ (##length _g86105_))) - (cond ((##fx= _g86104_ 2) - (apply (lambda (_stx85439_ _expand-special85440_) + (lambda _g86109_ + (let ((_g86108_ (##length _g86109_))) + (cond ((##fx= _g86108_ 2) + (apply (lambda (_stx85443_ _expand-special85444_) (gx#core-expand-block__0 - _stx85439_ - _expand-special85440_)) - _g86105_)) - ((##fx= _g86104_ 3) - (apply (lambda (_stx85446_ - _expand-special85447_ - _begin-form85448_) + _stx85443_ + _expand-special85444_)) + _g86109_)) + ((##fx= _g86108_ 3) + (apply (lambda (_stx85450_ + _expand-special85451_ + _begin-form85452_) (gx#core-expand-block__1 - _stx85446_ - _expand-special85447_ - _begin-form85448_)) - _g86105_)) - ((##fx= _g86104_ 4) - (apply (lambda (_stx85452_ - _expand-special85453_ - _begin-form85454_ - _expand-e85455_) + _stx85450_ + _expand-special85451_ + _begin-form85452_)) + _g86109_)) + ((##fx= _g86108_ 4) + (apply (lambda (_stx85456_ + _expand-special85457_ + _begin-form85458_ + _expand-e85459_) (gx#core-expand-block__% - _stx85452_ - _expand-special85453_ - _begin-form85454_ - _expand-e85455_)) - _g86105_)) + _stx85456_ + _expand-special85457_ + _begin-form85458_ + _expand-e85459_)) + _g86109_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g86105_)))))) + _g86109_)))))) (define gx#core-expand-block* - (lambda (_stx85211_ _expand-special85212_) - (let* ((_g8521385224_ - (gx#core-expand-block__1 _stx85211_ _expand-special85212_ '#f)) - (_E8521785228_ - (lambda () (error '"No clause matching" _g8521385224_)))) - (let ((_K8522285259_ + (lambda (_stx85215_ _expand-special85216_) + (let* ((_g8521785228_ + (gx#core-expand-block__1 _stx85215_ _expand-special85216_ '#f)) + (_E8522185232_ + (lambda () (error '"No clause matching" _g8521785228_)))) + (let ((_K8522685263_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx85211_))) - (_K8521985245_ (lambda (_expr85243_) _expr85243_)) - (_K8521885234_ - (lambda (_body85232_) + _stx85215_))) + (_K8522385249_ (lambda (_expr85247_) _expr85247_)) + (_K8522285238_ + (lambda (_body85236_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body85232_)) - (gx#stx-source _stx85211_))))) - (let ((_try-match8521585255_ + (gx#core-cons '%#begin (reverse _body85236_)) + (gx#stx-source _stx85215_))))) + (let ((_try-match8521985259_ (lambda () - (if (##pair? _g8521385224_) - (let ((_tl8522185250_ (##cdr _g8521385224_)) - (_hd8522085248_ (##car _g8521385224_))) - (if (##null? _tl8522185250_) - (let ((_expr85253_ _hd8522085248_)) - (_K8521985245_ _expr85253_)) - (let ((_body85237_ _g8521385224_)) - (_K8521885234_ _body85237_)))) - (let ((_body85237_ _g8521385224_)) - (_K8521885234_ _body85237_)))))) - (if (##null? _g8521385224_) - (_K8522285259_) - (_try-match8521585255_))))))) + (if (##pair? _g8521785228_) + (let ((_tl8522585254_ (##cdr _g8521785228_)) + (_hd8522485252_ (##car _g8521785228_))) + (if (##null? _tl8522585254_) + (let ((_expr85257_ _hd8522485252_)) + (_K8522385249_ _expr85257_)) + (let ((_body85241_ _g8521785228_)) + (_K8522285238_ _body85241_)))) + (let ((_body85241_ _g8521785228_)) + (_K8522285238_ _body85241_)))))) + (if (##null? _g8521785228_) + (_K8522685263_) + (_try-match8521985259_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx85039_) - (letrec ((_satisfied?85041_ - (lambda (_condition85139_) - (let* ((_e8514085155_ _condition85139_) - (_E8515085159_ + (lambda (_stx85043_) + (letrec ((_satisfied?85045_ + (lambda (_condition85143_) + (let* ((_e8514485159_ _condition85143_) + (_E8515485163_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8514085155_))) - (_E8514385178_ + _e8514485159_))) + (_E8514785182_ (lambda () - (if (gx#stx-pair? _e8514085155_) - (let ((_e8515185163_ - (gx#syntax-e _e8514085155_))) - (let ((_hd8515285166_ - (##car _e8515185163_)) - (_tl8515385168_ - (##cdr _e8515185163_))) - (let* ((_combinator85171_ _hd8515285166_) - (_body85173_ _tl8515385168_)) - (if (gx#stx-list? _body85173_) - (let ((_$e85175_ + (if (gx#stx-pair? _e8514485159_) + (let ((_e8515585167_ + (gx#syntax-e _e8514485159_))) + (let ((_hd8515685170_ + (##car _e8515585167_)) + (_tl8515785172_ + (##cdr _e8515585167_))) + (let* ((_combinator85175_ _hd8515685170_) + (_body85177_ _tl8515785172_)) + (if (gx#stx-list? _body85177_) + (let ((_$e85179_ (gx#stx-e - _combinator85171_))) - (if (eq? 'not _$e85175_) + _combinator85175_))) + (if (eq? 'not _$e85179_) (not (gx#stx-ormap - _satisfied?85041_ - _body85173_)) - (if (eq? 'and _$e85175_) + _satisfied?85045_ + _body85177_)) + (if (eq? 'and _$e85179_) (gx#stx-andmap - _satisfied?85041_ - _body85173_) - (if (eq? 'or _$e85175_) + _satisfied?85045_ + _body85177_) + (if (eq? 'or _$e85179_) (gx#stx-ormap - _satisfied?85041_ - _body85173_) + _satisfied?85045_ + _body85177_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e85175_) - (gx#stx-andmap gx#core-resolve-identifier _body85173_) + _$e85179_) + (gx#stx-andmap gx#core-resolve-identifier _body85177_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _stx85039_ - _combinator85171_)))))) + _stx85043_ + _combinator85175_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8515085159_))))) - (_E8515085159_)))) - (_E8514285201_ + (_E8515485163_))))) + (_E8515485163_)))) + (_E8514685205_ (lambda () - (if (gx#stx-pair? _e8514085155_) - (let ((_e8514485182_ - (gx#syntax-e _e8514085155_))) - (let ((_hd8514585185_ - (##car _e8514485182_)) - (_tl8514685187_ - (##cdr _e8514485182_))) - (if (and (gx#identifier? _hd8514585185_) + (if (gx#stx-pair? _e8514485159_) + (let ((_e8514885186_ + (gx#syntax-e _e8514485159_))) + (let ((_hd8514985189_ + (##car _e8514885186_)) + (_tl8515085191_ + (##cdr _e8514885186_))) + (if (and (gx#identifier? _hd8514985189_) (gx#core-identifier=? - _hd8514585185_ + _hd8514985189_ 'unquote)) - (if (gx#stx-pair? _tl8514685187_) - (let ((_e8514785190_ + (if (gx#stx-pair? _tl8515085191_) + (let ((_e8515185194_ (gx#syntax-e - _tl8514685187_))) - (let ((_hd8514885193_ - (##car _e8514785190_)) - (_tl8514985195_ - (##cdr _e8514785190_))) - (let ((_expr85198_ - _hd8514885193_)) + _tl8515085191_))) + (let ((_hd8515285197_ + (##car _e8515185194_)) + (_tl8515385199_ + (##cdr _e8515185194_))) + (let ((_expr85202_ + _hd8515285197_)) (if (gx#stx-null? - _tl8514985195_) + _tl8515385199_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr85198_)) + _expr85202_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E8514385178_)) - (_E8514385178_))))) + (_E8514785182_)) + (_E8514785182_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8514385178_)) - (_E8514385178_)))) - (_E8514385178_)))) - (_E8514185207_ + (_E8514785182_)) + (_E8514785182_)))) + (_E8514785182_)))) + (_E8514585211_ (lambda () - (let ((_id85205_ _e8514085155_)) - (if (gx#identifier? _id85205_) + (let ((_id85209_ _e8514485159_)) + (if (gx#identifier? _id85209_) (gx#core-bound-identifier?__% - _id85205_ + _id85209_ gx#feature-binding?) - (_E8514285201_)))))) - (_E8514185207_)))) - (_loop85042_ - (lambda (_rest85072_) - (let* ((_e8507385081_ _rest85072_) - (_E8507985085_ + (_E8514685205_)))))) + (_E8514585211_)))) + (_loop85046_ + (lambda (_rest85076_) + (let* ((_e8507785085_ _rest85076_) + (_E8508385089_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8507385081_))) - (_E8507585089_ + _e8507785085_))) + (_E8507985093_ (lambda () - (if (gx#stx-null? _e8507385081_) - (if '#t '() (_E8507985085_)) - (_E8507985085_)))) - (_E8507485135_ + (if (gx#stx-null? _e8507785085_) + (if '#t '() (_E8508385089_)) + (_E8508385089_)))) + (_E8507885139_ (lambda () - (if (gx#stx-pair? _e8507385081_) - (let ((_e8507685093_ - (gx#syntax-e _e8507385081_))) - (let ((_hd8507785096_ - (##car _e8507685093_)) - (_tl8507885098_ - (##cdr _e8507685093_))) - (let* ((_hd85101_ _hd8507785096_) - (_rest85103_ _tl8507885098_)) + (if (gx#stx-pair? _e8507785085_) + (let ((_e8508085097_ + (gx#syntax-e _e8507785085_))) + (let ((_hd8508185100_ + (##car _e8508085097_)) + (_tl8508285102_ + (##cdr _e8508085097_))) + (let* ((_hd85105_ _hd8508185100_) + (_rest85107_ _tl8508285102_)) (if '#t - (let* ((_e8510485111_ _hd85101_) - (_E8510685115_ + (let* ((_e8510885115_ _hd85105_) + (_E8511085119_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8510485111_))) - (_E8510585131_ + _e8510885115_))) + (_E8510985135_ (lambda () (if (gx#stx-pair? - _e8510485111_) - (let ((_e8510785119_ + _e8510885115_) + (let ((_e8511185123_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8510485111_))) - (let ((_hd8510885122_ (##car _e8510785119_)) - (_tl8510985124_ (##cdr _e8510785119_))) - (let* ((_condition85127_ _hd8510885122_) - (_body85129_ _tl8510985124_)) + (gx#syntax-e _e8510885115_))) + (let ((_hd8511285126_ (##car _e8511185123_)) + (_tl8511385128_ (##cdr _e8511185123_))) + (let* ((_condition85131_ _hd8511285126_) + (_body85133_ _tl8511385128_)) (if '#t - (if (gx#stx-eq? _condition85127_ 'else) - (if (gx#stx-null? _rest85103_) - _body85129_ + (if (gx#stx-eq? _condition85131_ 'else) + (if (gx#stx-null? _rest85107_) + _body85133_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _stx85039_ - _hd85101_)) - (if (_satisfied?85041_ _condition85127_) - _body85129_ - (_loop85042_ _rest85103_))) - (_E8510685115_))))) - (_E8510685115_))))) + _stx85043_ + _hd85105_)) + (if (_satisfied?85045_ _condition85131_) + _body85133_ + (_loop85046_ _rest85107_))) + (_E8511085119_))))) + (_E8511085119_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8510585131_)) - (_E8507585089_))))) - (_E8507585089_))))) - (_E8507485135_))))) - (let* ((_e8504385050_ _stx85039_) - (_E8504585054_ + (_E8510985135_)) + (_E8507985093_))))) + (_E8507985093_))))) + (_E8507885139_))))) + (let* ((_e8504785054_ _stx85043_) + (_E8504985058_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8504385050_))) - (_E8504485068_ + _e8504785054_))) + (_E8504885072_ (lambda () - (if (gx#stx-pair? _e8504385050_) - (let ((_e8504685058_ (gx#syntax-e _e8504385050_))) - (let ((_hd8504785061_ (##car _e8504685058_)) - (_tl8504885063_ (##cdr _e8504685058_))) - (let ((_clauses85066_ _tl8504885063_)) - (if (gx#stx-list? _clauses85066_) + (if (gx#stx-pair? _e8504785054_) + (let ((_e8505085062_ (gx#syntax-e _e8504785054_))) + (let ((_hd8505185065_ (##car _e8505085062_)) + (_tl8505285067_ (##cdr _e8505085062_))) + (let ((_clauses85070_ _tl8505285067_)) + (if (gx#stx-list? _clauses85070_) (gx#core-cons 'begin - (_loop85042_ _clauses85066_)) - (_E8504585054_))))) - (_E8504585054_))))) - (_E8504485068_))))) + (_loop85046_ _clauses85070_)) + (_E8504985058_))))) + (_E8504985058_))))) + (_E8504885072_))))) (define gx#core-expand-include%__% - (lambda (_stx84982_ _rpath84983_) - (let* ((_e8498484994_ _stx84982_) - (_E8498684998_ + (lambda (_stx84986_ _rpath84987_) + (let* ((_e8498884998_ _stx84986_) + (_E8499085002_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8498484994_))) - (_E8498585025_ + _e8498884998_))) + (_E8498985029_ (lambda () - (if (gx#stx-pair? _e8498484994_) - (let ((_e8498785002_ (gx#syntax-e _e8498484994_))) - (let ((_hd8498885005_ (##car _e8498785002_)) - (_tl8498985007_ (##cdr _e8498785002_))) - (if (gx#stx-pair? _tl8498985007_) - (let ((_e8499085010_ - (gx#syntax-e _tl8498985007_))) - (let ((_hd8499185013_ (##car _e8499085010_)) - (_tl8499285015_ (##cdr _e8499085010_))) - (let ((_path85018_ _hd8499185013_)) - (if (gx#stx-null? _tl8499285015_) - (if (gx#stx-string? _path85018_) - (let ((_rpath85023_ - (let ((_$e85020_ - _rpath84983_)) - (if _$e85020_ - _$e85020_ + (if (gx#stx-pair? _e8498884998_) + (let ((_e8499185006_ (gx#syntax-e _e8498884998_))) + (let ((_hd8499285009_ (##car _e8499185006_)) + (_tl8499385011_ (##cdr _e8499185006_))) + (if (gx#stx-pair? _tl8499385011_) + (let ((_e8499485014_ + (gx#syntax-e _tl8499385011_))) + (let ((_hd8499585017_ (##car _e8499485014_)) + (_tl8499685019_ (##cdr _e8499485014_))) + (let ((_path85022_ _hd8499585017_)) + (if (gx#stx-null? _tl8499685019_) + (if (gx#stx-string? _path85022_) + (let ((_rpath85027_ + (let ((_$e85024_ + _rpath84987_)) + (if _$e85024_ + _$e85024_ (gx#core-resolve-path__% - _path85018_ + _path85022_ (gx#stx-source - _stx84982_)))))) - (if (member _rpath85023_ + _stx84986_)))))) + (if (member _rpath85027_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx84982_) + _stx84986_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath85023_)) + _rpath85027_)) (gx#stx-source - _stx84982_))))) - (_E8498684998_)) - (_E8498684998_))))) - (_E8498684998_)))) - (_E8498684998_))))) - (_E8498585025_)))) + _stx84986_))))) + (_E8499085002_)) + (_E8499085002_))))) + (_E8499085002_)))) + (_E8499085002_))))) + (_E8498985029_)))) (define gx#core-expand-include%__0 - (lambda (_stx85032_) - (let ((_rpath85034_ '#f)) - (gx#core-expand-include%__% _stx85032_ _rpath85034_)))) + (lambda (_stx85036_) + (let ((_rpath85038_ '#f)) + (gx#core-expand-include%__% _stx85036_ _rpath85038_)))) (define gx#core-expand-include% - (lambda _g86107_ - (let ((_g86106_ (##length _g86107_))) - (cond ((##fx= _g86106_ 1) - (apply (lambda (_stx85032_) - (gx#core-expand-include%__0 _stx85032_)) - _g86107_)) - ((##fx= _g86106_ 2) - (apply (lambda (_stx85036_ _rpath85037_) - (gx#core-expand-include%__% _stx85036_ _rpath85037_)) - _g86107_)) + (lambda _g86111_ + (let ((_g86110_ (##length _g86111_))) + (cond ((##fx= _g86110_ 1) + (apply (lambda (_stx85036_) + (gx#core-expand-include%__0 _stx85036_)) + _g86111_)) + ((##fx= _g86110_ 2) + (apply (lambda (_stx85040_ _rpath85041_) + (gx#core-expand-include%__% _stx85040_ _rpath85041_)) + _g86111_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g86107_)))))) + _g86111_)))))) (define gx#core-apply-expander__% - (lambda (_K84951_ _stx84952_ _method84953_) - (if (procedure? _K84951_) - (let ((_$e84955_ (gx#stx-source _stx84952_))) - (if _$e84955_ - ((lambda (_g8495784959_) - (gx#stx-wrap-source (_K84951_ _stx84952_) _g8495784959_)) - _$e84955_) - (_K84951_ _stx84952_))) - (let ((_$e84962_ (bound-method-ref _K84951_ _method84953_))) - (if _$e84962_ - ((lambda (_g8496484966_) + (lambda (_K84955_ _stx84956_ _method84957_) + (if (procedure? _K84955_) + (let ((_$e84959_ (gx#stx-source _stx84956_))) + (if _$e84959_ + ((lambda (_g8496184963_) + (gx#stx-wrap-source (_K84955_ _stx84956_) _g8496184963_)) + _$e84959_) + (_K84955_ _stx84956_))) + (let ((_$e84966_ (bound-method-ref _K84955_ _method84957_))) + (if _$e84966_ + ((lambda (_g8496884970_) (gx#core-apply-expander__% - _g8496484966_ - _stx84952_ - _method84953_)) - _$e84962_) + _g8496884970_ + _stx84956_ + _method84957_)) + _$e84966_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _stx84952_ - _method84953_)))))) + _stx84956_ + _method84957_)))))) (define gx#core-apply-expander__0 - (lambda (_K84972_ _stx84973_) - (let ((_method84975_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K84972_ _stx84973_ _method84975_)))) + (lambda (_K84976_ _stx84977_) + (let ((_method84979_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K84976_ _stx84977_ _method84979_)))) (define gx#core-apply-expander - (lambda _g86109_ - (let ((_g86108_ (##length _g86109_))) - (cond ((##fx= _g86108_ 2) - (apply (lambda (_K84972_ _stx84973_) - (gx#core-apply-expander__0 _K84972_ _stx84973_)) - _g86109_)) - ((##fx= _g86108_ 3) - (apply (lambda (_K84977_ _stx84978_ _method84979_) + (lambda _g86113_ + (let ((_g86112_ (##length _g86113_))) + (cond ((##fx= _g86112_ 2) + (apply (lambda (_K84976_ _stx84977_) + (gx#core-apply-expander__0 _K84976_ _stx84977_)) + _g86113_)) + ((##fx= _g86112_ 3) + (apply (lambda (_K84981_ _stx84982_ _method84983_) (gx#core-apply-expander__% - _K84977_ - _stx84978_ - _method84979_)) - _g86109_)) + _K84981_ + _stx84982_ + _method84983_)) + _g86113_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g86109_)))))) + _g86113_)))))) (define gx#expander::apply-macro-expander - (lambda (_self84947_ _stx84948_) + (lambda (_self84951_ _stx84952_) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _stx84948_))) + _stx84952_))) (bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self84800_ _stx84801_) - (let* ((_self8480284808_ _self84800_) - (_E8480484812_ - (lambda () (error '"No clause matching" _self8480284808_))) - (_K8480584817_ - (lambda (_K84815_) - (gx#core-apply-expander__0 _K84815_ _stx84801_)))) - (if (##structure-instance-of? _self8480284808_ 'gx#core-macro::t) - (let* ((_e8480684820_ + (lambda (_self84804_ _stx84805_) + (let* ((_self8480684812_ _self84804_) + (_E8480884816_ + (lambda () (error '"No clause matching" _self8480684812_))) + (_K8480984821_ + (lambda (_K84819_) + (gx#core-apply-expander__0 _K84819_ _stx84805_)))) + (if (##structure-instance-of? _self8480684812_ 'gx#core-macro::t) + (let* ((_e8481084824_ (##unchecked-structure-ref - _self8480284808_ + _self8480684812_ '1 gx#expander::t '#f)) - (_K84823_ _e8480684820_)) - (_K8480584817_ _K84823_)) - (_E8480484812_))))) + (_K84827_ _e8481084824_)) + (_K8480984821_ _K84827_)) + (_E8480884816_))))) (bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self84653_ _stx84654_) - (if (gx#sealed-syntax? _stx84654_) - _stx84654_ - (let* ((_self8465584661_ _self84653_) - (_E8465784665_ - (lambda () (error '"No clause matching" _self8465584661_))) - (_K8465884670_ - (lambda (_K84668_) - (gx#core-apply-expander__0 _K84668_ _stx84654_)))) + (lambda (_self84657_ _stx84658_) + (if (gx#sealed-syntax? _stx84658_) + _stx84658_ + (let* ((_self8465984665_ _self84657_) + (_E8466184669_ + (lambda () (error '"No clause matching" _self8465984665_))) + (_K8466284674_ + (lambda (_K84672_) + (gx#core-apply-expander__0 _K84672_ _stx84658_)))) (if (##structure-instance-of? - _self8465584661_ + _self8465984665_ 'gx#core-expander::t) - (let* ((_e8465984673_ + (let* ((_e8466384677_ (##unchecked-structure-ref - _self8465584661_ + _self8465984665_ '1 gx#expander::t '#f)) - (_K84676_ _e8465984673_)) - (_K8465884670_ _K84676_)) - (_E8465784665_)))))) + (_K84680_ _e8466384677_)) + (_K8466284674_ _K84680_)) + (_E8466184669_)))))) (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 (_self84515_ _stx84516_ _top?84517_) - (if (_top?84517_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self84515_ _stx84516_) + (lambda (_self84519_ _stx84520_ _top?84521_) + (if (_top?84521_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self84519_ _stx84520_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx84516_)))) + _stx84520_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self84522_ _stx84523_) - (let ((_top?84525_ gx#top-context?)) + (lambda (_self84526_ _stx84527_) + (let ((_top?84529_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self84522_ - _stx84523_ - _top?84525_)))) + _self84526_ + _stx84527_ + _top?84529_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g86111_ - (let ((_g86110_ (##length _g86111_))) - (cond ((##fx= _g86110_ 2) - (apply (lambda (_self84522_ _stx84523_) + (lambda _g86115_ + (let ((_g86114_ (##length _g86115_))) + (cond ((##fx= _g86114_ 2) + (apply (lambda (_self84526_ _stx84527_) (gx#top-special-form::apply-macro-expander__0 - _self84522_ - _stx84523_)) - _g86111_)) - ((##fx= _g86110_ 3) - (apply (lambda (_self84527_ _stx84528_ _top?84529_) + _self84526_ + _stx84527_)) + _g86115_)) + ((##fx= _g86114_ 3) + (apply (lambda (_self84531_ _stx84532_ _top?84533_) (gx#top-special-form::apply-macro-expander__% - _self84527_ - _stx84528_ - _top?84529_)) - _g86111_)) + _self84531_ + _stx84532_ + _top?84533_)) + _g86115_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g86111_)))))) + _g86115_)))))) (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 (_self84389_ _stx84390_) + (lambda (_self84393_ _stx84394_) (gx#top-special-form::apply-macro-expander__% - _self84389_ - _stx84390_ + _self84393_ + _stx84394_ gx#module-context?))) (bind-method!__% gx#module-special-form::t @@ -2266,132 +2266,132 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_self84214_ _stx84215_) - (let* ((_self8421684222_ _self84214_) - (_E8421884226_ - (lambda () (error '"No clause matching" _self8421684222_))) - (_K8421984259_ - (lambda (_id84229_) - (let* ((_e8423084237_ _stx84215_) - (_E8423284241_ + (lambda (_self84218_ _stx84219_) + (let* ((_self8422084226_ _self84218_) + (_E8422284230_ + (lambda () (error '"No clause matching" _self8422084226_))) + (_K8422384263_ + (lambda (_id84233_) + (let* ((_e8423484241_ _stx84219_) + (_E8423684245_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8423084237_))) - (_E8423184255_ + _e8423484241_))) + (_E8423584259_ (lambda () - (if (gx#stx-pair? _e8423084237_) - (let ((_e8423384245_ - (gx#syntax-e _e8423084237_))) - (let ((_hd8423484248_ (##car _e8423384245_)) - (_tl8423584250_ (##cdr _e8423384245_))) - (let ((_body84253_ _tl8423584250_)) + (if (gx#stx-pair? _e8423484241_) + (let ((_e8423784249_ + (gx#syntax-e _e8423484241_))) + (let ((_hd8423884252_ (##car _e8423784249_)) + (_tl8423984254_ (##cdr _e8423784249_))) + (let ((_body84257_ _tl8423984254_)) (if '#t - (gx#core-cons _id84229_ _body84253_) - (_E8423284241_))))) - (_E8423284241_))))) - (_E8423184255_))))) + (gx#core-cons _id84233_ _body84257_) + (_E8423684245_))))) + (_E8423684245_))))) + (_E8423584259_))))) (if (##structure-instance-of? - _self8421684222_ + _self8422084226_ 'gx#rename-macro-expander::t) - (let* ((_e8422084262_ + (let* ((_e8422484266_ (##unchecked-structure-ref - _self8421684222_ + _self8422084226_ '1 gx#expander::t '#f)) - (_id84265_ _e8422084262_)) - (_K8421984259_ _id84265_)) - (_E8421884226_))))) + (_id84269_ _e8422484266_)) + (_K8422384263_ _id84269_)) + (_E8422284230_))))) (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 (_self84040_ _stx84041_ _method84042_) - (let* ((_self8404384051_ _self84040_) - (_E8404584055_ - (lambda () (error '"No clause matching" _self8404384051_))) - (_K8404684062_ - (lambda (_phi84058_ _ctx84059_ _K84060_) + (lambda (_self84044_ _stx84045_ _method84046_) + (let* ((_self8404784055_ _self84044_) + (_E8404984059_ + (lambda () (error '"No clause matching" _self8404784055_))) + (_K8405084066_ + (lambda (_phi84062_ _ctx84063_ _K84064_) (gx#core-apply-user-macro - _K84060_ - _stx84041_ - _ctx84059_ - _phi84058_ - _method84042_)))) - (if (##structure-instance-of? _self8404384051_ 'gx#macro-expander::t) - (let* ((_e8404784065_ + _K84064_ + _stx84045_ + _ctx84063_ + _phi84062_ + _method84046_)))) + (if (##structure-instance-of? _self8404784055_ 'gx#macro-expander::t) + (let* ((_e8405184069_ (##unchecked-structure-ref - _self8404384051_ + _self8404784055_ '1 gx#expander::t '#f)) - (_K84068_ _e8404784065_) - (_e8404884070_ + (_K84072_ _e8405184069_) + (_e8405284074_ (##unchecked-structure-ref - _self8404384051_ + _self8404784055_ '2 gx#user-expander::t '#f)) - (_ctx84073_ _e8404884070_) - (_e8404984075_ + (_ctx84077_ _e8405284074_) + (_e8405384079_ (##unchecked-structure-ref - _self8404384051_ + _self8404784055_ '3 gx#user-expander::t '#f)) - (_phi84078_ _e8404984075_)) - (_K8404684062_ _phi84078_ _ctx84073_ _K84068_)) - (_E8404584055_))))) + (_phi84082_ _e8405384079_)) + (_K8405084066_ _phi84082_ _ctx84077_ _K84072_)) + (_E8404984059_))))) (define gx#core-apply-user-expander__0 - (lambda (_self84083_ _stx84084_) - (let ((_method84086_ 'apply-macro-expander)) + (lambda (_self84087_ _stx84088_) + (let ((_method84090_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _self84083_ - _stx84084_ - _method84086_)))) + _self84087_ + _stx84088_ + _method84090_)))) (define gx#core-apply-user-expander - (lambda _g86113_ - (let ((_g86112_ (##length _g86113_))) - (cond ((##fx= _g86112_ 2) - (apply (lambda (_self84083_ _stx84084_) + (lambda _g86117_ + (let ((_g86116_ (##length _g86117_))) + (cond ((##fx= _g86116_ 2) + (apply (lambda (_self84087_ _stx84088_) (gx#core-apply-user-expander__0 - _self84083_ - _stx84084_)) - _g86113_)) - ((##fx= _g86112_ 3) - (apply (lambda (_self84088_ _stx84089_ _method84090_) + _self84087_ + _stx84088_)) + _g86117_)) + ((##fx= _g86116_ 3) + (apply (lambda (_self84092_ _stx84093_ _method84094_) (gx#core-apply-user-expander__% - _self84088_ - _stx84089_ - _method84090_)) - _g86113_)) + _self84092_ + _stx84093_ + _method84094_)) + _g86117_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g86113_)))))) + _g86117_)))))) (define gx#core-apply-user-macro - (lambda (_K84030_ _stx84031_ _ctx84032_ _phi84033_ _method84034_) - (let ((_mark84036_ + (lambda (_K84034_ _stx84035_ _ctx84036_ _phi84037_ _method84038_) + (let ((_mark84040_ (##structure gx#expander-mark::t '#f - _ctx84032_ - _phi84033_ - _stx84031_))) + _ctx84036_ + _phi84037_ + _stx84035_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K84030_ - (gx#stx-apply-mark _stx84031_ _mark84036_) - _method84034_) - _mark84036_)) + _K84034_ + (gx#stx-apply-mark _stx84035_ _mark84040_) + _method84038_) + _mark84040_)) gx#current-expander-marks - (cons _mark84036_ (gx#current-expander-marks)))))) + (cons _mark84040_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (bind-method!__% gx#user-expander::t @@ -2399,413 +2399,413 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_stx83881_ _phi83882_ _ctx83883_) - (let _lp83885_ ((_bind83887_ + (lambda (_stx83885_ _phi83886_ _ctx83887_) + (let _lp83889_ ((_bind83891_ (gx#core-resolve-identifier__% - _stx83881_ - _phi83882_ - _ctx83883_))) + _stx83885_ + _phi83886_ + _ctx83887_))) (if (##structure-direct-instance-of? - _bind83887_ + _bind83891_ 'gx#import-binding::t) - (_lp83885_ + (_lp83889_ (##unchecked-structure-ref - _bind83887_ + _bind83891_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind83887_ + _bind83891_ 'gx#alias-binding::t) - (_lp83885_ + (_lp83889_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind83887_ + _bind83891_ '4 gx#alias-binding::t '#f) - _phi83882_ - _ctx83883_)) - _bind83887_))))) + _phi83886_ + _ctx83887_)) + _bind83891_))))) (define gx#resolve-identifier__0 - (lambda (_stx83892_) - (let* ((_phi83894_ (gx#current-expander-phi)) - (_ctx83896_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx83892_ _phi83894_ _ctx83896_)))) + (lambda (_stx83896_) + (let* ((_phi83898_ (gx#current-expander-phi)) + (_ctx83900_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx83896_ _phi83898_ _ctx83900_)))) (define gx#resolve-identifier__1 - (lambda (_stx83898_ _phi83899_) - (let ((_ctx83901_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx83898_ _phi83899_ _ctx83901_)))) + (lambda (_stx83902_ _phi83903_) + (let ((_ctx83905_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx83902_ _phi83903_ _ctx83905_)))) (define gx#resolve-identifier - (lambda _g86115_ - (let ((_g86114_ (##length _g86115_))) - (cond ((##fx= _g86114_ 1) - (apply (lambda (_stx83892_) - (gx#resolve-identifier__0 _stx83892_)) - _g86115_)) - ((##fx= _g86114_ 2) - (apply (lambda (_stx83898_ _phi83899_) - (gx#resolve-identifier__1 _stx83898_ _phi83899_)) - _g86115_)) - ((##fx= _g86114_ 3) - (apply (lambda (_stx83903_ _phi83904_ _ctx83905_) + (lambda _g86119_ + (let ((_g86118_ (##length _g86119_))) + (cond ((##fx= _g86118_ 1) + (apply (lambda (_stx83896_) + (gx#resolve-identifier__0 _stx83896_)) + _g86119_)) + ((##fx= _g86118_ 2) + (apply (lambda (_stx83902_ _phi83903_) + (gx#resolve-identifier__1 _stx83902_ _phi83903_)) + _g86119_)) + ((##fx= _g86118_ 3) + (apply (lambda (_stx83907_ _phi83908_ _ctx83909_) (gx#resolve-identifier__% - _stx83903_ - _phi83904_ - _ctx83905_)) - _g86115_)) + _stx83907_ + _phi83908_ + _ctx83909_)) + _g86119_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g86115_)))))) + _g86119_)))))) (define gx#bind-identifier!__% - (lambda (_stx83839_ _val83840_ _rebind?83841_ _phi83842_ _ctx83843_) - (let ((_rebind?83845_ - (if (not _rebind?83841_) + (lambda (_stx83843_ _val83844_ _rebind?83845_ _phi83846_ _ctx83847_) + (let ((_rebind?83849_ + (if (not _rebind?83845_) gx#core-context-rebind? - (if (procedure? _rebind?83841_) _rebind?83841_ true)))) + (if (procedure? _rebind?83845_) _rebind?83845_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx83839_) - _val83840_ - _rebind?83845_ - _phi83842_ - _ctx83843_)))) + (gx#core-identifier-key _stx83843_) + _val83844_ + _rebind?83849_ + _phi83846_ + _ctx83847_)))) (define gx#bind-identifier!__0 - (lambda (_stx83850_ _val83851_) - (let* ((_rebind?83853_ '#f) - (_phi83855_ (gx#current-expander-phi)) - (_ctx83857_ (gx#current-expander-context))) + (lambda (_stx83854_ _val83855_) + (let* ((_rebind?83857_ '#f) + (_phi83859_ (gx#current-expander-phi)) + (_ctx83861_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx83850_ - _val83851_ - _rebind?83853_ - _phi83855_ - _ctx83857_)))) + _stx83854_ + _val83855_ + _rebind?83857_ + _phi83859_ + _ctx83861_)))) (define gx#bind-identifier!__1 - (lambda (_stx83859_ _val83860_ _rebind?83861_) - (let* ((_phi83863_ (gx#current-expander-phi)) - (_ctx83865_ (gx#current-expander-context))) + (lambda (_stx83863_ _val83864_ _rebind?83865_) + (let* ((_phi83867_ (gx#current-expander-phi)) + (_ctx83869_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx83859_ - _val83860_ - _rebind?83861_ - _phi83863_ - _ctx83865_)))) + _stx83863_ + _val83864_ + _rebind?83865_ + _phi83867_ + _ctx83869_)))) (define gx#bind-identifier!__2 - (lambda (_stx83867_ _val83868_ _rebind?83869_ _phi83870_) - (let ((_ctx83872_ (gx#current-expander-context))) + (lambda (_stx83871_ _val83872_ _rebind?83873_ _phi83874_) + (let ((_ctx83876_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx83867_ - _val83868_ - _rebind?83869_ - _phi83870_ - _ctx83872_)))) + _stx83871_ + _val83872_ + _rebind?83873_ + _phi83874_ + _ctx83876_)))) (define gx#bind-identifier! - (lambda _g86117_ - (let ((_g86116_ (##length _g86117_))) - (cond ((##fx= _g86116_ 2) - (apply (lambda (_stx83850_ _val83851_) - (gx#bind-identifier!__0 _stx83850_ _val83851_)) - _g86117_)) - ((##fx= _g86116_ 3) - (apply (lambda (_stx83859_ _val83860_ _rebind?83861_) + (lambda _g86121_ + (let ((_g86120_ (##length _g86121_))) + (cond ((##fx= _g86120_ 2) + (apply (lambda (_stx83854_ _val83855_) + (gx#bind-identifier!__0 _stx83854_ _val83855_)) + _g86121_)) + ((##fx= _g86120_ 3) + (apply (lambda (_stx83863_ _val83864_ _rebind?83865_) (gx#bind-identifier!__1 - _stx83859_ - _val83860_ - _rebind?83861_)) - _g86117_)) - ((##fx= _g86116_ 4) - (apply (lambda (_stx83867_ - _val83868_ - _rebind?83869_ - _phi83870_) + _stx83863_ + _val83864_ + _rebind?83865_)) + _g86121_)) + ((##fx= _g86120_ 4) + (apply (lambda (_stx83871_ + _val83872_ + _rebind?83873_ + _phi83874_) (gx#bind-identifier!__2 - _stx83867_ - _val83868_ - _rebind?83869_ - _phi83870_)) - _g86117_)) - ((##fx= _g86116_ 5) - (apply (lambda (_stx83874_ - _val83875_ - _rebind?83876_ - _phi83877_ - _ctx83878_) + _stx83871_ + _val83872_ + _rebind?83873_ + _phi83874_)) + _g86121_)) + ((##fx= _g86120_ 5) + (apply (lambda (_stx83878_ + _val83879_ + _rebind?83880_ + _phi83881_ + _ctx83882_) (gx#bind-identifier!__% - _stx83874_ - _val83875_ - _rebind?83876_ - _phi83877_ - _ctx83878_)) - _g86117_)) + _stx83878_ + _val83879_ + _rebind?83880_ + _phi83881_ + _ctx83882_)) + _g86121_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g86117_)))))) + _g86121_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx83811_ _phi83812_ _ctx83813_) - (let _lp83815_ ((_e83817_ _stx83811_) - (_marks83818_ (gx#current-expander-marks))) - (if (symbol? _e83817_) + (lambda (_stx83815_ _phi83816_ _ctx83817_) + (let _lp83819_ ((_e83821_ _stx83815_) + (_marks83822_ (gx#current-expander-marks))) + (if (symbol? _e83821_) (gx#core-resolve-binding - _e83817_ - _phi83812_ - _phi83812_ - _ctx83813_ - (reverse _marks83818_)) - (if (gx#identifier-quote? _e83817_) + _e83821_ + _phi83816_ + _phi83816_ + _ctx83817_ + (reverse _marks83822_)) + (if (gx#identifier-quote? _e83821_) (gx#core-resolve-binding - (##unchecked-structure-ref _e83817_ '1 gx#AST::t '#f) - _phi83812_ + (##unchecked-structure-ref _e83821_ '1 gx#AST::t '#f) + _phi83816_ '0 (##unchecked-structure-ref - _e83817_ + _e83821_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e83817_ + _e83821_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e83817_ + _e83821_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e83817_ '1 gx#AST::t '#f) - _phi83812_ - _phi83812_ - _ctx83813_ + (##unchecked-structure-ref _e83821_ '1 gx#AST::t '#f) + _phi83816_ + _phi83816_ + _ctx83817_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e83817_ + _e83821_ '3 gx#identifier-wrap::t '#f) - _marks83818_)) + _marks83822_)) (if (##structure-direct-instance-of? - _e83817_ + _e83821_ 'gx#syntax-wrap::t) - (_lp83815_ + (_lp83819_ (##unchecked-structure-ref - _e83817_ + _e83821_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e83817_ + _e83821_ '3 gx#syntax-wrap::t '#f) - _marks83818_)) + _marks83822_)) (if (##structure-instance-of? - _e83817_ + _e83821_ 'gerbil#AST::t) - (_lp83815_ + (_lp83819_ (##unchecked-structure-ref - _e83817_ + _e83821_ '1 gx#AST::t '#f) - _marks83818_) + _marks83822_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx83811_))))))))) + _stx83815_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx83823_) - (let* ((_phi83825_ (gx#current-expander-phi)) - (_ctx83827_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx83823_ _phi83825_ _ctx83827_)))) + (lambda (_stx83827_) + (let* ((_phi83829_ (gx#current-expander-phi)) + (_ctx83831_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx83827_ _phi83829_ _ctx83831_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx83829_ _phi83830_) - (let ((_ctx83832_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx83829_ _phi83830_ _ctx83832_)))) + (lambda (_stx83833_ _phi83834_) + (let ((_ctx83836_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx83833_ _phi83834_ _ctx83836_)))) (define gx#core-resolve-identifier - (lambda _g86119_ - (let ((_g86118_ (##length _g86119_))) - (cond ((##fx= _g86118_ 1) - (apply (lambda (_stx83823_) - (gx#core-resolve-identifier__0 _stx83823_)) - _g86119_)) - ((##fx= _g86118_ 2) - (apply (lambda (_stx83829_ _phi83830_) + (lambda _g86123_ + (let ((_g86122_ (##length _g86123_))) + (cond ((##fx= _g86122_ 1) + (apply (lambda (_stx83827_) + (gx#core-resolve-identifier__0 _stx83827_)) + _g86123_)) + ((##fx= _g86122_ 2) + (apply (lambda (_stx83833_ _phi83834_) (gx#core-resolve-identifier__1 - _stx83829_ - _phi83830_)) - _g86119_)) - ((##fx= _g86118_ 3) - (apply (lambda (_stx83834_ _phi83835_ _ctx83836_) + _stx83833_ + _phi83834_)) + _g86123_)) + ((##fx= _g86122_ 3) + (apply (lambda (_stx83838_ _phi83839_ _ctx83840_) (gx#core-resolve-identifier__% - _stx83834_ - _phi83835_ - _ctx83836_)) - _g86119_)) + _stx83838_ + _phi83839_ + _ctx83840_)) + _g86123_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g86119_)))))) + _g86123_)))))) (define gx#core-resolve-binding - (lambda (_id83724_ _phi83725_ _src-phi83726_ _ctx83727_ _marks83728_) - (letrec ((_resolve83730_ - (lambda (_ctx83798_ _src-phi83799_ _key83800_) - (let _lp83802_ ((_ctx83804_ + (lambda (_id83728_ _phi83729_ _src-phi83730_ _ctx83731_ _marks83732_) + (letrec ((_resolve83734_ + (lambda (_ctx83802_ _src-phi83803_ _key83804_) + (let _lp83806_ ((_ctx83808_ (gx#core-context-shift - _ctx83798_ - _phi83725_)) - (_dphi83805_ - (fx- _phi83725_ _src-phi83799_))) - (let ((_$e83807_ - (gx#core-context-resolve _ctx83804_ _key83800_))) - (if _$e83807_ - (values _$e83807_) - (if (fxzero? _dphi83805_) + _ctx83802_ + _phi83729_)) + (_dphi83809_ + (fx- _phi83729_ _src-phi83803_))) + (let ((_$e83811_ + (gx#core-context-resolve _ctx83808_ _key83804_))) + (if _$e83811_ + (values _$e83811_) + (if (fxzero? _dphi83809_) '#f - (if (fxpositive? _dphi83805_) - (_lp83802_ - (gx#core-context-shift _ctx83804_ '-1) - (fx- _dphi83805_ '1)) - (_lp83802_ - (gx#core-context-shift _ctx83804_ '1) - (fx+ _dphi83805_ '1)))))))))) - (let _lp83732_ ((_ctx83734_ _ctx83727_) - (_src-phi83735_ _src-phi83726_) - (_rest83736_ _marks83728_)) - (let* ((_rest8373783745_ _rest83736_) - (_else8373983753_ + (if (fxpositive? _dphi83809_) + (_lp83806_ + (gx#core-context-shift _ctx83808_ '-1) + (fx- _dphi83809_ '1)) + (_lp83806_ + (gx#core-context-shift _ctx83808_ '1) + (fx+ _dphi83809_ '1)))))))))) + (let _lp83736_ ((_ctx83738_ _ctx83731_) + (_src-phi83739_ _src-phi83730_) + (_rest83740_ _marks83732_)) + (let* ((_rest8374183749_ _rest83740_) + (_else8374383757_ (lambda () - (_resolve83730_ _ctx83734_ _src-phi83735_ _id83724_))) - (_K8374183786_ - (lambda (_rest83756_ _hd83757_) - (let* ((_hd8375883764_ _hd83757_) - (_E8376083768_ + (_resolve83734_ _ctx83738_ _src-phi83739_ _id83728_))) + (_K8374583790_ + (lambda (_rest83760_ _hd83761_) + (let* ((_hd8376283768_ _hd83761_) + (_E8376483772_ (lambda () - (error '"No clause matching" _hd8375883764_))) - (_K8376183778_ - (lambda (_subst83771_) - (let ((_$e83775_ - (let ((_key83773_ - (if _subst83771_ + (error '"No clause matching" _hd8376283768_))) + (_K8376583782_ + (lambda (_subst83775_) + (let ((_$e83779_ + (let ((_key83777_ + (if _subst83775_ (hash-get - _subst83771_ - _id83724_) + _subst83775_ + _id83728_) '#f))) - (if _key83773_ - (_resolve83730_ - _ctx83734_ - _src-phi83735_ - _key83773_) + (if _key83777_ + (_resolve83734_ + _ctx83738_ + _src-phi83739_ + _key83777_) '#f)))) - (if _$e83775_ - _$e83775_ - (_lp83732_ + (if _$e83779_ + _$e83779_ + (_lp83736_ (##unchecked-structure-ref - _hd83757_ + _hd83761_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd83757_ + _hd83761_ '3 gx#expander-mark::t '#f) - _rest83756_)))))) + _rest83760_)))))) (if (##structure-instance-of? - _hd8375883764_ + _hd8376283768_ 'gx#expander-mark::t) - (let* ((_e8376283781_ + (let* ((_e8376683785_ (##unchecked-structure-ref - _hd8375883764_ + _hd8376283768_ '1 gx#expander-mark::t '#f)) - (_subst83784_ _e8376283781_)) - (_K8376183778_ _subst83784_)) - (_E8376083768_)))))) - (if (##pair? _rest8373783745_) - (let ((_hd8374283789_ (##car _rest8373783745_)) - (_tl8374383791_ (##cdr _rest8373783745_))) - (let* ((_hd83794_ _hd8374283789_) - (_rest83796_ _tl8374383791_)) - (_K8374183786_ _rest83796_ _hd83794_))) - (_else8373983753_))))))) + (_subst83788_ _e8376683785_)) + (_K8376583782_ _subst83788_)) + (_E8376483772_)))))) + (if (##pair? _rest8374183749_) + (let ((_hd8374683793_ (##car _rest8374183749_)) + (_tl8374783795_ (##cdr _rest8374183749_))) + (let* ((_hd83798_ _hd8374683793_) + (_rest83800_ _tl8374783795_)) + (_K8374583790_ _rest83800_ _hd83798_))) + (_else8374383757_))))))) (define gx#core-bind!__% - (lambda (_key83600_ _val83601_ _rebind?83602_ _phi83603_ _ctx83604_) - (letrec ((_update-binding83606_ - (lambda (_xval83677_) - (if (or (_rebind?83602_ _ctx83604_ _xval83677_ _val83601_) + (lambda (_key83604_ _val83605_ _rebind?83606_ _phi83607_ _ctx83608_) + (letrec ((_update-binding83610_ + (lambda (_xval83681_) + (if (or (_rebind?83606_ _ctx83608_ _xval83681_ _val83605_) (and (##structure-direct-instance-of? - _xval83677_ + _xval83681_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval83677_ + _xval83681_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val83601_ + _val83605_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val83601_ + _val83605_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval83677_ + _xval83681_ 'gx#extern-binding::t) (##structure-instance-of? - _val83601_ + _val83605_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val83601_ + _val83605_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval83677_ + _xval83681_ '1 gx#binding::t '#f)))) - _val83601_ + _val83605_ (if (and (##structure-direct-instance-of? - _val83601_ + _val83605_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val83601_ + _val83605_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval83677_ + _xval83681_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val83601_ + _val83605_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval83677_ + _xval83681_ '1 gx#binding::t '#f))))) - _xval83677_ + _xval83681_ (if (and (##structure-direct-instance-of? - _val83601_ + _val83605_ 'gx#import-binding::t) (##structure-instance-of? - _xval83677_ + _xval83681_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key83600_ + _key83604_ (cons (##unchecked-structure-ref - _val83601_ + _val83605_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val83601_ + _val83605_ '5 gx#import-binding::t '#f) @@ -2814,200 +2814,200 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval83677_ + _xval83681_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval83677_ + _xval83681_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval83677_ + _xval83681_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval83677_) + _xval83681_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key83600_ - _val83601_ - _xval83677_)))))) - (_gensubst83607_ - (lambda (_subst83672_ _id83673_) - (let ((_eid83675_ - (gensym (if (uninterned-symbol? _id83673_) + _key83604_ + _val83605_ + _xval83681_)))))) + (_gensubst83611_ + (lambda (_subst83676_ _id83677_) + (let ((_eid83679_ + (gensym (if (uninterned-symbol? _id83677_) '% - _id83673_)))) - (hash-put! _subst83672_ _id83673_ _eid83675_) - _eid83675_))) - (_subst!83608_ - (lambda (_key83610_) - (let* ((_key8361183619_ _key83610_) - (_else8361383627_ (lambda () _key83610_)) - (_K8361583660_ - (lambda (_mark83630_ _id83631_) - (let* ((_mark8363283638_ _mark83630_) - (_E8363483642_ + _id83677_)))) + (hash-put! _subst83676_ _id83677_ _eid83679_) + _eid83679_))) + (_subst!83612_ + (lambda (_key83614_) + (let* ((_key8361583623_ _key83614_) + (_else8361783631_ (lambda () _key83614_)) + (_K8361983664_ + (lambda (_mark83634_ _id83635_) + (let* ((_mark8363683642_ _mark83634_) + (_E8363883646_ (lambda () (error '"No clause matching" - _mark8363283638_))) - (_K8363583652_ - (lambda (_subst83645_) - (if (not _subst83645_) - (let ((_subst83647_ + _mark8363683642_))) + (_K8363983656_ + (lambda (_subst83649_) + (if (not _subst83649_) + (let ((_subst83651_ (make-hash-table-eq))) (##unchecked-structure-set! - _mark83630_ - _subst83647_ + _mark83634_ + _subst83651_ '1 gx#expander-mark::t '#f) - (_gensubst83607_ - _subst83647_ - _id83631_)) - (let ((_$e83649_ + (_gensubst83611_ + _subst83651_ + _id83635_)) + (let ((_$e83653_ (hash-get - _subst83645_ - _id83631_))) - (if _$e83649_ - (values _$e83649_) - (_gensubst83607_ - _subst83645_ - _id83631_))))))) + _subst83649_ + _id83635_))) + (if _$e83653_ + (values _$e83653_) + (_gensubst83611_ + _subst83649_ + _id83635_))))))) (if (##structure-instance-of? - _mark8363283638_ + _mark8363683642_ 'gx#expander-mark::t) - (let* ((_e8363683655_ + (let* ((_e8364083659_ (##unchecked-structure-ref - _mark8363283638_ + _mark8363683642_ '1 gx#expander-mark::t '#f)) - (_subst83658_ _e8363683655_)) - (_K8363583652_ _subst83658_)) - (_E8363483642_)))))) - (if (##pair? _key8361183619_) - (let ((_hd8361683663_ (##car _key8361183619_)) - (_tl8361783665_ (##cdr _key8361183619_))) - (let* ((_id83668_ _hd8361683663_) - (_mark83670_ _tl8361783665_)) - (_K8361583660_ _mark83670_ _id83668_))) - (_else8361383627_)))))) + (_subst83662_ _e8364083659_)) + (_K8363983656_ _subst83662_)) + (_E8363883646_)))))) + (if (##pair? _key8361583623_) + (let ((_hd8362083667_ (##car _key8361583623_)) + (_tl8362183669_ (##cdr _key8361583623_))) + (let* ((_id83672_ _hd8362083667_) + (_mark83674_ _tl8362183669_)) + (_K8361983664_ _mark83674_ _id83672_))) + (_else8361783631_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx83604_ _phi83603_) - (_subst!83608_ _key83600_) - _val83601_ - _update-binding83606_)))) + (gx#core-context-shift _ctx83608_ _phi83607_) + (_subst!83612_ _key83604_) + _val83605_ + _update-binding83610_)))) (define gx#core-bind!__0 - (lambda (_key83694_ _val83695_) - (let* ((_rebind?83697_ false) - (_phi83699_ (gx#current-expander-phi)) - (_ctx83701_ (gx#current-expander-context))) + (lambda (_key83698_ _val83699_) + (let* ((_rebind?83701_ false) + (_phi83703_ (gx#current-expander-phi)) + (_ctx83705_ (gx#current-expander-context))) (gx#core-bind!__% - _key83694_ - _val83695_ - _rebind?83697_ - _phi83699_ - _ctx83701_)))) + _key83698_ + _val83699_ + _rebind?83701_ + _phi83703_ + _ctx83705_)))) (define gx#core-bind!__1 - (lambda (_key83703_ _val83704_ _rebind?83705_) - (let* ((_phi83707_ (gx#current-expander-phi)) - (_ctx83709_ (gx#current-expander-context))) + (lambda (_key83707_ _val83708_ _rebind?83709_) + (let* ((_phi83711_ (gx#current-expander-phi)) + (_ctx83713_ (gx#current-expander-context))) (gx#core-bind!__% - _key83703_ - _val83704_ - _rebind?83705_ - _phi83707_ - _ctx83709_)))) + _key83707_ + _val83708_ + _rebind?83709_ + _phi83711_ + _ctx83713_)))) (define gx#core-bind!__2 - (lambda (_key83711_ _val83712_ _rebind?83713_ _phi83714_) - (let ((_ctx83716_ (gx#current-expander-context))) + (lambda (_key83715_ _val83716_ _rebind?83717_ _phi83718_) + (let ((_ctx83720_ (gx#current-expander-context))) (gx#core-bind!__% - _key83711_ - _val83712_ - _rebind?83713_ - _phi83714_ - _ctx83716_)))) + _key83715_ + _val83716_ + _rebind?83717_ + _phi83718_ + _ctx83720_)))) (define gx#core-bind! - (lambda _g86121_ - (let ((_g86120_ (##length _g86121_))) - (cond ((##fx= _g86120_ 2) - (apply (lambda (_key83694_ _val83695_) - (gx#core-bind!__0 _key83694_ _val83695_)) - _g86121_)) - ((##fx= _g86120_ 3) - (apply (lambda (_key83703_ _val83704_ _rebind?83705_) + (lambda _g86125_ + (let ((_g86124_ (##length _g86125_))) + (cond ((##fx= _g86124_ 2) + (apply (lambda (_key83698_ _val83699_) + (gx#core-bind!__0 _key83698_ _val83699_)) + _g86125_)) + ((##fx= _g86124_ 3) + (apply (lambda (_key83707_ _val83708_ _rebind?83709_) (gx#core-bind!__1 - _key83703_ - _val83704_ - _rebind?83705_)) - _g86121_)) - ((##fx= _g86120_ 4) - (apply (lambda (_key83711_ - _val83712_ - _rebind?83713_ - _phi83714_) + _key83707_ + _val83708_ + _rebind?83709_)) + _g86125_)) + ((##fx= _g86124_ 4) + (apply (lambda (_key83715_ + _val83716_ + _rebind?83717_ + _phi83718_) (gx#core-bind!__2 - _key83711_ - _val83712_ - _rebind?83713_ - _phi83714_)) - _g86121_)) - ((##fx= _g86120_ 5) - (apply (lambda (_key83718_ - _val83719_ - _rebind?83720_ - _phi83721_ - _ctx83722_) + _key83715_ + _val83716_ + _rebind?83717_ + _phi83718_)) + _g86125_)) + ((##fx= _g86124_ 5) + (apply (lambda (_key83722_ + _val83723_ + _rebind?83724_ + _phi83725_ + _ctx83726_) (gx#core-bind!__% - _key83718_ - _val83719_ - _rebind?83720_ - _phi83721_ - _ctx83722_)) - _g86121_)) + _key83722_ + _val83723_ + _rebind?83724_ + _phi83725_ + _ctx83726_)) + _g86125_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g86121_)))))) + _g86125_)))))) (define gx#core-identifier-key - (lambda (_stx83534_) - (if (symbol? _stx83534_) - (let* ((_g8353583543_ (gx#current-expander-marks)) - (_else8353783551_ (lambda () _stx83534_)) - (_K8353983556_ - (lambda (_hd83554_) (cons _stx83534_ _hd83554_)))) - (if (##pair? _g8353583543_) - (let* ((_hd8354083559_ (##car _g8353583543_)) - (_hd83562_ _hd8354083559_)) - (_K8353983556_ _hd83562_)) - (_else8353783551_))) - (if (gx#identifier? _stx83534_) - (let* ((_id83564_ (gx#syntax-local-unwrap _stx83534_)) - (_eid83566_ (gx#stx-e _id83564_)) - (_marks83568_ (gx#stx-identifier-marks* _id83564_))) - (let* ((_marks8357083578_ _marks83568_) - (_else8357283586_ (lambda () _eid83566_)) - (_K8357483591_ - (lambda (_hd83589_) (cons _eid83566_ _hd83589_)))) - (if (##pair? _marks8357083578_) - (let* ((_hd8357583594_ (##car _marks8357083578_)) - (_hd83597_ _hd8357583594_)) - (_K8357483591_ _hd83597_)) - (_else8357283586_)))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx83534_))))) + (lambda (_stx83538_) + (if (symbol? _stx83538_) + (let* ((_g8353983547_ (gx#current-expander-marks)) + (_else8354183555_ (lambda () _stx83538_)) + (_K8354383560_ + (lambda (_hd83558_) (cons _stx83538_ _hd83558_)))) + (if (##pair? _g8353983547_) + (let* ((_hd8354483563_ (##car _g8353983547_)) + (_hd83566_ _hd8354483563_)) + (_K8354383560_ _hd83566_)) + (_else8354183555_))) + (if (gx#identifier? _stx83538_) + (let* ((_id83568_ (gx#syntax-local-unwrap _stx83538_)) + (_eid83570_ (gx#stx-e _id83568_)) + (_marks83572_ (gx#stx-identifier-marks* _id83568_))) + (let* ((_marks8357483582_ _marks83572_) + (_else8357683590_ (lambda () _eid83570_)) + (_K8357883595_ + (lambda (_hd83593_) (cons _eid83570_ _hd83593_)))) + (if (##pair? _marks8357483582_) + (let* ((_hd8357983598_ (##car _marks8357483582_)) + (_hd83601_ _hd8357983598_)) + (_K8357883595_ _hd83601_)) + (_else8357683590_)))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx83538_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_ctx83479_ _phi83480_) - (letrec ((_make-phi83482_ - (lambda (_super83532_) - (let ((__obj86092 + (lambda (_ctx83483_ _phi83484_) + (letrec ((_make-phi83486_ + (lambda (_super83536_) + (let ((__obj86096 (##structure gx#phi-context::t '#f @@ -3016,639 +3016,639 @@ '#f '#f))) (gx#phi-context:::init! - __obj86092 + __obj86096 (gensym 'phi) - _super83532_) - __obj86092))) - (_make-phi/up83483_ - (lambda (_ctx83527_ _super83528_) - (let ((_ctx+183530_ (_make-phi83482_ _super83528_))) + _super83536_) + __obj86096))) + (_make-phi/up83487_ + (lambda (_ctx83531_ _super83532_) + (let ((_ctx+183534_ (_make-phi83486_ _super83532_))) (##unchecked-structure-set! - _ctx83527_ - _ctx+183530_ + _ctx83531_ + _ctx+183534_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+183530_ - _ctx83527_ + _ctx+183534_ + _ctx83531_ '5 gx#phi-context::t '#f) - _ctx+183530_))) - (_make-phi/down83484_ - (lambda (_ctx83522_ _super83523_) - (let ((_ctx-183525_ (_make-phi83482_ _super83523_))) + _ctx+183534_))) + (_make-phi/down83488_ + (lambda (_ctx83526_ _super83527_) + (let ((_ctx-183529_ (_make-phi83486_ _super83527_))) (##unchecked-structure-set! - _ctx-183525_ - _ctx83522_ + _ctx-183529_ + _ctx83526_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx83522_ - _ctx-183525_ + _ctx83526_ + _ctx-183529_ '5 gx#phi-context::t '#f) - _ctx-183525_))) - (_shift83485_ - (lambda (_ctx83506_ - _delta83507_ - _make-delta-context83508_ - _phi83509_ - _K83510_) - (let ((_$e83512_ + _ctx-183529_))) + (_shift83489_ + (lambda (_ctx83510_ + _delta83511_ + _make-delta-context83512_ + _phi83513_ + _K83514_) + (let ((_$e83516_ (##unchecked-structure-ref - _ctx83506_ + _ctx83510_ '3 gx#phi-context::t '#f))) - (if _$e83512_ - ((lambda (_super83515_) - (let* ((_super83517_ - (_K83510_ _super83515_ _delta83507_)) - (_ctx+d83519_ - (_make-delta-context83508_ - _ctx83506_ - _super83517_))) - (_K83510_ - _ctx+d83519_ - (fx- _phi83509_ _delta83507_)))) - _$e83512_) - (error '"Bad context" _ctx83506_)))))) - (let _K83487_ ((_ctx83489_ _ctx83479_) (_phi83490_ _phi83480_)) - (if (fxzero? _phi83490_) - _ctx83489_ - (if (##structure-instance-of? _ctx83489_ 'gx#context-phi::t) - (if (fxpositive? _phi83490_) - (let ((_$e83492_ + (if _$e83516_ + ((lambda (_super83519_) + (let* ((_super83521_ + (_K83514_ _super83519_ _delta83511_)) + (_ctx+d83523_ + (_make-delta-context83512_ + _ctx83510_ + _super83521_))) + (_K83514_ + _ctx+d83523_ + (fx- _phi83513_ _delta83511_)))) + _$e83516_) + (error '"Bad context" _ctx83510_)))))) + (let _K83491_ ((_ctx83493_ _ctx83483_) (_phi83494_ _phi83484_)) + (if (fxzero? _phi83494_) + _ctx83493_ + (if (##structure-instance-of? _ctx83493_ 'gx#context-phi::t) + (if (fxpositive? _phi83494_) + (let ((_$e83496_ (##unchecked-structure-ref - _ctx83489_ + _ctx83493_ '4 gx#phi-context::t '#f))) - (if _$e83492_ - ((lambda (_g8349483496_) - (_K83487_ _g8349483496_ (fx- _phi83490_ '1))) - _$e83492_) - (_shift83485_ - _ctx83489_ + (if _$e83496_ + ((lambda (_g8349883500_) + (_K83491_ _g8349883500_ (fx- _phi83494_ '1))) + _$e83496_) + (_shift83489_ + _ctx83493_ '1 - _make-phi/up83483_ - _phi83490_ - _K83487_))) - (let ((_$e83499_ + _make-phi/up83487_ + _phi83494_ + _K83491_))) + (let ((_$e83503_ (##unchecked-structure-ref - _ctx83489_ + _ctx83493_ '5 gx#phi-context::t '#f))) - (if _$e83499_ - ((lambda (_g8350183503_) - (_K83487_ _g8350183503_ (fx+ _phi83490_ '1))) - _$e83499_) - (_shift83485_ - _ctx83489_ + (if _$e83503_ + ((lambda (_g8350583507_) + (_K83491_ _g8350583507_ (fx+ _phi83494_ '1))) + _$e83503_) + (_shift83489_ + _ctx83493_ '-1 - _make-phi/down83484_ - _phi83490_ - _K83487_)))) - _ctx83489_)))))) + _make-phi/down83488_ + _phi83494_ + _K83491_)))) + _ctx83493_)))))) (define gx#core-context-get - (lambda (_ctx83476_ _key83477_) + (lambda (_ctx83480_ _key83481_) (hash-get - (##unchecked-structure-ref _ctx83476_ '2 gx#expander-context::t '#f) - _key83477_))) + (##unchecked-structure-ref _ctx83480_ '2 gx#expander-context::t '#f) + _key83481_))) (define gx#core-context-put! - (lambda (_ctx83472_ _key83473_ _val83474_) + (lambda (_ctx83476_ _key83477_ _val83478_) (hash-put! - (##unchecked-structure-ref _ctx83472_ '2 gx#expander-context::t '#f) - _key83473_ - _val83474_))) + (##unchecked-structure-ref _ctx83476_ '2 gx#expander-context::t '#f) + _key83477_ + _val83478_))) (define gx#core-context-resolve - (lambda (_ctx83459_ _key83460_) - (let _lp83462_ ((_ctx83464_ _ctx83459_)) - (let ((_$e83466_ (gx#core-context-get _ctx83464_ _key83460_))) - (if _$e83466_ - (values _$e83466_) - (let ((_$e83469_ + (lambda (_ctx83463_ _key83464_) + (let _lp83466_ ((_ctx83468_ _ctx83463_)) + (let ((_$e83470_ (gx#core-context-get _ctx83468_ _key83464_))) + (if _$e83470_ + (values _$e83470_) + (let ((_$e83473_ (if (##structure-instance-of? - _ctx83464_ + _ctx83468_ 'gx#context-phi::t) (##unchecked-structure-ref - _ctx83464_ + _ctx83468_ '3 gx#phi-context::t '#f) '#f))) - (if _$e83469_ (_lp83462_ _$e83469_) '#f))))))) + (if _$e83473_ (_lp83466_ _$e83473_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx83449_ _key83450_ _val83451_ _rebind83452_) - (let ((_$e83454_ (gx#core-context-get _ctx83449_ _key83450_))) - (if _$e83454_ - ((lambda (_xval83457_) + (lambda (_ctx83453_ _key83454_ _val83455_ _rebind83456_) + (let ((_$e83458_ (gx#core-context-get _ctx83453_ _key83454_))) + (if _$e83458_ + ((lambda (_xval83461_) (gx#core-context-put! - _ctx83449_ - _key83450_ - (_rebind83452_ _xval83457_))) - _$e83454_) - (gx#core-context-put! _ctx83449_ _key83450_ _val83451_))))) + _ctx83453_ + _key83454_ + (_rebind83456_ _xval83461_))) + _$e83458_) + (gx#core-context-put! _ctx83453_ _key83454_ _val83455_))))) (define gx#core-context-top__% - (lambda (_ctx83427_ _stop?83428_) - (let _lp83430_ ((_ctx83432_ _ctx83427_)) - (if (_stop?83428_ _ctx83432_) - _ctx83432_ - (if (##structure-instance-of? _ctx83432_ 'gx#context-phi::t) - (_lp83430_ + (lambda (_ctx83431_ _stop?83432_) + (let _lp83434_ ((_ctx83436_ _ctx83431_)) + (if (_stop?83432_ _ctx83436_) + _ctx83436_ + (if (##structure-instance-of? _ctx83436_ 'gx#context-phi::t) + (_lp83434_ (##unchecked-structure-ref - _ctx83432_ + _ctx83436_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx83438_ (gx#current-expander-context)) - (_stop?83440_ gx#top-context?)) - (gx#core-context-top__% _ctx83438_ _stop?83440_)))) - (define gx#core-context-top__1 - (lambda (_ctx83442_) - (let ((_stop?83444_ gx#top-context?)) + (let* ((_ctx83442_ (gx#current-expander-context)) + (_stop?83444_ gx#top-context?)) (gx#core-context-top__% _ctx83442_ _stop?83444_)))) + (define gx#core-context-top__1 + (lambda (_ctx83446_) + (let ((_stop?83448_ gx#top-context?)) + (gx#core-context-top__% _ctx83446_ _stop?83448_)))) (define gx#core-context-top - (lambda _g86123_ - (let ((_g86122_ (##length _g86123_))) - (cond ((##fx= _g86122_ 0) - (apply (lambda () (gx#core-context-top__0)) _g86123_)) - ((##fx= _g86122_ 1) - (apply (lambda (_ctx83442_) - (gx#core-context-top__1 _ctx83442_)) - _g86123_)) - ((##fx= _g86122_ 2) - (apply (lambda (_ctx83446_ _stop?83447_) - (gx#core-context-top__% _ctx83446_ _stop?83447_)) - _g86123_)) + (lambda _g86127_ + (let ((_g86126_ (##length _g86127_))) + (cond ((##fx= _g86126_ 0) + (apply (lambda () (gx#core-context-top__0)) _g86127_)) + ((##fx= _g86126_ 1) + (apply (lambda (_ctx83446_) + (gx#core-context-top__1 _ctx83446_)) + _g86127_)) + ((##fx= _g86126_ 2) + (apply (lambda (_ctx83450_ _stop?83451_) + (gx#core-context-top__% _ctx83450_ _stop?83451_)) + _g86127_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g86123_)))))) + _g86127_)))))) (define gx#core-context-root__% - (lambda (_ctx83412_) - (let _lp83414_ ((_ctx83416_ _ctx83412_)) - (if (##structure-instance-of? _ctx83416_ 'gx#context-phi::t) - (_lp83414_ - (##unchecked-structure-ref _ctx83416_ '3 gx#phi-context::t '#f)) - _ctx83416_)))) + (lambda (_ctx83416_) + (let _lp83418_ ((_ctx83420_ _ctx83416_)) + (if (##structure-instance-of? _ctx83420_ 'gx#context-phi::t) + (_lp83418_ + (##unchecked-structure-ref _ctx83420_ '3 gx#phi-context::t '#f)) + _ctx83420_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx83422_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx83422_)))) + (let ((_ctx83426_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx83426_)))) (define gx#core-context-root - (lambda _g86125_ - (let ((_g86124_ (##length _g86125_))) - (cond ((##fx= _g86124_ 0) - (apply (lambda () (gx#core-context-root__0)) _g86125_)) - ((##fx= _g86124_ 1) - (apply (lambda (_ctx83424_) - (gx#core-context-root__% _ctx83424_)) - _g86125_)) + (lambda _g86129_ + (let ((_g86128_ (##length _g86129_))) + (cond ((##fx= _g86128_ 0) + (apply (lambda () (gx#core-context-root__0)) _g86129_)) + ((##fx= _g86128_ 1) + (apply (lambda (_ctx83428_) + (gx#core-context-root__% _ctx83428_)) + _g86129_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g86125_)))))) + _g86129_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx83393_ . __8339083394_) - (let ((_$e83397_ (gx#current-expander-allow-rebind?))) - (if _$e83397_ - _$e83397_ - (if (##structure-instance-of? _ctx83393_ 'gx#top-context::t) + (lambda (_ctx83397_ . __8339483398_) + (let ((_$e83401_ (gx#current-expander-allow-rebind?))) + (if _$e83401_ + _$e83401_ + (if (##structure-instance-of? _ctx83397_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx83393_ + _ctx83397_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx83393_ + _ctx83397_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx83404_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx83404_)))) + (let ((_ctx83408_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx83408_)))) (define gx#core-context-rebind? - (lambda _g86127_ - (let ((_g86126_ (##length _g86127_))) - (cond ((##fx= _g86126_ 0) - (apply (lambda () (gx#core-context-rebind?__0)) _g86127_)) - ((##fx= _g86126_ 1) - (apply (lambda (_ctx83406_) - (gx#core-context-rebind?__% _ctx83406_)) - _g86127_)) - ((##fx>= _g86126_ 1) - (apply gx#core-context-rebind?__% _g86127_)) + (lambda _g86131_ + (let ((_g86130_ (##length _g86131_))) + (cond ((##fx= _g86130_ 0) + (apply (lambda () (gx#core-context-rebind?__0)) _g86131_)) + ((##fx= _g86130_ 1) + (apply (lambda (_ctx83410_) + (gx#core-context-rebind?__% _ctx83410_)) + _g86131_)) + ((##fx>= _g86130_ 1) + (apply gx#core-context-rebind?__% _g86131_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g86127_)))))) + _g86131_)))))) (define gx#core-context-namespace__% - (lambda (_ctx83376_) - (let ((_$e83378_ (gx#core-context-top__1 _ctx83376_))) - (if _$e83378_ - ((lambda (_ctx83381_) + (lambda (_ctx83380_) + (let ((_$e83382_ (gx#core-context-top__1 _ctx83380_))) + (if _$e83382_ + ((lambda (_ctx83385_) (if (##structure-instance-of? - _ctx83381_ + _ctx83385_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx83381_ + _ctx83385_ '6 gx#module-context::t '#f) '#f)) - _$e83378_) + _$e83382_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx83387_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx83387_)))) + (let ((_ctx83391_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx83391_)))) (define gx#core-context-namespace - (lambda _g86129_ - (let ((_g86128_ (##length _g86129_))) - (cond ((##fx= _g86128_ 0) - (apply (lambda () (gx#core-context-namespace__0)) _g86129_)) - ((##fx= _g86128_ 1) - (apply (lambda (_ctx83389_) - (gx#core-context-namespace__% _ctx83389_)) - _g86129_)) + (lambda _g86133_ + (let ((_g86132_ (##length _g86133_))) + (cond ((##fx= _g86132_ 0) + (apply (lambda () (gx#core-context-namespace__0)) _g86133_)) + ((##fx= _g86132_ 1) + (apply (lambda (_ctx83393_) + (gx#core-context-namespace__% _ctx83393_)) + _g86133_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g86129_)))))) + _g86133_)))))) (define gx#expander-binding?__% - (lambda (_bind83362_ _is?83363_) - (if (##structure-direct-instance-of? _bind83362_ 'gx#syntax-binding::t) - (_is?83363_ + (lambda (_bind83366_ _is?83367_) + (if (##structure-direct-instance-of? _bind83366_ 'gx#syntax-binding::t) + (_is?83367_ (##unchecked-structure-ref - _bind83362_ + _bind83366_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind83368_) - (let ((_is?83370_ gx#expander?)) - (gx#expander-binding?__% _bind83368_ _is?83370_)))) + (lambda (_bind83372_) + (let ((_is?83374_ gx#expander?)) + (gx#expander-binding?__% _bind83372_ _is?83374_)))) (define gx#expander-binding? - (lambda _g86131_ - (let ((_g86130_ (##length _g86131_))) - (cond ((##fx= _g86130_ 1) - (apply (lambda (_bind83368_) - (gx#expander-binding?__0 _bind83368_)) - _g86131_)) - ((##fx= _g86130_ 2) - (apply (lambda (_bind83372_ _is?83373_) - (gx#expander-binding?__% _bind83372_ _is?83373_)) - _g86131_)) + (lambda _g86135_ + (let ((_g86134_ (##length _g86135_))) + (cond ((##fx= _g86134_ 1) + (apply (lambda (_bind83372_) + (gx#expander-binding?__0 _bind83372_)) + _g86135_)) + ((##fx= _g86134_ 2) + (apply (lambda (_bind83376_ _is?83377_) + (gx#expander-binding?__% _bind83376_ _is?83377_)) + _g86135_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g86131_)))))) + _g86135_)))))) (define gx#core-expander-binding? - (lambda (_bind83359_) - (gx#expander-binding?__% _bind83359_ gx#core-expander?))) + (lambda (_bind83363_) + (gx#expander-binding?__% _bind83363_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind83357_) - (gx#expander-binding?__% _bind83357_ gx#expression-form?))) + (lambda (_bind83361_) + (gx#expander-binding?__% _bind83361_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind83351_) - (letrec ((_direct-special-form?83353_ - (lambda (_obj83355_) + (lambda (_bind83355_) + (letrec ((_direct-special-form?83357_ + (lambda (_obj83359_) (##structure-direct-instance-of? - _obj83355_ + _obj83359_ (##type-id gx#special-form::t))))) - (gx#expander-binding?__% _bind83351_ _direct-special-form?83353_)))) + (gx#expander-binding?__% _bind83355_ _direct-special-form?83357_)))) (define gx#special-form-binding? - (lambda (_bind83349_) - (gx#expander-binding?__% _bind83349_ gx#special-form?))) + (lambda (_bind83353_) + (gx#expander-binding?__% _bind83353_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind83340_) - (letrec ((_feature?83342_ - (lambda (_e83344_) - (let ((_$e83346_ + (lambda (_bind83344_) + (letrec ((_feature?83346_ + (lambda (_e83348_) + (let ((_$e83350_ (##structure-instance-of? - _e83344_ + _e83348_ 'gx#feature-expander::t))) - (if _$e83346_ - _$e83346_ + (if _$e83350_ + _$e83350_ (##structure-instance-of? - _e83344_ + _e83348_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind83340_ _feature?83342_)))) + (gx#expander-binding?__% _bind83344_ _feature?83346_)))) (define gx#private-feature-binding? - (lambda (_bind83338_) - (gx#expander-binding?__% _bind83338_ gx#private-feature-expander?))) + (lambda (_bind83342_) + (gx#expander-binding?__% _bind83342_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id83325_ _bound?83326_) - (if (gx#identifier? _id83325_) - (_bound?83326_ (gx#resolve-identifier__0 _id83325_)) + (lambda (_id83329_ _bound?83330_) + (if (gx#identifier? _id83329_) + (_bound?83330_ (gx#resolve-identifier__0 _id83329_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id83331_) - (let ((_bound?83333_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id83331_ _bound?83333_)))) + (lambda (_id83335_) + (let ((_bound?83337_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id83335_ _bound?83337_)))) (define gx#core-bound-identifier? - (lambda _g86133_ - (let ((_g86132_ (##length _g86133_))) - (cond ((##fx= _g86132_ 1) - (apply (lambda (_id83331_) - (gx#core-bound-identifier?__0 _id83331_)) - _g86133_)) - ((##fx= _g86132_ 2) - (apply (lambda (_id83335_ _bound?83336_) + (lambda _g86137_ + (let ((_g86136_ (##length _g86137_))) + (cond ((##fx= _g86136_ 1) + (apply (lambda (_id83335_) + (gx#core-bound-identifier?__0 _id83335_)) + _g86137_)) + ((##fx= _g86136_ 2) + (apply (lambda (_id83339_ _bound?83340_) (gx#core-bound-identifier?__% - _id83335_ - _bound?83336_)) - _g86133_)) + _id83339_ + _bound?83340_)) + _g86137_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g86133_)))))) + _g86137_)))))) (define gx#core-identifier=? - (lambda (_x83315_ _y83316_) - (letrec ((_y=?83318_ - (lambda (_xid83322_) - ((if (list? _y83316_) memq eq?) _xid83322_ _y83316_)))) - (let ((_bind83320_ (gx#resolve-identifier__0 _x83315_))) - (if (##structure-instance-of? _bind83320_ 'gx#binding::t) - (_y=?83318_ - (##unchecked-structure-ref _bind83320_ '1 gx#binding::t '#f)) - (_y=?83318_ (gx#stx-e _x83315_))))))) + (lambda (_x83319_ _y83320_) + (letrec ((_y=?83322_ + (lambda (_xid83326_) + ((if (list? _y83320_) memq eq?) _xid83326_ _y83320_)))) + (let ((_bind83324_ (gx#resolve-identifier__0 _x83319_))) + (if (##structure-instance-of? _bind83324_ 'gx#binding::t) + (_y=?83322_ + (##unchecked-structure-ref _bind83324_ '1 gx#binding::t '#f)) + (_y=?83322_ (gx#stx-e _x83319_))))))) (define gx#core-extern-symbol? - (lambda (_e83313_) - (if (interned-symbol? _e83313_) - (string-index__0 (symbol->string _e83313_) '#\#) + (lambda (_e83317_) + (if (interned-symbol? _e83317_) + (string-index__0 (symbol->string _e83317_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_stx83268_ _src83269_ _ctx83270_ _marks83271_) - (if (##structure? _stx83268_) - (let ((_$e83273_ (gx#sealed-syntax-unwrap _stx83268_))) - (if _$e83273_ - (values _$e83273_) - (if (gx#identifier? _stx83268_) - (let ((_id83276_ - (gx#stx-unwrap__% _stx83268_ _marks83271_))) + (lambda (_stx83272_ _src83273_ _ctx83274_ _marks83275_) + (if (##structure? _stx83272_) + (let ((_$e83277_ (gx#sealed-syntax-unwrap _stx83272_))) + (if _$e83277_ + (values _$e83277_) + (if (gx#identifier? _stx83272_) + (let ((_id83280_ + (gx#stx-unwrap__% _stx83272_ _marks83275_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _id83276_ '1 gx#AST::t '#f) - (let ((_$e83278_ + (##unchecked-structure-ref _id83280_ '1 gx#AST::t '#f) + (let ((_$e83282_ (##unchecked-structure-ref - _id83276_ + _id83280_ '2 gx#AST::t '#f))) - (if _$e83278_ _$e83278_ _src83269_)) - _ctx83270_ + (if _$e83282_ _$e83282_ _src83273_)) + _ctx83274_ (##unchecked-structure-ref - _id83276_ + _id83280_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx83268_) - (let ((_$e83281_ (gx#stx-source _stx83268_))) - (if _$e83281_ _$e83281_ _src83269_)) - _ctx83270_ - (reverse _marks83271_))))) + (gx#stx-e _stx83272_) + (let ((_$e83285_ (gx#stx-source _stx83272_))) + (if _$e83285_ _$e83285_ _src83273_)) + _ctx83274_ + (reverse _marks83275_))))) (##structure gx#syntax-quote::t - _stx83268_ - _src83269_ - _ctx83270_ - (reverse _marks83271_))))) + _stx83272_ + _src83273_ + _ctx83274_ + (reverse _marks83275_))))) (define gx#core-quote-syntax__0 - (lambda (_stx83287_) - (let* ((_src83289_ '#f) - (_ctx83291_ (gx#current-expander-context)) - (_marks83293_ (gx#current-expander-marks))) + (lambda (_stx83291_) + (let* ((_src83293_ '#f) + (_ctx83295_ (gx#current-expander-context)) + (_marks83297_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx83287_ - _src83289_ - _ctx83291_ - _marks83293_)))) + _stx83291_ + _src83293_ + _ctx83295_ + _marks83297_)))) (define gx#core-quote-syntax__1 - (lambda (_stx83295_ _src83296_) - (let* ((_ctx83298_ (gx#current-expander-context)) - (_marks83300_ (gx#current-expander-marks))) + (lambda (_stx83299_ _src83300_) + (let* ((_ctx83302_ (gx#current-expander-context)) + (_marks83304_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx83295_ - _src83296_ - _ctx83298_ - _marks83300_)))) + _stx83299_ + _src83300_ + _ctx83302_ + _marks83304_)))) (define gx#core-quote-syntax__2 - (lambda (_stx83302_ _src83303_ _ctx83304_) - (let ((_marks83306_ (gx#current-expander-marks))) + (lambda (_stx83306_ _src83307_ _ctx83308_) + (let ((_marks83310_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx83302_ - _src83303_ - _ctx83304_ - _marks83306_)))) + _stx83306_ + _src83307_ + _ctx83308_ + _marks83310_)))) (define gx#core-quote-syntax - (lambda _g86135_ - (let ((_g86134_ (##length _g86135_))) - (cond ((##fx= _g86134_ 1) - (apply (lambda (_stx83287_) - (gx#core-quote-syntax__0 _stx83287_)) - _g86135_)) - ((##fx= _g86134_ 2) - (apply (lambda (_stx83295_ _src83296_) - (gx#core-quote-syntax__1 _stx83295_ _src83296_)) - _g86135_)) - ((##fx= _g86134_ 3) - (apply (lambda (_stx83302_ _src83303_ _ctx83304_) + (lambda _g86139_ + (let ((_g86138_ (##length _g86139_))) + (cond ((##fx= _g86138_ 1) + (apply (lambda (_stx83291_) + (gx#core-quote-syntax__0 _stx83291_)) + _g86139_)) + ((##fx= _g86138_ 2) + (apply (lambda (_stx83299_ _src83300_) + (gx#core-quote-syntax__1 _stx83299_ _src83300_)) + _g86139_)) + ((##fx= _g86138_ 3) + (apply (lambda (_stx83306_ _src83307_ _ctx83308_) (gx#core-quote-syntax__2 - _stx83302_ - _src83303_ - _ctx83304_)) - _g86135_)) - ((##fx= _g86134_ 4) - (apply (lambda (_stx83308_ _src83309_ _ctx83310_ _marks83311_) + _stx83306_ + _src83307_ + _ctx83308_)) + _g86139_)) + ((##fx= _g86138_ 4) + (apply (lambda (_stx83312_ _src83313_ _ctx83314_ _marks83315_) (gx#core-quote-syntax__% - _stx83308_ - _src83309_ - _ctx83310_ - _marks83311_)) - _g86135_)) + _stx83312_ + _src83313_ + _ctx83314_ + _marks83315_)) + _g86139_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g86135_)))))) + _g86139_)))))) (define gx#core-cons - (lambda (_hd83264_ _tl83265_) - (cons (gx#core-quote-syntax__0 _hd83264_) _tl83265_))) + (lambda (_hd83268_ _tl83269_) + (cons (gx#core-quote-syntax__0 _hd83268_) _tl83269_))) (define gx#core-list - (lambda (_hd83261_ . _rest83262_) - (cons (gx#core-quote-syntax__0 _hd83261_) _rest83262_))) + (lambda (_hd83265_ . _rest83266_) + (cons (gx#core-quote-syntax__0 _hd83265_) _rest83266_))) (define gx#core-cons* - (lambda (_hd83258_ . _rest83259_) - (apply cons* (gx#core-quote-syntax__0 _hd83258_) _rest83259_))) + (lambda (_hd83262_ . _rest83263_) + (apply cons* (gx#core-quote-syntax__0 _hd83262_) _rest83263_))) (define gx#core-resolve-path__% - (lambda (_stx-path83232_ _rel83233_) - (let ((_path83245_ (gx#stx-e _stx-path83232_)) - (_reldir83246_ - (let _lp83235_ ((_relsrc83237_ - (let ((_$e83242_ - (gx#stx-source _stx-path83232_))) - (if _$e83242_ _$e83242_ _rel83233_)))) - (if (##structure-instance-of? _relsrc83237_ 'gerbil#AST::t) - (_lp83235_ - (let ((_$e83239_ (gx#stx-source _relsrc83237_))) - (if _$e83239_ _$e83239_ (gx#stx-e _relsrc83237_)))) - (if (source-location-path? _relsrc83237_) - (path-directory (source-location-path _relsrc83237_)) - (if (string? _relsrc83237_) - (path-directory _relsrc83237_) + (lambda (_stx-path83236_ _rel83237_) + (let ((_path83249_ (gx#stx-e _stx-path83236_)) + (_reldir83250_ + (let _lp83239_ ((_relsrc83241_ + (let ((_$e83246_ + (gx#stx-source _stx-path83236_))) + (if _$e83246_ _$e83246_ _rel83237_)))) + (if (##structure-instance-of? _relsrc83241_ 'gerbil#AST::t) + (_lp83239_ + (let ((_$e83243_ (gx#stx-source _relsrc83241_))) + (if _$e83243_ _$e83243_ (gx#stx-e _relsrc83241_)))) + (if (source-location-path? _relsrc83241_) + (path-directory (source-location-path _relsrc83241_)) + (if (string? _relsrc83241_) + (path-directory _relsrc83241_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path83245_ (path-normalize _reldir83246_))))) + (path-expand _path83249_ (path-normalize _reldir83250_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path83251_) - (let ((_rel83253_ '#f)) - (gx#core-resolve-path__% _stx-path83251_ _rel83253_)))) + (lambda (_stx-path83255_) + (let ((_rel83257_ '#f)) + (gx#core-resolve-path__% _stx-path83255_ _rel83257_)))) (define gx#core-resolve-path - (lambda _g86137_ - (let ((_g86136_ (##length _g86137_))) - (cond ((##fx= _g86136_ 1) - (apply (lambda (_stx-path83251_) - (gx#core-resolve-path__0 _stx-path83251_)) - _g86137_)) - ((##fx= _g86136_ 2) - (apply (lambda (_stx-path83255_ _rel83256_) - (gx#core-resolve-path__% _stx-path83255_ _rel83256_)) - _g86137_)) + (lambda _g86141_ + (let ((_g86140_ (##length _g86141_))) + (cond ((##fx= _g86140_ 1) + (apply (lambda (_stx-path83255_) + (gx#core-resolve-path__0 _stx-path83255_)) + _g86141_)) + ((##fx= _g86140_ 2) + (apply (lambda (_stx-path83259_ _rel83260_) + (gx#core-resolve-path__% _stx-path83259_ _rel83260_)) + _g86141_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g86137_)))))) + _g86141_)))))) (define gx#core-deserialize-mark__% - (lambda (_repr83188_ _ctx83189_) - (let* ((_repr8319083197_ _repr83188_) - (_E8319283201_ - (lambda () (error '"No clause matching" _repr8319083197_))) - (_K8319383209_ - (lambda (_subs83204_ _phi83205_) - (let ((_subst83207_ - (if (not (null? _subs83204_)) - (list->hash-table-eq _subs83204_) + (lambda (_repr83192_ _ctx83193_) + (let* ((_repr8319483201_ _repr83192_) + (_E8319683205_ + (lambda () (error '"No clause matching" _repr8319483201_))) + (_K8319783213_ + (lambda (_subs83208_ _phi83209_) + (let ((_subst83211_ + (if (not (null? _subs83208_)) + (list->hash-table-eq _subs83208_) '#f))) (##structure gx#expander-mark::t - _subst83207_ - _ctx83189_ - _phi83205_ + _subst83211_ + _ctx83193_ + _phi83209_ '#f))))) - (if (##pair? _repr8319083197_) - (let ((_hd8319483212_ (##car _repr8319083197_)) - (_tl8319583214_ (##cdr _repr8319083197_))) - (let* ((_phi83217_ _hd8319483212_) - (_subs83219_ _tl8319583214_)) - (_K8319383209_ _subs83219_ _phi83217_))) - (_E8319283201_))))) + (if (##pair? _repr8319483201_) + (let ((_hd8319883216_ (##car _repr8319483201_)) + (_tl8319983218_ (##cdr _repr8319483201_))) + (let* ((_phi83221_ _hd8319883216_) + (_subs83223_ _tl8319983218_)) + (_K8319783213_ _subs83223_ _phi83221_))) + (_E8319683205_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr83224_) - (let ((_ctx83226_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr83224_ _ctx83226_)))) + (lambda (_repr83228_) + (let ((_ctx83230_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr83228_ _ctx83230_)))) (define gx#core-deserialize-mark - (lambda _g86139_ - (let ((_g86138_ (##length _g86139_))) - (cond ((##fx= _g86138_ 1) - (apply (lambda (_repr83224_) - (gx#core-deserialize-mark__0 _repr83224_)) - _g86139_)) - ((##fx= _g86138_ 2) - (apply (lambda (_repr83228_ _ctx83229_) - (gx#core-deserialize-mark__% _repr83228_ _ctx83229_)) - _g86139_)) + (lambda _g86143_ + (let ((_g86142_ (##length _g86143_))) + (cond ((##fx= _g86142_ 1) + (apply (lambda (_repr83228_) + (gx#core-deserialize-mark__0 _repr83228_)) + _g86143_)) + ((##fx= _g86142_ 2) + (apply (lambda (_repr83232_ _ctx83233_) + (gx#core-deserialize-mark__% _repr83232_ _ctx83233_)) + _g86143_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g86139_)))))) + _g86143_)))))) (define gx#syntax-local-rewrap - (lambda (_stx83185_) - (gx#stx-rewrap _stx83185_ (gx#current-expander-marks)))) + (lambda (_stx83189_) + (gx#stx-rewrap _stx83189_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx83183_) - (gx#stx-unwrap__% _stx83183_ (gx#current-expander-marks)))) + (lambda (_stx83187_) + (gx#stx-unwrap__% _stx83187_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx83153_) - (let* ((_g8315483162_ (gx#current-expander-marks)) - (_else8315683170_ (lambda () _stx83153_)) - (_K8315883175_ - (lambda (_hd83173_) (gx#stx-apply-mark _stx83153_ _hd83173_)))) - (if (##pair? _g8315483162_) - (let* ((_hd8315983178_ (##car _g8315483162_)) - (_hd83181_ _hd8315983178_)) - (_K8315883175_ _hd83181_)) - (_else8315683170_))))) + (lambda (_stx83157_) + (let* ((_g8315883166_ (gx#current-expander-marks)) + (_else8316083174_ (lambda () _stx83157_)) + (_K8316283179_ + (lambda (_hd83177_) (gx#stx-apply-mark _stx83157_ _hd83177_)))) + (if (##pair? _g8315883166_) + (let* ((_hd8316383182_ (##car _g8315883166_)) + (_hd83185_ _hd8316383182_)) + (_K8316283179_ _hd83185_)) + (_else8316083174_))))) (define gx#syntax-local-e__% - (lambda (_stx83138_ _E83139_) - (let ((_bind83141_ (gx#resolve-identifier__0 _stx83138_))) + (lambda (_stx83142_ _E83143_) + (let ((_bind83145_ (gx#resolve-identifier__0 _stx83142_))) (if (##structure-direct-instance-of? - _bind83141_ + _bind83145_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind83141_ + _bind83145_ '4 gx#syntax-binding::t '#f) - (_E83139_ _stx83138_))))) + (_E83143_ _stx83142_))))) (define gx#syntax-local-e__0 - (lambda (_stx83146_) - (let ((_E83148_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx83146_ _E83148_)))) + (lambda (_stx83150_) + (let ((_E83152_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx83150_ _E83152_)))) (define gx#syntax-local-e - (lambda _g86141_ - (let ((_g86140_ (##length _g86141_))) - (cond ((##fx= _g86140_ 1) - (apply (lambda (_stx83146_) (gx#syntax-local-e__0 _stx83146_)) - _g86141_)) - ((##fx= _g86140_ 2) - (apply (lambda (_stx83150_ _E83151_) - (gx#syntax-local-e__% _stx83150_ _E83151_)) - _g86141_)) + (lambda _g86145_ + (let ((_g86144_ (##length _g86145_))) + (cond ((##fx= _g86144_ 1) + (apply (lambda (_stx83150_) (gx#syntax-local-e__0 _stx83150_)) + _g86145_)) + ((##fx= _g86144_ 2) + (apply (lambda (_stx83154_ _E83155_) + (gx#syntax-local-e__% _stx83154_ _E83155_)) + _g86145_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g86141_)))))) + _g86145_)))))) (define gx#syntax-local-value__% - (lambda (_stx83122_ _E83123_) - (let ((_e83125_ (gx#syntax-local-e__% _stx83122_ _E83123_))) - (if (##structure-instance-of? _e83125_ 'gx#expander::t) - (##structure-ref _e83125_ '1 gx#expander::t '#f) - _e83125_)))) + (lambda (_stx83126_ _E83127_) + (let ((_e83129_ (gx#syntax-local-e__% _stx83126_ _E83127_))) + (if (##structure-instance-of? _e83129_ 'gx#expander::t) + (##structure-ref _e83129_ '1 gx#expander::t '#f) + _e83129_)))) (define gx#syntax-local-value__0 - (lambda (_stx83130_) - (let ((_E83132_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx83130_ _E83132_)))) + (lambda (_stx83134_) + (let ((_E83136_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx83134_ _E83136_)))) (define gx#syntax-local-value - (lambda _g86143_ - (let ((_g86142_ (##length _g86143_))) - (cond ((##fx= _g86142_ 1) - (apply (lambda (_stx83130_) - (gx#syntax-local-value__0 _stx83130_)) - _g86143_)) - ((##fx= _g86142_ 2) - (apply (lambda (_stx83134_ _E83135_) - (gx#syntax-local-value__% _stx83134_ _E83135_)) - _g86143_)) + (lambda _g86147_ + (let ((_g86146_ (##length _g86147_))) + (cond ((##fx= _g86146_ 1) + (apply (lambda (_stx83134_) + (gx#syntax-local-value__0 _stx83134_)) + _g86147_)) + ((##fx= _g86146_ 2) + (apply (lambda (_stx83138_ _E83139_) + (gx#syntax-local-value__% _stx83138_ _E83139_)) + _g86147_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g86143_)))))) + _g86147_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx83119_) + (lambda (_stx83123_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx83119_))))) + _stx83123_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index 6306d8185..5e0d71082 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]#_g86145_| + (define |gx[1]#_g86149_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86147_| + (define |gx[1]#_g86151_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86149_| + (define |gx[1]#_g86153_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86154_| + (define |gx[1]#_g86158_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86157_| + (define |gx[1]#_g86161_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86162_| + (define |gx[1]#_g86166_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86165_| + (define |gx[1]#_g86169_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86170_| + (define |gx[1]#_g86174_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86173_| + (define |gx[1]#_g86177_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86178_| + (define |gx[1]#_g86182_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86181_| + (define |gx[1]#_g86185_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86184_| + (define |gx[1]#_g86188_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86186_| + (define |gx[1]#_g86190_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86188_| + (define |gx[1]#_g86192_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86190_| + (define |gx[1]#_g86194_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86195_| + (define |gx[1]#_g86199_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86198_| + (define |gx[1]#_g86202_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86203_| + (define |gx[1]#_g86207_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86206_| + (define |gx[1]#_g86210_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86211_| + (define |gx[1]#_g86215_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86214_| + (define |gx[1]#_g86218_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86219_| + (define |gx[1]#_g86223_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86222_| + (define |gx[1]#_g86226_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86226_| + (define |gx[1]#_g86230_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86228_| + (define |gx[1]#_g86232_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86230_| + (define |gx[1]#_g86234_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86238_| + (define |gx[1]#_g86242_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86241_| + (define |gx[1]#_g86245_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86244_| + (define |gx[1]#_g86248_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86247_| + (define |gx[1]#_g86251_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86250_| + (define |gx[1]#_g86254_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86258_| + (define |gx[1]#_g86262_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86261_| + (define |gx[1]#_g86265_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86264_| + (define |gx[1]#_g86268_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86267_| + (define |gx[1]#_g86271_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86270_| + (define |gx[1]#_g86274_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86278_| + (define |gx[1]#_g86282_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86281_| + (define |gx[1]#_g86285_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86284_| + (define |gx[1]#_g86288_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86287_| + (define |gx[1]#_g86291_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86290_| + (define |gx[1]#_g86294_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86298_| + (define |gx[1]#_g86302_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86301_| + (define |gx[1]#_g86305_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86304_| + (define |gx[1]#_g86308_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86307_| + (define |gx[1]#_g86311_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86310_| + (define |gx[1]#_g86314_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86313_| + (define |gx[1]#_g86317_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86315_| + (define |gx[1]#_g86319_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86317_| + (define |gx[1]#_g86321_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86319_| + (define |gx[1]#_g86323_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86327_| + (define |gx[1]#_g86331_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86330_| + (define |gx[1]#_g86334_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86333_| + (define |gx[1]#_g86337_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86336_| + (define |gx[1]#_g86340_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86339_| + (define |gx[1]#_g86343_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86347_| + (define |gx[1]#_g86351_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86350_| + (define |gx[1]#_g86354_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86353_| + (define |gx[1]#_g86357_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86356_| + (define |gx[1]#_g86360_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86359_| + (define |gx[1]#_g86363_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86367_| + (define |gx[1]#_g86371_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86370_| + (define |gx[1]#_g86374_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86373_| + (define |gx[1]#_g86377_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86376_| + (define |gx[1]#_g86380_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86379_| + (define |gx[1]#_g86383_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86387_| + (define |gx[1]#_g86391_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86390_| + (define |gx[1]#_g86394_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86393_| + (define |gx[1]#_g86397_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86396_| + (define |gx[1]#_g86400_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86399_| + (define |gx[1]#_g86403_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86402_| + (define |gx[1]#_g86406_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86404_| + (define |gx[1]#_g86408_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86406_| + (define |gx[1]#_g86410_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86408_| + (define |gx[1]#_g86412_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86422_| + (define |gx[1]#_g86426_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86425_| + (define |gx[1]#_g86429_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86428_| + (define |gx[1]#_g86432_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86431_| + (define |gx[1]#_g86435_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86434_| + (define |gx[1]#_g86438_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86437_| + (define |gx[1]#_g86441_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g86440_| + (define |gx[1]#_g86444_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86443_| + (define |gx[1]#_g86447_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g86446_| + (define |gx[1]#_g86450_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g86449_| + (define |gx[1]#_g86453_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g86452_| + (define |gx[1]#_g86456_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g86466_| + (define |gx[1]#_g86470_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86469_| + (define |gx[1]#_g86473_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86472_| + (define |gx[1]#_g86476_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86475_| + (define |gx[1]#_g86479_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86478_| + (define |gx[1]#_g86482_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86481_| + (define |gx[1]#_g86485_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86484_| + (define |gx[1]#_g86488_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86487_| + (define |gx[1]#_g86491_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86490_| + (define |gx[1]#_g86494_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86493_| + (define |gx[1]#_g86497_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86496_| + (define |gx[1]#_g86500_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86510_| + (define |gx[1]#_g86514_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86513_| + (define |gx[1]#_g86517_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86516_| + (define |gx[1]#_g86520_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86519_| + (define |gx[1]#_g86523_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86522_| + (define |gx[1]#_g86526_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86525_| + (define |gx[1]#_g86529_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g86528_| + (define |gx[1]#_g86532_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86531_| + (define |gx[1]#_g86535_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g86534_| + (define |gx[1]#_g86538_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g86537_| + (define |gx[1]#_g86541_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g86540_| + (define |gx[1]#_g86544_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g86554_| + (define |gx[1]#_g86558_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86557_| + (define |gx[1]#_g86561_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86560_| + (define |gx[1]#_g86564_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86563_| + (define |gx[1]#_g86567_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86566_| + (define |gx[1]#_g86570_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86569_| + (define |gx[1]#_g86573_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86572_| + (define |gx[1]#_g86576_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86575_| + (define |gx[1]#_g86579_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86578_| + (define |gx[1]#_g86582_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86581_| + (define |gx[1]#_g86585_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86584_| + (define |gx[1]#_g86588_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86588_| + (define |gx[1]#_g86592_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86590_| + (define |gx[1]#_g86594_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86592_| + (define |gx[1]#_g86596_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86603_| + (define |gx[1]#_g86607_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86606_| + (define |gx[1]#_g86610_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86609_| + (define |gx[1]#_g86613_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86612_| + (define |gx[1]#_g86616_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86615_| + (define |gx[1]#_g86619_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86618_| + (define |gx[1]#_g86622_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86621_| + (define |gx[1]#_g86625_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g86624_| + (define |gx[1]#_g86628_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g86635_| + (define |gx[1]#_g86639_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86638_| + (define |gx[1]#_g86642_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86641_| + (define |gx[1]#_g86645_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86644_| + (define |gx[1]#_g86648_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86647_| + (define |gx[1]#_g86651_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86650_| + (define |gx[1]#_g86654_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86653_| + (define |gx[1]#_g86657_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86656_| + (define |gx[1]#_g86660_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86667_| + (define |gx[1]#_g86671_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86670_| + (define |gx[1]#_g86674_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86673_| + (define |gx[1]#_g86677_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86676_| + (define |gx[1]#_g86680_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86679_| + (define |gx[1]#_g86683_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86682_| + (define |gx[1]#_g86686_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86685_| + (define |gx[1]#_g86689_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g86688_| + (define |gx[1]#_g86692_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g86699_| + (define |gx[1]#_g86703_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86702_| + (define |gx[1]#_g86706_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86705_| + (define |gx[1]#_g86709_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86708_| + (define |gx[1]#_g86712_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86711_| + (define |gx[1]#_g86715_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86714_| + (define |gx[1]#_g86718_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86717_| + (define |gx[1]#_g86721_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86720_| + (define |gx[1]#_g86724_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86724_| + (define |gx[1]#_g86728_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86726_| + (define |gx[1]#_g86730_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86728_| + (define |gx[1]#_g86732_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86736_| + (define |gx[1]#_g86740_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86739_| + (define |gx[1]#_g86743_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86742_| + (define |gx[1]#_g86746_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86745_| + (define |gx[1]#_g86749_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86748_| + (define |gx[1]#_g86752_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86756_| + (define |gx[1]#_g86760_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86759_| + (define |gx[1]#_g86763_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86762_| + (define |gx[1]#_g86766_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86765_| + (define |gx[1]#_g86769_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86768_| + (define |gx[1]#_g86772_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86776_| + (define |gx[1]#_g86780_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86779_| + (define |gx[1]#_g86783_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86782_| + (define |gx[1]#_g86786_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86785_| + (define |gx[1]#_g86789_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86788_| + (define |gx[1]#_g86792_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86796_| + (define |gx[1]#_g86800_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86799_| + (define |gx[1]#_g86803_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86802_| + (define |gx[1]#_g86806_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86805_| + (define |gx[1]#_g86809_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86808_| + (define |gx[1]#_g86812_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86810_| + (define |gx[1]#_g86814_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86812_| + (define |gx[1]#_g86816_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86814_| + (define |gx[1]#_g86818_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86820_| + (define |gx[1]#_g86824_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86823_| + (define |gx[1]#_g86827_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86826_| + (define |gx[1]#_g86830_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86832_| + (define |gx[1]#_g86836_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86835_| + (define |gx[1]#_g86839_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86838_| + (define |gx[1]#_g86842_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86844_| + (define |gx[1]#_g86848_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86847_| + (define |gx[1]#_g86851_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86850_| + (define |gx[1]#_g86854_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86856_| + (define |gx[1]#_g86860_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86859_| + (define |gx[1]#_g86863_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86862_| + (define |gx[1]#_g86866_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86865_| + (define |gx[1]#_g86869_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86867_| + (define |gx[1]#_g86871_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86869_| + (define |gx[1]#_g86873_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86871_| + (define |gx[1]#_g86875_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86877_| + (define |gx[1]#_g86881_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86880_| + (define |gx[1]#_g86884_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86883_| + (define |gx[1]#_g86887_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86889_| + (define |gx[1]#_g86893_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86892_| + (define |gx[1]#_g86896_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86895_| + (define |gx[1]#_g86899_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86901_| + (define |gx[1]#_g86905_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86904_| + (define |gx[1]#_g86908_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86907_| + (define |gx[1]#_g86911_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86913_| + (define |gx[1]#_g86917_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86916_| + (define |gx[1]#_g86920_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86919_| + (define |gx[1]#_g86923_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86922_| + (define |gx[1]#_g86926_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86924_| + (define |gx[1]#_g86928_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86926_| + (define |gx[1]#_g86930_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86928_| + (define |gx[1]#_g86932_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86934_| + (define |gx[1]#_g86938_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86937_| + (define |gx[1]#_g86941_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86940_| + (define |gx[1]#_g86944_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86946_| + (define |gx[1]#_g86950_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86949_| + (define |gx[1]#_g86953_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86952_| + (define |gx[1]#_g86956_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86958_| + (define |gx[1]#_g86962_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86961_| + (define |gx[1]#_g86965_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86964_| + (define |gx[1]#_g86968_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86970_| + (define |gx[1]#_g86974_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86973_| + (define |gx[1]#_g86977_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86976_| + (define |gx[1]#_g86980_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86980_| + (define |gx[1]#_g86984_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86982_| + (define |gx[1]#_g86986_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86984_| + (define |gx[1]#_g86988_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86990_| + (define |gx[1]#_g86994_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86993_| + (define |gx[1]#_g86997_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86996_| + (define |gx[1]#_g87000_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87002_| + (define |gx[1]#_g87006_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87005_| + (define |gx[1]#_g87009_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87008_| + (define |gx[1]#_g87012_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87014_| + (define |gx[1]#_g87018_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87017_| + (define |gx[1]#_g87021_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87020_| + (define |gx[1]#_g87024_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87026_| + (define |gx[1]#_g87030_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87029_| + (define |gx[1]#_g87033_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87032_| + (define |gx[1]#_g87036_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87035_| + (define |gx[1]#_g87039_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87037_| + (define |gx[1]#_g87041_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87039_| + (define |gx[1]#_g87043_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87041_| + (define |gx[1]#_g87045_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87048_| + (define |gx[1]#_g87052_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87051_| + (define |gx[1]#_g87055_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87054_| + (define |gx[1]#_g87058_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87057_| + (define |gx[1]#_g87061_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87064_| + (define |gx[1]#_g87068_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87067_| + (define |gx[1]#_g87071_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87070_| + (define |gx[1]#_g87074_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87073_| + (define |gx[1]#_g87077_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87080_| + (define |gx[1]#_g87084_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87083_| + (define |gx[1]#_g87087_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87086_| + (define |gx[1]#_g87090_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87089_| + (define |gx[1]#_g87093_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87096_| + (define |gx[1]#_g87100_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87099_| + (define |gx[1]#_g87103_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87102_| + (define |gx[1]#_g87106_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87105_| + (define |gx[1]#_g87109_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87109_| + (define |gx[1]#_g87113_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87111_| + (define |gx[1]#_g87115_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87113_| + (define |gx[1]#_g87117_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87119_| + (define |gx[1]#_g87123_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87122_| + (define |gx[1]#_g87126_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87125_| + (define |gx[1]#_g87129_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87131_| + (define |gx[1]#_g87135_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87134_| + (define |gx[1]#_g87138_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87137_| + (define |gx[1]#_g87141_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87143_| + (define |gx[1]#_g87147_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87146_| + (define |gx[1]#_g87150_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87149_| + (define |gx[1]#_g87153_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87155_| + (define |gx[1]#_g87159_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87158_| + (define |gx[1]#_g87162_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87161_| + (define |gx[1]#_g87165_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87165_| + (define |gx[1]#_g87169_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87167_| + (define |gx[1]#_g87171_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87169_| + (define |gx[1]#_g87173_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87176_| + (define |gx[1]#_g87180_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87179_| + (define |gx[1]#_g87183_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87182_| + (define |gx[1]#_g87186_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87185_| + (define |gx[1]#_g87189_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87192_| + (define |gx[1]#_g87196_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87195_| + (define |gx[1]#_g87199_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87198_| + (define |gx[1]#_g87202_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87201_| + (define |gx[1]#_g87205_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87208_| + (define |gx[1]#_g87212_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87211_| + (define |gx[1]#_g87215_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87214_| + (define |gx[1]#_g87218_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87217_| + (define |gx[1]#_g87221_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87224_| + (define |gx[1]#_g87228_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87227_| + (define |gx[1]#_g87231_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87230_| + (define |gx[1]#_g87234_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87233_| + (define |gx[1]#_g87237_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87237_| + (define |gx[1]#_g87241_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87239_| + (define |gx[1]#_g87243_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87241_| + (define |gx[1]#_g87245_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87250_| + (define |gx[1]#_g87254_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87253_| + (define |gx[1]#_g87257_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87256_| + (define |gx[1]#_g87260_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87259_| + (define |gx[1]#_g87263_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87262_| + (define |gx[1]#_g87266_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87265_| + (define |gx[1]#_g87269_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87274_| + (define |gx[1]#_g87278_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87277_| + (define |gx[1]#_g87281_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87280_| + (define |gx[1]#_g87284_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87283_| + (define |gx[1]#_g87287_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87286_| + (define |gx[1]#_g87290_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87289_| + (define |gx[1]#_g87293_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87298_| + (define |gx[1]#_g87302_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87301_| + (define |gx[1]#_g87305_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87304_| + (define |gx[1]#_g87308_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87307_| + (define |gx[1]#_g87311_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87310_| + (define |gx[1]#_g87314_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87313_| + (define |gx[1]#_g87317_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87322_| + (define |gx[1]#_g87326_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87325_| + (define |gx[1]#_g87329_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87328_| + (define |gx[1]#_g87332_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87331_| + (define |gx[1]#_g87335_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87334_| + (define |gx[1]#_g87338_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87337_| + (define |gx[1]#_g87341_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87341_| + (define |gx[1]#_g87345_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87343_| + (define |gx[1]#_g87347_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87345_| + (define |gx[1]#_g87349_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87352_| + (define |gx[1]#_g87356_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87355_| + (define |gx[1]#_g87359_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87358_| + (define |gx[1]#_g87362_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87361_| + (define |gx[1]#_g87365_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87368_| + (define |gx[1]#_g87372_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87371_| + (define |gx[1]#_g87375_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87374_| + (define |gx[1]#_g87378_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87377_| + (define |gx[1]#_g87381_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87384_| + (define |gx[1]#_g87388_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87387_| + (define |gx[1]#_g87391_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87390_| + (define |gx[1]#_g87394_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87393_| + (define |gx[1]#_g87397_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87400_| + (define |gx[1]#_g87404_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87403_| + (define |gx[1]#_g87407_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87406_| + (define |gx[1]#_g87410_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87409_| + (define |gx[1]#_g87413_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87411_| + (define |gx[1]#_g87415_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87413_| + (define |gx[1]#_g87417_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87415_| + (define |gx[1]#_g87419_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87419_| + (define |gx[1]#_g87423_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87423_| + (define |gx[1]#_g87427_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87427_| + (define |gx[1]#_g87431_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87431_| + (define |gx[1]#_g87435_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87434_| + (define |gx[1]#_g87438_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87436_| + (define |gx[1]#_g87440_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87438_| + (define |gx[1]#_g87442_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87440_| + (define |gx[1]#_g87444_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87446_| + (define |gx[1]#_g87450_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87449_| + (define |gx[1]#_g87453_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87452_| + (define |gx[1]#_g87456_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87458_| + (define |gx[1]#_g87462_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87461_| + (define |gx[1]#_g87465_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87464_| + (define |gx[1]#_g87468_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87470_| + (define |gx[1]#_g87474_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87473_| + (define |gx[1]#_g87477_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87476_| + (define |gx[1]#_g87480_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87482_| + (define |gx[1]#_g87486_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87485_| + (define |gx[1]#_g87489_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87488_| + (define |gx[1]#_g87492_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87491_| + (define |gx[1]#_g87495_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87493_| + (define |gx[1]#_g87497_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87495_| + (define |gx[1]#_g87499_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87497_| + (define |gx[1]#_g87501_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87503_| + (define |gx[1]#_g87507_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87506_| + (define |gx[1]#_g87510_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87509_| + (define |gx[1]#_g87513_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87515_| + (define |gx[1]#_g87519_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87518_| + (define |gx[1]#_g87522_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87521_| + (define |gx[1]#_g87525_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87527_| + (define |gx[1]#_g87531_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87530_| + (define |gx[1]#_g87534_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87533_| + (define |gx[1]#_g87537_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87539_| + (define |gx[1]#_g87543_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87542_| + (define |gx[1]#_g87546_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87545_| + (define |gx[1]#_g87549_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87549_| + (define |gx[1]#_g87553_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87551_| + (define |gx[1]#_g87555_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87553_| + (define |gx[1]#_g87557_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87559_| + (define |gx[1]#_g87563_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87562_| + (define |gx[1]#_g87566_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87565_| + (define |gx[1]#_g87569_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87571_| + (define |gx[1]#_g87575_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87574_| + (define |gx[1]#_g87578_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87577_| + (define |gx[1]#_g87581_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87583_| + (define |gx[1]#_g87587_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87586_| + (define |gx[1]#_g87590_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87589_| + (define |gx[1]#_g87593_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87595_| + (define |gx[1]#_g87599_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87598_| + (define |gx[1]#_g87602_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87601_| + (define |gx[1]#_g87605_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87604_| + (define |gx[1]#_g87608_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87606_| + (define |gx[1]#_g87610_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87608_| + (define |gx[1]#_g87612_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87610_| + (define |gx[1]#_g87614_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87616_| + (define |gx[1]#_g87620_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87619_| + (define |gx[1]#_g87623_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87622_| + (define |gx[1]#_g87626_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87628_| + (define |gx[1]#_g87632_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87631_| + (define |gx[1]#_g87635_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87634_| + (define |gx[1]#_g87638_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87640_| + (define |gx[1]#_g87644_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87643_| + (define |gx[1]#_g87647_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87646_| + (define |gx[1]#_g87650_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87652_| + (define |gx[1]#_g87656_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87655_| + (define |gx[1]#_g87659_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87658_| + (define |gx[1]#_g87662_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87662_| + (define |gx[1]#_g87666_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87664_| + (define |gx[1]#_g87668_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87666_| + (define |gx[1]#_g87670_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87672_| + (define |gx[1]#_g87676_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87675_| + (define |gx[1]#_g87679_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87678_| + (define |gx[1]#_g87682_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87684_| + (define |gx[1]#_g87688_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87687_| + (define |gx[1]#_g87691_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87690_| + (define |gx[1]#_g87694_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87696_| + (define |gx[1]#_g87700_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87699_| + (define |gx[1]#_g87703_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87702_| + (define |gx[1]#_g87706_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87708_| + (define |gx[1]#_g87712_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87711_| + (define |gx[1]#_g87715_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87714_| + (define |gx[1]#_g87718_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87717_| + (define |gx[1]#_g87721_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87719_| + (define |gx[1]#_g87723_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87721_| + (define |gx[1]#_g87725_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87723_| + (define |gx[1]#_g87727_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87729_| + (define |gx[1]#_g87733_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87732_| + (define |gx[1]#_g87736_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87735_| + (define |gx[1]#_g87739_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87741_| + (define |gx[1]#_g87745_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87744_| + (define |gx[1]#_g87748_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87747_| + (define |gx[1]#_g87751_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87753_| + (define |gx[1]#_g87757_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87756_| + (define |gx[1]#_g87760_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87759_| + (define |gx[1]#_g87763_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87765_| + (define |gx[1]#_g87769_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87768_| + (define |gx[1]#_g87772_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87771_| + (define |gx[1]#_g87775_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87775_| + (define |gx[1]#_g87779_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87777_| + (define |gx[1]#_g87781_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87779_| + (define |gx[1]#_g87783_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87783_| + (define |gx[1]#_g87787_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87787_| + (define |gx[1]#_g87791_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87791_| + (define |gx[1]#_g87795_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87795_| + (define |gx[1]#_g87799_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87798_| + (define |gx[1]#_g87802_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87800_| + (define |gx[1]#_g87804_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87802_| + (define |gx[1]#_g87806_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87804_| + (define |gx[1]#_g87808_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87808_| + (define |gx[1]#_g87812_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87812_| + (define |gx[1]#_g87816_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87816_| + (define |gx[1]#_g87820_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87820_| + (define |gx[1]#_g87824_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87824_| + (define |gx[1]#_g87828_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87826_| + (define |gx[1]#_g87830_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87828_| + (define |gx[1]#_g87832_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87832_| + (define |gx[1]#_g87836_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87836_| + (define |gx[1]#_g87840_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87840_| + (define |gx[1]#_g87844_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87844_| + (define |gx[1]#_g87848_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87848_| + (define |gx[1]#_g87852_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87850_| + (define |gx[1]#_g87854_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87852_| + (define |gx[1]#_g87856_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87856_| + (define |gx[1]#_g87860_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87860_| + (define |gx[1]#_g87864_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87864_| + (define |gx[1]#_g87868_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87868_| + (define |gx[1]#_g87872_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87871_| + (define |gx[1]#_g87875_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87873_| + (define |gx[1]#_g87877_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87875_| + (define |gx[1]#_g87879_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87877_| + (define |gx[1]#_g87881_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87881_| + (define |gx[1]#_g87885_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87885_| + (define |gx[1]#_g87889_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87889_| + (define |gx[1]#_g87893_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87893_| + (define |gx[1]#_g87897_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87897_| + (define |gx[1]#_g87901_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87899_| + (define |gx[1]#_g87903_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87901_| + (define |gx[1]#_g87905_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87907_| + (define |gx[1]#_g87911_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87910_| + (define |gx[1]#_g87914_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87913_| + (define |gx[1]#_g87917_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87919_| + (define |gx[1]#_g87923_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87922_| + (define |gx[1]#_g87926_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87925_| + (define |gx[1]#_g87929_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87931_| + (define |gx[1]#_g87935_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87934_| + (define |gx[1]#_g87938_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87937_| + (define |gx[1]#_g87941_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87943_| + (define |gx[1]#_g87947_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87946_| + (define |gx[1]#_g87950_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87949_| + (define |gx[1]#_g87953_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87951_| + (define |gx[1]#_g87955_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87953_| + (define |gx[1]#_g87957_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g87955_| + (define |gx[1]#_g87959_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87962_| + (define |gx[1]#_g87966_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g87965_| + (define |gx[1]#_g87969_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87968_| + (define |gx[1]#_g87972_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87971_| + (define |gx[1]#_g87975_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g87978_| + (define |gx[1]#_g87982_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87981_| + (define |gx[1]#_g87985_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87984_| + (define |gx[1]#_g87988_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87987_| + (define |gx[1]#_g87991_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87994_| + (define |gx[1]#_g87998_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g87997_| + (define |gx[1]#_g88001_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g88000_| + (define |gx[1]#_g88004_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g88003_| + (define |gx[1]#_g88007_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g88010_| + (define |gx[1]#_g88014_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g88013_| + (define |gx[1]#_g88017_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g88016_| + (define |gx[1]#_g88020_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g88019_| + (define |gx[1]#_g88023_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj86062 + (let ((__obj86066 (let () (declare (not safe)) (##structure @@ -3596,7 +3596,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86062 + __obj86066 'gx#expander-context::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3604,7 +3604,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86062 + __obj86066 'expander-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3612,7 +3612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86062 + __obj86066 '(id table) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3620,7 +3620,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86062 + __obj86066 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3628,7 +3628,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86062 + __obj86066 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3636,7 +3636,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86062 + __obj86066 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3644,7 +3644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86062 + __obj86066 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3652,122 +3652,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86062 + __obj86066 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86144 |gx[1]#_g86145_|)) + (let ((__tmp86148 |gx[1]#_g86149_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86062 - __tmp86144 + __obj86066 + __tmp86148 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86146 |gx[1]#_g86147_|)) + (let ((__tmp86150 |gx[1]#_g86151_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86062 - __tmp86146 + __obj86066 + __tmp86150 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86148 |gx[1]#_g86149_|)) + (let ((__tmp86152 |gx[1]#_g86153_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86062 - __tmp86148 + __obj86066 + __tmp86152 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86150 - (let ((__tmp86155 - (let ((__tmp86156 |gx[1]#_g86157_|)) + (let ((__tmp86154 + (let ((__tmp86159 + (let ((__tmp86160 |gx[1]#_g86161_|)) (declare (not safe)) - (cons 'id __tmp86156))) - (__tmp86151 - (let ((__tmp86152 - (let ((__tmp86153 |gx[1]#_g86154_|)) + (cons 'id __tmp86160))) + (__tmp86155 + (let ((__tmp86156 + (let ((__tmp86157 |gx[1]#_g86158_|)) (declare (not safe)) - (cons 'table __tmp86153)))) + (cons 'table __tmp86157)))) (declare (not safe)) - (cons __tmp86152 '())))) + (cons __tmp86156 '())))) (declare (not safe)) - (cons __tmp86155 __tmp86151)))) + (cons __tmp86159 __tmp86155)))) (declare (not safe)) (##unchecked-structure-set! - __obj86062 - __tmp86150 + __obj86066 + __tmp86154 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86158 - (let ((__tmp86163 - (let ((__tmp86164 |gx[1]#_g86165_|)) + (let ((__tmp86162 + (let ((__tmp86167 + (let ((__tmp86168 |gx[1]#_g86169_|)) (declare (not safe)) - (cons 'id __tmp86164))) - (__tmp86159 - (let ((__tmp86160 - (let ((__tmp86161 |gx[1]#_g86162_|)) + (cons 'id __tmp86168))) + (__tmp86163 + (let ((__tmp86164 + (let ((__tmp86165 |gx[1]#_g86166_|)) (declare (not safe)) - (cons 'table __tmp86161)))) + (cons 'table __tmp86165)))) (declare (not safe)) - (cons __tmp86160 '())))) + (cons __tmp86164 '())))) (declare (not safe)) - (cons __tmp86163 __tmp86159)))) + (cons __tmp86167 __tmp86163)))) (declare (not safe)) (##unchecked-structure-set! - __obj86062 - __tmp86158 + __obj86066 + __tmp86162 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86166 - (let ((__tmp86171 - (let ((__tmp86172 |gx[1]#_g86173_|)) + (let ((__tmp86170 + (let ((__tmp86175 + (let ((__tmp86176 |gx[1]#_g86177_|)) (declare (not safe)) - (cons 'id __tmp86172))) - (__tmp86167 - (let ((__tmp86168 - (let ((__tmp86169 |gx[1]#_g86170_|)) + (cons 'id __tmp86176))) + (__tmp86171 + (let ((__tmp86172 + (let ((__tmp86173 |gx[1]#_g86174_|)) (declare (not safe)) - (cons 'table __tmp86169)))) + (cons 'table __tmp86173)))) (declare (not safe)) - (cons __tmp86168 '())))) + (cons __tmp86172 '())))) (declare (not safe)) - (cons __tmp86171 __tmp86167)))) + (cons __tmp86175 __tmp86171)))) (declare (not safe)) (##unchecked-structure-set! - __obj86062 - __tmp86166 + __obj86066 + __tmp86170 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86174 - (let ((__tmp86179 - (let ((__tmp86180 |gx[1]#_g86181_|)) + (let ((__tmp86178 + (let ((__tmp86183 + (let ((__tmp86184 |gx[1]#_g86185_|)) (declare (not safe)) - (cons 'id __tmp86180))) - (__tmp86175 - (let ((__tmp86176 - (let ((__tmp86177 |gx[1]#_g86178_|)) + (cons 'id __tmp86184))) + (__tmp86179 + (let ((__tmp86180 + (let ((__tmp86181 |gx[1]#_g86182_|)) (declare (not safe)) - (cons 'table __tmp86177)))) + (cons 'table __tmp86181)))) (declare (not safe)) - (cons __tmp86176 '())))) + (cons __tmp86180 '())))) (declare (not safe)) - (cons __tmp86179 __tmp86175)))) + (cons __tmp86183 __tmp86179)))) (declare (not safe)) (##unchecked-structure-set! - __obj86062 - __tmp86174 + __obj86066 + __tmp86178 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86062)) + __obj86066)) (define |gx[:0:]#root-context| - (let ((__obj86063 + (let ((__obj86067 (let () (declare (not safe)) (##structure @@ -3791,7 +3791,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86063 + __obj86067 'gx#root-context::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3799,7 +3799,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86063 + __obj86067 'root-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3807,26 +3807,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86063 + __obj86067 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86182 - (let ((__tmp86183 |gx[1]#_g86184_|)) + (let ((__tmp86186 + (let ((__tmp86187 |gx[1]#_g86188_|)) (declare (not safe)) - (cons __tmp86183 '())))) + (cons __tmp86187 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86063 - __tmp86182 + __obj86067 + __tmp86186 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86063 + __obj86067 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3834,7 +3834,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86063 + __obj86067 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3842,7 +3842,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86063 + __obj86067 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3850,122 +3850,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86063 + __obj86067 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86185 |gx[1]#_g86186_|)) + (let ((__tmp86189 |gx[1]#_g86190_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86063 - __tmp86185 + __obj86067 + __tmp86189 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86187 |gx[1]#_g86188_|)) + (let ((__tmp86191 |gx[1]#_g86192_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86063 - __tmp86187 + __obj86067 + __tmp86191 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86189 |gx[1]#_g86190_|)) + (let ((__tmp86193 |gx[1]#_g86194_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86063 - __tmp86189 + __obj86067 + __tmp86193 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86191 - (let ((__tmp86196 - (let ((__tmp86197 |gx[1]#_g86198_|)) + (let ((__tmp86195 + (let ((__tmp86200 + (let ((__tmp86201 |gx[1]#_g86202_|)) (declare (not safe)) - (cons 'id __tmp86197))) - (__tmp86192 - (let ((__tmp86193 - (let ((__tmp86194 |gx[1]#_g86195_|)) + (cons 'id __tmp86201))) + (__tmp86196 + (let ((__tmp86197 + (let ((__tmp86198 |gx[1]#_g86199_|)) (declare (not safe)) - (cons 'table __tmp86194)))) + (cons 'table __tmp86198)))) (declare (not safe)) - (cons __tmp86193 '())))) + (cons __tmp86197 '())))) (declare (not safe)) - (cons __tmp86196 __tmp86192)))) + (cons __tmp86200 __tmp86196)))) (declare (not safe)) (##unchecked-structure-set! - __obj86063 - __tmp86191 + __obj86067 + __tmp86195 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86199 - (let ((__tmp86204 - (let ((__tmp86205 |gx[1]#_g86206_|)) + (let ((__tmp86203 + (let ((__tmp86208 + (let ((__tmp86209 |gx[1]#_g86210_|)) (declare (not safe)) - (cons 'id __tmp86205))) - (__tmp86200 - (let ((__tmp86201 - (let ((__tmp86202 |gx[1]#_g86203_|)) + (cons 'id __tmp86209))) + (__tmp86204 + (let ((__tmp86205 + (let ((__tmp86206 |gx[1]#_g86207_|)) (declare (not safe)) - (cons 'table __tmp86202)))) + (cons 'table __tmp86206)))) (declare (not safe)) - (cons __tmp86201 '())))) + (cons __tmp86205 '())))) (declare (not safe)) - (cons __tmp86204 __tmp86200)))) + (cons __tmp86208 __tmp86204)))) (declare (not safe)) (##unchecked-structure-set! - __obj86063 - __tmp86199 + __obj86067 + __tmp86203 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86207 - (let ((__tmp86212 - (let ((__tmp86213 |gx[1]#_g86214_|)) + (let ((__tmp86211 + (let ((__tmp86216 + (let ((__tmp86217 |gx[1]#_g86218_|)) (declare (not safe)) - (cons 'id __tmp86213))) - (__tmp86208 - (let ((__tmp86209 - (let ((__tmp86210 |gx[1]#_g86211_|)) + (cons 'id __tmp86217))) + (__tmp86212 + (let ((__tmp86213 + (let ((__tmp86214 |gx[1]#_g86215_|)) (declare (not safe)) - (cons 'table __tmp86210)))) + (cons 'table __tmp86214)))) (declare (not safe)) - (cons __tmp86209 '())))) + (cons __tmp86213 '())))) (declare (not safe)) - (cons __tmp86212 __tmp86208)))) + (cons __tmp86216 __tmp86212)))) (declare (not safe)) (##unchecked-structure-set! - __obj86063 - __tmp86207 + __obj86067 + __tmp86211 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86215 - (let ((__tmp86220 - (let ((__tmp86221 |gx[1]#_g86222_|)) + (let ((__tmp86219 + (let ((__tmp86224 + (let ((__tmp86225 |gx[1]#_g86226_|)) (declare (not safe)) - (cons 'id __tmp86221))) - (__tmp86216 - (let ((__tmp86217 - (let ((__tmp86218 |gx[1]#_g86219_|)) + (cons 'id __tmp86225))) + (__tmp86220 + (let ((__tmp86221 + (let ((__tmp86222 |gx[1]#_g86223_|)) (declare (not safe)) - (cons 'table __tmp86218)))) + (cons 'table __tmp86222)))) (declare (not safe)) - (cons __tmp86217 '())))) + (cons __tmp86221 '())))) (declare (not safe)) - (cons __tmp86220 __tmp86216)))) + (cons __tmp86224 __tmp86220)))) (declare (not safe)) (##unchecked-structure-set! - __obj86063 - __tmp86215 + __obj86067 + __tmp86219 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86063)) + __obj86067)) (define |gx[:0:]#phi-context| - (let ((__obj86064 + (let ((__obj86068 (let () (declare (not safe)) (##structure @@ -3989,7 +3989,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86064 + __obj86068 'gx#context-phi::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3997,7 +3997,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86064 + __obj86068 'phi-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4005,26 +4005,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86064 + __obj86068 '(super up down) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86223 - (let ((__tmp86224 |gx[1]#_g86184_|)) + (let ((__tmp86227 + (let ((__tmp86228 |gx[1]#_g86188_|)) (declare (not safe)) - (cons __tmp86224 '())))) + (cons __tmp86228 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86064 - __tmp86223 + __obj86068 + __tmp86227 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86064 + __obj86068 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4032,7 +4032,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86064 + __obj86068 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4040,7 +4040,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86064 + __obj86068 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4048,210 +4048,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86064 + __obj86068 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86225 |gx[1]#_g86226_|)) + (let ((__tmp86229 |gx[1]#_g86230_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86064 - __tmp86225 + __obj86068 + __tmp86229 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86227 |gx[1]#_g86228_|)) + (let ((__tmp86231 |gx[1]#_g86232_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86064 - __tmp86227 + __obj86068 + __tmp86231 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86229 |gx[1]#_g86230_|)) + (let ((__tmp86233 |gx[1]#_g86234_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86064 - __tmp86229 + __obj86068 + __tmp86233 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86231 - (let ((__tmp86248 - (let ((__tmp86249 |gx[1]#_g86250_|)) + (let ((__tmp86235 + (let ((__tmp86252 + (let ((__tmp86253 |gx[1]#_g86254_|)) (declare (not safe)) - (cons 'super __tmp86249))) - (__tmp86232 - (let ((__tmp86245 - (let ((__tmp86246 |gx[1]#_g86247_|)) + (cons 'super __tmp86253))) + (__tmp86236 + (let ((__tmp86249 + (let ((__tmp86250 |gx[1]#_g86251_|)) (declare (not safe)) - (cons 'up __tmp86246))) - (__tmp86233 - (let ((__tmp86242 - (let ((__tmp86243 |gx[1]#_g86244_|)) + (cons 'up __tmp86250))) + (__tmp86237 + (let ((__tmp86246 + (let ((__tmp86247 |gx[1]#_g86248_|)) (declare (not safe)) - (cons 'down __tmp86243))) - (__tmp86234 - (let ((__tmp86239 - (let ((__tmp86240 |gx[1]#_g86241_|)) + (cons 'down __tmp86247))) + (__tmp86238 + (let ((__tmp86243 + (let ((__tmp86244 |gx[1]#_g86245_|)) (declare (not safe)) - (cons 'id __tmp86240))) - (__tmp86235 - (let ((__tmp86236 - (let ((__tmp86237 - |gx[1]#_g86238_|)) + (cons 'id __tmp86244))) + (__tmp86239 + (let ((__tmp86240 + (let ((__tmp86241 + |gx[1]#_g86242_|)) (declare (not safe)) - (cons 'table __tmp86237)))) + (cons 'table __tmp86241)))) (declare (not safe)) - (cons __tmp86236 '())))) + (cons __tmp86240 '())))) (declare (not safe)) - (cons __tmp86239 __tmp86235)))) + (cons __tmp86243 __tmp86239)))) (declare (not safe)) - (cons __tmp86242 __tmp86234)))) + (cons __tmp86246 __tmp86238)))) (declare (not safe)) - (cons __tmp86245 __tmp86233)))) + (cons __tmp86249 __tmp86237)))) (declare (not safe)) - (cons __tmp86248 __tmp86232)))) + (cons __tmp86252 __tmp86236)))) (declare (not safe)) (##unchecked-structure-set! - __obj86064 - __tmp86231 + __obj86068 + __tmp86235 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86251 - (let ((__tmp86268 - (let ((__tmp86269 |gx[1]#_g86270_|)) + (let ((__tmp86255 + (let ((__tmp86272 + (let ((__tmp86273 |gx[1]#_g86274_|)) (declare (not safe)) - (cons 'super __tmp86269))) - (__tmp86252 - (let ((__tmp86265 - (let ((__tmp86266 |gx[1]#_g86267_|)) + (cons 'super __tmp86273))) + (__tmp86256 + (let ((__tmp86269 + (let ((__tmp86270 |gx[1]#_g86271_|)) (declare (not safe)) - (cons 'up __tmp86266))) - (__tmp86253 - (let ((__tmp86262 - (let ((__tmp86263 |gx[1]#_g86264_|)) + (cons 'up __tmp86270))) + (__tmp86257 + (let ((__tmp86266 + (let ((__tmp86267 |gx[1]#_g86268_|)) (declare (not safe)) - (cons 'down __tmp86263))) - (__tmp86254 - (let ((__tmp86259 - (let ((__tmp86260 |gx[1]#_g86261_|)) + (cons 'down __tmp86267))) + (__tmp86258 + (let ((__tmp86263 + (let ((__tmp86264 |gx[1]#_g86265_|)) (declare (not safe)) - (cons 'id __tmp86260))) - (__tmp86255 - (let ((__tmp86256 - (let ((__tmp86257 - |gx[1]#_g86258_|)) + (cons 'id __tmp86264))) + (__tmp86259 + (let ((__tmp86260 + (let ((__tmp86261 + |gx[1]#_g86262_|)) (declare (not safe)) - (cons 'table __tmp86257)))) + (cons 'table __tmp86261)))) (declare (not safe)) - (cons __tmp86256 '())))) + (cons __tmp86260 '())))) (declare (not safe)) - (cons __tmp86259 __tmp86255)))) + (cons __tmp86263 __tmp86259)))) (declare (not safe)) - (cons __tmp86262 __tmp86254)))) + (cons __tmp86266 __tmp86258)))) (declare (not safe)) - (cons __tmp86265 __tmp86253)))) + (cons __tmp86269 __tmp86257)))) (declare (not safe)) - (cons __tmp86268 __tmp86252)))) + (cons __tmp86272 __tmp86256)))) (declare (not safe)) (##unchecked-structure-set! - __obj86064 - __tmp86251 + __obj86068 + __tmp86255 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86271 - (let ((__tmp86288 - (let ((__tmp86289 |gx[1]#_g86290_|)) + (let ((__tmp86275 + (let ((__tmp86292 + (let ((__tmp86293 |gx[1]#_g86294_|)) (declare (not safe)) - (cons 'super __tmp86289))) - (__tmp86272 - (let ((__tmp86285 - (let ((__tmp86286 |gx[1]#_g86287_|)) + (cons 'super __tmp86293))) + (__tmp86276 + (let ((__tmp86289 + (let ((__tmp86290 |gx[1]#_g86291_|)) (declare (not safe)) - (cons 'up __tmp86286))) - (__tmp86273 - (let ((__tmp86282 - (let ((__tmp86283 |gx[1]#_g86284_|)) + (cons 'up __tmp86290))) + (__tmp86277 + (let ((__tmp86286 + (let ((__tmp86287 |gx[1]#_g86288_|)) (declare (not safe)) - (cons 'down __tmp86283))) - (__tmp86274 - (let ((__tmp86279 - (let ((__tmp86280 |gx[1]#_g86281_|)) + (cons 'down __tmp86287))) + (__tmp86278 + (let ((__tmp86283 + (let ((__tmp86284 |gx[1]#_g86285_|)) (declare (not safe)) - (cons 'id __tmp86280))) - (__tmp86275 - (let ((__tmp86276 - (let ((__tmp86277 - |gx[1]#_g86278_|)) + (cons 'id __tmp86284))) + (__tmp86279 + (let ((__tmp86280 + (let ((__tmp86281 + |gx[1]#_g86282_|)) (declare (not safe)) - (cons 'table __tmp86277)))) + (cons 'table __tmp86281)))) (declare (not safe)) - (cons __tmp86276 '())))) + (cons __tmp86280 '())))) (declare (not safe)) - (cons __tmp86279 __tmp86275)))) + (cons __tmp86283 __tmp86279)))) (declare (not safe)) - (cons __tmp86282 __tmp86274)))) + (cons __tmp86286 __tmp86278)))) (declare (not safe)) - (cons __tmp86285 __tmp86273)))) + (cons __tmp86289 __tmp86277)))) (declare (not safe)) - (cons __tmp86288 __tmp86272)))) + (cons __tmp86292 __tmp86276)))) (declare (not safe)) (##unchecked-structure-set! - __obj86064 - __tmp86271 + __obj86068 + __tmp86275 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86291 - (let ((__tmp86308 - (let ((__tmp86309 |gx[1]#_g86310_|)) + (let ((__tmp86295 + (let ((__tmp86312 + (let ((__tmp86313 |gx[1]#_g86314_|)) (declare (not safe)) - (cons 'super __tmp86309))) - (__tmp86292 - (let ((__tmp86305 - (let ((__tmp86306 |gx[1]#_g86307_|)) + (cons 'super __tmp86313))) + (__tmp86296 + (let ((__tmp86309 + (let ((__tmp86310 |gx[1]#_g86311_|)) (declare (not safe)) - (cons 'up __tmp86306))) - (__tmp86293 - (let ((__tmp86302 - (let ((__tmp86303 |gx[1]#_g86304_|)) + (cons 'up __tmp86310))) + (__tmp86297 + (let ((__tmp86306 + (let ((__tmp86307 |gx[1]#_g86308_|)) (declare (not safe)) - (cons 'down __tmp86303))) - (__tmp86294 - (let ((__tmp86299 - (let ((__tmp86300 |gx[1]#_g86301_|)) + (cons 'down __tmp86307))) + (__tmp86298 + (let ((__tmp86303 + (let ((__tmp86304 |gx[1]#_g86305_|)) (declare (not safe)) - (cons 'id __tmp86300))) - (__tmp86295 - (let ((__tmp86296 - (let ((__tmp86297 - |gx[1]#_g86298_|)) + (cons 'id __tmp86304))) + (__tmp86299 + (let ((__tmp86300 + (let ((__tmp86301 + |gx[1]#_g86302_|)) (declare (not safe)) - (cons 'table __tmp86297)))) + (cons 'table __tmp86301)))) (declare (not safe)) - (cons __tmp86296 '())))) + (cons __tmp86300 '())))) (declare (not safe)) - (cons __tmp86299 __tmp86295)))) + (cons __tmp86303 __tmp86299)))) (declare (not safe)) - (cons __tmp86302 __tmp86294)))) + (cons __tmp86306 __tmp86298)))) (declare (not safe)) - (cons __tmp86305 __tmp86293)))) + (cons __tmp86309 __tmp86297)))) (declare (not safe)) - (cons __tmp86308 __tmp86292)))) + (cons __tmp86312 __tmp86296)))) (declare (not safe)) (##unchecked-structure-set! - __obj86064 - __tmp86291 + __obj86068 + __tmp86295 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86064)) + __obj86068)) (define |gx[:0:]#top-context| - (let ((__obj86065 + (let ((__obj86069 (let () (declare (not safe)) (##structure @@ -4275,7 +4275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86065 + __obj86069 'gx#top-context::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4283,7 +4283,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86065 + __obj86069 'top-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4291,26 +4291,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86065 + __obj86069 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86311 - (let ((__tmp86312 |gx[1]#_g86313_|)) + (let ((__tmp86315 + (let ((__tmp86316 |gx[1]#_g86317_|)) (declare (not safe)) - (cons __tmp86312 '())))) + (cons __tmp86316 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86065 - __tmp86311 + __obj86069 + __tmp86315 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86065 + __obj86069 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4318,7 +4318,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86065 + __obj86069 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4326,7 +4326,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86065 + __obj86069 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4334,210 +4334,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86065 + __obj86069 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86314 |gx[1]#_g86315_|)) + (let ((__tmp86318 |gx[1]#_g86319_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86065 - __tmp86314 + __obj86069 + __tmp86318 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86316 |gx[1]#_g86317_|)) + (let ((__tmp86320 |gx[1]#_g86321_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86065 - __tmp86316 + __obj86069 + __tmp86320 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86318 |gx[1]#_g86319_|)) + (let ((__tmp86322 |gx[1]#_g86323_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86065 - __tmp86318 + __obj86069 + __tmp86322 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86320 - (let ((__tmp86337 - (let ((__tmp86338 |gx[1]#_g86339_|)) + (let ((__tmp86324 + (let ((__tmp86341 + (let ((__tmp86342 |gx[1]#_g86343_|)) (declare (not safe)) - (cons 'super __tmp86338))) - (__tmp86321 - (let ((__tmp86334 - (let ((__tmp86335 |gx[1]#_g86336_|)) + (cons 'super __tmp86342))) + (__tmp86325 + (let ((__tmp86338 + (let ((__tmp86339 |gx[1]#_g86340_|)) (declare (not safe)) - (cons 'up __tmp86335))) - (__tmp86322 - (let ((__tmp86331 - (let ((__tmp86332 |gx[1]#_g86333_|)) + (cons 'up __tmp86339))) + (__tmp86326 + (let ((__tmp86335 + (let ((__tmp86336 |gx[1]#_g86337_|)) (declare (not safe)) - (cons 'down __tmp86332))) - (__tmp86323 - (let ((__tmp86328 - (let ((__tmp86329 |gx[1]#_g86330_|)) + (cons 'down __tmp86336))) + (__tmp86327 + (let ((__tmp86332 + (let ((__tmp86333 |gx[1]#_g86334_|)) (declare (not safe)) - (cons 'id __tmp86329))) - (__tmp86324 - (let ((__tmp86325 - (let ((__tmp86326 - |gx[1]#_g86327_|)) + (cons 'id __tmp86333))) + (__tmp86328 + (let ((__tmp86329 + (let ((__tmp86330 + |gx[1]#_g86331_|)) (declare (not safe)) - (cons 'table __tmp86326)))) + (cons 'table __tmp86330)))) (declare (not safe)) - (cons __tmp86325 '())))) + (cons __tmp86329 '())))) (declare (not safe)) - (cons __tmp86328 __tmp86324)))) + (cons __tmp86332 __tmp86328)))) (declare (not safe)) - (cons __tmp86331 __tmp86323)))) + (cons __tmp86335 __tmp86327)))) (declare (not safe)) - (cons __tmp86334 __tmp86322)))) + (cons __tmp86338 __tmp86326)))) (declare (not safe)) - (cons __tmp86337 __tmp86321)))) + (cons __tmp86341 __tmp86325)))) (declare (not safe)) (##unchecked-structure-set! - __obj86065 - __tmp86320 + __obj86069 + __tmp86324 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86340 - (let ((__tmp86357 - (let ((__tmp86358 |gx[1]#_g86359_|)) + (let ((__tmp86344 + (let ((__tmp86361 + (let ((__tmp86362 |gx[1]#_g86363_|)) (declare (not safe)) - (cons 'super __tmp86358))) - (__tmp86341 - (let ((__tmp86354 - (let ((__tmp86355 |gx[1]#_g86356_|)) + (cons 'super __tmp86362))) + (__tmp86345 + (let ((__tmp86358 + (let ((__tmp86359 |gx[1]#_g86360_|)) (declare (not safe)) - (cons 'up __tmp86355))) - (__tmp86342 - (let ((__tmp86351 - (let ((__tmp86352 |gx[1]#_g86353_|)) + (cons 'up __tmp86359))) + (__tmp86346 + (let ((__tmp86355 + (let ((__tmp86356 |gx[1]#_g86357_|)) (declare (not safe)) - (cons 'down __tmp86352))) - (__tmp86343 - (let ((__tmp86348 - (let ((__tmp86349 |gx[1]#_g86350_|)) + (cons 'down __tmp86356))) + (__tmp86347 + (let ((__tmp86352 + (let ((__tmp86353 |gx[1]#_g86354_|)) (declare (not safe)) - (cons 'id __tmp86349))) - (__tmp86344 - (let ((__tmp86345 - (let ((__tmp86346 - |gx[1]#_g86347_|)) + (cons 'id __tmp86353))) + (__tmp86348 + (let ((__tmp86349 + (let ((__tmp86350 + |gx[1]#_g86351_|)) (declare (not safe)) - (cons 'table __tmp86346)))) + (cons 'table __tmp86350)))) (declare (not safe)) - (cons __tmp86345 '())))) + (cons __tmp86349 '())))) (declare (not safe)) - (cons __tmp86348 __tmp86344)))) + (cons __tmp86352 __tmp86348)))) (declare (not safe)) - (cons __tmp86351 __tmp86343)))) + (cons __tmp86355 __tmp86347)))) (declare (not safe)) - (cons __tmp86354 __tmp86342)))) + (cons __tmp86358 __tmp86346)))) (declare (not safe)) - (cons __tmp86357 __tmp86341)))) + (cons __tmp86361 __tmp86345)))) (declare (not safe)) (##unchecked-structure-set! - __obj86065 - __tmp86340 + __obj86069 + __tmp86344 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86360 - (let ((__tmp86377 - (let ((__tmp86378 |gx[1]#_g86379_|)) + (let ((__tmp86364 + (let ((__tmp86381 + (let ((__tmp86382 |gx[1]#_g86383_|)) (declare (not safe)) - (cons 'super __tmp86378))) - (__tmp86361 - (let ((__tmp86374 - (let ((__tmp86375 |gx[1]#_g86376_|)) + (cons 'super __tmp86382))) + (__tmp86365 + (let ((__tmp86378 + (let ((__tmp86379 |gx[1]#_g86380_|)) (declare (not safe)) - (cons 'up __tmp86375))) - (__tmp86362 - (let ((__tmp86371 - (let ((__tmp86372 |gx[1]#_g86373_|)) + (cons 'up __tmp86379))) + (__tmp86366 + (let ((__tmp86375 + (let ((__tmp86376 |gx[1]#_g86377_|)) (declare (not safe)) - (cons 'down __tmp86372))) - (__tmp86363 - (let ((__tmp86368 - (let ((__tmp86369 |gx[1]#_g86370_|)) + (cons 'down __tmp86376))) + (__tmp86367 + (let ((__tmp86372 + (let ((__tmp86373 |gx[1]#_g86374_|)) (declare (not safe)) - (cons 'id __tmp86369))) - (__tmp86364 - (let ((__tmp86365 - (let ((__tmp86366 - |gx[1]#_g86367_|)) + (cons 'id __tmp86373))) + (__tmp86368 + (let ((__tmp86369 + (let ((__tmp86370 + |gx[1]#_g86371_|)) (declare (not safe)) - (cons 'table __tmp86366)))) + (cons 'table __tmp86370)))) (declare (not safe)) - (cons __tmp86365 '())))) + (cons __tmp86369 '())))) (declare (not safe)) - (cons __tmp86368 __tmp86364)))) + (cons __tmp86372 __tmp86368)))) (declare (not safe)) - (cons __tmp86371 __tmp86363)))) + (cons __tmp86375 __tmp86367)))) (declare (not safe)) - (cons __tmp86374 __tmp86362)))) + (cons __tmp86378 __tmp86366)))) (declare (not safe)) - (cons __tmp86377 __tmp86361)))) + (cons __tmp86381 __tmp86365)))) (declare (not safe)) (##unchecked-structure-set! - __obj86065 - __tmp86360 + __obj86069 + __tmp86364 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86380 - (let ((__tmp86397 - (let ((__tmp86398 |gx[1]#_g86399_|)) + (let ((__tmp86384 + (let ((__tmp86401 + (let ((__tmp86402 |gx[1]#_g86403_|)) (declare (not safe)) - (cons 'super __tmp86398))) - (__tmp86381 - (let ((__tmp86394 - (let ((__tmp86395 |gx[1]#_g86396_|)) + (cons 'super __tmp86402))) + (__tmp86385 + (let ((__tmp86398 + (let ((__tmp86399 |gx[1]#_g86400_|)) (declare (not safe)) - (cons 'up __tmp86395))) - (__tmp86382 - (let ((__tmp86391 - (let ((__tmp86392 |gx[1]#_g86393_|)) + (cons 'up __tmp86399))) + (__tmp86386 + (let ((__tmp86395 + (let ((__tmp86396 |gx[1]#_g86397_|)) (declare (not safe)) - (cons 'down __tmp86392))) - (__tmp86383 - (let ((__tmp86388 - (let ((__tmp86389 |gx[1]#_g86390_|)) + (cons 'down __tmp86396))) + (__tmp86387 + (let ((__tmp86392 + (let ((__tmp86393 |gx[1]#_g86394_|)) (declare (not safe)) - (cons 'id __tmp86389))) - (__tmp86384 - (let ((__tmp86385 - (let ((__tmp86386 - |gx[1]#_g86387_|)) + (cons 'id __tmp86393))) + (__tmp86388 + (let ((__tmp86389 + (let ((__tmp86390 + |gx[1]#_g86391_|)) (declare (not safe)) - (cons 'table __tmp86386)))) + (cons 'table __tmp86390)))) (declare (not safe)) - (cons __tmp86385 '())))) + (cons __tmp86389 '())))) (declare (not safe)) - (cons __tmp86388 __tmp86384)))) + (cons __tmp86392 __tmp86388)))) (declare (not safe)) - (cons __tmp86391 __tmp86383)))) + (cons __tmp86395 __tmp86387)))) (declare (not safe)) - (cons __tmp86394 __tmp86382)))) + (cons __tmp86398 __tmp86386)))) (declare (not safe)) - (cons __tmp86397 __tmp86381)))) + (cons __tmp86401 __tmp86385)))) (declare (not safe)) (##unchecked-structure-set! - __obj86065 - __tmp86380 + __obj86069 + __tmp86384 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86065)) + __obj86069)) (define |gx[:0:]#module-context| - (let ((__obj86066 + (let ((__obj86070 (let () (declare (not safe)) (##structure @@ -4561,7 +4561,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86070 'gx#module-context::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4569,7 +4569,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86070 'module-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4577,26 +4577,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86070 '(ns path import export e code) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86400 - (let ((__tmp86401 |gx[1]#_g86402_|)) + (let ((__tmp86404 + (let ((__tmp86405 |gx[1]#_g86406_|)) (declare (not safe)) - (cons __tmp86401 '())))) + (cons __tmp86405 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86400 + __obj86070 + __tmp86404 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86070 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4604,7 +4604,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86070 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4612,7 +4612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86070 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4620,410 +4620,410 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86070 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86403 |gx[1]#_g86404_|)) + (let ((__tmp86407 |gx[1]#_g86408_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86403 + __obj86070 + __tmp86407 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86405 |gx[1]#_g86406_|)) + (let ((__tmp86409 |gx[1]#_g86410_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86405 + __obj86070 + __tmp86409 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86407 |gx[1]#_g86408_|)) + (let ((__tmp86411 |gx[1]#_g86412_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86407 + __obj86070 + __tmp86411 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86409 - (let ((__tmp86450 - (let ((__tmp86451 |gx[1]#_g86452_|)) + (let ((__tmp86413 + (let ((__tmp86454 + (let ((__tmp86455 |gx[1]#_g86456_|)) (declare (not safe)) - (cons 'ns __tmp86451))) - (__tmp86410 - (let ((__tmp86447 - (let ((__tmp86448 |gx[1]#_g86449_|)) + (cons 'ns __tmp86455))) + (__tmp86414 + (let ((__tmp86451 + (let ((__tmp86452 |gx[1]#_g86453_|)) (declare (not safe)) - (cons 'path __tmp86448))) - (__tmp86411 - (let ((__tmp86444 - (let ((__tmp86445 |gx[1]#_g86446_|)) + (cons 'path __tmp86452))) + (__tmp86415 + (let ((__tmp86448 + (let ((__tmp86449 |gx[1]#_g86450_|)) (declare (not safe)) - (cons 'import __tmp86445))) - (__tmp86412 - (let ((__tmp86441 - (let ((__tmp86442 |gx[1]#_g86443_|)) + (cons 'import __tmp86449))) + (__tmp86416 + (let ((__tmp86445 + (let ((__tmp86446 |gx[1]#_g86447_|)) (declare (not safe)) - (cons 'export __tmp86442))) - (__tmp86413 - (let ((__tmp86438 - (let ((__tmp86439 - |gx[1]#_g86440_|)) + (cons 'export __tmp86446))) + (__tmp86417 + (let ((__tmp86442 + (let ((__tmp86443 + |gx[1]#_g86444_|)) (declare (not safe)) - (cons 'e __tmp86439))) - (__tmp86414 - (let ((__tmp86435 - (let ((__tmp86436 - |gx[1]#_g86437_|)) + (cons 'e __tmp86443))) + (__tmp86418 + (let ((__tmp86439 + (let ((__tmp86440 + |gx[1]#_g86441_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86436))) - (__tmp86415 - (let ((__tmp86432 - (let ((__tmp86433 |gx[1]#_g86434_|)) + __tmp86440))) + (__tmp86419 + (let ((__tmp86436 + (let ((__tmp86437 |gx[1]#_g86438_|)) (declare (not safe)) - (cons 'super __tmp86433))) - (__tmp86416 - (let ((__tmp86429 - (let ((__tmp86430 |gx[1]#_g86431_|)) + (cons 'super __tmp86437))) + (__tmp86420 + (let ((__tmp86433 + (let ((__tmp86434 |gx[1]#_g86435_|)) (declare (not safe)) - (cons 'up __tmp86430))) - (__tmp86417 - (let ((__tmp86426 - (let ((__tmp86427 |gx[1]#_g86428_|)) + (cons 'up __tmp86434))) + (__tmp86421 + (let ((__tmp86430 + (let ((__tmp86431 |gx[1]#_g86432_|)) (declare (not safe)) - (cons 'down __tmp86427))) - (__tmp86418 - (let ((__tmp86423 - (let ((__tmp86424 - |gx[1]#_g86425_|)) + (cons 'down __tmp86431))) + (__tmp86422 + (let ((__tmp86427 + (let ((__tmp86428 + |gx[1]#_g86429_|)) (declare (not safe)) - (cons 'id __tmp86424))) - (__tmp86419 - (let ((__tmp86420 - (let ((__tmp86421 - |gx[1]#_g86422_|)) + (cons 'id __tmp86428))) + (__tmp86423 + (let ((__tmp86424 + (let ((__tmp86425 + |gx[1]#_g86426_|)) (declare (not safe)) (cons 'table - __tmp86421)))) + __tmp86425)))) (declare (not safe)) - (cons __tmp86420 '())))) + (cons __tmp86424 '())))) (declare (not safe)) - (cons __tmp86423 __tmp86419)))) + (cons __tmp86427 __tmp86423)))) (declare (not safe)) - (cons __tmp86426 __tmp86418)))) + (cons __tmp86430 __tmp86422)))) (declare (not safe)) - (cons __tmp86429 __tmp86417)))) + (cons __tmp86433 __tmp86421)))) (declare (not safe)) - (cons __tmp86432 __tmp86416)))) + (cons __tmp86436 __tmp86420)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86435 - __tmp86415)))) + (cons __tmp86439 + __tmp86419)))) (declare (not safe)) - (cons __tmp86438 __tmp86414)))) + (cons __tmp86442 __tmp86418)))) (declare (not safe)) - (cons __tmp86441 __tmp86413)))) + (cons __tmp86445 __tmp86417)))) (declare (not safe)) - (cons __tmp86444 __tmp86412)))) + (cons __tmp86448 __tmp86416)))) (declare (not safe)) - (cons __tmp86447 __tmp86411)))) + (cons __tmp86451 __tmp86415)))) (declare (not safe)) - (cons __tmp86450 __tmp86410)))) + (cons __tmp86454 __tmp86414)))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86409 + __obj86070 + __tmp86413 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86453 - (let ((__tmp86494 - (let ((__tmp86495 |gx[1]#_g86496_|)) + (let ((__tmp86457 + (let ((__tmp86498 + (let ((__tmp86499 |gx[1]#_g86500_|)) (declare (not safe)) - (cons 'ns __tmp86495))) - (__tmp86454 - (let ((__tmp86491 - (let ((__tmp86492 |gx[1]#_g86493_|)) + (cons 'ns __tmp86499))) + (__tmp86458 + (let ((__tmp86495 + (let ((__tmp86496 |gx[1]#_g86497_|)) (declare (not safe)) - (cons 'path __tmp86492))) - (__tmp86455 - (let ((__tmp86488 - (let ((__tmp86489 |gx[1]#_g86490_|)) + (cons 'path __tmp86496))) + (__tmp86459 + (let ((__tmp86492 + (let ((__tmp86493 |gx[1]#_g86494_|)) (declare (not safe)) - (cons 'import __tmp86489))) - (__tmp86456 - (let ((__tmp86485 - (let ((__tmp86486 |gx[1]#_g86487_|)) + (cons 'import __tmp86493))) + (__tmp86460 + (let ((__tmp86489 + (let ((__tmp86490 |gx[1]#_g86491_|)) (declare (not safe)) - (cons 'export __tmp86486))) - (__tmp86457 - (let ((__tmp86482 - (let ((__tmp86483 - |gx[1]#_g86484_|)) + (cons 'export __tmp86490))) + (__tmp86461 + (let ((__tmp86486 + (let ((__tmp86487 + |gx[1]#_g86488_|)) (declare (not safe)) - (cons 'e __tmp86483))) - (__tmp86458 - (let ((__tmp86479 - (let ((__tmp86480 - |gx[1]#_g86481_|)) + (cons 'e __tmp86487))) + (__tmp86462 + (let ((__tmp86483 + (let ((__tmp86484 + |gx[1]#_g86485_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86480))) - (__tmp86459 - (let ((__tmp86476 - (let ((__tmp86477 |gx[1]#_g86478_|)) + __tmp86484))) + (__tmp86463 + (let ((__tmp86480 + (let ((__tmp86481 |gx[1]#_g86482_|)) (declare (not safe)) - (cons 'super __tmp86477))) - (__tmp86460 - (let ((__tmp86473 - (let ((__tmp86474 |gx[1]#_g86475_|)) + (cons 'super __tmp86481))) + (__tmp86464 + (let ((__tmp86477 + (let ((__tmp86478 |gx[1]#_g86479_|)) (declare (not safe)) - (cons 'up __tmp86474))) - (__tmp86461 - (let ((__tmp86470 - (let ((__tmp86471 |gx[1]#_g86472_|)) + (cons 'up __tmp86478))) + (__tmp86465 + (let ((__tmp86474 + (let ((__tmp86475 |gx[1]#_g86476_|)) (declare (not safe)) - (cons 'down __tmp86471))) - (__tmp86462 - (let ((__tmp86467 - (let ((__tmp86468 - |gx[1]#_g86469_|)) + (cons 'down __tmp86475))) + (__tmp86466 + (let ((__tmp86471 + (let ((__tmp86472 + |gx[1]#_g86473_|)) (declare (not safe)) - (cons 'id __tmp86468))) - (__tmp86463 - (let ((__tmp86464 - (let ((__tmp86465 - |gx[1]#_g86466_|)) + (cons 'id __tmp86472))) + (__tmp86467 + (let ((__tmp86468 + (let ((__tmp86469 + |gx[1]#_g86470_|)) (declare (not safe)) (cons 'table - __tmp86465)))) + __tmp86469)))) (declare (not safe)) - (cons __tmp86464 '())))) + (cons __tmp86468 '())))) (declare (not safe)) - (cons __tmp86467 __tmp86463)))) + (cons __tmp86471 __tmp86467)))) (declare (not safe)) - (cons __tmp86470 __tmp86462)))) + (cons __tmp86474 __tmp86466)))) (declare (not safe)) - (cons __tmp86473 __tmp86461)))) + (cons __tmp86477 __tmp86465)))) (declare (not safe)) - (cons __tmp86476 __tmp86460)))) + (cons __tmp86480 __tmp86464)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86479 - __tmp86459)))) + (cons __tmp86483 + __tmp86463)))) (declare (not safe)) - (cons __tmp86482 __tmp86458)))) + (cons __tmp86486 __tmp86462)))) (declare (not safe)) - (cons __tmp86485 __tmp86457)))) + (cons __tmp86489 __tmp86461)))) (declare (not safe)) - (cons __tmp86488 __tmp86456)))) + (cons __tmp86492 __tmp86460)))) (declare (not safe)) - (cons __tmp86491 __tmp86455)))) + (cons __tmp86495 __tmp86459)))) (declare (not safe)) - (cons __tmp86494 __tmp86454)))) + (cons __tmp86498 __tmp86458)))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86453 + __obj86070 + __tmp86457 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86497 - (let ((__tmp86538 - (let ((__tmp86539 |gx[1]#_g86540_|)) + (let ((__tmp86501 + (let ((__tmp86542 + (let ((__tmp86543 |gx[1]#_g86544_|)) (declare (not safe)) - (cons 'ns __tmp86539))) - (__tmp86498 - (let ((__tmp86535 - (let ((__tmp86536 |gx[1]#_g86537_|)) + (cons 'ns __tmp86543))) + (__tmp86502 + (let ((__tmp86539 + (let ((__tmp86540 |gx[1]#_g86541_|)) (declare (not safe)) - (cons 'path __tmp86536))) - (__tmp86499 - (let ((__tmp86532 - (let ((__tmp86533 |gx[1]#_g86534_|)) + (cons 'path __tmp86540))) + (__tmp86503 + (let ((__tmp86536 + (let ((__tmp86537 |gx[1]#_g86538_|)) (declare (not safe)) - (cons 'import __tmp86533))) - (__tmp86500 - (let ((__tmp86529 - (let ((__tmp86530 |gx[1]#_g86531_|)) + (cons 'import __tmp86537))) + (__tmp86504 + (let ((__tmp86533 + (let ((__tmp86534 |gx[1]#_g86535_|)) (declare (not safe)) - (cons 'export __tmp86530))) - (__tmp86501 - (let ((__tmp86526 - (let ((__tmp86527 - |gx[1]#_g86528_|)) + (cons 'export __tmp86534))) + (__tmp86505 + (let ((__tmp86530 + (let ((__tmp86531 + |gx[1]#_g86532_|)) (declare (not safe)) - (cons 'e __tmp86527))) - (__tmp86502 - (let ((__tmp86523 - (let ((__tmp86524 - |gx[1]#_g86525_|)) + (cons 'e __tmp86531))) + (__tmp86506 + (let ((__tmp86527 + (let ((__tmp86528 + |gx[1]#_g86529_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86524))) - (__tmp86503 - (let ((__tmp86520 - (let ((__tmp86521 |gx[1]#_g86522_|)) + __tmp86528))) + (__tmp86507 + (let ((__tmp86524 + (let ((__tmp86525 |gx[1]#_g86526_|)) (declare (not safe)) - (cons 'super __tmp86521))) - (__tmp86504 - (let ((__tmp86517 - (let ((__tmp86518 |gx[1]#_g86519_|)) + (cons 'super __tmp86525))) + (__tmp86508 + (let ((__tmp86521 + (let ((__tmp86522 |gx[1]#_g86523_|)) (declare (not safe)) - (cons 'up __tmp86518))) - (__tmp86505 - (let ((__tmp86514 - (let ((__tmp86515 |gx[1]#_g86516_|)) + (cons 'up __tmp86522))) + (__tmp86509 + (let ((__tmp86518 + (let ((__tmp86519 |gx[1]#_g86520_|)) (declare (not safe)) - (cons 'down __tmp86515))) - (__tmp86506 - (let ((__tmp86511 - (let ((__tmp86512 - |gx[1]#_g86513_|)) + (cons 'down __tmp86519))) + (__tmp86510 + (let ((__tmp86515 + (let ((__tmp86516 + |gx[1]#_g86517_|)) (declare (not safe)) - (cons 'id __tmp86512))) - (__tmp86507 - (let ((__tmp86508 - (let ((__tmp86509 - |gx[1]#_g86510_|)) + (cons 'id __tmp86516))) + (__tmp86511 + (let ((__tmp86512 + (let ((__tmp86513 + |gx[1]#_g86514_|)) (declare (not safe)) (cons 'table - __tmp86509)))) + __tmp86513)))) (declare (not safe)) - (cons __tmp86508 '())))) + (cons __tmp86512 '())))) (declare (not safe)) - (cons __tmp86511 __tmp86507)))) + (cons __tmp86515 __tmp86511)))) (declare (not safe)) - (cons __tmp86514 __tmp86506)))) + (cons __tmp86518 __tmp86510)))) (declare (not safe)) - (cons __tmp86517 __tmp86505)))) + (cons __tmp86521 __tmp86509)))) (declare (not safe)) - (cons __tmp86520 __tmp86504)))) + (cons __tmp86524 __tmp86508)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86523 - __tmp86503)))) + (cons __tmp86527 + __tmp86507)))) (declare (not safe)) - (cons __tmp86526 __tmp86502)))) + (cons __tmp86530 __tmp86506)))) (declare (not safe)) - (cons __tmp86529 __tmp86501)))) + (cons __tmp86533 __tmp86505)))) (declare (not safe)) - (cons __tmp86532 __tmp86500)))) + (cons __tmp86536 __tmp86504)))) (declare (not safe)) - (cons __tmp86535 __tmp86499)))) + (cons __tmp86539 __tmp86503)))) (declare (not safe)) - (cons __tmp86538 __tmp86498)))) + (cons __tmp86542 __tmp86502)))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86497 + __obj86070 + __tmp86501 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86541 - (let ((__tmp86582 - (let ((__tmp86583 |gx[1]#_g86584_|)) + (let ((__tmp86545 + (let ((__tmp86586 + (let ((__tmp86587 |gx[1]#_g86588_|)) (declare (not safe)) - (cons 'ns __tmp86583))) - (__tmp86542 - (let ((__tmp86579 - (let ((__tmp86580 |gx[1]#_g86581_|)) + (cons 'ns __tmp86587))) + (__tmp86546 + (let ((__tmp86583 + (let ((__tmp86584 |gx[1]#_g86585_|)) (declare (not safe)) - (cons 'path __tmp86580))) - (__tmp86543 - (let ((__tmp86576 - (let ((__tmp86577 |gx[1]#_g86578_|)) + (cons 'path __tmp86584))) + (__tmp86547 + (let ((__tmp86580 + (let ((__tmp86581 |gx[1]#_g86582_|)) (declare (not safe)) - (cons 'import __tmp86577))) - (__tmp86544 - (let ((__tmp86573 - (let ((__tmp86574 |gx[1]#_g86575_|)) + (cons 'import __tmp86581))) + (__tmp86548 + (let ((__tmp86577 + (let ((__tmp86578 |gx[1]#_g86579_|)) (declare (not safe)) - (cons 'export __tmp86574))) - (__tmp86545 - (let ((__tmp86570 - (let ((__tmp86571 - |gx[1]#_g86572_|)) + (cons 'export __tmp86578))) + (__tmp86549 + (let ((__tmp86574 + (let ((__tmp86575 + |gx[1]#_g86576_|)) (declare (not safe)) - (cons 'e __tmp86571))) - (__tmp86546 - (let ((__tmp86567 - (let ((__tmp86568 - |gx[1]#_g86569_|)) + (cons 'e __tmp86575))) + (__tmp86550 + (let ((__tmp86571 + (let ((__tmp86572 + |gx[1]#_g86573_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86568))) - (__tmp86547 - (let ((__tmp86564 - (let ((__tmp86565 |gx[1]#_g86566_|)) + __tmp86572))) + (__tmp86551 + (let ((__tmp86568 + (let ((__tmp86569 |gx[1]#_g86570_|)) (declare (not safe)) - (cons 'super __tmp86565))) - (__tmp86548 - (let ((__tmp86561 - (let ((__tmp86562 |gx[1]#_g86563_|)) + (cons 'super __tmp86569))) + (__tmp86552 + (let ((__tmp86565 + (let ((__tmp86566 |gx[1]#_g86567_|)) (declare (not safe)) - (cons 'up __tmp86562))) - (__tmp86549 - (let ((__tmp86558 - (let ((__tmp86559 |gx[1]#_g86560_|)) + (cons 'up __tmp86566))) + (__tmp86553 + (let ((__tmp86562 + (let ((__tmp86563 |gx[1]#_g86564_|)) (declare (not safe)) - (cons 'down __tmp86559))) - (__tmp86550 - (let ((__tmp86555 - (let ((__tmp86556 - |gx[1]#_g86557_|)) + (cons 'down __tmp86563))) + (__tmp86554 + (let ((__tmp86559 + (let ((__tmp86560 + |gx[1]#_g86561_|)) (declare (not safe)) - (cons 'id __tmp86556))) - (__tmp86551 - (let ((__tmp86552 - (let ((__tmp86553 - |gx[1]#_g86554_|)) + (cons 'id __tmp86560))) + (__tmp86555 + (let ((__tmp86556 + (let ((__tmp86557 + |gx[1]#_g86558_|)) (declare (not safe)) (cons 'table - __tmp86553)))) + __tmp86557)))) (declare (not safe)) - (cons __tmp86552 '())))) + (cons __tmp86556 '())))) (declare (not safe)) - (cons __tmp86555 __tmp86551)))) + (cons __tmp86559 __tmp86555)))) (declare (not safe)) - (cons __tmp86558 __tmp86550)))) + (cons __tmp86562 __tmp86554)))) (declare (not safe)) - (cons __tmp86561 __tmp86549)))) + (cons __tmp86565 __tmp86553)))) (declare (not safe)) - (cons __tmp86564 __tmp86548)))) + (cons __tmp86568 __tmp86552)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86567 - __tmp86547)))) + (cons __tmp86571 + __tmp86551)))) (declare (not safe)) - (cons __tmp86570 __tmp86546)))) + (cons __tmp86574 __tmp86550)))) (declare (not safe)) - (cons __tmp86573 __tmp86545)))) + (cons __tmp86577 __tmp86549)))) (declare (not safe)) - (cons __tmp86576 __tmp86544)))) + (cons __tmp86580 __tmp86548)))) (declare (not safe)) - (cons __tmp86579 __tmp86543)))) + (cons __tmp86583 __tmp86547)))) (declare (not safe)) - (cons __tmp86582 __tmp86542)))) + (cons __tmp86586 __tmp86546)))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86541 + __obj86070 + __tmp86545 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86066)) + __obj86070)) (define |gx[:0:]#prelude-context| - (let ((__obj86067 + (let ((__obj86071 (let () (declare (not safe)) (##structure @@ -5047,7 +5047,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86071 'gx#prelude-context::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -5055,7 +5055,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86071 'prelude-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5063,26 +5063,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86071 '(path import e) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86585 - (let ((__tmp86586 |gx[1]#_g86402_|)) + (let ((__tmp86589 + (let ((__tmp86590 |gx[1]#_g86406_|)) (declare (not safe)) - (cons __tmp86586 '())))) + (cons __tmp86590 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86585 + __obj86071 + __tmp86589 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86071 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5090,7 +5090,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86071 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5098,7 +5098,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86071 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -5106,314 +5106,314 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86071 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86587 |gx[1]#_g86588_|)) + (let ((__tmp86591 |gx[1]#_g86592_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86587 + __obj86071 + __tmp86591 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86589 |gx[1]#_g86590_|)) + (let ((__tmp86593 |gx[1]#_g86594_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86589 + __obj86071 + __tmp86593 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86591 |gx[1]#_g86592_|)) + (let ((__tmp86595 |gx[1]#_g86596_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86591 + __obj86071 + __tmp86595 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86593 - (let ((__tmp86622 - (let ((__tmp86623 |gx[1]#_g86624_|)) + (let ((__tmp86597 + (let ((__tmp86626 + (let ((__tmp86627 |gx[1]#_g86628_|)) (declare (not safe)) - (cons 'path __tmp86623))) - (__tmp86594 - (let ((__tmp86619 - (let ((__tmp86620 |gx[1]#_g86621_|)) + (cons 'path __tmp86627))) + (__tmp86598 + (let ((__tmp86623 + (let ((__tmp86624 |gx[1]#_g86625_|)) (declare (not safe)) - (cons 'import __tmp86620))) - (__tmp86595 - (let ((__tmp86616 - (let ((__tmp86617 |gx[1]#_g86618_|)) + (cons 'import __tmp86624))) + (__tmp86599 + (let ((__tmp86620 + (let ((__tmp86621 |gx[1]#_g86622_|)) (declare (not safe)) - (cons 'e __tmp86617))) - (__tmp86596 - (let ((__tmp86613 - (let ((__tmp86614 |gx[1]#_g86615_|)) + (cons 'e __tmp86621))) + (__tmp86600 + (let ((__tmp86617 + (let ((__tmp86618 |gx[1]#_g86619_|)) (declare (not safe)) - (cons 'super __tmp86614))) - (__tmp86597 - (let ((__tmp86610 - (let ((__tmp86611 - |gx[1]#_g86612_|)) + (cons 'super __tmp86618))) + (__tmp86601 + (let ((__tmp86614 + (let ((__tmp86615 + |gx[1]#_g86616_|)) (declare (not safe)) - (cons 'up __tmp86611))) - (__tmp86598 - (let ((__tmp86607 - (let ((__tmp86608 - |gx[1]#_g86609_|)) + (cons 'up __tmp86615))) + (__tmp86602 + (let ((__tmp86611 + (let ((__tmp86612 + |gx[1]#_g86613_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86608))) - (__tmp86599 - (let ((__tmp86604 - (let ((__tmp86605 |gx[1]#_g86606_|)) + __tmp86612))) + (__tmp86603 + (let ((__tmp86608 + (let ((__tmp86609 |gx[1]#_g86610_|)) (declare (not safe)) - (cons 'id __tmp86605))) - (__tmp86600 - (let ((__tmp86601 - (let ((__tmp86602 |gx[1]#_g86603_|)) + (cons 'id __tmp86609))) + (__tmp86604 + (let ((__tmp86605 + (let ((__tmp86606 |gx[1]#_g86607_|)) (declare (not safe)) - (cons 'table __tmp86602)))) + (cons 'table __tmp86606)))) (declare (not safe)) - (cons __tmp86601 '())))) + (cons __tmp86605 '())))) (declare (not safe)) - (cons __tmp86604 __tmp86600)))) + (cons __tmp86608 __tmp86604)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86607 - __tmp86599)))) + (cons __tmp86611 + __tmp86603)))) (declare (not safe)) - (cons __tmp86610 __tmp86598)))) + (cons __tmp86614 __tmp86602)))) (declare (not safe)) - (cons __tmp86613 __tmp86597)))) + (cons __tmp86617 __tmp86601)))) (declare (not safe)) - (cons __tmp86616 __tmp86596)))) + (cons __tmp86620 __tmp86600)))) (declare (not safe)) - (cons __tmp86619 __tmp86595)))) + (cons __tmp86623 __tmp86599)))) (declare (not safe)) - (cons __tmp86622 __tmp86594)))) + (cons __tmp86626 __tmp86598)))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86593 + __obj86071 + __tmp86597 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86625 - (let ((__tmp86654 - (let ((__tmp86655 |gx[1]#_g86656_|)) + (let ((__tmp86629 + (let ((__tmp86658 + (let ((__tmp86659 |gx[1]#_g86660_|)) (declare (not safe)) - (cons 'path __tmp86655))) - (__tmp86626 - (let ((__tmp86651 - (let ((__tmp86652 |gx[1]#_g86653_|)) + (cons 'path __tmp86659))) + (__tmp86630 + (let ((__tmp86655 + (let ((__tmp86656 |gx[1]#_g86657_|)) (declare (not safe)) - (cons 'import __tmp86652))) - (__tmp86627 - (let ((__tmp86648 - (let ((__tmp86649 |gx[1]#_g86650_|)) + (cons 'import __tmp86656))) + (__tmp86631 + (let ((__tmp86652 + (let ((__tmp86653 |gx[1]#_g86654_|)) (declare (not safe)) - (cons 'e __tmp86649))) - (__tmp86628 - (let ((__tmp86645 - (let ((__tmp86646 |gx[1]#_g86647_|)) + (cons 'e __tmp86653))) + (__tmp86632 + (let ((__tmp86649 + (let ((__tmp86650 |gx[1]#_g86651_|)) (declare (not safe)) - (cons 'super __tmp86646))) - (__tmp86629 - (let ((__tmp86642 - (let ((__tmp86643 - |gx[1]#_g86644_|)) + (cons 'super __tmp86650))) + (__tmp86633 + (let ((__tmp86646 + (let ((__tmp86647 + |gx[1]#_g86648_|)) (declare (not safe)) - (cons 'up __tmp86643))) - (__tmp86630 - (let ((__tmp86639 - (let ((__tmp86640 - |gx[1]#_g86641_|)) + (cons 'up __tmp86647))) + (__tmp86634 + (let ((__tmp86643 + (let ((__tmp86644 + |gx[1]#_g86645_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86640))) - (__tmp86631 - (let ((__tmp86636 - (let ((__tmp86637 |gx[1]#_g86638_|)) + __tmp86644))) + (__tmp86635 + (let ((__tmp86640 + (let ((__tmp86641 |gx[1]#_g86642_|)) (declare (not safe)) - (cons 'id __tmp86637))) - (__tmp86632 - (let ((__tmp86633 - (let ((__tmp86634 |gx[1]#_g86635_|)) + (cons 'id __tmp86641))) + (__tmp86636 + (let ((__tmp86637 + (let ((__tmp86638 |gx[1]#_g86639_|)) (declare (not safe)) - (cons 'table __tmp86634)))) + (cons 'table __tmp86638)))) (declare (not safe)) - (cons __tmp86633 '())))) + (cons __tmp86637 '())))) (declare (not safe)) - (cons __tmp86636 __tmp86632)))) + (cons __tmp86640 __tmp86636)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86639 - __tmp86631)))) + (cons __tmp86643 + __tmp86635)))) (declare (not safe)) - (cons __tmp86642 __tmp86630)))) + (cons __tmp86646 __tmp86634)))) (declare (not safe)) - (cons __tmp86645 __tmp86629)))) + (cons __tmp86649 __tmp86633)))) (declare (not safe)) - (cons __tmp86648 __tmp86628)))) + (cons __tmp86652 __tmp86632)))) (declare (not safe)) - (cons __tmp86651 __tmp86627)))) + (cons __tmp86655 __tmp86631)))) (declare (not safe)) - (cons __tmp86654 __tmp86626)))) + (cons __tmp86658 __tmp86630)))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86625 + __obj86071 + __tmp86629 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86657 - (let ((__tmp86686 - (let ((__tmp86687 |gx[1]#_g86688_|)) + (let ((__tmp86661 + (let ((__tmp86690 + (let ((__tmp86691 |gx[1]#_g86692_|)) (declare (not safe)) - (cons 'path __tmp86687))) - (__tmp86658 - (let ((__tmp86683 - (let ((__tmp86684 |gx[1]#_g86685_|)) + (cons 'path __tmp86691))) + (__tmp86662 + (let ((__tmp86687 + (let ((__tmp86688 |gx[1]#_g86689_|)) (declare (not safe)) - (cons 'import __tmp86684))) - (__tmp86659 - (let ((__tmp86680 - (let ((__tmp86681 |gx[1]#_g86682_|)) + (cons 'import __tmp86688))) + (__tmp86663 + (let ((__tmp86684 + (let ((__tmp86685 |gx[1]#_g86686_|)) (declare (not safe)) - (cons 'e __tmp86681))) - (__tmp86660 - (let ((__tmp86677 - (let ((__tmp86678 |gx[1]#_g86679_|)) + (cons 'e __tmp86685))) + (__tmp86664 + (let ((__tmp86681 + (let ((__tmp86682 |gx[1]#_g86683_|)) (declare (not safe)) - (cons 'super __tmp86678))) - (__tmp86661 - (let ((__tmp86674 - (let ((__tmp86675 - |gx[1]#_g86676_|)) + (cons 'super __tmp86682))) + (__tmp86665 + (let ((__tmp86678 + (let ((__tmp86679 + |gx[1]#_g86680_|)) (declare (not safe)) - (cons 'up __tmp86675))) - (__tmp86662 - (let ((__tmp86671 - (let ((__tmp86672 - |gx[1]#_g86673_|)) + (cons 'up __tmp86679))) + (__tmp86666 + (let ((__tmp86675 + (let ((__tmp86676 + |gx[1]#_g86677_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86672))) - (__tmp86663 - (let ((__tmp86668 - (let ((__tmp86669 |gx[1]#_g86670_|)) + __tmp86676))) + (__tmp86667 + (let ((__tmp86672 + (let ((__tmp86673 |gx[1]#_g86674_|)) (declare (not safe)) - (cons 'id __tmp86669))) - (__tmp86664 - (let ((__tmp86665 - (let ((__tmp86666 |gx[1]#_g86667_|)) + (cons 'id __tmp86673))) + (__tmp86668 + (let ((__tmp86669 + (let ((__tmp86670 |gx[1]#_g86671_|)) (declare (not safe)) - (cons 'table __tmp86666)))) + (cons 'table __tmp86670)))) (declare (not safe)) - (cons __tmp86665 '())))) + (cons __tmp86669 '())))) (declare (not safe)) - (cons __tmp86668 __tmp86664)))) + (cons __tmp86672 __tmp86668)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86671 - __tmp86663)))) + (cons __tmp86675 + __tmp86667)))) (declare (not safe)) - (cons __tmp86674 __tmp86662)))) + (cons __tmp86678 __tmp86666)))) (declare (not safe)) - (cons __tmp86677 __tmp86661)))) + (cons __tmp86681 __tmp86665)))) (declare (not safe)) - (cons __tmp86680 __tmp86660)))) + (cons __tmp86684 __tmp86664)))) (declare (not safe)) - (cons __tmp86683 __tmp86659)))) + (cons __tmp86687 __tmp86663)))) (declare (not safe)) - (cons __tmp86686 __tmp86658)))) + (cons __tmp86690 __tmp86662)))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86657 + __obj86071 + __tmp86661 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86689 - (let ((__tmp86718 - (let ((__tmp86719 |gx[1]#_g86720_|)) + (let ((__tmp86693 + (let ((__tmp86722 + (let ((__tmp86723 |gx[1]#_g86724_|)) (declare (not safe)) - (cons 'path __tmp86719))) - (__tmp86690 - (let ((__tmp86715 - (let ((__tmp86716 |gx[1]#_g86717_|)) + (cons 'path __tmp86723))) + (__tmp86694 + (let ((__tmp86719 + (let ((__tmp86720 |gx[1]#_g86721_|)) (declare (not safe)) - (cons 'import __tmp86716))) - (__tmp86691 - (let ((__tmp86712 - (let ((__tmp86713 |gx[1]#_g86714_|)) + (cons 'import __tmp86720))) + (__tmp86695 + (let ((__tmp86716 + (let ((__tmp86717 |gx[1]#_g86718_|)) (declare (not safe)) - (cons 'e __tmp86713))) - (__tmp86692 - (let ((__tmp86709 - (let ((__tmp86710 |gx[1]#_g86711_|)) + (cons 'e __tmp86717))) + (__tmp86696 + (let ((__tmp86713 + (let ((__tmp86714 |gx[1]#_g86715_|)) (declare (not safe)) - (cons 'super __tmp86710))) - (__tmp86693 - (let ((__tmp86706 - (let ((__tmp86707 - |gx[1]#_g86708_|)) + (cons 'super __tmp86714))) + (__tmp86697 + (let ((__tmp86710 + (let ((__tmp86711 + |gx[1]#_g86712_|)) (declare (not safe)) - (cons 'up __tmp86707))) - (__tmp86694 - (let ((__tmp86703 - (let ((__tmp86704 - |gx[1]#_g86705_|)) + (cons 'up __tmp86711))) + (__tmp86698 + (let ((__tmp86707 + (let ((__tmp86708 + |gx[1]#_g86709_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86704))) - (__tmp86695 - (let ((__tmp86700 - (let ((__tmp86701 |gx[1]#_g86702_|)) + __tmp86708))) + (__tmp86699 + (let ((__tmp86704 + (let ((__tmp86705 |gx[1]#_g86706_|)) (declare (not safe)) - (cons 'id __tmp86701))) - (__tmp86696 - (let ((__tmp86697 - (let ((__tmp86698 |gx[1]#_g86699_|)) + (cons 'id __tmp86705))) + (__tmp86700 + (let ((__tmp86701 + (let ((__tmp86702 |gx[1]#_g86703_|)) (declare (not safe)) - (cons 'table __tmp86698)))) + (cons 'table __tmp86702)))) (declare (not safe)) - (cons __tmp86697 '())))) + (cons __tmp86701 '())))) (declare (not safe)) - (cons __tmp86700 __tmp86696)))) + (cons __tmp86704 __tmp86700)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86703 - __tmp86695)))) + (cons __tmp86707 + __tmp86699)))) (declare (not safe)) - (cons __tmp86706 __tmp86694)))) + (cons __tmp86710 __tmp86698)))) (declare (not safe)) - (cons __tmp86709 __tmp86693)))) + (cons __tmp86713 __tmp86697)))) (declare (not safe)) - (cons __tmp86712 __tmp86692)))) + (cons __tmp86716 __tmp86696)))) (declare (not safe)) - (cons __tmp86715 __tmp86691)))) + (cons __tmp86719 __tmp86695)))) (declare (not safe)) - (cons __tmp86718 __tmp86690)))) + (cons __tmp86722 __tmp86694)))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86689 + __obj86071 + __tmp86693 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86067)) + __obj86071)) (define |gx[:0:]#local-context| - (let ((__obj86068 + (let ((__obj86072 (let () (declare (not safe)) (##structure @@ -5437,7 +5437,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86072 'gx#local-context::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -5445,7 +5445,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86072 'local-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5453,26 +5453,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86072 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86721 - (let ((__tmp86722 |gx[1]#_g86313_|)) + (let ((__tmp86725 + (let ((__tmp86726 |gx[1]#_g86317_|)) (declare (not safe)) - (cons __tmp86722 '())))) + (cons __tmp86726 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86721 + __obj86072 + __tmp86725 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86072 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5480,7 +5480,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86072 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5488,7 +5488,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86072 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -5496,210 +5496,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86072 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86723 |gx[1]#_g86724_|)) + (let ((__tmp86727 |gx[1]#_g86728_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86723 + __obj86072 + __tmp86727 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86725 |gx[1]#_g86726_|)) + (let ((__tmp86729 |gx[1]#_g86730_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86725 + __obj86072 + __tmp86729 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86727 |gx[1]#_g86728_|)) + (let ((__tmp86731 |gx[1]#_g86732_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86727 + __obj86072 + __tmp86731 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86729 - (let ((__tmp86746 - (let ((__tmp86747 |gx[1]#_g86748_|)) + (let ((__tmp86733 + (let ((__tmp86750 + (let ((__tmp86751 |gx[1]#_g86752_|)) (declare (not safe)) - (cons 'super __tmp86747))) - (__tmp86730 - (let ((__tmp86743 - (let ((__tmp86744 |gx[1]#_g86745_|)) + (cons 'super __tmp86751))) + (__tmp86734 + (let ((__tmp86747 + (let ((__tmp86748 |gx[1]#_g86749_|)) (declare (not safe)) - (cons 'up __tmp86744))) - (__tmp86731 - (let ((__tmp86740 - (let ((__tmp86741 |gx[1]#_g86742_|)) + (cons 'up __tmp86748))) + (__tmp86735 + (let ((__tmp86744 + (let ((__tmp86745 |gx[1]#_g86746_|)) (declare (not safe)) - (cons 'down __tmp86741))) - (__tmp86732 - (let ((__tmp86737 - (let ((__tmp86738 |gx[1]#_g86739_|)) + (cons 'down __tmp86745))) + (__tmp86736 + (let ((__tmp86741 + (let ((__tmp86742 |gx[1]#_g86743_|)) (declare (not safe)) - (cons 'id __tmp86738))) - (__tmp86733 - (let ((__tmp86734 - (let ((__tmp86735 - |gx[1]#_g86736_|)) + (cons 'id __tmp86742))) + (__tmp86737 + (let ((__tmp86738 + (let ((__tmp86739 + |gx[1]#_g86740_|)) (declare (not safe)) - (cons 'table __tmp86735)))) + (cons 'table __tmp86739)))) (declare (not safe)) - (cons __tmp86734 '())))) + (cons __tmp86738 '())))) (declare (not safe)) - (cons __tmp86737 __tmp86733)))) + (cons __tmp86741 __tmp86737)))) (declare (not safe)) - (cons __tmp86740 __tmp86732)))) + (cons __tmp86744 __tmp86736)))) (declare (not safe)) - (cons __tmp86743 __tmp86731)))) + (cons __tmp86747 __tmp86735)))) (declare (not safe)) - (cons __tmp86746 __tmp86730)))) + (cons __tmp86750 __tmp86734)))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86729 + __obj86072 + __tmp86733 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86749 - (let ((__tmp86766 - (let ((__tmp86767 |gx[1]#_g86768_|)) + (let ((__tmp86753 + (let ((__tmp86770 + (let ((__tmp86771 |gx[1]#_g86772_|)) (declare (not safe)) - (cons 'super __tmp86767))) - (__tmp86750 - (let ((__tmp86763 - (let ((__tmp86764 |gx[1]#_g86765_|)) + (cons 'super __tmp86771))) + (__tmp86754 + (let ((__tmp86767 + (let ((__tmp86768 |gx[1]#_g86769_|)) (declare (not safe)) - (cons 'up __tmp86764))) - (__tmp86751 - (let ((__tmp86760 - (let ((__tmp86761 |gx[1]#_g86762_|)) + (cons 'up __tmp86768))) + (__tmp86755 + (let ((__tmp86764 + (let ((__tmp86765 |gx[1]#_g86766_|)) (declare (not safe)) - (cons 'down __tmp86761))) - (__tmp86752 - (let ((__tmp86757 - (let ((__tmp86758 |gx[1]#_g86759_|)) + (cons 'down __tmp86765))) + (__tmp86756 + (let ((__tmp86761 + (let ((__tmp86762 |gx[1]#_g86763_|)) (declare (not safe)) - (cons 'id __tmp86758))) - (__tmp86753 - (let ((__tmp86754 - (let ((__tmp86755 - |gx[1]#_g86756_|)) + (cons 'id __tmp86762))) + (__tmp86757 + (let ((__tmp86758 + (let ((__tmp86759 + |gx[1]#_g86760_|)) (declare (not safe)) - (cons 'table __tmp86755)))) + (cons 'table __tmp86759)))) (declare (not safe)) - (cons __tmp86754 '())))) + (cons __tmp86758 '())))) (declare (not safe)) - (cons __tmp86757 __tmp86753)))) + (cons __tmp86761 __tmp86757)))) (declare (not safe)) - (cons __tmp86760 __tmp86752)))) + (cons __tmp86764 __tmp86756)))) (declare (not safe)) - (cons __tmp86763 __tmp86751)))) + (cons __tmp86767 __tmp86755)))) (declare (not safe)) - (cons __tmp86766 __tmp86750)))) + (cons __tmp86770 __tmp86754)))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86749 + __obj86072 + __tmp86753 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86769 - (let ((__tmp86786 - (let ((__tmp86787 |gx[1]#_g86788_|)) + (let ((__tmp86773 + (let ((__tmp86790 + (let ((__tmp86791 |gx[1]#_g86792_|)) (declare (not safe)) - (cons 'super __tmp86787))) - (__tmp86770 - (let ((__tmp86783 - (let ((__tmp86784 |gx[1]#_g86785_|)) + (cons 'super __tmp86791))) + (__tmp86774 + (let ((__tmp86787 + (let ((__tmp86788 |gx[1]#_g86789_|)) (declare (not safe)) - (cons 'up __tmp86784))) - (__tmp86771 - (let ((__tmp86780 - (let ((__tmp86781 |gx[1]#_g86782_|)) + (cons 'up __tmp86788))) + (__tmp86775 + (let ((__tmp86784 + (let ((__tmp86785 |gx[1]#_g86786_|)) (declare (not safe)) - (cons 'down __tmp86781))) - (__tmp86772 - (let ((__tmp86777 - (let ((__tmp86778 |gx[1]#_g86779_|)) + (cons 'down __tmp86785))) + (__tmp86776 + (let ((__tmp86781 + (let ((__tmp86782 |gx[1]#_g86783_|)) (declare (not safe)) - (cons 'id __tmp86778))) - (__tmp86773 - (let ((__tmp86774 - (let ((__tmp86775 - |gx[1]#_g86776_|)) + (cons 'id __tmp86782))) + (__tmp86777 + (let ((__tmp86778 + (let ((__tmp86779 + |gx[1]#_g86780_|)) (declare (not safe)) - (cons 'table __tmp86775)))) + (cons 'table __tmp86779)))) (declare (not safe)) - (cons __tmp86774 '())))) + (cons __tmp86778 '())))) (declare (not safe)) - (cons __tmp86777 __tmp86773)))) + (cons __tmp86781 __tmp86777)))) (declare (not safe)) - (cons __tmp86780 __tmp86772)))) + (cons __tmp86784 __tmp86776)))) (declare (not safe)) - (cons __tmp86783 __tmp86771)))) + (cons __tmp86787 __tmp86775)))) (declare (not safe)) - (cons __tmp86786 __tmp86770)))) + (cons __tmp86790 __tmp86774)))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86769 + __obj86072 + __tmp86773 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86789 - (let ((__tmp86806 - (let ((__tmp86807 |gx[1]#_g86808_|)) + (let ((__tmp86793 + (let ((__tmp86810 + (let ((__tmp86811 |gx[1]#_g86812_|)) (declare (not safe)) - (cons 'super __tmp86807))) - (__tmp86790 - (let ((__tmp86803 - (let ((__tmp86804 |gx[1]#_g86805_|)) + (cons 'super __tmp86811))) + (__tmp86794 + (let ((__tmp86807 + (let ((__tmp86808 |gx[1]#_g86809_|)) (declare (not safe)) - (cons 'up __tmp86804))) - (__tmp86791 - (let ((__tmp86800 - (let ((__tmp86801 |gx[1]#_g86802_|)) + (cons 'up __tmp86808))) + (__tmp86795 + (let ((__tmp86804 + (let ((__tmp86805 |gx[1]#_g86806_|)) (declare (not safe)) - (cons 'down __tmp86801))) - (__tmp86792 - (let ((__tmp86797 - (let ((__tmp86798 |gx[1]#_g86799_|)) + (cons 'down __tmp86805))) + (__tmp86796 + (let ((__tmp86801 + (let ((__tmp86802 |gx[1]#_g86803_|)) (declare (not safe)) - (cons 'id __tmp86798))) - (__tmp86793 - (let ((__tmp86794 - (let ((__tmp86795 - |gx[1]#_g86796_|)) + (cons 'id __tmp86802))) + (__tmp86797 + (let ((__tmp86798 + (let ((__tmp86799 + |gx[1]#_g86800_|)) (declare (not safe)) - (cons 'table __tmp86795)))) + (cons 'table __tmp86799)))) (declare (not safe)) - (cons __tmp86794 '())))) + (cons __tmp86798 '())))) (declare (not safe)) - (cons __tmp86797 __tmp86793)))) + (cons __tmp86801 __tmp86797)))) (declare (not safe)) - (cons __tmp86800 __tmp86792)))) + (cons __tmp86804 __tmp86796)))) (declare (not safe)) - (cons __tmp86803 __tmp86791)))) + (cons __tmp86807 __tmp86795)))) (declare (not safe)) - (cons __tmp86806 __tmp86790)))) + (cons __tmp86810 __tmp86794)))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86789 + __obj86072 + __tmp86793 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86068)) + __obj86072)) (define |gx[:0:]#binding| - (let ((__obj86069 + (let ((__obj86073 (let () (declare (not safe)) (##structure @@ -5723,7 +5723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86073 'gx#binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -5731,7 +5731,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86073 'binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5739,7 +5739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86073 '(id key phi) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -5747,7 +5747,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86073 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -5755,7 +5755,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86073 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5763,7 +5763,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86073 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5771,7 +5771,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86073 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -5779,150 +5779,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86073 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86809 |gx[1]#_g86810_|)) + (let ((__tmp86813 |gx[1]#_g86814_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86809 + __obj86073 + __tmp86813 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86811 |gx[1]#_g86812_|)) + (let ((__tmp86815 |gx[1]#_g86816_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86811 + __obj86073 + __tmp86815 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86813 |gx[1]#_g86814_|)) + (let ((__tmp86817 |gx[1]#_g86818_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86813 + __obj86073 + __tmp86817 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86815 - (let ((__tmp86824 - (let ((__tmp86825 |gx[1]#_g86826_|)) + (let ((__tmp86819 + (let ((__tmp86828 + (let ((__tmp86829 |gx[1]#_g86830_|)) (declare (not safe)) - (cons 'id __tmp86825))) - (__tmp86816 - (let ((__tmp86821 - (let ((__tmp86822 |gx[1]#_g86823_|)) + (cons 'id __tmp86829))) + (__tmp86820 + (let ((__tmp86825 + (let ((__tmp86826 |gx[1]#_g86827_|)) (declare (not safe)) - (cons 'key __tmp86822))) - (__tmp86817 - (let ((__tmp86818 - (let ((__tmp86819 |gx[1]#_g86820_|)) + (cons 'key __tmp86826))) + (__tmp86821 + (let ((__tmp86822 + (let ((__tmp86823 |gx[1]#_g86824_|)) (declare (not safe)) - (cons 'phi __tmp86819)))) + (cons 'phi __tmp86823)))) (declare (not safe)) - (cons __tmp86818 '())))) + (cons __tmp86822 '())))) (declare (not safe)) - (cons __tmp86821 __tmp86817)))) + (cons __tmp86825 __tmp86821)))) (declare (not safe)) - (cons __tmp86824 __tmp86816)))) + (cons __tmp86828 __tmp86820)))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86815 + __obj86073 + __tmp86819 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86827 - (let ((__tmp86836 - (let ((__tmp86837 |gx[1]#_g86838_|)) + (let ((__tmp86831 + (let ((__tmp86840 + (let ((__tmp86841 |gx[1]#_g86842_|)) (declare (not safe)) - (cons 'id __tmp86837))) - (__tmp86828 - (let ((__tmp86833 - (let ((__tmp86834 |gx[1]#_g86835_|)) + (cons 'id __tmp86841))) + (__tmp86832 + (let ((__tmp86837 + (let ((__tmp86838 |gx[1]#_g86839_|)) (declare (not safe)) - (cons 'key __tmp86834))) - (__tmp86829 - (let ((__tmp86830 - (let ((__tmp86831 |gx[1]#_g86832_|)) + (cons 'key __tmp86838))) + (__tmp86833 + (let ((__tmp86834 + (let ((__tmp86835 |gx[1]#_g86836_|)) (declare (not safe)) - (cons 'phi __tmp86831)))) + (cons 'phi __tmp86835)))) (declare (not safe)) - (cons __tmp86830 '())))) + (cons __tmp86834 '())))) (declare (not safe)) - (cons __tmp86833 __tmp86829)))) + (cons __tmp86837 __tmp86833)))) (declare (not safe)) - (cons __tmp86836 __tmp86828)))) + (cons __tmp86840 __tmp86832)))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86827 + __obj86073 + __tmp86831 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86839 - (let ((__tmp86848 - (let ((__tmp86849 |gx[1]#_g86850_|)) + (let ((__tmp86843 + (let ((__tmp86852 + (let ((__tmp86853 |gx[1]#_g86854_|)) (declare (not safe)) - (cons 'id __tmp86849))) - (__tmp86840 - (let ((__tmp86845 - (let ((__tmp86846 |gx[1]#_g86847_|)) + (cons 'id __tmp86853))) + (__tmp86844 + (let ((__tmp86849 + (let ((__tmp86850 |gx[1]#_g86851_|)) (declare (not safe)) - (cons 'key __tmp86846))) - (__tmp86841 - (let ((__tmp86842 - (let ((__tmp86843 |gx[1]#_g86844_|)) + (cons 'key __tmp86850))) + (__tmp86845 + (let ((__tmp86846 + (let ((__tmp86847 |gx[1]#_g86848_|)) (declare (not safe)) - (cons 'phi __tmp86843)))) + (cons 'phi __tmp86847)))) (declare (not safe)) - (cons __tmp86842 '())))) + (cons __tmp86846 '())))) (declare (not safe)) - (cons __tmp86845 __tmp86841)))) + (cons __tmp86849 __tmp86845)))) (declare (not safe)) - (cons __tmp86848 __tmp86840)))) + (cons __tmp86852 __tmp86844)))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86839 + __obj86073 + __tmp86843 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86851 - (let ((__tmp86860 - (let ((__tmp86861 |gx[1]#_g86862_|)) + (let ((__tmp86855 + (let ((__tmp86864 + (let ((__tmp86865 |gx[1]#_g86866_|)) (declare (not safe)) - (cons 'id __tmp86861))) - (__tmp86852 - (let ((__tmp86857 - (let ((__tmp86858 |gx[1]#_g86859_|)) + (cons 'id __tmp86865))) + (__tmp86856 + (let ((__tmp86861 + (let ((__tmp86862 |gx[1]#_g86863_|)) (declare (not safe)) - (cons 'key __tmp86858))) - (__tmp86853 - (let ((__tmp86854 - (let ((__tmp86855 |gx[1]#_g86856_|)) + (cons 'key __tmp86862))) + (__tmp86857 + (let ((__tmp86858 + (let ((__tmp86859 |gx[1]#_g86860_|)) (declare (not safe)) - (cons 'phi __tmp86855)))) + (cons 'phi __tmp86859)))) (declare (not safe)) - (cons __tmp86854 '())))) + (cons __tmp86858 '())))) (declare (not safe)) - (cons __tmp86857 __tmp86853)))) + (cons __tmp86861 __tmp86857)))) (declare (not safe)) - (cons __tmp86860 __tmp86852)))) + (cons __tmp86864 __tmp86856)))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86851 + __obj86073 + __tmp86855 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86069)) + __obj86073)) (define |gx[:0:]#runtime-binding| - (let ((__obj86070 + (let ((__obj86074 (let () (declare (not safe)) (##structure @@ -5946,7 +5946,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86074 'gx#runtime-binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -5954,7 +5954,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86074 'runtime-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5962,26 +5962,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86074 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86863 - (let ((__tmp86864 |gx[1]#_g86865_|)) + (let ((__tmp86867 + (let ((__tmp86868 |gx[1]#_g86869_|)) (declare (not safe)) - (cons __tmp86864 '())))) + (cons __tmp86868 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86863 + __obj86074 + __tmp86867 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86074 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5989,7 +5989,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86074 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5997,7 +5997,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86074 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6005,150 +6005,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86074 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86866 |gx[1]#_g86867_|)) + (let ((__tmp86870 |gx[1]#_g86871_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86866 + __obj86074 + __tmp86870 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86868 |gx[1]#_g86869_|)) + (let ((__tmp86872 |gx[1]#_g86873_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86868 + __obj86074 + __tmp86872 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86870 |gx[1]#_g86871_|)) + (let ((__tmp86874 |gx[1]#_g86875_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86870 + __obj86074 + __tmp86874 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86872 - (let ((__tmp86881 - (let ((__tmp86882 |gx[1]#_g86883_|)) + (let ((__tmp86876 + (let ((__tmp86885 + (let ((__tmp86886 |gx[1]#_g86887_|)) (declare (not safe)) - (cons 'id __tmp86882))) - (__tmp86873 - (let ((__tmp86878 - (let ((__tmp86879 |gx[1]#_g86880_|)) + (cons 'id __tmp86886))) + (__tmp86877 + (let ((__tmp86882 + (let ((__tmp86883 |gx[1]#_g86884_|)) (declare (not safe)) - (cons 'key __tmp86879))) - (__tmp86874 - (let ((__tmp86875 - (let ((__tmp86876 |gx[1]#_g86877_|)) + (cons 'key __tmp86883))) + (__tmp86878 + (let ((__tmp86879 + (let ((__tmp86880 |gx[1]#_g86881_|)) (declare (not safe)) - (cons 'phi __tmp86876)))) + (cons 'phi __tmp86880)))) (declare (not safe)) - (cons __tmp86875 '())))) + (cons __tmp86879 '())))) (declare (not safe)) - (cons __tmp86878 __tmp86874)))) + (cons __tmp86882 __tmp86878)))) (declare (not safe)) - (cons __tmp86881 __tmp86873)))) + (cons __tmp86885 __tmp86877)))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86872 + __obj86074 + __tmp86876 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86884 - (let ((__tmp86893 - (let ((__tmp86894 |gx[1]#_g86895_|)) + (let ((__tmp86888 + (let ((__tmp86897 + (let ((__tmp86898 |gx[1]#_g86899_|)) (declare (not safe)) - (cons 'id __tmp86894))) - (__tmp86885 - (let ((__tmp86890 - (let ((__tmp86891 |gx[1]#_g86892_|)) + (cons 'id __tmp86898))) + (__tmp86889 + (let ((__tmp86894 + (let ((__tmp86895 |gx[1]#_g86896_|)) (declare (not safe)) - (cons 'key __tmp86891))) - (__tmp86886 - (let ((__tmp86887 - (let ((__tmp86888 |gx[1]#_g86889_|)) + (cons 'key __tmp86895))) + (__tmp86890 + (let ((__tmp86891 + (let ((__tmp86892 |gx[1]#_g86893_|)) (declare (not safe)) - (cons 'phi __tmp86888)))) + (cons 'phi __tmp86892)))) (declare (not safe)) - (cons __tmp86887 '())))) + (cons __tmp86891 '())))) (declare (not safe)) - (cons __tmp86890 __tmp86886)))) + (cons __tmp86894 __tmp86890)))) (declare (not safe)) - (cons __tmp86893 __tmp86885)))) + (cons __tmp86897 __tmp86889)))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86884 + __obj86074 + __tmp86888 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86896 - (let ((__tmp86905 - (let ((__tmp86906 |gx[1]#_g86907_|)) + (let ((__tmp86900 + (let ((__tmp86909 + (let ((__tmp86910 |gx[1]#_g86911_|)) (declare (not safe)) - (cons 'id __tmp86906))) - (__tmp86897 - (let ((__tmp86902 - (let ((__tmp86903 |gx[1]#_g86904_|)) + (cons 'id __tmp86910))) + (__tmp86901 + (let ((__tmp86906 + (let ((__tmp86907 |gx[1]#_g86908_|)) (declare (not safe)) - (cons 'key __tmp86903))) - (__tmp86898 - (let ((__tmp86899 - (let ((__tmp86900 |gx[1]#_g86901_|)) + (cons 'key __tmp86907))) + (__tmp86902 + (let ((__tmp86903 + (let ((__tmp86904 |gx[1]#_g86905_|)) (declare (not safe)) - (cons 'phi __tmp86900)))) + (cons 'phi __tmp86904)))) (declare (not safe)) - (cons __tmp86899 '())))) + (cons __tmp86903 '())))) (declare (not safe)) - (cons __tmp86902 __tmp86898)))) + (cons __tmp86906 __tmp86902)))) (declare (not safe)) - (cons __tmp86905 __tmp86897)))) + (cons __tmp86909 __tmp86901)))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86896 + __obj86074 + __tmp86900 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86908 - (let ((__tmp86917 - (let ((__tmp86918 |gx[1]#_g86919_|)) + (let ((__tmp86912 + (let ((__tmp86921 + (let ((__tmp86922 |gx[1]#_g86923_|)) (declare (not safe)) - (cons 'id __tmp86918))) - (__tmp86909 - (let ((__tmp86914 - (let ((__tmp86915 |gx[1]#_g86916_|)) + (cons 'id __tmp86922))) + (__tmp86913 + (let ((__tmp86918 + (let ((__tmp86919 |gx[1]#_g86920_|)) (declare (not safe)) - (cons 'key __tmp86915))) - (__tmp86910 - (let ((__tmp86911 - (let ((__tmp86912 |gx[1]#_g86913_|)) + (cons 'key __tmp86919))) + (__tmp86914 + (let ((__tmp86915 + (let ((__tmp86916 |gx[1]#_g86917_|)) (declare (not safe)) - (cons 'phi __tmp86912)))) + (cons 'phi __tmp86916)))) (declare (not safe)) - (cons __tmp86911 '())))) + (cons __tmp86915 '())))) (declare (not safe)) - (cons __tmp86914 __tmp86910)))) + (cons __tmp86918 __tmp86914)))) (declare (not safe)) - (cons __tmp86917 __tmp86909)))) + (cons __tmp86921 __tmp86913)))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86908 + __obj86074 + __tmp86912 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86070)) + __obj86074)) (define |gx[:0:]#local-binding| - (let ((__obj86071 + (let ((__obj86075 (let () (declare (not safe)) (##structure @@ -6172,7 +6172,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86075 'gx#local-binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86075 'local-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -6188,26 +6188,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86075 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86920 - (let ((__tmp86921 |gx[1]#_g86922_|)) + (let ((__tmp86924 + (let ((__tmp86925 |gx[1]#_g86926_|)) (declare (not safe)) - (cons __tmp86921 '())))) + (cons __tmp86925 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86920 + __obj86075 + __tmp86924 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86075 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -6215,7 +6215,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86075 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -6223,7 +6223,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86075 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6231,150 +6231,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86075 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86923 |gx[1]#_g86924_|)) + (let ((__tmp86927 |gx[1]#_g86928_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86923 + __obj86075 + __tmp86927 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86925 |gx[1]#_g86926_|)) + (let ((__tmp86929 |gx[1]#_g86930_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86925 - '11 + __obj86075 + __tmp86929 + '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86927 |gx[1]#_g86928_|)) + (let ((__tmp86931 |gx[1]#_g86932_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86927 + __obj86075 + __tmp86931 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86929 - (let ((__tmp86938 - (let ((__tmp86939 |gx[1]#_g86940_|)) + (let ((__tmp86933 + (let ((__tmp86942 + (let ((__tmp86943 |gx[1]#_g86944_|)) (declare (not safe)) - (cons 'id __tmp86939))) - (__tmp86930 - (let ((__tmp86935 - (let ((__tmp86936 |gx[1]#_g86937_|)) + (cons 'id __tmp86943))) + (__tmp86934 + (let ((__tmp86939 + (let ((__tmp86940 |gx[1]#_g86941_|)) (declare (not safe)) - (cons 'key __tmp86936))) - (__tmp86931 - (let ((__tmp86932 - (let ((__tmp86933 |gx[1]#_g86934_|)) + (cons 'key __tmp86940))) + (__tmp86935 + (let ((__tmp86936 + (let ((__tmp86937 |gx[1]#_g86938_|)) (declare (not safe)) - (cons 'phi __tmp86933)))) + (cons 'phi __tmp86937)))) (declare (not safe)) - (cons __tmp86932 '())))) + (cons __tmp86936 '())))) (declare (not safe)) - (cons __tmp86935 __tmp86931)))) + (cons __tmp86939 __tmp86935)))) (declare (not safe)) - (cons __tmp86938 __tmp86930)))) + (cons __tmp86942 __tmp86934)))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86929 + __obj86075 + __tmp86933 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86941 - (let ((__tmp86950 - (let ((__tmp86951 |gx[1]#_g86952_|)) + (let ((__tmp86945 + (let ((__tmp86954 + (let ((__tmp86955 |gx[1]#_g86956_|)) (declare (not safe)) - (cons 'id __tmp86951))) - (__tmp86942 - (let ((__tmp86947 - (let ((__tmp86948 |gx[1]#_g86949_|)) + (cons 'id __tmp86955))) + (__tmp86946 + (let ((__tmp86951 + (let ((__tmp86952 |gx[1]#_g86953_|)) (declare (not safe)) - (cons 'key __tmp86948))) - (__tmp86943 - (let ((__tmp86944 - (let ((__tmp86945 |gx[1]#_g86946_|)) + (cons 'key __tmp86952))) + (__tmp86947 + (let ((__tmp86948 + (let ((__tmp86949 |gx[1]#_g86950_|)) (declare (not safe)) - (cons 'phi __tmp86945)))) + (cons 'phi __tmp86949)))) (declare (not safe)) - (cons __tmp86944 '())))) + (cons __tmp86948 '())))) (declare (not safe)) - (cons __tmp86947 __tmp86943)))) + (cons __tmp86951 __tmp86947)))) (declare (not safe)) - (cons __tmp86950 __tmp86942)))) + (cons __tmp86954 __tmp86946)))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86941 + __obj86075 + __tmp86945 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86953 - (let ((__tmp86962 - (let ((__tmp86963 |gx[1]#_g86964_|)) + (let ((__tmp86957 + (let ((__tmp86966 + (let ((__tmp86967 |gx[1]#_g86968_|)) (declare (not safe)) - (cons 'id __tmp86963))) - (__tmp86954 - (let ((__tmp86959 - (let ((__tmp86960 |gx[1]#_g86961_|)) + (cons 'id __tmp86967))) + (__tmp86958 + (let ((__tmp86963 + (let ((__tmp86964 |gx[1]#_g86965_|)) (declare (not safe)) - (cons 'key __tmp86960))) - (__tmp86955 - (let ((__tmp86956 - (let ((__tmp86957 |gx[1]#_g86958_|)) + (cons 'key __tmp86964))) + (__tmp86959 + (let ((__tmp86960 + (let ((__tmp86961 |gx[1]#_g86962_|)) (declare (not safe)) - (cons 'phi __tmp86957)))) + (cons 'phi __tmp86961)))) (declare (not safe)) - (cons __tmp86956 '())))) + (cons __tmp86960 '())))) (declare (not safe)) - (cons __tmp86959 __tmp86955)))) + (cons __tmp86963 __tmp86959)))) (declare (not safe)) - (cons __tmp86962 __tmp86954)))) + (cons __tmp86966 __tmp86958)))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86953 + __obj86075 + __tmp86957 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86965 - (let ((__tmp86974 - (let ((__tmp86975 |gx[1]#_g86976_|)) + (let ((__tmp86969 + (let ((__tmp86978 + (let ((__tmp86979 |gx[1]#_g86980_|)) (declare (not safe)) - (cons 'id __tmp86975))) - (__tmp86966 - (let ((__tmp86971 - (let ((__tmp86972 |gx[1]#_g86973_|)) + (cons 'id __tmp86979))) + (__tmp86970 + (let ((__tmp86975 + (let ((__tmp86976 |gx[1]#_g86977_|)) (declare (not safe)) - (cons 'key __tmp86972))) - (__tmp86967 - (let ((__tmp86968 - (let ((__tmp86969 |gx[1]#_g86970_|)) + (cons 'key __tmp86976))) + (__tmp86971 + (let ((__tmp86972 + (let ((__tmp86973 |gx[1]#_g86974_|)) (declare (not safe)) - (cons 'phi __tmp86969)))) + (cons 'phi __tmp86973)))) (declare (not safe)) - (cons __tmp86968 '())))) + (cons __tmp86972 '())))) (declare (not safe)) - (cons __tmp86971 __tmp86967)))) + (cons __tmp86975 __tmp86971)))) (declare (not safe)) - (cons __tmp86974 __tmp86966)))) + (cons __tmp86978 __tmp86970)))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86965 + __obj86075 + __tmp86969 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86071)) + __obj86075)) (define |gx[:0:]#top-binding| - (let ((__obj86072 + (let ((__obj86076 (let () (declare (not safe)) (##structure @@ -6398,7 +6398,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86076 'gx#top-binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -6406,7 +6406,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86076 'top-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -6414,26 +6414,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86076 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86977 - (let ((__tmp86978 |gx[1]#_g86922_|)) + (let ((__tmp86981 + (let ((__tmp86982 |gx[1]#_g86926_|)) (declare (not safe)) - (cons __tmp86978 '())))) + (cons __tmp86982 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86977 + __obj86076 + __tmp86981 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86076 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -6441,7 +6441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86076 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -6449,7 +6449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86076 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6457,150 +6457,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86076 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86979 |gx[1]#_g86980_|)) + (let ((__tmp86983 |gx[1]#_g86984_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86979 + __obj86076 + __tmp86983 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86981 |gx[1]#_g86982_|)) + (let ((__tmp86985 |gx[1]#_g86986_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86981 + __obj86076 + __tmp86985 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86983 |gx[1]#_g86984_|)) + (let ((__tmp86987 |gx[1]#_g86988_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86983 + __obj86076 + __tmp86987 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86985 - (let ((__tmp86994 - (let ((__tmp86995 |gx[1]#_g86996_|)) + (let ((__tmp86989 + (let ((__tmp86998 + (let ((__tmp86999 |gx[1]#_g87000_|)) (declare (not safe)) - (cons 'id __tmp86995))) - (__tmp86986 - (let ((__tmp86991 - (let ((__tmp86992 |gx[1]#_g86993_|)) + (cons 'id __tmp86999))) + (__tmp86990 + (let ((__tmp86995 + (let ((__tmp86996 |gx[1]#_g86997_|)) (declare (not safe)) - (cons 'key __tmp86992))) - (__tmp86987 - (let ((__tmp86988 - (let ((__tmp86989 |gx[1]#_g86990_|)) + (cons 'key __tmp86996))) + (__tmp86991 + (let ((__tmp86992 + (let ((__tmp86993 |gx[1]#_g86994_|)) (declare (not safe)) - (cons 'phi __tmp86989)))) + (cons 'phi __tmp86993)))) (declare (not safe)) - (cons __tmp86988 '())))) + (cons __tmp86992 '())))) (declare (not safe)) - (cons __tmp86991 __tmp86987)))) + (cons __tmp86995 __tmp86991)))) (declare (not safe)) - (cons __tmp86994 __tmp86986)))) + (cons __tmp86998 __tmp86990)))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86985 + __obj86076 + __tmp86989 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86997 - (let ((__tmp87006 - (let ((__tmp87007 |gx[1]#_g87008_|)) + (let ((__tmp87001 + (let ((__tmp87010 + (let ((__tmp87011 |gx[1]#_g87012_|)) (declare (not safe)) - (cons 'id __tmp87007))) - (__tmp86998 - (let ((__tmp87003 - (let ((__tmp87004 |gx[1]#_g87005_|)) + (cons 'id __tmp87011))) + (__tmp87002 + (let ((__tmp87007 + (let ((__tmp87008 |gx[1]#_g87009_|)) (declare (not safe)) - (cons 'key __tmp87004))) - (__tmp86999 - (let ((__tmp87000 - (let ((__tmp87001 |gx[1]#_g87002_|)) + (cons 'key __tmp87008))) + (__tmp87003 + (let ((__tmp87004 + (let ((__tmp87005 |gx[1]#_g87006_|)) (declare (not safe)) - (cons 'phi __tmp87001)))) + (cons 'phi __tmp87005)))) (declare (not safe)) - (cons __tmp87000 '())))) + (cons __tmp87004 '())))) (declare (not safe)) - (cons __tmp87003 __tmp86999)))) + (cons __tmp87007 __tmp87003)))) (declare (not safe)) - (cons __tmp87006 __tmp86998)))) + (cons __tmp87010 __tmp87002)))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86997 + __obj86076 + __tmp87001 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87009 - (let ((__tmp87018 - (let ((__tmp87019 |gx[1]#_g87020_|)) + (let ((__tmp87013 + (let ((__tmp87022 + (let ((__tmp87023 |gx[1]#_g87024_|)) (declare (not safe)) - (cons 'id __tmp87019))) - (__tmp87010 - (let ((__tmp87015 - (let ((__tmp87016 |gx[1]#_g87017_|)) + (cons 'id __tmp87023))) + (__tmp87014 + (let ((__tmp87019 + (let ((__tmp87020 |gx[1]#_g87021_|)) (declare (not safe)) - (cons 'key __tmp87016))) - (__tmp87011 - (let ((__tmp87012 - (let ((__tmp87013 |gx[1]#_g87014_|)) + (cons 'key __tmp87020))) + (__tmp87015 + (let ((__tmp87016 + (let ((__tmp87017 |gx[1]#_g87018_|)) (declare (not safe)) - (cons 'phi __tmp87013)))) + (cons 'phi __tmp87017)))) (declare (not safe)) - (cons __tmp87012 '())))) + (cons __tmp87016 '())))) (declare (not safe)) - (cons __tmp87015 __tmp87011)))) + (cons __tmp87019 __tmp87015)))) (declare (not safe)) - (cons __tmp87018 __tmp87010)))) + (cons __tmp87022 __tmp87014)))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp87009 + __obj86076 + __tmp87013 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87021 - (let ((__tmp87030 - (let ((__tmp87031 |gx[1]#_g87032_|)) + (let ((__tmp87025 + (let ((__tmp87034 + (let ((__tmp87035 |gx[1]#_g87036_|)) (declare (not safe)) - (cons 'id __tmp87031))) - (__tmp87022 - (let ((__tmp87027 - (let ((__tmp87028 |gx[1]#_g87029_|)) + (cons 'id __tmp87035))) + (__tmp87026 + (let ((__tmp87031 + (let ((__tmp87032 |gx[1]#_g87033_|)) (declare (not safe)) - (cons 'key __tmp87028))) - (__tmp87023 - (let ((__tmp87024 - (let ((__tmp87025 |gx[1]#_g87026_|)) + (cons 'key __tmp87032))) + (__tmp87027 + (let ((__tmp87028 + (let ((__tmp87029 |gx[1]#_g87030_|)) (declare (not safe)) - (cons 'phi __tmp87025)))) + (cons 'phi __tmp87029)))) (declare (not safe)) - (cons __tmp87024 '())))) + (cons __tmp87028 '())))) (declare (not safe)) - (cons __tmp87027 __tmp87023)))) + (cons __tmp87031 __tmp87027)))) (declare (not safe)) - (cons __tmp87030 __tmp87022)))) + (cons __tmp87034 __tmp87026)))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp87021 + __obj86076 + __tmp87025 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86072)) + __obj86076)) (define |gx[:0:]#module-binding| - (let ((__obj86073 + (let ((__obj86077 (let () (declare (not safe)) (##structure @@ -6624,7 +6624,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86077 'gx#module-binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -6632,7 +6632,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86077 'module-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -6640,26 +6640,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86077 '(context) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87033 - (let ((__tmp87034 |gx[1]#_g87035_|)) + (let ((__tmp87037 + (let ((__tmp87038 |gx[1]#_g87039_|)) (declare (not safe)) - (cons __tmp87034 '())))) + (cons __tmp87038 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp87033 + __obj86077 + __tmp87037 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86077 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -6667,7 +6667,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86077 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -6675,7 +6675,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86077 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6683,178 +6683,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86077 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87036 |gx[1]#_g87037_|)) + (let ((__tmp87040 |gx[1]#_g87041_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp87036 + __obj86077 + __tmp87040 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87038 |gx[1]#_g87039_|)) + (let ((__tmp87042 |gx[1]#_g87043_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp87038 + __obj86077 + __tmp87042 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87040 |gx[1]#_g87041_|)) + (let ((__tmp87044 |gx[1]#_g87045_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp87040 + __obj86077 + __tmp87044 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87042 - (let ((__tmp87055 - (let ((__tmp87056 |gx[1]#_g87057_|)) + (let ((__tmp87046 + (let ((__tmp87059 + (let ((__tmp87060 |gx[1]#_g87061_|)) (declare (not safe)) - (cons 'context __tmp87056))) - (__tmp87043 - (let ((__tmp87052 - (let ((__tmp87053 |gx[1]#_g87054_|)) + (cons 'context __tmp87060))) + (__tmp87047 + (let ((__tmp87056 + (let ((__tmp87057 |gx[1]#_g87058_|)) (declare (not safe)) - (cons 'id __tmp87053))) - (__tmp87044 - (let ((__tmp87049 - (let ((__tmp87050 |gx[1]#_g87051_|)) + (cons 'id __tmp87057))) + (__tmp87048 + (let ((__tmp87053 + (let ((__tmp87054 |gx[1]#_g87055_|)) (declare (not safe)) - (cons 'key __tmp87050))) - (__tmp87045 - (let ((__tmp87046 - (let ((__tmp87047 |gx[1]#_g87048_|)) + (cons 'key __tmp87054))) + (__tmp87049 + (let ((__tmp87050 + (let ((__tmp87051 |gx[1]#_g87052_|)) (declare (not safe)) - (cons 'phi __tmp87047)))) + (cons 'phi __tmp87051)))) (declare (not safe)) - (cons __tmp87046 '())))) + (cons __tmp87050 '())))) (declare (not safe)) - (cons __tmp87049 __tmp87045)))) + (cons __tmp87053 __tmp87049)))) (declare (not safe)) - (cons __tmp87052 __tmp87044)))) + (cons __tmp87056 __tmp87048)))) (declare (not safe)) - (cons __tmp87055 __tmp87043)))) + (cons __tmp87059 __tmp87047)))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp87042 + __obj86077 + __tmp87046 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87058 - (let ((__tmp87071 - (let ((__tmp87072 |gx[1]#_g87073_|)) + (let ((__tmp87062 + (let ((__tmp87075 + (let ((__tmp87076 |gx[1]#_g87077_|)) (declare (not safe)) - (cons 'context __tmp87072))) - (__tmp87059 - (let ((__tmp87068 - (let ((__tmp87069 |gx[1]#_g87070_|)) + (cons 'context __tmp87076))) + (__tmp87063 + (let ((__tmp87072 + (let ((__tmp87073 |gx[1]#_g87074_|)) (declare (not safe)) - (cons 'id __tmp87069))) - (__tmp87060 - (let ((__tmp87065 - (let ((__tmp87066 |gx[1]#_g87067_|)) + (cons 'id __tmp87073))) + (__tmp87064 + (let ((__tmp87069 + (let ((__tmp87070 |gx[1]#_g87071_|)) (declare (not safe)) - (cons 'key __tmp87066))) - (__tmp87061 - (let ((__tmp87062 - (let ((__tmp87063 |gx[1]#_g87064_|)) + (cons 'key __tmp87070))) + (__tmp87065 + (let ((__tmp87066 + (let ((__tmp87067 |gx[1]#_g87068_|)) (declare (not safe)) - (cons 'phi __tmp87063)))) + (cons 'phi __tmp87067)))) (declare (not safe)) - (cons __tmp87062 '())))) + (cons __tmp87066 '())))) (declare (not safe)) - (cons __tmp87065 __tmp87061)))) + (cons __tmp87069 __tmp87065)))) (declare (not safe)) - (cons __tmp87068 __tmp87060)))) + (cons __tmp87072 __tmp87064)))) (declare (not safe)) - (cons __tmp87071 __tmp87059)))) + (cons __tmp87075 __tmp87063)))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp87058 + __obj86077 + __tmp87062 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87074 - (let ((__tmp87087 - (let ((__tmp87088 |gx[1]#_g87089_|)) + (let ((__tmp87078 + (let ((__tmp87091 + (let ((__tmp87092 |gx[1]#_g87093_|)) (declare (not safe)) - (cons 'context __tmp87088))) - (__tmp87075 - (let ((__tmp87084 - (let ((__tmp87085 |gx[1]#_g87086_|)) + (cons 'context __tmp87092))) + (__tmp87079 + (let ((__tmp87088 + (let ((__tmp87089 |gx[1]#_g87090_|)) (declare (not safe)) - (cons 'id __tmp87085))) - (__tmp87076 - (let ((__tmp87081 - (let ((__tmp87082 |gx[1]#_g87083_|)) + (cons 'id __tmp87089))) + (__tmp87080 + (let ((__tmp87085 + (let ((__tmp87086 |gx[1]#_g87087_|)) (declare (not safe)) - (cons 'key __tmp87082))) - (__tmp87077 - (let ((__tmp87078 - (let ((__tmp87079 |gx[1]#_g87080_|)) + (cons 'key __tmp87086))) + (__tmp87081 + (let ((__tmp87082 + (let ((__tmp87083 |gx[1]#_g87084_|)) (declare (not safe)) - (cons 'phi __tmp87079)))) + (cons 'phi __tmp87083)))) (declare (not safe)) - (cons __tmp87078 '())))) + (cons __tmp87082 '())))) (declare (not safe)) - (cons __tmp87081 __tmp87077)))) + (cons __tmp87085 __tmp87081)))) (declare (not safe)) - (cons __tmp87084 __tmp87076)))) + (cons __tmp87088 __tmp87080)))) (declare (not safe)) - (cons __tmp87087 __tmp87075)))) + (cons __tmp87091 __tmp87079)))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp87074 + __obj86077 + __tmp87078 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87090 - (let ((__tmp87103 - (let ((__tmp87104 |gx[1]#_g87105_|)) + (let ((__tmp87094 + (let ((__tmp87107 + (let ((__tmp87108 |gx[1]#_g87109_|)) (declare (not safe)) - (cons 'context __tmp87104))) - (__tmp87091 - (let ((__tmp87100 - (let ((__tmp87101 |gx[1]#_g87102_|)) + (cons 'context __tmp87108))) + (__tmp87095 + (let ((__tmp87104 + (let ((__tmp87105 |gx[1]#_g87106_|)) (declare (not safe)) - (cons 'id __tmp87101))) - (__tmp87092 - (let ((__tmp87097 - (let ((__tmp87098 |gx[1]#_g87099_|)) + (cons 'id __tmp87105))) + (__tmp87096 + (let ((__tmp87101 + (let ((__tmp87102 |gx[1]#_g87103_|)) (declare (not safe)) - (cons 'key __tmp87098))) - (__tmp87093 - (let ((__tmp87094 - (let ((__tmp87095 |gx[1]#_g87096_|)) + (cons 'key __tmp87102))) + (__tmp87097 + (let ((__tmp87098 + (let ((__tmp87099 |gx[1]#_g87100_|)) (declare (not safe)) - (cons 'phi __tmp87095)))) + (cons 'phi __tmp87099)))) (declare (not safe)) - (cons __tmp87094 '())))) + (cons __tmp87098 '())))) (declare (not safe)) - (cons __tmp87097 __tmp87093)))) + (cons __tmp87101 __tmp87097)))) (declare (not safe)) - (cons __tmp87100 __tmp87092)))) + (cons __tmp87104 __tmp87096)))) (declare (not safe)) - (cons __tmp87103 __tmp87091)))) + (cons __tmp87107 __tmp87095)))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp87090 + __obj86077 + __tmp87094 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86073)) + __obj86077)) (define |gx[:0:]#extern-binding| - (let ((__obj86074 + (let ((__obj86078 (let () (declare (not safe)) (##structure @@ -6878,7 +6878,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86078 'gx#extern-binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -6886,7 +6886,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86078 'extern-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -6894,26 +6894,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86078 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87106 - (let ((__tmp87107 |gx[1]#_g87035_|)) + (let ((__tmp87110 + (let ((__tmp87111 |gx[1]#_g87039_|)) (declare (not safe)) - (cons __tmp87107 '())))) + (cons __tmp87111 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp87106 + __obj86078 + __tmp87110 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86078 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -6921,7 +6921,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86078 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -6929,7 +6929,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86078 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6937,150 +6937,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86078 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87108 |gx[1]#_g87109_|)) + (let ((__tmp87112 |gx[1]#_g87113_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp87108 + __obj86078 + __tmp87112 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87110 |gx[1]#_g87111_|)) + (let ((__tmp87114 |gx[1]#_g87115_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp87110 + __obj86078 + __tmp87114 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87112 |gx[1]#_g87113_|)) + (let ((__tmp87116 |gx[1]#_g87117_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp87112 + __obj86078 + __tmp87116 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87114 - (let ((__tmp87123 - (let ((__tmp87124 |gx[1]#_g87125_|)) + (let ((__tmp87118 + (let ((__tmp87127 + (let ((__tmp87128 |gx[1]#_g87129_|)) (declare (not safe)) - (cons 'id __tmp87124))) - (__tmp87115 - (let ((__tmp87120 - (let ((__tmp87121 |gx[1]#_g87122_|)) + (cons 'id __tmp87128))) + (__tmp87119 + (let ((__tmp87124 + (let ((__tmp87125 |gx[1]#_g87126_|)) (declare (not safe)) - (cons 'key __tmp87121))) - (__tmp87116 - (let ((__tmp87117 - (let ((__tmp87118 |gx[1]#_g87119_|)) + (cons 'key __tmp87125))) + (__tmp87120 + (let ((__tmp87121 + (let ((__tmp87122 |gx[1]#_g87123_|)) (declare (not safe)) - (cons 'phi __tmp87118)))) + (cons 'phi __tmp87122)))) (declare (not safe)) - (cons __tmp87117 '())))) + (cons __tmp87121 '())))) (declare (not safe)) - (cons __tmp87120 __tmp87116)))) + (cons __tmp87124 __tmp87120)))) (declare (not safe)) - (cons __tmp87123 __tmp87115)))) + (cons __tmp87127 __tmp87119)))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp87114 + __obj86078 + __tmp87118 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87126 - (let ((__tmp87135 - (let ((__tmp87136 |gx[1]#_g87137_|)) + (let ((__tmp87130 + (let ((__tmp87139 + (let ((__tmp87140 |gx[1]#_g87141_|)) (declare (not safe)) - (cons 'id __tmp87136))) - (__tmp87127 - (let ((__tmp87132 - (let ((__tmp87133 |gx[1]#_g87134_|)) + (cons 'id __tmp87140))) + (__tmp87131 + (let ((__tmp87136 + (let ((__tmp87137 |gx[1]#_g87138_|)) (declare (not safe)) - (cons 'key __tmp87133))) - (__tmp87128 - (let ((__tmp87129 - (let ((__tmp87130 |gx[1]#_g87131_|)) + (cons 'key __tmp87137))) + (__tmp87132 + (let ((__tmp87133 + (let ((__tmp87134 |gx[1]#_g87135_|)) (declare (not safe)) - (cons 'phi __tmp87130)))) + (cons 'phi __tmp87134)))) (declare (not safe)) - (cons __tmp87129 '())))) + (cons __tmp87133 '())))) (declare (not safe)) - (cons __tmp87132 __tmp87128)))) + (cons __tmp87136 __tmp87132)))) (declare (not safe)) - (cons __tmp87135 __tmp87127)))) + (cons __tmp87139 __tmp87131)))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp87126 + __obj86078 + __tmp87130 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87138 - (let ((__tmp87147 - (let ((__tmp87148 |gx[1]#_g87149_|)) + (let ((__tmp87142 + (let ((__tmp87151 + (let ((__tmp87152 |gx[1]#_g87153_|)) (declare (not safe)) - (cons 'id __tmp87148))) - (__tmp87139 - (let ((__tmp87144 - (let ((__tmp87145 |gx[1]#_g87146_|)) + (cons 'id __tmp87152))) + (__tmp87143 + (let ((__tmp87148 + (let ((__tmp87149 |gx[1]#_g87150_|)) (declare (not safe)) - (cons 'key __tmp87145))) - (__tmp87140 - (let ((__tmp87141 - (let ((__tmp87142 |gx[1]#_g87143_|)) + (cons 'key __tmp87149))) + (__tmp87144 + (let ((__tmp87145 + (let ((__tmp87146 |gx[1]#_g87147_|)) (declare (not safe)) - (cons 'phi __tmp87142)))) + (cons 'phi __tmp87146)))) (declare (not safe)) - (cons __tmp87141 '())))) + (cons __tmp87145 '())))) (declare (not safe)) - (cons __tmp87144 __tmp87140)))) + (cons __tmp87148 __tmp87144)))) (declare (not safe)) - (cons __tmp87147 __tmp87139)))) + (cons __tmp87151 __tmp87143)))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp87138 + __obj86078 + __tmp87142 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87150 - (let ((__tmp87159 - (let ((__tmp87160 |gx[1]#_g87161_|)) + (let ((__tmp87154 + (let ((__tmp87163 + (let ((__tmp87164 |gx[1]#_g87165_|)) (declare (not safe)) - (cons 'id __tmp87160))) - (__tmp87151 - (let ((__tmp87156 - (let ((__tmp87157 |gx[1]#_g87158_|)) + (cons 'id __tmp87164))) + (__tmp87155 + (let ((__tmp87160 + (let ((__tmp87161 |gx[1]#_g87162_|)) (declare (not safe)) - (cons 'key __tmp87157))) - (__tmp87152 - (let ((__tmp87153 - (let ((__tmp87154 |gx[1]#_g87155_|)) + (cons 'key __tmp87161))) + (__tmp87156 + (let ((__tmp87157 + (let ((__tmp87158 |gx[1]#_g87159_|)) (declare (not safe)) - (cons 'phi __tmp87154)))) + (cons 'phi __tmp87158)))) (declare (not safe)) - (cons __tmp87153 '())))) + (cons __tmp87157 '())))) (declare (not safe)) - (cons __tmp87156 __tmp87152)))) + (cons __tmp87160 __tmp87156)))) (declare (not safe)) - (cons __tmp87159 __tmp87151)))) + (cons __tmp87163 __tmp87155)))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp87150 + __obj86078 + __tmp87154 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86074)) + __obj86078)) (define |gx[:0:]#syntax-binding| - (let ((__obj86075 + (let ((__obj86079 (let () (declare (not safe)) (##structure @@ -7104,7 +7104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86079 'gx#syntax-binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -7112,7 +7112,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86079 'syntax-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -7120,26 +7120,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86079 '(e) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87162 - (let ((__tmp87163 |gx[1]#_g86865_|)) + (let ((__tmp87166 + (let ((__tmp87167 |gx[1]#_g86869_|)) (declare (not safe)) - (cons __tmp87163 '())))) + (cons __tmp87167 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp87162 + __obj86079 + __tmp87166 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86079 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -7147,7 +7147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86079 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -7155,7 +7155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86079 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -7163,178 +7163,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86079 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87164 |gx[1]#_g87165_|)) + (let ((__tmp87168 |gx[1]#_g87169_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp87164 + __obj86079 + __tmp87168 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87166 |gx[1]#_g87167_|)) + (let ((__tmp87170 |gx[1]#_g87171_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp87166 + __obj86079 + __tmp87170 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87168 |gx[1]#_g87169_|)) + (let ((__tmp87172 |gx[1]#_g87173_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp87168 + __obj86079 + __tmp87172 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87170 - (let ((__tmp87183 - (let ((__tmp87184 |gx[1]#_g87185_|)) + (let ((__tmp87174 + (let ((__tmp87187 + (let ((__tmp87188 |gx[1]#_g87189_|)) (declare (not safe)) - (cons 'e __tmp87184))) - (__tmp87171 - (let ((__tmp87180 - (let ((__tmp87181 |gx[1]#_g87182_|)) + (cons 'e __tmp87188))) + (__tmp87175 + (let ((__tmp87184 + (let ((__tmp87185 |gx[1]#_g87186_|)) (declare (not safe)) - (cons 'id __tmp87181))) - (__tmp87172 - (let ((__tmp87177 - (let ((__tmp87178 |gx[1]#_g87179_|)) + (cons 'id __tmp87185))) + (__tmp87176 + (let ((__tmp87181 + (let ((__tmp87182 |gx[1]#_g87183_|)) (declare (not safe)) - (cons 'key __tmp87178))) - (__tmp87173 - (let ((__tmp87174 - (let ((__tmp87175 |gx[1]#_g87176_|)) + (cons 'key __tmp87182))) + (__tmp87177 + (let ((__tmp87178 + (let ((__tmp87179 |gx[1]#_g87180_|)) (declare (not safe)) - (cons 'phi __tmp87175)))) + (cons 'phi __tmp87179)))) (declare (not safe)) - (cons __tmp87174 '())))) + (cons __tmp87178 '())))) (declare (not safe)) - (cons __tmp87177 __tmp87173)))) + (cons __tmp87181 __tmp87177)))) (declare (not safe)) - (cons __tmp87180 __tmp87172)))) + (cons __tmp87184 __tmp87176)))) (declare (not safe)) - (cons __tmp87183 __tmp87171)))) + (cons __tmp87187 __tmp87175)))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp87170 + __obj86079 + __tmp87174 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87186 - (let ((__tmp87199 - (let ((__tmp87200 |gx[1]#_g87201_|)) + (let ((__tmp87190 + (let ((__tmp87203 + (let ((__tmp87204 |gx[1]#_g87205_|)) (declare (not safe)) - (cons 'e __tmp87200))) - (__tmp87187 - (let ((__tmp87196 - (let ((__tmp87197 |gx[1]#_g87198_|)) + (cons 'e __tmp87204))) + (__tmp87191 + (let ((__tmp87200 + (let ((__tmp87201 |gx[1]#_g87202_|)) (declare (not safe)) - (cons 'id __tmp87197))) - (__tmp87188 - (let ((__tmp87193 - (let ((__tmp87194 |gx[1]#_g87195_|)) + (cons 'id __tmp87201))) + (__tmp87192 + (let ((__tmp87197 + (let ((__tmp87198 |gx[1]#_g87199_|)) (declare (not safe)) - (cons 'key __tmp87194))) - (__tmp87189 - (let ((__tmp87190 - (let ((__tmp87191 |gx[1]#_g87192_|)) + (cons 'key __tmp87198))) + (__tmp87193 + (let ((__tmp87194 + (let ((__tmp87195 |gx[1]#_g87196_|)) (declare (not safe)) - (cons 'phi __tmp87191)))) + (cons 'phi __tmp87195)))) (declare (not safe)) - (cons __tmp87190 '())))) + (cons __tmp87194 '())))) (declare (not safe)) - (cons __tmp87193 __tmp87189)))) + (cons __tmp87197 __tmp87193)))) (declare (not safe)) - (cons __tmp87196 __tmp87188)))) + (cons __tmp87200 __tmp87192)))) (declare (not safe)) - (cons __tmp87199 __tmp87187)))) + (cons __tmp87203 __tmp87191)))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp87186 + __obj86079 + __tmp87190 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87202 - (let ((__tmp87215 - (let ((__tmp87216 |gx[1]#_g87217_|)) + (let ((__tmp87206 + (let ((__tmp87219 + (let ((__tmp87220 |gx[1]#_g87221_|)) (declare (not safe)) - (cons 'e __tmp87216))) - (__tmp87203 - (let ((__tmp87212 - (let ((__tmp87213 |gx[1]#_g87214_|)) + (cons 'e __tmp87220))) + (__tmp87207 + (let ((__tmp87216 + (let ((__tmp87217 |gx[1]#_g87218_|)) (declare (not safe)) - (cons 'id __tmp87213))) - (__tmp87204 - (let ((__tmp87209 - (let ((__tmp87210 |gx[1]#_g87211_|)) + (cons 'id __tmp87217))) + (__tmp87208 + (let ((__tmp87213 + (let ((__tmp87214 |gx[1]#_g87215_|)) (declare (not safe)) - (cons 'key __tmp87210))) - (__tmp87205 - (let ((__tmp87206 - (let ((__tmp87207 |gx[1]#_g87208_|)) + (cons 'key __tmp87214))) + (__tmp87209 + (let ((__tmp87210 + (let ((__tmp87211 |gx[1]#_g87212_|)) (declare (not safe)) - (cons 'phi __tmp87207)))) + (cons 'phi __tmp87211)))) (declare (not safe)) - (cons __tmp87206 '())))) + (cons __tmp87210 '())))) (declare (not safe)) - (cons __tmp87209 __tmp87205)))) + (cons __tmp87213 __tmp87209)))) (declare (not safe)) - (cons __tmp87212 __tmp87204)))) + (cons __tmp87216 __tmp87208)))) (declare (not safe)) - (cons __tmp87215 __tmp87203)))) + (cons __tmp87219 __tmp87207)))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp87202 + __obj86079 + __tmp87206 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87218 - (let ((__tmp87231 - (let ((__tmp87232 |gx[1]#_g87233_|)) + (let ((__tmp87222 + (let ((__tmp87235 + (let ((__tmp87236 |gx[1]#_g87237_|)) (declare (not safe)) - (cons 'e __tmp87232))) - (__tmp87219 - (let ((__tmp87228 - (let ((__tmp87229 |gx[1]#_g87230_|)) + (cons 'e __tmp87236))) + (__tmp87223 + (let ((__tmp87232 + (let ((__tmp87233 |gx[1]#_g87234_|)) (declare (not safe)) - (cons 'id __tmp87229))) - (__tmp87220 - (let ((__tmp87225 - (let ((__tmp87226 |gx[1]#_g87227_|)) + (cons 'id __tmp87233))) + (__tmp87224 + (let ((__tmp87229 + (let ((__tmp87230 |gx[1]#_g87231_|)) (declare (not safe)) - (cons 'key __tmp87226))) - (__tmp87221 - (let ((__tmp87222 - (let ((__tmp87223 |gx[1]#_g87224_|)) + (cons 'key __tmp87230))) + (__tmp87225 + (let ((__tmp87226 + (let ((__tmp87227 |gx[1]#_g87228_|)) (declare (not safe)) - (cons 'phi __tmp87223)))) + (cons 'phi __tmp87227)))) (declare (not safe)) - (cons __tmp87222 '())))) + (cons __tmp87226 '())))) (declare (not safe)) - (cons __tmp87225 __tmp87221)))) + (cons __tmp87229 __tmp87225)))) (declare (not safe)) - (cons __tmp87228 __tmp87220)))) + (cons __tmp87232 __tmp87224)))) (declare (not safe)) - (cons __tmp87231 __tmp87219)))) + (cons __tmp87235 __tmp87223)))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp87218 + __obj86079 + __tmp87222 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86075)) + __obj86079)) (define |gx[:0:]#import-binding| - (let ((__obj86076 + (let ((__obj86080 (let () (declare (not safe)) (##structure @@ -7358,7 +7358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86080 'gx#import-binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -7366,7 +7366,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86080 'import-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -7374,26 +7374,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86080 '(e context weak?) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87234 - (let ((__tmp87235 |gx[1]#_g86865_|)) + (let ((__tmp87238 + (let ((__tmp87239 |gx[1]#_g86869_|)) (declare (not safe)) - (cons __tmp87235 '())))) + (cons __tmp87239 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87234 + __obj86080 + __tmp87238 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86080 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -7401,7 +7401,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86080 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -7409,7 +7409,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86080 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -7417,254 +7417,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86080 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87236 |gx[1]#_g87237_|)) + (let ((__tmp87240 |gx[1]#_g87241_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87236 + __obj86080 + __tmp87240 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87238 |gx[1]#_g87239_|)) + (let ((__tmp87242 |gx[1]#_g87243_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87238 + __obj86080 + __tmp87242 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87240 |gx[1]#_g87241_|)) + (let ((__tmp87244 |gx[1]#_g87245_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87240 + __obj86080 + __tmp87244 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87242 - (let ((__tmp87263 - (let ((__tmp87264 |gx[1]#_g87265_|)) + (let ((__tmp87246 + (let ((__tmp87267 + (let ((__tmp87268 |gx[1]#_g87269_|)) (declare (not safe)) - (cons 'e __tmp87264))) - (__tmp87243 - (let ((__tmp87260 - (let ((__tmp87261 |gx[1]#_g87262_|)) + (cons 'e __tmp87268))) + (__tmp87247 + (let ((__tmp87264 + (let ((__tmp87265 |gx[1]#_g87266_|)) (declare (not safe)) - (cons 'context __tmp87261))) - (__tmp87244 - (let ((__tmp87257 - (let ((__tmp87258 |gx[1]#_g87259_|)) + (cons 'context __tmp87265))) + (__tmp87248 + (let ((__tmp87261 + (let ((__tmp87262 |gx[1]#_g87263_|)) (declare (not safe)) - (cons 'weak? __tmp87258))) - (__tmp87245 - (let ((__tmp87254 - (let ((__tmp87255 |gx[1]#_g87256_|)) + (cons 'weak? __tmp87262))) + (__tmp87249 + (let ((__tmp87258 + (let ((__tmp87259 |gx[1]#_g87260_|)) (declare (not safe)) - (cons 'id __tmp87255))) - (__tmp87246 - (let ((__tmp87251 - (let ((__tmp87252 - |gx[1]#_g87253_|)) + (cons 'id __tmp87259))) + (__tmp87250 + (let ((__tmp87255 + (let ((__tmp87256 + |gx[1]#_g87257_|)) (declare (not safe)) - (cons 'key __tmp87252))) - (__tmp87247 - (let ((__tmp87248 - (let ((__tmp87249 - |gx[1]#_g87250_|)) + (cons 'key __tmp87256))) + (__tmp87251 + (let ((__tmp87252 + (let ((__tmp87253 + |gx[1]#_g87254_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp87249)))) + __tmp87253)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp87248 '())))) + (cons __tmp87252 '())))) (declare (not safe)) - (cons __tmp87251 __tmp87247)))) + (cons __tmp87255 __tmp87251)))) (declare (not safe)) - (cons __tmp87254 __tmp87246)))) + (cons __tmp87258 __tmp87250)))) (declare (not safe)) - (cons __tmp87257 __tmp87245)))) + (cons __tmp87261 __tmp87249)))) (declare (not safe)) - (cons __tmp87260 __tmp87244)))) + (cons __tmp87264 __tmp87248)))) (declare (not safe)) - (cons __tmp87263 __tmp87243)))) + (cons __tmp87267 __tmp87247)))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87242 + __obj86080 + __tmp87246 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87266 - (let ((__tmp87287 - (let ((__tmp87288 |gx[1]#_g87289_|)) + (let ((__tmp87270 + (let ((__tmp87291 + (let ((__tmp87292 |gx[1]#_g87293_|)) (declare (not safe)) - (cons 'e __tmp87288))) - (__tmp87267 - (let ((__tmp87284 - (let ((__tmp87285 |gx[1]#_g87286_|)) + (cons 'e __tmp87292))) + (__tmp87271 + (let ((__tmp87288 + (let ((__tmp87289 |gx[1]#_g87290_|)) (declare (not safe)) - (cons 'context __tmp87285))) - (__tmp87268 - (let ((__tmp87281 - (let ((__tmp87282 |gx[1]#_g87283_|)) + (cons 'context __tmp87289))) + (__tmp87272 + (let ((__tmp87285 + (let ((__tmp87286 |gx[1]#_g87287_|)) (declare (not safe)) - (cons 'weak? __tmp87282))) - (__tmp87269 - (let ((__tmp87278 - (let ((__tmp87279 |gx[1]#_g87280_|)) + (cons 'weak? __tmp87286))) + (__tmp87273 + (let ((__tmp87282 + (let ((__tmp87283 |gx[1]#_g87284_|)) (declare (not safe)) - (cons 'id __tmp87279))) - (__tmp87270 - (let ((__tmp87275 - (let ((__tmp87276 - |gx[1]#_g87277_|)) + (cons 'id __tmp87283))) + (__tmp87274 + (let ((__tmp87279 + (let ((__tmp87280 + |gx[1]#_g87281_|)) (declare (not safe)) - (cons 'key __tmp87276))) - (__tmp87271 - (let ((__tmp87272 - (let ((__tmp87273 - |gx[1]#_g87274_|)) + (cons 'key __tmp87280))) + (__tmp87275 + (let ((__tmp87276 + (let ((__tmp87277 + |gx[1]#_g87278_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp87273)))) + __tmp87277)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp87272 '())))) + (cons __tmp87276 '())))) (declare (not safe)) - (cons __tmp87275 __tmp87271)))) + (cons __tmp87279 __tmp87275)))) (declare (not safe)) - (cons __tmp87278 __tmp87270)))) + (cons __tmp87282 __tmp87274)))) (declare (not safe)) - (cons __tmp87281 __tmp87269)))) + (cons __tmp87285 __tmp87273)))) (declare (not safe)) - (cons __tmp87284 __tmp87268)))) + (cons __tmp87288 __tmp87272)))) (declare (not safe)) - (cons __tmp87287 __tmp87267)))) + (cons __tmp87291 __tmp87271)))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87266 + __obj86080 + __tmp87270 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87290 - (let ((__tmp87311 - (let ((__tmp87312 |gx[1]#_g87313_|)) + (let ((__tmp87294 + (let ((__tmp87315 + (let ((__tmp87316 |gx[1]#_g87317_|)) (declare (not safe)) - (cons 'e __tmp87312))) - (__tmp87291 - (let ((__tmp87308 - (let ((__tmp87309 |gx[1]#_g87310_|)) + (cons 'e __tmp87316))) + (__tmp87295 + (let ((__tmp87312 + (let ((__tmp87313 |gx[1]#_g87314_|)) (declare (not safe)) - (cons 'context __tmp87309))) - (__tmp87292 - (let ((__tmp87305 - (let ((__tmp87306 |gx[1]#_g87307_|)) + (cons 'context __tmp87313))) + (__tmp87296 + (let ((__tmp87309 + (let ((__tmp87310 |gx[1]#_g87311_|)) (declare (not safe)) - (cons 'weak? __tmp87306))) - (__tmp87293 - (let ((__tmp87302 - (let ((__tmp87303 |gx[1]#_g87304_|)) + (cons 'weak? __tmp87310))) + (__tmp87297 + (let ((__tmp87306 + (let ((__tmp87307 |gx[1]#_g87308_|)) (declare (not safe)) - (cons 'id __tmp87303))) - (__tmp87294 - (let ((__tmp87299 - (let ((__tmp87300 - |gx[1]#_g87301_|)) + (cons 'id __tmp87307))) + (__tmp87298 + (let ((__tmp87303 + (let ((__tmp87304 + |gx[1]#_g87305_|)) (declare (not safe)) - (cons 'key __tmp87300))) - (__tmp87295 - (let ((__tmp87296 - (let ((__tmp87297 - |gx[1]#_g87298_|)) + (cons 'key __tmp87304))) + (__tmp87299 + (let ((__tmp87300 + (let ((__tmp87301 + |gx[1]#_g87302_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp87297)))) + __tmp87301)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp87296 '())))) + (cons __tmp87300 '())))) (declare (not safe)) - (cons __tmp87299 __tmp87295)))) + (cons __tmp87303 __tmp87299)))) (declare (not safe)) - (cons __tmp87302 __tmp87294)))) + (cons __tmp87306 __tmp87298)))) (declare (not safe)) - (cons __tmp87305 __tmp87293)))) + (cons __tmp87309 __tmp87297)))) (declare (not safe)) - (cons __tmp87308 __tmp87292)))) + (cons __tmp87312 __tmp87296)))) (declare (not safe)) - (cons __tmp87311 __tmp87291)))) + (cons __tmp87315 __tmp87295)))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87290 + __obj86080 + __tmp87294 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87314 - (let ((__tmp87335 - (let ((__tmp87336 |gx[1]#_g87337_|)) + (let ((__tmp87318 + (let ((__tmp87339 + (let ((__tmp87340 |gx[1]#_g87341_|)) (declare (not safe)) - (cons 'e __tmp87336))) - (__tmp87315 - (let ((__tmp87332 - (let ((__tmp87333 |gx[1]#_g87334_|)) + (cons 'e __tmp87340))) + (__tmp87319 + (let ((__tmp87336 + (let ((__tmp87337 |gx[1]#_g87338_|)) (declare (not safe)) - (cons 'context __tmp87333))) - (__tmp87316 - (let ((__tmp87329 - (let ((__tmp87330 |gx[1]#_g87331_|)) + (cons 'context __tmp87337))) + (__tmp87320 + (let ((__tmp87333 + (let ((__tmp87334 |gx[1]#_g87335_|)) (declare (not safe)) - (cons 'weak? __tmp87330))) - (__tmp87317 - (let ((__tmp87326 - (let ((__tmp87327 |gx[1]#_g87328_|)) + (cons 'weak? __tmp87334))) + (__tmp87321 + (let ((__tmp87330 + (let ((__tmp87331 |gx[1]#_g87332_|)) (declare (not safe)) - (cons 'id __tmp87327))) - (__tmp87318 - (let ((__tmp87323 - (let ((__tmp87324 - |gx[1]#_g87325_|)) + (cons 'id __tmp87331))) + (__tmp87322 + (let ((__tmp87327 + (let ((__tmp87328 + |gx[1]#_g87329_|)) (declare (not safe)) - (cons 'key __tmp87324))) - (__tmp87319 - (let ((__tmp87320 - (let ((__tmp87321 - |gx[1]#_g87322_|)) + (cons 'key __tmp87328))) + (__tmp87323 + (let ((__tmp87324 + (let ((__tmp87325 + |gx[1]#_g87326_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp87321)))) + __tmp87325)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp87320 '())))) + (cons __tmp87324 '())))) (declare (not safe)) - (cons __tmp87323 __tmp87319)))) + (cons __tmp87327 __tmp87323)))) (declare (not safe)) - (cons __tmp87326 __tmp87318)))) + (cons __tmp87330 __tmp87322)))) (declare (not safe)) - (cons __tmp87329 __tmp87317)))) + (cons __tmp87333 __tmp87321)))) (declare (not safe)) - (cons __tmp87332 __tmp87316)))) + (cons __tmp87336 __tmp87320)))) (declare (not safe)) - (cons __tmp87335 __tmp87315)))) + (cons __tmp87339 __tmp87319)))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87314 + __obj86080 + __tmp87318 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86076)) + __obj86080)) (define |gx[:0:]#alias-binding| - (let ((__obj86077 + (let ((__obj86081 (let () (declare (not safe)) (##structure @@ -7688,7 +7688,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86081 'gx#alias-binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -7696,7 +7696,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86081 'alias-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -7704,26 +7704,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86081 '(e) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87338 - (let ((__tmp87339 |gx[1]#_g86865_|)) + (let ((__tmp87342 + (let ((__tmp87343 |gx[1]#_g86869_|)) (declare (not safe)) - (cons __tmp87339 '())))) + (cons __tmp87343 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87338 + __obj86081 + __tmp87342 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86081 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -7731,7 +7731,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86081 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -7739,7 +7739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86081 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -7747,178 +7747,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86081 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87340 |gx[1]#_g87341_|)) + (let ((__tmp87344 |gx[1]#_g87345_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87340 - '10 + __obj86081 + __tmp87344 + '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87342 |gx[1]#_g87343_|)) + (let ((__tmp87346 |gx[1]#_g87347_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87342 + __obj86081 + __tmp87346 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87344 |gx[1]#_g87345_|)) + (let ((__tmp87348 |gx[1]#_g87349_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87344 + __obj86081 + __tmp87348 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87346 - (let ((__tmp87359 - (let ((__tmp87360 |gx[1]#_g87361_|)) + (let ((__tmp87350 + (let ((__tmp87363 + (let ((__tmp87364 |gx[1]#_g87365_|)) (declare (not safe)) - (cons 'e __tmp87360))) - (__tmp87347 - (let ((__tmp87356 - (let ((__tmp87357 |gx[1]#_g87358_|)) + (cons 'e __tmp87364))) + (__tmp87351 + (let ((__tmp87360 + (let ((__tmp87361 |gx[1]#_g87362_|)) (declare (not safe)) - (cons 'id __tmp87357))) - (__tmp87348 - (let ((__tmp87353 - (let ((__tmp87354 |gx[1]#_g87355_|)) + (cons 'id __tmp87361))) + (__tmp87352 + (let ((__tmp87357 + (let ((__tmp87358 |gx[1]#_g87359_|)) (declare (not safe)) - (cons 'key __tmp87354))) - (__tmp87349 - (let ((__tmp87350 - (let ((__tmp87351 |gx[1]#_g87352_|)) + (cons 'key __tmp87358))) + (__tmp87353 + (let ((__tmp87354 + (let ((__tmp87355 |gx[1]#_g87356_|)) (declare (not safe)) - (cons 'phi __tmp87351)))) + (cons 'phi __tmp87355)))) (declare (not safe)) - (cons __tmp87350 '())))) + (cons __tmp87354 '())))) (declare (not safe)) - (cons __tmp87353 __tmp87349)))) + (cons __tmp87357 __tmp87353)))) (declare (not safe)) - (cons __tmp87356 __tmp87348)))) + (cons __tmp87360 __tmp87352)))) (declare (not safe)) - (cons __tmp87359 __tmp87347)))) + (cons __tmp87363 __tmp87351)))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87346 + __obj86081 + __tmp87350 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87362 - (let ((__tmp87375 - (let ((__tmp87376 |gx[1]#_g87377_|)) + (let ((__tmp87366 + (let ((__tmp87379 + (let ((__tmp87380 |gx[1]#_g87381_|)) (declare (not safe)) - (cons 'e __tmp87376))) - (__tmp87363 - (let ((__tmp87372 - (let ((__tmp87373 |gx[1]#_g87374_|)) + (cons 'e __tmp87380))) + (__tmp87367 + (let ((__tmp87376 + (let ((__tmp87377 |gx[1]#_g87378_|)) (declare (not safe)) - (cons 'id __tmp87373))) - (__tmp87364 - (let ((__tmp87369 - (let ((__tmp87370 |gx[1]#_g87371_|)) + (cons 'id __tmp87377))) + (__tmp87368 + (let ((__tmp87373 + (let ((__tmp87374 |gx[1]#_g87375_|)) (declare (not safe)) - (cons 'key __tmp87370))) - (__tmp87365 - (let ((__tmp87366 - (let ((__tmp87367 |gx[1]#_g87368_|)) + (cons 'key __tmp87374))) + (__tmp87369 + (let ((__tmp87370 + (let ((__tmp87371 |gx[1]#_g87372_|)) (declare (not safe)) - (cons 'phi __tmp87367)))) + (cons 'phi __tmp87371)))) (declare (not safe)) - (cons __tmp87366 '())))) + (cons __tmp87370 '())))) (declare (not safe)) - (cons __tmp87369 __tmp87365)))) + (cons __tmp87373 __tmp87369)))) (declare (not safe)) - (cons __tmp87372 __tmp87364)))) + (cons __tmp87376 __tmp87368)))) (declare (not safe)) - (cons __tmp87375 __tmp87363)))) + (cons __tmp87379 __tmp87367)))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87362 + __obj86081 + __tmp87366 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87378 - (let ((__tmp87391 - (let ((__tmp87392 |gx[1]#_g87393_|)) + (let ((__tmp87382 + (let ((__tmp87395 + (let ((__tmp87396 |gx[1]#_g87397_|)) (declare (not safe)) - (cons 'e __tmp87392))) - (__tmp87379 - (let ((__tmp87388 - (let ((__tmp87389 |gx[1]#_g87390_|)) + (cons 'e __tmp87396))) + (__tmp87383 + (let ((__tmp87392 + (let ((__tmp87393 |gx[1]#_g87394_|)) (declare (not safe)) - (cons 'id __tmp87389))) - (__tmp87380 - (let ((__tmp87385 - (let ((__tmp87386 |gx[1]#_g87387_|)) + (cons 'id __tmp87393))) + (__tmp87384 + (let ((__tmp87389 + (let ((__tmp87390 |gx[1]#_g87391_|)) (declare (not safe)) - (cons 'key __tmp87386))) - (__tmp87381 - (let ((__tmp87382 - (let ((__tmp87383 |gx[1]#_g87384_|)) + (cons 'key __tmp87390))) + (__tmp87385 + (let ((__tmp87386 + (let ((__tmp87387 |gx[1]#_g87388_|)) (declare (not safe)) - (cons 'phi __tmp87383)))) + (cons 'phi __tmp87387)))) (declare (not safe)) - (cons __tmp87382 '())))) + (cons __tmp87386 '())))) (declare (not safe)) - (cons __tmp87385 __tmp87381)))) + (cons __tmp87389 __tmp87385)))) (declare (not safe)) - (cons __tmp87388 __tmp87380)))) + (cons __tmp87392 __tmp87384)))) (declare (not safe)) - (cons __tmp87391 __tmp87379)))) + (cons __tmp87395 __tmp87383)))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87378 + __obj86081 + __tmp87382 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87394 - (let ((__tmp87407 - (let ((__tmp87408 |gx[1]#_g87409_|)) + (let ((__tmp87398 + (let ((__tmp87411 + (let ((__tmp87412 |gx[1]#_g87413_|)) (declare (not safe)) - (cons 'e __tmp87408))) - (__tmp87395 - (let ((__tmp87404 - (let ((__tmp87405 |gx[1]#_g87406_|)) + (cons 'e __tmp87412))) + (__tmp87399 + (let ((__tmp87408 + (let ((__tmp87409 |gx[1]#_g87410_|)) (declare (not safe)) - (cons 'id __tmp87405))) - (__tmp87396 - (let ((__tmp87401 - (let ((__tmp87402 |gx[1]#_g87403_|)) + (cons 'id __tmp87409))) + (__tmp87400 + (let ((__tmp87405 + (let ((__tmp87406 |gx[1]#_g87407_|)) (declare (not safe)) - (cons 'key __tmp87402))) - (__tmp87397 - (let ((__tmp87398 - (let ((__tmp87399 |gx[1]#_g87400_|)) + (cons 'key __tmp87406))) + (__tmp87401 + (let ((__tmp87402 + (let ((__tmp87403 |gx[1]#_g87404_|)) (declare (not safe)) - (cons 'phi __tmp87399)))) + (cons 'phi __tmp87403)))) (declare (not safe)) - (cons __tmp87398 '())))) + (cons __tmp87402 '())))) (declare (not safe)) - (cons __tmp87401 __tmp87397)))) + (cons __tmp87405 __tmp87401)))) (declare (not safe)) - (cons __tmp87404 __tmp87396)))) + (cons __tmp87408 __tmp87400)))) (declare (not safe)) - (cons __tmp87407 __tmp87395)))) + (cons __tmp87411 __tmp87399)))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87394 + __obj86081 + __tmp87398 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86077)) + __obj86081)) (define |gx[:0:]#expander| - (let ((__obj86078 + (let ((__obj86082 (let () (declare (not safe)) (##structure @@ -7942,7 +7942,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 'gx#expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -7950,7 +7950,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 'expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -7958,7 +7958,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 '(e) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -7966,7 +7966,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -7974,7 +7974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -7982,7 +7982,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -7990,7 +7990,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -7998,49 +7998,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87410 |gx[1]#_g87411_|)) + (let ((__tmp87414 |gx[1]#_g87415_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87410 + __obj86082 + __tmp87414 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87412 |gx[1]#_g87413_|)) + (let ((__tmp87416 |gx[1]#_g87417_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87412 + __obj86082 + __tmp87416 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87414 |gx[1]#_g87415_|)) + (let ((__tmp87418 |gx[1]#_g87419_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87414 + __obj86082 + __tmp87418 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87416 - (let ((__tmp87417 - (let ((__tmp87418 |gx[1]#_g87419_|)) - (declare (not safe)) - (cons 'e __tmp87418)))) - (declare (not safe)) - (cons __tmp87417 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj86078 - __tmp87416 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp87420 (let ((__tmp87421 (let ((__tmp87422 |gx[1]#_g87423_|)) @@ -8050,9 +8036,9 @@ (cons __tmp87421 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 __tmp87420 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87424 @@ -8064,9 +8050,9 @@ (cons __tmp87425 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 __tmp87424 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87428 @@ -8078,14 +8064,28 @@ (cons __tmp87429 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86082 __tmp87428 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp87432 + (let ((__tmp87433 + (let ((__tmp87434 |gx[1]#_g87435_|)) + (declare (not safe)) + (cons 'e __tmp87434)))) + (declare (not safe)) + (cons __tmp87433 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj86082 + __tmp87432 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86078)) + __obj86082)) (define |gx[:0:]#core-expander| - (let ((__obj86079 + (let ((__obj86083 (let () (declare (not safe)) (##structure @@ -8109,7 +8109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86083 'gx#core-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -8117,7 +8117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86083 'core-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -8125,26 +8125,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86083 '(id compile-top) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87432 - (let ((__tmp87433 |gx[1]#_g87434_|)) + (let ((__tmp87436 + (let ((__tmp87437 |gx[1]#_g87438_|)) (declare (not safe)) - (cons __tmp87433 '())))) + (cons __tmp87437 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87432 + __obj86083 + __tmp87436 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86083 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -8152,7 +8152,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86083 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -8160,7 +8160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86083 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -8168,150 +8168,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86083 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87435 |gx[1]#_g87436_|)) + (let ((__tmp87439 |gx[1]#_g87440_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87435 + __obj86083 + __tmp87439 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87437 |gx[1]#_g87438_|)) + (let ((__tmp87441 |gx[1]#_g87442_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87437 + __obj86083 + __tmp87441 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87439 |gx[1]#_g87440_|)) + (let ((__tmp87443 |gx[1]#_g87444_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87439 + __obj86083 + __tmp87443 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87441 - (let ((__tmp87450 - (let ((__tmp87451 |gx[1]#_g87452_|)) + (let ((__tmp87445 + (let ((__tmp87454 + (let ((__tmp87455 |gx[1]#_g87456_|)) (declare (not safe)) - (cons 'id __tmp87451))) - (__tmp87442 - (let ((__tmp87447 - (let ((__tmp87448 |gx[1]#_g87449_|)) + (cons 'id __tmp87455))) + (__tmp87446 + (let ((__tmp87451 + (let ((__tmp87452 |gx[1]#_g87453_|)) (declare (not safe)) - (cons 'compile-top __tmp87448))) - (__tmp87443 - (let ((__tmp87444 - (let ((__tmp87445 |gx[1]#_g87446_|)) + (cons 'compile-top __tmp87452))) + (__tmp87447 + (let ((__tmp87448 + (let ((__tmp87449 |gx[1]#_g87450_|)) (declare (not safe)) - (cons 'e __tmp87445)))) + (cons 'e __tmp87449)))) (declare (not safe)) - (cons __tmp87444 '())))) + (cons __tmp87448 '())))) (declare (not safe)) - (cons __tmp87447 __tmp87443)))) + (cons __tmp87451 __tmp87447)))) (declare (not safe)) - (cons __tmp87450 __tmp87442)))) + (cons __tmp87454 __tmp87446)))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87441 + __obj86083 + __tmp87445 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87453 - (let ((__tmp87462 - (let ((__tmp87463 |gx[1]#_g87464_|)) + (let ((__tmp87457 + (let ((__tmp87466 + (let ((__tmp87467 |gx[1]#_g87468_|)) (declare (not safe)) - (cons 'id __tmp87463))) - (__tmp87454 - (let ((__tmp87459 - (let ((__tmp87460 |gx[1]#_g87461_|)) + (cons 'id __tmp87467))) + (__tmp87458 + (let ((__tmp87463 + (let ((__tmp87464 |gx[1]#_g87465_|)) (declare (not safe)) - (cons 'compile-top __tmp87460))) - (__tmp87455 - (let ((__tmp87456 - (let ((__tmp87457 |gx[1]#_g87458_|)) + (cons 'compile-top __tmp87464))) + (__tmp87459 + (let ((__tmp87460 + (let ((__tmp87461 |gx[1]#_g87462_|)) (declare (not safe)) - (cons 'e __tmp87457)))) + (cons 'e __tmp87461)))) (declare (not safe)) - (cons __tmp87456 '())))) + (cons __tmp87460 '())))) (declare (not safe)) - (cons __tmp87459 __tmp87455)))) + (cons __tmp87463 __tmp87459)))) (declare (not safe)) - (cons __tmp87462 __tmp87454)))) + (cons __tmp87466 __tmp87458)))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87453 + __obj86083 + __tmp87457 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87465 - (let ((__tmp87474 - (let ((__tmp87475 |gx[1]#_g87476_|)) + (let ((__tmp87469 + (let ((__tmp87478 + (let ((__tmp87479 |gx[1]#_g87480_|)) (declare (not safe)) - (cons 'id __tmp87475))) - (__tmp87466 - (let ((__tmp87471 - (let ((__tmp87472 |gx[1]#_g87473_|)) + (cons 'id __tmp87479))) + (__tmp87470 + (let ((__tmp87475 + (let ((__tmp87476 |gx[1]#_g87477_|)) (declare (not safe)) - (cons 'compile-top __tmp87472))) - (__tmp87467 - (let ((__tmp87468 - (let ((__tmp87469 |gx[1]#_g87470_|)) + (cons 'compile-top __tmp87476))) + (__tmp87471 + (let ((__tmp87472 + (let ((__tmp87473 |gx[1]#_g87474_|)) (declare (not safe)) - (cons 'e __tmp87469)))) + (cons 'e __tmp87473)))) (declare (not safe)) - (cons __tmp87468 '())))) + (cons __tmp87472 '())))) (declare (not safe)) - (cons __tmp87471 __tmp87467)))) + (cons __tmp87475 __tmp87471)))) (declare (not safe)) - (cons __tmp87474 __tmp87466)))) + (cons __tmp87478 __tmp87470)))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87465 + __obj86083 + __tmp87469 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87477 - (let ((__tmp87486 - (let ((__tmp87487 |gx[1]#_g87488_|)) + (let ((__tmp87481 + (let ((__tmp87490 + (let ((__tmp87491 |gx[1]#_g87492_|)) (declare (not safe)) - (cons 'id __tmp87487))) - (__tmp87478 - (let ((__tmp87483 - (let ((__tmp87484 |gx[1]#_g87485_|)) + (cons 'id __tmp87491))) + (__tmp87482 + (let ((__tmp87487 + (let ((__tmp87488 |gx[1]#_g87489_|)) (declare (not safe)) - (cons 'compile-top __tmp87484))) - (__tmp87479 - (let ((__tmp87480 - (let ((__tmp87481 |gx[1]#_g87482_|)) + (cons 'compile-top __tmp87488))) + (__tmp87483 + (let ((__tmp87484 + (let ((__tmp87485 |gx[1]#_g87486_|)) (declare (not safe)) - (cons 'e __tmp87481)))) + (cons 'e __tmp87485)))) (declare (not safe)) - (cons __tmp87480 '())))) + (cons __tmp87484 '())))) (declare (not safe)) - (cons __tmp87483 __tmp87479)))) + (cons __tmp87487 __tmp87483)))) (declare (not safe)) - (cons __tmp87486 __tmp87478)))) + (cons __tmp87490 __tmp87482)))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87477 + __obj86083 + __tmp87481 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86079)) + __obj86083)) (define |gx[:0:]#expression-form| - (let ((__obj86080 + (let ((__obj86084 (let () (declare (not safe)) (##structure @@ -8335,7 +8335,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86084 'gx#expression-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -8343,7 +8343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86084 'expression-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -8351,26 +8351,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86084 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87489 - (let ((__tmp87490 |gx[1]#_g87491_|)) + (let ((__tmp87493 + (let ((__tmp87494 |gx[1]#_g87495_|)) (declare (not safe)) - (cons __tmp87490 '())))) + (cons __tmp87494 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87489 + __obj86084 + __tmp87493 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86084 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -8378,7 +8378,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86084 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -8386,7 +8386,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86084 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -8394,150 +8394,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86084 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87492 |gx[1]#_g87493_|)) + (let ((__tmp87496 |gx[1]#_g87497_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87492 + __obj86084 + __tmp87496 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87494 |gx[1]#_g87495_|)) + (let ((__tmp87498 |gx[1]#_g87499_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87494 + __obj86084 + __tmp87498 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87496 |gx[1]#_g87497_|)) + (let ((__tmp87500 |gx[1]#_g87501_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87496 + __obj86084 + __tmp87500 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87498 - (let ((__tmp87507 - (let ((__tmp87508 |gx[1]#_g87509_|)) + (let ((__tmp87502 + (let ((__tmp87511 + (let ((__tmp87512 |gx[1]#_g87513_|)) (declare (not safe)) - (cons 'id __tmp87508))) - (__tmp87499 - (let ((__tmp87504 - (let ((__tmp87505 |gx[1]#_g87506_|)) + (cons 'id __tmp87512))) + (__tmp87503 + (let ((__tmp87508 + (let ((__tmp87509 |gx[1]#_g87510_|)) (declare (not safe)) - (cons 'compile-top __tmp87505))) - (__tmp87500 - (let ((__tmp87501 - (let ((__tmp87502 |gx[1]#_g87503_|)) + (cons 'compile-top __tmp87509))) + (__tmp87504 + (let ((__tmp87505 + (let ((__tmp87506 |gx[1]#_g87507_|)) (declare (not safe)) - (cons 'e __tmp87502)))) + (cons 'e __tmp87506)))) (declare (not safe)) - (cons __tmp87501 '())))) + (cons __tmp87505 '())))) (declare (not safe)) - (cons __tmp87504 __tmp87500)))) + (cons __tmp87508 __tmp87504)))) (declare (not safe)) - (cons __tmp87507 __tmp87499)))) + (cons __tmp87511 __tmp87503)))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87498 + __obj86084 + __tmp87502 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87510 - (let ((__tmp87519 - (let ((__tmp87520 |gx[1]#_g87521_|)) + (let ((__tmp87514 + (let ((__tmp87523 + (let ((__tmp87524 |gx[1]#_g87525_|)) (declare (not safe)) - (cons 'id __tmp87520))) - (__tmp87511 - (let ((__tmp87516 - (let ((__tmp87517 |gx[1]#_g87518_|)) + (cons 'id __tmp87524))) + (__tmp87515 + (let ((__tmp87520 + (let ((__tmp87521 |gx[1]#_g87522_|)) (declare (not safe)) - (cons 'compile-top __tmp87517))) - (__tmp87512 - (let ((__tmp87513 - (let ((__tmp87514 |gx[1]#_g87515_|)) + (cons 'compile-top __tmp87521))) + (__tmp87516 + (let ((__tmp87517 + (let ((__tmp87518 |gx[1]#_g87519_|)) (declare (not safe)) - (cons 'e __tmp87514)))) + (cons 'e __tmp87518)))) (declare (not safe)) - (cons __tmp87513 '())))) + (cons __tmp87517 '())))) (declare (not safe)) - (cons __tmp87516 __tmp87512)))) + (cons __tmp87520 __tmp87516)))) (declare (not safe)) - (cons __tmp87519 __tmp87511)))) + (cons __tmp87523 __tmp87515)))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87510 + __obj86084 + __tmp87514 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87522 - (let ((__tmp87531 - (let ((__tmp87532 |gx[1]#_g87533_|)) + (let ((__tmp87526 + (let ((__tmp87535 + (let ((__tmp87536 |gx[1]#_g87537_|)) (declare (not safe)) - (cons 'id __tmp87532))) - (__tmp87523 - (let ((__tmp87528 - (let ((__tmp87529 |gx[1]#_g87530_|)) + (cons 'id __tmp87536))) + (__tmp87527 + (let ((__tmp87532 + (let ((__tmp87533 |gx[1]#_g87534_|)) (declare (not safe)) - (cons 'compile-top __tmp87529))) - (__tmp87524 - (let ((__tmp87525 - (let ((__tmp87526 |gx[1]#_g87527_|)) + (cons 'compile-top __tmp87533))) + (__tmp87528 + (let ((__tmp87529 + (let ((__tmp87530 |gx[1]#_g87531_|)) (declare (not safe)) - (cons 'e __tmp87526)))) + (cons 'e __tmp87530)))) (declare (not safe)) - (cons __tmp87525 '())))) + (cons __tmp87529 '())))) (declare (not safe)) - (cons __tmp87528 __tmp87524)))) + (cons __tmp87532 __tmp87528)))) (declare (not safe)) - (cons __tmp87531 __tmp87523)))) + (cons __tmp87535 __tmp87527)))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87522 + __obj86084 + __tmp87526 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87534 - (let ((__tmp87543 - (let ((__tmp87544 |gx[1]#_g87545_|)) + (let ((__tmp87538 + (let ((__tmp87547 + (let ((__tmp87548 |gx[1]#_g87549_|)) (declare (not safe)) - (cons 'id __tmp87544))) - (__tmp87535 - (let ((__tmp87540 - (let ((__tmp87541 |gx[1]#_g87542_|)) + (cons 'id __tmp87548))) + (__tmp87539 + (let ((__tmp87544 + (let ((__tmp87545 |gx[1]#_g87546_|)) (declare (not safe)) - (cons 'compile-top __tmp87541))) - (__tmp87536 - (let ((__tmp87537 - (let ((__tmp87538 |gx[1]#_g87539_|)) + (cons 'compile-top __tmp87545))) + (__tmp87540 + (let ((__tmp87541 + (let ((__tmp87542 |gx[1]#_g87543_|)) (declare (not safe)) - (cons 'e __tmp87538)))) + (cons 'e __tmp87542)))) (declare (not safe)) - (cons __tmp87537 '())))) + (cons __tmp87541 '())))) (declare (not safe)) - (cons __tmp87540 __tmp87536)))) + (cons __tmp87544 __tmp87540)))) (declare (not safe)) - (cons __tmp87543 __tmp87535)))) + (cons __tmp87547 __tmp87539)))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87534 + __obj86084 + __tmp87538 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86080)) + __obj86084)) (define |gx[:0:]#special-form| - (let ((__obj86081 + (let ((__obj86085 (let () (declare (not safe)) (##structure @@ -8561,7 +8561,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86085 'gx#special-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -8569,7 +8569,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86085 'special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -8577,26 +8577,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86085 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87546 - (let ((__tmp87547 |gx[1]#_g87491_|)) + (let ((__tmp87550 + (let ((__tmp87551 |gx[1]#_g87495_|)) (declare (not safe)) - (cons __tmp87547 '())))) + (cons __tmp87551 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87546 + __obj86085 + __tmp87550 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86085 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -8604,7 +8604,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86085 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -8612,7 +8612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86085 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -8620,150 +8620,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86085 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87548 |gx[1]#_g87549_|)) + (let ((__tmp87552 |gx[1]#_g87553_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87548 + __obj86085 + __tmp87552 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87550 |gx[1]#_g87551_|)) + (let ((__tmp87554 |gx[1]#_g87555_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87550 + __obj86085 + __tmp87554 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87552 |gx[1]#_g87553_|)) + (let ((__tmp87556 |gx[1]#_g87557_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87552 + __obj86085 + __tmp87556 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87554 - (let ((__tmp87563 - (let ((__tmp87564 |gx[1]#_g87565_|)) + (let ((__tmp87558 + (let ((__tmp87567 + (let ((__tmp87568 |gx[1]#_g87569_|)) (declare (not safe)) - (cons 'id __tmp87564))) - (__tmp87555 - (let ((__tmp87560 - (let ((__tmp87561 |gx[1]#_g87562_|)) + (cons 'id __tmp87568))) + (__tmp87559 + (let ((__tmp87564 + (let ((__tmp87565 |gx[1]#_g87566_|)) (declare (not safe)) - (cons 'compile-top __tmp87561))) - (__tmp87556 - (let ((__tmp87557 - (let ((__tmp87558 |gx[1]#_g87559_|)) + (cons 'compile-top __tmp87565))) + (__tmp87560 + (let ((__tmp87561 + (let ((__tmp87562 |gx[1]#_g87563_|)) (declare (not safe)) - (cons 'e __tmp87558)))) + (cons 'e __tmp87562)))) (declare (not safe)) - (cons __tmp87557 '())))) + (cons __tmp87561 '())))) (declare (not safe)) - (cons __tmp87560 __tmp87556)))) + (cons __tmp87564 __tmp87560)))) (declare (not safe)) - (cons __tmp87563 __tmp87555)))) + (cons __tmp87567 __tmp87559)))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87554 + __obj86085 + __tmp87558 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87566 - (let ((__tmp87575 - (let ((__tmp87576 |gx[1]#_g87577_|)) + (let ((__tmp87570 + (let ((__tmp87579 + (let ((__tmp87580 |gx[1]#_g87581_|)) (declare (not safe)) - (cons 'id __tmp87576))) - (__tmp87567 - (let ((__tmp87572 - (let ((__tmp87573 |gx[1]#_g87574_|)) + (cons 'id __tmp87580))) + (__tmp87571 + (let ((__tmp87576 + (let ((__tmp87577 |gx[1]#_g87578_|)) (declare (not safe)) - (cons 'compile-top __tmp87573))) - (__tmp87568 - (let ((__tmp87569 - (let ((__tmp87570 |gx[1]#_g87571_|)) + (cons 'compile-top __tmp87577))) + (__tmp87572 + (let ((__tmp87573 + (let ((__tmp87574 |gx[1]#_g87575_|)) (declare (not safe)) - (cons 'e __tmp87570)))) + (cons 'e __tmp87574)))) (declare (not safe)) - (cons __tmp87569 '())))) + (cons __tmp87573 '())))) (declare (not safe)) - (cons __tmp87572 __tmp87568)))) + (cons __tmp87576 __tmp87572)))) (declare (not safe)) - (cons __tmp87575 __tmp87567)))) + (cons __tmp87579 __tmp87571)))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87566 + __obj86085 + __tmp87570 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87578 - (let ((__tmp87587 - (let ((__tmp87588 |gx[1]#_g87589_|)) + (let ((__tmp87582 + (let ((__tmp87591 + (let ((__tmp87592 |gx[1]#_g87593_|)) (declare (not safe)) - (cons 'id __tmp87588))) - (__tmp87579 - (let ((__tmp87584 - (let ((__tmp87585 |gx[1]#_g87586_|)) + (cons 'id __tmp87592))) + (__tmp87583 + (let ((__tmp87588 + (let ((__tmp87589 |gx[1]#_g87590_|)) (declare (not safe)) - (cons 'compile-top __tmp87585))) - (__tmp87580 - (let ((__tmp87581 - (let ((__tmp87582 |gx[1]#_g87583_|)) + (cons 'compile-top __tmp87589))) + (__tmp87584 + (let ((__tmp87585 + (let ((__tmp87586 |gx[1]#_g87587_|)) (declare (not safe)) - (cons 'e __tmp87582)))) + (cons 'e __tmp87586)))) (declare (not safe)) - (cons __tmp87581 '())))) + (cons __tmp87585 '())))) (declare (not safe)) - (cons __tmp87584 __tmp87580)))) + (cons __tmp87588 __tmp87584)))) (declare (not safe)) - (cons __tmp87587 __tmp87579)))) + (cons __tmp87591 __tmp87583)))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87578 + __obj86085 + __tmp87582 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87590 - (let ((__tmp87599 - (let ((__tmp87600 |gx[1]#_g87601_|)) + (let ((__tmp87594 + (let ((__tmp87603 + (let ((__tmp87604 |gx[1]#_g87605_|)) (declare (not safe)) - (cons 'id __tmp87600))) - (__tmp87591 - (let ((__tmp87596 - (let ((__tmp87597 |gx[1]#_g87598_|)) + (cons 'id __tmp87604))) + (__tmp87595 + (let ((__tmp87600 + (let ((__tmp87601 |gx[1]#_g87602_|)) (declare (not safe)) - (cons 'compile-top __tmp87597))) - (__tmp87592 - (let ((__tmp87593 - (let ((__tmp87594 |gx[1]#_g87595_|)) + (cons 'compile-top __tmp87601))) + (__tmp87596 + (let ((__tmp87597 + (let ((__tmp87598 |gx[1]#_g87599_|)) (declare (not safe)) - (cons 'e __tmp87594)))) + (cons 'e __tmp87598)))) (declare (not safe)) - (cons __tmp87593 '())))) + (cons __tmp87597 '())))) (declare (not safe)) - (cons __tmp87596 __tmp87592)))) + (cons __tmp87600 __tmp87596)))) (declare (not safe)) - (cons __tmp87599 __tmp87591)))) + (cons __tmp87603 __tmp87595)))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87590 + __obj86085 + __tmp87594 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86081)) + __obj86085)) (define |gx[:0:]#definition-form| - (let ((__obj86082 + (let ((__obj86086 (let () (declare (not safe)) (##structure @@ -8787,7 +8787,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86086 'gx#definition-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -8795,7 +8795,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86086 'definition-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -8803,26 +8803,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86086 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87602 - (let ((__tmp87603 |gx[1]#_g87604_|)) + (let ((__tmp87606 + (let ((__tmp87607 |gx[1]#_g87608_|)) (declare (not safe)) - (cons __tmp87603 '())))) + (cons __tmp87607 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87602 + __obj86086 + __tmp87606 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86086 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -8830,7 +8830,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86086 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -8838,7 +8838,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86086 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -8846,150 +8846,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86086 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87605 |gx[1]#_g87606_|)) + (let ((__tmp87609 |gx[1]#_g87610_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87605 + __obj86086 + __tmp87609 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87607 |gx[1]#_g87608_|)) + (let ((__tmp87611 |gx[1]#_g87612_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87607 + __obj86086 + __tmp87611 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87609 |gx[1]#_g87610_|)) + (let ((__tmp87613 |gx[1]#_g87614_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87609 + __obj86086 + __tmp87613 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87611 - (let ((__tmp87620 - (let ((__tmp87621 |gx[1]#_g87622_|)) + (let ((__tmp87615 + (let ((__tmp87624 + (let ((__tmp87625 |gx[1]#_g87626_|)) (declare (not safe)) - (cons 'id __tmp87621))) - (__tmp87612 - (let ((__tmp87617 - (let ((__tmp87618 |gx[1]#_g87619_|)) + (cons 'id __tmp87625))) + (__tmp87616 + (let ((__tmp87621 + (let ((__tmp87622 |gx[1]#_g87623_|)) (declare (not safe)) - (cons 'compile-top __tmp87618))) - (__tmp87613 - (let ((__tmp87614 - (let ((__tmp87615 |gx[1]#_g87616_|)) + (cons 'compile-top __tmp87622))) + (__tmp87617 + (let ((__tmp87618 + (let ((__tmp87619 |gx[1]#_g87620_|)) (declare (not safe)) - (cons 'e __tmp87615)))) + (cons 'e __tmp87619)))) (declare (not safe)) - (cons __tmp87614 '())))) + (cons __tmp87618 '())))) (declare (not safe)) - (cons __tmp87617 __tmp87613)))) + (cons __tmp87621 __tmp87617)))) (declare (not safe)) - (cons __tmp87620 __tmp87612)))) + (cons __tmp87624 __tmp87616)))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87611 + __obj86086 + __tmp87615 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87623 - (let ((__tmp87632 - (let ((__tmp87633 |gx[1]#_g87634_|)) + (let ((__tmp87627 + (let ((__tmp87636 + (let ((__tmp87637 |gx[1]#_g87638_|)) (declare (not safe)) - (cons 'id __tmp87633))) - (__tmp87624 - (let ((__tmp87629 - (let ((__tmp87630 |gx[1]#_g87631_|)) + (cons 'id __tmp87637))) + (__tmp87628 + (let ((__tmp87633 + (let ((__tmp87634 |gx[1]#_g87635_|)) (declare (not safe)) - (cons 'compile-top __tmp87630))) - (__tmp87625 - (let ((__tmp87626 - (let ((__tmp87627 |gx[1]#_g87628_|)) + (cons 'compile-top __tmp87634))) + (__tmp87629 + (let ((__tmp87630 + (let ((__tmp87631 |gx[1]#_g87632_|)) (declare (not safe)) - (cons 'e __tmp87627)))) + (cons 'e __tmp87631)))) (declare (not safe)) - (cons __tmp87626 '())))) + (cons __tmp87630 '())))) (declare (not safe)) - (cons __tmp87629 __tmp87625)))) + (cons __tmp87633 __tmp87629)))) (declare (not safe)) - (cons __tmp87632 __tmp87624)))) + (cons __tmp87636 __tmp87628)))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87623 + __obj86086 + __tmp87627 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87635 - (let ((__tmp87644 - (let ((__tmp87645 |gx[1]#_g87646_|)) + (let ((__tmp87639 + (let ((__tmp87648 + (let ((__tmp87649 |gx[1]#_g87650_|)) (declare (not safe)) - (cons 'id __tmp87645))) - (__tmp87636 - (let ((__tmp87641 - (let ((__tmp87642 |gx[1]#_g87643_|)) + (cons 'id __tmp87649))) + (__tmp87640 + (let ((__tmp87645 + (let ((__tmp87646 |gx[1]#_g87647_|)) (declare (not safe)) - (cons 'compile-top __tmp87642))) - (__tmp87637 - (let ((__tmp87638 - (let ((__tmp87639 |gx[1]#_g87640_|)) + (cons 'compile-top __tmp87646))) + (__tmp87641 + (let ((__tmp87642 + (let ((__tmp87643 |gx[1]#_g87644_|)) (declare (not safe)) - (cons 'e __tmp87639)))) + (cons 'e __tmp87643)))) (declare (not safe)) - (cons __tmp87638 '())))) + (cons __tmp87642 '())))) (declare (not safe)) - (cons __tmp87641 __tmp87637)))) + (cons __tmp87645 __tmp87641)))) (declare (not safe)) - (cons __tmp87644 __tmp87636)))) + (cons __tmp87648 __tmp87640)))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87635 + __obj86086 + __tmp87639 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87647 - (let ((__tmp87656 - (let ((__tmp87657 |gx[1]#_g87658_|)) + (let ((__tmp87651 + (let ((__tmp87660 + (let ((__tmp87661 |gx[1]#_g87662_|)) (declare (not safe)) - (cons 'id __tmp87657))) - (__tmp87648 - (let ((__tmp87653 - (let ((__tmp87654 |gx[1]#_g87655_|)) + (cons 'id __tmp87661))) + (__tmp87652 + (let ((__tmp87657 + (let ((__tmp87658 |gx[1]#_g87659_|)) (declare (not safe)) - (cons 'compile-top __tmp87654))) - (__tmp87649 - (let ((__tmp87650 - (let ((__tmp87651 |gx[1]#_g87652_|)) + (cons 'compile-top __tmp87658))) + (__tmp87653 + (let ((__tmp87654 + (let ((__tmp87655 |gx[1]#_g87656_|)) (declare (not safe)) - (cons 'e __tmp87651)))) + (cons 'e __tmp87655)))) (declare (not safe)) - (cons __tmp87650 '())))) + (cons __tmp87654 '())))) (declare (not safe)) - (cons __tmp87653 __tmp87649)))) + (cons __tmp87657 __tmp87653)))) (declare (not safe)) - (cons __tmp87656 __tmp87648)))) + (cons __tmp87660 __tmp87652)))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87647 + __obj86086 + __tmp87651 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86082)) + __obj86086)) (define |gx[:0:]#top-special-form| - (let ((__obj86083 + (let ((__obj86087 (let () (declare (not safe)) (##structure @@ -9013,7 +9013,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86087 'gx#top-special-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -9021,7 +9021,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86087 'top-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9029,26 +9029,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86087 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87659 - (let ((__tmp87660 |gx[1]#_g87604_|)) + (let ((__tmp87663 + (let ((__tmp87664 |gx[1]#_g87608_|)) (declare (not safe)) - (cons __tmp87660 '())))) + (cons __tmp87664 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87659 + __obj86087 + __tmp87663 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86087 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9056,7 +9056,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86087 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9064,7 +9064,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86087 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9072,150 +9072,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86087 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87661 |gx[1]#_g87662_|)) + (let ((__tmp87665 |gx[1]#_g87666_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87661 + __obj86087 + __tmp87665 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87663 |gx[1]#_g87664_|)) + (let ((__tmp87667 |gx[1]#_g87668_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87663 + __obj86087 + __tmp87667 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87665 |gx[1]#_g87666_|)) + (let ((__tmp87669 |gx[1]#_g87670_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87665 + __obj86087 + __tmp87669 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87667 - (let ((__tmp87676 - (let ((__tmp87677 |gx[1]#_g87678_|)) + (let ((__tmp87671 + (let ((__tmp87680 + (let ((__tmp87681 |gx[1]#_g87682_|)) (declare (not safe)) - (cons 'id __tmp87677))) - (__tmp87668 - (let ((__tmp87673 - (let ((__tmp87674 |gx[1]#_g87675_|)) + (cons 'id __tmp87681))) + (__tmp87672 + (let ((__tmp87677 + (let ((__tmp87678 |gx[1]#_g87679_|)) (declare (not safe)) - (cons 'compile-top __tmp87674))) - (__tmp87669 - (let ((__tmp87670 - (let ((__tmp87671 |gx[1]#_g87672_|)) + (cons 'compile-top __tmp87678))) + (__tmp87673 + (let ((__tmp87674 + (let ((__tmp87675 |gx[1]#_g87676_|)) (declare (not safe)) - (cons 'e __tmp87671)))) + (cons 'e __tmp87675)))) (declare (not safe)) - (cons __tmp87670 '())))) + (cons __tmp87674 '())))) (declare (not safe)) - (cons __tmp87673 __tmp87669)))) + (cons __tmp87677 __tmp87673)))) (declare (not safe)) - (cons __tmp87676 __tmp87668)))) + (cons __tmp87680 __tmp87672)))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87667 + __obj86087 + __tmp87671 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87679 - (let ((__tmp87688 - (let ((__tmp87689 |gx[1]#_g87690_|)) + (let ((__tmp87683 + (let ((__tmp87692 + (let ((__tmp87693 |gx[1]#_g87694_|)) (declare (not safe)) - (cons 'id __tmp87689))) - (__tmp87680 - (let ((__tmp87685 - (let ((__tmp87686 |gx[1]#_g87687_|)) + (cons 'id __tmp87693))) + (__tmp87684 + (let ((__tmp87689 + (let ((__tmp87690 |gx[1]#_g87691_|)) (declare (not safe)) - (cons 'compile-top __tmp87686))) - (__tmp87681 - (let ((__tmp87682 - (let ((__tmp87683 |gx[1]#_g87684_|)) + (cons 'compile-top __tmp87690))) + (__tmp87685 + (let ((__tmp87686 + (let ((__tmp87687 |gx[1]#_g87688_|)) (declare (not safe)) - (cons 'e __tmp87683)))) + (cons 'e __tmp87687)))) (declare (not safe)) - (cons __tmp87682 '())))) + (cons __tmp87686 '())))) (declare (not safe)) - (cons __tmp87685 __tmp87681)))) + (cons __tmp87689 __tmp87685)))) (declare (not safe)) - (cons __tmp87688 __tmp87680)))) + (cons __tmp87692 __tmp87684)))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87679 + __obj86087 + __tmp87683 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87691 - (let ((__tmp87700 - (let ((__tmp87701 |gx[1]#_g87702_|)) + (let ((__tmp87695 + (let ((__tmp87704 + (let ((__tmp87705 |gx[1]#_g87706_|)) (declare (not safe)) - (cons 'id __tmp87701))) - (__tmp87692 - (let ((__tmp87697 - (let ((__tmp87698 |gx[1]#_g87699_|)) + (cons 'id __tmp87705))) + (__tmp87696 + (let ((__tmp87701 + (let ((__tmp87702 |gx[1]#_g87703_|)) (declare (not safe)) - (cons 'compile-top __tmp87698))) - (__tmp87693 - (let ((__tmp87694 - (let ((__tmp87695 |gx[1]#_g87696_|)) + (cons 'compile-top __tmp87702))) + (__tmp87697 + (let ((__tmp87698 + (let ((__tmp87699 |gx[1]#_g87700_|)) (declare (not safe)) - (cons 'e __tmp87695)))) + (cons 'e __tmp87699)))) (declare (not safe)) - (cons __tmp87694 '())))) + (cons __tmp87698 '())))) (declare (not safe)) - (cons __tmp87697 __tmp87693)))) + (cons __tmp87701 __tmp87697)))) (declare (not safe)) - (cons __tmp87700 __tmp87692)))) + (cons __tmp87704 __tmp87696)))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87691 + __obj86087 + __tmp87695 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87703 - (let ((__tmp87712 - (let ((__tmp87713 |gx[1]#_g87714_|)) + (let ((__tmp87707 + (let ((__tmp87716 + (let ((__tmp87717 |gx[1]#_g87718_|)) (declare (not safe)) - (cons 'id __tmp87713))) - (__tmp87704 - (let ((__tmp87709 - (let ((__tmp87710 |gx[1]#_g87711_|)) + (cons 'id __tmp87717))) + (__tmp87708 + (let ((__tmp87713 + (let ((__tmp87714 |gx[1]#_g87715_|)) (declare (not safe)) - (cons 'compile-top __tmp87710))) - (__tmp87705 - (let ((__tmp87706 - (let ((__tmp87707 |gx[1]#_g87708_|)) + (cons 'compile-top __tmp87714))) + (__tmp87709 + (let ((__tmp87710 + (let ((__tmp87711 |gx[1]#_g87712_|)) (declare (not safe)) - (cons 'e __tmp87707)))) + (cons 'e __tmp87711)))) (declare (not safe)) - (cons __tmp87706 '())))) + (cons __tmp87710 '())))) (declare (not safe)) - (cons __tmp87709 __tmp87705)))) + (cons __tmp87713 __tmp87709)))) (declare (not safe)) - (cons __tmp87712 __tmp87704)))) + (cons __tmp87716 __tmp87708)))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87703 + __obj86087 + __tmp87707 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86083)) + __obj86087)) (define |gx[:0:]#module-special-form| - (let ((__obj86084 + (let ((__obj86088 (let () (declare (not safe)) (##structure @@ -9239,7 +9239,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86088 'gx#module-special-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -9247,7 +9247,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86088 'module-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9255,26 +9255,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86088 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87715 - (let ((__tmp87716 |gx[1]#_g87717_|)) + (let ((__tmp87719 + (let ((__tmp87720 |gx[1]#_g87721_|)) (declare (not safe)) - (cons __tmp87716 '())))) + (cons __tmp87720 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87715 + __obj86088 + __tmp87719 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86088 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9282,7 +9282,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86088 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9290,7 +9290,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86088 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9298,150 +9298,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86088 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87718 |gx[1]#_g87719_|)) + (let ((__tmp87722 |gx[1]#_g87723_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87718 + __obj86088 + __tmp87722 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87720 |gx[1]#_g87721_|)) + (let ((__tmp87724 |gx[1]#_g87725_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87720 + __obj86088 + __tmp87724 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87722 |gx[1]#_g87723_|)) + (let ((__tmp87726 |gx[1]#_g87727_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87722 + __obj86088 + __tmp87726 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87724 - (let ((__tmp87733 - (let ((__tmp87734 |gx[1]#_g87735_|)) + (let ((__tmp87728 + (let ((__tmp87737 + (let ((__tmp87738 |gx[1]#_g87739_|)) (declare (not safe)) - (cons 'id __tmp87734))) - (__tmp87725 - (let ((__tmp87730 - (let ((__tmp87731 |gx[1]#_g87732_|)) + (cons 'id __tmp87738))) + (__tmp87729 + (let ((__tmp87734 + (let ((__tmp87735 |gx[1]#_g87736_|)) (declare (not safe)) - (cons 'compile-top __tmp87731))) - (__tmp87726 - (let ((__tmp87727 - (let ((__tmp87728 |gx[1]#_g87729_|)) + (cons 'compile-top __tmp87735))) + (__tmp87730 + (let ((__tmp87731 + (let ((__tmp87732 |gx[1]#_g87733_|)) (declare (not safe)) - (cons 'e __tmp87728)))) + (cons 'e __tmp87732)))) (declare (not safe)) - (cons __tmp87727 '())))) + (cons __tmp87731 '())))) (declare (not safe)) - (cons __tmp87730 __tmp87726)))) + (cons __tmp87734 __tmp87730)))) (declare (not safe)) - (cons __tmp87733 __tmp87725)))) + (cons __tmp87737 __tmp87729)))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87724 + __obj86088 + __tmp87728 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87736 - (let ((__tmp87745 - (let ((__tmp87746 |gx[1]#_g87747_|)) + (let ((__tmp87740 + (let ((__tmp87749 + (let ((__tmp87750 |gx[1]#_g87751_|)) (declare (not safe)) - (cons 'id __tmp87746))) - (__tmp87737 - (let ((__tmp87742 - (let ((__tmp87743 |gx[1]#_g87744_|)) + (cons 'id __tmp87750))) + (__tmp87741 + (let ((__tmp87746 + (let ((__tmp87747 |gx[1]#_g87748_|)) (declare (not safe)) - (cons 'compile-top __tmp87743))) - (__tmp87738 - (let ((__tmp87739 - (let ((__tmp87740 |gx[1]#_g87741_|)) + (cons 'compile-top __tmp87747))) + (__tmp87742 + (let ((__tmp87743 + (let ((__tmp87744 |gx[1]#_g87745_|)) (declare (not safe)) - (cons 'e __tmp87740)))) + (cons 'e __tmp87744)))) (declare (not safe)) - (cons __tmp87739 '())))) + (cons __tmp87743 '())))) (declare (not safe)) - (cons __tmp87742 __tmp87738)))) + (cons __tmp87746 __tmp87742)))) (declare (not safe)) - (cons __tmp87745 __tmp87737)))) + (cons __tmp87749 __tmp87741)))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87736 + __obj86088 + __tmp87740 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87748 - (let ((__tmp87757 - (let ((__tmp87758 |gx[1]#_g87759_|)) + (let ((__tmp87752 + (let ((__tmp87761 + (let ((__tmp87762 |gx[1]#_g87763_|)) (declare (not safe)) - (cons 'id __tmp87758))) - (__tmp87749 - (let ((__tmp87754 - (let ((__tmp87755 |gx[1]#_g87756_|)) + (cons 'id __tmp87762))) + (__tmp87753 + (let ((__tmp87758 + (let ((__tmp87759 |gx[1]#_g87760_|)) (declare (not safe)) - (cons 'compile-top __tmp87755))) - (__tmp87750 - (let ((__tmp87751 - (let ((__tmp87752 |gx[1]#_g87753_|)) + (cons 'compile-top __tmp87759))) + (__tmp87754 + (let ((__tmp87755 + (let ((__tmp87756 |gx[1]#_g87757_|)) (declare (not safe)) - (cons 'e __tmp87752)))) + (cons 'e __tmp87756)))) (declare (not safe)) - (cons __tmp87751 '())))) + (cons __tmp87755 '())))) (declare (not safe)) - (cons __tmp87754 __tmp87750)))) + (cons __tmp87758 __tmp87754)))) (declare (not safe)) - (cons __tmp87757 __tmp87749)))) + (cons __tmp87761 __tmp87753)))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87748 + __obj86088 + __tmp87752 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87760 - (let ((__tmp87769 - (let ((__tmp87770 |gx[1]#_g87771_|)) + (let ((__tmp87764 + (let ((__tmp87773 + (let ((__tmp87774 |gx[1]#_g87775_|)) (declare (not safe)) - (cons 'id __tmp87770))) - (__tmp87761 - (let ((__tmp87766 - (let ((__tmp87767 |gx[1]#_g87768_|)) + (cons 'id __tmp87774))) + (__tmp87765 + (let ((__tmp87770 + (let ((__tmp87771 |gx[1]#_g87772_|)) (declare (not safe)) - (cons 'compile-top __tmp87767))) - (__tmp87762 - (let ((__tmp87763 - (let ((__tmp87764 |gx[1]#_g87765_|)) + (cons 'compile-top __tmp87771))) + (__tmp87766 + (let ((__tmp87767 + (let ((__tmp87768 |gx[1]#_g87769_|)) (declare (not safe)) - (cons 'e __tmp87764)))) + (cons 'e __tmp87768)))) (declare (not safe)) - (cons __tmp87763 '())))) + (cons __tmp87767 '())))) (declare (not safe)) - (cons __tmp87766 __tmp87762)))) + (cons __tmp87770 __tmp87766)))) (declare (not safe)) - (cons __tmp87769 __tmp87761)))) + (cons __tmp87773 __tmp87765)))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87760 + __obj86088 + __tmp87764 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86084)) + __obj86088)) (define |gx[:0:]#feature-expander| - (let ((__obj86085 + (let ((__obj86089 (let () (declare (not safe)) (##structure @@ -9465,7 +9465,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 'gx#feature-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -9473,7 +9473,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 'feature-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9481,26 +9481,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87772 - (let ((__tmp87773 |gx[1]#_g87434_|)) + (let ((__tmp87776 + (let ((__tmp87777 |gx[1]#_g87438_|)) (declare (not safe)) - (cons __tmp87773 '())))) + (cons __tmp87777 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87772 + __obj86089 + __tmp87776 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9508,7 +9508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9516,7 +9516,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9524,49 +9524,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87774 |gx[1]#_g87775_|)) + (let ((__tmp87778 |gx[1]#_g87779_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87774 + __obj86089 + __tmp87778 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87776 |gx[1]#_g87777_|)) + (let ((__tmp87780 |gx[1]#_g87781_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87776 + __obj86089 + __tmp87780 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87778 |gx[1]#_g87779_|)) + (let ((__tmp87782 |gx[1]#_g87783_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87778 + __obj86089 + __tmp87782 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87780 - (let ((__tmp87781 - (let ((__tmp87782 |gx[1]#_g87783_|)) - (declare (not safe)) - (cons 'e __tmp87782)))) - (declare (not safe)) - (cons __tmp87781 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj86085 - __tmp87780 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp87784 (let ((__tmp87785 (let ((__tmp87786 |gx[1]#_g87787_|)) @@ -9576,9 +9562,9 @@ (cons __tmp87785 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 __tmp87784 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87788 @@ -9590,9 +9576,9 @@ (cons __tmp87789 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 __tmp87788 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87792 @@ -9604,14 +9590,28 @@ (cons __tmp87793 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86089 __tmp87792 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp87796 + (let ((__tmp87797 + (let ((__tmp87798 |gx[1]#_g87799_|)) + (declare (not safe)) + (cons 'e __tmp87798)))) + (declare (not safe)) + (cons __tmp87797 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj86089 + __tmp87796 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86085)) + __obj86089)) (define |gx[:0:]#private-feature-expander| - (let ((__obj86086 + (let ((__obj86090 (let () (declare (not safe)) (##structure @@ -9635,7 +9635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 'gx#private-feature-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -9643,7 +9643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 'private-feature-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9651,26 +9651,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87796 - (let ((__tmp87797 |gx[1]#_g87798_|)) + (let ((__tmp87800 + (let ((__tmp87801 |gx[1]#_g87802_|)) (declare (not safe)) - (cons __tmp87797 '())))) + (cons __tmp87801 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87796 + __obj86090 + __tmp87800 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9678,7 +9678,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9686,7 +9686,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9694,49 +9694,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87799 |gx[1]#_g87800_|)) + (let ((__tmp87803 |gx[1]#_g87804_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87799 + __obj86090 + __tmp87803 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87801 |gx[1]#_g87802_|)) + (let ((__tmp87805 |gx[1]#_g87806_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87801 + __obj86090 + __tmp87805 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87803 |gx[1]#_g87804_|)) + (let ((__tmp87807 |gx[1]#_g87808_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87803 + __obj86090 + __tmp87807 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87805 - (let ((__tmp87806 - (let ((__tmp87807 |gx[1]#_g87808_|)) - (declare (not safe)) - (cons 'e __tmp87807)))) - (declare (not safe)) - (cons __tmp87806 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj86086 - __tmp87805 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp87809 (let ((__tmp87810 (let ((__tmp87811 |gx[1]#_g87812_|)) @@ -9746,9 +9732,9 @@ (cons __tmp87810 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 __tmp87809 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87813 @@ -9760,9 +9746,9 @@ (cons __tmp87814 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 __tmp87813 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87817 @@ -9774,14 +9760,28 @@ (cons __tmp87818 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86090 __tmp87817 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp87821 + (let ((__tmp87822 + (let ((__tmp87823 |gx[1]#_g87824_|)) + (declare (not safe)) + (cons 'e __tmp87823)))) + (declare (not safe)) + (cons __tmp87822 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj86090 + __tmp87821 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86086)) + __obj86090)) (define |gx[:0:]#reserved-expander| - (let ((__obj86087 + (let ((__obj86091 (let () (declare (not safe)) (##structure @@ -9805,7 +9805,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 'gx#reserved-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -9813,7 +9813,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 'reserved-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9821,26 +9821,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87821 - (let ((__tmp87822 |gx[1]#_g87434_|)) + (let ((__tmp87825 + (let ((__tmp87826 |gx[1]#_g87438_|)) (declare (not safe)) - (cons __tmp87822 '())))) + (cons __tmp87826 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87821 + __obj86091 + __tmp87825 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9848,7 +9848,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9856,7 +9856,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9864,49 +9864,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87823 |gx[1]#_g87824_|)) + (let ((__tmp87827 |gx[1]#_g87828_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87823 + __obj86091 + __tmp87827 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87825 |gx[1]#_g87826_|)) + (let ((__tmp87829 |gx[1]#_g87830_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87825 + __obj86091 + __tmp87829 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87827 |gx[1]#_g87828_|)) + (let ((__tmp87831 |gx[1]#_g87832_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87827 + __obj86091 + __tmp87831 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87829 - (let ((__tmp87830 - (let ((__tmp87831 |gx[1]#_g87832_|)) - (declare (not safe)) - (cons 'e __tmp87831)))) - (declare (not safe)) - (cons __tmp87830 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj86087 - __tmp87829 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp87833 (let ((__tmp87834 (let ((__tmp87835 |gx[1]#_g87836_|)) @@ -9916,9 +9902,9 @@ (cons __tmp87834 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 __tmp87833 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87837 @@ -9930,9 +9916,9 @@ (cons __tmp87838 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 __tmp87837 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87841 @@ -9944,14 +9930,28 @@ (cons __tmp87842 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86091 __tmp87841 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp87845 + (let ((__tmp87846 + (let ((__tmp87847 |gx[1]#_g87848_|)) + (declare (not safe)) + (cons 'e __tmp87847)))) + (declare (not safe)) + (cons __tmp87846 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj86091 + __tmp87845 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86087)) + __obj86091)) (define |gx[:0:]#macro-expander| - (let ((__obj86088 + (let ((__obj86092 (let () (declare (not safe)) (##structure @@ -9975,7 +9975,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 'gx#core-macro::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -9983,7 +9983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 'macro-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9991,26 +9991,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87845 - (let ((__tmp87846 |gx[1]#_g87434_|)) + (let ((__tmp87849 + (let ((__tmp87850 |gx[1]#_g87438_|)) (declare (not safe)) - (cons __tmp87846 '())))) + (cons __tmp87850 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87845 + __obj86092 + __tmp87849 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -10018,7 +10018,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -10026,7 +10026,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -10034,49 +10034,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87847 |gx[1]#_g87848_|)) + (let ((__tmp87851 |gx[1]#_g87852_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87847 + __obj86092 + __tmp87851 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87849 |gx[1]#_g87850_|)) + (let ((__tmp87853 |gx[1]#_g87854_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87849 + __obj86092 + __tmp87853 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87851 |gx[1]#_g87852_|)) + (let ((__tmp87855 |gx[1]#_g87856_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87851 + __obj86092 + __tmp87855 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87853 - (let ((__tmp87854 - (let ((__tmp87855 |gx[1]#_g87856_|)) - (declare (not safe)) - (cons 'e __tmp87855)))) - (declare (not safe)) - (cons __tmp87854 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj86088 - __tmp87853 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp87857 (let ((__tmp87858 (let ((__tmp87859 |gx[1]#_g87860_|)) @@ -10086,9 +10072,9 @@ (cons __tmp87858 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 __tmp87857 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87861 @@ -10100,9 +10086,9 @@ (cons __tmp87862 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 __tmp87861 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87865 @@ -10114,14 +10100,28 @@ (cons __tmp87866 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86092 __tmp87865 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp87869 + (let ((__tmp87870 + (let ((__tmp87871 |gx[1]#_g87872_|)) + (declare (not safe)) + (cons 'e __tmp87871)))) + (declare (not safe)) + (cons __tmp87870 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj86092 + __tmp87869 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86088)) + __obj86092)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj86089 + (let ((__obj86093 (let () (declare (not safe)) (##structure @@ -10145,7 +10145,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 'gx#rename-macro-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -10153,7 +10153,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 'rename-macro-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -10161,26 +10161,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87869 - (let ((__tmp87870 |gx[1]#_g87871_|)) + (let ((__tmp87873 + (let ((__tmp87874 |gx[1]#_g87875_|)) (declare (not safe)) - (cons __tmp87870 '())))) + (cons __tmp87874 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87869 + __obj86093 + __tmp87873 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -10188,7 +10188,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -10196,7 +10196,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -10204,49 +10204,35 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87872 |gx[1]#_g87873_|)) + (let ((__tmp87876 |gx[1]#_g87877_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87872 + __obj86093 + __tmp87876 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87874 |gx[1]#_g87875_|)) + (let ((__tmp87878 |gx[1]#_g87879_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87874 + __obj86093 + __tmp87878 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87876 |gx[1]#_g87877_|)) + (let ((__tmp87880 |gx[1]#_g87881_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87876 + __obj86093 + __tmp87880 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87878 - (let ((__tmp87879 - (let ((__tmp87880 |gx[1]#_g87881_|)) - (declare (not safe)) - (cons 'e __tmp87880)))) - (declare (not safe)) - (cons __tmp87879 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj86089 - __tmp87878 - '13 - gerbil/core/mop~MOP-2#class-type-info::t - '#f)) (let ((__tmp87882 (let ((__tmp87883 (let ((__tmp87884 |gx[1]#_g87885_|)) @@ -10256,9 +10242,9 @@ (cons __tmp87883 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 __tmp87882 - '14 + '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87886 @@ -10270,9 +10256,9 @@ (cons __tmp87887 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 __tmp87886 - '15 + '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let ((__tmp87890 @@ -10284,14 +10270,28 @@ (cons __tmp87891 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86093 __tmp87890 + '15 + gerbil/core/mop~MOP-2#class-type-info::t + '#f)) + (let ((__tmp87894 + (let ((__tmp87895 + (let ((__tmp87896 |gx[1]#_g87897_|)) + (declare (not safe)) + (cons 'e __tmp87896)))) + (declare (not safe)) + (cons __tmp87895 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj86093 + __tmp87894 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86089)) + __obj86093)) (define |gx[:0:]#user-expander| - (let ((__obj86090 + (let ((__obj86094 (let () (declare (not safe)) (##structure @@ -10315,7 +10315,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86094 'gx#macro-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -10323,7 +10323,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86094 'user-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -10331,26 +10331,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86094 '(context phi) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87894 - (let ((__tmp87895 |gx[1]#_g87871_|)) + (let ((__tmp87898 + (let ((__tmp87899 |gx[1]#_g87875_|)) (declare (not safe)) - (cons __tmp87895 '())))) + (cons __tmp87899 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87894 + __obj86094 + __tmp87898 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86094 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -10358,7 +10358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86094 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -10366,7 +10366,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86094 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -10374,150 +10374,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86094 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87896 |gx[1]#_g87897_|)) + (let ((__tmp87900 |gx[1]#_g87901_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87896 + __obj86094 + __tmp87900 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87898 |gx[1]#_g87899_|)) + (let ((__tmp87902 |gx[1]#_g87903_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87898 + __obj86094 + __tmp87902 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87900 |gx[1]#_g87901_|)) + (let ((__tmp87904 |gx[1]#_g87905_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87900 + __obj86094 + __tmp87904 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87902 - (let ((__tmp87911 - (let ((__tmp87912 |gx[1]#_g87913_|)) + (let ((__tmp87906 + (let ((__tmp87915 + (let ((__tmp87916 |gx[1]#_g87917_|)) (declare (not safe)) - (cons 'context __tmp87912))) - (__tmp87903 - (let ((__tmp87908 - (let ((__tmp87909 |gx[1]#_g87910_|)) + (cons 'context __tmp87916))) + (__tmp87907 + (let ((__tmp87912 + (let ((__tmp87913 |gx[1]#_g87914_|)) (declare (not safe)) - (cons 'phi __tmp87909))) - (__tmp87904 - (let ((__tmp87905 - (let ((__tmp87906 |gx[1]#_g87907_|)) + (cons 'phi __tmp87913))) + (__tmp87908 + (let ((__tmp87909 + (let ((__tmp87910 |gx[1]#_g87911_|)) (declare (not safe)) - (cons 'e __tmp87906)))) + (cons 'e __tmp87910)))) (declare (not safe)) - (cons __tmp87905 '())))) + (cons __tmp87909 '())))) (declare (not safe)) - (cons __tmp87908 __tmp87904)))) + (cons __tmp87912 __tmp87908)))) (declare (not safe)) - (cons __tmp87911 __tmp87903)))) + (cons __tmp87915 __tmp87907)))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87902 + __obj86094 + __tmp87906 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87914 - (let ((__tmp87923 - (let ((__tmp87924 |gx[1]#_g87925_|)) + (let ((__tmp87918 + (let ((__tmp87927 + (let ((__tmp87928 |gx[1]#_g87929_|)) (declare (not safe)) - (cons 'context __tmp87924))) - (__tmp87915 - (let ((__tmp87920 - (let ((__tmp87921 |gx[1]#_g87922_|)) + (cons 'context __tmp87928))) + (__tmp87919 + (let ((__tmp87924 + (let ((__tmp87925 |gx[1]#_g87926_|)) (declare (not safe)) - (cons 'phi __tmp87921))) - (__tmp87916 - (let ((__tmp87917 - (let ((__tmp87918 |gx[1]#_g87919_|)) + (cons 'phi __tmp87925))) + (__tmp87920 + (let ((__tmp87921 + (let ((__tmp87922 |gx[1]#_g87923_|)) (declare (not safe)) - (cons 'e __tmp87918)))) + (cons 'e __tmp87922)))) (declare (not safe)) - (cons __tmp87917 '())))) + (cons __tmp87921 '())))) (declare (not safe)) - (cons __tmp87920 __tmp87916)))) + (cons __tmp87924 __tmp87920)))) (declare (not safe)) - (cons __tmp87923 __tmp87915)))) + (cons __tmp87927 __tmp87919)))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87914 + __obj86094 + __tmp87918 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87926 - (let ((__tmp87935 - (let ((__tmp87936 |gx[1]#_g87937_|)) + (let ((__tmp87930 + (let ((__tmp87939 + (let ((__tmp87940 |gx[1]#_g87941_|)) (declare (not safe)) - (cons 'context __tmp87936))) - (__tmp87927 - (let ((__tmp87932 - (let ((__tmp87933 |gx[1]#_g87934_|)) + (cons 'context __tmp87940))) + (__tmp87931 + (let ((__tmp87936 + (let ((__tmp87937 |gx[1]#_g87938_|)) (declare (not safe)) - (cons 'phi __tmp87933))) - (__tmp87928 - (let ((__tmp87929 - (let ((__tmp87930 |gx[1]#_g87931_|)) + (cons 'phi __tmp87937))) + (__tmp87932 + (let ((__tmp87933 + (let ((__tmp87934 |gx[1]#_g87935_|)) (declare (not safe)) - (cons 'e __tmp87930)))) + (cons 'e __tmp87934)))) (declare (not safe)) - (cons __tmp87929 '())))) + (cons __tmp87933 '())))) (declare (not safe)) - (cons __tmp87932 __tmp87928)))) + (cons __tmp87936 __tmp87932)))) (declare (not safe)) - (cons __tmp87935 __tmp87927)))) + (cons __tmp87939 __tmp87931)))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87926 + __obj86094 + __tmp87930 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87938 - (let ((__tmp87947 - (let ((__tmp87948 |gx[1]#_g87949_|)) + (let ((__tmp87942 + (let ((__tmp87951 + (let ((__tmp87952 |gx[1]#_g87953_|)) (declare (not safe)) - (cons 'context __tmp87948))) - (__tmp87939 - (let ((__tmp87944 - (let ((__tmp87945 |gx[1]#_g87946_|)) + (cons 'context __tmp87952))) + (__tmp87943 + (let ((__tmp87948 + (let ((__tmp87949 |gx[1]#_g87950_|)) (declare (not safe)) - (cons 'phi __tmp87945))) - (__tmp87940 - (let ((__tmp87941 - (let ((__tmp87942 |gx[1]#_g87943_|)) + (cons 'phi __tmp87949))) + (__tmp87944 + (let ((__tmp87945 + (let ((__tmp87946 |gx[1]#_g87947_|)) (declare (not safe)) - (cons 'e __tmp87942)))) + (cons 'e __tmp87946)))) (declare (not safe)) - (cons __tmp87941 '())))) + (cons __tmp87945 '())))) (declare (not safe)) - (cons __tmp87944 __tmp87940)))) + (cons __tmp87948 __tmp87944)))) (declare (not safe)) - (cons __tmp87947 __tmp87939)))) + (cons __tmp87951 __tmp87943)))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87938 + __obj86094 + __tmp87942 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86090)) + __obj86094)) (define |gx[:0:]#expander-mark| - (let ((__obj86091 + (let ((__obj86095 (let () (declare (not safe)) (##structure @@ -10541,7 +10541,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86095 'gx#expander-mark::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -10549,7 +10549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86095 'expander-mark '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -10557,7 +10557,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86095 '(subst context phi trace) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -10565,7 +10565,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86095 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -10573,7 +10573,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86095 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -10581,7 +10581,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86095 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -10589,7 +10589,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86095 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -10597,173 +10597,173 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86095 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87950 |gx[1]#_g87951_|)) + (let ((__tmp87954 |gx[1]#_g87955_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87950 + __obj86095 + __tmp87954 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87952 |gx[1]#_g87953_|)) + (let ((__tmp87956 |gx[1]#_g87957_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87952 + __obj86095 + __tmp87956 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87954 |gx[1]#_g87955_|)) + (let ((__tmp87958 |gx[1]#_g87959_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87954 + __obj86095 + __tmp87958 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87956 - (let ((__tmp87969 - (let ((__tmp87970 |gx[1]#_g87971_|)) + (let ((__tmp87960 + (let ((__tmp87973 + (let ((__tmp87974 |gx[1]#_g87975_|)) (declare (not safe)) - (cons 'subst __tmp87970))) - (__tmp87957 - (let ((__tmp87966 - (let ((__tmp87967 |gx[1]#_g87968_|)) + (cons 'subst __tmp87974))) + (__tmp87961 + (let ((__tmp87970 + (let ((__tmp87971 |gx[1]#_g87972_|)) (declare (not safe)) - (cons 'context __tmp87967))) - (__tmp87958 - (let ((__tmp87963 - (let ((__tmp87964 |gx[1]#_g87965_|)) + (cons 'context __tmp87971))) + (__tmp87962 + (let ((__tmp87967 + (let ((__tmp87968 |gx[1]#_g87969_|)) (declare (not safe)) - (cons 'phi __tmp87964))) - (__tmp87959 - (let ((__tmp87960 - (let ((__tmp87961 |gx[1]#_g87962_|)) + (cons 'phi __tmp87968))) + (__tmp87963 + (let ((__tmp87964 + (let ((__tmp87965 |gx[1]#_g87966_|)) (declare (not safe)) - (cons 'trace __tmp87961)))) + (cons 'trace __tmp87965)))) (declare (not safe)) - (cons __tmp87960 '())))) + (cons __tmp87964 '())))) (declare (not safe)) - (cons __tmp87963 __tmp87959)))) + (cons __tmp87967 __tmp87963)))) (declare (not safe)) - (cons __tmp87966 __tmp87958)))) + (cons __tmp87970 __tmp87962)))) (declare (not safe)) - (cons __tmp87969 __tmp87957)))) + (cons __tmp87973 __tmp87961)))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87956 + __obj86095 + __tmp87960 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87972 - (let ((__tmp87985 - (let ((__tmp87986 |gx[1]#_g87987_|)) + (let ((__tmp87976 + (let ((__tmp87989 + (let ((__tmp87990 |gx[1]#_g87991_|)) (declare (not safe)) - (cons 'subst __tmp87986))) - (__tmp87973 - (let ((__tmp87982 - (let ((__tmp87983 |gx[1]#_g87984_|)) + (cons 'subst __tmp87990))) + (__tmp87977 + (let ((__tmp87986 + (let ((__tmp87987 |gx[1]#_g87988_|)) (declare (not safe)) - (cons 'context __tmp87983))) - (__tmp87974 - (let ((__tmp87979 - (let ((__tmp87980 |gx[1]#_g87981_|)) + (cons 'context __tmp87987))) + (__tmp87978 + (let ((__tmp87983 + (let ((__tmp87984 |gx[1]#_g87985_|)) (declare (not safe)) - (cons 'phi __tmp87980))) - (__tmp87975 - (let ((__tmp87976 - (let ((__tmp87977 |gx[1]#_g87978_|)) + (cons 'phi __tmp87984))) + (__tmp87979 + (let ((__tmp87980 + (let ((__tmp87981 |gx[1]#_g87982_|)) (declare (not safe)) - (cons 'trace __tmp87977)))) + (cons 'trace __tmp87981)))) (declare (not safe)) - (cons __tmp87976 '())))) + (cons __tmp87980 '())))) (declare (not safe)) - (cons __tmp87979 __tmp87975)))) + (cons __tmp87983 __tmp87979)))) (declare (not safe)) - (cons __tmp87982 __tmp87974)))) + (cons __tmp87986 __tmp87978)))) (declare (not safe)) - (cons __tmp87985 __tmp87973)))) + (cons __tmp87989 __tmp87977)))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87972 + __obj86095 + __tmp87976 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87988 - (let ((__tmp88001 - (let ((__tmp88002 |gx[1]#_g88003_|)) + (let ((__tmp87992 + (let ((__tmp88005 + (let ((__tmp88006 |gx[1]#_g88007_|)) (declare (not safe)) - (cons 'subst __tmp88002))) - (__tmp87989 - (let ((__tmp87998 - (let ((__tmp87999 |gx[1]#_g88000_|)) + (cons 'subst __tmp88006))) + (__tmp87993 + (let ((__tmp88002 + (let ((__tmp88003 |gx[1]#_g88004_|)) (declare (not safe)) - (cons 'context __tmp87999))) - (__tmp87990 - (let ((__tmp87995 - (let ((__tmp87996 |gx[1]#_g87997_|)) + (cons 'context __tmp88003))) + (__tmp87994 + (let ((__tmp87999 + (let ((__tmp88000 |gx[1]#_g88001_|)) (declare (not safe)) - (cons 'phi __tmp87996))) - (__tmp87991 - (let ((__tmp87992 - (let ((__tmp87993 |gx[1]#_g87994_|)) + (cons 'phi __tmp88000))) + (__tmp87995 + (let ((__tmp87996 + (let ((__tmp87997 |gx[1]#_g87998_|)) (declare (not safe)) - (cons 'trace __tmp87993)))) + (cons 'trace __tmp87997)))) (declare (not safe)) - (cons __tmp87992 '())))) + (cons __tmp87996 '())))) (declare (not safe)) - (cons __tmp87995 __tmp87991)))) + (cons __tmp87999 __tmp87995)))) (declare (not safe)) - (cons __tmp87998 __tmp87990)))) + (cons __tmp88002 __tmp87994)))) (declare (not safe)) - (cons __tmp88001 __tmp87989)))) + (cons __tmp88005 __tmp87993)))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87988 + __obj86095 + __tmp87992 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp88004 - (let ((__tmp88017 - (let ((__tmp88018 |gx[1]#_g88019_|)) + (let ((__tmp88008 + (let ((__tmp88021 + (let ((__tmp88022 |gx[1]#_g88023_|)) (declare (not safe)) - (cons 'subst __tmp88018))) - (__tmp88005 - (let ((__tmp88014 - (let ((__tmp88015 |gx[1]#_g88016_|)) + (cons 'subst __tmp88022))) + (__tmp88009 + (let ((__tmp88018 + (let ((__tmp88019 |gx[1]#_g88020_|)) (declare (not safe)) - (cons 'context __tmp88015))) - (__tmp88006 - (let ((__tmp88011 - (let ((__tmp88012 |gx[1]#_g88013_|)) + (cons 'context __tmp88019))) + (__tmp88010 + (let ((__tmp88015 + (let ((__tmp88016 |gx[1]#_g88017_|)) (declare (not safe)) - (cons 'phi __tmp88012))) - (__tmp88007 - (let ((__tmp88008 - (let ((__tmp88009 |gx[1]#_g88010_|)) + (cons 'phi __tmp88016))) + (__tmp88011 + (let ((__tmp88012 + (let ((__tmp88013 |gx[1]#_g88014_|)) (declare (not safe)) - (cons 'trace __tmp88009)))) + (cons 'trace __tmp88013)))) (declare (not safe)) - (cons __tmp88008 '())))) + (cons __tmp88012 '())))) (declare (not safe)) - (cons __tmp88011 __tmp88007)))) + (cons __tmp88015 __tmp88011)))) (declare (not safe)) - (cons __tmp88014 __tmp88006)))) + (cons __tmp88018 __tmp88010)))) (declare (not safe)) - (cons __tmp88017 __tmp88005)))) + (cons __tmp88021 __tmp88009)))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp88004 + __obj86095 + __tmp88008 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86091)))) + __obj86095)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index bde19c765..bfaa8a9c5 100644 --- a/src/bootstrap/gerbil/expander/init~0.scm +++ b/src/bootstrap/gerbil/expander/init~0.scm @@ -1,20 +1,20 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/init::timestamp 1710781149) + (define gerbil/expander/init::timestamp 1710833425) (begin (gx#current-expander-context - (let ((__obj98950 + (let ((__obj98954 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) - (gx#top-context:::init! __obj98950) - __obj98950)) + (gx#top-context:::init! __obj98954) + __obj98954)) (gx#current-expander-module-import gx#core-import-module) (gx#current-expander-module-eval gx#core-eval-module) (gx#current-expander-compile __compile-top) (gx#current-expander-eval ##eval) - (let ((__tmp98952 - (let ((__obj98951 + (let ((__tmp98956 + (let ((__obj98955 (let () (declare (not safe)) (##structure @@ -27,7 +27,7 @@ '#f '#f '#f)))) - (gx#prelude-context:::init! __obj98951 '#f) - __obj98951))) + (gx#prelude-context:::init! __obj98955 '#f) + __obj98955))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp98952 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp98956 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index fb35517fc..0481849f3 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -206,8 +206,10 @@ package: gerbil/expander #f #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 @@ -258,8 +260,10 @@ package: gerbil/expander #f #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 0b506aaff..37463f4b9 100644 --- a/src/bootstrap/gerbil/expander/module~0.scm +++ b/src/bootstrap/gerbil/expander/module~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/module::timestamp 1710781149) + (define gerbil/expander/module::timestamp 1710833424) (begin (declare (not safe)) (define gx#__module-registry (make-hash-table)) @@ -15,8 +15,8 @@ '#f)) (define gx#module-import? (make-class-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _$args94517_ - (apply make-instance gx#module-import::t _$args94517_))) + (lambda _$args94521_ + (apply make-instance gx#module-import::t _$args94521_))) (define gx#module-import-source (make-class-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name @@ -59,8 +59,8 @@ '#f)) (define gx#module-export? (make-class-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _$args94514_ - (apply make-instance gx#module-export::t _$args94514_))) + (lambda _$args94518_ + (apply make-instance gx#module-export::t _$args94518_))) (define gx#module-export-context (make-class-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key @@ -111,8 +111,8 @@ '#f)) (define gx#import-set? (make-class-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _$args94511_ - (apply make-instance gx#import-set::t _$args94511_))) + (lambda _$args94515_ + (apply make-instance gx#import-set::t _$args94515_))) (define gx#import-set-source (make-class-slot-accessor gx#import-set::t 'source)) (define gx#import-set-phi (make-class-slot-accessor gx#import-set::t 'phi)) @@ -146,8 +146,8 @@ '#f)) (define gx#export-set? (make-class-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _$args94508_ - (apply make-instance gx#export-set::t _$args94508_))) + (lambda _$args94512_ + (apply make-instance gx#export-set::t _$args94512_))) (define gx#export-set-source (make-class-slot-accessor gx#export-set::t 'source)) (define gx#export-set-phi (make-class-slot-accessor gx#export-set::t 'phi)) @@ -181,8 +181,8 @@ ':init!)) (define gx#import-expander? (make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _$args94505_ - (apply make-instance gx#import-expander::t _$args94505_))) + (lambda _$args94509_ + (apply make-instance gx#import-expander::t _$args94509_))) (define gx#import-expander-context (make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -217,8 +217,8 @@ ':init!)) (define gx#export-expander? (make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _$args94502_ - (apply make-instance gx#export-expander::t _$args94502_))) + (lambda _$args94506_ + (apply make-instance gx#export-expander::t _$args94506_))) (define gx#export-expander-context (make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -254,8 +254,8 @@ (define gx#import-export-expander? (make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _$args94499_ - (apply make-instance gx#import-export-expander::t _$args94499_))) + (lambda _$args94503_ + (apply make-instance gx#import-export-expander::t _$args94503_))) (define gx#import-export-expander-context (make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -290,298 +290,298 @@ (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 (_path94496_ _fun94497_) + (lambda (_path94500_ _fun94501_) (call-with-input-file - (cons 'path: (cons _path94496_ gx#source-file-settings)) - _fun94497_))) + (cons 'path: (cons _path94500_ gx#source-file-settings)) + _fun94501_))) (define gx#module-context:::init! - (lambda (_self94490_ _id94491_ _super94492_ _ns94493_ _path94494_) - (if (##fx< '11 (##structure-length _self94490_)) + (lambda (_self94494_ _id94495_ _super94496_ _ns94497_ _path94498_) + (if (##fx< '11 (##structure-length _self94494_)) (begin (##unchecked-structure-set! - _self94490_ - _id94491_ + _self94494_ + _id94495_ '1 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ + _self94494_ (make-hash-table-eq) '2 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ - _super94492_ + _self94494_ + _super94496_ '3 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ + _self94494_ '#f '4 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ + _self94494_ '#f '5 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ - _ns94493_ + _self94494_ + _ns94497_ '6 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ - _path94494_ + _self94494_ + _path94498_ '7 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ + _self94494_ '() '8 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ + _self94494_ '() '9 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ + _self94494_ '#f '10 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f) (##unchecked-structure-set! - _self94490_ + _self94494_ '#f '11 - (##structure-type _self94490_) + (##structure-type _self94494_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self94490_ + _self94494_ '11 - (##vector-length _self94490_))))) + (##vector-length _self94494_))))) (bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_self94334_ _ctx94335_ _root94336_) - (let ((_super94344_ - (let ((_$e94338_ _root94336_)) - (if _$e94338_ - _$e94338_ - (let ((_$e94341_ (gx#core-context-root__0))) - (if _$e94341_ - _$e94341_ - (let ((__obj94559 + (lambda (_self94338_ _ctx94339_ _root94340_) + (let ((_super94348_ + (let ((_$e94342_ _root94340_)) + (if _$e94342_ + _$e94342_ + (let ((_$e94345_ (gx#core-context-root__0))) + (if _$e94345_ + _$e94345_ + (let ((__obj94563 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor94560 + (let ((__constructor94564 (direct-method-ref gx#root-context::t - __obj94559 + __obj94563 ':init!))) - (if __constructor94560 - (__constructor94560 __obj94559) + (if __constructor94564 + (__constructor94564 __obj94563) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj94559))))))) - (if _ctx94335_ - (let ((_id94347_ + __obj94563))))))) + (if _ctx94339_ + (let ((_id94351_ (##structure-ref - _ctx94335_ + _ctx94339_ '1 gx#expander-context::t '#f)) - (_path94348_ - (##structure-ref _ctx94335_ '7 gx#module-context::t '#f)) - (_in94349_ + (_path94352_ + (##structure-ref _ctx94339_ '7 gx#module-context::t '#f)) + (_in94353_ (map gx#core-module-export->import (##structure-ref - _ctx94335_ + _ctx94339_ '9 gx#module-context::t '#f))) - (_e94350_ - (make-promise (lambda () (gx#eval-module _ctx94335_))))) - (if (##fx< '8 (##structure-length _self94334_)) + (_e94354_ + (make-promise (lambda () (gx#eval-module _ctx94339_))))) + (if (##fx< '8 (##structure-length _self94338_)) (begin (##unchecked-structure-set! - _self94334_ - _id94347_ + _self94338_ + _id94351_ '1 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ - (make-hash-table-eq 'size: (length _in94349_)) + _self94338_ + (make-hash-table-eq 'size: (length _in94353_)) '2 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ - _super94344_ + _self94338_ + _super94348_ '3 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ + _self94338_ '#f '4 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ + _self94338_ '#f '5 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ - _path94348_ + _self94338_ + _path94352_ '6 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ - _in94349_ + _self94338_ + _in94353_ '7 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ - _e94350_ + _self94338_ + _e94354_ '8 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self94334_ + _self94338_ '8 - (##vector-length _self94334_))) + (##vector-length _self94338_))) (for-each - (lambda (_g9435194353_) - (gx#core-bind-weak-import!__% _g9435194353_ _self94334_)) - _in94349_)) - (if (##fx< '8 (##structure-length _self94334_)) + (lambda (_g9435594357_) + (gx#core-bind-weak-import!__% _g9435594357_ _self94338_)) + _in94353_)) + (if (##fx< '8 (##structure-length _self94338_)) (begin (##unchecked-structure-set! - _self94334_ + _self94338_ '#f '1 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ + _self94338_ (make-hash-table-eq) '2 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ - _super94344_ + _self94338_ + _super94348_ '3 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ + _self94338_ '#f '4 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ + _self94338_ '#f '5 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ + _self94338_ '#f '6 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ + _self94338_ '() '7 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f) (##unchecked-structure-set! - _self94334_ + _self94338_ '#f '8 - (##structure-type _self94334_) + (##structure-type _self94338_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self94334_ + _self94338_ '8 - (##vector-length _self94334_))))))) + (##vector-length _self94338_))))))) (define gx#prelude-context:::init!__0 - (lambda (_self94359_ _ctx94360_) - (let ((_root94362_ '#f)) - (gx#prelude-context:::init!__% _self94359_ _ctx94360_ _root94362_)))) + (lambda (_self94363_ _ctx94364_) + (let ((_root94366_ '#f)) + (gx#prelude-context:::init!__% _self94363_ _ctx94364_ _root94366_)))) (define gx#prelude-context:::init! - (lambda _g94566_ - (let ((_g94565_ (##length _g94566_))) - (cond ((##fx= _g94565_ 2) - (apply (lambda (_self94359_ _ctx94360_) + (lambda _g94570_ + (let ((_g94569_ (##length _g94570_))) + (cond ((##fx= _g94569_ 2) + (apply (lambda (_self94363_ _ctx94364_) (gx#prelude-context:::init!__0 - _self94359_ - _ctx94360_)) - _g94566_)) - ((##fx= _g94565_ 3) - (apply (lambda (_self94364_ _ctx94365_ _root94366_) + _self94363_ + _ctx94364_)) + _g94570_)) + ((##fx= _g94569_ 3) + (apply (lambda (_self94368_ _ctx94369_ _root94370_) (gx#prelude-context:::init!__% - _self94364_ - _ctx94365_ - _root94366_)) - _g94566_)) + _self94368_ + _ctx94369_ + _root94370_)) + _g94570_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g94566_)))))) + _g94570_)))))) (bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_self94208_ _e94209_) - (if (##fx< '3 (##structure-length _self94208_)) + (lambda (_self94212_ _e94213_) + (if (##fx< '3 (##structure-length _self94212_)) (begin (##unchecked-structure-set! - _self94208_ - _e94209_ + _self94212_ + _e94213_ '1 - (##structure-type _self94208_) + (##structure-type _self94212_) '#f) (##unchecked-structure-set! - _self94208_ + _self94212_ (gx#current-expander-context) '2 - (##structure-type _self94208_) + (##structure-type _self94212_) '#f) (##unchecked-structure-set! - _self94208_ + _self94212_ (fx- (gx#current-expander-phi) '1) '3 - (##structure-type _self94208_) + (##structure-type _self94212_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self94208_ + _self94212_ '3 - (##vector-length _self94208_))))) + (##vector-length _self94212_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (bind-method!__% gx#import-expander::t @@ -601,10 +601,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_g9383493837_ _g9383593839_) + (lambda (_g9383893841_ _g9383993843_) (gx#core-apply-user-expander__% - _g9383493837_ - _g9383593839_ + _g9383893841_ + _g9383993843_ 'apply-import-expander))) (bind-method!__% gx#import-expander::t @@ -612,10 +612,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_g9370593708_ _g9370693710_) + (lambda (_g9370993712_ _g9371093714_) (gx#core-apply-user-expander__% - _g9370593708_ - _g9370693710_ + _g9370993712_ + _g9371093714_ 'apply-export-expander))) (bind-method!__% gx#export-expander::t @@ -623,115 +623,115 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_ctx93576_) - (let* ((_path93578_ - (##structure-ref _ctx93576_ '7 gx#module-context::t '#f)) - (_path93580_ - (if (pair? _path93578_) (last _path93578_) _path93578_))) - (if (string? _path93580_) _path93580_ '#f)))) + (lambda (_ctx93580_) + (let* ((_path93582_ + (##structure-ref _ctx93580_ '7 gx#module-context::t '#f)) + (_path93584_ + (if (pair? _path93582_) (last _path93582_) _path93582_))) + (if (string? _path93584_) _path93584_ '#f)))) (define gx#import-module__% - (lambda (_path93552_ _reload?93553_ _eval?93554_) - (let ((_ctx93556_ + (lambda (_path93556_ _reload?93557_ _eval?93558_) + (let ((_ctx93560_ ((gx#current-expander-module-import) - _path93552_ - _reload?93553_))) - (if (and _ctx93556_ _eval?93554_) - (gx#eval-module _ctx93556_) + _path93556_ + _reload?93557_))) + (if (and _ctx93560_ _eval?93558_) + (gx#eval-module _ctx93560_) '#!void) - _ctx93556_))) + _ctx93560_))) (define gx#import-module__0 - (lambda (_path93561_) - (let* ((_reload?93563_ '#f) (_eval?93565_ '#f)) - (gx#import-module__% _path93561_ _reload?93563_ _eval?93565_)))) + (lambda (_path93565_) + (let* ((_reload?93567_ '#f) (_eval?93569_ '#f)) + (gx#import-module__% _path93565_ _reload?93567_ _eval?93569_)))) (define gx#import-module__1 - (lambda (_path93567_ _reload?93568_) - (let ((_eval?93570_ '#f)) - (gx#import-module__% _path93567_ _reload?93568_ _eval?93570_)))) + (lambda (_path93571_ _reload?93572_) + (let ((_eval?93574_ '#f)) + (gx#import-module__% _path93571_ _reload?93572_ _eval?93574_)))) (define gx#import-module - (lambda _g94568_ - (let ((_g94567_ (##length _g94568_))) - (cond ((##fx= _g94567_ 1) - (apply (lambda (_path93561_) - (gx#import-module__0 _path93561_)) - _g94568_)) - ((##fx= _g94567_ 2) - (apply (lambda (_path93567_ _reload?93568_) - (gx#import-module__1 _path93567_ _reload?93568_)) - _g94568_)) - ((##fx= _g94567_ 3) - (apply (lambda (_path93572_ _reload?93573_ _eval?93574_) + (lambda _g94572_ + (let ((_g94571_ (##length _g94572_))) + (cond ((##fx= _g94571_ 1) + (apply (lambda (_path93565_) + (gx#import-module__0 _path93565_)) + _g94572_)) + ((##fx= _g94571_ 2) + (apply (lambda (_path93571_ _reload?93572_) + (gx#import-module__1 _path93571_ _reload?93572_)) + _g94572_)) + ((##fx= _g94571_ 3) + (apply (lambda (_path93576_ _reload?93577_ _eval?93578_) (gx#import-module__% - _path93572_ - _reload?93573_ - _eval?93574_)) - _g94568_)) + _path93576_ + _reload?93577_ + _eval?93578_)) + _g94572_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g94568_)))))) + _g94572_)))))) (define gx#eval-module - (lambda (_mod93549_) ((gx#current-expander-module-eval) _mod93549_))) + (lambda (_mod93553_) ((gx#current-expander-module-eval) _mod93553_))) (define gx#core-eval-module - (lambda (_obj93534_) - (letrec ((_force-e93536_ - (lambda (_getf93545_ _e93546_) + (lambda (_obj93538_) + (letrec ((_force-e93540_ + (lambda (_getf93549_ _e93550_) (call-with-parameters - (lambda () (force (_getf93545_ _e93546_))) + (lambda () (force (_getf93549_ _e93550_))) gx#current-expander-context - _e93546_ + _e93550_ gx#current-expander-phi '0)))) - (let _recur93538_ ((_e93540_ _obj93534_)) - (if (##structure-instance-of? _e93540_ 'gx#module-context::t) + (let _recur93542_ ((_e93544_ _obj93538_)) + (if (##structure-instance-of? _e93544_ 'gx#module-context::t) (begin - (let ((_$e93542_ (gx#core-context-prelude__% _e93540_))) - (if _$e93542_ (_recur93538_ _$e93542_) '#!void)) - (_force-e93536_ gx#module-context-e _e93540_)) - (if (##structure-instance-of? _e93540_ 'gx#prelude-context::t) - (_force-e93536_ gx#prelude-context-e _e93540_) - (if (gx#stx-string? _e93540_) - (_recur93538_ + (let ((_$e93546_ (gx#core-context-prelude__% _e93544_))) + (if _$e93546_ (_recur93542_ _$e93546_) '#!void)) + (_force-e93540_ gx#module-context-e _e93544_)) + (if (##structure-instance-of? _e93544_ 'gx#prelude-context::t) + (_force-e93540_ gx#prelude-context-e _e93544_) + (if (gx#stx-string? _e93544_) + (_recur93542_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e93540_))) - (if (gx#core-library-module-path? _e93540_) - (_recur93538_ + (gx#core-resolve-module-path__0 _e93544_))) + (if (gx#core-library-module-path? _e93544_) + (_recur93542_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e93540_))) - (error '"Cannot eval module" _obj93534_))))))))) + (gx#core-resolve-library-module-path _e93544_))) + (error '"Cannot eval module" _obj93538_))))))))) (define gx#core-context-prelude__% - (lambda (_ctx93517_) - (let _lp93519_ ((_e93521_ _ctx93517_)) - (if (or (##structure-instance-of? _e93521_ 'gx#module-context::t) - (##structure-instance-of? _e93521_ 'gx#local-context::t)) - (_lp93519_ - (##unchecked-structure-ref _e93521_ '3 gx#phi-context::t '#f)) - (if (##structure-instance-of? _e93521_ 'gx#prelude-context::t) - _e93521_ + (lambda (_ctx93521_) + (let _lp93523_ ((_e93525_ _ctx93521_)) + (if (or (##structure-instance-of? _e93525_ 'gx#module-context::t) + (##structure-instance-of? _e93525_ 'gx#local-context::t)) + (_lp93523_ + (##unchecked-structure-ref _e93525_ '3 gx#phi-context::t '#f)) + (if (##structure-instance-of? _e93525_ 'gx#prelude-context::t) + _e93525_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx93530_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx93530_)))) + (let ((_ctx93534_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx93534_)))) (define gx#core-context-prelude - (lambda _g94570_ - (let ((_g94569_ (##length _g94570_))) - (cond ((##fx= _g94569_ 0) - (apply (lambda () (gx#core-context-prelude__0)) _g94570_)) - ((##fx= _g94569_ 1) - (apply (lambda (_ctx93532_) - (gx#core-context-prelude__% _ctx93532_)) - _g94570_)) + (lambda _g94574_ + (let ((_g94573_ (##length _g94574_))) + (cond ((##fx= _g94573_ 0) + (apply (lambda () (gx#core-context-prelude__0)) _g94574_)) + ((##fx= _g94573_ 1) + (apply (lambda (_ctx93536_) + (gx#core-context-prelude__% _ctx93536_)) + _g94574_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g94570_)))))) + _g94574_)))))) (define gx#core-module->prelude-context - (lambda (_ctx93509_) - (let ((_$e93511_ (hash-get gx#__module-registry _ctx93509_))) - (if _$e93511_ - _$e93511_ - (let ((_pre93514_ - (let ((__obj94561 + (lambda (_ctx93513_) + (let ((_$e93515_ (hash-get gx#__module-registry _ctx93513_))) + (if _$e93515_ + _$e93515_ + (let ((_pre93518_ + (let ((__obj94565 (##structure gx#prelude-context::t '#f @@ -742,51 +742,51 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj94561 _ctx93509_) - __obj94561))) - (hash-put! gx#__module-registry _ctx93509_ _pre93514_) - _pre93514_))))) + (gx#prelude-context:::init! __obj94565 _ctx93513_) + __obj94565))) + (hash-put! gx#__module-registry _ctx93513_ _pre93518_) + _pre93518_))))) (define gx#core-import-module__% - (lambda (_rpath93390_ _reload?93391_) - (letrec ((_import-source93393_ - (lambda (_path93478_) - (if (member _path93478_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path93478_) + (lambda (_rpath93394_ _reload?93395_) + (letrec ((_import-source93397_ + (lambda (_path93482_) + (if (member _path93482_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path93482_) '#!void) (call-with-parameters (lambda () - (let ((_g94571_ (gx#core-read-module _path93478_))) + (let ((_g94575_ (gx#core-read-module _path93482_))) (begin - (let ((_g94572_ - (if (##values? _g94571_) - (##vector-length _g94571_) + (let ((_g94576_ + (if (##values? _g94575_) + (##vector-length _g94575_) 1))) - (if (not (##fx= _g94572_ 4)) - (error "Context expects 4 values" _g94572_))) - (let ((_pre93481_ (##vector-ref _g94571_ 0)) - (_id93482_ (##vector-ref _g94571_ 1)) - (_ns93483_ (##vector-ref _g94571_ 2)) - (_body93484_ (##vector-ref _g94571_ 3))) - (let* ((_prelude93489_ + (if (not (##fx= _g94576_ 4)) + (error "Context expects 4 values" _g94576_))) + (let ((_pre93485_ (##vector-ref _g94575_ 0)) + (_id93486_ (##vector-ref _g94575_ 1)) + (_ns93487_ (##vector-ref _g94575_ 2)) + (_body93488_ (##vector-ref _g94575_ 3))) + (let* ((_prelude93493_ (if (##structure-instance-of? - _pre93481_ + _pre93485_ 'gx#prelude-context::t) - _pre93481_ + _pre93485_ (if (##structure-instance-of? - _pre93481_ + _pre93485_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre93481_) - (if (string? _pre93481_) + _pre93485_) + (if (string? _pre93485_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre93481_)) - (if (not _pre93481_) - (let ((_$e93486_ + _pre93485_)) + (if (not _pre93485_) + (let ((_$e93490_ (gx#current-expander-module-prelude))) - (if _$e93486_ - _$e93486_ - (let ((__obj94562 + (if _$e93490_ + _$e93490_ + (let ((__obj94566 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -798,14 +798,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj94562 '#f) - __obj94562))) + (gx#prelude-context:::init! __obj94566 '#f) + __obj94566))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath93390_ - _pre93481_)))))) - (_ctx93491_ - (let ((__obj94563 + _rpath93394_ + _pre93485_)))))) + (_ctx93495_ + (let ((__obj94567 (##structure gx#module-context::t '#f @@ -820,44 +820,44 @@ '#f '#f))) (gx#module-context:::init! - __obj94563 - _id93482_ - _prelude93489_ - _ns93483_ - _path93478_) - __obj94563)) - (_body93493_ + __obj94567 + _id93486_ + _prelude93493_ + _ns93487_ + _path93482_) + __obj94567)) + (_body93497_ (gx#core-expand-module-begin - _body93484_ - _ctx93491_)) - (_body93495_ + _body93488_ + _ctx93495_)) + (_body93499_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body93493_) - _path93478_ - _ctx93491_ + (gx#core-cons '%#begin _body93497_) + _path93482_ + _ctx93495_ '()))) (##unchecked-structure-set! - _ctx93491_ + _ctx93495_ (make-promise - (lambda () (gx#eval-syntax* _body93495_))) + (lambda () (gx#eval-syntax* _body93499_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx93491_ - _body93495_ + _ctx93495_ + _body93499_ '11 gx#module-context::t '#f) (hash-put! gx#__module-registry - _path93478_ - _ctx93491_) + _path93482_ + _ctx93495_) (hash-put! gx#__module-registry - _id93482_ - _ctx93491_) - _ctx93491_))))) + _id93486_ + _ctx93495_) + _ctx93495_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -865,1283 +865,1283 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _path93478_ (gx#current-expander-path)) + (cons _path93482_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule93394_ - (lambda (_rpath93406_) - (let* ((_rpath9340793414_ _rpath93406_) - (_E9340993418_ + (_import-submodule93398_ + (lambda (_rpath93410_) + (let* ((_rpath9341193418_ _rpath93410_) + (_E9341393422_ (lambda () - (error '"No clause matching" _rpath9340793414_))) - (_K9341093466_ - (lambda (_refs93421_ _origin93422_) - (let ((_ctx93424_ - (if _origin93422_ + (error '"No clause matching" _rpath9341193418_))) + (_K9341493470_ + (lambda (_refs93425_ _origin93426_) + (let ((_ctx93428_ + (if _origin93426_ (gx#core-import-module__% - _origin93422_ - _reload?93391_) + _origin93426_ + _reload?93395_) (gx#current-expander-context)))) - (let _lp93426_ ((_rest93428_ _refs93421_) - (_ctx93429_ _ctx93424_)) - (let* ((_rest9343093438_ _rest93428_) - (_else9343293446_ - (lambda () _ctx93429_)) - (_K9343493454_ - (lambda (_rest93449_ _id93450_) - (let ((_bind93452_ + (let _lp93430_ ((_rest93432_ _refs93425_) + (_ctx93433_ _ctx93428_)) + (let* ((_rest9343493442_ _rest93432_) + (_else9343693450_ + (lambda () _ctx93433_)) + (_K9343893458_ + (lambda (_rest93453_ _id93454_) + (let ((_bind93456_ (gx#resolve-identifier__% - _id93450_ + _id93454_ '0 - _ctx93429_))) + _ctx93433_))) (if (and (##structure-direct-instance-of? - _bind93452_ + _bind93456_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind93452_ + _bind93456_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp93426_ - _rest93449_ + (_lp93430_ + _rest93453_ (##unchecked-structure-ref - _bind93452_ + _bind93456_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _rpath93406_ - _id93450_ - _bind93452_)))))) - (if (##pair? _rest9343093438_) - (let ((_hd9343593457_ - (##car _rest9343093438_)) - (_tl9343693459_ - (##cdr _rest9343093438_))) - (let* ((_id93462_ _hd9343593457_) - (_rest93464_ _tl9343693459_)) - (_K9343493454_ - _rest93464_ - _id93462_))) - (_else9343293446_)))))))) - (if (##pair? _rpath9340793414_) - (let ((_hd9341193469_ (##car _rpath9340793414_)) - (_tl9341293471_ (##cdr _rpath9340793414_))) - (let* ((_origin93474_ _hd9341193469_) - (_refs93476_ _tl9341293471_)) - (_K9341093466_ _refs93476_ _origin93474_))) - (_E9340993418_)))))) - (let ((_$e93396_ - (if (not _reload?93391_) - (hash-get gx#__module-registry _rpath93390_) + _rpath93410_ + _id93454_ + _bind93456_)))))) + (if (##pair? _rest9343493442_) + (let ((_hd9343993461_ + (##car _rest9343493442_)) + (_tl9344093463_ + (##cdr _rest9343493442_))) + (let* ((_id93466_ _hd9343993461_) + (_rest93468_ _tl9344093463_)) + (_K9343893458_ + _rest93468_ + _id93466_))) + (_else9343693450_)))))))) + (if (##pair? _rpath9341193418_) + (let ((_hd9341593473_ (##car _rpath9341193418_)) + (_tl9341693475_ (##cdr _rpath9341193418_))) + (let* ((_origin93478_ _hd9341593473_) + (_refs93480_ _tl9341693475_)) + (_K9341493470_ _refs93480_ _origin93478_))) + (_E9341393422_)))))) + (let ((_$e93400_ + (if (not _reload?93395_) + (hash-get gx#__module-registry _rpath93394_) '#f))) - (if _$e93396_ - (values _$e93396_) - (if (list? _rpath93390_) - (_import-submodule93394_ _rpath93390_) - (if (gx#core-library-module-path? _rpath93390_) - (let ((_ctx93399_ + (if _$e93400_ + (values _$e93400_) + (if (list? _rpath93394_) + (_import-submodule93398_ _rpath93394_) + (if (gx#core-library-module-path? _rpath93394_) + (let ((_ctx93403_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath93390_) - _reload?93391_))) + _rpath93394_) + _reload?93395_))) (hash-put! gx#__module-registry - _rpath93390_ - _ctx93399_) - _ctx93399_) - (let* ((_npath93401_ (path-normalize _rpath93390_)) - (_$e93403_ - (if (not _reload?93391_) + _rpath93394_ + _ctx93403_) + _ctx93403_) + (let* ((_npath93405_ (path-normalize _rpath93394_)) + (_$e93407_ + (if (not _reload?93395_) (hash-get gx#__module-registry - _npath93401_) + _npath93405_) '#f))) - (if _$e93403_ - _$e93403_ - (_import-source93393_ _npath93401_)))))))))) + (if _$e93407_ + _$e93407_ + (_import-source93397_ _npath93405_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath93502_) - (let ((_reload?93504_ '#f)) - (gx#core-import-module__% _rpath93502_ _reload?93504_)))) + (lambda (_rpath93506_) + (let ((_reload?93508_ '#f)) + (gx#core-import-module__% _rpath93506_ _reload?93508_)))) (define gx#core-import-module - (lambda _g94574_ - (let ((_g94573_ (##length _g94574_))) - (cond ((##fx= _g94573_ 1) - (apply (lambda (_rpath93502_) - (gx#core-import-module__0 _rpath93502_)) - _g94574_)) - ((##fx= _g94573_ 2) - (apply (lambda (_rpath93506_ _reload?93507_) + (lambda _g94578_ + (let ((_g94577_ (##length _g94578_))) + (cond ((##fx= _g94577_ 1) + (apply (lambda (_rpath93506_) + (gx#core-import-module__0 _rpath93506_)) + _g94578_)) + ((##fx= _g94577_ 2) + (apply (lambda (_rpath93510_ _reload?93511_) (gx#core-import-module__% - _rpath93506_ - _reload?93507_)) - _g94574_)) + _rpath93510_ + _reload?93511_)) + _g94578_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g94574_)))))) + _g94578_)))))) (define gx#core-read-module - (lambda (_path93379_) + (lambda (_path93383_) (with-catch - (lambda (_exn93381_) - (if (and (datum-parsing-exception? _exn93381_) - (eq? (datum-parsing-exception-filepos _exn93381_) '0)) - (gx#core-read-module/lang _path93379_) + (lambda (_exn93385_) + (if (and (datum-parsing-exception? _exn93385_) + (eq? (datum-parsing-exception-filepos _exn93385_) '0)) + (gx#core-read-module/lang _path93383_) (gx#raise-syntax-error 'read-module '"error reading module" - _path93379_ + _path93383_ (call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_g9338393385_) - (display-exception _exn93381_ _g9338393385_)))) + (lambda (_g9338793389_) + (display-exception _exn93385_ _g9338793389_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _path93379_))))) + (lambda () (gx#core-read-module/sexp _path93383_))))) (define gx#core-read-module/sexp - (lambda (_path93242_) - (let _lp93244_ ((_body93246_ (read-syntax-from-file _path93242_)) - (_pre93247_ '#f) - (_ns93248_ '#f) - (_pkg93249_ '#f)) - (let* ((_e9325093274_ _body93246_) - (_E9326693296_ + (lambda (_path93246_) + (let _lp93248_ ((_body93250_ (read-syntax-from-file _path93246_)) + (_pre93251_ '#f) + (_ns93252_ '#f) + (_pkg93253_ '#f)) + (let* ((_e9325493278_ _body93250_) + (_E9327093300_ (lambda () - (let ((_g94575_ - (if _pkg93249_ - (values _pre93247_ _ns93248_ _pkg93249_) + (let ((_g94579_ + (if _pkg93253_ + (values _pre93251_ _ns93252_ _pkg93253_) (gx#core-read-module-package - _path93242_ - _pre93247_ - _ns93248_)))) + _path93246_ + _pre93251_ + _ns93252_)))) (begin - (let ((_g94576_ - (if (##values? _g94575_) - (##vector-length _g94575_) + (let ((_g94580_ + (if (##values? _g94579_) + (##vector-length _g94579_) 1))) - (if (not (##fx= _g94576_ 3)) - (error "Context expects 3 values" _g94576_))) - (let ((_pre93278_ (##vector-ref _g94575_ 0)) - (_ns93279_ (##vector-ref _g94575_ 1)) - (_pkg93280_ (##vector-ref _g94575_ 2))) - (let* ((_prelude93282_ + (if (not (##fx= _g94580_ 3)) + (error "Context expects 3 values" _g94580_))) + (let ((_pre93282_ (##vector-ref _g94579_ 0)) + (_ns93283_ (##vector-ref _g94579_ 1)) + (_pkg93284_ (##vector-ref _g94579_ 2))) + (let* ((_prelude93286_ (if (gx#core-bound-module-prelude? - _pre93278_) - (gx#syntax-local-e__0 _pre93278_) + _pre93282_) + (gx#syntax-local-e__0 _pre93282_) (if (gx#core-library-module-path? - _pre93278_) + _pre93282_) (gx#core-resolve-library-module-path - _pre93278_) - (if (gx#stx-string? _pre93278_) + _pre93282_) + (if (gx#stx-string? _pre93282_) (gx#core-resolve-module-path__% - _pre93278_ - _path93242_) - (gx#stx-e _pre93278_))))) - (_path-id93284_ - (gx#core-module-path->namespace _path93242_)) - (_pkg-id93286_ - (if _pkg93280_ + _pre93282_ + _path93246_) + (gx#stx-e _pre93282_))))) + (_path-id93288_ + (gx#core-module-path->namespace _path93246_)) + (_pkg-id93290_ + (if _pkg93284_ (string-append - _pkg93280_ + _pkg93284_ '"/" - _path-id93284_) - _path-id93284_)) - (_module-id93288_ - (string->symbol _pkg-id93286_)) - (_module-ns93293_ - (if (eq? _ns93279_ '#!void) + _path-id93288_) + _path-id93288_)) + (_module-id93292_ + (string->symbol _pkg-id93290_)) + (_module-ns93297_ + (if (eq? _ns93283_ '#!void) '#f - (let ((_$e93290_ _ns93279_)) - (if _$e93290_ - _$e93290_ - _pkg-id93286_))))) - (values _prelude93282_ - _module-id93288_ - _module-ns93293_ - _body93246_))))))) - (_E9325993325_ + (let ((_$e93294_ _ns93283_)) + (if _$e93294_ + _$e93294_ + _pkg-id93290_))))) + (values _prelude93286_ + _module-id93292_ + _module-ns93297_ + _body93250_))))))) + (_E9326393329_ (lambda () - (if (gx#stx-pair? _e9325093274_) - (let ((_e9326793300_ (gx#syntax-e _e9325093274_))) - (let ((_hd9326893303_ (##car _e9326793300_)) - (_tl9326993305_ (##cdr _e9326793300_))) - (if (eq? (gx#stx-e _hd9326893303_) 'package:) - (if (gx#stx-pair? _tl9326993305_) - (let ((_e9327093308_ - (gx#syntax-e _tl9326993305_))) - (let ((_hd9327193311_ - (##car _e9327093308_)) - (_tl9327293313_ - (##cdr _e9327093308_))) - (let* ((_pkg93316_ _hd9327193311_) - (_rest93318_ _tl9327293313_)) + (if (gx#stx-pair? _e9325493278_) + (let ((_e9327193304_ (gx#syntax-e _e9325493278_))) + (let ((_hd9327293307_ (##car _e9327193304_)) + (_tl9327393309_ (##cdr _e9327193304_))) + (if (eq? (gx#stx-e _hd9327293307_) 'package:) + (if (gx#stx-pair? _tl9327393309_) + (let ((_e9327493312_ + (gx#syntax-e _tl9327393309_))) + (let ((_hd9327593315_ + (##car _e9327493312_)) + (_tl9327693317_ + (##cdr _e9327493312_))) + (let* ((_pkg93320_ _hd9327593315_) + (_rest93322_ _tl9327693317_)) (if '#t - (let ((_pkg93323_ + (let ((_pkg93327_ (if (gx#identifier? - _pkg93316_) + _pkg93320_) (symbol->string (gx#stx-e - _pkg93316_)) + _pkg93320_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg93316_) - (gx#stx-false? _pkg93316_)) - (gx#stx-e _pkg93316_) + _pkg93320_) + (gx#stx-false? _pkg93320_)) + (gx#stx-e _pkg93320_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg93316_))))) + _pkg93320_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp93244_ - _rest93318_ - _pre93247_ - _ns93248_ - _pkg93323_)) - (_E9326693296_))))) - (_E9326693296_)) - (_E9326693296_)))) - (_E9326693296_)))) - (_E9325293351_ + (_lp93248_ + _rest93322_ + _pre93251_ + _ns93252_ + _pkg93327_)) + (_E9327093300_))))) + (_E9327093300_)) + (_E9327093300_)))) + (_E9327093300_)))) + (_E9325693355_ (lambda () - (if (gx#stx-pair? _e9325093274_) - (let ((_e9326093329_ (gx#syntax-e _e9325093274_))) - (let ((_hd9326193332_ (##car _e9326093329_)) - (_tl9326293334_ (##cdr _e9326093329_))) - (if (eq? (gx#stx-e _hd9326193332_) 'namespace:) - (if (gx#stx-pair? _tl9326293334_) - (let ((_e9326393337_ - (gx#syntax-e _tl9326293334_))) - (let ((_hd9326493340_ - (##car _e9326393337_)) - (_tl9326593342_ - (##cdr _e9326393337_))) - (let* ((_ns93345_ _hd9326493340_) - (_rest93347_ _tl9326593342_)) + (if (gx#stx-pair? _e9325493278_) + (let ((_e9326493333_ (gx#syntax-e _e9325493278_))) + (let ((_hd9326593336_ (##car _e9326493333_)) + (_tl9326693338_ (##cdr _e9326493333_))) + (if (eq? (gx#stx-e _hd9326593336_) 'namespace:) + (if (gx#stx-pair? _tl9326693338_) + (let ((_e9326793341_ + (gx#syntax-e _tl9326693338_))) + (let ((_hd9326893344_ + (##car _e9326793341_)) + (_tl9326993346_ + (##cdr _e9326793341_))) + (let* ((_ns93349_ _hd9326893344_) + (_rest93351_ _tl9326993346_)) (if '#t - (let ((_ns93349_ + (let ((_ns93353_ (if (gx#identifier? - _ns93345_) + _ns93349_) (symbol->string - (gx#stx-e _ns93345_)) + (gx#stx-e _ns93349_)) (if (gx#stx-string? - _ns93345_) + _ns93349_) (gx#stx-e - _ns93345_) + _ns93349_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns93345_) + _ns93349_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns93345_)))))) + _ns93349_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp93244_ - _rest93347_ - _pre93247_ - _ns93349_ - _pkg93249_)) - (_E9325993325_))))) - (_E9325993325_)) - (_E9325993325_)))) - (_E9325993325_)))) - (_E9325193375_ + (_lp93248_ + _rest93351_ + _pre93251_ + _ns93353_ + _pkg93253_)) + (_E9326393329_))))) + (_E9326393329_)) + (_E9326393329_)))) + (_E9326393329_)))) + (_E9325593379_ (lambda () - (if (gx#stx-pair? _e9325093274_) - (let ((_e9325393355_ (gx#syntax-e _e9325093274_))) - (let ((_hd9325493358_ (##car _e9325393355_)) - (_tl9325593360_ (##cdr _e9325393355_))) - (if (eq? (gx#stx-e _hd9325493358_) 'prelude:) - (if (gx#stx-pair? _tl9325593360_) - (let ((_e9325693363_ - (gx#syntax-e _tl9325593360_))) - (let ((_hd9325793366_ - (##car _e9325693363_)) - (_tl9325893368_ - (##cdr _e9325693363_))) - (let* ((_prelude93371_ _hd9325793366_) - (_rest93373_ _tl9325893368_)) + (if (gx#stx-pair? _e9325493278_) + (let ((_e9325793359_ (gx#syntax-e _e9325493278_))) + (let ((_hd9325893362_ (##car _e9325793359_)) + (_tl9325993364_ (##cdr _e9325793359_))) + (if (eq? (gx#stx-e _hd9325893362_) 'prelude:) + (if (gx#stx-pair? _tl9325993364_) + (let ((_e9326093367_ + (gx#syntax-e _tl9325993364_))) + (let ((_hd9326193370_ + (##car _e9326093367_)) + (_tl9326293372_ + (##cdr _e9326093367_))) + (let* ((_prelude93375_ _hd9326193370_) + (_rest93377_ _tl9326293372_)) (if '#t - (_lp93244_ - _rest93373_ - _prelude93371_ - _ns93248_ - _pkg93249_) - (_E9325293351_))))) - (_E9325293351_)) - (_E9325293351_)))) - (_E9325293351_))))) - (_E9325193375_))))) + (_lp93248_ + _rest93377_ + _prelude93375_ + _ns93252_ + _pkg93253_) + (_E9325693355_))))) + (_E9325693355_)) + (_E9325693355_)))) + (_E9325693355_))))) + (_E9325593379_))))) (define gx#core-read-module/lang - (lambda (_path93069_) - (letrec ((_default-read-module-body93071_ - (lambda (_inp93234_) - (let _lp93236_ ((_body93238_ '())) - (let ((_next93240_ (read-syntax _inp93234_))) - (if (eof-object? _next93240_) - (reverse _body93238_) - (_lp93236_ (cons _next93240_ _body93238_))))))) - (_read-body93072_ - (lambda (_inp93153_ - _pre93154_ - _ns93155_ - _pkg93156_ - _args93157_) - (let ((_g94577_ - (if _pkg93156_ - (values _pre93154_ _ns93155_ _pkg93156_) + (lambda (_path93073_) + (letrec ((_default-read-module-body93075_ + (lambda (_inp93238_) + (let _lp93240_ ((_body93242_ '())) + (let ((_next93244_ (read-syntax _inp93238_))) + (if (eof-object? _next93244_) + (reverse _body93242_) + (_lp93240_ (cons _next93244_ _body93242_))))))) + (_read-body93076_ + (lambda (_inp93157_ + _pre93158_ + _ns93159_ + _pkg93160_ + _args93161_) + (let ((_g94581_ + (if _pkg93160_ + (values _pre93158_ _ns93159_ _pkg93160_) (gx#core-read-module-package - _path93069_ - _pre93154_ - _ns93155_)))) + _path93073_ + _pre93158_ + _ns93159_)))) (begin - (let ((_g94578_ - (if (##values? _g94577_) - (##vector-length _g94577_) + (let ((_g94582_ + (if (##values? _g94581_) + (##vector-length _g94581_) 1))) - (if (not (##fx= _g94578_ 3)) - (error "Context expects 3 values" _g94578_))) - (let ((_pre93159_ (##vector-ref _g94577_ 0)) - (_ns93160_ (##vector-ref _g94577_ 1)) - (_pkg93161_ (##vector-ref _g94577_ 2))) - (let* ((_prelude93163_ - (gx#import-module__0 _pre93159_)) - (_read-module-body93217_ - (let ((_$e93209_ - (find (lambda (_e9316493166_) - (let* ((_g9316893178_ - _e9316493166_) - (_else9317093186_ + (if (not (##fx= _g94582_ 3)) + (error "Context expects 3 values" _g94582_))) + (let ((_pre93163_ (##vector-ref _g94581_ 0)) + (_ns93164_ (##vector-ref _g94581_ 1)) + (_pkg93165_ (##vector-ref _g94581_ 2))) + (let* ((_prelude93167_ + (gx#import-module__0 _pre93163_)) + (_read-module-body93221_ + (let ((_$e93213_ + (find (lambda (_e9316893170_) + (let* ((_g9317293182_ + _e9316893170_) + (_else9317493190_ (lambda () '#f)) - (_K9317293190_ + (_K9317693194_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g9316893178_ + _g9317293182_ 'gx#module-export::t) - (let* ((_e9317393193_ + (let* ((_e9317793197_ (##unchecked-structure-ref - _g9316893178_ + _g9317293182_ '1 gx#module-export::t '#f)) - (_e9317493196_ + (_e9317893200_ (##unchecked-structure-ref - _g9316893178_ + _g9317293182_ '2 gx#module-export::t '#f)) - (_e9317593199_ + (_e9317993203_ (##unchecked-structure-ref - _g9316893178_ + _g9317293182_ '3 gx#module-export::t '#f))) - (if (##eq? _e9317593199_ + (if (##eq? _e9317993203_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e9317693202_ + (let ((_e9318093206_ (##unchecked-structure-ref - _g9316893178_ + _g9317293182_ '4 gx#module-export::t '#f))) - (if ((lambda (_g9320493206_) - (eq? _g9320493206_ 'read-module-body)) - _e9317693202_) - (_K9317293190_) - (_else9317093186_))) - (_else9317093186_))) - (_else9317093186_)))) + (if ((lambda (_g9320893210_) + (eq? _g9320893210_ 'read-module-body)) + _e9318093206_) + (_K9317693194_) + (_else9317493190_))) + (_else9317493190_))) + (_else9317493190_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude93163_ + _prelude93167_ '9 gx#module-context::t '#f)))) - (if _$e93209_ - ((lambda (_xport93212_) - (let ((_proc93215_ + (if _$e93213_ + ((lambda (_xport93216_) + (let ((_proc93219_ (with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport93212_) + _xport93216_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc93215_) - _proc93215_ + (if (procedure? _proc93219_) + _proc93219_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path93069_ - _pre93159_ - _proc93215_)))) - _$e93209_) - _default-read-module-body93071_))) - (_path-id93219_ - (gx#core-module-path->namespace _path93069_)) - (_pkg-id93221_ - (if _pkg93161_ + _path93073_ + _pre93163_ + _proc93219_)))) + _$e93213_) + _default-read-module-body93075_))) + (_path-id93223_ + (gx#core-module-path->namespace _path93073_)) + (_pkg-id93225_ + (if _pkg93165_ (string-append - _pkg93161_ + _pkg93165_ '"/" - _path-id93219_) - _path-id93219_)) - (_module-id93223_ - (string->symbol _pkg-id93221_)) - (_module-ns93228_ - (let ((_$e93225_ _ns93160_)) - (if _$e93225_ _$e93225_ _pkg-id93221_))) - (_body93231_ + _path-id93223_) + _path-id93223_)) + (_module-id93227_ + (string->symbol _pkg-id93225_)) + (_module-ns93232_ + (let ((_$e93229_ _ns93164_)) + (if _$e93229_ _$e93229_ _pkg-id93225_))) + (_body93235_ (call-with-parameters (lambda () - (_read-module-body93217_ _inp93153_)) + (_read-module-body93221_ _inp93157_)) gx#current-module-reader-path - _path93069_ + _path93073_ gx#current-module-reader-args - _args93157_))) - (values _prelude93163_ - _module-id93223_ - _module-ns93228_ - _body93231_))))))) - (_string-e93073_ - (lambda (_obj93150_ _what93151_) - (if (string? _obj93150_) - _obj93150_ - (if (symbol? _obj93150_) - (symbol->string _obj93150_) + _args93161_))) + (values _prelude93167_ + _module-id93227_ + _module-ns93232_ + _body93235_))))))) + (_string-e93077_ + (lambda (_obj93154_ _what93155_) + (if (string? _obj93154_) + _obj93154_ + (if (symbol? _obj93154_) + (symbol->string _obj93154_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what93151_) - _path93069_ - _obj93150_))))) - (_read-lang-args93074_ - (lambda (_inp93105_ _args93106_) - (let* ((_args9310793115_ _args93106_) - (_else9310993123_ + (string-append '"Illegal module " _what93155_) + _path93073_ + _obj93154_))))) + (_read-lang-args93078_ + (lambda (_inp93109_ _args93110_) + (let* ((_args9311193119_ _args93110_) + (_else9311393127_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path93069_))) - (_K9311193138_ - (lambda (_args93126_ _prelude93127_) - (let* ((_pkg93129_ - (pgetq__0 'package: _args93126_)) - (_pkg93131_ - (if _pkg93129_ - (_string-e93073_ - _pkg93129_ + _path93073_))) + (_K9311593142_ + (lambda (_args93130_ _prelude93131_) + (let* ((_pkg93133_ + (pgetq__0 'package: _args93130_)) + (_pkg93135_ + (if _pkg93133_ + (_string-e93077_ + _pkg93133_ '"package") '#f)) - (_ns93133_ - (pgetq__0 'namespace: _args93126_)) - (_ns93135_ - (if _ns93133_ - (_string-e93073_ - _ns93133_ + (_ns93137_ + (pgetq__0 'namespace: _args93130_)) + (_ns93139_ + (if _ns93137_ + (_string-e93077_ + _ns93137_ '"namespace") '#f))) - (_read-body93072_ - _inp93105_ - _prelude93127_ - _ns93135_ - _pkg93131_ - _args93126_))))) - (if (##pair? _args9310793115_) - (let ((_hd9311293141_ (##car _args9310793115_)) - (_tl9311393143_ (##cdr _args9310793115_))) - (let* ((_prelude93146_ _hd9311293141_) - (_args93148_ _tl9311393143_)) - (_K9311193138_ _args93148_ _prelude93146_))) - (_else9310993123_))))) - (_read-lang93075_ - (lambda (_inp93080_) - (let* ((_head93082_ (read-line _inp93080_)) - (_$e93084_ (string-index__0 _head93082_ '#\space))) - (if _$e93084_ - ((lambda (_ix93087_) - (let ((_lang93089_ - (substring _head93082_ '0 _ix93087_))) - (if (equal? _lang93089_ '"#lang") - (let* ((_rest93091_ + (_read-body93076_ + _inp93109_ + _prelude93131_ + _ns93139_ + _pkg93135_ + _args93130_))))) + (if (##pair? _args9311193119_) + (let ((_hd9311693145_ (##car _args9311193119_)) + (_tl9311793147_ (##cdr _args9311193119_))) + (let* ((_prelude93150_ _hd9311693145_) + (_args93152_ _tl9311793147_)) + (_K9311593142_ _args93152_ _prelude93150_))) + (_else9311393127_))))) + (_read-lang93079_ + (lambda (_inp93084_) + (let* ((_head93086_ (read-line _inp93084_)) + (_$e93088_ (string-index__0 _head93086_ '#\space))) + (if _$e93088_ + ((lambda (_ix93091_) + (let ((_lang93093_ + (substring _head93086_ '0 _ix93091_))) + (if (equal? _lang93093_ '"#lang") + (let* ((_rest93095_ (substring - _head93082_ - (fx+ _ix93087_ '1) - (string-length _head93082_))) - (_args93102_ + _head93086_ + (fx+ _ix93091_ '1) + (string-length _head93086_))) + (_args93106_ (with-catch - (lambda (_g9309293094_) + (lambda (_g9309693098_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path93069_ - _g9309293094_)) + _path93073_ + _g9309693098_)) (lambda () (call-with-input-string - _rest93091_ - (lambda (_g9309793099_) + _rest93095_ + (lambda (_g9310193103_) (read-all - _g9309793099_ + _g9310193103_ read))))))) - (_read-lang-args93074_ - _inp93080_ - _args93102_)) + (_read-lang-args93078_ + _inp93084_ + _args93106_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path93069_)))) - _$e93084_) + _path93073_)))) + _$e93088_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path93069_))))) - (_read-e93076_ - (lambda (_inp93078_) - (if (eq? (peek-char _inp93078_) '#\#) - (_read-lang93075_ _inp93078_) + _path93073_))))) + (_read-e93080_ + (lambda (_inp93082_) + (if (eq? (peek-char _inp93082_) '#\#) + (_read-lang93079_ _inp93082_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path93069_))))) - (gx#call-with-input-source-file _path93069_ _read-e93076_)))) + _path93073_))))) + (gx#call-with-input-source-file _path93073_ _read-e93080_)))) (define gx#core-read-module-package - (lambda (_path93023_ _pre93024_ _ns93025_) - (letrec ((_string-e93027_ - (lambda (_e93067_) - (if (symbol? _e93067_) - (symbol->string _e93067_) - (if (string? _e93067_) - _e93067_ + (lambda (_path93027_ _pre93028_ _ns93029_) + (letrec ((_string-e93031_ + (lambda (_e93071_) + (if (symbol? _e93071_) + (symbol->string _e93071_) + (if (string? _e93071_) + _e93071_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _e93067_)))))) - (let _lp93029_ ((_dir93031_ (path-directory _path93023_)) - (_pkg-path93032_ '())) - (let ((_gerbil.pkg93034_ (path-expand '"gerbil.pkg" _dir93031_))) - (if (file-exists? _gerbil.pkg93034_) - (let ((_plist93036_ - (gx#core-library-package-plist__% _dir93031_ '#t))) - (if (null? _plist93036_) - (let ((_pkg93038_ - (if (not (null? _pkg-path93032_)) - (string-join _pkg-path93032_ '"/") + _e93071_)))))) + (let _lp93033_ ((_dir93035_ (path-directory _path93027_)) + (_pkg-path93036_ '())) + (let ((_gerbil.pkg93038_ (path-expand '"gerbil.pkg" _dir93035_))) + (if (file-exists? _gerbil.pkg93038_) + (let ((_plist93040_ + (gx#core-library-package-plist__% _dir93035_ '#t))) + (if (null? _plist93040_) + (let ((_pkg93042_ + (if (not (null? _pkg-path93036_)) + (string-join _pkg-path93036_ '"/") '#f))) - (values _pre93024_ _ns93025_ _pkg93038_)) - (if (list? _plist93036_) - (let* ((_root93040_ - (pgetq__0 'package: _plist93036_)) - (_pkg93044_ - (let ((_pkg-path93042_ - (if _root93040_ - (cons (_string-e93027_ - _root93040_) - _pkg-path93032_) - _pkg-path93032_))) - (if (not (null? _pkg-path93042_)) - (string-join _pkg-path93042_ '"/") + (values _pre93028_ _ns93029_ _pkg93042_)) + (if (list? _plist93040_) + (let* ((_root93044_ + (pgetq__0 'package: _plist93040_)) + (_pkg93048_ + (let ((_pkg-path93046_ + (if _root93044_ + (cons (_string-e93031_ + _root93044_) + _pkg-path93036_) + _pkg-path93036_))) + (if (not (null? _pkg-path93046_)) + (string-join _pkg-path93046_ '"/") '#f))) - (_ns93051_ - (let ((_ns93049_ - (let ((_$e93046_ _ns93025_)) - (if _$e93046_ - _$e93046_ + (_ns93055_ + (let ((_ns93053_ + (let ((_$e93050_ _ns93029_)) + (if _$e93050_ + _$e93050_ (pgetq__0 'namespace: - _plist93036_))))) - (if _ns93049_ - (_string-e93027_ _ns93049_) + _plist93040_))))) + (if _ns93053_ + (_string-e93031_ _ns93053_) '#f))) - (_pre93056_ - (let ((_$e93053_ _pre93024_)) - (if _$e93053_ - _$e93053_ - (pgetq__0 'prelude: _plist93036_))))) - (values _pre93056_ _ns93051_ _pkg93044_)) + (_pre93060_ + (let ((_$e93057_ _pre93028_)) + (if _$e93057_ + _$e93057_ + (pgetq__0 'prelude: _plist93040_))))) + (values _pre93060_ _ns93055_ _pkg93048_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _plist93036_)))) - (let ((_dir*93059_ - (path-strip-trailing-directory-separator _dir93031_))) - (if (or (string-empty? _dir*93059_) - (equal? _dir93031_ _dir*93059_)) - (values _pre93024_ _ns93025_ '#f) - (let ((_xpath93064_ (path-strip-directory _dir*93059_)) - (_xdir93065_ (path-directory _dir*93059_))) - (_lp93029_ - _xdir93065_ - (cons _xpath93064_ _pkg-path93032_))))))))))) + _plist93040_)))) + (let ((_dir*93063_ + (path-strip-trailing-directory-separator _dir93035_))) + (if (or (string-empty? _dir*93063_) + (equal? _dir93035_ _dir*93063_)) + (values _pre93028_ _ns93029_ '#f) + (let ((_xpath93068_ (path-strip-directory _dir*93063_)) + (_xdir93069_ (path-directory _dir*93063_))) + (_lp93033_ + _xdir93069_ + (cons _xpath93068_ _pkg-path93036_))))))))))) (define gx#core-module-path->namespace - (lambda (_path93021_) - (path-strip-extension (path-strip-directory _path93021_)))) + (lambda (_path93025_) + (path-strip-extension (path-strip-directory _path93025_)))) (define gx#core-module-path->id - (lambda (_path93019_) - (string->symbol (gx#core-module-path->namespace _path93019_)))) + (lambda (_path93023_) + (string->symbol (gx#core-module-path->namespace _path93023_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path92998_ _rel92999_) - (let* ((_path93001_ (gx#stx-e _stx-path92998_)) - (_path93003_ - (if (string-empty? (path-extension _path93001_)) - (string-append _path93001_ '".ss") - _path93001_))) + (lambda (_stx-path93002_ _rel93003_) + (let* ((_path93005_ (gx#stx-e _stx-path93002_)) + (_path93007_ + (if (string-empty? (path-extension _path93005_)) + (string-append _path93005_ '".ss") + _path93005_))) (gx#core-resolve-path__% - _path93003_ - (let ((_$e93006_ (gx#stx-source _stx-path92998_))) - (if _$e93006_ _$e93006_ _rel92999_)))))) + _path93007_ + (let ((_$e93010_ (gx#stx-source _stx-path93002_))) + (if _$e93010_ _$e93010_ _rel93003_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path93012_) - (let ((_rel93014_ '#f)) - (gx#core-resolve-module-path__% _stx-path93012_ _rel93014_)))) + (lambda (_stx-path93016_) + (let ((_rel93018_ '#f)) + (gx#core-resolve-module-path__% _stx-path93016_ _rel93018_)))) (define gx#core-resolve-module-path - (lambda _g94580_ - (let ((_g94579_ (##length _g94580_))) - (cond ((##fx= _g94579_ 1) - (apply (lambda (_stx-path93012_) - (gx#core-resolve-module-path__0 _stx-path93012_)) - _g94580_)) - ((##fx= _g94579_ 2) - (apply (lambda (_stx-path93016_ _rel93017_) + (lambda _g94584_ + (let ((_g94583_ (##length _g94584_))) + (cond ((##fx= _g94583_ 1) + (apply (lambda (_stx-path93016_) + (gx#core-resolve-module-path__0 _stx-path93016_)) + _g94584_)) + ((##fx= _g94583_ 2) + (apply (lambda (_stx-path93020_ _rel93021_) (gx#core-resolve-module-path__% - _stx-path93016_ - _rel93017_)) - _g94580_)) + _stx-path93020_ + _rel93021_)) + _g94584_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g94580_)))))) + _g94584_)))))) (define gx#core-resolve-library-module-path - (lambda (_libpath92884_) - (let* ((_spath92886_ (symbol->string (gx#stx-e _libpath92884_))) - (_spath92888_ - (substring _spath92886_ '1 (string-length _spath92886_))) - (_ext92890_ (path-extension _spath92888_)) - (_ssi92892_ - (if (string-empty? _ext92890_) - (string-append _spath92888_ '".ssi") + (lambda (_libpath92888_) + (let* ((_spath92890_ (symbol->string (gx#stx-e _libpath92888_))) + (_spath92892_ + (substring _spath92890_ '1 (string-length _spath92890_))) + (_ext92894_ (path-extension _spath92892_)) + (_ssi92896_ + (if (string-empty? _ext92894_) + (string-append _spath92892_ '".ssi") (string-append - (path-strip-extension _spath92888_) + (path-strip-extension _spath92892_) '".ssi"))) - (_srcs92896_ - (if (string-empty? _ext92890_) - (map (lambda (_ext92894_) - (string-append _spath92888_ _ext92894_)) + (_srcs92900_ + (if (string-empty? _ext92894_) + (map (lambda (_ext92898_) + (string-append _spath92892_ _ext92898_)) '(".ss" ".sld" ".scm")) - (cons _spath92888_ '())))) - (let _lp92899_ ((_rest92901_ (load-path))) - (let* ((_rest9290292911_ _rest92901_) - (_E9290592915_ + (cons _spath92892_ '())))) + (let _lp92903_ ((_rest92905_ (load-path))) + (let* ((_rest9290692915_ _rest92905_) + (_E9290992919_ (lambda () - (error '"No clause matching" _rest9290292911_)))) - (let ((_K9290792985_ - (lambda (_rest92926_ _dir92927_) - (letrec ((_resolve92929_ - (lambda (_ssi92941_ _srcs92942_) - (let ((_compiled-path92944_ - (path-expand _ssi92941_ _dir92927_))) - (if (file-exists? _compiled-path92944_) - (path-normalize _compiled-path92944_) - (let _lpr92946_ ((_rest-src92948_ - _srcs92942_)) - (let* ((_rest-src9294992957_ - _rest-src92948_) - (_else9295192965_ + (error '"No clause matching" _rest9290692915_)))) + (let ((_K9291192989_ + (lambda (_rest92930_ _dir92931_) + (letrec ((_resolve92933_ + (lambda (_ssi92945_ _srcs92946_) + (let ((_compiled-path92948_ + (path-expand _ssi92945_ _dir92931_))) + (if (file-exists? _compiled-path92948_) + (path-normalize _compiled-path92948_) + (let _lpr92950_ ((_rest-src92952_ + _srcs92946_)) + (let* ((_rest-src9295392961_ + _rest-src92952_) + (_else9295592969_ (lambda () - (_lp92899_ _rest92926_))) - (_K9295392973_ - (lambda (_rest-src92968_ - _src92969_) - (let ((_src-path92971_ + (_lp92903_ _rest92930_))) + (_K9295792977_ + (lambda (_rest-src92972_ + _src92973_) + (let ((_src-path92975_ (path-expand - _src92969_ - _dir92927_))) + _src92973_ + _dir92931_))) (if (file-exists? - _src-path92971_) + _src-path92975_) (path-normalize - _src-path92971_) - (_lpr92946_ - _rest-src92968_)))))) - (if (##pair? _rest-src9294992957_) - (let ((_hd9295492976_ - (##car _rest-src9294992957_)) - (_tl9295592978_ - (##cdr _rest-src9294992957_))) - (let* ((_src92981_ - _hd9295492976_) - (_rest-src92983_ - _tl9295592978_)) - (_K9295392973_ - _rest-src92983_ - _src92981_))) - (_else9295192965_))))))))) - (let ((_$e92931_ + _src-path92975_) + (_lpr92950_ + _rest-src92972_)))))) + (if (##pair? _rest-src9295392961_) + (let ((_hd9295892980_ + (##car _rest-src9295392961_)) + (_tl9295992982_ + (##cdr _rest-src9295392961_))) + (let* ((_src92985_ + _hd9295892980_) + (_rest-src92987_ + _tl9295992982_)) + (_K9295792977_ + _rest-src92987_ + _src92985_))) + (_else9295592969_))))))))) + (let ((_$e92935_ (gx#core-library-package-path-prefix - _dir92927_))) - (if _$e92931_ - ((lambda (_prefix92934_) + _dir92931_))) + (if _$e92935_ + ((lambda (_prefix92938_) (if (string-prefix? - _prefix92934_ - _spath92888_) - (let ((_ssi92938_ + _prefix92938_ + _spath92892_) + (let ((_ssi92942_ (substring - _ssi92892_ - (string-length _prefix92934_) - (string-length _ssi92892_))) - (_srcs92939_ - (map (lambda (_src92936_) + _ssi92896_ + (string-length _prefix92938_) + (string-length _ssi92896_))) + (_srcs92943_ + (map (lambda (_src92940_) (substring - _src92936_ + _src92940_ (string-length - _prefix92934_) + _prefix92938_) (string-length - _src92936_))) - _srcs92896_))) - (_resolve92929_ - _ssi92938_ - _srcs92939_)) - (_lp92899_ _rest92926_))) - _$e92931_) - (_resolve92929_ _ssi92892_ _srcs92896_)))))) - (_K9290692920_ + _src92940_))) + _srcs92900_))) + (_resolve92933_ + _ssi92942_ + _srcs92943_)) + (_lp92903_ _rest92930_))) + _$e92935_) + (_resolve92933_ _ssi92896_ _srcs92900_)))))) + (_K9291092924_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath92884_)))) - (let ((_try-match9290492923_ + _libpath92888_)))) + (let ((_try-match9290892927_ (lambda () - (if (##null? _rest9290292911_) - (_K9290692920_) - (_E9290592915_))))) - (if (##pair? _rest9290292911_) - (let ((_tl9290992990_ (##cdr _rest9290292911_)) - (_hd9290892988_ (##car _rest9290292911_))) - (let ((_dir92993_ _hd9290892988_) - (_rest92995_ _tl9290992990_)) - (_K9290792985_ _rest92995_ _dir92993_))) - (_try-match9290492923_))))))))) + (if (##null? _rest9290692915_) + (_K9291092924_) + (_E9290992919_))))) + (if (##pair? _rest9290692915_) + (let ((_tl9291392994_ (##cdr _rest9290692915_)) + (_hd9291292992_ (##car _rest9290692915_))) + (let ((_dir92997_ _hd9291292992_) + (_rest92999_ _tl9291392994_)) + (_K9291192989_ _rest92999_ _dir92997_))) + (_try-match9290892927_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath92857_) - (letrec ((_resolve92859_ - (lambda (_path92876_ _base92877_) - (let ((_$e92879_ (string-rindex__0 _base92877_ '#\/))) - (if _$e92879_ - ((lambda (_idx92882_) + (lambda (_modpath92861_) + (letrec ((_resolve92863_ + (lambda (_path92880_ _base92881_) + (let ((_$e92883_ (string-rindex__0 _base92881_ '#\/))) + (if _$e92883_ + ((lambda (_idx92886_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base92877_ '0 _idx92882_) + (substring _base92881_ '0 _idx92886_) '"/" - _path92876_)))) - _$e92879_) + _path92880_)))) + _$e92883_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path92876_)))))))) - (let ((_spath92861_ (symbol->string (gx#stx-e _modpath92857_))) - (_mod92862_ + (string-append '":" _path92880_)))))))) + (let ((_spath92865_ (symbol->string (gx#stx-e _modpath92861_))) + (_mod92866_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod92862_ + (if _mod92866_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath92857_)) - (let ((_mpath92864_ + _modpath92861_)) + (let ((_mpath92868_ (symbol->string (##structure-ref - _mod92862_ + _mod92866_ '1 gx#expander-context::t '#f)))) - (let _lp92866_ ((_spath92868_ _spath92861_) - (_mpath92869_ _mpath92864_)) - (if (string-prefix? '"../" _spath92868_) - (let ((_$e92871_ (string-rindex__0 _mpath92869_ '#\/))) - (if _$e92871_ - ((lambda (_idx92874_) - (_lp92866_ + (let _lp92870_ ((_spath92872_ _spath92865_) + (_mpath92873_ _mpath92868_)) + (if (string-prefix? '"../" _spath92872_) + (let ((_$e92875_ (string-rindex__0 _mpath92873_ '#\/))) + (if _$e92875_ + ((lambda (_idx92878_) + (_lp92870_ (substring - _spath92868_ + _spath92872_ '3 - (string-length _spath92868_)) - (substring _mpath92869_ '0 _idx92874_))) - _$e92871_) + (string-length _spath92872_)) + (substring _mpath92873_ '0 _idx92878_))) + _$e92875_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath92857_))) - (if (string-prefix? '"./" _spath92868_) - (_lp92866_ + _modpath92861_))) + (if (string-prefix? '"./" _spath92872_) + (_lp92870_ (substring - _spath92868_ + _spath92872_ '2 - (string-length _spath92868_)) - _mpath92869_) - (_resolve92859_ _spath92868_ _mpath92869_))))))))) + (string-length _spath92872_)) + _mpath92873_) + (_resolve92863_ _spath92872_ _mpath92873_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir92850_) - (let ((_$e92852_ + (lambda (_dir92854_) + (let ((_$e92856_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _dir92850_)))) - (if _$e92852_ - ((lambda (_pkg92855_) - (string-append (symbol->string _pkg92855_) '"/")) - _$e92852_) + (gx#core-library-package-plist__0 _dir92854_)))) + (if _$e92856_ + ((lambda (_pkg92859_) + (string-append (symbol->string _pkg92859_) '"/")) + _$e92856_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_dir92824_ _exists?92825_) - (let ((_$e92827_ (hash-get gx#__module-pkg-cache _dir92824_))) - (if _$e92827_ - (values _$e92827_) - (let* ((_gerbil.pkg92830_ (path-expand '"gerbil.pkg" _dir92824_)) - (_plist92837_ - (if (or _exists?92825_ (file-exists? _gerbil.pkg92830_)) - (let ((_e92835_ + (lambda (_dir92828_ _exists?92829_) + (let ((_$e92831_ (hash-get gx#__module-pkg-cache _dir92828_))) + (if _$e92831_ + (values _$e92831_) + (let* ((_gerbil.pkg92834_ (path-expand '"gerbil.pkg" _dir92828_)) + (_plist92841_ + (if (or _exists?92829_ (file-exists? _gerbil.pkg92834_)) + (let ((_e92839_ (gx#call-with-input-source-file - _gerbil.pkg92830_ + _gerbil.pkg92834_ read))) - (if (eof-object? _e92835_) + (if (eof-object? _e92839_) '() - (if (list? _e92835_) - _e92835_ + (if (list? _e92839_) + _e92839_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg92830_ - _e92835_)))) + _gerbil.pkg92834_ + _e92839_)))) '()))) - (hash-put! gx#__module-pkg-cache _dir92824_ _plist92837_) - _plist92837_))))) + (hash-put! gx#__module-pkg-cache _dir92828_ _plist92841_) + _plist92841_))))) (define gx#core-library-package-plist__0 - (lambda (_dir92843_) - (let ((_exists?92845_ '#f)) - (gx#core-library-package-plist__% _dir92843_ _exists?92845_)))) + (lambda (_dir92847_) + (let ((_exists?92849_ '#f)) + (gx#core-library-package-plist__% _dir92847_ _exists?92849_)))) (define gx#core-library-package-plist - (lambda _g94582_ - (let ((_g94581_ (##length _g94582_))) - (cond ((##fx= _g94581_ 1) - (apply (lambda (_dir92843_) - (gx#core-library-package-plist__0 _dir92843_)) - _g94582_)) - ((##fx= _g94581_ 2) - (apply (lambda (_dir92847_ _exists?92848_) + (lambda _g94586_ + (let ((_g94585_ (##length _g94586_))) + (cond ((##fx= _g94585_ 1) + (apply (lambda (_dir92847_) + (gx#core-library-package-plist__0 _dir92847_)) + _g94586_)) + ((##fx= _g94585_ 2) + (apply (lambda (_dir92851_ _exists?92852_) (gx#core-library-package-plist__% - _dir92847_ - _exists?92848_)) - _g94582_)) + _dir92851_ + _exists?92852_)) + _g94586_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g94582_)))))) + _g94586_)))))) (define gx#core-library-module-path? - (lambda (_stx92821_) (gx#core-special-module-path? _stx92821_ '#\:))) + (lambda (_stx92825_) (gx#core-special-module-path? _stx92825_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx92819_) (gx#core-special-module-path? _stx92819_ '#\.))) + (lambda (_stx92823_) (gx#core-special-module-path? _stx92823_ '#\.))) (define gx#core-special-module-path? - (lambda (_stx92814_ _char92815_) - (if (gx#identifier? _stx92814_) - (if (interned-symbol? (gx#stx-e _stx92814_)) - (let ((_str92817_ (symbol->string (gx#stx-e _stx92814_)))) - (if (fx> (string-length _str92817_) '1) - (eq? (string-ref _str92817_ '0) _char92815_) + (lambda (_stx92818_ _char92819_) + (if (gx#identifier? _stx92818_) + (if (interned-symbol? (gx#stx-e _stx92818_)) + (let ((_str92821_ (symbol->string (gx#stx-e _stx92818_)))) + (if (fx> (string-length _str92821_) '1) + (eq? (string-ref _str92821_ '0) _char92819_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx92808_) + (lambda (_stx92812_) (gx#core-bound-identifier?__% - _stx92808_ - (lambda (_g9280992811_) - (gx#expander-binding?__% _g9280992811_ gx#prelude-context?))))) + _stx92812_ + (lambda (_g9281392815_) + (gx#expander-binding?__% _g9281392815_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx92802_) + (lambda (_stx92806_) (gx#core-bound-identifier?__% - _stx92802_ - (lambda (_g9280392805_) - (gx#expander-binding?__% _g9280392805_ gx#module-context?))))) + _stx92806_ + (lambda (_g9280792809_) + (gx#expander-binding?__% _g9280792809_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx92789_) - (letrec ((_module-prelude?92791_ - (lambda (_e92797_) - (let ((_$e92799_ + (lambda (_stx92793_) + (letrec ((_module-prelude?92795_ + (lambda (_e92801_) + (let ((_$e92803_ (##structure-instance-of? - _e92797_ + _e92801_ 'gx#module-context::t))) - (if _$e92799_ - _$e92799_ + (if _$e92803_ + _$e92803_ (##structure-instance-of? - _e92797_ + _e92801_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx92789_ - (lambda (_g9279292794_) + _stx92793_ + (lambda (_g9279692798_) (gx#expander-binding?__% - _g9279292794_ - _module-prelude?92791_)))))) + _g9279692798_ + _module-prelude?92795_)))))) (define gx#core-bind-import!__% - (lambda (_in92719_ _ctx92720_ _force-weak?92721_) - (let* ((_in9272292731_ _in92719_) - (_E9272492735_ - (lambda () (error '"No clause matching" _in9272292731_))) - (_K9272592748_ - (lambda (_weak?92738_ _phi92739_ _key92740_ _source92741_) + (lambda (_in92723_ _ctx92724_ _force-weak?92725_) + (let* ((_in9272692735_ _in92723_) + (_E9272892739_ + (lambda () (error '"No clause matching" _in9272692735_))) + (_K9272992752_ + (lambda (_weak?92742_ _phi92743_ _key92744_ _source92745_) (gx#core-bind!__% - _key92740_ - (let ((_e92743_ - (gx#core-resolve-module-export _source92741_))) + _key92744_ + (let ((_e92747_ + (gx#core-resolve-module-export _source92745_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _e92743_ '1 gx#binding::t '#f) - _key92740_ - _phi92739_ - _e92743_ + (##unchecked-structure-ref _e92747_ '1 gx#binding::t '#f) + _key92744_ + _phi92743_ + _e92747_ (##unchecked-structure-ref - _source92741_ + _source92745_ '1 gx#module-export::t '#f) - (let ((_$e92745_ _force-weak?92721_)) - (if _$e92745_ _$e92745_ _weak?92738_)))) + (let ((_$e92749_ _force-weak?92725_)) + (if _$e92749_ _$e92749_ _weak?92742_)))) gx#core-context-rebind? - _phi92739_ - _ctx92720_)))) + _phi92743_ + _ctx92724_)))) (if (##structure-direct-instance-of? - _in9272292731_ + _in9272692735_ 'gx#module-import::t) - (let* ((_e9272692751_ + (let* ((_e9273092755_ (##unchecked-structure-ref - _in9272292731_ + _in9272692735_ '1 gx#module-import::t '#f)) - (_source92754_ _e9272692751_) - (_e9272792756_ + (_source92758_ _e9273092755_) + (_e9273192760_ (##unchecked-structure-ref - _in9272292731_ + _in9272692735_ '2 gx#module-import::t '#f)) - (_key92759_ _e9272792756_) - (_e9272892761_ + (_key92763_ _e9273192760_) + (_e9273292765_ (##unchecked-structure-ref - _in9272292731_ + _in9272692735_ '3 gx#module-import::t '#f)) - (_phi92764_ _e9272892761_) - (_e9272992766_ + (_phi92768_ _e9273292765_) + (_e9273392770_ (##unchecked-structure-ref - _in9272292731_ + _in9272692735_ '4 gx#module-import::t '#f)) - (_weak?92769_ _e9272992766_)) - (_K9272592748_ - _weak?92769_ - _phi92764_ - _key92759_ - _source92754_)) - (_E9272492735_))))) + (_weak?92773_ _e9273392770_)) + (_K9272992752_ + _weak?92773_ + _phi92768_ + _key92763_ + _source92758_)) + (_E9272892739_))))) (define gx#core-bind-import!__0 - (lambda (_in92774_) - (let* ((_ctx92776_ (gx#current-expander-context)) - (_force-weak?92778_ '#f)) - (gx#core-bind-import!__% _in92774_ _ctx92776_ _force-weak?92778_)))) + (lambda (_in92778_) + (let* ((_ctx92780_ (gx#current-expander-context)) + (_force-weak?92782_ '#f)) + (gx#core-bind-import!__% _in92778_ _ctx92780_ _force-weak?92782_)))) (define gx#core-bind-import!__1 - (lambda (_in92780_ _ctx92781_) - (let ((_force-weak?92783_ '#f)) - (gx#core-bind-import!__% _in92780_ _ctx92781_ _force-weak?92783_)))) + (lambda (_in92784_ _ctx92785_) + (let ((_force-weak?92787_ '#f)) + (gx#core-bind-import!__% _in92784_ _ctx92785_ _force-weak?92787_)))) (define gx#core-bind-import! - (lambda _g94584_ - (let ((_g94583_ (##length _g94584_))) - (cond ((##fx= _g94583_ 1) - (apply (lambda (_in92774_) - (gx#core-bind-import!__0 _in92774_)) - _g94584_)) - ((##fx= _g94583_ 2) - (apply (lambda (_in92780_ _ctx92781_) - (gx#core-bind-import!__1 _in92780_ _ctx92781_)) - _g94584_)) - ((##fx= _g94583_ 3) - (apply (lambda (_in92785_ _ctx92786_ _force-weak?92787_) + (lambda _g94588_ + (let ((_g94587_ (##length _g94588_))) + (cond ((##fx= _g94587_ 1) + (apply (lambda (_in92778_) + (gx#core-bind-import!__0 _in92778_)) + _g94588_)) + ((##fx= _g94587_ 2) + (apply (lambda (_in92784_ _ctx92785_) + (gx#core-bind-import!__1 _in92784_ _ctx92785_)) + _g94588_)) + ((##fx= _g94587_ 3) + (apply (lambda (_in92789_ _ctx92790_ _force-weak?92791_) (gx#core-bind-import!__% - _in92785_ - _ctx92786_ - _force-weak?92787_)) - _g94584_)) + _in92789_ + _ctx92790_ + _force-weak?92791_)) + _g94588_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g94584_)))))) + _g94588_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in92705_ _ctx92706_) - (gx#core-bind-import!__% _in92705_ _ctx92706_ '#t))) + (lambda (_in92709_ _ctx92710_) + (gx#core-bind-import!__% _in92709_ _ctx92710_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in92711_) - (let ((_ctx92713_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in92711_ _ctx92713_)))) + (lambda (_in92715_) + (let ((_ctx92717_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in92715_ _ctx92717_)))) (define gx#core-bind-weak-import! - (lambda _g94586_ - (let ((_g94585_ (##length _g94586_))) - (cond ((##fx= _g94585_ 1) - (apply (lambda (_in92711_) - (gx#core-bind-weak-import!__0 _in92711_)) - _g94586_)) - ((##fx= _g94585_ 2) - (apply (lambda (_in92715_ _ctx92716_) - (gx#core-bind-weak-import!__% _in92715_ _ctx92716_)) - _g94586_)) + (lambda _g94590_ + (let ((_g94589_ (##length _g94590_))) + (cond ((##fx= _g94589_ 1) + (apply (lambda (_in92715_) + (gx#core-bind-weak-import!__0 _in92715_)) + _g94590_)) + ((##fx= _g94589_ 2) + (apply (lambda (_in92719_ _ctx92720_) + (gx#core-bind-weak-import!__% _in92719_ _ctx92720_)) + _g94590_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g94586_)))))) + _g94590_)))))) (define gx#core-resolve-module-export - (lambda (_out92596_) - (letrec ((_subst92598_ - (lambda (_key92644_) - (let* ((_key9264592653_ _key92644_) - (_else9264792661_ (lambda () _key92644_)) - (_K9264992692_ - (lambda (_mark92664_ _id92665_) - (let* ((_mark9266692672_ _mark92664_) - (_E9266892676_ + (lambda (_out92600_) + (letrec ((_subst92602_ + (lambda (_key92648_) + (let* ((_key9264992657_ _key92648_) + (_else9265192665_ (lambda () _key92648_)) + (_K9265392696_ + (lambda (_mark92668_ _id92669_) + (let* ((_mark9267092676_ _mark92668_) + (_E9267292680_ (lambda () (error '"No clause matching" - _mark9266692672_))) - (_K9266992684_ - (lambda (_subst92679_) - (let ((_$e92681_ - (if _subst92679_ + _mark9267092676_))) + (_K9267392688_ + (lambda (_subst92683_) + (let ((_$e92685_ + (if _subst92683_ (hash-get - _subst92679_ - _id92665_) + _subst92683_ + _id92669_) '#f))) - (if _$e92681_ - _$e92681_ + (if _$e92685_ + _$e92685_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key92644_)))))) + _key92648_)))))) (if (##structure-instance-of? - _mark9266692672_ + _mark9267092676_ 'gx#expander-mark::t) - (let* ((_e9267092687_ + (let* ((_e9267492691_ (##unchecked-structure-ref - _mark9266692672_ + _mark9267092676_ '1 gx#expander-mark::t '#f)) - (_subst92690_ _e9267092687_)) - (_K9266992684_ _subst92690_)) - (_E9266892676_)))))) - (if (##pair? _key9264592653_) - (let ((_hd9265092695_ (##car _key9264592653_)) - (_tl9265192697_ (##cdr _key9264592653_))) - (let* ((_id92700_ _hd9265092695_) - (_mark92702_ _tl9265192697_)) - (_K9264992692_ _mark92702_ _id92700_))) - (_else9264792661_)))))) - (let* ((_out9259992609_ _out92596_) - (_E9260192613_ - (lambda () (error '"No clause matching" _out9259992609_))) - (_K9260292620_ - (lambda (_phi92616_ _key92617_ _ctx92618_) + (_subst92694_ _e9267492691_)) + (_K9267392688_ _subst92694_)) + (_E9267292680_)))))) + (if (##pair? _key9264992657_) + (let ((_hd9265492699_ (##car _key9264992657_)) + (_tl9265592701_ (##cdr _key9264992657_))) + (let* ((_id92704_ _hd9265492699_) + (_mark92706_ _tl9265592701_)) + (_K9265392696_ _mark92706_ _id92704_))) + (_else9265192665_)))))) + (let* ((_out9260392613_ _out92600_) + (_E9260592617_ + (lambda () (error '"No clause matching" _out9260392613_))) + (_K9260692624_ + (lambda (_phi92620_ _key92621_ _ctx92622_) (gx#core-context-resolve - (gx#core-context-shift _ctx92618_ _phi92616_) - (_subst92598_ _key92617_))))) + (gx#core-context-shift _ctx92622_ _phi92620_) + (_subst92602_ _key92621_))))) (if (##structure-direct-instance-of? - _out9259992609_ + _out9260392613_ 'gx#module-export::t) - (let* ((_e9260392623_ + (let* ((_e9260792627_ (##unchecked-structure-ref - _out9259992609_ + _out9260392613_ '1 gx#module-export::t '#f)) - (_ctx92626_ _e9260392623_) - (_e9260492628_ + (_ctx92630_ _e9260792627_) + (_e9260892632_ (##unchecked-structure-ref - _out9259992609_ + _out9260392613_ '2 gx#module-export::t '#f)) - (_key92631_ _e9260492628_) - (_e9260592633_ + (_key92635_ _e9260892632_) + (_e9260992637_ (##unchecked-structure-ref - _out9259992609_ + _out9260392613_ '3 gx#module-export::t '#f)) - (_phi92636_ _e9260592633_) - (_e9260692638_ + (_phi92640_ _e9260992637_) + (_e9261092642_ (##unchecked-structure-ref - _out9259992609_ + _out9260392613_ '4 gx#module-export::t '#f)) - (_e9260792641_ + (_e9261192645_ (##unchecked-structure-ref - _out9259992609_ + _out9260392613_ '5 gx#module-export::t '#f))) - (_K9260292620_ _phi92636_ _key92631_ _ctx92626_)) - (_E9260192613_)))))) + (_K9260692624_ _phi92640_ _key92635_ _ctx92630_)) + (_E9260592617_)))))) (define gx#core-module-export->import__% - (lambda (_out92521_ _rename92522_ _dphi92523_) - (let* ((_out9252492534_ _out92521_) - (_E9252692538_ - (lambda () (error '"No clause matching" _out9252492534_))) - (_K9252792550_ - (lambda (_weak?92541_ - _name92542_ - _phi92543_ - _key92544_ - _ctx92545_) + (lambda (_out92525_ _rename92526_ _dphi92527_) + (let* ((_out9252892538_ _out92525_) + (_E9253092542_ + (lambda () (error '"No clause matching" _out9252892538_))) + (_K9253192554_ + (lambda (_weak?92545_ + _name92546_ + _phi92547_ + _key92548_ + _ctx92549_) (##structure gx#module-import::t - _out92521_ - (let ((_$e92547_ _rename92522_)) - (if _$e92547_ _$e92547_ _name92542_)) - (fx+ _phi92543_ _dphi92523_) - _weak?92541_)))) + _out92525_ + (let ((_$e92551_ _rename92526_)) + (if _$e92551_ _$e92551_ _name92546_)) + (fx+ _phi92547_ _dphi92527_) + _weak?92545_)))) (if (##structure-direct-instance-of? - _out9252492534_ + _out9252892538_ 'gx#module-export::t) - (let* ((_e9252892553_ + (let* ((_e9253292557_ (##unchecked-structure-ref - _out9252492534_ + _out9252892538_ '1 gx#module-export::t '#f)) - (_ctx92556_ _e9252892553_) - (_e9252992558_ + (_ctx92560_ _e9253292557_) + (_e9253392562_ (##unchecked-structure-ref - _out9252492534_ + _out9252892538_ '2 gx#module-export::t '#f)) - (_key92561_ _e9252992558_) - (_e9253092563_ + (_key92565_ _e9253392562_) + (_e9253492567_ (##unchecked-structure-ref - _out9252492534_ + _out9252892538_ '3 gx#module-export::t '#f)) - (_phi92566_ _e9253092563_) - (_e9253192568_ + (_phi92570_ _e9253492567_) + (_e9253592572_ (##unchecked-structure-ref - _out9252492534_ + _out9252892538_ '4 gx#module-export::t '#f)) - (_name92571_ _e9253192568_) - (_e9253292573_ + (_name92575_ _e9253592572_) + (_e9253692577_ (##unchecked-structure-ref - _out9252492534_ + _out9252892538_ '5 gx#module-export::t '#f)) - (_weak?92576_ _e9253292573_)) - (_K9252792550_ - _weak?92576_ - _name92571_ - _phi92566_ - _key92561_ - _ctx92556_)) - (_E9252692538_))))) + (_weak?92580_ _e9253692577_)) + (_K9253192554_ + _weak?92580_ + _name92575_ + _phi92570_ + _key92565_ + _ctx92560_)) + (_E9253092542_))))) (define gx#core-module-export->import__0 - (lambda (_out92581_) - (let* ((_rename92583_ '#f) (_dphi92585_ '0)) + (lambda (_out92585_) + (let* ((_rename92587_ '#f) (_dphi92589_ '0)) (gx#core-module-export->import__% - _out92581_ - _rename92583_ - _dphi92585_)))) + _out92585_ + _rename92587_ + _dphi92589_)))) (define gx#core-module-export->import__1 - (lambda (_out92587_ _rename92588_) - (let ((_dphi92590_ '0)) + (lambda (_out92591_ _rename92592_) + (let ((_dphi92594_ '0)) (gx#core-module-export->import__% - _out92587_ - _rename92588_ - _dphi92590_)))) + _out92591_ + _rename92592_ + _dphi92594_)))) (define gx#core-module-export->import - (lambda _g94588_ - (let ((_g94587_ (##length _g94588_))) - (cond ((##fx= _g94587_ 1) - (apply (lambda (_out92581_) - (gx#core-module-export->import__0 _out92581_)) - _g94588_)) - ((##fx= _g94587_ 2) - (apply (lambda (_out92587_ _rename92588_) + (lambda _g94592_ + (let ((_g94591_ (##length _g94592_))) + (cond ((##fx= _g94591_ 1) + (apply (lambda (_out92585_) + (gx#core-module-export->import__0 _out92585_)) + _g94592_)) + ((##fx= _g94591_ 2) + (apply (lambda (_out92591_ _rename92592_) (gx#core-module-export->import__1 - _out92587_ - _rename92588_)) - _g94588_)) - ((##fx= _g94587_ 3) - (apply (lambda (_out92592_ _rename92593_ _dphi92594_) + _out92591_ + _rename92592_)) + _g94592_)) + ((##fx= _g94591_ 3) + (apply (lambda (_out92596_ _rename92597_ _dphi92598_) (gx#core-module-export->import__% - _out92592_ - _rename92593_ - _dphi92594_)) - _g94588_)) + _out92596_ + _rename92597_ + _dphi92598_)) + _g94592_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g94588_)))))) + _g94592_)))))) (define gx#core-expand-module% - (lambda (_stx92423_) - (letrec ((_make-context92425_ - (lambda (_id92502_) - (let* ((_super92504_ (gx#current-expander-context)) - (_bind-id92506_ (gx#stx-e _id92502_)) - (_mod-id92508_ + (lambda (_stx92427_) + (letrec ((_make-context92429_ + (lambda (_id92506_) + (let* ((_super92508_ (gx#current-expander-context)) + (_bind-id92510_ (gx#stx-e _id92506_)) + (_mod-id92512_ (if (##structure-instance-of? - _super92504_ + _super92508_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _super92504_ + _super92508_ '1 gx#expander-context::t '#f) '"~" - _bind-id92506_) - _bind-id92506_)) - (_ns92510_ (symbol->string _mod-id92508_)) - (_path92517_ + _bind-id92510_) + _bind-id92510_)) + (_ns92514_ (symbol->string _mod-id92512_)) + (_path92521_ (if (##structure-instance-of? - _super92504_ + _super92508_ 'gx#module-context::t) - (let ((_path92512_ + (let ((_path92516_ (##unchecked-structure-ref - _super92504_ + _super92508_ '7 gx#module-context::t '#f))) - (if (or (pair? _path92512_) - (null? _path92512_)) - (cons _bind-id92506_ _path92512_) - (if (not _path92512_) - _bind-id92506_ - (cons _bind-id92506_ - (cons _path92512_ '()))))) - _bind-id92506_))) - (let ((__obj94564 + (if (or (pair? _path92516_) + (null? _path92516_)) + (cons _bind-id92510_ _path92516_) + (if (not _path92516_) + _bind-id92510_ + (cons _bind-id92510_ + (cons _path92516_ '()))))) + _bind-id92510_))) + (let ((__obj94568 (##structure gx#module-context::t '#f @@ -2156,893 +2156,893 @@ '#f '#f))) (gx#module-context:::init! - __obj94564 - _mod-id92508_ - _super92504_ - _ns92510_ - _path92517_) - __obj94564)))) - (_valid-module-id?92426_ - (lambda (_id92477_) - (let* ((_str92479_ (symbol->string _id92477_)) - (_len92481_ (string-length _str92479_))) - (if (fx>= _len92481_ '1) - (let _loop92484_ ((_index92486_ - (fx- (string-length _str92479_) + __obj94568 + _mod-id92512_ + _super92508_ + _ns92514_ + _path92521_) + __obj94568)))) + (_valid-module-id?92430_ + (lambda (_id92481_) + (let* ((_str92483_ (symbol->string _id92481_)) + (_len92485_ (string-length _str92483_))) + (if (fx>= _len92485_ '1) + (let _loop92488_ ((_index92490_ + (fx- (string-length _str92483_) '1))) - (if (fx>= _index92486_ '0) - (let ((_c92488_ - (string-ref _str92479_ _index92486_))) - (if (or (and (char>=? _c92488_ '#\a) - (char<=? _c92488_ '#\z)) - (and (char>=? _c92488_ '#\A) - (char<=? _c92488_ '#\Z)) - (and (char>=? _c92488_ '#\0) - (char<=? _c92488_ '#\9)) - (char=? _c92488_ '#\_) - (char=? _c92488_ '#\-)) - (_loop92484_ (fx- _index92486_ '1)) + (if (fx>= _index92490_ '0) + (let ((_c92492_ + (string-ref _str92483_ _index92490_))) + (if (or (and (char>=? _c92492_ '#\a) + (char<=? _c92492_ '#\z)) + (and (char>=? _c92492_ '#\A) + (char<=? _c92492_ '#\Z)) + (and (char>=? _c92492_ '#\0) + (char<=? _c92492_ '#\9)) + (char=? _c92492_ '#\_) + (char=? _c92492_ '#\-)) + (_loop92488_ (fx- _index92490_ '1)) '#f)) '#t)) '#f))))) - (let* ((_e9242792437_ _stx92423_) - (_E9242992441_ + (let* ((_e9243192441_ _stx92427_) + (_E9243392445_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9242792437_))) - (_E9242892473_ + _e9243192441_))) + (_E9243292477_ (lambda () - (if (gx#stx-pair? _e9242792437_) - (let ((_e9243092445_ (gx#syntax-e _e9242792437_))) - (let ((_hd9243192448_ (##car _e9243092445_)) - (_tl9243292450_ (##cdr _e9243092445_))) - (if (gx#stx-pair? _tl9243292450_) - (let ((_e9243392453_ - (gx#syntax-e _tl9243292450_))) - (let ((_hd9243492456_ (##car _e9243392453_)) - (_tl9243592458_ (##cdr _e9243392453_))) - (let* ((_id92461_ _hd9243492456_) - (_body92463_ _tl9243592458_)) - (if (and (gx#identifier? _id92461_) - (gx#stx-list? _body92463_)) - (if (_valid-module-id?92426_ + (if (gx#stx-pair? _e9243192441_) + (let ((_e9243492449_ (gx#syntax-e _e9243192441_))) + (let ((_hd9243592452_ (##car _e9243492449_)) + (_tl9243692454_ (##cdr _e9243492449_))) + (if (gx#stx-pair? _tl9243692454_) + (let ((_e9243792457_ + (gx#syntax-e _tl9243692454_))) + (let ((_hd9243892460_ (##car _e9243792457_)) + (_tl9243992462_ (##cdr _e9243792457_))) + (let* ((_id92465_ _hd9243892460_) + (_body92467_ _tl9243992462_)) + (if (and (gx#identifier? _id92465_) + (gx#stx-list? _body92467_)) + (if (_valid-module-id?92430_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_ctx92465_ - (_make-context92425_ - _id92461_)) - (_body92467_ + (let* ((_ctx92469_ + (_make-context92429_ + _id92465_)) + (_body92471_ (gx#core-expand-module-begin - _body92463_ - _ctx92465_)) - (_body92469_ + _body92467_ + _ctx92469_)) + (_body92473_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body92467_) + _body92471_) (gx#stx-source - _stx92423_)))) + _stx92427_)))) (##unchecked-structure-set! - _ctx92465_ + _ctx92469_ (make-promise (lambda () (gx#eval-syntax* - _body92469_))) + _body92473_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx92465_ - _body92469_ + _ctx92469_ + _body92473_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id92461_ - _ctx92465_) + _id92465_ + _ctx92469_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id92461_) - _body92469_) - (gx#stx-source _stx92423_))) + _id92465_) + _body92473_) + (gx#stx-source _stx92427_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _stx92423_ + _stx92427_ (gx#datum->syntax__0 '#f 'id))) - (_E9242992441_))))) - (_E9242992441_)))) - (_E9242992441_))))) - (_E9242892473_))))) + (_E9243392445_))))) + (_E9243392445_)))) + (_E9243392445_))))) + (_E9243292477_))))) (define gx#core-expand-module-begin - (lambda (_body92389_ _ctx92390_) + (lambda (_body92393_ _ctx92394_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx92393_ - (gx#core-expand-head (cons '%%begin-module _body92389_))) - (_e9239492401_ _stx92393_) - (_E9239692405_ + (let* ((_stx92397_ + (gx#core-expand-head (cons '%%begin-module _body92393_))) + (_e9239892405_ _stx92397_) + (_E9240092409_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx92393_))) - (_E9239592419_ + _stx92397_))) + (_E9239992423_ (lambda () - (if (gx#stx-pair? _e9239492401_) - (let ((_e9239792409_ (gx#syntax-e _e9239492401_))) - (let ((_hd9239892412_ (##car _e9239792409_)) - (_tl9239992414_ (##cdr _e9239792409_))) - (if (and (gx#identifier? _hd9239892412_) + (if (gx#stx-pair? _e9239892405_) + (let ((_e9240192413_ (gx#syntax-e _e9239892405_))) + (let ((_hd9240292416_ (##car _e9240192413_)) + (_tl9240392418_ (##cdr _e9240192413_))) + (if (and (gx#identifier? _hd9240292416_) (gx#core-identifier=? - _hd9239892412_ + _hd9240292416_ '%#begin-module)) - (let ((_body92417_ _tl9239992414_)) + (let ((_body92421_ _tl9240392418_)) (if '#t - (if (gx#sealed-syntax? _stx92393_) - _body92417_ + (if (gx#sealed-syntax? _stx92397_) + _body92421_ (gx#core-expand-module-body - _body92417_)) - (_E9239692405_))) - (_E9239692405_)))) - (_E9239692405_))))) - (_E9239592419_))) + _body92421_)) + (_E9240092409_))) + (_E9240092409_)))) + (_E9240092409_))))) + (_E9239992423_))) gx#current-expander-context - _ctx92390_ + _ctx92394_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body92185_) - (letrec ((_expand-special92187_ - (lambda (_hd92316_ _K92317_ _rest92318_ _r92319_) - (let* ((_e9232092337_ _hd92316_) - (_E9233292341_ + (lambda (_body92189_) + (letrec ((_expand-special92191_ + (lambda (_hd92320_ _K92321_ _rest92322_ _r92323_) + (let* ((_e9232492341_ _hd92320_) + (_E9233692345_ (lambda () - (_K92317_ - _rest92318_ - (cons (gx#core-expand-top _hd92316_) - _r92319_)))) - (_E9232292353_ + (_K92321_ + _rest92322_ + (cons (gx#core-expand-top _hd92320_) + _r92323_)))) + (_E9232692357_ (lambda () - (if (gx#stx-pair? _e9232092337_) - (let ((_e9233392345_ - (gx#syntax-e _e9232092337_))) - (let ((_hd9233492348_ - (##car _e9233392345_)) - (_tl9233592350_ - (##cdr _e9233392345_))) - (if (and (gx#identifier? _hd9233492348_) + (if (gx#stx-pair? _e9232492341_) + (let ((_e9233792349_ + (gx#syntax-e _e9232492341_))) + (let ((_hd9233892352_ + (##car _e9233792349_)) + (_tl9233992354_ + (##cdr _e9233792349_))) + (if (and (gx#identifier? _hd9233892352_) (gx#core-identifier=? - _hd9233492348_ + _hd9233892352_ '%#export)) (if '#t - (_K92317_ - _rest92318_ - (cons _hd92316_ _r92319_)) - (_E9233292341_)) - (_E9233292341_)))) - (_E9233292341_)))) - (_E9232192385_ + (_K92321_ + _rest92322_ + (cons _hd92320_ _r92323_)) + (_E9233692345_)) + (_E9233692345_)))) + (_E9233692345_)))) + (_E9232592389_ (lambda () - (if (gx#stx-pair? _e9232092337_) - (let ((_e9232392357_ - (gx#syntax-e _e9232092337_))) - (let ((_hd9232492360_ - (##car _e9232392357_)) - (_tl9232592362_ - (##cdr _e9232392357_))) - (if (and (gx#identifier? _hd9232492360_) + (if (gx#stx-pair? _e9232492341_) + (let ((_e9232792361_ + (gx#syntax-e _e9232492341_))) + (let ((_hd9232892364_ + (##car _e9232792361_)) + (_tl9232992366_ + (##cdr _e9232792361_))) + (if (and (gx#identifier? _hd9232892364_) (gx#core-identifier=? - _hd9232492360_ + _hd9232892364_ '%#define-values)) - (if (gx#stx-pair? _tl9232592362_) - (let ((_e9232692365_ + (if (gx#stx-pair? _tl9232992366_) + (let ((_e9233092369_ (gx#syntax-e - _tl9232592362_))) - (let ((_hd9232792368_ - (##car _e9232692365_)) - (_tl9232892370_ - (##cdr _e9232692365_))) - (let ((_hd-bind92373_ - _hd9232792368_)) + _tl9232992366_))) + (let ((_hd9233192372_ + (##car _e9233092369_)) + (_tl9233292374_ + (##cdr _e9233092369_))) + (let ((_hd-bind92377_ + _hd9233192372_)) (if (gx#stx-pair? - _tl9232892370_) - (let ((_e9232992375_ + _tl9233292374_) + (let ((_e9233392379_ (gx#syntax-e - _tl9232892370_))) - (let ((_hd9233092378_ + _tl9233292374_))) + (let ((_hd9233492382_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9232992375_)) - (_tl9233192380_ (##cdr _e9232992375_))) - (let ((_expr92383_ _hd9233092378_)) - (if (gx#stx-null? _tl9233192380_) - (if (gx#core-bind-values? _hd-bind92373_) + (##car _e9233392379_)) + (_tl9233592384_ (##cdr _e9233392379_))) + (let ((_expr92387_ _hd9233492382_)) + (if (gx#stx-null? _tl9233592384_) + (if (gx#core-bind-values? _hd-bind92377_) (begin - (gx#core-bind-values!__0 _hd-bind92373_) - (_K92317_ - _rest92318_ - (cons _hd92316_ _r92319_))) - (_E9232292353_)) - (_E9232292353_))))) - (_E9232292353_))))) + (gx#core-bind-values!__0 _hd-bind92377_) + (_K92321_ + _rest92322_ + (cons _hd92320_ _r92323_))) + (_E9232692357_)) + (_E9232692357_))))) + (_E9232692357_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9232292353_)) - (_E9232292353_)))) - (_E9232292353_))))) - (_E9232192385_)))) - (_expand-body92188_ - (lambda (_rbody92190_) - (let _lp92192_ ((_rest92194_ _rbody92190_) - (_body92195_ '())) - (let* ((_rest9219692204_ _rest92194_) - (_else9219892212_ (lambda () _body92195_)) - (_K9220092304_ - (lambda (_rest92215_ _hd92216_) - (let* ((_e9221792238_ _hd92216_) - (_E9223392242_ + (_E9232692357_)) + (_E9232692357_)))) + (_E9232692357_))))) + (_E9232592389_)))) + (_expand-body92192_ + (lambda (_rbody92194_) + (let _lp92196_ ((_rest92198_ _rbody92194_) + (_body92199_ '())) + (let* ((_rest9220092208_ _rest92198_) + (_else9220292216_ (lambda () _body92199_)) + (_K9220492308_ + (lambda (_rest92219_ _hd92220_) + (let* ((_e9222192242_ _hd92220_) + (_E9223792246_ (lambda () - (_lp92192_ - _rest92215_ + (_lp92196_ + _rest92219_ (cons (gx#core-expand-expression - _hd92216_) - _body92195_)))) - (_E9222992256_ + _hd92220_) + _body92199_)))) + (_E9223392260_ (lambda () - (if (gx#stx-pair? _e9221792238_) - (let ((_e9223492246_ + (if (gx#stx-pair? _e9222192242_) + (let ((_e9223892250_ (gx#syntax-e - _e9221792238_))) - (let ((_hd9223592249_ - (##car _e9223492246_)) - (_tl9223692251_ - (##cdr _e9223492246_))) - (let ((_form92254_ - _hd9223592249_)) + _e9222192242_))) + (let ((_hd9223992253_ + (##car _e9223892250_)) + (_tl9224092255_ + (##cdr _e9223892250_))) + (let ((_form92258_ + _hd9223992253_)) (if (gx#core-bound-identifier?__% - _form92254_ + _form92258_ gx#special-form-binding?) - (_lp92192_ - _rest92215_ - (cons _hd92216_ - _body92195_)) - (_E9223392242_))))) - (_E9223392242_)))) - (_E9221992268_ + (_lp92196_ + _rest92219_ + (cons _hd92220_ + _body92199_)) + (_E9223792246_))))) + (_E9223792246_)))) + (_E9222392272_ (lambda () - (if (gx#stx-pair? _e9221792238_) - (let ((_e9223092260_ + (if (gx#stx-pair? _e9222192242_) + (let ((_e9223492264_ (gx#syntax-e - _e9221792238_))) - (let ((_hd9223192263_ - (##car _e9223092260_)) - (_tl9223292265_ - (##cdr _e9223092260_))) + _e9222192242_))) + (let ((_hd9223592267_ + (##car _e9223492264_)) + (_tl9223692269_ + (##cdr _e9223492264_))) (if (and (gx#identifier? - _hd9223192263_) + _hd9223592267_) (gx#core-identifier=? - _hd9223192263_ + _hd9223592267_ '%#export)) (if '#t - (_lp92192_ - _rest92215_ + (_lp92196_ + _rest92219_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd92216_) - _body92195_)) - (_E9222992256_)) - (_E9222992256_)))) + _hd92220_) + _body92199_)) + (_E9223392260_)) + (_E9223392260_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9222992256_)))) - (_E9221892300_ + (_E9223392260_)))) + (_E9222292304_ (lambda () - (if (gx#stx-pair? _e9221792238_) - (let ((_e9222092272_ + (if (gx#stx-pair? _e9222192242_) + (let ((_e9222492276_ (gx#syntax-e - _e9221792238_))) - (let ((_hd9222192275_ - (##car _e9222092272_)) - (_tl9222292277_ - (##cdr _e9222092272_))) + _e9222192242_))) + (let ((_hd9222592279_ + (##car _e9222492276_)) + (_tl9222692281_ + (##cdr _e9222492276_))) (if (and (gx#identifier? - _hd9222192275_) + _hd9222592279_) (gx#core-identifier=? - _hd9222192275_ + _hd9222592279_ '%#define-values)) (if (gx#stx-pair? - _tl9222292277_) - (let ((_e9222392280_ + _tl9222692281_) + (let ((_e9222792284_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9222292277_))) - (let ((_hd9222492283_ (##car _e9222392280_)) - (_tl9222592285_ (##cdr _e9222392280_))) - (let ((_hd-bind92288_ _hd9222492283_)) - (if (gx#stx-pair? _tl9222592285_) - (let ((_e9222692290_ (gx#syntax-e _tl9222592285_))) - (let ((_hd9222792293_ (##car _e9222692290_)) - (_tl9222892295_ (##cdr _e9222692290_))) - (let ((_expr92298_ _hd9222792293_)) - (if (gx#stx-null? _tl9222892295_) + (gx#syntax-e _tl9222692281_))) + (let ((_hd9222892287_ (##car _e9222792284_)) + (_tl9222992289_ (##cdr _e9222792284_))) + (let ((_hd-bind92292_ _hd9222892287_)) + (if (gx#stx-pair? _tl9222992289_) + (let ((_e9223092294_ (gx#syntax-e _tl9222992289_))) + (let ((_hd9223192297_ (##car _e9223092294_)) + (_tl9223292299_ (##cdr _e9223092294_))) + (let ((_expr92302_ _hd9223192297_)) + (if (gx#stx-null? _tl9223292299_) (if '#t - (_lp92192_ - _rest92215_ + (_lp92196_ + _rest92219_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind92288_) + _hd-bind92292_) (gx#core-expand-expression - _expr92298_)) - (gx#stx-source _hd92216_)) - _body92195_)) - (_E9221992268_)) - (_E9221992268_))))) - (_E9221992268_))))) - (_E9221992268_)) - (_E9221992268_)))) + _expr92302_)) + (gx#stx-source _hd92220_)) + _body92199_)) + (_E9222392272_)) + (_E9222392272_))))) + (_E9222392272_))))) + (_E9222392272_)) + (_E9222392272_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9221992268_))))) - (_E9221892300_))))) - (if (##pair? _rest9219692204_) - (let ((_hd9220192307_ (##car _rest9219692204_)) - (_tl9220292309_ (##cdr _rest9219692204_))) - (let* ((_hd92312_ _hd9220192307_) - (_rest92314_ _tl9220292309_)) - (_K9220092304_ _rest92314_ _hd92312_))) - (_else9219892212_))))))) - (_expand-body92188_ + (_E9222392272_))))) + (_E9222292304_))))) + (if (##pair? _rest9220092208_) + (let ((_hd9220592311_ (##car _rest9220092208_)) + (_tl9220692313_ (##cdr _rest9220092208_))) + (let* ((_hd92316_ _hd9220592311_) + (_rest92318_ _tl9220692313_)) + (_K9220492308_ _rest92318_ _hd92316_))) + (_else9220292216_))))))) + (_expand-body92192_ (gx#core-expand-block__% - (cons '%#begin-module _body92185_) - _expand-special92187_ + (cons '%#begin-module _body92189_) + _expand-special92191_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx92028_ - _expanded?92029_ - _method92030_ - _current-phi92031_ - _expand192032_) - (letrec ((_K92034_ - (lambda (_rest92152_ _r92153_) - (let* ((_e9215492161_ _rest92152_) - (_E9215692165_ (lambda () _r92153_)) - (_E9215592181_ + (lambda (_stx92032_ + _expanded?92033_ + _method92034_ + _current-phi92035_ + _expand192036_) + (letrec ((_K92038_ + (lambda (_rest92156_ _r92157_) + (let* ((_e9215892165_ _rest92156_) + (_E9216092169_ (lambda () _r92157_)) + (_E9215992185_ (lambda () - (if (gx#stx-pair? _e9215492161_) - (let ((_e9215792169_ - (gx#syntax-e _e9215492161_))) - (let ((_hd9215892172_ - (##car _e9215792169_)) - (_tl9215992174_ - (##cdr _e9215792169_))) - (let* ((_hd92177_ _hd9215892172_) - (_rest92179_ _tl9215992174_)) + (if (gx#stx-pair? _e9215892165_) + (let ((_e9216192173_ + (gx#syntax-e _e9215892165_))) + (let ((_hd9216292176_ + (##car _e9216192173_)) + (_tl9216392178_ + (##cdr _e9216192173_))) + (let* ((_hd92181_ _hd9216292176_) + (_rest92183_ _tl9216392178_)) (if '#t - (_step92035_ - _hd92177_ - _rest92179_ - _r92153_) - (_E9215692165_))))) - (_E9215692165_))))) - (_E9215592181_)))) - (_step92035_ - (lambda (_hd92066_ _rest92067_ _r92068_) - (let* ((_e9206992087_ _hd92066_) - (_E9208292091_ + (_step92039_ + _hd92181_ + _rest92183_ + _r92157_) + (_E9216092169_))))) + (_E9216092169_))))) + (_E9215992185_)))) + (_step92039_ + (lambda (_hd92070_ _rest92071_ _r92072_) + (let* ((_e9207392091_ _hd92070_) + (_E9208692095_ (lambda () - (if (_expanded?92029_ (gx#stx-e _hd92066_)) - (_K92034_ - _rest92067_ - (cons (gx#stx-e _hd92066_) _r92068_)) - (_expand192032_ - _hd92066_ - _K92034_ - _rest92067_ - _r92068_)))) - (_E9207892107_ + (if (_expanded?92033_ (gx#stx-e _hd92070_)) + (_K92038_ + _rest92071_ + (cons (gx#stx-e _hd92070_) _r92072_)) + (_expand192036_ + _hd92070_ + _K92038_ + _rest92071_ + _r92072_)))) + (_E9208292111_ (lambda () - (if (gx#stx-pair? _e9206992087_) - (let ((_e9208392095_ - (gx#syntax-e _e9206992087_))) - (let ((_hd9208492098_ - (##car _e9208392095_)) - (_tl9208592100_ - (##cdr _e9208392095_))) - (let* ((_macro92103_ _hd9208492098_) - (_body92105_ _tl9208592100_)) + (if (gx#stx-pair? _e9207392091_) + (let ((_e9208792099_ + (gx#syntax-e _e9207392091_))) + (let ((_hd9208892102_ + (##car _e9208792099_)) + (_tl9208992104_ + (##cdr _e9208792099_))) + (let* ((_macro92107_ _hd9208892102_) + (_body92109_ _tl9208992104_)) (if (gx#core-bound-identifier?__% - _macro92103_ + _macro92107_ gx#syntax-binding?) - (_K92034_ + (_K92038_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro92103_) - _hd92066_ - _method92030_) - _rest92067_) - _r92068_) - (_E9208292091_))))) - (_E9208292091_)))) - (_E9207192121_ + _macro92107_) + _hd92070_ + _method92034_) + _rest92071_) + _r92072_) + (_E9208692095_))))) + (_E9208692095_)))) + (_E9207592125_ (lambda () - (if (gx#stx-pair? _e9206992087_) - (let ((_e9207992111_ - (gx#syntax-e _e9206992087_))) - (let ((_hd9208092114_ - (##car _e9207992111_)) - (_tl9208192116_ - (##cdr _e9207992111_))) - (if (eq? (gx#stx-e _hd9208092114_) + (if (gx#stx-pair? _e9207392091_) + (let ((_e9208392115_ + (gx#syntax-e _e9207392091_))) + (let ((_hd9208492118_ + (##car _e9208392115_)) + (_tl9208592120_ + (##cdr _e9208392115_))) + (if (eq? (gx#stx-e _hd9208492118_) 'begin:) - (let ((_body92119_ _tl9208192116_)) + (let ((_body92123_ _tl9208592120_)) (if '#t - (_K92034_ + (_K92038_ (gx#stx-foldr cons - _rest92067_ - _body92119_) - _r92068_) - (_E9207892107_))) - (_E9207892107_)))) - (_E9207892107_)))) - (_E9207092148_ + _rest92071_ + _body92123_) + _r92072_) + (_E9208292111_))) + (_E9208292111_)))) + (_E9208292111_)))) + (_E9207492152_ (lambda () - (if (gx#stx-pair? _e9206992087_) - (let ((_e9207292125_ - (gx#syntax-e _e9206992087_))) - (let ((_hd9207392128_ - (##car _e9207292125_)) - (_tl9207492130_ - (##cdr _e9207292125_))) - (if (eq? (gx#stx-e _hd9207392128_) 'phi:) - (if (gx#stx-pair? _tl9207492130_) - (let ((_e9207592133_ + (if (gx#stx-pair? _e9207392091_) + (let ((_e9207692129_ + (gx#syntax-e _e9207392091_))) + (let ((_hd9207792132_ + (##car _e9207692129_)) + (_tl9207892134_ + (##cdr _e9207692129_))) + (if (eq? (gx#stx-e _hd9207792132_) 'phi:) + (if (gx#stx-pair? _tl9207892134_) + (let ((_e9207992137_ (gx#syntax-e - _tl9207492130_))) - (let ((_hd9207692136_ - (##car _e9207592133_)) - (_tl9207792138_ - (##cdr _e9207592133_))) - (let* ((_dphi92141_ - _hd9207692136_) - (_body92143_ - _tl9207792138_)) + _tl9207892134_))) + (let ((_hd9208092140_ + (##car _e9207992137_)) + (_tl9208192142_ + (##cdr _e9207992137_))) + (let* ((_dphi92145_ + _hd9208092140_) + (_body92147_ + _tl9208192142_)) (if (gx#stx-fixnum? - _dphi92141_) - (let ((_rbody92146_ + _dphi92145_) + (let ((_rbody92150_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K92034_ _body92143_ '())) - _current-phi92031_ - (fx+ (gx#stx-e _dphi92141_) (_current-phi92031_))))) - (_K92034_ _rest92067_ (foldr1 cons _r92068_ _rbody92146_))) - (_E9207192121_))))) + (_K92038_ _body92147_ '())) + _current-phi92035_ + (fx+ (gx#stx-e _dphi92145_) (_current-phi92035_))))) + (_K92038_ _rest92071_ (foldr1 cons _r92072_ _rbody92150_))) + (_E9207592125_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9207192121_)) - (_E9207192121_)))) - (_E9207192121_))))) - (_E9207092148_))))) - (let* ((_e9203692043_ _stx92028_) - (_E9203892047_ + (_E9207592125_)) + (_E9207592125_)))) + (_E9207592125_))))) + (_E9207492152_))))) + (let* ((_e9204092047_ _stx92032_) + (_E9204292051_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9203692043_))) - (_E9203792062_ + _e9204092047_))) + (_E9204192066_ (lambda () - (if (gx#stx-pair? _e9203692043_) - (let ((_e9203992051_ (gx#syntax-e _e9203692043_))) - (let ((_hd9204092054_ (##car _e9203992051_)) - (_tl9204192056_ (##cdr _e9203992051_))) - (let ((_body92059_ _tl9204192056_)) + (if (gx#stx-pair? _e9204092047_) + (let ((_e9204392055_ (gx#syntax-e _e9204092047_))) + (let ((_hd9204492058_ (##car _e9204392055_)) + (_tl9204592060_ (##cdr _e9204392055_))) + (let ((_body92063_ _tl9204592060_)) (if '#t - (if (_current-phi92031_) - (_K92034_ _body92059_ '()) + (if (_current-phi92035_) + (_K92038_ _body92063_ '()) (call-with-parameters - (lambda () (_K92034_ _body92059_ '())) - _current-phi92031_ + (lambda () (_K92038_ _body92063_ '())) + _current-phi92035_ (gx#current-expander-phi))) - (_E9203892047_))))) - (_E9203892047_))))) - (_E9203792062_))))) + (_E9204292051_))))) + (_E9204292051_))))) + (_E9204192066_))))) (define gx#core-expand-import%__% - (lambda (_stx91695_ _internal-expand?91696_) - (letrec ((_expand191698_ - (lambda (_hd92008_ _K92009_ _rest92010_ _r92011_) - (if (gx#core-bound-module? _hd92008_) - (_import191699_ - (gx#syntax-local-e__0 _hd92008_) - _K92009_ - _rest92010_ - _r92011_) - (if (gx#core-library-module-path? _hd92008_) - (_import191699_ + (lambda (_stx91699_ _internal-expand?91700_) + (letrec ((_expand191702_ + (lambda (_hd92012_ _K92013_ _rest92014_ _r92015_) + (if (gx#core-bound-module? _hd92012_) + (_import191703_ + (gx#syntax-local-e__0 _hd92012_) + _K92013_ + _rest92014_ + _r92015_) + (if (gx#core-library-module-path? _hd92012_) + (_import191703_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd92008_)) - _K92009_ - _rest92010_ - _r92011_) + (gx#core-resolve-library-module-path _hd92012_)) + _K92013_ + _rest92014_ + _r92015_) (if (gx#core-library-relative-module-path? - _hd92008_) - (_import191699_ + _hd92012_) + (_import191703_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd92008_)) - _K92009_ - _rest92010_ - _r92011_) - (let ((_e92013_ (gx#stx-e _hd92008_))) - (if (pair? _e92013_) - (let ((_$e92015_ - (gx#stx-e (car _e92013_)))) - (if (eq? 'spec: _$e92015_) - (_import-spec91702_ - _hd92008_ - _K92009_ - _rest92010_ - _r92011_) - (if (eq? 'in: _$e92015_) - (_import-submodule91700_ - _hd92008_ - _K92009_ - _rest92010_ - _r92011_) - (if (eq? 'runtime: _$e92015_) - (_import-runtime91701_ - _hd92008_ - _K92009_ - _rest92010_ - _r92011_) + _hd92012_)) + _K92013_ + _rest92014_ + _r92015_) + (let ((_e92017_ (gx#stx-e _hd92012_))) + (if (pair? _e92017_) + (let ((_$e92019_ + (gx#stx-e (car _e92017_)))) + (if (eq? 'spec: _$e92019_) + (_import-spec91706_ + _hd92012_ + _K92013_ + _rest92014_ + _r92015_) + (if (eq? 'in: _$e92019_) + (_import-submodule91704_ + _hd92012_ + _K92013_ + _rest92014_ + _r92015_) + (if (eq? 'runtime: _$e92019_) + (_import-runtime91705_ + _hd92012_ + _K92013_ + _rest92014_ + _r92015_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx91695_ - _hd92008_))))) - (if (string? _e92013_) - (_import191699_ + _stx91699_ + _hd92012_))))) + (if (string? _e92017_) + (_import191703_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd92008_ - (gx#stx-source _stx91695_))) - _K92009_ - _rest92010_ - _r92011_) + _hd92012_ + (gx#stx-source _stx91699_))) + _K92013_ + _rest92014_ + _r92015_) (if (##structure-instance-of? - _e92013_ + _e92017_ 'gx#module-context::t) - (_K92009_ - _rest92010_ - (cons _e92013_ _r92011_)) + (_K92013_ + _rest92014_ + (cons _e92017_ _r92015_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx91695_ - _hd92008_)))))))))) - (_import191699_ - (lambda (_ctx91997_ _K91998_ _rest91999_ _r92000_) - (let ((_dphi92002_ + _stx91699_ + _hd92012_)))))))))) + (_import191703_ + (lambda (_ctx92001_ _K92002_ _rest92003_ _r92004_) + (let ((_dphi92006_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K91998_ - _rest91999_ + (_K92002_ + _rest92003_ (cons (##structure gx#import-set::t - _ctx91997_ - _dphi92002_ - (map (lambda (_g9200392005_) + _ctx92001_ + _dphi92006_ + (map (lambda (_g9200792009_) (gx#core-module-export->import__% - _g9200392005_ + _g9200792009_ '#f - _dphi92002_)) + _dphi92006_)) (##unchecked-structure-ref - _ctx91997_ + _ctx92001_ '9 gx#module-context::t '#f))) - _r92000_))))) - (_import-submodule91700_ - (lambda (_hd91964_ _K91965_ _rest91966_ _r91967_) - (let* ((_e9196891975_ _hd91964_) - (_E9197091979_ + _r92004_))))) + (_import-submodule91704_ + (lambda (_hd91968_ _K91969_ _rest91970_ _r91971_) + (let* ((_e9197291979_ _hd91968_) + (_E9197491983_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9196891975_))) - (_E9196991993_ + _e9197291979_))) + (_E9197391997_ (lambda () - (if (gx#stx-pair? _e9196891975_) - (let ((_e9197191983_ - (gx#syntax-e _e9196891975_))) - (let ((_hd9197291986_ - (##car _e9197191983_)) - (_tl9197391988_ - (##cdr _e9197191983_))) - (let ((_spath91991_ _tl9197391988_)) + (if (gx#stx-pair? _e9197291979_) + (let ((_e9197591987_ + (gx#syntax-e _e9197291979_))) + (let ((_hd9197691990_ + (##car _e9197591987_)) + (_tl9197791992_ + (##cdr _e9197591987_))) + (let ((_spath91995_ _tl9197791992_)) (if '#t - (_import191699_ - (_import-spec-source91703_ - _spath91991_) - _K91965_ - _rest91966_ - _r91967_) - (_E9197091979_))))) - (_E9197091979_))))) - (_E9196991993_)))) - (_import-runtime91701_ - (lambda (_hd91931_ _K91932_ _rest91933_ _r91934_) - (let* ((_e9193591942_ _hd91931_) - (_E9193791946_ + (_import191703_ + (_import-spec-source91707_ + _spath91995_) + _K91969_ + _rest91970_ + _r91971_) + (_E9197491983_))))) + (_E9197491983_))))) + (_E9197391997_)))) + (_import-runtime91705_ + (lambda (_hd91935_ _K91936_ _rest91937_ _r91938_) + (let* ((_e9193991946_ _hd91935_) + (_E9194191950_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9193591942_))) - (_E9193691960_ + _e9193991946_))) + (_E9194091964_ (lambda () - (if (gx#stx-pair? _e9193591942_) - (let ((_e9193891950_ - (gx#syntax-e _e9193591942_))) - (let ((_hd9193991953_ - (##car _e9193891950_)) - (_tl9194091955_ - (##cdr _e9193891950_))) - (let ((_spath91958_ _tl9194091955_)) + (if (gx#stx-pair? _e9193991946_) + (let ((_e9194291954_ + (gx#syntax-e _e9193991946_))) + (let ((_hd9194391957_ + (##car _e9194291954_)) + (_tl9194491959_ + (##cdr _e9194291954_))) + (let ((_spath91962_ _tl9194491959_)) (if '#t - (_K91932_ - _rest91933_ - (cons (_import-spec-source91703_ - _spath91958_) - _r91934_)) - (_E9193791946_))))) - (_E9193791946_))))) - (_E9193691960_)))) - (_import-spec91702_ - (lambda (_hd91770_ _K91771_ _rest91772_ _r91773_) - (let* ((_e9177491791_ _hd91770_) - (_E9178391795_ + (_K91936_ + _rest91937_ + (cons (_import-spec-source91707_ + _spath91962_) + _r91938_)) + (_E9194191950_))))) + (_E9194191950_))))) + (_E9194091964_)))) + (_import-spec91706_ + (lambda (_hd91774_ _K91775_ _rest91776_ _r91777_) + (let* ((_e9177891795_ _hd91774_) + (_E9178791799_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9177491791_))) - (_E9177691905_ + _e9177891795_))) + (_E9178091909_ (lambda () - (if (gx#stx-pair? _e9177491791_) - (let ((_e9178491799_ - (gx#syntax-e _e9177491791_))) - (let ((_hd9178591802_ - (##car _e9178491799_)) - (_tl9178691804_ - (##cdr _e9178491799_))) - (if (gx#stx-pair? _tl9178691804_) - (let ((_e9178791807_ - (gx#syntax-e _tl9178691804_))) - (let ((_hd9178891810_ - (##car _e9178791807_)) - (_tl9178991812_ - (##cdr _e9178791807_))) - (let* ((_path91815_ - _hd9178891810_) - (_specs91817_ - _tl9178991812_)) + (if (gx#stx-pair? _e9177891795_) + (let ((_e9178891803_ + (gx#syntax-e _e9177891795_))) + (let ((_hd9178991806_ + (##car _e9178891803_)) + (_tl9179091808_ + (##cdr _e9178891803_))) + (if (gx#stx-pair? _tl9179091808_) + (let ((_e9179191811_ + (gx#syntax-e _tl9179091808_))) + (let ((_hd9179291814_ + (##car _e9179191811_)) + (_tl9179391816_ + (##cdr _e9179191811_))) + (let* ((_path91819_ + _hd9179291814_) + (_specs91821_ + _tl9179391816_)) (if '#t - (let ((_src-ctx91819_ - (_import-spec-source91703_ - _path91815_)) - (_exports91820_ + (let ((_src-ctx91823_ + (_import-spec-source91707_ + _path91819_)) + (_exports91824_ (make-hash-table)) - (_specs91821_ + (_specs91825_ (gx#syntax->list - _specs91817_))) + _specs91821_))) (for-each - (lambda (_out91823_) + (lambda (_out91827_) (hash-put! - _exports91820_ + _exports91824_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out91823_ + _out91827_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out91823_ + _out91827_ '4 gx#module-export::t '#f)) - _out91823_)) + _out91827_)) (##unchecked-structure-ref - _src-ctx91819_ + _src-ctx91823_ '9 gx#module-context::t '#f)) - (_K91771_ - _rest91772_ - (foldl1 (lambda (_spec91825_ _r91826_) - (let* ((_e9182791843_ _spec91825_) - (_E9182991847_ + (_K91775_ + _rest91776_ + (foldl1 (lambda (_spec91829_ _r91830_) + (let* ((_e9183191847_ _spec91829_) + (_E9183391851_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9182791843_))) - (_E9182891901_ + _e9183191847_))) + (_E9183291905_ (lambda () - (if (gx#stx-pair? _e9182791843_) - (let ((_e9183091851_ - (gx#syntax-e _e9182791843_))) - (let ((_hd9183191854_ - (##car _e9183091851_)) - (_tl9183291856_ - (##cdr _e9183091851_))) - (let ((_phi91859_ _hd9183191854_)) - (if (gx#stx-pair? _tl9183291856_) - (let ((_e9183391861_ + (if (gx#stx-pair? _e9183191847_) + (let ((_e9183491855_ + (gx#syntax-e _e9183191847_))) + (let ((_hd9183591858_ + (##car _e9183491855_)) + (_tl9183691860_ + (##cdr _e9183491855_))) + (let ((_phi91863_ _hd9183591858_)) + (if (gx#stx-pair? _tl9183691860_) + (let ((_e9183791865_ (gx#syntax-e - _tl9183291856_))) - (let ((_hd9183491864_ - (##car _e9183391861_)) - (_tl9183591866_ - (##cdr _e9183391861_))) - (let ((_name91869_ - _hd9183491864_)) + _tl9183691860_))) + (let ((_hd9183891868_ + (##car _e9183791865_)) + (_tl9183991870_ + (##cdr _e9183791865_))) + (let ((_name91873_ + _hd9183891868_)) (if (gx#stx-pair? - _tl9183591866_) - (let ((_e9183691871_ + _tl9183991870_) + (let ((_e9184091875_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9183591866_))) - (let ((_hd9183791874_ (##car _e9183691871_)) - (_tl9183891876_ (##cdr _e9183691871_))) - (let ((_src-phi91879_ _hd9183791874_)) - (if (gx#stx-pair? _tl9183891876_) - (let ((_e9183991881_ - (gx#syntax-e _tl9183891876_))) - (let ((_hd9184091884_ (##car _e9183991881_)) - (_tl9184191886_ (##cdr _e9183991881_))) - (let ((_src-name91889_ _hd9184091884_)) - (if (gx#stx-null? _tl9184191886_) - (if (and (gx#stx-fixnum? _src-phi91879_) + (gx#syntax-e _tl9183991870_))) + (let ((_hd9184191878_ (##car _e9184091875_)) + (_tl9184291880_ (##cdr _e9184091875_))) + (let ((_src-phi91883_ _hd9184191878_)) + (if (gx#stx-pair? _tl9184291880_) + (let ((_e9184391885_ + (gx#syntax-e _tl9184291880_))) + (let ((_hd9184491888_ (##car _e9184391885_)) + (_tl9184591890_ (##cdr _e9184391885_))) + (let ((_src-name91893_ _hd9184491888_)) + (if (gx#stx-null? _tl9184591890_) + (if (and (gx#stx-fixnum? _src-phi91883_) (gx#identifier? - _src-name91889_) - (gx#stx-fixnum? _phi91859_) - (gx#identifier? _name91869_)) - (let ((_src-phi91891_ - (gx#stx-e _src-phi91879_)) - (_src-name91892_ + _src-name91893_) + (gx#stx-fixnum? _phi91863_) + (gx#identifier? _name91873_)) + (let ((_src-phi91895_ + (gx#stx-e _src-phi91883_)) + (_src-name91896_ (gx#core-identifier-key - _src-name91889_)) - (_phi91893_ - (gx#stx-e _phi91859_)) - (_name91894_ + _src-name91893_)) + (_phi91897_ + (gx#stx-e _phi91863_)) + (_name91898_ (gx#core-identifier-key - _name91869_))) - (let ((_$e91896_ + _name91873_))) + (let ((_$e91900_ (hash-get - _exports91820_ - (cons _src-phi91891_ - _src-name91892_)))) - (if _$e91896_ - ((lambda (_out91899_) + _exports91824_ + (cons _src-phi91895_ + _src-name91896_)))) + (if _$e91900_ + ((lambda (_out91903_) (cons (gx#core-module-export->import__% - _out91899_ - _name91894_ - (fx- _phi91893_ + _out91903_ + _name91898_ + (fx- _phi91897_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi91891_)) - _r91826_)) + _src-phi91895_)) + _r91830_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e91896_) + _$e91900_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx91695_ - _hd91770_)))) - (_E9182991847_)) - (_E9182991847_))))) - (_E9182991847_))))) - (_E9182991847_))))) + _stx91699_ + _hd91774_)))) + (_E9183391851_)) + (_E9183391851_))))) + (_E9183391851_))))) + (_E9183391851_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9182991847_))))) - (_E9182991847_))))) - (_E9182891901_))) - _r91773_ - _specs91821_))) + (_E9183391851_))))) + (_E9183391851_))))) + (_E9183291905_))) + _r91777_ + _specs91825_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9178391795_))))) - (_E9178391795_)))) - (_E9178391795_)))) - (_E9177591927_ + (_E9178791799_))))) + (_E9178791799_)))) + (_E9178791799_)))) + (_E9177991931_ (lambda () - (if (gx#stx-pair? _e9177491791_) - (let ((_e9177791909_ - (gx#syntax-e _e9177491791_))) - (let ((_hd9177891912_ - (##car _e9177791909_)) - (_tl9177991914_ - (##cdr _e9177791909_))) - (if (gx#stx-pair? _tl9177991914_) - (let ((_e9178091917_ - (gx#syntax-e _tl9177991914_))) - (let ((_hd9178191920_ - (##car _e9178091917_)) - (_tl9178291922_ - (##cdr _e9178091917_))) - (let ((_path91925_ - _hd9178191920_)) + (if (gx#stx-pair? _e9177891795_) + (let ((_e9178191913_ + (gx#syntax-e _e9177891795_))) + (let ((_hd9178291916_ + (##car _e9178191913_)) + (_tl9178391918_ + (##cdr _e9178191913_))) + (if (gx#stx-pair? _tl9178391918_) + (let ((_e9178491921_ + (gx#syntax-e _tl9178391918_))) + (let ((_hd9178591924_ + (##car _e9178491921_)) + (_tl9178691926_ + (##cdr _e9178491921_))) + (let ((_path91929_ + _hd9178591924_)) (if (gx#stx-null? - _tl9178291922_) + _tl9178691926_) (if '#t - (_K91771_ - _rest91772_ - (cons (_import-spec-source91703_ - _path91925_) - _r91773_)) - (_E9177691905_)) - (_E9177691905_))))) - (_E9177691905_)))) - (_E9177691905_))))) - (_E9177591927_)))) - (_import-spec-source91703_ - (lambda (_spath91768_) - (gx#core-import-nested-module _spath91768_ _stx91695_))) - (_import!91704_ - (lambda (_rbody91717_) - (letrec* ((_current-ctx91719_ + (_K91775_ + _rest91776_ + (cons (_import-spec-source91707_ + _path91929_) + _r91777_)) + (_E9178091909_)) + (_E9178091909_))))) + (_E9178091909_)))) + (_E9178091909_))))) + (_E9177991931_)))) + (_import-spec-source91707_ + (lambda (_spath91772_) + (gx#core-import-nested-module _spath91772_ _stx91699_))) + (_import!91708_ + (lambda (_rbody91721_) + (letrec* ((_current-ctx91723_ (gx#current-expander-context)) - (_deps91720_ (make-hash-table-eq)) - (_bind!91721_ - (lambda (_hd91766_) + (_deps91724_ (make-hash-table-eq)) + (_bind!91725_ + (lambda (_hd91770_) (gx#core-bind-import!__1 - _hd91766_ - _current-ctx91719_)))) - (let _lp91723_ ((_rest91725_ _rbody91717_) - (_body91726_ '())) - (let* ((_rest9172791735_ _rest91725_) - (_else9172991745_ + _hd91770_ + _current-ctx91723_)))) + (let _lp91727_ ((_rest91729_ _rbody91721_) + (_body91730_ '())) + (let* ((_rest9173191739_ _rest91729_) + (_else9173391749_ (lambda () (if (##structure-instance-of? - _current-ctx91719_ + _current-ctx91723_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx91719_ + _current-ctx91723_ (foldl1 cons (##unchecked-structure-ref - _current-ctx91719_ + _current-ctx91723_ '8 gx#module-context::t '#f) - _body91726_) + _body91730_) '8 gx#module-context::t '#f) '#!void) (hash-for-each - (lambda (_ctx91743_ _g94589_) - (gx#eval-module _ctx91743_)) - _deps91720_) - _body91726_)) - (_K9173191754_ - (lambda (_rest91748_ _hd91749_) + (lambda (_ctx91747_ _g94593_) + (gx#eval-module _ctx91747_)) + _deps91724_) + _body91730_)) + (_K9173591758_ + (lambda (_rest91752_ _hd91753_) (if (##structure-direct-instance-of? - _hd91749_ + _hd91753_ 'gx#module-import::t) (begin - (_bind!91721_ _hd91749_) + (_bind!91725_ _hd91753_) (if (and (fxpositive? (##unchecked-structure-ref - _hd91749_ + _hd91753_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd91749_ + _hd91753_ '1 gx#module-import::t '#f) @@ -3050,10 +3050,10 @@ gx#module-export::t '#f))) (hash-put! - _deps91720_ + _deps91724_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd91749_ + _hd91753_ '1 gx#module-import::t '#f) @@ -3063,155 +3063,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd91749_ + _hd91753_ 'gx#import-set::t) (begin (for-each - _bind!91721_ + _bind!91725_ (##unchecked-structure-ref - _hd91749_ + _hd91753_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd91749_ + _hd91753_ '2 gx#import-set::t '#f)) (hash-put! - _deps91720_ + _deps91724_ (##unchecked-structure-ref - _hd91749_ + _hd91753_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e91751_ + (let ((_$e91755_ (##structure-instance-of? - _hd91749_ + _hd91753_ 'gx#module-context::t))) - (if _$e91751_ - _$e91751_ + (if _$e91755_ + _$e91755_ (gx#raise-syntax-error '#f '"Unexpected import" - _stx91695_ - _hd91749_))))) - (_lp91723_ - _rest91748_ - (cons _hd91749_ _body91726_))))) - (if (##pair? _rest9172791735_) - (let ((_hd9173291757_ (##car _rest9172791735_)) - (_tl9173391759_ (##cdr _rest9172791735_))) - (let* ((_hd91762_ _hd9173291757_) - (_rest91764_ _tl9173391759_)) - (_K9173191754_ _rest91764_ _hd91762_))) - (_else9172991745_))))))) - (_expanded-import?91705_ - (lambda (_e91709_) - (let ((_$e91711_ + _stx91699_ + _hd91753_))))) + (_lp91727_ + _rest91752_ + (cons _hd91753_ _body91730_))))) + (if (##pair? _rest9173191739_) + (let ((_hd9173691761_ (##car _rest9173191739_)) + (_tl9173791763_ (##cdr _rest9173191739_))) + (let* ((_hd91766_ _hd9173691761_) + (_rest91768_ _tl9173791763_)) + (_K9173591758_ _rest91768_ _hd91766_))) + (_else9173391749_))))))) + (_expanded-import?91709_ + (lambda (_e91713_) + (let ((_$e91715_ (##structure-direct-instance-of? - _e91709_ + _e91713_ 'gx#import-set::t))) - (if _$e91711_ - _$e91711_ - (let ((_$e91714_ + (if _$e91715_ + _$e91715_ + (let ((_$e91718_ (##structure-direct-instance-of? - _e91709_ + _e91713_ 'gx#module-import::t))) - (if _$e91714_ - _$e91714_ + (if _$e91718_ + _$e91718_ (##structure-instance-of? - _e91709_ + _e91713_ 'gx#module-context::t)))))))) - (let ((_rbody91707_ + (let ((_rbody91711_ (gx#core-expand-import/export - _stx91695_ - _expanded-import?91705_ + _stx91699_ + _expanded-import?91709_ 'apply-import-expander gx#current-import-expander-phi - _expand191698_))) - (if _internal-expand?91696_ - (reverse _rbody91707_) + _expand191702_))) + (if _internal-expand?91700_ + (reverse _rbody91711_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!91704_ _rbody91707_)) - (gx#stx-source _stx91695_))))))) + (gx#core-cons '%#import (_import!91708_ _rbody91711_)) + (gx#stx-source _stx91699_))))))) (define gx#core-expand-import%__0 - (lambda (_stx92021_) - (let ((_internal-expand?92023_ '#f)) - (gx#core-expand-import%__% _stx92021_ _internal-expand?92023_)))) + (lambda (_stx92025_) + (let ((_internal-expand?92027_ '#f)) + (gx#core-expand-import%__% _stx92025_ _internal-expand?92027_)))) (define gx#core-expand-import% - (lambda _g94591_ - (let ((_g94590_ (##length _g94591_))) - (cond ((##fx= _g94590_ 1) - (apply (lambda (_stx92021_) - (gx#core-expand-import%__0 _stx92021_)) - _g94591_)) - ((##fx= _g94590_ 2) - (apply (lambda (_stx92025_ _internal-expand?92026_) + (lambda _g94595_ + (let ((_g94594_ (##length _g94595_))) + (cond ((##fx= _g94594_ 1) + (apply (lambda (_stx92025_) + (gx#core-expand-import%__0 _stx92025_)) + _g94595_)) + ((##fx= _g94594_ 2) + (apply (lambda (_stx92029_ _internal-expand?92030_) (gx#core-expand-import%__% - _stx92025_ - _internal-expand?92026_)) - _g94591_)) + _stx92029_ + _internal-expand?92030_)) + _g94595_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g94591_)))))) + _g94595_)))))) (define gx#core-import-nested-module - (lambda (_spath91622_ _where91623_) - (let* ((_e9162491631_ _spath91622_) - (_E9162691635_ + (lambda (_spath91626_ _where91627_) + (let* ((_e9162891635_ _spath91626_) + (_E9163091639_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9162491631_))) - (_E9162591690_ + _e9162891635_))) + (_E9162991694_ (lambda () - (if (gx#stx-pair? _e9162491631_) - (let ((_e9162791639_ (gx#syntax-e _e9162491631_))) - (let ((_hd9162891642_ (##car _e9162791639_)) - (_tl9162991644_ (##cdr _e9162791639_))) - (let* ((_origin91647_ _hd9162891642_) - (_sub91649_ _tl9162991644_)) + (if (gx#stx-pair? _e9162891635_) + (let ((_e9163191643_ (gx#syntax-e _e9162891635_))) + (let ((_hd9163291646_ (##car _e9163191643_)) + (_tl9163391648_ (##cdr _e9163191643_))) + (let* ((_origin91651_ _hd9163291646_) + (_sub91653_ _tl9163391648_)) (if '#t - (let ((_origin-ctx91651_ - (if (gx#stx-false? _origin91647_) + (let ((_origin-ctx91655_ + (if (gx#stx-false? _origin91651_) (gx#current-expander-context) (gx#import-module__0 - _origin91647_)))) - (let _lp91653_ ((_rest91655_ _sub91649_) - (_ctx91656_ - _origin-ctx91651_)) - (let* ((_e9165791664_ _rest91655_) - (_E9165991668_ - (lambda () _ctx91656_)) - (_E9165891686_ + _origin91651_)))) + (let _lp91657_ ((_rest91659_ _sub91653_) + (_ctx91660_ + _origin-ctx91655_)) + (let* ((_e9166191668_ _rest91659_) + (_E9166391672_ + (lambda () _ctx91660_)) + (_E9166291690_ (lambda () - (if (gx#stx-pair? _e9165791664_) - (let ((_e9166091672_ + (if (gx#stx-pair? _e9166191668_) + (let ((_e9166491676_ (gx#syntax-e - _e9165791664_))) - (let ((_hd9166191675_ - (##car _e9166091672_)) - (_tl9166291677_ - (##cdr _e9166091672_))) - (let* ((_id91680_ - _hd9166191675_) - (_rest91682_ - _tl9166291677_)) + _e9166191668_))) + (let ((_hd9166591679_ + (##car _e9166491676_)) + (_tl9166691681_ + (##cdr _e9166491676_))) + (let* ((_id91684_ + _hd9166591679_) + (_rest91686_ + _tl9166691681_)) (if '#t - (let ((_bind91684_ + (let ((_bind91688_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#resolve-identifier__% _id91680_ '0 _ctx91656_))) + (gx#resolve-identifier__% _id91684_ '0 _ctx91660_))) (if (and (##structure-direct-instance-of? - _bind91684_ + _bind91688_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind91684_ + _bind91688_ '4 gx#syntax-binding::t '#f) @@ -3220,821 +3220,821 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where91623_ - _spath91622_ - _id91680_)) - (_lp91653_ - _rest91682_ + _where91627_ + _spath91626_ + _id91684_)) + (_lp91657_ + _rest91686_ (##unchecked-structure-ref - _bind91684_ + _bind91688_ '4 gx#syntax-binding::t '#f))) - (_E9165991668_))))) + (_E9166391672_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9165991668_))))) - (_E9165891686_)))) - (_E9162691635_))))) - (_E9162691635_))))) - (_E9162591690_)))) + (_E9166391672_))))) + (_E9166291690_)))) + (_E9163091639_))))) + (_E9163091639_))))) + (_E9162991694_)))) (define gx#core-expand-import-source - (lambda (_hd91620_) + (lambda (_hd91624_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd91620_ '())) + (cons 'import-internal% (cons _hd91624_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx91128_ _internal-expand?91129_) - (letrec* ((_make-export__9452094521_ - (lambda (_bind91568_ _phi91569_ _ctx91570_ _name91571_) - (let* ((_key91573_ + (lambda (_stx91132_ _internal-expand?91133_) + (letrec* ((_make-export__9452494525_ + (lambda (_bind91572_ _phi91573_ _ctx91574_ _name91575_) + (let* ((_key91577_ (##unchecked-structure-ref - _bind91568_ + _bind91572_ '2 gx#binding::t '#f)) - (_export-key91575_ - (if _name91571_ - (gx#core-identifier-key _name91571_) - _key91573_))) + (_export-key91579_ + (if _name91575_ + (gx#core-identifier-key _name91575_) + _key91577_))) (##structure gx#module-export::t - _ctx91570_ - _key91573_ - _phi91569_ - _export-key91575_ - (let ((_$e91578_ + _ctx91574_ + _key91577_ + _phi91573_ + _export-key91579_ + (let ((_$e91582_ (##structure-instance-of? - _bind91568_ + _bind91572_ 'gx#extern-binding::t))) - (if _$e91578_ - _$e91578_ + (if _$e91582_ + _$e91582_ (##structure-direct-instance-of? - _bind91568_ + _bind91572_ 'gx#import-binding::t))))))) - (_make-export__0__9452294525_ - (lambda (_bind91584_) - (let* ((_phi91586_ (gx#current-export-expander-phi)) - (_ctx91588_ (gx#current-expander-context)) - (_name91590_ '#f)) - (_make-export__9452094521_ - _bind91584_ - _phi91586_ - _ctx91588_ - _name91590_)))) - (_make-export__1__9452394526_ - (lambda (_bind91592_ _phi91593_) - (let* ((_ctx91595_ (gx#current-expander-context)) - (_name91597_ '#f)) - (_make-export__9452094521_ - _bind91592_ - _phi91593_ - _ctx91595_ - _name91597_)))) - (_make-export__2__9452494527_ - (lambda (_bind91599_ _phi91600_ _ctx91601_) - (let ((_name91603_ '#f)) - (_make-export__9452094521_ - _bind91599_ - _phi91600_ - _ctx91601_ - _name91603_)))) - (_make-export91131_ - (lambda _g94593_ - (let ((_g94592_ (##length _g94593_))) - (cond ((##fx= _g94592_ 1) - (apply (lambda (_bind91584_) - (_make-export__0__9452294525_ - _bind91584_)) - _g94593_)) - ((##fx= _g94592_ 2) - (apply (lambda (_bind91592_ _phi91593_) - (_make-export__1__9452394526_ - _bind91592_ - _phi91593_)) - _g94593_)) - ((##fx= _g94592_ 3) - (apply (lambda (_bind91599_ - _phi91600_ - _ctx91601_) - (_make-export__2__9452494527_ - _bind91599_ - _phi91600_ - _ctx91601_)) - _g94593_)) - ((##fx= _g94592_ 4) - (apply (lambda (_bind91605_ - _phi91606_ - _ctx91607_ - _name91608_) - (_make-export__9452094521_ - _bind91605_ - _phi91606_ - _ctx91607_ - _name91608_)) - _g94593_)) + (_make-export__0__9452694529_ + (lambda (_bind91588_) + (let* ((_phi91590_ (gx#current-export-expander-phi)) + (_ctx91592_ (gx#current-expander-context)) + (_name91594_ '#f)) + (_make-export__9452494525_ + _bind91588_ + _phi91590_ + _ctx91592_ + _name91594_)))) + (_make-export__1__9452794530_ + (lambda (_bind91596_ _phi91597_) + (let* ((_ctx91599_ (gx#current-expander-context)) + (_name91601_ '#f)) + (_make-export__9452494525_ + _bind91596_ + _phi91597_ + _ctx91599_ + _name91601_)))) + (_make-export__2__9452894531_ + (lambda (_bind91603_ _phi91604_ _ctx91605_) + (let ((_name91607_ '#f)) + (_make-export__9452494525_ + _bind91603_ + _phi91604_ + _ctx91605_ + _name91607_)))) + (_make-export91135_ + (lambda _g94597_ + (let ((_g94596_ (##length _g94597_))) + (cond ((##fx= _g94596_ 1) + (apply (lambda (_bind91588_) + (_make-export__0__9452694529_ + _bind91588_)) + _g94597_)) + ((##fx= _g94596_ 2) + (apply (lambda (_bind91596_ _phi91597_) + (_make-export__1__9452794530_ + _bind91596_ + _phi91597_)) + _g94597_)) + ((##fx= _g94596_ 3) + (apply (lambda (_bind91603_ + _phi91604_ + _ctx91605_) + (_make-export__2__9452894531_ + _bind91603_ + _phi91604_ + _ctx91605_)) + _g94597_)) + ((##fx= _g94596_ 4) + (apply (lambda (_bind91609_ + _phi91610_ + _ctx91611_ + _name91612_) + (_make-export__9452494525_ + _bind91609_ + _phi91610_ + _ctx91611_ + _name91612_)) + _g94597_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g94593_)))))) - (_expand191132_ - (lambda (_hd91281_ _K91282_ _rest91283_ _r91284_) - (let* ((_e9128591317_ _hd91281_) - (_E9131291321_ + _g94597_)))))) + (_expand191136_ + (lambda (_hd91285_ _K91286_ _rest91287_ _r91288_) + (let* ((_e9128991321_ _hd91285_) + (_E9131691325_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx91128_ - _hd91281_))) - (_E9130291400_ + _stx91132_ + _hd91285_))) + (_E9130691404_ (lambda () - (if (gx#stx-pair? _e9128591317_) - (let ((_e9131391325_ - (gx#syntax-e _e9128591317_))) - (let ((_hd9131491328_ - (##car _e9131391325_)) - (_tl9131591330_ - (##cdr _e9131391325_))) - (if (eq? (gx#stx-e _hd9131491328_) + (if (gx#stx-pair? _e9128991321_) + (let ((_e9131791329_ + (gx#syntax-e _e9128991321_))) + (let ((_hd9131891332_ + (##car _e9131791329_)) + (_tl9131991334_ + (##cdr _e9131791329_))) + (if (eq? (gx#stx-e _hd9131891332_) 'import:) - (let ((_in91333_ _tl9131591330_)) - (if (gx#stx-list? _in91333_) - (let _lp91335_ ((_in-rest91337_ + (let ((_in91337_ _tl9131991334_)) + (if (gx#stx-list? _in91337_) + (let _lp91339_ ((_in-rest91341_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in91333_) - (_r91338_ _r91284_)) + _in91337_) + (_r91342_ _r91288_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e9133991346_ - _in-rest91337_) - (_E9134191350_ + (let* ((_e9134391350_ + _in-rest91341_) + (_E9134591354_ (lambda () - (_K91282_ - _rest91283_ - _r91338_))) - (_E9134091396_ + (_K91286_ + _rest91287_ + _r91342_))) + (_E9134491400_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e9133991346_) - (let ((_e9134291354_ (gx#syntax-e _e9133991346_))) - (let ((_hd9134391357_ (##car _e9134291354_)) - (_tl9134491359_ (##cdr _e9134291354_))) - (let* ((_hd91362_ _hd9134391357_) - (_in-rest91364_ _tl9134491359_)) + _e9134391350_) + (let ((_e9134691358_ (gx#syntax-e _e9134391350_))) + (let ((_hd9134791361_ (##car _e9134691358_)) + (_tl9134891363_ (##cdr _e9134691358_))) + (let* ((_hd91366_ _hd9134791361_) + (_in-rest91368_ _tl9134891363_)) (if '#t - (let ((_src91394_ - (if (gx#core-bound-module? _hd91362_) - (gx#syntax-local-e__0 _hd91362_) + (let ((_src91398_ + (if (gx#core-bound-module? _hd91366_) + (gx#syntax-local-e__0 _hd91366_) (if (gx#core-library-module-path? - _hd91362_) + _hd91366_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd91362_)) + _hd91366_)) (if (gx#core-library-relative-module-path? - _hd91362_) + _hd91366_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd91362_)) + _hd91366_)) (if (gx#stx-string? - _hd91362_) + _hd91366_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd91362_ + _hd91366_ (gx#stx-source - _stx91128_))) - (let* ((_e9136591372_ + _stx91132_))) + (let* ((_e9136991376_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd91362_) - (_E9136791376_ + _hd91366_) + (_E9137191380_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx91128_ - _hd91362_))) - (_E9136691390_ + _stx91132_ + _hd91366_))) + (_E9137091394_ (lambda () - (if (gx#stx-pair? _e9136591372_) - (let ((_e9136891380_ - (gx#syntax-e _e9136591372_))) - (let ((_hd9136991383_ (##car _e9136891380_)) - (_tl9137091385_ (##cdr _e9136891380_))) - (if (eq? (gx#stx-e _hd9136991383_) 'in:) - (let ((_spath91388_ _tl9137091385_)) + (if (gx#stx-pair? _e9136991376_) + (let ((_e9137291384_ + (gx#syntax-e _e9136991376_))) + (let ((_hd9137391387_ (##car _e9137291384_)) + (_tl9137491389_ (##cdr _e9137291384_))) + (if (eq? (gx#stx-e _hd9137391387_) 'in:) + (let ((_spath91392_ _tl9137491389_)) (if '#t (gx#core-import-nested-module - _spath91388_ - _stx91128_) - (_E9136791376_))) - (_E9136791376_)))) - (_E9136791376_))))) - (_E9136691390_)))))))) + _spath91392_ + _stx91132_) + (_E9137191380_))) + (_E9137191380_)))) + (_E9137191380_))))) + (_E9137091394_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp91335_ - _in-rest91364_ - (_export-imports91133_ - _src91394_ - _r91338_))) - (_E9134191350_))))) - (_E9134191350_))))) + (_lp91339_ + _in-rest91368_ + (_export-imports91137_ + _src91398_ + _r91342_))) + (_E9134591354_))))) + (_E9134591354_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9134091396_))) - (_E9131291321_))) - (_E9131291321_)))) - (_E9131291321_)))) - (_E9128991439_ + (_E9134491400_))) + (_E9131691325_))) + (_E9131691325_)))) + (_E9131691325_)))) + (_E9129391443_ (lambda () - (if (gx#stx-pair? _e9128591317_) - (let ((_e9130391404_ - (gx#syntax-e _e9128591317_))) - (let ((_hd9130491407_ - (##car _e9130391404_)) - (_tl9130591409_ - (##cdr _e9130391404_))) - (if (eq? (gx#stx-e _hd9130491407_) + (if (gx#stx-pair? _e9128991321_) + (let ((_e9130791408_ + (gx#syntax-e _e9128991321_))) + (let ((_hd9130891411_ + (##car _e9130791408_)) + (_tl9130991413_ + (##cdr _e9130791408_))) + (if (eq? (gx#stx-e _hd9130891411_) 'rename:) - (if (gx#stx-pair? _tl9130591409_) - (let ((_e9130691412_ + (if (gx#stx-pair? _tl9130991413_) + (let ((_e9131091416_ (gx#syntax-e - _tl9130591409_))) - (let ((_hd9130791415_ - (##car _e9130691412_)) - (_tl9130891417_ - (##cdr _e9130691412_))) - (let ((_id91420_ - _hd9130791415_)) + _tl9130991413_))) + (let ((_hd9131191419_ + (##car _e9131091416_)) + (_tl9131291421_ + (##cdr _e9131091416_))) + (let ((_id91424_ + _hd9131191419_)) (if (gx#stx-pair? - _tl9130891417_) - (let ((_e9130991422_ + _tl9131291421_) + (let ((_e9131391426_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl9130891417_))) - (let ((_hd9131091425_ (##car _e9130991422_)) - (_tl9131191427_ (##cdr _e9130991422_))) - (let ((_name91430_ _hd9131091425_)) - (if (gx#stx-null? _tl9131191427_) + _tl9131291421_))) + (let ((_hd9131491429_ (##car _e9131391426_)) + (_tl9131591431_ (##cdr _e9131391426_))) + (let ((_name91434_ _hd9131491429_)) + (if (gx#stx-null? _tl9131591431_) (if '#t - (let* ((_phi91432_ + (let* ((_phi91436_ (gx#current-export-expander-phi)) - (_$e91434_ + (_$e91438_ (gx#core-resolve-identifier__1 - _id91420_ - _phi91432_))) - (if _$e91434_ - ((lambda (_bind91437_) - (_K91282_ - _rest91283_ - (cons (_make-export__9452094521_ - _bind91437_ - _phi91432_ + _id91424_ + _phi91436_))) + (if _$e91438_ + ((lambda (_bind91441_) + (_K91286_ + _rest91287_ + (cons (_make-export__9452494525_ + _bind91441_ + _phi91436_ (gx#current-expander-context) - _name91430_) - _r91284_))) - _$e91434_) + _name91434_) + _r91288_))) + _$e91438_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx91128_ - _hd91281_ - _id91420_))) - (_E9130291400_)) - (_E9130291400_))))) - (_E9130291400_))))) + _stx91132_ + _hd91285_ + _id91424_))) + (_E9130691404_)) + (_E9130691404_))))) + (_E9130691404_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9130291400_)) - (_E9130291400_)))) - (_E9130291400_)))) - (_E9128891488_ + (_E9130691404_)) + (_E9130691404_)))) + (_E9130691404_)))) + (_E9129291492_ (lambda () - (if (gx#stx-pair? _e9128591317_) - (let ((_e9129091443_ - (gx#syntax-e _e9128591317_))) - (let ((_hd9129191446_ - (##car _e9129091443_)) - (_tl9129291448_ - (##cdr _e9129091443_))) - (if (eq? (gx#stx-e _hd9129191446_) + (if (gx#stx-pair? _e9128991321_) + (let ((_e9129491447_ + (gx#syntax-e _e9128991321_))) + (let ((_hd9129591450_ + (##car _e9129491447_)) + (_tl9129691452_ + (##cdr _e9129491447_))) + (if (eq? (gx#stx-e _hd9129591450_) 'spec:) - (if (gx#stx-pair? _tl9129291448_) - (let ((_e9129391451_ + (if (gx#stx-pair? _tl9129691452_) + (let ((_e9129791455_ (gx#syntax-e - _tl9129291448_))) - (let ((_hd9129491454_ - (##car _e9129391451_)) - (_tl9129591456_ - (##cdr _e9129391451_))) - (let ((_phi91459_ - _hd9129491454_)) + _tl9129691452_))) + (let ((_hd9129891458_ + (##car _e9129791455_)) + (_tl9129991460_ + (##cdr _e9129791455_))) + (let ((_phi91463_ + _hd9129891458_)) (if (gx#stx-pair? - _tl9129591456_) - (let ((_e9129691461_ + _tl9129991460_) + (let ((_e9130091465_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl9129591456_))) - (let ((_hd9129791464_ (##car _e9129691461_)) - (_tl9129891466_ (##cdr _e9129691461_))) - (let ((_id91469_ _hd9129791464_)) - (if (gx#stx-pair? _tl9129891466_) - (let ((_e9129991471_ (gx#syntax-e _tl9129891466_))) - (let ((_hd9130091474_ (##car _e9129991471_)) - (_tl9130191476_ (##cdr _e9129991471_))) - (let ((_name91479_ _hd9130091474_)) - (if (gx#stx-null? _tl9130191476_) - (if (and (gx#stx-fixnum? _phi91459_) - (gx#identifier? _id91469_) - (gx#identifier? _name91479_)) - (let* ((_phi91481_ - (gx#stx-e _phi91459_)) - (_$e91483_ + _tl9129991460_))) + (let ((_hd9130191468_ (##car _e9130091465_)) + (_tl9130291470_ (##cdr _e9130091465_))) + (let ((_id91473_ _hd9130191468_)) + (if (gx#stx-pair? _tl9130291470_) + (let ((_e9130391475_ (gx#syntax-e _tl9130291470_))) + (let ((_hd9130491478_ (##car _e9130391475_)) + (_tl9130591480_ (##cdr _e9130391475_))) + (let ((_name91483_ _hd9130491478_)) + (if (gx#stx-null? _tl9130591480_) + (if (and (gx#stx-fixnum? _phi91463_) + (gx#identifier? _id91473_) + (gx#identifier? _name91483_)) + (let* ((_phi91485_ + (gx#stx-e _phi91463_)) + (_$e91487_ (gx#core-resolve-identifier__1 - _id91469_ - _phi91481_))) - (if _$e91483_ - ((lambda (_bind91486_) - (_K91282_ - _rest91283_ - (cons (_make-export__9452094521_ - _bind91486_ - _phi91481_ + _id91473_ + _phi91485_))) + (if _$e91487_ + ((lambda (_bind91490_) + (_K91286_ + _rest91287_ + (cons (_make-export__9452494525_ + _bind91490_ + _phi91485_ (gx#current-expander-context) - _name91479_) - _r91284_))) - _$e91483_) + _name91483_) + _r91288_))) + _$e91487_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx91128_ - _hd91281_ - _id91469_))) - (_E9128991439_)) - (_E9128991439_))))) - (_E9128991439_))))) - (_E9128991439_))))) + _stx91132_ + _hd91285_ + _id91473_))) + (_E9129391443_)) + (_E9129391443_))))) + (_E9129391443_))))) + (_E9129391443_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9128991439_)) - (_E9128991439_)))) - (_E9128991439_)))) - (_E9128791499_ + (_E9129391443_)) + (_E9129391443_)))) + (_E9129391443_)))) + (_E9129191503_ (lambda () - (let ((_id91492_ _e9128591317_)) - (if (gx#identifier? _id91492_) - (let ((_$e91494_ + (let ((_id91496_ _e9128991321_)) + (if (gx#identifier? _id91496_) + (let ((_$e91498_ (gx#core-resolve-identifier__1 - _id91492_ + _id91496_ (gx#current-export-expander-phi)))) - (if _$e91494_ - ((lambda (_bind91497_) - (_K91282_ - _rest91283_ - (cons (_make-export__0__9452294525_ - _bind91497_) - _r91284_))) - _$e91494_) + (if _$e91498_ + ((lambda (_bind91501_) + (_K91286_ + _rest91287_ + (cons (_make-export__0__9452694529_ + _bind91501_) + _r91288_))) + _$e91498_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx91128_ - _hd91281_))) - (_E9128891488_))))) - (_E9128691563_ + _stx91132_ + _hd91285_))) + (_E9129291492_))))) + (_E9129091567_ (lambda () - (if (eq? (gx#stx-e _e9128591317_) '#t) + (if (eq? (gx#stx-e _e9128991321_) '#t) (if '#t - (let* ((_current-ctx91503_ + (let* ((_current-ctx91507_ (gx#current-expander-context)) - (_current-phi91505_ + (_current-phi91509_ (gx#current-export-expander-phi)) - (_phi-ctx91507_ + (_phi-ctx91511_ (gx#core-context-shift - _current-ctx91503_ - _current-phi91505_)) - (_phi-bind91509_ + _current-ctx91507_ + _current-phi91509_)) + (_phi-bind91513_ (hash->list (##unchecked-structure-ref - _phi-ctx91507_ + _phi-ctx91511_ '2 gx#expander-context::t '#f)))) - (let _lp91512_ ((_bind-rest91514_ - _phi-bind91509_) - (_set91515_ '())) - (let* ((_bind-rest9151691526_ - _bind-rest91514_) - (_else9151891534_ + (let _lp91516_ ((_bind-rest91518_ + _phi-bind91513_) + (_set91519_ '())) + (let* ((_bind-rest9152091530_ + _bind-rest91518_) + (_else9152291538_ (lambda () - (_K91282_ - _rest91283_ + (_K91286_ + _rest91287_ (cons (##structure gx#export-set::t '#f - _current-phi91505_ - _set91515_) - _r91284_)))) - (_K9152091544_ - (lambda (_bind-rest91537_ - _bind91538_ - _key91539_) + _current-phi91509_ + _set91519_) + _r91288_)))) + (_K9152491548_ + (lambda (_bind-rest91541_ + _bind91542_ + _key91543_) (if (or (##structure-direct-instance-of? - _bind91538_ + _bind91542_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind91538_)) - (_lp91512_ - _bind-rest91537_ - _set91515_) - (_lp91512_ - _bind-rest91537_ - (cons (_make-export__2__9452494527_ + _bind91542_)) + (_lp91516_ + _bind-rest91541_ + _set91519_) + (_lp91516_ + _bind-rest91541_ + (cons (_make-export__2__9452894531_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind91538_ - _current-phi91505_ - _current-ctx91503_) - _set91515_)))))) + _bind91542_ + _current-phi91509_ + _current-ctx91507_) + _set91519_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest9151691526_) - (let ((_hd9152191547_ - (##car _bind-rest9151691526_)) - (_tl9152291549_ - (##cdr _bind-rest9151691526_))) - (if (##pair? _hd9152191547_) - (let ((_hd9152391552_ - (##car _hd9152191547_)) - (_tl9152491554_ - (##cdr _hd9152191547_))) - (let* ((_key91557_ + (if (##pair? _bind-rest9152091530_) + (let ((_hd9152591551_ + (##car _bind-rest9152091530_)) + (_tl9152691553_ + (##cdr _bind-rest9152091530_))) + (if (##pair? _hd9152591551_) + (let ((_hd9152791556_ + (##car _hd9152591551_)) + (_tl9152891558_ + (##cdr _hd9152591551_))) + (let* ((_key91561_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9152391552_) - (_bind91559_ _tl9152491554_) - (_bind-rest91561_ _tl9152291549_)) - (_K9152091544_ _bind-rest91561_ _bind91559_ _key91557_))) - (_else9151891534_))) + _hd9152791556_) + (_bind91563_ _tl9152891558_) + (_bind-rest91565_ _tl9152691553_)) + (_K9152491548_ _bind-rest91565_ _bind91563_ _key91561_))) + (_else9152291538_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else9151891534_))))) - (_E9128791499_)) - (_E9128791499_))))) - (_E9128691563_)))) - (_export-imports91133_ - (lambda (_src91157_ _r91158_) - (letrec* ((_current-ctx91160_ + (_else9152291538_))))) + (_E9129191503_)) + (_E9129191503_))))) + (_E9129091567_)))) + (_export-imports91137_ + (lambda (_src91161_ _r91162_) + (letrec* ((_current-ctx91164_ (gx#current-expander-context)) - (_current-phi91161_ + (_current-phi91165_ (gx#current-export-expander-phi)) - (_import->export91162_ - (lambda (_in91243_) - (let* ((_in9124491252_ _in91243_) - (_E9124691256_ + (_import->export91166_ + (lambda (_in91247_) + (let* ((_in9124891256_ _in91247_) + (_E9125091260_ (lambda () (error '"No clause matching" - _in9124491252_))) - (_K9124791263_ - (lambda (_phi91259_ - _key91260_ - _out91261_) + _in9124891256_))) + (_K9125191267_ + (lambda (_phi91263_ + _key91264_ + _out91265_) (##structure gx#module-export::t - _current-ctx91160_ - _key91260_ - _phi91259_ - _key91260_ + _current-ctx91164_ + _key91264_ + _phi91263_ + _key91264_ '#t)))) (if (##structure-direct-instance-of? - _in9124491252_ + _in9124891256_ 'gx#module-import::t) - (let* ((_e9124891266_ + (let* ((_e9125291270_ (##unchecked-structure-ref - _in9124491252_ + _in9124891256_ '1 gx#module-import::t '#f)) - (_out91269_ _e9124891266_) - (_e9124991271_ + (_out91273_ _e9125291270_) + (_e9125391275_ (##unchecked-structure-ref - _in9124491252_ + _in9124891256_ '2 gx#module-import::t '#f)) - (_key91274_ _e9124991271_) - (_e9125091276_ + (_key91278_ _e9125391275_) + (_e9125491280_ (##unchecked-structure-ref - _in9124491252_ + _in9124891256_ '3 gx#module-import::t '#f)) - (_phi91279_ _e9125091276_)) - (_K9124791263_ - _phi91279_ - _key91274_ - _out91269_)) - (_E9124691256_))))) - (_fold-e91163_ - (lambda (_in91165_ _r91166_) - (let* ((_in9116791181_ _in91165_) - (_else9117091189_ - (lambda () _r91166_))) - (let ((_K9117691225_ - (lambda (_phi91221_ - _key91222_ - _out91223_) - (if (and (fx= _phi91221_ - _current-phi91161_) - (eq? _src91157_ + (_phi91283_ _e9125491280_)) + (_K9125191267_ + _phi91283_ + _key91278_ + _out91273_)) + (_E9125091260_))))) + (_fold-e91167_ + (lambda (_in91169_ _r91170_) + (let* ((_in9117191185_ _in91169_) + (_else9117491193_ + (lambda () _r91170_))) + (let ((_K9118091229_ + (lambda (_phi91225_ + _key91226_ + _out91227_) + (if (and (fx= _phi91225_ + _current-phi91165_) + (eq? _src91161_ (##unchecked-structure-ref - _out91223_ + _out91227_ '1 gx#module-export::t '#f))) - (cons (_import->export91162_ - _in91165_) - _r91166_) - _r91166_))) - (_K9117291200_ - (lambda (_imports91193_ - _phi91194_ - _ctx91195_) - (if (and (fx= _phi91194_ - _current-phi91161_) - (eq? _src91157_ - _ctx91195_)) - (foldl1 (lambda (_in91197_ + (cons (_import->export91166_ + _in91169_) + _r91170_) + _r91170_))) + (_K9117691204_ + (lambda (_imports91197_ + _phi91198_ + _ctx91199_) + (if (and (fx= _phi91198_ + _current-phi91165_) + (eq? _src91161_ + _ctx91199_)) + (foldl1 (lambda (_in91201_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r91198_) - (cons (_import->export91162_ _in91197_) _r91198_)) - _r91166_ - _imports91193_) + _r91202_) + (cons (_import->export91166_ _in91201_) _r91202_)) + _r91170_ + _imports91197_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r91166_)))) - (let ((_try-match9116991218_ + _r91170_)))) + (let ((_try-match9117391222_ (lambda () (if (##structure-direct-instance-of? - _in9116791181_ + _in9117191185_ 'gx#import-set::t) - (let* ((_e9117391203_ + (let* ((_e9117791207_ (##unchecked-structure-ref - _in9116791181_ + _in9117191185_ '1 gx#import-set::t '#f)) - (_e9117491208_ + (_e9117891212_ (##unchecked-structure-ref - _in9116791181_ + _in9117191185_ '2 gx#import-set::t '#f)) - (_e9117591213_ + (_e9117991217_ (##unchecked-structure-ref - _in9116791181_ + _in9117191185_ '3 gx#import-set::t '#f))) - (let ((_ctx91206_ - _e9117391203_) - (_phi91211_ - _e9117491208_) - (_imports91216_ - _e9117591213_)) - (_K9117291200_ - _imports91216_ - _phi91211_ - _ctx91206_))) - (_else9117091189_))))) + (let ((_ctx91210_ + _e9117791207_) + (_phi91215_ + _e9117891212_) + (_imports91220_ + _e9117991217_)) + (_K9117691204_ + _imports91220_ + _phi91215_ + _ctx91210_))) + (_else9117491193_))))) (if (##structure-direct-instance-of? - _in9116791181_ + _in9117191185_ 'gx#module-import::t) - (let* ((_e9117791228_ + (let* ((_e9118191232_ (##unchecked-structure-ref - _in9116791181_ + _in9117191185_ '1 gx#module-import::t '#f)) - (_e9117891233_ + (_e9118291237_ (##unchecked-structure-ref - _in9116791181_ + _in9117191185_ '2 gx#module-import::t '#f)) - (_e9117991238_ + (_e9118391242_ (##unchecked-structure-ref - _in9116791181_ + _in9117191185_ '3 gx#module-import::t '#f))) - (let ((_out91231_ _e9117791228_) - (_key91236_ _e9117891233_) - (_phi91241_ _e9117991238_)) - (_K9117691225_ - _phi91241_ - _key91236_ - _out91231_))) - (_try-match9116991218_)))))))) + (let ((_out91235_ _e9118191232_) + (_key91240_ _e9118291237_) + (_phi91245_ _e9118391242_)) + (_K9118091229_ + _phi91245_ + _key91240_ + _out91235_))) + (_try-match9117391222_)))))))) (cons (##structure gx#export-set::t - _src91157_ - _current-phi91161_ - (foldl1 _fold-e91163_ + _src91161_ + _current-phi91165_ + (foldl1 _fold-e91167_ '() (##unchecked-structure-ref - _current-ctx91160_ + _current-ctx91164_ '8 gx#module-context::t '#f))) - _r91158_)))) - (_export!91134_ - (lambda (_rbody91147_) - (letrec* ((_current-ctx91149_ + _r91162_)))) + (_export!91138_ + (lambda (_rbody91151_) + (letrec* ((_current-ctx91153_ (gx#current-expander-context)) - (_fold-e91150_ - (lambda (_out91154_ _r91155_) + (_fold-e91154_ + (lambda (_out91158_ _r91159_) (if (##structure-direct-instance-of? - _out91154_ + _out91158_ 'gx#module-export::t) - (cons _out91154_ _r91155_) + (cons _out91158_ _r91159_) (if (##structure-direct-instance-of? - _out91154_ + _out91158_ 'gx#export-set::t) (foldl1 cons - _r91155_ + _r91159_ (##unchecked-structure-ref - _out91154_ + _out91158_ '3 gx#export-set::t '#f)) - _r91155_))))) - (let ((_body91152_ (reverse _rbody91147_))) + _r91159_))))) + (let ((_body91156_ (reverse _rbody91151_))) (##unchecked-structure-set! - _current-ctx91149_ - (foldl1 _fold-e91150_ + _current-ctx91153_ + (foldl1 _fold-e91154_ (##unchecked-structure-ref - _current-ctx91149_ + _current-ctx91153_ '9 gx#module-context::t '#f) - _body91152_) + _body91156_) '9 gx#module-context::t '#f) - _body91152_)))) - (_expanded-export?91135_ - (lambda (_e91142_) - (let ((_$e91144_ + _body91156_)))) + (_expanded-export?91139_ + (lambda (_e91146_) + (let ((_$e91148_ (##structure-direct-instance-of? - _e91142_ + _e91146_ 'gx#module-export::t))) - (if _$e91144_ - _$e91144_ + (if _$e91148_ + _$e91148_ (##structure-direct-instance-of? - _e91142_ + _e91146_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?91129_) - (let ((_rbody91140_ + _internal-expand?91133_) + (let ((_rbody91144_ (gx#core-expand-import/export - _stx91128_ - _expanded-export?91135_ + _stx91132_ + _expanded-export?91139_ 'apply-export-expander gx#current-export-expander-phi - _expand191132_))) - (if _internal-expand?91129_ - (reverse _rbody91140_) + _expand191136_))) + (if _internal-expand?91133_ + (reverse _rbody91144_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!91134_ _rbody91140_)) - (gx#stx-source _stx91128_)))) + (gx#core-cons '%#export (_export!91138_ _rbody91144_)) + (gx#stx-source _stx91132_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx91128_)) + (gx#stx-source _stx91132_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx91128_)))))) + _stx91132_)))))) (define gx#core-expand-export%__0 - (lambda (_stx91613_) - (let ((_internal-expand?91615_ '#f)) - (gx#core-expand-export%__% _stx91613_ _internal-expand?91615_)))) + (lambda (_stx91617_) + (let ((_internal-expand?91619_ '#f)) + (gx#core-expand-export%__% _stx91617_ _internal-expand?91619_)))) (define gx#core-expand-export% - (lambda _g94595_ - (let ((_g94594_ (##length _g94595_))) - (cond ((##fx= _g94594_ 1) - (apply (lambda (_stx91613_) - (gx#core-expand-export%__0 _stx91613_)) - _g94595_)) - ((##fx= _g94594_ 2) - (apply (lambda (_stx91617_ _internal-expand?91618_) + (lambda _g94599_ + (let ((_g94598_ (##length _g94599_))) + (cond ((##fx= _g94598_ 1) + (apply (lambda (_stx91617_) + (gx#core-expand-export%__0 _stx91617_)) + _g94599_)) + ((##fx= _g94598_ 2) + (apply (lambda (_stx91621_ _internal-expand?91622_) (gx#core-expand-export%__% - _stx91617_ - _internal-expand?91618_)) - _g94595_)) + _stx91621_ + _internal-expand?91622_)) + _g94599_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g94595_)))))) + _g94599_)))))) (define gx#core-expand-export-source - (lambda (_hd91125_) + (lambda (_hd91129_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd91125_ '())) + (cons 'export-macro% (cons _hd91129_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx91095_) - (let* ((_e9109691103_ _stx91095_) - (_E9109891107_ + (lambda (_stx91099_) + (let* ((_e9110091107_ _stx91099_) + (_E9110291111_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9109691103_))) - (_E9109791121_ + _e9110091107_))) + (_E9110191125_ (lambda () - (if (gx#stx-pair? _e9109691103_) - (let ((_e9109991111_ (gx#syntax-e _e9109691103_))) - (let ((_hd9110091114_ (##car _e9109991111_)) - (_tl9110191116_ (##cdr _e9109991111_))) - (let ((_body91119_ _tl9110191116_)) - (if (gx#identifier-list? _body91119_) + (if (gx#stx-pair? _e9110091107_) + (let ((_e9110391115_ (gx#syntax-e _e9110091107_))) + (let ((_hd9110491118_ (##car _e9110391115_)) + (_tl9110591120_ (##cdr _e9110391115_))) + (let ((_body91123_ _tl9110591120_)) + (if (gx#identifier-list? _body91123_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body91119_) + _body91123_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body91119_)) - (gx#stx-source _stx91095_))) - (_E9109891107_))))) - (_E9109891107_))))) - (_E9109791121_)))) + _body91123_)) + (gx#stx-source _stx91099_))) + (_E9110291111_))))) + (_E9110291111_))))) + (_E9110191125_)))) (define gx#core-bind-feature!__% - (lambda (_id91061_ _private?91062_ _phi91063_ _ctx91064_) + (lambda (_id91065_ _private?91066_ _phi91067_ _ctx91068_) (gx#core-bind-syntax!__% - _id91061_ - ((if _private?91062_ + _id91065_ + ((if _private?91066_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id91061_)) - _private?91062_ - _phi91063_ - _ctx91064_))) + (gx#stx-e _id91065_)) + _private?91066_ + _phi91067_ + _ctx91068_))) (define gx#core-bind-feature!__0 - (lambda (_id91069_) - (let* ((_private?91071_ '#f) - (_phi91073_ (gx#current-expander-phi)) - (_ctx91075_ (gx#current-expander-context))) + (lambda (_id91073_) + (let* ((_private?91075_ '#f) + (_phi91077_ (gx#current-expander-phi)) + (_ctx91079_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id91069_ - _private?91071_ - _phi91073_ - _ctx91075_)))) + _id91073_ + _private?91075_ + _phi91077_ + _ctx91079_)))) (define gx#core-bind-feature!__1 - (lambda (_id91077_ _private?91078_) - (let* ((_phi91080_ (gx#current-expander-phi)) - (_ctx91082_ (gx#current-expander-context))) + (lambda (_id91081_ _private?91082_) + (let* ((_phi91084_ (gx#current-expander-phi)) + (_ctx91086_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id91077_ - _private?91078_ - _phi91080_ - _ctx91082_)))) + _id91081_ + _private?91082_ + _phi91084_ + _ctx91086_)))) (define gx#core-bind-feature!__2 - (lambda (_id91084_ _private?91085_ _phi91086_) - (let ((_ctx91088_ (gx#current-expander-context))) + (lambda (_id91088_ _private?91089_ _phi91090_) + (let ((_ctx91092_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id91084_ - _private?91085_ - _phi91086_ - _ctx91088_)))) + _id91088_ + _private?91089_ + _phi91090_ + _ctx91092_)))) (define gx#core-bind-feature! - (lambda _g94597_ - (let ((_g94596_ (##length _g94597_))) - (cond ((##fx= _g94596_ 1) - (apply (lambda (_id91069_) - (gx#core-bind-feature!__0 _id91069_)) - _g94597_)) - ((##fx= _g94596_ 2) - (apply (lambda (_id91077_ _private?91078_) - (gx#core-bind-feature!__1 _id91077_ _private?91078_)) - _g94597_)) - ((##fx= _g94596_ 3) - (apply (lambda (_id91084_ _private?91085_ _phi91086_) + (lambda _g94601_ + (let ((_g94600_ (##length _g94601_))) + (cond ((##fx= _g94600_ 1) + (apply (lambda (_id91073_) + (gx#core-bind-feature!__0 _id91073_)) + _g94601_)) + ((##fx= _g94600_ 2) + (apply (lambda (_id91081_ _private?91082_) + (gx#core-bind-feature!__1 _id91081_ _private?91082_)) + _g94601_)) + ((##fx= _g94600_ 3) + (apply (lambda (_id91088_ _private?91089_ _phi91090_) (gx#core-bind-feature!__2 - _id91084_ - _private?91085_ - _phi91086_)) - _g94597_)) - ((##fx= _g94596_ 4) - (apply (lambda (_id91090_ - _private?91091_ - _phi91092_ - _ctx91093_) + _id91088_ + _private?91089_ + _phi91090_)) + _g94601_)) + ((##fx= _g94600_ 4) + (apply (lambda (_id91094_ + _private?91095_ + _phi91096_ + _ctx91097_) (gx#core-bind-feature!__% - _id91090_ - _private?91091_ - _phi91092_ - _ctx91093_)) - _g94597_)) + _id91094_ + _private?91095_ + _phi91096_ + _ctx91097_)) + _g94601_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g94597_)))))))) + _g94601_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 4cd22969e..47df75582 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]#_g94599_| + (define |gx[1]#_g94603_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94601_| + (define |gx[1]#_g94605_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g94603_| + (define |gx[1]#_g94607_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94610_| + (define |gx[1]#_g94614_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94613_| + (define |gx[1]#_g94617_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94616_| + (define |gx[1]#_g94620_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g94619_| + (define |gx[1]#_g94623_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94626_| + (define |gx[1]#_g94630_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94629_| + (define |gx[1]#_g94633_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94632_| + (define |gx[1]#_g94636_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94635_| + (define |gx[1]#_g94639_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94642_| + (define |gx[1]#_g94646_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94645_| + (define |gx[1]#_g94649_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94648_| + (define |gx[1]#_g94652_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g94651_| + (define |gx[1]#_g94655_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94658_| + (define |gx[1]#_g94662_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94661_| + (define |gx[1]#_g94665_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94664_| + (define |gx[1]#_g94668_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94667_| + (define |gx[1]#_g94671_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94669_| + (define |gx[1]#_g94673_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94671_| + (define |gx[1]#_g94675_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g94673_| + (define |gx[1]#_g94677_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94681_| + (define |gx[1]#_g94685_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94684_| + (define |gx[1]#_g94688_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g94687_| + (define |gx[1]#_g94691_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94690_| + (define |gx[1]#_g94694_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g94693_| + (define |gx[1]#_g94697_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94701_| + (define |gx[1]#_g94705_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94704_| + (define |gx[1]#_g94708_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94707_| + (define |gx[1]#_g94711_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94710_| + (define |gx[1]#_g94714_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94713_| + (define |gx[1]#_g94717_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94721_| + (define |gx[1]#_g94725_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94724_| + (define |gx[1]#_g94728_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g94727_| + (define |gx[1]#_g94731_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94730_| + (define |gx[1]#_g94734_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g94733_| + (define |gx[1]#_g94737_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94741_| + (define |gx[1]#_g94745_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94744_| + (define |gx[1]#_g94748_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94747_| + (define |gx[1]#_g94751_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94750_| + (define |gx[1]#_g94754_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94753_| + (define |gx[1]#_g94757_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94755_| + (define |gx[1]#_g94759_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94757_| + (define |gx[1]#_g94761_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g94759_| + (define |gx[1]#_g94763_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94765_| + (define |gx[1]#_g94769_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g94768_| + (define |gx[1]#_g94772_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94771_| + (define |gx[1]#_g94775_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94777_| + (define |gx[1]#_g94781_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94780_| + (define |gx[1]#_g94784_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94783_| + (define |gx[1]#_g94787_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94789_| + (define |gx[1]#_g94793_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g94792_| + (define |gx[1]#_g94796_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94795_| + (define |gx[1]#_g94799_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94801_| + (define |gx[1]#_g94805_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94804_| + (define |gx[1]#_g94808_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94807_| + (define |gx[1]#_g94811_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94809_| + (define |gx[1]#_g94813_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94811_| + (define |gx[1]#_g94815_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g94813_| + (define |gx[1]#_g94817_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94819_| + (define |gx[1]#_g94823_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g94822_| + (define |gx[1]#_g94826_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94825_| + (define |gx[1]#_g94829_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94831_| + (define |gx[1]#_g94835_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94834_| + (define |gx[1]#_g94838_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94837_| + (define |gx[1]#_g94841_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94843_| + (define |gx[1]#_g94847_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g94846_| + (define |gx[1]#_g94850_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94849_| + (define |gx[1]#_g94853_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94855_| + (define |gx[1]#_g94859_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94858_| + (define |gx[1]#_g94862_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94861_| + (define |gx[1]#_g94865_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94864_| + (define |gx[1]#_g94868_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94866_| + (define |gx[1]#_g94870_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94868_| + (define |gx[1]#_g94872_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94870_| + (define |gx[1]#_g94874_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94876_| + (define |gx[1]#_g94880_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94879_| + (define |gx[1]#_g94883_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94882_| + (define |gx[1]#_g94886_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94888_| + (define |gx[1]#_g94892_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94891_| + (define |gx[1]#_g94895_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94894_| + (define |gx[1]#_g94898_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94900_| + (define |gx[1]#_g94904_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94903_| + (define |gx[1]#_g94907_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94906_| + (define |gx[1]#_g94910_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94912_| + (define |gx[1]#_g94916_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94915_| + (define |gx[1]#_g94919_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94918_| + (define |gx[1]#_g94922_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94922_| + (define |gx[1]#_g94926_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94924_| + (define |gx[1]#_g94928_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94926_| + (define |gx[1]#_g94930_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94932_| + (define |gx[1]#_g94936_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94935_| + (define |gx[1]#_g94939_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94938_| + (define |gx[1]#_g94942_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94944_| + (define |gx[1]#_g94948_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94947_| + (define |gx[1]#_g94951_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94950_| + (define |gx[1]#_g94954_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94956_| + (define |gx[1]#_g94960_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94959_| + (define |gx[1]#_g94963_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94962_| + (define |gx[1]#_g94966_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94968_| + (define |gx[1]#_g94972_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94971_| + (define |gx[1]#_g94975_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94974_| + (define |gx[1]#_g94978_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94978_| + (define |gx[1]#_g94982_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94980_| + (define |gx[1]#_g94984_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94982_| + (define |gx[1]#_g94986_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94984_| + (define |gx[1]#_g94988_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94986_| + (define |gx[1]#_g94990_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94992_| + (define |gx[1]#_g94996_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94995_| + (define |gx[1]#_g94999_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94998_| + (define |gx[1]#_g95002_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g95004_| + (define |gx[1]#_g95008_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95007_| + (define |gx[1]#_g95011_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95010_| + (define |gx[1]#_g95014_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95016_| + (define |gx[1]#_g95020_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g95019_| + (define |gx[1]#_g95023_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g95022_| + (define |gx[1]#_g95026_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g95028_| + (define |gx[1]#_g95032_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95031_| + (define |gx[1]#_g95035_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95034_| + (define |gx[1]#_g95038_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj94552 + (let ((__obj94556 (let () (declare (not safe)) (##structure @@ -866,7 +866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94552 + __obj94556 'gx#module-import::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -874,7 +874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94552 + __obj94556 'module-import '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -882,7 +882,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94552 + __obj94556 '(source name phi weak?) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -890,7 +890,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94552 + __obj94556 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -898,7 +898,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94552 + __obj94556 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -906,7 +906,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94552 + __obj94556 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -914,7 +914,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94552 + __obj94556 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -922,178 +922,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94552 + __obj94556 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94598 |gx[1]#_g94599_|)) + (let ((__tmp94602 |gx[1]#_g94603_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94552 - __tmp94598 + __obj94556 + __tmp94602 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94600 |gx[1]#_g94601_|)) + (let ((__tmp94604 |gx[1]#_g94605_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94552 - __tmp94600 + __obj94556 + __tmp94604 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94602 |gx[1]#_g94603_|)) + (let ((__tmp94606 |gx[1]#_g94607_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94552 - __tmp94602 + __obj94556 + __tmp94606 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94604 - (let ((__tmp94617 - (let ((__tmp94618 |gx[1]#_g94619_|)) + (let ((__tmp94608 + (let ((__tmp94621 + (let ((__tmp94622 |gx[1]#_g94623_|)) (declare (not safe)) - (cons 'source __tmp94618))) - (__tmp94605 - (let ((__tmp94614 - (let ((__tmp94615 |gx[1]#_g94616_|)) + (cons 'source __tmp94622))) + (__tmp94609 + (let ((__tmp94618 + (let ((__tmp94619 |gx[1]#_g94620_|)) (declare (not safe)) - (cons 'name __tmp94615))) - (__tmp94606 - (let ((__tmp94611 - (let ((__tmp94612 |gx[1]#_g94613_|)) + (cons 'name __tmp94619))) + (__tmp94610 + (let ((__tmp94615 + (let ((__tmp94616 |gx[1]#_g94617_|)) (declare (not safe)) - (cons 'phi __tmp94612))) - (__tmp94607 - (let ((__tmp94608 - (let ((__tmp94609 |gx[1]#_g94610_|)) + (cons 'phi __tmp94616))) + (__tmp94611 + (let ((__tmp94612 + (let ((__tmp94613 |gx[1]#_g94614_|)) (declare (not safe)) - (cons 'weak? __tmp94609)))) + (cons 'weak? __tmp94613)))) (declare (not safe)) - (cons __tmp94608 '())))) + (cons __tmp94612 '())))) (declare (not safe)) - (cons __tmp94611 __tmp94607)))) + (cons __tmp94615 __tmp94611)))) (declare (not safe)) - (cons __tmp94614 __tmp94606)))) + (cons __tmp94618 __tmp94610)))) (declare (not safe)) - (cons __tmp94617 __tmp94605)))) + (cons __tmp94621 __tmp94609)))) (declare (not safe)) (##unchecked-structure-set! - __obj94552 - __tmp94604 + __obj94556 + __tmp94608 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94620 - (let ((__tmp94633 - (let ((__tmp94634 |gx[1]#_g94635_|)) + (let ((__tmp94624 + (let ((__tmp94637 + (let ((__tmp94638 |gx[1]#_g94639_|)) (declare (not safe)) - (cons 'source __tmp94634))) - (__tmp94621 - (let ((__tmp94630 - (let ((__tmp94631 |gx[1]#_g94632_|)) + (cons 'source __tmp94638))) + (__tmp94625 + (let ((__tmp94634 + (let ((__tmp94635 |gx[1]#_g94636_|)) (declare (not safe)) - (cons 'name __tmp94631))) - (__tmp94622 - (let ((__tmp94627 - (let ((__tmp94628 |gx[1]#_g94629_|)) + (cons 'name __tmp94635))) + (__tmp94626 + (let ((__tmp94631 + (let ((__tmp94632 |gx[1]#_g94633_|)) (declare (not safe)) - (cons 'phi __tmp94628))) - (__tmp94623 - (let ((__tmp94624 - (let ((__tmp94625 |gx[1]#_g94626_|)) + (cons 'phi __tmp94632))) + (__tmp94627 + (let ((__tmp94628 + (let ((__tmp94629 |gx[1]#_g94630_|)) (declare (not safe)) - (cons 'weak? __tmp94625)))) + (cons 'weak? __tmp94629)))) (declare (not safe)) - (cons __tmp94624 '())))) + (cons __tmp94628 '())))) (declare (not safe)) - (cons __tmp94627 __tmp94623)))) + (cons __tmp94631 __tmp94627)))) (declare (not safe)) - (cons __tmp94630 __tmp94622)))) + (cons __tmp94634 __tmp94626)))) (declare (not safe)) - (cons __tmp94633 __tmp94621)))) + (cons __tmp94637 __tmp94625)))) (declare (not safe)) (##unchecked-structure-set! - __obj94552 - __tmp94620 + __obj94556 + __tmp94624 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94636 - (let ((__tmp94649 - (let ((__tmp94650 |gx[1]#_g94651_|)) + (let ((__tmp94640 + (let ((__tmp94653 + (let ((__tmp94654 |gx[1]#_g94655_|)) (declare (not safe)) - (cons 'source __tmp94650))) - (__tmp94637 - (let ((__tmp94646 - (let ((__tmp94647 |gx[1]#_g94648_|)) + (cons 'source __tmp94654))) + (__tmp94641 + (let ((__tmp94650 + (let ((__tmp94651 |gx[1]#_g94652_|)) (declare (not safe)) - (cons 'name __tmp94647))) - (__tmp94638 - (let ((__tmp94643 - (let ((__tmp94644 |gx[1]#_g94645_|)) + (cons 'name __tmp94651))) + (__tmp94642 + (let ((__tmp94647 + (let ((__tmp94648 |gx[1]#_g94649_|)) (declare (not safe)) - (cons 'phi __tmp94644))) - (__tmp94639 - (let ((__tmp94640 - (let ((__tmp94641 |gx[1]#_g94642_|)) + (cons 'phi __tmp94648))) + (__tmp94643 + (let ((__tmp94644 + (let ((__tmp94645 |gx[1]#_g94646_|)) (declare (not safe)) - (cons 'weak? __tmp94641)))) + (cons 'weak? __tmp94645)))) (declare (not safe)) - (cons __tmp94640 '())))) + (cons __tmp94644 '())))) (declare (not safe)) - (cons __tmp94643 __tmp94639)))) + (cons __tmp94647 __tmp94643)))) (declare (not safe)) - (cons __tmp94646 __tmp94638)))) + (cons __tmp94650 __tmp94642)))) (declare (not safe)) - (cons __tmp94649 __tmp94637)))) + (cons __tmp94653 __tmp94641)))) (declare (not safe)) (##unchecked-structure-set! - __obj94552 - __tmp94636 + __obj94556 + __tmp94640 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94652 - (let ((__tmp94665 - (let ((__tmp94666 |gx[1]#_g94667_|)) + (let ((__tmp94656 + (let ((__tmp94669 + (let ((__tmp94670 |gx[1]#_g94671_|)) (declare (not safe)) - (cons 'source __tmp94666))) - (__tmp94653 - (let ((__tmp94662 - (let ((__tmp94663 |gx[1]#_g94664_|)) + (cons 'source __tmp94670))) + (__tmp94657 + (let ((__tmp94666 + (let ((__tmp94667 |gx[1]#_g94668_|)) (declare (not safe)) - (cons 'name __tmp94663))) - (__tmp94654 - (let ((__tmp94659 - (let ((__tmp94660 |gx[1]#_g94661_|)) + (cons 'name __tmp94667))) + (__tmp94658 + (let ((__tmp94663 + (let ((__tmp94664 |gx[1]#_g94665_|)) (declare (not safe)) - (cons 'phi __tmp94660))) - (__tmp94655 - (let ((__tmp94656 - (let ((__tmp94657 |gx[1]#_g94658_|)) + (cons 'phi __tmp94664))) + (__tmp94659 + (let ((__tmp94660 + (let ((__tmp94661 |gx[1]#_g94662_|)) (declare (not safe)) - (cons 'weak? __tmp94657)))) + (cons 'weak? __tmp94661)))) (declare (not safe)) - (cons __tmp94656 '())))) + (cons __tmp94660 '())))) (declare (not safe)) - (cons __tmp94659 __tmp94655)))) + (cons __tmp94663 __tmp94659)))) (declare (not safe)) - (cons __tmp94662 __tmp94654)))) + (cons __tmp94666 __tmp94658)))) (declare (not safe)) - (cons __tmp94665 __tmp94653)))) + (cons __tmp94669 __tmp94657)))) (declare (not safe)) (##unchecked-structure-set! - __obj94552 - __tmp94652 + __obj94556 + __tmp94656 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94552)) + __obj94556)) (define |gx[:0:]#module-export| - (let ((__obj94553 + (let ((__obj94557 (let () (declare (not safe)) (##structure @@ -1117,7 +1117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94553 + __obj94557 'gx#module-export::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94553 + __obj94557 'module-export '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1133,7 +1133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94553 + __obj94557 '(context key phi name weak?) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1141,7 +1141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94553 + __obj94557 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1149,7 +1149,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94553 + __obj94557 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1157,7 +1157,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94553 + __obj94557 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1165,7 +1165,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94553 + __obj94557 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1173,210 +1173,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94553 + __obj94557 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94668 |gx[1]#_g94669_|)) + (let ((__tmp94672 |gx[1]#_g94673_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94553 - __tmp94668 + __obj94557 + __tmp94672 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94670 |gx[1]#_g94671_|)) + (let ((__tmp94674 |gx[1]#_g94675_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94553 - __tmp94670 + __obj94557 + __tmp94674 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94672 |gx[1]#_g94673_|)) + (let ((__tmp94676 |gx[1]#_g94677_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94553 - __tmp94672 + __obj94557 + __tmp94676 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94674 - (let ((__tmp94691 - (let ((__tmp94692 |gx[1]#_g94693_|)) + (let ((__tmp94678 + (let ((__tmp94695 + (let ((__tmp94696 |gx[1]#_g94697_|)) (declare (not safe)) - (cons 'context __tmp94692))) - (__tmp94675 - (let ((__tmp94688 - (let ((__tmp94689 |gx[1]#_g94690_|)) + (cons 'context __tmp94696))) + (__tmp94679 + (let ((__tmp94692 + (let ((__tmp94693 |gx[1]#_g94694_|)) (declare (not safe)) - (cons 'key __tmp94689))) - (__tmp94676 - (let ((__tmp94685 - (let ((__tmp94686 |gx[1]#_g94687_|)) + (cons 'key __tmp94693))) + (__tmp94680 + (let ((__tmp94689 + (let ((__tmp94690 |gx[1]#_g94691_|)) (declare (not safe)) - (cons 'phi __tmp94686))) - (__tmp94677 - (let ((__tmp94682 - (let ((__tmp94683 |gx[1]#_g94684_|)) + (cons 'phi __tmp94690))) + (__tmp94681 + (let ((__tmp94686 + (let ((__tmp94687 |gx[1]#_g94688_|)) (declare (not safe)) - (cons 'name __tmp94683))) - (__tmp94678 - (let ((__tmp94679 - (let ((__tmp94680 - |gx[1]#_g94681_|)) + (cons 'name __tmp94687))) + (__tmp94682 + (let ((__tmp94683 + (let ((__tmp94684 + |gx[1]#_g94685_|)) (declare (not safe)) - (cons 'weak? __tmp94680)))) + (cons 'weak? __tmp94684)))) (declare (not safe)) - (cons __tmp94679 '())))) + (cons __tmp94683 '())))) (declare (not safe)) - (cons __tmp94682 __tmp94678)))) + (cons __tmp94686 __tmp94682)))) (declare (not safe)) - (cons __tmp94685 __tmp94677)))) + (cons __tmp94689 __tmp94681)))) (declare (not safe)) - (cons __tmp94688 __tmp94676)))) + (cons __tmp94692 __tmp94680)))) (declare (not safe)) - (cons __tmp94691 __tmp94675)))) + (cons __tmp94695 __tmp94679)))) (declare (not safe)) (##unchecked-structure-set! - __obj94553 - __tmp94674 + __obj94557 + __tmp94678 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94694 - (let ((__tmp94711 - (let ((__tmp94712 |gx[1]#_g94713_|)) + (let ((__tmp94698 + (let ((__tmp94715 + (let ((__tmp94716 |gx[1]#_g94717_|)) (declare (not safe)) - (cons 'context __tmp94712))) - (__tmp94695 - (let ((__tmp94708 - (let ((__tmp94709 |gx[1]#_g94710_|)) + (cons 'context __tmp94716))) + (__tmp94699 + (let ((__tmp94712 + (let ((__tmp94713 |gx[1]#_g94714_|)) (declare (not safe)) - (cons 'key __tmp94709))) - (__tmp94696 - (let ((__tmp94705 - (let ((__tmp94706 |gx[1]#_g94707_|)) + (cons 'key __tmp94713))) + (__tmp94700 + (let ((__tmp94709 + (let ((__tmp94710 |gx[1]#_g94711_|)) (declare (not safe)) - (cons 'phi __tmp94706))) - (__tmp94697 - (let ((__tmp94702 - (let ((__tmp94703 |gx[1]#_g94704_|)) + (cons 'phi __tmp94710))) + (__tmp94701 + (let ((__tmp94706 + (let ((__tmp94707 |gx[1]#_g94708_|)) (declare (not safe)) - (cons 'name __tmp94703))) - (__tmp94698 - (let ((__tmp94699 - (let ((__tmp94700 - |gx[1]#_g94701_|)) + (cons 'name __tmp94707))) + (__tmp94702 + (let ((__tmp94703 + (let ((__tmp94704 + |gx[1]#_g94705_|)) (declare (not safe)) - (cons 'weak? __tmp94700)))) + (cons 'weak? __tmp94704)))) (declare (not safe)) - (cons __tmp94699 '())))) + (cons __tmp94703 '())))) (declare (not safe)) - (cons __tmp94702 __tmp94698)))) + (cons __tmp94706 __tmp94702)))) (declare (not safe)) - (cons __tmp94705 __tmp94697)))) + (cons __tmp94709 __tmp94701)))) (declare (not safe)) - (cons __tmp94708 __tmp94696)))) + (cons __tmp94712 __tmp94700)))) (declare (not safe)) - (cons __tmp94711 __tmp94695)))) + (cons __tmp94715 __tmp94699)))) (declare (not safe)) (##unchecked-structure-set! - __obj94553 - __tmp94694 + __obj94557 + __tmp94698 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94714 - (let ((__tmp94731 - (let ((__tmp94732 |gx[1]#_g94733_|)) + (let ((__tmp94718 + (let ((__tmp94735 + (let ((__tmp94736 |gx[1]#_g94737_|)) (declare (not safe)) - (cons 'context __tmp94732))) - (__tmp94715 - (let ((__tmp94728 - (let ((__tmp94729 |gx[1]#_g94730_|)) + (cons 'context __tmp94736))) + (__tmp94719 + (let ((__tmp94732 + (let ((__tmp94733 |gx[1]#_g94734_|)) (declare (not safe)) - (cons 'key __tmp94729))) - (__tmp94716 - (let ((__tmp94725 - (let ((__tmp94726 |gx[1]#_g94727_|)) + (cons 'key __tmp94733))) + (__tmp94720 + (let ((__tmp94729 + (let ((__tmp94730 |gx[1]#_g94731_|)) (declare (not safe)) - (cons 'phi __tmp94726))) - (__tmp94717 - (let ((__tmp94722 - (let ((__tmp94723 |gx[1]#_g94724_|)) + (cons 'phi __tmp94730))) + (__tmp94721 + (let ((__tmp94726 + (let ((__tmp94727 |gx[1]#_g94728_|)) (declare (not safe)) - (cons 'name __tmp94723))) - (__tmp94718 - (let ((__tmp94719 - (let ((__tmp94720 - |gx[1]#_g94721_|)) + (cons 'name __tmp94727))) + (__tmp94722 + (let ((__tmp94723 + (let ((__tmp94724 + |gx[1]#_g94725_|)) (declare (not safe)) - (cons 'weak? __tmp94720)))) + (cons 'weak? __tmp94724)))) (declare (not safe)) - (cons __tmp94719 '())))) + (cons __tmp94723 '())))) (declare (not safe)) - (cons __tmp94722 __tmp94718)))) + (cons __tmp94726 __tmp94722)))) (declare (not safe)) - (cons __tmp94725 __tmp94717)))) + (cons __tmp94729 __tmp94721)))) (declare (not safe)) - (cons __tmp94728 __tmp94716)))) + (cons __tmp94732 __tmp94720)))) (declare (not safe)) - (cons __tmp94731 __tmp94715)))) + (cons __tmp94735 __tmp94719)))) (declare (not safe)) (##unchecked-structure-set! - __obj94553 - __tmp94714 + __obj94557 + __tmp94718 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94734 - (let ((__tmp94751 - (let ((__tmp94752 |gx[1]#_g94753_|)) + (let ((__tmp94738 + (let ((__tmp94755 + (let ((__tmp94756 |gx[1]#_g94757_|)) (declare (not safe)) - (cons 'context __tmp94752))) - (__tmp94735 - (let ((__tmp94748 - (let ((__tmp94749 |gx[1]#_g94750_|)) + (cons 'context __tmp94756))) + (__tmp94739 + (let ((__tmp94752 + (let ((__tmp94753 |gx[1]#_g94754_|)) (declare (not safe)) - (cons 'key __tmp94749))) - (__tmp94736 - (let ((__tmp94745 - (let ((__tmp94746 |gx[1]#_g94747_|)) + (cons 'key __tmp94753))) + (__tmp94740 + (let ((__tmp94749 + (let ((__tmp94750 |gx[1]#_g94751_|)) (declare (not safe)) - (cons 'phi __tmp94746))) - (__tmp94737 - (let ((__tmp94742 - (let ((__tmp94743 |gx[1]#_g94744_|)) + (cons 'phi __tmp94750))) + (__tmp94741 + (let ((__tmp94746 + (let ((__tmp94747 |gx[1]#_g94748_|)) (declare (not safe)) - (cons 'name __tmp94743))) - (__tmp94738 - (let ((__tmp94739 - (let ((__tmp94740 - |gx[1]#_g94741_|)) + (cons 'name __tmp94747))) + (__tmp94742 + (let ((__tmp94743 + (let ((__tmp94744 + |gx[1]#_g94745_|)) (declare (not safe)) - (cons 'weak? __tmp94740)))) + (cons 'weak? __tmp94744)))) (declare (not safe)) - (cons __tmp94739 '())))) + (cons __tmp94743 '())))) (declare (not safe)) - (cons __tmp94742 __tmp94738)))) + (cons __tmp94746 __tmp94742)))) (declare (not safe)) - (cons __tmp94745 __tmp94737)))) + (cons __tmp94749 __tmp94741)))) (declare (not safe)) - (cons __tmp94748 __tmp94736)))) + (cons __tmp94752 __tmp94740)))) (declare (not safe)) - (cons __tmp94751 __tmp94735)))) + (cons __tmp94755 __tmp94739)))) (declare (not safe)) (##unchecked-structure-set! - __obj94553 - __tmp94734 + __obj94557 + __tmp94738 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94553)) + __obj94557)) (define |gx[:0:]#import-set| - (let ((__obj94554 + (let ((__obj94558 (let () (declare (not safe)) (##structure @@ -1400,7 +1400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94554 + __obj94558 'gx#import-set::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1408,7 +1408,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94554 + __obj94558 'import-set '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1416,7 +1416,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94554 + __obj94558 '(source phi imports) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1424,7 +1424,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94554 + __obj94558 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1432,7 +1432,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94554 + __obj94558 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1440,7 +1440,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94554 + __obj94558 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1448,7 +1448,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94554 + __obj94558 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1456,150 +1456,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94554 + __obj94558 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94754 |gx[1]#_g94755_|)) + (let ((__tmp94758 |gx[1]#_g94759_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94554 - __tmp94754 + __obj94558 + __tmp94758 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94756 |gx[1]#_g94757_|)) + (let ((__tmp94760 |gx[1]#_g94761_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94554 - __tmp94756 + __obj94558 + __tmp94760 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94758 |gx[1]#_g94759_|)) + (let ((__tmp94762 |gx[1]#_g94763_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94554 - __tmp94758 + __obj94558 + __tmp94762 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94760 - (let ((__tmp94769 - (let ((__tmp94770 |gx[1]#_g94771_|)) + (let ((__tmp94764 + (let ((__tmp94773 + (let ((__tmp94774 |gx[1]#_g94775_|)) (declare (not safe)) - (cons 'source __tmp94770))) - (__tmp94761 - (let ((__tmp94766 - (let ((__tmp94767 |gx[1]#_g94768_|)) + (cons 'source __tmp94774))) + (__tmp94765 + (let ((__tmp94770 + (let ((__tmp94771 |gx[1]#_g94772_|)) (declare (not safe)) - (cons 'phi __tmp94767))) - (__tmp94762 - (let ((__tmp94763 - (let ((__tmp94764 |gx[1]#_g94765_|)) + (cons 'phi __tmp94771))) + (__tmp94766 + (let ((__tmp94767 + (let ((__tmp94768 |gx[1]#_g94769_|)) (declare (not safe)) - (cons 'imports __tmp94764)))) + (cons 'imports __tmp94768)))) (declare (not safe)) - (cons __tmp94763 '())))) + (cons __tmp94767 '())))) (declare (not safe)) - (cons __tmp94766 __tmp94762)))) + (cons __tmp94770 __tmp94766)))) (declare (not safe)) - (cons __tmp94769 __tmp94761)))) + (cons __tmp94773 __tmp94765)))) (declare (not safe)) (##unchecked-structure-set! - __obj94554 - __tmp94760 + __obj94558 + __tmp94764 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94772 - (let ((__tmp94781 - (let ((__tmp94782 |gx[1]#_g94783_|)) + (let ((__tmp94776 + (let ((__tmp94785 + (let ((__tmp94786 |gx[1]#_g94787_|)) (declare (not safe)) - (cons 'source __tmp94782))) - (__tmp94773 - (let ((__tmp94778 - (let ((__tmp94779 |gx[1]#_g94780_|)) + (cons 'source __tmp94786))) + (__tmp94777 + (let ((__tmp94782 + (let ((__tmp94783 |gx[1]#_g94784_|)) (declare (not safe)) - (cons 'phi __tmp94779))) - (__tmp94774 - (let ((__tmp94775 - (let ((__tmp94776 |gx[1]#_g94777_|)) + (cons 'phi __tmp94783))) + (__tmp94778 + (let ((__tmp94779 + (let ((__tmp94780 |gx[1]#_g94781_|)) (declare (not safe)) - (cons 'imports __tmp94776)))) + (cons 'imports __tmp94780)))) (declare (not safe)) - (cons __tmp94775 '())))) + (cons __tmp94779 '())))) (declare (not safe)) - (cons __tmp94778 __tmp94774)))) + (cons __tmp94782 __tmp94778)))) (declare (not safe)) - (cons __tmp94781 __tmp94773)))) + (cons __tmp94785 __tmp94777)))) (declare (not safe)) (##unchecked-structure-set! - __obj94554 - __tmp94772 + __obj94558 + __tmp94776 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94784 - (let ((__tmp94793 - (let ((__tmp94794 |gx[1]#_g94795_|)) + (let ((__tmp94788 + (let ((__tmp94797 + (let ((__tmp94798 |gx[1]#_g94799_|)) (declare (not safe)) - (cons 'source __tmp94794))) - (__tmp94785 - (let ((__tmp94790 - (let ((__tmp94791 |gx[1]#_g94792_|)) + (cons 'source __tmp94798))) + (__tmp94789 + (let ((__tmp94794 + (let ((__tmp94795 |gx[1]#_g94796_|)) (declare (not safe)) - (cons 'phi __tmp94791))) - (__tmp94786 - (let ((__tmp94787 - (let ((__tmp94788 |gx[1]#_g94789_|)) + (cons 'phi __tmp94795))) + (__tmp94790 + (let ((__tmp94791 + (let ((__tmp94792 |gx[1]#_g94793_|)) (declare (not safe)) - (cons 'imports __tmp94788)))) + (cons 'imports __tmp94792)))) (declare (not safe)) - (cons __tmp94787 '())))) + (cons __tmp94791 '())))) (declare (not safe)) - (cons __tmp94790 __tmp94786)))) + (cons __tmp94794 __tmp94790)))) (declare (not safe)) - (cons __tmp94793 __tmp94785)))) + (cons __tmp94797 __tmp94789)))) (declare (not safe)) (##unchecked-structure-set! - __obj94554 - __tmp94784 + __obj94558 + __tmp94788 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94796 - (let ((__tmp94805 - (let ((__tmp94806 |gx[1]#_g94807_|)) + (let ((__tmp94800 + (let ((__tmp94809 + (let ((__tmp94810 |gx[1]#_g94811_|)) (declare (not safe)) - (cons 'source __tmp94806))) - (__tmp94797 - (let ((__tmp94802 - (let ((__tmp94803 |gx[1]#_g94804_|)) + (cons 'source __tmp94810))) + (__tmp94801 + (let ((__tmp94806 + (let ((__tmp94807 |gx[1]#_g94808_|)) (declare (not safe)) - (cons 'phi __tmp94803))) - (__tmp94798 - (let ((__tmp94799 - (let ((__tmp94800 |gx[1]#_g94801_|)) + (cons 'phi __tmp94807))) + (__tmp94802 + (let ((__tmp94803 + (let ((__tmp94804 |gx[1]#_g94805_|)) (declare (not safe)) - (cons 'imports __tmp94800)))) + (cons 'imports __tmp94804)))) (declare (not safe)) - (cons __tmp94799 '())))) + (cons __tmp94803 '())))) (declare (not safe)) - (cons __tmp94802 __tmp94798)))) + (cons __tmp94806 __tmp94802)))) (declare (not safe)) - (cons __tmp94805 __tmp94797)))) + (cons __tmp94809 __tmp94801)))) (declare (not safe)) (##unchecked-structure-set! - __obj94554 - __tmp94796 + __obj94558 + __tmp94800 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94554)) + __obj94558)) (define |gx[:0:]#export-set| - (let ((__obj94555 + (let ((__obj94559 (let () (declare (not safe)) (##structure @@ -1623,7 +1623,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94555 + __obj94559 'gx#export-set::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1631,7 +1631,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94555 + __obj94559 'export-set '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1639,7 +1639,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94555 + __obj94559 '(source phi exports) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1647,7 +1647,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94555 + __obj94559 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1655,7 +1655,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94555 + __obj94559 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1663,7 +1663,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94555 + __obj94559 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1671,7 +1671,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94555 + __obj94559 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1679,150 +1679,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94555 + __obj94559 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94808 |gx[1]#_g94809_|)) + (let ((__tmp94812 |gx[1]#_g94813_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94555 - __tmp94808 + __obj94559 + __tmp94812 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94810 |gx[1]#_g94811_|)) + (let ((__tmp94814 |gx[1]#_g94815_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94555 - __tmp94810 + __obj94559 + __tmp94814 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94812 |gx[1]#_g94813_|)) + (let ((__tmp94816 |gx[1]#_g94817_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94555 - __tmp94812 + __obj94559 + __tmp94816 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94814 - (let ((__tmp94823 - (let ((__tmp94824 |gx[1]#_g94825_|)) + (let ((__tmp94818 + (let ((__tmp94827 + (let ((__tmp94828 |gx[1]#_g94829_|)) (declare (not safe)) - (cons 'source __tmp94824))) - (__tmp94815 - (let ((__tmp94820 - (let ((__tmp94821 |gx[1]#_g94822_|)) + (cons 'source __tmp94828))) + (__tmp94819 + (let ((__tmp94824 + (let ((__tmp94825 |gx[1]#_g94826_|)) (declare (not safe)) - (cons 'phi __tmp94821))) - (__tmp94816 - (let ((__tmp94817 - (let ((__tmp94818 |gx[1]#_g94819_|)) + (cons 'phi __tmp94825))) + (__tmp94820 + (let ((__tmp94821 + (let ((__tmp94822 |gx[1]#_g94823_|)) (declare (not safe)) - (cons 'exports __tmp94818)))) + (cons 'exports __tmp94822)))) (declare (not safe)) - (cons __tmp94817 '())))) + (cons __tmp94821 '())))) (declare (not safe)) - (cons __tmp94820 __tmp94816)))) + (cons __tmp94824 __tmp94820)))) (declare (not safe)) - (cons __tmp94823 __tmp94815)))) + (cons __tmp94827 __tmp94819)))) (declare (not safe)) (##unchecked-structure-set! - __obj94555 - __tmp94814 + __obj94559 + __tmp94818 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94826 - (let ((__tmp94835 - (let ((__tmp94836 |gx[1]#_g94837_|)) + (let ((__tmp94830 + (let ((__tmp94839 + (let ((__tmp94840 |gx[1]#_g94841_|)) (declare (not safe)) - (cons 'source __tmp94836))) - (__tmp94827 - (let ((__tmp94832 - (let ((__tmp94833 |gx[1]#_g94834_|)) + (cons 'source __tmp94840))) + (__tmp94831 + (let ((__tmp94836 + (let ((__tmp94837 |gx[1]#_g94838_|)) (declare (not safe)) - (cons 'phi __tmp94833))) - (__tmp94828 - (let ((__tmp94829 - (let ((__tmp94830 |gx[1]#_g94831_|)) + (cons 'phi __tmp94837))) + (__tmp94832 + (let ((__tmp94833 + (let ((__tmp94834 |gx[1]#_g94835_|)) (declare (not safe)) - (cons 'exports __tmp94830)))) + (cons 'exports __tmp94834)))) (declare (not safe)) - (cons __tmp94829 '())))) + (cons __tmp94833 '())))) (declare (not safe)) - (cons __tmp94832 __tmp94828)))) + (cons __tmp94836 __tmp94832)))) (declare (not safe)) - (cons __tmp94835 __tmp94827)))) + (cons __tmp94839 __tmp94831)))) (declare (not safe)) (##unchecked-structure-set! - __obj94555 - __tmp94826 + __obj94559 + __tmp94830 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94838 - (let ((__tmp94847 - (let ((__tmp94848 |gx[1]#_g94849_|)) + (let ((__tmp94842 + (let ((__tmp94851 + (let ((__tmp94852 |gx[1]#_g94853_|)) (declare (not safe)) - (cons 'source __tmp94848))) - (__tmp94839 - (let ((__tmp94844 - (let ((__tmp94845 |gx[1]#_g94846_|)) + (cons 'source __tmp94852))) + (__tmp94843 + (let ((__tmp94848 + (let ((__tmp94849 |gx[1]#_g94850_|)) (declare (not safe)) - (cons 'phi __tmp94845))) - (__tmp94840 - (let ((__tmp94841 - (let ((__tmp94842 |gx[1]#_g94843_|)) + (cons 'phi __tmp94849))) + (__tmp94844 + (let ((__tmp94845 + (let ((__tmp94846 |gx[1]#_g94847_|)) (declare (not safe)) - (cons 'exports __tmp94842)))) + (cons 'exports __tmp94846)))) (declare (not safe)) - (cons __tmp94841 '())))) + (cons __tmp94845 '())))) (declare (not safe)) - (cons __tmp94844 __tmp94840)))) + (cons __tmp94848 __tmp94844)))) (declare (not safe)) - (cons __tmp94847 __tmp94839)))) + (cons __tmp94851 __tmp94843)))) (declare (not safe)) (##unchecked-structure-set! - __obj94555 - __tmp94838 + __obj94559 + __tmp94842 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94850 - (let ((__tmp94859 - (let ((__tmp94860 |gx[1]#_g94861_|)) + (let ((__tmp94854 + (let ((__tmp94863 + (let ((__tmp94864 |gx[1]#_g94865_|)) (declare (not safe)) - (cons 'source __tmp94860))) - (__tmp94851 - (let ((__tmp94856 - (let ((__tmp94857 |gx[1]#_g94858_|)) + (cons 'source __tmp94864))) + (__tmp94855 + (let ((__tmp94860 + (let ((__tmp94861 |gx[1]#_g94862_|)) (declare (not safe)) - (cons 'phi __tmp94857))) - (__tmp94852 - (let ((__tmp94853 - (let ((__tmp94854 |gx[1]#_g94855_|)) + (cons 'phi __tmp94861))) + (__tmp94856 + (let ((__tmp94857 + (let ((__tmp94858 |gx[1]#_g94859_|)) (declare (not safe)) - (cons 'exports __tmp94854)))) + (cons 'exports __tmp94858)))) (declare (not safe)) - (cons __tmp94853 '())))) + (cons __tmp94857 '())))) (declare (not safe)) - (cons __tmp94856 __tmp94852)))) + (cons __tmp94860 __tmp94856)))) (declare (not safe)) - (cons __tmp94859 __tmp94851)))) + (cons __tmp94863 __tmp94855)))) (declare (not safe)) (##unchecked-structure-set! - __obj94555 - __tmp94850 + __obj94559 + __tmp94854 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94555)) + __obj94559)) (define |gx[:0:]#import-expander| - (let ((__obj94556 + (let ((__obj94560 (let () (declare (not safe)) (##structure @@ -1846,7 +1846,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94560 'gx#import-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1854,7 +1854,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94560 'import-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1862,26 +1862,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94560 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94862 - (let ((__tmp94863 |gx[1]#_g94864_|)) + (let ((__tmp94866 + (let ((__tmp94867 |gx[1]#_g94868_|)) (declare (not safe)) - (cons __tmp94863 '())))) + (cons __tmp94867 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94862 + __obj94560 + __tmp94866 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94560 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1889,7 +1889,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94560 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1897,7 +1897,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94560 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1905,150 +1905,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94560 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94865 |gx[1]#_g94866_|)) + (let ((__tmp94869 |gx[1]#_g94870_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94865 + __obj94560 + __tmp94869 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94867 |gx[1]#_g94868_|)) + (let ((__tmp94871 |gx[1]#_g94872_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94867 + __obj94560 + __tmp94871 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94869 |gx[1]#_g94870_|)) + (let ((__tmp94873 |gx[1]#_g94874_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94869 + __obj94560 + __tmp94873 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94871 - (let ((__tmp94880 - (let ((__tmp94881 |gx[1]#_g94882_|)) + (let ((__tmp94875 + (let ((__tmp94884 + (let ((__tmp94885 |gx[1]#_g94886_|)) (declare (not safe)) - (cons 'context __tmp94881))) - (__tmp94872 - (let ((__tmp94877 - (let ((__tmp94878 |gx[1]#_g94879_|)) + (cons 'context __tmp94885))) + (__tmp94876 + (let ((__tmp94881 + (let ((__tmp94882 |gx[1]#_g94883_|)) (declare (not safe)) - (cons 'phi __tmp94878))) - (__tmp94873 - (let ((__tmp94874 - (let ((__tmp94875 |gx[1]#_g94876_|)) + (cons 'phi __tmp94882))) + (__tmp94877 + (let ((__tmp94878 + (let ((__tmp94879 |gx[1]#_g94880_|)) (declare (not safe)) - (cons 'e __tmp94875)))) + (cons 'e __tmp94879)))) (declare (not safe)) - (cons __tmp94874 '())))) + (cons __tmp94878 '())))) (declare (not safe)) - (cons __tmp94877 __tmp94873)))) + (cons __tmp94881 __tmp94877)))) (declare (not safe)) - (cons __tmp94880 __tmp94872)))) + (cons __tmp94884 __tmp94876)))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94871 + __obj94560 + __tmp94875 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94883 - (let ((__tmp94892 - (let ((__tmp94893 |gx[1]#_g94894_|)) + (let ((__tmp94887 + (let ((__tmp94896 + (let ((__tmp94897 |gx[1]#_g94898_|)) (declare (not safe)) - (cons 'context __tmp94893))) - (__tmp94884 - (let ((__tmp94889 - (let ((__tmp94890 |gx[1]#_g94891_|)) + (cons 'context __tmp94897))) + (__tmp94888 + (let ((__tmp94893 + (let ((__tmp94894 |gx[1]#_g94895_|)) (declare (not safe)) - (cons 'phi __tmp94890))) - (__tmp94885 - (let ((__tmp94886 - (let ((__tmp94887 |gx[1]#_g94888_|)) + (cons 'phi __tmp94894))) + (__tmp94889 + (let ((__tmp94890 + (let ((__tmp94891 |gx[1]#_g94892_|)) (declare (not safe)) - (cons 'e __tmp94887)))) + (cons 'e __tmp94891)))) (declare (not safe)) - (cons __tmp94886 '())))) + (cons __tmp94890 '())))) (declare (not safe)) - (cons __tmp94889 __tmp94885)))) + (cons __tmp94893 __tmp94889)))) (declare (not safe)) - (cons __tmp94892 __tmp94884)))) + (cons __tmp94896 __tmp94888)))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94883 + __obj94560 + __tmp94887 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94895 - (let ((__tmp94904 - (let ((__tmp94905 |gx[1]#_g94906_|)) + (let ((__tmp94899 + (let ((__tmp94908 + (let ((__tmp94909 |gx[1]#_g94910_|)) (declare (not safe)) - (cons 'context __tmp94905))) - (__tmp94896 - (let ((__tmp94901 - (let ((__tmp94902 |gx[1]#_g94903_|)) + (cons 'context __tmp94909))) + (__tmp94900 + (let ((__tmp94905 + (let ((__tmp94906 |gx[1]#_g94907_|)) (declare (not safe)) - (cons 'phi __tmp94902))) - (__tmp94897 - (let ((__tmp94898 - (let ((__tmp94899 |gx[1]#_g94900_|)) + (cons 'phi __tmp94906))) + (__tmp94901 + (let ((__tmp94902 + (let ((__tmp94903 |gx[1]#_g94904_|)) (declare (not safe)) - (cons 'e __tmp94899)))) + (cons 'e __tmp94903)))) (declare (not safe)) - (cons __tmp94898 '())))) + (cons __tmp94902 '())))) (declare (not safe)) - (cons __tmp94901 __tmp94897)))) + (cons __tmp94905 __tmp94901)))) (declare (not safe)) - (cons __tmp94904 __tmp94896)))) + (cons __tmp94908 __tmp94900)))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94895 + __obj94560 + __tmp94899 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94907 - (let ((__tmp94916 - (let ((__tmp94917 |gx[1]#_g94918_|)) + (let ((__tmp94911 + (let ((__tmp94920 + (let ((__tmp94921 |gx[1]#_g94922_|)) (declare (not safe)) - (cons 'context __tmp94917))) - (__tmp94908 - (let ((__tmp94913 - (let ((__tmp94914 |gx[1]#_g94915_|)) + (cons 'context __tmp94921))) + (__tmp94912 + (let ((__tmp94917 + (let ((__tmp94918 |gx[1]#_g94919_|)) (declare (not safe)) - (cons 'phi __tmp94914))) - (__tmp94909 - (let ((__tmp94910 - (let ((__tmp94911 |gx[1]#_g94912_|)) + (cons 'phi __tmp94918))) + (__tmp94913 + (let ((__tmp94914 + (let ((__tmp94915 |gx[1]#_g94916_|)) (declare (not safe)) - (cons 'e __tmp94911)))) + (cons 'e __tmp94915)))) (declare (not safe)) - (cons __tmp94910 '())))) + (cons __tmp94914 '())))) (declare (not safe)) - (cons __tmp94913 __tmp94909)))) + (cons __tmp94917 __tmp94913)))) (declare (not safe)) - (cons __tmp94916 __tmp94908)))) + (cons __tmp94920 __tmp94912)))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94907 + __obj94560 + __tmp94911 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94556)) + __obj94560)) (define |gx[:0:]#export-expander| - (let ((__obj94557 + (let ((__obj94561 (let () (declare (not safe)) (##structure @@ -2072,7 +2072,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94561 'gx#export-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2080,7 +2080,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94561 'export-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2088,26 +2088,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94561 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94919 - (let ((__tmp94920 |gx[1]#_g94864_|)) + (let ((__tmp94923 + (let ((__tmp94924 |gx[1]#_g94868_|)) (declare (not safe)) - (cons __tmp94920 '())))) + (cons __tmp94924 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94919 + __obj94561 + __tmp94923 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94561 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2115,7 +2115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94561 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2123,7 +2123,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94561 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2131,150 +2131,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94561 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94921 |gx[1]#_g94922_|)) + (let ((__tmp94925 |gx[1]#_g94926_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94921 + __obj94561 + __tmp94925 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94923 |gx[1]#_g94924_|)) + (let ((__tmp94927 |gx[1]#_g94928_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94923 + __obj94561 + __tmp94927 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94925 |gx[1]#_g94926_|)) + (let ((__tmp94929 |gx[1]#_g94930_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94925 + __obj94561 + __tmp94929 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94927 - (let ((__tmp94936 - (let ((__tmp94937 |gx[1]#_g94938_|)) + (let ((__tmp94931 + (let ((__tmp94940 + (let ((__tmp94941 |gx[1]#_g94942_|)) (declare (not safe)) - (cons 'context __tmp94937))) - (__tmp94928 - (let ((__tmp94933 - (let ((__tmp94934 |gx[1]#_g94935_|)) + (cons 'context __tmp94941))) + (__tmp94932 + (let ((__tmp94937 + (let ((__tmp94938 |gx[1]#_g94939_|)) (declare (not safe)) - (cons 'phi __tmp94934))) - (__tmp94929 - (let ((__tmp94930 - (let ((__tmp94931 |gx[1]#_g94932_|)) + (cons 'phi __tmp94938))) + (__tmp94933 + (let ((__tmp94934 + (let ((__tmp94935 |gx[1]#_g94936_|)) (declare (not safe)) - (cons 'e __tmp94931)))) + (cons 'e __tmp94935)))) (declare (not safe)) - (cons __tmp94930 '())))) + (cons __tmp94934 '())))) (declare (not safe)) - (cons __tmp94933 __tmp94929)))) + (cons __tmp94937 __tmp94933)))) (declare (not safe)) - (cons __tmp94936 __tmp94928)))) + (cons __tmp94940 __tmp94932)))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94927 + __obj94561 + __tmp94931 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94939 - (let ((__tmp94948 - (let ((__tmp94949 |gx[1]#_g94950_|)) + (let ((__tmp94943 + (let ((__tmp94952 + (let ((__tmp94953 |gx[1]#_g94954_|)) (declare (not safe)) - (cons 'context __tmp94949))) - (__tmp94940 - (let ((__tmp94945 - (let ((__tmp94946 |gx[1]#_g94947_|)) + (cons 'context __tmp94953))) + (__tmp94944 + (let ((__tmp94949 + (let ((__tmp94950 |gx[1]#_g94951_|)) (declare (not safe)) - (cons 'phi __tmp94946))) - (__tmp94941 - (let ((__tmp94942 - (let ((__tmp94943 |gx[1]#_g94944_|)) + (cons 'phi __tmp94950))) + (__tmp94945 + (let ((__tmp94946 + (let ((__tmp94947 |gx[1]#_g94948_|)) (declare (not safe)) - (cons 'e __tmp94943)))) + (cons 'e __tmp94947)))) (declare (not safe)) - (cons __tmp94942 '())))) + (cons __tmp94946 '())))) (declare (not safe)) - (cons __tmp94945 __tmp94941)))) + (cons __tmp94949 __tmp94945)))) (declare (not safe)) - (cons __tmp94948 __tmp94940)))) + (cons __tmp94952 __tmp94944)))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94939 + __obj94561 + __tmp94943 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94951 - (let ((__tmp94960 - (let ((__tmp94961 |gx[1]#_g94962_|)) + (let ((__tmp94955 + (let ((__tmp94964 + (let ((__tmp94965 |gx[1]#_g94966_|)) (declare (not safe)) - (cons 'context __tmp94961))) - (__tmp94952 - (let ((__tmp94957 - (let ((__tmp94958 |gx[1]#_g94959_|)) + (cons 'context __tmp94965))) + (__tmp94956 + (let ((__tmp94961 + (let ((__tmp94962 |gx[1]#_g94963_|)) (declare (not safe)) - (cons 'phi __tmp94958))) - (__tmp94953 - (let ((__tmp94954 - (let ((__tmp94955 |gx[1]#_g94956_|)) + (cons 'phi __tmp94962))) + (__tmp94957 + (let ((__tmp94958 + (let ((__tmp94959 |gx[1]#_g94960_|)) (declare (not safe)) - (cons 'e __tmp94955)))) + (cons 'e __tmp94959)))) (declare (not safe)) - (cons __tmp94954 '())))) + (cons __tmp94958 '())))) (declare (not safe)) - (cons __tmp94957 __tmp94953)))) + (cons __tmp94961 __tmp94957)))) (declare (not safe)) - (cons __tmp94960 __tmp94952)))) + (cons __tmp94964 __tmp94956)))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94951 + __obj94561 + __tmp94955 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94963 - (let ((__tmp94972 - (let ((__tmp94973 |gx[1]#_g94974_|)) + (let ((__tmp94967 + (let ((__tmp94976 + (let ((__tmp94977 |gx[1]#_g94978_|)) (declare (not safe)) - (cons 'context __tmp94973))) - (__tmp94964 - (let ((__tmp94969 - (let ((__tmp94970 |gx[1]#_g94971_|)) + (cons 'context __tmp94977))) + (__tmp94968 + (let ((__tmp94973 + (let ((__tmp94974 |gx[1]#_g94975_|)) (declare (not safe)) - (cons 'phi __tmp94970))) - (__tmp94965 - (let ((__tmp94966 - (let ((__tmp94967 |gx[1]#_g94968_|)) + (cons 'phi __tmp94974))) + (__tmp94969 + (let ((__tmp94970 + (let ((__tmp94971 |gx[1]#_g94972_|)) (declare (not safe)) - (cons 'e __tmp94967)))) + (cons 'e __tmp94971)))) (declare (not safe)) - (cons __tmp94966 '())))) + (cons __tmp94970 '())))) (declare (not safe)) - (cons __tmp94969 __tmp94965)))) + (cons __tmp94973 __tmp94969)))) (declare (not safe)) - (cons __tmp94972 __tmp94964)))) + (cons __tmp94976 __tmp94968)))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94963 + __obj94561 + __tmp94967 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94557)) + __obj94561)) (define |gx[:0:]#import-export-expander| - (let ((__obj94558 + (let ((__obj94562 (let () (declare (not safe)) (##structure @@ -2298,7 +2298,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94562 'gx#import-export-expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2306,7 +2306,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94562 'import-export-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2314,30 +2314,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94562 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94975 - (let ((__tmp94979 |gx[1]#_g94980_|) - (__tmp94976 - (let ((__tmp94977 |gx[1]#_g94978_|)) + (let ((__tmp94979 + (let ((__tmp94983 |gx[1]#_g94984_|) + (__tmp94980 + (let ((__tmp94981 |gx[1]#_g94982_|)) (declare (not safe)) - (cons __tmp94977 '())))) + (cons __tmp94981 '())))) (declare (not safe)) - (cons __tmp94979 __tmp94976)))) + (cons __tmp94983 __tmp94980)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94975 + __obj94562 + __tmp94979 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94562 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2345,7 +2345,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94562 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2353,7 +2353,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94562 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2361,145 +2361,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94562 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94981 |gx[1]#_g94982_|)) + (let ((__tmp94985 |gx[1]#_g94986_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94981 + __obj94562 + __tmp94985 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94983 |gx[1]#_g94984_|)) + (let ((__tmp94987 |gx[1]#_g94988_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94983 + __obj94562 + __tmp94987 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94985 |gx[1]#_g94986_|)) + (let ((__tmp94989 |gx[1]#_g94990_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94985 + __obj94562 + __tmp94989 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94987 - (let ((__tmp94996 - (let ((__tmp94997 |gx[1]#_g94998_|)) + (let ((__tmp94991 + (let ((__tmp95000 + (let ((__tmp95001 |gx[1]#_g95002_|)) (declare (not safe)) - (cons 'context __tmp94997))) - (__tmp94988 - (let ((__tmp94993 - (let ((__tmp94994 |gx[1]#_g94995_|)) + (cons 'context __tmp95001))) + (__tmp94992 + (let ((__tmp94997 + (let ((__tmp94998 |gx[1]#_g94999_|)) (declare (not safe)) - (cons 'phi __tmp94994))) - (__tmp94989 - (let ((__tmp94990 - (let ((__tmp94991 |gx[1]#_g94992_|)) + (cons 'phi __tmp94998))) + (__tmp94993 + (let ((__tmp94994 + (let ((__tmp94995 |gx[1]#_g94996_|)) (declare (not safe)) - (cons 'e __tmp94991)))) + (cons 'e __tmp94995)))) (declare (not safe)) - (cons __tmp94990 '())))) + (cons __tmp94994 '())))) (declare (not safe)) - (cons __tmp94993 __tmp94989)))) + (cons __tmp94997 __tmp94993)))) (declare (not safe)) - (cons __tmp94996 __tmp94988)))) + (cons __tmp95000 __tmp94992)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94987 + __obj94562 + __tmp94991 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94999 - (let ((__tmp95008 - (let ((__tmp95009 |gx[1]#_g95010_|)) + (let ((__tmp95003 + (let ((__tmp95012 + (let ((__tmp95013 |gx[1]#_g95014_|)) (declare (not safe)) - (cons 'context __tmp95009))) - (__tmp95000 - (let ((__tmp95005 - (let ((__tmp95006 |gx[1]#_g95007_|)) + (cons 'context __tmp95013))) + (__tmp95004 + (let ((__tmp95009 + (let ((__tmp95010 |gx[1]#_g95011_|)) (declare (not safe)) - (cons 'phi __tmp95006))) - (__tmp95001 - (let ((__tmp95002 - (let ((__tmp95003 |gx[1]#_g95004_|)) + (cons 'phi __tmp95010))) + (__tmp95005 + (let ((__tmp95006 + (let ((__tmp95007 |gx[1]#_g95008_|)) (declare (not safe)) - (cons 'e __tmp95003)))) + (cons 'e __tmp95007)))) (declare (not safe)) - (cons __tmp95002 '())))) + (cons __tmp95006 '())))) (declare (not safe)) - (cons __tmp95005 __tmp95001)))) + (cons __tmp95009 __tmp95005)))) (declare (not safe)) - (cons __tmp95008 __tmp95000)))) + (cons __tmp95012 __tmp95004)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94999 + __obj94562 + __tmp95003 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp95011 - (let ((__tmp95020 - (let ((__tmp95021 |gx[1]#_g95022_|)) + (let ((__tmp95015 + (let ((__tmp95024 + (let ((__tmp95025 |gx[1]#_g95026_|)) (declare (not safe)) - (cons 'context __tmp95021))) - (__tmp95012 - (let ((__tmp95017 - (let ((__tmp95018 |gx[1]#_g95019_|)) + (cons 'context __tmp95025))) + (__tmp95016 + (let ((__tmp95021 + (let ((__tmp95022 |gx[1]#_g95023_|)) (declare (not safe)) - (cons 'phi __tmp95018))) - (__tmp95013 - (let ((__tmp95014 - (let ((__tmp95015 |gx[1]#_g95016_|)) + (cons 'phi __tmp95022))) + (__tmp95017 + (let ((__tmp95018 + (let ((__tmp95019 |gx[1]#_g95020_|)) (declare (not safe)) - (cons 'e __tmp95015)))) + (cons 'e __tmp95019)))) (declare (not safe)) - (cons __tmp95014 '())))) + (cons __tmp95018 '())))) (declare (not safe)) - (cons __tmp95017 __tmp95013)))) + (cons __tmp95021 __tmp95017)))) (declare (not safe)) - (cons __tmp95020 __tmp95012)))) + (cons __tmp95024 __tmp95016)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp95011 + __obj94562 + __tmp95015 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp95023 - (let ((__tmp95032 - (let ((__tmp95033 |gx[1]#_g95034_|)) + (let ((__tmp95027 + (let ((__tmp95036 + (let ((__tmp95037 |gx[1]#_g95038_|)) (declare (not safe)) - (cons 'context __tmp95033))) - (__tmp95024 - (let ((__tmp95029 - (let ((__tmp95030 |gx[1]#_g95031_|)) + (cons 'context __tmp95037))) + (__tmp95028 + (let ((__tmp95033 + (let ((__tmp95034 |gx[1]#_g95035_|)) (declare (not safe)) - (cons 'phi __tmp95030))) - (__tmp95025 - (let ((__tmp95026 - (let ((__tmp95027 |gx[1]#_g95028_|)) + (cons 'phi __tmp95034))) + (__tmp95029 + (let ((__tmp95030 + (let ((__tmp95031 |gx[1]#_g95032_|)) (declare (not safe)) - (cons 'e __tmp95027)))) + (cons 'e __tmp95031)))) (declare (not safe)) - (cons __tmp95026 '())))) + (cons __tmp95030 '())))) (declare (not safe)) - (cons __tmp95029 __tmp95025)))) + (cons __tmp95033 __tmp95029)))) (declare (not safe)) - (cons __tmp95032 __tmp95024)))) + (cons __tmp95036 __tmp95028)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp95023 + __obj94562 + __tmp95027 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94558)))) + __obj94562)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index 30e23989f..c14df4386 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 1710781149) + (define gerbil/expander/root::timestamp 1710833424) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,582 +262,582 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self97231_ _bind?97232_) - (if (##fx< '2 (##structure-length _self97231_)) + (lambda (_self97235_ _bind?97236_) + (if (##fx< '2 (##structure-length _self97235_)) (begin (##unchecked-structure-set! - _self97231_ + _self97235_ 'root '1 - (##structure-type _self97231_) + (##structure-type _self97235_) '#f) (##unchecked-structure-set! - _self97231_ + _self97235_ (make-hash-table-eq) '2 - (##structure-type _self97231_) + (##structure-type _self97235_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self97231_ + _self97235_ '2 - (##vector-length _self97231_))) - (if _bind?97232_ + (##vector-length _self97235_))) + (if _bind?97236_ (begin - (let ((__method97283 - (method-ref _self97231_ 'bind-core-syntax-expanders!))) - (if __method97283 - (__method97283 _self97231_) + (let ((__method97287 + (method-ref _self97235_ 'bind-core-syntax-expanders!))) + (if __method97287 + (__method97287 _self97235_) (error '"Missing method" - _self97231_ + _self97235_ 'bind-core-syntax-expanders!))) - (let ((__method97284 - (method-ref _self97231_ 'bind-core-macro-expanders!))) - (if __method97284 - (__method97284 _self97231_) + (let ((__method97288 + (method-ref _self97235_ 'bind-core-macro-expanders!))) + (if __method97288 + (__method97288 _self97235_) (error '"Missing method" - _self97231_ + _self97235_ 'bind-core-macro-expanders!))) - (let ((__method97285 - (method-ref _self97231_ 'bind-core-features!))) - (if __method97285 - (__method97285 _self97231_) + (let ((__method97289 + (method-ref _self97235_ 'bind-core-features!))) + (if __method97289 + (__method97289 _self97235_) (error '"Missing method" - _self97231_ + _self97235_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self97237_) - (let ((_bind?97239_ '#t)) - (gx#root-context:::init!__% _self97237_ _bind?97239_)))) + (lambda (_self97241_) + (let ((_bind?97243_ '#t)) + (gx#root-context:::init!__% _self97241_ _bind?97243_)))) (define gx#root-context:::init! - (lambda _g97288_ - (let ((_g97287_ (##length _g97288_))) - (cond ((##fx= _g97287_ 1) - (apply (lambda (_self97237_) - (gx#root-context:::init!__0 _self97237_)) - _g97288_)) - ((##fx= _g97287_ 2) - (apply (lambda (_self97241_ _bind?97242_) + (lambda _g97292_ + (let ((_g97291_ (##length _g97292_))) + (cond ((##fx= _g97291_ 1) + (apply (lambda (_self97241_) + (gx#root-context:::init!__0 _self97241_)) + _g97292_)) + ((##fx= _g97291_ 2) + (apply (lambda (_self97245_ _bind?97246_) (gx#root-context:::init!__% - _self97241_ - _bind?97242_)) - _g97288_)) + _self97245_ + _bind?97246_)) + _g97292_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g97288_)))))) + _g97292_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass97243 __method-table97244) - (let ((__bind-core-macro-expanders!97245 + (lambda (__klass97247 __method-table97248) + (let ((__bind-core-features!97249 (make-promise (lambda () - (let ((__method97248 + (let ((__method97252 (symbolic-table-ref - __method-table97244 - 'bind-core-macro-expanders! + __method-table97248 + 'bind-core-features! '#f))) - (if __method97248 - __method97248 - (error '"Missing method" - 'bind-core-macro-expanders!)))))) - (__bind-core-syntax-expanders!97246 + (if __method97252 + __method97252 + (error '"Missing method" 'bind-core-features!)))))) + (__bind-core-macro-expanders!97250 (make-promise (lambda () - (let ((__method97249 + (let ((__method97253 (symbolic-table-ref - __method-table97244 - 'bind-core-syntax-expanders! + __method-table97248 + 'bind-core-macro-expanders! '#f))) - (if __method97249 - __method97249 + (if __method97253 + __method97253 (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-features!97247 + 'bind-core-macro-expanders!)))))) + (__bind-core-syntax-expanders!97251 (make-promise (lambda () - (let ((__method97250 + (let ((__method97254 (symbolic-table-ref - __method-table97244 - 'bind-core-features! + __method-table97248 + 'bind-core-syntax-expanders! '#f))) - (if __method97250 - __method97250 - (error '"Missing method" 'bind-core-features!))))))) - (let ((_opt-lambda9722997234_ - (lambda (_self97231_ _bind?97232_) - (if (##fx< '2 (##structure-length _self97231_)) + (if __method97254 + __method97254 + (error '"Missing method" + 'bind-core-syntax-expanders!))))))) + (let ((_opt-lambda9723397238_ + (lambda (_self97235_ _bind?97236_) + (if (##fx< '2 (##structure-length _self97235_)) (begin (##unchecked-structure-set! - _self97231_ + _self97235_ 'root '1 - (##structure-type _self97231_) + (##structure-type _self97235_) '#f) (##unchecked-structure-set! - _self97231_ + _self97235_ (make-hash-table-eq) '2 - (##structure-type _self97231_) + (##structure-type _self97235_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self97231_ + _self97235_ '2 - (##vector-length _self97231_))) - (if _bind?97232_ + (##vector-length _self97235_))) + (if _bind?97236_ (begin - ((force __bind-core-syntax-expanders!97246) - _self97231_) - ((force __bind-core-macro-expanders!97245) - _self97231_) - ((force __bind-core-features!97247) _self97231_)) + ((force __bind-core-syntax-expanders!97251) + _self97235_) + ((force __bind-core-macro-expanders!97250) + _self97235_) + ((force __bind-core-features!97249) _self97235_)) '#!void)))) - (lambda _g97290_ - (let ((_g97289_ (##length _g97290_))) - (cond ((##fx= _g97289_ 1) - (apply (lambda (_self97237_) - (let ((_bind?97239_ '#t)) - (_opt-lambda9722997234_ - _self97237_ - _bind?97239_))) - _g97290_)) - ((##fx= _g97289_ 2) - (apply (lambda (_self97241_ _bind?97242_) - (_opt-lambda9722997234_ - _self97241_ - _bind?97242_)) - _g97290_)) + (lambda _g97294_ + (let ((_g97293_ (##length _g97294_))) + (cond ((##fx= _g97293_ 1) + (apply (lambda (_self97241_) + (let ((_bind?97243_ '#t)) + (_opt-lambda9723397238_ + _self97241_ + _bind?97243_))) + _g97294_)) + ((##fx= _g97293_ 2) + (apply (lambda (_self97245_ _bind?97246_) + (_opt-lambda9723397238_ + _self97245_ + _bind?97246_)) + _g97294_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g97290_))))))))) + _g97294_))))))))) (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 (_self97087_ _super97088_) - (let ((_super97096_ - (let ((_$e97090_ _super97088_)) - (if _$e97090_ - _$e97090_ - (let ((_$e97093_ (gx#core-context-root__0))) - (if _$e97093_ - _$e97093_ - (let ((__obj97286 + (lambda (_self97091_ _super97092_) + (let ((_super97100_ + (let ((_$e97094_ _super97092_)) + (if _$e97094_ + _$e97094_ + (let ((_$e97097_ (gx#core-context-root__0))) + (if _$e97097_ + _$e97097_ + (let ((__obj97290 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init! __obj97286) - __obj97286))))))) - (if (##fx< '5 (##structure-length _self97087_)) + (gx#root-context:::init! __obj97290) + __obj97290))))))) + (if (##fx< '5 (##structure-length _self97091_)) (begin (##unchecked-structure-set! - _self97087_ + _self97091_ 'top '1 - (##structure-type _self97087_) + (##structure-type _self97091_) '#f) (##unchecked-structure-set! - _self97087_ + _self97091_ (make-hash-table-eq) '2 - (##structure-type _self97087_) + (##structure-type _self97091_) '#f) (##unchecked-structure-set! - _self97087_ - _super97096_ + _self97091_ + _super97100_ '3 - (##structure-type _self97087_) + (##structure-type _self97091_) '#f) (##unchecked-structure-set! - _self97087_ + _self97091_ '#f '4 - (##structure-type _self97087_) + (##structure-type _self97091_) '#f) (##unchecked-structure-set! - _self97087_ + _self97091_ '#f '5 - (##structure-type _self97087_) + (##structure-type _self97091_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self97087_ + _self97091_ '5 - (##vector-length _self97087_)))))) + (##vector-length _self97091_)))))) (define gx#top-context:::init!__0 - (lambda (_self97101_) - (let ((_super97103_ '#f)) - (gx#top-context:::init!__% _self97101_ _super97103_)))) + (lambda (_self97105_) + (let ((_super97107_ '#f)) + (gx#top-context:::init!__% _self97105_ _super97107_)))) (define gx#top-context:::init! - (lambda _g97292_ - (let ((_g97291_ (##length _g97292_))) - (cond ((##fx= _g97291_ 1) - (apply (lambda (_self97101_) - (gx#top-context:::init!__0 _self97101_)) - _g97292_)) - ((##fx= _g97291_ 2) - (apply (lambda (_self97105_ _super97106_) - (gx#top-context:::init!__% _self97105_ _super97106_)) - _g97292_)) + (lambda _g97296_ + (let ((_g97295_ (##length _g97296_))) + (cond ((##fx= _g97295_ 1) + (apply (lambda (_self97105_) + (gx#top-context:::init!__0 _self97105_)) + _g97296_)) + ((##fx= _g97295_ 2) + (apply (lambda (_self97109_ _super97110_) + (gx#top-context:::init!__% _self97109_ _super97110_)) + _g97296_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g97292_)))))) + _g97296_)))))) (bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self96818_ _bindings96819_) + (lambda (_self96822_ _bindings96823_) (for-each - (lambda (_bind96821_) - (let* ((_bind9682296829_ _bind96821_) - (_E9682496833_ - (lambda () (error '"No clause matching" _bind9682296829_))) - (_K9682596942_ - (lambda (_rest96836_ _id96837_) + (lambda (_bind96825_) + (let* ((_bind9682696833_ _bind96825_) + (_E9682896837_ + (lambda () (error '"No clause matching" _bind9682696833_))) + (_K9682996946_ + (lambda (_rest96840_ _id96841_) (gx#core-context-put! - _self96818_ - _id96837_ + _self96822_ + _id96841_ (##structure gx#syntax-binding::t - _id96837_ - _id96837_ + _id96841_ + _id96841_ '#f - (let* ((_rest9683896849_ _rest96836_) - (_E9684096853_ + (let* ((_rest9684296853_ _rest96840_) + (_E9684496857_ (lambda () (error '"No clause matching" - _rest9683896849_))) - (_K9684196918_ - (lambda (_compiler96856_ - _expander96857_ - _key96858_) - ((let* ((_key9685996872_ _key96858_) - (_E9686596876_ + _rest9684296853_))) + (_K9684596922_ + (lambda (_compiler96860_ + _expander96861_ + _key96862_) + ((let* ((_key9686396876_ _key96862_) + (_E9686996880_ (lambda () (error '"No clause matching" - _key9685996872_)))) - (let ((_K9687096912_ + _key9686396876_)))) + (let ((_K9687496916_ (lambda () gx#make-top-special-form)) - (_K9686996905_ + (_K9687396909_ (lambda () gx#make-module-special-form)) - (_K9686896897_ + (_K9687296901_ (lambda () gx#make-definition-form)) - (_K9686796889_ + (_K9687196893_ (lambda () gx#make-special-form)) - (_K9686696881_ + (_K9687096885_ (lambda () gx#make-expression-form))) - (let* ((_try-match9686496884_ + (let* ((_try-match9686896888_ (lambda () - (if (##eq? _key9685996872_ + (if (##eq? _key9686396876_ 'expr:) - (_K9686696881_) - (_E9686596876_)))) - (_try-match9686396892_ + (_K9687096885_) + (_E9686996880_)))) + (_try-match9686796896_ (lambda () - (if (##eq? _key9685996872_ + (if (##eq? _key9686396876_ 'special:) - (_K9686796889_) - (_try-match9686496884_)))) - (_try-match9686296900_ + (_K9687196893_) + (_try-match9686896888_)))) + (_try-match9686696904_ (lambda () - (if (##eq? _key9685996872_ + (if (##eq? _key9686396876_ 'define:) - (_K9686896897_) - (_try-match9686396892_)))) - (_try-match9686196908_ + (_K9687296901_) + (_try-match9686796896_)))) + (_try-match9686596912_ (lambda () - (if (##eq? _key9685996872_ + (if (##eq? _key9686396876_ 'module:) - (_K9686996905_) - (_try-match9686296900_))))) - (if (##eq? _key9685996872_ 'top:) - (_K9687096912_) - (_try-match9686196908_))))) - _expander96857_ - _id96837_ - (let ((_$e96915_ _compiler96856_)) - (if _$e96915_ - _$e96915_ + (_K9687396909_) + (_try-match9686696904_))))) + (if (##eq? _key9686396876_ 'top:) + (_K9687496916_) + (_try-match9686596912_))))) + _expander96861_ + _id96841_ + (let ((_$e96919_ _compiler96860_)) + (if _$e96919_ + _$e96919_ gx#core-compile-top-error)))))) - (if (##pair? _rest9683896849_) - (let ((_hd9684296921_ (##car _rest9683896849_)) - (_tl9684396923_ (##cdr _rest9683896849_))) - (let ((_key96926_ _hd9684296921_)) - (if (##pair? _tl9684396923_) - (let ((_hd9684496928_ - (##car _tl9684396923_)) - (_tl9684596930_ - (##cdr _tl9684396923_))) - (let ((_expander96933_ _hd9684496928_)) - (if (##pair? _tl9684596930_) - (let ((_hd9684696935_ - (##car _tl9684596930_)) - (_tl9684796937_ - (##cdr _tl9684596930_))) - (let ((_compiler96940_ - _hd9684696935_)) - (if (##null? _tl9684796937_) - (_K9684196918_ - _compiler96940_ - _expander96933_ - _key96926_) - (_E9684096853_)))) - (_E9684096853_)))) - (_E9684096853_)))) - (_E9684096853_)))))))) - (if (##pair? _bind9682296829_) - (let ((_hd9682696945_ (##car _bind9682296829_)) - (_tl9682796947_ (##cdr _bind9682296829_))) - (let* ((_id96950_ _hd9682696945_) - (_rest96952_ _tl9682796947_)) - (_K9682596942_ _rest96952_ _id96950_))) - (_E9682496833_)))) - _bindings96819_))) + (if (##pair? _rest9684296853_) + (let ((_hd9684696925_ (##car _rest9684296853_)) + (_tl9684796927_ (##cdr _rest9684296853_))) + (let ((_key96930_ _hd9684696925_)) + (if (##pair? _tl9684796927_) + (let ((_hd9684896932_ + (##car _tl9684796927_)) + (_tl9684996934_ + (##cdr _tl9684796927_))) + (let ((_expander96937_ _hd9684896932_)) + (if (##pair? _tl9684996934_) + (let ((_hd9685096939_ + (##car _tl9684996934_)) + (_tl9685196941_ + (##cdr _tl9684996934_))) + (let ((_compiler96944_ + _hd9685096939_)) + (if (##null? _tl9685196941_) + (_K9684596922_ + _compiler96944_ + _expander96937_ + _key96930_) + (_E9684496857_)))) + (_E9684496857_)))) + (_E9684496857_)))) + (_E9684496857_)))))))) + (if (##pair? _bind9682696833_) + (let ((_hd9683096949_ (##car _bind9682696833_)) + (_tl9683196951_ (##cdr _bind9682696833_))) + (let* ((_id96954_ _hd9683096949_) + (_rest96956_ _tl9683196951_)) + (_K9682996946_ _rest96956_ _id96954_))) + (_E9682896837_)))) + _bindings96823_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self96957_) - (let ((_bindings96959_ gx#*core-syntax-expanders*)) + (lambda (_self96961_) + (let ((_bindings96963_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self96957_ - _bindings96959_)))) + _self96961_ + _bindings96963_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g97294_ - (let ((_g97293_ (##length _g97294_))) - (cond ((##fx= _g97293_ 1) - (apply (lambda (_self96957_) + (lambda _g97298_ + (let ((_g97297_ (##length _g97298_))) + (cond ((##fx= _g97297_ 1) + (apply (lambda (_self96961_) (gx#expander-context::bind-core-syntax-expanders!__0 - _self96957_)) - _g97294_)) - ((##fx= _g97293_ 2) - (apply (lambda (_self96961_ _bindings96962_) + _self96961_)) + _g97298_)) + ((##fx= _g97297_ 2) + (apply (lambda (_self96965_ _bindings96966_) (gx#expander-context::bind-core-syntax-expanders!__% - _self96961_ - _bindings96962_)) - _g97294_)) + _self96965_ + _bindings96966_)) + _g97298_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g97294_)))))) + _g97298_)))))) (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 (_self96590_ _bindings96591_) + (lambda (_self96594_ _bindings96595_) (for-each - (lambda (_bind96593_) - (let* ((_bind9659496601_ _bind96593_) - (_E9659696605_ - (lambda () (error '"No clause matching" _bind9659496601_))) - (_K9659796673_ - (lambda (_rest96608_ _id96609_) + (lambda (_bind96597_) + (let* ((_bind9659896605_ _bind96597_) + (_E9660096609_ + (lambda () (error '"No clause matching" _bind9659896605_))) + (_K9660196677_ + (lambda (_rest96612_ _id96613_) (gx#core-context-put! - _self96590_ - _id96609_ + _self96594_ + _id96613_ (##structure gx#syntax-binding::t - _id96609_ - _id96609_ + _id96613_ + _id96613_ '#f - (let* ((_rest9661096625_ _rest96608_) - (_E9661496629_ + (let* ((_rest9661496629_ _rest96612_) + (_E9661896633_ (lambda () (error '"No clause matching" - _rest9661096625_)))) - (let ((_K9661996658_ - (lambda (_core-id96656_) + _rest9661496629_)))) + (let ((_K9662396662_ + (lambda (_core-id96660_) (##structure gx#rename-macro-expander::t - _core-id96656_))) - (_K9661696643_ - (lambda (_proc96641_) + _core-id96660_))) + (_K9662096647_ + (lambda (_proc96645_) (##structure gx#macro-expander::t - _proc96641_))) - (_K9661596634_ + _proc96645_))) + (_K9661996638_ (lambda () (##structure gx#reserved-expander::t - _id96609_)))) - (let ((_try-match9661396637_ + _id96613_)))) + (let ((_try-match9661796641_ (lambda () - (if (##null? _rest9661096625_) - (_K9661596634_) - (_E9661496629_))))) - (if (##pair? _rest9661096625_) - (let ((_tl9662196663_ - (##cdr _rest9661096625_)) - (_hd9662096661_ - (##car _rest9661096625_))) - (if (##eq? _hd9662096661_ '=>) - (if (##pair? _tl9662196663_) - (let ((_tl9662396668_ - (##cdr _tl9662196663_)) - (_hd9662296666_ - (##car _tl9662196663_))) - (if (##null? _tl9662396668_) - (let ((_core-id96671_ - _hd9662296666_)) + (if (##null? _rest9661496629_) + (_K9661996638_) + (_E9661896633_))))) + (if (##pair? _rest9661496629_) + (let ((_tl9662596667_ + (##cdr _rest9661496629_)) + (_hd9662496665_ + (##car _rest9661496629_))) + (if (##eq? _hd9662496665_ '=>) + (if (##pair? _tl9662596667_) + (let ((_tl9662796672_ + (##cdr _tl9662596667_)) + (_hd9662696670_ + (##car _tl9662596667_))) + (if (##null? _tl9662796672_) + (let ((_core-id96675_ + _hd9662696670_)) (##structure gx#rename-macro-expander::t - _core-id96671_)) - (_E9661496629_))) - (if (##null? _tl9662196663_) - (let ((_proc96651_ - _hd9662096661_)) + _core-id96675_)) + (_E9661896633_))) + (if (##null? _tl9662596667_) + (let ((_proc96655_ + _hd9662496665_)) (##structure gx#macro-expander::t - _proc96651_)) - (_E9661496629_))) - (if (##null? _tl9662196663_) - (let ((_proc96651_ _hd9662096661_)) + _proc96655_)) + (_E9661896633_))) + (if (##null? _tl9662596667_) + (let ((_proc96655_ _hd9662496665_)) (##structure gx#macro-expander::t - _proc96651_)) - (_E9661496629_)))) - (_try-match9661396637_)))))))))) - (if (##pair? _bind9659496601_) - (let ((_hd9659896676_ (##car _bind9659496601_)) - (_tl9659996678_ (##cdr _bind9659496601_))) - (let* ((_id96681_ _hd9659896676_) - (_rest96683_ _tl9659996678_)) - (_K9659796673_ _rest96683_ _id96681_))) - (_E9659696605_)))) - _bindings96591_))) + _proc96655_)) + (_E9661896633_)))) + (_try-match9661796641_)))))))))) + (if (##pair? _bind9659896605_) + (let ((_hd9660296680_ (##car _bind9659896605_)) + (_tl9660396682_ (##cdr _bind9659896605_))) + (let* ((_id96685_ _hd9660296680_) + (_rest96687_ _tl9660396682_)) + (_K9660196677_ _rest96687_ _id96685_))) + (_E9660096609_)))) + _bindings96595_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self96688_) - (let ((_bindings96690_ gx#*core-macro-expanders*)) + (lambda (_self96692_) + (let ((_bindings96694_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self96688_ - _bindings96690_)))) + _self96692_ + _bindings96694_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g97296_ - (let ((_g97295_ (##length _g97296_))) - (cond ((##fx= _g97295_ 1) - (apply (lambda (_self96688_) + (lambda _g97300_ + (let ((_g97299_ (##length _g97300_))) + (cond ((##fx= _g97299_ 1) + (apply (lambda (_self96692_) (gx#expander-context::bind-core-macro-expanders!__0 - _self96688_)) - _g97296_)) - ((##fx= _g97295_ 2) - (apply (lambda (_self96692_ _bindings96693_) + _self96692_)) + _g97300_)) + ((##fx= _g97299_ 2) + (apply (lambda (_self96696_ _bindings96697_) (gx#expander-context::bind-core-macro-expanders!__% - _self96692_ - _bindings96693_)) - _g97296_)) + _self96696_ + _bindings96697_)) + _g97300_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g97296_)))))) + _g97300_)))))) (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 (_self96334_) - (letrec ((_linux-variant?96336_ - (lambda (_sys-type96435_) - (let* ((_g9643696444_ + (lambda (_self96338_) + (letrec ((_linux-variant?96340_ + (lambda (_sys-type96439_) + (let* ((_g9644096448_ (string-split - (symbol->string _sys-type96435_) + (symbol->string _sys-type96439_) '#\-)) - (_else9643896452_ (lambda () '#f)) - (_K9644096457_ - (lambda (_rest96455_) (not (null? _rest96455_))))) - (if (##pair? _g9643696444_) - (let ((_hd9644196460_ (##car _g9643696444_)) - (_tl9644296462_ (##cdr _g9643696444_))) - (if (equal? _hd9644196460_ '"linux") - (let ((_rest96465_ _tl9644296462_)) - (_K9644096457_ _rest96465_)) - (_else9643896452_))) - (_else9643896452_))))) - (_bsd-variant96337_ - (lambda (_sys-type96394_) - (let ((_sys-type-str96396_ - (symbol->string _sys-type96394_))) - (let _lp96398_ ((_rest96400_ + (_else9644296456_ (lambda () '#f)) + (_K9644496461_ + (lambda (_rest96459_) (not (null? _rest96459_))))) + (if (##pair? _g9644096448_) + (let ((_hd9644596464_ (##car _g9644096448_)) + (_tl9644696466_ (##cdr _g9644096448_))) + (if (equal? _hd9644596464_ '"linux") + (let ((_rest96469_ _tl9644696466_)) + (_K9644496461_ _rest96469_)) + (_else9644296456_))) + (_else9644296456_))))) + (_bsd-variant96341_ + (lambda (_sys-type96398_) + (let ((_sys-type-str96400_ + (symbol->string _sys-type96398_))) + (let _lp96402_ ((_rest96404_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_rest9640196409_ _rest96400_) - (_else9640396417_ (lambda () '#f)) - (_K9640596423_ - (lambda (_rest96420_ _sys96421_) + (let* ((_rest9640596413_ _rest96404_) + (_else9640796421_ (lambda () '#f)) + (_K9640996427_ + (lambda (_rest96424_ _sys96425_) (if (string-prefix? - _sys96421_ - _sys-type-str96396_) - _sys96421_ - (_lp96398_ _rest96420_))))) - (if (##pair? _rest9640196409_) - (let ((_hd9640696426_ (##car _rest9640196409_)) - (_tl9640796428_ (##cdr _rest9640196409_))) - (let* ((_sys96431_ _hd9640696426_) - (_rest96433_ _tl9640796428_)) - (_K9640596423_ _rest96433_ _sys96431_))) - (_else9640396417_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _self96334_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self96334_) - (let* ((_g9633896350_ (system-type)) - (_else9634096358_ (lambda () '#!void)) - (_K9634296370_ - (lambda (_sys-type96361_ _sys-vendor96362_ _sys-cpu96363_) + _sys96425_ + _sys-type-str96400_) + _sys96425_ + (_lp96402_ _rest96424_))))) + (if (##pair? _rest9640596413_) + (let ((_hd9641096430_ (##car _rest9640596413_)) + (_tl9641196432_ (##cdr _rest9640596413_))) + (let* ((_sys96435_ _hd9641096430_) + (_rest96437_ _tl9641196432_)) + (_K9640996427_ _rest96437_ _sys96435_))) + (_else9640796421_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _self96338_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self96338_) + (let* ((_g9634296354_ (system-type)) + (_else9634496362_ (lambda () '#!void)) + (_K9634696374_ + (lambda (_sys-type96365_ _sys-vendor96366_ _sys-cpu96367_) (gx#core-bind-feature!__% - _sys-cpu96363_ + _sys-cpu96367_ '#f '0 - _self96334_) + _self96338_) (gx#core-bind-feature!__% - _sys-type96361_ + _sys-type96365_ '#f '0 - _self96334_) - (if (_linux-variant?96336_ _sys-type96361_) + _self96338_) + (if (_linux-variant?96340_ _sys-type96365_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self96334_) - (let ((_$e96365_ (_bsd-variant96337_ _sys-type96361_))) - (if _$e96365_ - ((lambda (_sys-prefix96368_) + _self96338_) + (let ((_$e96369_ (_bsd-variant96341_ _sys-type96365_))) + (if _$e96369_ + ((lambda (_sys-prefix96372_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self96334_) + _self96338_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix96368_) + (string->symbol _sys-prefix96372_) '#f '0 - _self96334_)) - _$e96365_) + _self96338_)) + _$e96369_) '#!void)))))) - (if (##pair? _g9633896350_) - (let ((_hd9634396373_ (##car _g9633896350_)) - (_tl9634496375_ (##cdr _g9633896350_))) - (let ((_sys-cpu96378_ _hd9634396373_)) - (if (##pair? _tl9634496375_) - (let ((_hd9634596380_ (##car _tl9634496375_)) - (_tl9634696382_ (##cdr _tl9634496375_))) - (let ((_sys-vendor96385_ _hd9634596380_)) - (if (##pair? _tl9634696382_) - (let ((_hd9634796387_ (##car _tl9634696382_)) - (_tl9634896389_ (##cdr _tl9634696382_))) - (let ((_sys-type96392_ _hd9634796387_)) - (if (##null? _tl9634896389_) - (_K9634296370_ - _sys-type96392_ - _sys-vendor96385_ - _sys-cpu96378_) + (if (##pair? _g9634296354_) + (let ((_hd9634796377_ (##car _g9634296354_)) + (_tl9634896379_ (##cdr _g9634296354_))) + (let ((_sys-cpu96382_ _hd9634796377_)) + (if (##pair? _tl9634896379_) + (let ((_hd9634996384_ (##car _tl9634896379_)) + (_tl9635096386_ (##cdr _tl9634896379_))) + (let ((_sys-vendor96389_ _hd9634996384_)) + (if (##pair? _tl9635096386_) + (let ((_hd9635196391_ (##car _tl9635096386_)) + (_tl9635296393_ (##cdr _tl9635096386_))) + (let ((_sys-type96396_ _hd9635196391_)) + (if (##null? _tl9635296393_) + (_K9634696374_ + _sys-type96396_ + _sys-vendor96389_ + _sys-cpu96382_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self96334_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self96338_) '#!void)))) (bind-method!__% gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stxcase~0.scm b/src/bootstrap/gerbil/expander/stxcase~0.scm index cbc85277c..7641b9ccc 100644 --- a/src/bootstrap/gerbil/expander/stxcase~0.scm +++ b/src/bootstrap/gerbil/expander/stxcase~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1710781149) + (define gerbil/expander/stxcase::timestamp 1710833424) (begin (define gx#syntax-pattern::t - (let ((__tmp98648 (list gx#expander::t)) - (__tmp98646 - (let ((__tmp98647 + (let ((__tmp98652 (list gx#expander::t)) + (__tmp98650 + (let ((__tmp98651 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp98647 '())))) + (cons __tmp98651 '())))) (declare (not safe)) (make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp98648 + __tmp98652 '(id depth) - __tmp98646 + __tmp98650 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args98643_ - (apply make-instance gx#syntax-pattern::t _$args98643_))) + (lambda _$args98647_ + (apply make-instance gx#syntax-pattern::t _$args98647_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -73,13 +73,13 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_self98640_ _stx98641_) + (lambda (_self98644_ _stx98645_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx98641_)))) + _stx98645_)))) (let () (declare (not safe)) (bind-method!__% @@ -88,699 +88,699 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_stx98122_) - (letrec ((_generate98124_ - (lambda (_e98351_) - (letrec ((_BUG98353_ - (lambda (_q98515_) + (lambda (_stx98126_) + (letrec ((_generate98128_ + (lambda (_e98355_) + (letrec ((_BUG98357_ + (lambda (_q98519_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _stx98122_ - _e98351_ - _q98515_)))) - (_local-pattern-e98354_ - (lambda (_pat98513_) - (let ((__tmp98649 + _stx98126_ + _e98355_ + _q98519_)))) + (_local-pattern-e98358_ + (lambda (_pat98517_) + (let ((__tmp98653 (##structure-ref - _pat98513_ + _pat98517_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp98649)))) - (_getvar98355_ - (lambda (_q98510_ _vars98511_) + (gx#syntax-local-rewrap __tmp98653)))) + (_getvar98359_ + (lambda (_q98514_ _vars98515_) (let () (declare (not safe)) (assgetq__% - _q98510_ - _vars98511_ - _BUG98353_)))) - (_getarg98356_ - (lambda (_arg98476_ _vars98477_) - (let* ((_arg9847898485_ _arg98476_) - (_E9848098489_ + _q98514_ + _vars98515_ + _BUG98357_)))) + (_getarg98360_ + (lambda (_arg98480_ _vars98481_) + (let* ((_arg9848298489_ _arg98480_) + (_E9848498493_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arg9847898485_)))) - (_K9848198498_ - (lambda (_e98492_ _tag98493_) - (let ((_$e98495_ _tag98493_)) + _arg9848298489_)))) + (_K9848598502_ + (lambda (_e98496_ _tag98497_) + (let ((_$e98499_ _tag98497_)) (if (let () (declare (not safe)) - (eq? 'ref _$e98495_)) + (eq? 'ref _$e98499_)) (let () (declare (not safe)) - (_getvar98355_ - _e98492_ - _vars98477_)) + (_getvar98359_ + _e98496_ + _vars98481_)) (if (let () (declare (not safe)) - (eq? 'pattern _$e98495_)) + (eq? 'pattern _$e98499_)) (let () (declare (not safe)) - (_local-pattern-e98354_ - _e98492_)) + (_local-pattern-e98358_ + _e98496_)) (let () (declare (not safe)) - (_BUG98353_ - _arg98476_)))))))) + (_BUG98357_ + _arg98480_)))))))) (if (let () (declare (not safe)) - (##pair? _arg9847898485_)) - (let ((_hd9848298501_ + (##pair? _arg9848298489_)) + (let ((_hd9848698505_ (let () (declare (not safe)) - (##car _arg9847898485_))) - (_tl9848398503_ + (##car _arg9848298489_))) + (_tl9848798507_ (let () (declare (not safe)) - (##cdr _arg9847898485_)))) - (let* ((_tag98506_ _hd9848298501_) - (_e98508_ _tl9848398503_)) + (##cdr _arg9848298489_)))) + (let* ((_tag98510_ _hd9848698505_) + (_e98512_ _tl9848798507_)) (declare (not safe)) - (_K9848198498_ _e98508_ _tag98506_))) + (_K9848598502_ _e98512_ _tag98510_))) (let () (declare (not safe)) - (_E9848098489_))))))) - (let _recur98358_ ((_e98360_ _e98351_) (_vars98361_ '())) - (let* ((_e9836298369_ _e98360_) - (_E9836498373_ + (_E9848498493_))))))) + (let _recur98362_ ((_e98364_ _e98355_) (_vars98365_ '())) + (let* ((_e9836698373_ _e98364_) + (_E9836898377_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9836298369_)))) - (_K9836598464_ - (lambda (_body98376_ _tag98377_) - (let ((_$e98379_ _tag98377_)) + _e9836698373_)))) + (_K9836998468_ + (lambda (_body98380_ _tag98381_) + (let ((_$e98383_ _tag98381_)) (if (let () (declare (not safe)) - (eq? 'datum _$e98379_)) + (eq? 'datum _$e98383_)) (let () (declare (not safe)) - (gx#core-list 'quote _body98376_)) + (gx#core-list 'quote _body98380_)) (if (let () (declare (not safe)) - (eq? 'term _$e98379_)) - (let ((_id98382_ + (eq? 'term _$e98383_)) + (let ((_id98386_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _body98376_)))) + _body98380_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id98382_ + _id98386_ 'gx#identifier-wrap::t)) - (let ((_marks98384_ + (let ((_marks98388_ (let () (declare (not safe)) (##unchecked-structure-ref - _id98382_ + _id98386_ '3 gx#identifier-wrap::t '#f)))) (if (let () (declare (not safe)) - (null? _marks98384_)) - (let ((__tmp98677 + (null? _marks98388_)) + (let ((__tmp98681 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _body98376_)))) + (gx#core-list 'quote _body98380_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp98677)) - (let ((__tmp98676 + (gx#core-list 'datum->syntax '#f __tmp98681)) + (let ((__tmp98680 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _body98376_))) - (__tmp98675 + (gx#core-list 'quote-syntax _body98380_))) + (__tmp98679 (let () (declare (not safe)) - (gx#core-list 'quote _body98376_)))) + (gx#core-list 'quote _body98380_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp98676 - __tmp98675 + __tmp98680 + __tmp98679 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id98382_ + _id98386_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _body98376_)) + _body98380_)) (let () (declare (not safe)) - (_BUG98353_ - _e98360_))))) + (_BUG98357_ + _e98364_))))) (if (let () (declare (not safe)) - (eq? 'pattern _$e98379_)) + (eq? 'pattern _$e98383_)) (let () (declare (not safe)) - (_local-pattern-e98354_ - _body98376_)) + (_local-pattern-e98358_ + _body98380_)) (if (let () (declare (not safe)) - (eq? 'ref _$e98379_)) + (eq? 'ref _$e98383_)) (let () (declare (not safe)) - (_getvar98355_ - _body98376_ - _vars98361_)) + (_getvar98359_ + _body98380_ + _vars98365_)) (if (let () (declare (not safe)) (eq? 'cons - _$e98379_)) - (let ((__tmp98673 - (let ((__tmp98674 + _$e98383_)) + (let ((__tmp98677 + (let ((__tmp98678 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _body98376_))) + (car _body98380_))) (declare (not safe)) - (_recur98358_ __tmp98674 _vars98361_))) - (__tmp98671 - (let ((__tmp98672 (cdr _body98376_))) + (_recur98362_ __tmp98678 _vars98365_))) + (__tmp98675 + (let ((__tmp98676 (cdr _body98380_))) (declare (not safe)) - (_recur98358_ __tmp98672 _vars98361_)))) + (_recur98362_ __tmp98676 _vars98365_)))) (declare (not safe)) - (gx#core-list 'cons __tmp98673 __tmp98671)) - (if (let () (declare (not safe)) (eq? 'vector _$e98379_)) - (let ((__tmp98670 + (gx#core-list 'cons __tmp98677 __tmp98675)) + (if (let () (declare (not safe)) (eq? 'vector _$e98383_)) + (let ((__tmp98674 (let () (declare (not safe)) - (_recur98358_ _body98376_ _vars98361_)))) + (_recur98362_ _body98380_ _vars98365_)))) (declare (not safe)) - (gx#core-list 'list->vector __tmp98670)) - (if (let () (declare (not safe)) (eq? 'box _$e98379_)) - (let ((__tmp98669 + (gx#core-list 'list->vector __tmp98674)) + (if (let () (declare (not safe)) (eq? 'box _$e98383_)) + (let ((__tmp98673 (let () (declare (not safe)) - (_recur98358_ _body98376_ _vars98361_)))) + (_recur98362_ _body98380_ _vars98365_)))) (declare (not safe)) - (gx#core-list 'box __tmp98669)) + (gx#core-list 'box __tmp98673)) (if (let () (declare (not safe)) - (eq? 'splice _$e98379_)) - (let* ((_body9838598396_ _body98376_) - (_E9838798400_ + (eq? 'splice _$e98383_)) + (let* ((_body9838998400_ _body98380_) + (_E9839198404_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9838598396_)))) - (_K9838898438_ - (lambda (_args98403_ - _iv98404_ - _hd98405_ - _depth98406_) - (let* ((_targets98412_ - (map (lambda (_g9840798409_) + _body9838998400_)))) + (_K9839298442_ + (lambda (_args98407_ + _iv98408_ + _hd98409_ + _depth98410_) + (let* ((_targets98416_ + (map (lambda (_g9841198413_) (let () (declare (not safe)) - (_getarg98356_ - _g9840798409_ - _vars98361_))) - _args98403_)) - (_fold-in98414_ + (_getarg98360_ + _g9841198413_ + _vars98365_))) + _args98407_)) + (_fold-in98418_ (let () (declare (not safe)) - (gx#gentemps _args98403_))) - (_fold-out98416_ + (gx#gentemps _args98407_))) + (_fold-out98420_ (let () (declare (not safe)) (gx#genident__0))) - (_lambda-args98418_ - (let ((__tmp98650 + (_lambda-args98422_ + (let ((__tmp98654 (let () (declare (not safe)) - (cons _fold-out98416_ + (cons _fold-out98420_ '())))) (declare (not safe)) (foldr1 cons - __tmp98650 - _fold-in98414_))) - (_lambda-body98435_ - (if (fx> _depth98406_ '1) - (let ((_r-args98426_ - (map (lambda (_arg98420_) - (let ((__tmp98655 + __tmp98654 + _fold-in98418_))) + (_lambda-body98439_ + (if (fx> _depth98410_ '1) + (let ((_r-args98430_ + (map (lambda (_arg98424_) + (let ((__tmp98659 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg98420_))) + (cdr _arg98424_))) (declare (not safe)) - (cons 'ref __tmp98655))) - _args98403_)) - (_r-vars98427_ - (let ((__tmp98656 - (lambda (_arg98422_ _var98423_ _r98424_) - (let ((__tmp98657 - (let ((__tmp98658 (cdr _arg98422_))) + (cons 'ref __tmp98659))) + _args98407_)) + (_r-vars98431_ + (let ((__tmp98660 + (lambda (_arg98426_ _var98427_ _r98428_) + (let ((__tmp98661 + (let ((__tmp98662 (cdr _arg98426_))) (declare (not safe)) - (cons __tmp98658 _var98423_)))) + (cons __tmp98662 _var98427_)))) (declare (not safe)) - (cons __tmp98657 _r98424_))))) + (cons __tmp98661 _r98428_))))) (declare (not safe)) - (foldr2 __tmp98656 - _vars98361_ - _args98403_ - _fold-in98414_)))) + (foldr2 __tmp98660 + _vars98365_ + _args98407_ + _fold-in98418_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp98659 - (let ((__tmp98660 + (let ((__tmp98663 + (let ((__tmp98664 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98664 + (let ((__tmp98668 (let () (declare (not safe)) - (fx- _depth98406_ '1))) - (__tmp98661 - (let ((__tmp98662 - (let ((__tmp98663 + (fx- _depth98410_ '1))) + (__tmp98665 + (let ((__tmp98666 + (let ((__tmp98667 (let () (declare (not safe)) - (cons 'var _fold-out98416_)))) + (cons 'var _fold-out98420_)))) (declare (not safe)) - (cons __tmp98663 _r-args98426_)))) + (cons __tmp98667 _r-args98430_)))) (declare (not safe)) - (cons _hd98405_ __tmp98662)))) + (cons _hd98409_ __tmp98666)))) (declare (not safe)) - (cons __tmp98664 __tmp98661)))) + (cons __tmp98668 __tmp98665)))) (declare (not safe)) - (cons 'splice __tmp98660)))) + (cons 'splice __tmp98664)))) (declare (not safe)) - (_recur98358_ __tmp98659 _r-vars98427_))) + (_recur98362_ __tmp98663 _r-vars98431_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_hd-vars98433_ - (let ((__tmp98651 + (let* ((_hd-vars98437_ + (let ((__tmp98655 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_arg98429_ _var98430_ _r98431_) - (let ((__tmp98652 - (let ((__tmp98653 (cdr _arg98429_))) + (lambda (_arg98433_ _var98434_ _r98435_) + (let ((__tmp98656 + (let ((__tmp98657 (cdr _arg98433_))) (declare (not safe)) - (cons __tmp98653 _var98430_)))) + (cons __tmp98657 _var98434_)))) (declare (not safe)) - (cons __tmp98652 _r98431_))))) + (cons __tmp98656 _r98435_))))) (declare (not safe)) - (foldr2 __tmp98651 - _vars98361_ - _args98403_ - _fold-in98414_))) - (__tmp98654 + (foldr2 __tmp98655 + _vars98365_ + _args98407_ + _fold-in98418_))) + (__tmp98658 (let () (declare (not safe)) - (_recur98358_ _hd98405_ _hd-vars98433_)))) + (_recur98362_ _hd98409_ _hd-vars98437_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp98654 - _fold-out98416_))))) - (let ((__tmp98668 - (if (fx> (length _targets98412_) + __tmp98658 + _fold-out98420_))))) + (let ((__tmp98672 + (if (fx> (length _targets98416_) '1) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _targets98412_)) + _targets98416_)) '#!void)) - (__tmp98665 - (let ((__tmp98667 + (__tmp98669 + (let ((__tmp98671 (let () (declare (not safe)) (gx#core-list 'lambda% - _lambda-args98418_ - _lambda-body98435_))) - (__tmp98666 + _lambda-args98422_ + _lambda-body98439_))) + (__tmp98670 (let () (declare (not safe)) - (_recur98358_ - _iv98404_ - _vars98361_)))) + (_recur98362_ + _iv98408_ + _vars98365_)))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp98667 - __tmp98666 - _targets98412_)))) + __tmp98671 + __tmp98670 + _targets98416_)))) (declare (not safe)) (gx#core-list 'begin - __tmp98668 - __tmp98665)))))) + __tmp98672 + __tmp98669)))))) (if (let () (declare (not safe)) - (##pair? _body9838598396_)) - (let ((_hd9838998441_ + (##pair? _body9838998400_)) + (let ((_hd9839398445_ (let () (declare (not safe)) - (##car _body9838598396_))) - (_tl9839098443_ + (##car _body9838998400_))) + (_tl9839498447_ (let () (declare (not safe)) - (##cdr _body9838598396_)))) - (let ((_depth98446_ _hd9838998441_)) + (##cdr _body9838998400_)))) + (let ((_depth98450_ _hd9839398445_)) (if (let () (declare (not safe)) - (##pair? _tl9839098443_)) - (let ((_hd9839198448_ + (##pair? _tl9839498447_)) + (let ((_hd9839598452_ (let () (declare (not safe)) - (##car _tl9839098443_))) - (_tl9839298450_ + (##car _tl9839498447_))) + (_tl9839698454_ (let () (declare (not safe)) - (##cdr _tl9839098443_)))) - (let ((_hd98453_ _hd9839198448_)) + (##cdr _tl9839498447_)))) + (let ((_hd98457_ _hd9839598452_)) (if (let () (declare (not safe)) - (##pair? _tl9839298450_)) - (let ((_hd9839398455_ + (##pair? _tl9839698454_)) + (let ((_hd9839798459_ (let () (declare (not safe)) - (##car _tl9839298450_))) - (_tl9839498457_ + (##car _tl9839698454_))) + (_tl9839898461_ (let () (declare (not safe)) - (##cdr _tl9839298450_)))) - (let* ((_iv98460_ - _hd9839398455_) - (_args98462_ - _tl9839498457_)) + (##cdr _tl9839698454_)))) + (let* ((_iv98464_ + _hd9839798459_) + (_args98466_ + _tl9839898461_)) (declare (not safe)) - (_K9838898438_ - _args98462_ - _iv98460_ - _hd98453_ - _depth98446_))) + (_K9839298442_ + _args98466_ + _iv98464_ + _hd98457_ + _depth98450_))) (let () (declare (not safe)) - (_E9838798400_))))) + (_E9839198404_))))) (let () (declare (not safe)) - (_E9838798400_))))) + (_E9839198404_))))) (let () (declare (not safe)) - (_E9838798400_)))) + (_E9839198404_)))) (if (let () (declare (not safe)) - (eq? 'var _$e98379_)) - _body98376_ + (eq? 'var _$e98383_)) + _body98380_ (let () (declare (not safe)) - (_BUG98353_ _e98360_))))))))))))))) + (_BUG98357_ _e98364_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9836298369_)) - (let ((_hd9836698467_ + (##pair? _e9836698373_)) + (let ((_hd9837098471_ (let () (declare (not safe)) - (##car _e9836298369_))) - (_tl9836798469_ + (##car _e9836698373_))) + (_tl9837198473_ (let () (declare (not safe)) - (##cdr _e9836298369_)))) - (let* ((_tag98472_ _hd9836698467_) - (_body98474_ _tl9836798469_)) + (##cdr _e9836698373_)))) + (let* ((_tag98476_ _hd9837098471_) + (_body98478_ _tl9837198473_)) (declare (not safe)) - (_K9836598464_ _body98474_ _tag98472_))) + (_K9836998468_ _body98478_ _tag98476_))) (let () (declare (not safe)) - (_E9836498373_)))))))) - (_parse98125_ - (lambda (_e98166_) - (letrec ((_make-cons98168_ - (lambda (_hd98343_ _tl98344_) - (let ((_g98678_ _hd98343_) - (_g98680_ _tl98344_)) + (_E9836898377_)))))))) + (_parse98129_ + (lambda (_e98170_) + (letrec ((_make-cons98172_ + (lambda (_hd98347_ _tl98348_) + (let ((_g98682_ _hd98347_) + (_g98684_ _tl98348_)) (begin - (let ((_g98679_ + (let ((_g98683_ (let () (declare (not safe)) - (if (##values? _g98678_) - (##vector-length _g98678_) + (if (##values? _g98682_) + (##vector-length _g98682_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98679_ 2))) + (##fx= _g98683_ 2))) (error "Context expects 2 values" - _g98679_))) - (let ((_g98681_ + _g98683_))) + (let ((_g98685_ (let () (declare (not safe)) - (if (##values? _g98680_) - (##vector-length _g98680_) + (if (##values? _g98684_) + (##vector-length _g98684_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98681_ 2))) + (##fx= _g98685_ 2))) (error "Context expects 2 values" - _g98681_))) - (let ((_hd-e98346_ + _g98685_))) + (let ((_hd-e98350_ (let () (declare (not safe)) - (##vector-ref _g98678_ 0))) - (_hd-vars98347_ + (##vector-ref _g98682_ 0))) + (_hd-vars98351_ (let () (declare (not safe)) - (##vector-ref _g98678_ 1)))) - (let ((_tl-e98348_ + (##vector-ref _g98682_ 1)))) + (let ((_tl-e98352_ (let () (declare (not safe)) - (##vector-ref _g98680_ 0))) - (_tl-vars98349_ + (##vector-ref _g98684_ 0))) + (_tl-vars98353_ (let () (declare (not safe)) - (##vector-ref _g98680_ 1)))) - (values (let ((__tmp98682 + (##vector-ref _g98684_ 1)))) + (values (let ((__tmp98686 (let () (declare (not safe)) - (cons _hd-e98346_ - _tl-e98348_)))) + (cons _hd-e98350_ + _tl-e98352_)))) (declare (not safe)) - (cons 'cons __tmp98682)) - (append _hd-vars98347_ - _tl-vars98349_)))))))) - (_make-splice98169_ - (lambda (_where98282_ - _depth98283_ - _hd98284_ - _tl98285_) - (let ((_g98683_ _hd98284_) - (_g98685_ _tl98285_)) + (cons 'cons __tmp98686)) + (append _hd-vars98351_ + _tl-vars98353_)))))))) + (_make-splice98173_ + (lambda (_where98286_ + _depth98287_ + _hd98288_ + _tl98289_) + (let ((_g98687_ _hd98288_) + (_g98689_ _tl98289_)) (begin - (let ((_g98684_ + (let ((_g98688_ (let () (declare (not safe)) - (if (##values? _g98683_) - (##vector-length _g98683_) + (if (##values? _g98687_) + (##vector-length _g98687_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98684_ 2))) + (##fx= _g98688_ 2))) (error "Context expects 2 values" - _g98684_))) - (let ((_g98686_ + _g98688_))) + (let ((_g98690_ (let () (declare (not safe)) - (if (##values? _g98685_) - (##vector-length _g98685_) + (if (##values? _g98689_) + (##vector-length _g98689_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98686_ 2))) + (##fx= _g98690_ 2))) (error "Context expects 2 values" - _g98686_))) - (let ((_hd-e98287_ + _g98690_))) + (let ((_hd-e98291_ (let () (declare (not safe)) - (##vector-ref _g98683_ 0))) - (_hd-vars98288_ + (##vector-ref _g98687_ 0))) + (_hd-vars98292_ (let () (declare (not safe)) - (##vector-ref _g98683_ 1)))) - (let ((_tl-e98289_ + (##vector-ref _g98687_ 1)))) + (let ((_tl-e98293_ (let () (declare (not safe)) - (##vector-ref _g98685_ 0))) - (_tl-vars98290_ + (##vector-ref _g98689_ 0))) + (_tl-vars98294_ (let () (declare (not safe)) - (##vector-ref _g98685_ 1)))) - (let _lp98292_ ((_rest98294_ - _hd-vars98288_) - (_targets98295_ '()) - (_vars98296_ - _tl-vars98290_)) - (let* ((_rest9829798307_ _rest98294_) - (_else9829998315_ + (##vector-ref _g98689_ 1)))) + (let _lp98296_ ((_rest98298_ + _hd-vars98292_) + (_targets98299_ '()) + (_vars98300_ + _tl-vars98294_)) + (let* ((_rest9830198311_ _rest98298_) + (_else9830398319_ (lambda () (if (let () (declare (not safe)) - (null? _targets98295_)) + (null? _targets98299_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx98122_ - _where98282_)) - (values (let ((__tmp98687 + _stx98126_ + _where98286_)) + (values (let ((__tmp98691 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98688 - (let ((__tmp98689 + (let ((__tmp98692 + (let ((__tmp98693 (let () (declare (not safe)) - (cons _tl-e98289_ - _targets98295_)))) + (cons _tl-e98293_ + _targets98299_)))) (declare (not safe)) - (cons _hd-e98287_ __tmp98689)))) + (cons _hd-e98291_ __tmp98693)))) (declare (not safe)) - (cons _depth98283_ __tmp98688)))) + (cons _depth98287_ __tmp98692)))) (declare (not safe)) - (cons 'splice __tmp98687)) - _vars98296_)))) + (cons 'splice __tmp98691)) + _vars98300_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9830198324_ - (lambda (_rest98318_ - _hd-pat98319_ - _hd-depth*98320_) - (let ((_hd-depth98322_ - (fx- _hd-depth*98320_ - _depth98283_))) + (_K9830598328_ + (lambda (_rest98322_ + _hd-pat98323_ + _hd-depth*98324_) + (let ((_hd-depth98326_ + (fx- _hd-depth*98324_ + _depth98287_))) (if (fxpositive? - _hd-depth98322_) - (let ((__tmp98694 + _hd-depth98326_) + (let ((__tmp98698 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98695 + (let ((__tmp98699 (let () (declare (not safe)) - (cons 'ref _hd-pat98319_)))) + (cons 'ref _hd-pat98323_)))) (declare (not safe)) - (cons __tmp98695 _targets98295_))) - (__tmp98692 - (let ((__tmp98693 + (cons __tmp98699 _targets98299_))) + (__tmp98696 + (let ((__tmp98697 (let () (declare (not safe)) - (cons _hd-depth98322_ _hd-pat98319_)))) + (cons _hd-depth98326_ _hd-pat98323_)))) (declare (not safe)) - (cons __tmp98693 _vars98296_)))) + (cons __tmp98697 _vars98300_)))) (declare (not safe)) - (_lp98292_ _rest98318_ __tmp98694 __tmp98692)) - (if (let () (declare (not safe)) (fxzero? _hd-depth98322_)) - (let ((__tmp98690 - (let ((__tmp98691 + (_lp98296_ _rest98322_ __tmp98698 __tmp98696)) + (if (let () (declare (not safe)) (fxzero? _hd-depth98326_)) + (let ((__tmp98694 + (let ((__tmp98695 (let () (declare (not safe)) - (cons 'pattern _hd-pat98319_)))) + (cons 'pattern _hd-pat98323_)))) (declare (not safe)) - (cons __tmp98691 _targets98295_)))) + (cons __tmp98695 _targets98299_)))) (declare (not safe)) - (_lp98292_ _rest98318_ __tmp98690 _vars98296_)) + (_lp98296_ _rest98322_ __tmp98694 _vars98300_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx98122_ - _where98282_)))))))) + _stx98126_ + _where98286_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest9829798307_)) - (let ((_hd9830298327_ + (##pair? _rest9830198311_)) + (let ((_hd9830698331_ (let () (declare (not safe)) - (##car _rest9829798307_))) - (_tl9830398329_ + (##car _rest9830198311_))) + (_tl9830798333_ (let () (declare (not safe)) - (##cdr _rest9829798307_)))) + (##cdr _rest9830198311_)))) (if (let () (declare (not safe)) - (##pair? _hd9830298327_)) - (let ((_hd9830498332_ + (##pair? _hd9830698331_)) + (let ((_hd9830898336_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd9830298327_))) - (_tl9830598334_ - (let () (declare (not safe)) (##cdr _hd9830298327_)))) - (let* ((_hd-depth*98337_ _hd9830498332_) - (_hd-pat98339_ _tl9830598334_) - (_rest98341_ _tl9830398329_)) + (##car _hd9830698331_))) + (_tl9830998338_ + (let () (declare (not safe)) (##cdr _hd9830698331_)))) + (let* ((_hd-depth*98341_ _hd9830898336_) + (_hd-pat98343_ _tl9830998338_) + (_rest98345_ _tl9830798333_)) (declare (not safe)) - (_K9830198324_ _rest98341_ _hd-pat98339_ _hd-depth*98337_))) - (let () (declare (not safe)) (_else9829998315_)))) + (_K9830598328_ _rest98345_ _hd-pat98343_ _hd-depth*98341_))) + (let () (declare (not safe)) (_else9830398319_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else9829998315_))))))))))) - (_recur98170_ - (lambda (_e98175_ _is-e?98176_) - (if (_is-e?98176_ _e98175_) + (_else9830398319_))))))))))) + (_recur98174_ + (lambda (_e98179_ _is-e?98180_) + (if (_is-e?98180_ _e98179_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx98122_)) + _stx98126_)) (if (let () (declare (not safe)) - (gx#syntax-local-pattern? _e98175_)) - (let* ((_pat98178_ + (gx#syntax-local-pattern? _e98179_)) + (let* ((_pat98182_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _e98175_))) - (_depth98180_ + _e98179_))) + (_depth98184_ (##structure-ref - _pat98178_ + _pat98182_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth98180_) + (if (fxpositive? _depth98184_) (values (let () (declare (not safe)) - (cons 'ref _pat98178_)) - (let ((__tmp98711 + (cons 'ref _pat98182_)) + (let ((__tmp98715 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _depth98180_ _pat98178_)))) + (cons _depth98184_ _pat98182_)))) (declare (not safe)) - (cons __tmp98711 '()))) + (cons __tmp98715 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (let () (declare (not safe)) (cons 'pattern - _pat98178_)) + _pat98182_)) '()))) (if (let () (declare (not safe)) - (gx#identifier? _e98175_)) + (gx#identifier? _e98179_)) (values (let () (declare (not safe)) - (cons 'term _e98175_)) + (cons 'term _e98179_)) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _e98175_)) - (let* ((_e9818298189_ _e98175_) - (_E9818498193_ + (gx#stx-pair? _e98179_)) + (let* ((_e9818698193_ _e98179_) + (_E9818898197_ (lambda () (let () (declare @@ -788,2429 +788,2429 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9818298189_)))) - (_E9818398272_ + _e9818698193_)))) + (_E9818798276_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _e9818298189_)) - (let ((_e9818598197_ + (gx#stx-pair? _e9818698193_)) + (let ((_e9818998201_ (let () (declare (not safe)) - (gx#syntax-e _e9818298189_)))) - (let ((_hd9818698200_ + (gx#syntax-e _e9818698193_)))) + (let ((_hd9819098204_ (let () (declare (not safe)) - (##car _e9818598197_))) - (_tl9818798202_ + (##car _e9818998201_))) + (_tl9819198206_ (let () (declare (not safe)) - (##cdr _e9818598197_)))) - (let* ((_hd98205_ _hd9818698200_) - (_rest98207_ _tl9818798202_)) + (##cdr _e9818998201_)))) + (let* ((_hd98209_ _hd9819098204_) + (_rest98211_ _tl9819198206_)) (if '#t - (if (_is-e?98176_ _hd98205_) - (let* ((_e9820898215_ _rest98207_) - (_E9821098219_ + (if (_is-e?98180_ _hd98209_) + (let* ((_e9821298219_ _rest98211_) + (_E9821498223_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx98122_ - _e98175_)))) - (_E9820998233_ + _stx98126_ + _e98179_)))) + (_E9821398237_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e9820898215_)) - (let ((_e9821198223_ + _e9821298219_)) + (let ((_e9821598227_ (let () (declare (not safe)) (gx#syntax-e - _e9820898215_)))) - (let ((_hd9821298226_ + _e9821298219_)))) + (let ((_hd9821698230_ (let () (declare (not safe)) - (##car _e9821198223_))) - (_tl9821398228_ + (##car _e9821598227_))) + (_tl9821798232_ (let () (declare (not safe)) - (##cdr _e9821198223_)))) - (let ((_rest98231_ - _hd9821298226_)) + (##cdr _e9821598227_)))) + (let ((_rest98235_ + _hd9821698230_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl9821398228_)) + _tl9821798232_)) (if '#t (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_recur98170_ _rest98231_ false)) - (let () (declare (not safe)) (_E9821098219_))) - (let () (declare (not safe)) (_E9821098219_)))))) + (_recur98174_ _rest98235_ false)) + (let () (declare (not safe)) (_E9821498223_))) + (let () (declare (not safe)) (_E9821498223_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9821098219_)))))) + (_E9821498223_)))))) (let () (declare (not safe)) - (_E9820998233_))) - (let _lp98237_ ((_rest98239_ _rest98207_) - (_depth98240_ '0)) - (let* ((_e9824198248_ _rest98239_) - (_E9824398252_ + (_E9821398237_))) + (let _lp98241_ ((_rest98243_ _rest98211_) + (_depth98244_ '0)) + (let* ((_e9824598252_ _rest98243_) + (_E9824798256_ (lambda () - (if (fxpositive? _depth98240_) - (let ((__tmp98705 + (if (fxpositive? _depth98244_) + (let ((__tmp98709 (let () (declare (not safe)) - (_recur98170_ - _hd98205_ - _is-e?98176_))) - (__tmp98704 + (_recur98174_ + _hd98209_ + _is-e?98180_))) + (__tmp98708 (let () (declare (not safe)) - (_recur98170_ - _rest98239_ - _is-e?98176_)))) + (_recur98174_ + _rest98243_ + _is-e?98180_)))) (declare (not safe)) - (_make-splice98169_ - _e98175_ - _depth98240_ - __tmp98705 - __tmp98704)) - (let ((__tmp98703 + (_make-splice98173_ + _e98179_ + _depth98244_ + __tmp98709 + __tmp98708)) + (let ((__tmp98707 (let () (declare (not safe)) - (_recur98170_ - _hd98205_ - _is-e?98176_))) - (__tmp98702 + (_recur98174_ + _hd98209_ + _is-e?98180_))) + (__tmp98706 (let () (declare (not safe)) - (_recur98170_ - _rest98239_ - _is-e?98176_)))) + (_recur98174_ + _rest98243_ + _is-e?98180_)))) (declare (not safe)) - (_make-cons98168_ - __tmp98703 - __tmp98702))))) - (_E9824298268_ + (_make-cons98172_ + __tmp98707 + __tmp98706))))) + (_E9824698272_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e9824198248_)) - (let ((_e9824498256_ + _e9824598252_)) + (let ((_e9824898260_ (let () (declare (not safe)) (gx#syntax-e - _e9824198248_)))) - (let ((_hd9824598259_ + _e9824598252_)))) + (let ((_hd9824998263_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e9824498256_))) - (_tl9824698261_ - (let () (declare (not safe)) (##cdr _e9824498256_)))) - (let* ((_rest-hd98264_ _hd9824598259_) - (_rest-tl98266_ _tl9824698261_)) + (##car _e9824898260_))) + (_tl9825098265_ + (let () (declare (not safe)) (##cdr _e9824898260_)))) + (let* ((_rest-hd98268_ _hd9824998263_) + (_rest-tl98270_ _tl9825098265_)) (if '#t - (if (_is-e?98176_ _rest-hd98264_) - (let ((__tmp98710 + (if (_is-e?98180_ _rest-hd98268_) + (let ((__tmp98714 (let () (declare (not safe)) - (fx+ _depth98240_ '1)))) + (fx+ _depth98244_ '1)))) (declare (not safe)) - (_lp98237_ _rest-tl98266_ __tmp98710)) - (if (fxpositive? _depth98240_) - (let ((__tmp98709 + (_lp98241_ _rest-tl98270_ __tmp98714)) + (if (fxpositive? _depth98244_) + (let ((__tmp98713 (let () (declare (not safe)) - (_recur98170_ _hd98205_ _is-e?98176_))) - (__tmp98708 + (_recur98174_ _hd98209_ _is-e?98180_))) + (__tmp98712 (let () (declare (not safe)) - (_recur98170_ - _rest98239_ - _is-e?98176_)))) + (_recur98174_ + _rest98243_ + _is-e?98180_)))) (declare (not safe)) - (_make-splice98169_ - _e98175_ - _depth98240_ - __tmp98709 - __tmp98708)) - (let ((__tmp98707 + (_make-splice98173_ + _e98179_ + _depth98244_ + __tmp98713 + __tmp98712)) + (let ((__tmp98711 (let () (declare (not safe)) - (_recur98170_ _hd98205_ _is-e?98176_))) - (__tmp98706 + (_recur98174_ _hd98209_ _is-e?98180_))) + (__tmp98710 (let () (declare (not safe)) - (_recur98170_ - _rest98239_ - _is-e?98176_)))) + (_recur98174_ + _rest98243_ + _is-e?98180_)))) (declare (not safe)) - (_make-cons98168_ __tmp98707 __tmp98706)))) - (let () (declare (not safe)) (_E9824398252_)))))) + (_make-cons98172_ __tmp98711 __tmp98710)))) + (let () (declare (not safe)) (_E9824798256_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9824398252_)))))) + (_E9824798256_)))))) (let () (declare (not safe)) - (_E9824298268_))))) + (_E9824698272_))))) (let () (declare (not safe)) - (_E9818498193_)))))) - (let () (declare (not safe)) (_E9818498193_)))))) + (_E9818898197_)))))) + (let () (declare (not safe)) (_E9818898197_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9818398272_))) + (_E9818798276_))) (if (let () (declare (not safe)) (gx#stx-vector? - _e98175_)) - (let ((_g98699_ - (let ((__tmp98701 + _e98179_)) + (let ((_g98703_ + (let ((__tmp98705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (vector->list (let () (declare (not safe)) - (gx#stx-unwrap__0 _e98175_))))) + (gx#stx-unwrap__0 _e98179_))))) (declare (not safe)) - (_recur98170_ __tmp98701 _is-e?98176_)))) + (_recur98174_ __tmp98705 _is-e?98180_)))) (begin - (let ((_g98700_ + (let ((_g98704_ (let () (declare (not safe)) - (if (##values? _g98699_) - (##vector-length _g98699_) + (if (##values? _g98703_) + (##vector-length _g98703_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g98700_ 2))) - (error "Context expects 2 values" _g98700_))) - (let ((_e98276_ - (let () (declare (not safe)) (##vector-ref _g98699_ 0))) - (_vars98277_ + (if (not (let () (declare (not safe)) (##fx= _g98704_ 2))) + (error "Context expects 2 values" _g98704_))) + (let ((_e98280_ + (let () (declare (not safe)) (##vector-ref _g98703_ 0))) + (_vars98281_ (let () (declare (not safe)) - (##vector-ref _g98699_ 1)))) - (values (let () (declare (not safe)) (cons 'vector _e98276_)) - _vars98277_)))) + (##vector-ref _g98703_ 1)))) + (values (let () (declare (not safe)) (cons 'vector _e98280_)) + _vars98281_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _e98175_)) - (let ((_g98696_ - (let ((__tmp98698 + _e98179_)) + (let ((_g98700_ + (let ((__tmp98702 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (unbox (let () (declare (not safe)) - (gx#stx-unwrap__0 _e98175_))))) + (gx#stx-unwrap__0 _e98179_))))) (declare (not safe)) - (_recur98170_ __tmp98698 _is-e?98176_)))) + (_recur98174_ __tmp98702 _is-e?98180_)))) (begin - (let ((_g98697_ + (let ((_g98701_ (let () (declare (not safe)) - (if (##values? _g98696_) - (##vector-length _g98696_) + (if (##values? _g98700_) + (##vector-length _g98700_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98697_ 2))) - (error "Context expects 2 values" _g98697_))) - (let ((_e98279_ + (##fx= _g98701_ 2))) + (error "Context expects 2 values" _g98701_))) + (let ((_e98283_ (let () (declare (not safe)) - (##vector-ref _g98696_ 0))) - (_vars98280_ + (##vector-ref _g98700_ 0))) + (_vars98284_ (let () (declare (not safe)) - (##vector-ref _g98696_ 1)))) + (##vector-ref _g98700_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e98279_)) - _vars98280_)))) - (values (let () (declare (not safe)) (cons 'datum _e98175_)) + (cons 'box _e98283_)) + _vars98284_)))) + (values (let () (declare (not safe)) (cons 'datum _e98179_)) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g98712_ + (let ((_g98716_ (let () (declare (not safe)) - (_recur98170_ _e98166_ gx#ellipsis?)))) + (_recur98174_ _e98170_ gx#ellipsis?)))) (begin - (let ((_g98713_ + (let ((_g98717_ (let () (declare (not safe)) - (if (##values? _g98712_) - (##vector-length _g98712_) + (if (##values? _g98716_) + (##vector-length _g98716_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98713_ 2))) - (error "Context expects 2 values" _g98713_))) - (let ((_tree98172_ + (##fx= _g98717_ 2))) + (error "Context expects 2 values" _g98717_))) + (let ((_tree98176_ (let () (declare (not safe)) - (##vector-ref _g98712_ 0))) - (_vars98173_ + (##vector-ref _g98716_ 0))) + (_vars98177_ (let () (declare (not safe)) - (##vector-ref _g98712_ 1)))) + (##vector-ref _g98716_ 1)))) (if (let () (declare (not safe)) - (null? _vars98173_)) - _tree98172_ + (null? _vars98177_)) + _tree98176_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx98122_ - _vars98173_)))))))))) - (let* ((_e9812698136_ _stx98122_) - (_E9812898140_ + _stx98126_ + _vars98177_)))))))))) + (let* ((_e9813098140_ _stx98126_) + (_E9813298144_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _stx98122_)))) - (_E9812798162_ + _stx98126_)))) + (_E9813198166_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9812698136_)) - (let ((_e9812998144_ + (gx#stx-pair? _e9813098140_)) + (let ((_e9813398148_ (let () (declare (not safe)) - (gx#syntax-e _e9812698136_)))) - (let ((_hd9813098147_ + (gx#syntax-e _e9813098140_)))) + (let ((_hd9813498151_ (let () (declare (not safe)) - (##car _e9812998144_))) - (_tl9813198149_ + (##car _e9813398148_))) + (_tl9813598153_ (let () (declare (not safe)) - (##cdr _e9812998144_)))) + (##cdr _e9813398148_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9813198149_)) - (let ((_e9813298152_ + (gx#stx-pair? _tl9813598153_)) + (let ((_e9813698156_ (let () (declare (not safe)) - (gx#syntax-e _tl9813198149_)))) - (let ((_hd9813398155_ + (gx#syntax-e _tl9813598153_)))) + (let ((_hd9813798159_ (let () (declare (not safe)) - (##car _e9813298152_))) - (_tl9813498157_ + (##car _e9813698156_))) + (_tl9813898161_ (let () (declare (not safe)) - (##cdr _e9813298152_)))) - (let ((_form98160_ _hd9813398155_)) + (##cdr _e9813698156_)))) + (let ((_form98164_ _hd9813798159_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl9813498157_)) + (gx#stx-null? _tl9813898161_)) (if '#t - (let ((__tmp98715 - (let ((__tmp98716 + (let ((__tmp98719 + (let ((__tmp98720 (let () (declare (not safe)) - (_parse98125_ - _form98160_)))) + (_parse98129_ + _form98164_)))) (declare (not safe)) - (_generate98124_ - __tmp98716))) - (__tmp98714 + (_generate98128_ + __tmp98720))) + (__tmp98718 (let () (declare (not safe)) (gx#stx-source - _stx98122_)))) + _stx98126_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp98715 - __tmp98714)) + __tmp98719 + __tmp98718)) (let () (declare (not safe)) - (_E9812898140_))) + (_E9813298144_))) (let () (declare (not safe)) - (_E9812898140_)))))) + (_E9813298144_)))))) (let () (declare (not safe)) - (_E9812898140_))))) - (let () (declare (not safe)) (_E9812898140_)))))) - (let () (declare (not safe)) (_E9812798162_)))))) + (_E9813298144_))))) + (let () (declare (not safe)) (_E9813298144_)))))) + (let () (declare (not safe)) (_E9813198166_)))))) (define gx#macro-expand-syntax-case__% - (lambda (_stx97386_ _identifier=?97387_ _unwrap-e97388_ _wrap-e97389_) - (letrec ((_generate-bindings97391_ - (lambda (_target97986_ - _ids97987_ - _clauses97988_ - _clause-ids97989_ - _E97990_) - (letrec ((_generate197992_ - (lambda (_clause98089_ _clause-id98090_ _E98091_) - (let ((__tmp98721 + (lambda (_stx97390_ _identifier=?97391_ _unwrap-e97392_ _wrap-e97393_) + (letrec ((_generate-bindings97395_ + (lambda (_target97990_ + _ids97991_ + _clauses97992_ + _clause-ids97993_ + _E97994_) + (letrec ((_generate197996_ + (lambda (_clause98093_ _clause-id98094_ _E98095_) + (let ((__tmp98725 (let () (declare (not safe)) - (cons _clause-id98090_ '()))) - (__tmp98717 - (let ((__tmp98718 - (let ((__tmp98720 + (cons _clause-id98094_ '()))) + (__tmp98721 + (let ((__tmp98722 + (let ((__tmp98724 (let () (declare (not safe)) - (cons _target97986_ + (cons _target97990_ '()))) - (__tmp98719 + (__tmp98723 (let () (declare (not safe)) - (_generate-clause97393_ - _target97986_ - _ids97987_ - _clause98089_ - _E98091_)))) + (_generate-clause97397_ + _target97990_ + _ids97991_ + _clause98093_ + _E98095_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp98720 - __tmp98719)))) + __tmp98724 + __tmp98723)))) (declare (not safe)) - (cons __tmp98718 '())))) + (cons __tmp98722 '())))) (declare (not safe)) - (cons __tmp98721 __tmp98717))))) - (let _lp97994_ ((_rest97996_ _clauses97988_) - (_rest-ids97997_ _clause-ids97989_) - (_bindings97998_ '())) - (let* ((_rest9799998007_ _rest97996_) - (_else9800198015_ (lambda () _bindings97998_)) - (_K9800398077_ - (lambda (_rest98018_ _clause98019_) - (let* ((_rest-ids9802098027_ _rest-ids97997_) - (_E9802298031_ + (cons __tmp98725 __tmp98721))))) + (let _lp97998_ ((_rest98000_ _clauses97992_) + (_rest-ids98001_ _clause-ids97993_) + (_bindings98002_ '())) + (let* ((_rest9800398011_ _rest98000_) + (_else9800598019_ (lambda () _bindings98002_)) + (_K9800798081_ + (lambda (_rest98022_ _clause98023_) + (let* ((_rest-ids9802498031_ _rest-ids98001_) + (_E9802698035_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest-ids9802098027_)))) - (_K9802398065_ - (lambda (_rest-ids98034_ - _clause-id98035_) - (let* ((_rest-ids9803698044_ - _rest-ids98034_) - (_else9803898052_ + _rest-ids9802498031_)))) + (_K9802798069_ + (lambda (_rest-ids98038_ + _clause-id98039_) + (let* ((_rest-ids9804098048_ + _rest-ids98038_) + (_else9804298056_ (lambda () - (let ((__tmp98722 + (let ((__tmp98726 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate197992_ - _clause98019_ - _clause-id98035_ - _E97990_)))) + (_generate197996_ + _clause98023_ + _clause-id98039_ + _E97994_)))) (declare (not safe)) - (cons __tmp98722 _bindings97998_)))) + (cons __tmp98726 _bindings98002_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9804098057_ - (lambda (_next-clause-id98055_) - (let ((__tmp98723 - (let ((__tmp98724 + (_K9804498061_ + (lambda (_next-clause-id98059_) + (let ((__tmp98727 + (let ((__tmp98728 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate197992_ - _clause98019_ - _clause-id98035_ - _next-clause-id98055_)))) + (_generate197996_ + _clause98023_ + _clause-id98039_ + _next-clause-id98059_)))) (declare (not safe)) - (cons __tmp98724 _bindings97998_)))) + (cons __tmp98728 _bindings98002_)))) (declare (not safe)) - (_lp97994_ _rest98018_ _rest-ids98034_ __tmp98723))))) + (_lp97998_ _rest98022_ _rest-ids98038_ __tmp98727))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids9803698044_)) - (let* ((_hd9804198060_ + (##pair? _rest-ids9804098048_)) + (let* ((_hd9804598064_ (let () (declare (not safe)) - (##car _rest-ids9803698044_))) - (_next-clause-id98063_ - _hd9804198060_)) + (##car _rest-ids9804098048_))) + (_next-clause-id98067_ + _hd9804598064_)) (declare (not safe)) - (_K9804098057_ - _next-clause-id98063_)) + (_K9804498061_ + _next-clause-id98067_)) (let () (declare (not safe)) - (_else9803898052_))))))) + (_else9804298056_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids9802098027_)) - (let ((_hd9802498068_ + (##pair? _rest-ids9802498031_)) + (let ((_hd9802898072_ (let () (declare (not safe)) - (##car _rest-ids9802098027_))) - (_tl9802598070_ + (##car _rest-ids9802498031_))) + (_tl9802998074_ (let () (declare (not safe)) - (##cdr _rest-ids9802098027_)))) - (let* ((_clause-id98073_ - _hd9802498068_) - (_rest-ids98075_ - _tl9802598070_)) + (##cdr _rest-ids9802498031_)))) + (let* ((_clause-id98077_ + _hd9802898072_) + (_rest-ids98079_ + _tl9802998074_)) (declare (not safe)) - (_K9802398065_ - _rest-ids98075_ - _clause-id98073_))) + (_K9802798069_ + _rest-ids98079_ + _clause-id98077_))) (let () (declare (not safe)) - (_E9802298031_))))))) + (_E9802698035_))))))) (if (let () (declare (not safe)) - (##pair? _rest9799998007_)) - (let ((_hd9800498080_ + (##pair? _rest9800398011_)) + (let ((_hd9800898084_ (let () (declare (not safe)) - (##car _rest9799998007_))) - (_tl9800598082_ + (##car _rest9800398011_))) + (_tl9800998086_ (let () (declare (not safe)) - (##cdr _rest9799998007_)))) - (let* ((_clause98085_ _hd9800498080_) - (_rest98087_ _tl9800598082_)) + (##cdr _rest9800398011_)))) + (let* ((_clause98089_ _hd9800898084_) + (_rest98091_ _tl9800998086_)) (declare (not safe)) - (_K9800398077_ _rest98087_ _clause98085_))) + (_K9800798081_ _rest98091_ _clause98089_))) (let () (declare (not safe)) - (_else9800198015_)))))))) - (_generate-body97392_ - (lambda (_bindings97946_ _body97947_) - (let _recur97949_ ((_rest97951_ _bindings97946_)) - (let* ((_rest9795297960_ _rest97951_) - (_else9795497968_ (lambda () _body97947_)) - (_K9795697974_ - (lambda (_rest97971_ _hd97972_) - (let ((__tmp98726 + (_else9800598019_)))))))) + (_generate-body97396_ + (lambda (_bindings97950_ _body97951_) + (let _recur97953_ ((_rest97955_ _bindings97950_)) + (let* ((_rest9795697964_ _rest97955_) + (_else9795897972_ (lambda () _body97951_)) + (_K9796097978_ + (lambda (_rest97975_ _hd97976_) + (let ((__tmp98730 (let () (declare (not safe)) - (cons _hd97972_ '()))) - (__tmp98725 + (cons _hd97976_ '()))) + (__tmp98729 (let () (declare (not safe)) - (_recur97949_ _rest97971_)))) + (_recur97953_ _rest97975_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98726 - __tmp98725))))) + __tmp98730 + __tmp98729))))) (if (let () (declare (not safe)) - (##pair? _rest9795297960_)) - (let ((_hd9795797977_ + (##pair? _rest9795697964_)) + (let ((_hd9796197981_ (let () (declare (not safe)) - (##car _rest9795297960_))) - (_tl9795897979_ + (##car _rest9795697964_))) + (_tl9796297983_ (let () (declare (not safe)) - (##cdr _rest9795297960_)))) - (let* ((_hd97982_ _hd9795797977_) - (_rest97984_ _tl9795897979_)) + (##cdr _rest9795697964_)))) + (let* ((_hd97986_ _hd9796197981_) + (_rest97988_ _tl9796297983_)) (declare (not safe)) - (_K9795697974_ _rest97984_ _hd97982_))) + (_K9796097978_ _rest97988_ _hd97986_))) (let () (declare (not safe)) - (_else9795497968_))))))) - (_generate-clause97393_ - (lambda (_target97809_ _ids97810_ _clause97811_ _E97812_) - (letrec ((_generate197814_ - (lambda (_hd97901_ _fender97902_ _body97903_) - (let ((_g98727_ + (_else9795897972_))))))) + (_generate-clause97397_ + (lambda (_target97813_ _ids97814_ _clause97815_ _E97816_) + (letrec ((_generate197818_ + (lambda (_hd97905_ _fender97906_ _body97907_) + (let ((_g98731_ (let () (declare (not safe)) - (_parse-clause97395_ - _hd97901_ - _ids97810_)))) + (_parse-clause97399_ + _hd97905_ + _ids97814_)))) (begin - (let ((_g98728_ + (let ((_g98732_ (let () (declare (not safe)) - (if (##values? _g98727_) - (##vector-length _g98727_) + (if (##values? _g98731_) + (##vector-length _g98731_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98728_ 2))) + (##fx= _g98732_ 2))) (error "Context expects 2 values" - _g98728_))) - (let ((_e97905_ + _g98732_))) + (let ((_e97909_ (let () (declare (not safe)) - (##vector-ref _g98727_ 0))) - (_mvars97906_ + (##vector-ref _g98731_ 0))) + (_mvars97910_ (let () (declare (not safe)) - (##vector-ref _g98727_ 1)))) - (let* ((_pvars97908_ + (##vector-ref _g98731_ 1)))) + (let* ((_pvars97912_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _mvars97906_)))) - (_E97910_ - (let ((__tmp98729 + _mvars97910_)))) + (_E97914_ + (let ((__tmp98733 (let () (declare (not safe)) - (cons _target97809_ + (cons _target97813_ '())))) (declare (not safe)) - (cons _E97812_ __tmp98729))) - (_K97943_ - (let ((__tmp98730 - (let ((__tmp98732 - (map (lambda (_mvar97912_ + (cons _E97816_ __tmp98733))) + (_K97947_ + (let ((__tmp98734 + (let ((__tmp98736 + (map (lambda (_mvar97916_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar97913_) - (let* ((_mvar9791497921_ _mvar97912_) - (_E9791697925_ + _pvar97917_) + (let* ((_mvar9791897925_ _mvar97916_) + (_E9792097929_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _mvar9791497921_)))) - (_K9791797931_ - (lambda (_depth97928_ _id97929_) - (let ((__tmp98733 - (let ((__tmp98734 - (let ((__tmp98736 + _mvar9791897925_)))) + (_K9792197935_ + (lambda (_depth97932_ _id97933_) + (let ((__tmp98737 + (let ((__tmp98738 + (let ((__tmp98740 (let () (declare (not safe)) (gx#core-list 'quote - _id97929_))) - (__tmp98735 + _id97933_))) + (__tmp98739 (let () (declare (not safe)) (gx#core-list 'quote - _pvar97913_)))) + _pvar97917_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp98736 - __tmp98735 - _depth97928_)))) + __tmp98740 + __tmp98739 + _depth97932_)))) (declare (not safe)) - (cons __tmp98734 '())))) + (cons __tmp98738 '())))) (declare (not safe)) - (cons _id97929_ __tmp98733))))) + (cons _id97933_ __tmp98737))))) (if (let () (declare (not safe)) - (##pair? _mvar9791497921_)) - (let ((_hd9791897934_ + (##pair? _mvar9791897925_)) + (let ((_hd9792297938_ (let () (declare (not safe)) - (##car _mvar9791497921_))) - (_tl9791997936_ + (##car _mvar9791897925_))) + (_tl9792397940_ (let () (declare (not safe)) - (##cdr _mvar9791497921_)))) - (let* ((_id97939_ _hd9791897934_) - (_depth97941_ _tl9791997936_)) + (##cdr _mvar9791897925_)))) + (let* ((_id97943_ _hd9792297938_) + (_depth97945_ _tl9792397940_)) (declare (not safe)) - (_K9791797931_ _depth97941_ _id97939_))) + (_K9792197935_ _depth97945_ _id97943_))) (let () (declare (not safe)) - (_E9791697925_))))) - _mvars97906_ - _pvars97908_)) - (__tmp98731 - (if (let () (declare (not safe)) (eq? _fender97902_ '#t)) - _body97903_ + (_E9792097929_))))) + _mvars97910_ + _pvars97912_)) + (__tmp98735 + (if (let () (declare (not safe)) (eq? _fender97906_ '#t)) + _body97907_ (let () (declare (not safe)) (gx#core-list 'if - _fender97902_ - _body97903_ - _E97910_))))) + _fender97906_ + _body97907_ + _E97914_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp98732 __tmp98731)))) + (gx#core-list 'let-syntax __tmp98736 __tmp98735)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _pvars97908_ - __tmp98730)))) + _pvars97912_ + __tmp98734)))) (let () (declare (not safe)) - (_generate-match97394_ - _hd97901_ - _target97809_ - _e97905_ - _mvars97906_ - _K97943_ - _E97910_))))))))) - (let* ((_e9781597835_ _clause97811_) - (_E9782497839_ + (_generate-match97398_ + _hd97905_ + _target97813_ + _e97909_ + _mvars97910_ + _K97947_ + _E97914_))))))))) + (let* ((_e9781997839_ _clause97815_) + (_E9782897843_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9781597835_)))) - (_E9781797873_ + _e9781997839_)))) + (_E9782197877_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9781597835_)) - (let ((_e9782597843_ + (gx#stx-pair? _e9781997839_)) + (let ((_e9782997847_ (let () (declare (not safe)) - (gx#syntax-e _e9781597835_)))) - (let ((_hd9782697846_ + (gx#syntax-e _e9781997839_)))) + (let ((_hd9783097850_ (let () (declare (not safe)) - (##car _e9782597843_))) - (_tl9782797848_ + (##car _e9782997847_))) + (_tl9783197852_ (let () (declare (not safe)) - (##cdr _e9782597843_)))) - (let ((_hd97851_ _hd9782697846_)) + (##cdr _e9782997847_)))) + (let ((_hd97855_ _hd9783097850_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9782797848_)) - (let ((_e9782897853_ + (gx#stx-pair? _tl9783197852_)) + (let ((_e9783297857_ (let () (declare (not safe)) (gx#syntax-e - _tl9782797848_)))) - (let ((_hd9782997856_ + _tl9783197852_)))) + (let ((_hd9783397860_ (let () (declare (not safe)) - (##car _e9782897853_))) - (_tl9783097858_ + (##car _e9783297857_))) + (_tl9783497862_ (let () (declare (not safe)) - (##cdr _e9782897853_)))) - (let ((_fender97861_ - _hd9782997856_)) + (##cdr _e9783297857_)))) + (let ((_fender97865_ + _hd9783397860_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9783097858_)) - (let ((_e9783197863_ + _tl9783497862_)) + (let ((_e9783597867_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl9783097858_)))) - (let ((_hd9783297866_ - (let () (declare (not safe)) (##car _e9783197863_))) - (_tl9783397868_ - (let () (declare (not safe)) (##cdr _e9783197863_)))) - (let ((_body97871_ _hd9783297866_)) + (gx#syntax-e _tl9783497862_)))) + (let ((_hd9783697870_ + (let () (declare (not safe)) (##car _e9783597867_))) + (_tl9783797872_ + (let () (declare (not safe)) (##cdr _e9783597867_)))) + (let ((_body97875_ _hd9783697870_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl9783397868_)) + (gx#stx-null? _tl9783797872_)) (if '#t (let () (declare (not safe)) - (_generate197814_ - _hd97851_ - _fender97861_ - _body97871_)) - (let () (declare (not safe)) (_E9782497839_))) - (let () (declare (not safe)) (_E9782497839_)))))) - (let () (declare (not safe)) (_E9782497839_)))))) + (_generate197818_ + _hd97855_ + _fender97865_ + _body97875_)) + (let () (declare (not safe)) (_E9782897843_))) + (let () (declare (not safe)) (_E9782897843_)))))) + (let () (declare (not safe)) (_E9782897843_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9782497839_)))))) + (_E9782897843_)))))) (let () (declare (not safe)) - (_E9782497839_))))) - (_E9781697897_ + (_E9782897843_))))) + (_E9782097901_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9781597835_)) - (let ((_e9781897877_ + (gx#stx-pair? _e9781997839_)) + (let ((_e9782297881_ (let () (declare (not safe)) - (gx#syntax-e _e9781597835_)))) - (let ((_hd9781997880_ + (gx#syntax-e _e9781997839_)))) + (let ((_hd9782397884_ (let () (declare (not safe)) - (##car _e9781897877_))) - (_tl9782097882_ + (##car _e9782297881_))) + (_tl9782497886_ (let () (declare (not safe)) - (##cdr _e9781897877_)))) - (let ((_hd97885_ _hd9781997880_)) + (##cdr _e9782297881_)))) + (let ((_hd97889_ _hd9782397884_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9782097882_)) - (let ((_e9782197887_ + (gx#stx-pair? _tl9782497886_)) + (let ((_e9782597891_ (let () (declare (not safe)) (gx#syntax-e - _tl9782097882_)))) - (let ((_hd9782297890_ + _tl9782497886_)))) + (let ((_hd9782697894_ (let () (declare (not safe)) - (##car _e9782197887_))) - (_tl9782397892_ + (##car _e9782597891_))) + (_tl9782797896_ (let () (declare (not safe)) - (##cdr _e9782197887_)))) - (let ((_body97895_ - _hd9782297890_)) + (##cdr _e9782597891_)))) + (let ((_body97899_ + _hd9782697894_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl9782397892_)) + _tl9782797896_)) (if '#t (let () (declare (not safe)) - (_generate197814_ - _hd97885_ + (_generate197818_ + _hd97889_ '#t - _body97895_)) + _body97899_)) (let () (declare (not safe)) - (_E9781797873_))) + (_E9782197877_))) (let () (declare (not safe)) - (_E9781797873_)))))) + (_E9782197877_)))))) (let () (declare (not safe)) - (_E9781797873_)))))) + (_E9782197877_)))))) (let () (declare (not safe)) - (_E9781797873_)))))) - (let () (declare (not safe)) (_E9781697897_)))))) - (_generate-match97394_ - (lambda (_where97558_ - _target97559_ - _hd97560_ - _mvars97561_ - _K97562_ - _E97563_) - (letrec ((_BUG97565_ - (lambda (_q97807_) + (_E9782197877_)))))) + (let () (declare (not safe)) (_E9782097901_)))))) + (_generate-match97398_ + (lambda (_where97562_ + _target97563_ + _hd97564_ + _mvars97565_ + _K97566_ + _E97567_) + (letrec ((_BUG97569_ + (lambda (_q97811_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _stx97386_ - _hd97560_ - _q97807_)))) - (_recur97566_ - (lambda (_e97657_ - _vars97658_ - _target97659_ - _E97660_ - _k97661_) - (let* ((_e9766297669_ _e97657_) - (_E9766497673_ + _stx97390_ + _hd97564_ + _q97811_)))) + (_recur97570_ + (lambda (_e97661_ + _vars97662_ + _target97663_ + _E97664_ + _k97665_) + (let* ((_e9766697673_ _e97661_) + (_E9766897677_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9766297669_)))) - (_K9766597795_ - (lambda (_body97676_ _tag97677_) - (let ((_$e97679_ _tag97677_)) + _e9766697673_)))) + (_K9766997799_ + (lambda (_body97680_ _tag97681_) + (let ((_$e97683_ _tag97681_)) (if (let () (declare (not safe)) - (eq? 'any _$e97679_)) - (_k97661_ _vars97658_) + (eq? 'any _$e97683_)) + (_k97665_ _vars97662_) (if (let () (declare (not safe)) - (eq? 'id _$e97679_)) - (let ((__tmp98843 + (eq? 'id _$e97683_)) + (let ((__tmp98847 (let () (declare (not safe)) (gx#core-list 'identifier? - _target97659_))) - (__tmp98839 - (let ((__tmp98841 + _target97663_))) + (__tmp98843 + (let ((__tmp98845 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98842 + (let ((__tmp98846 (let () (declare (not safe)) - (gx#core-list _wrap-e97389_ _body97676_)))) + (gx#core-list _wrap-e97393_ _body97680_)))) (declare (not safe)) (gx#core-list - _identifier=?97387_ - __tmp98842 - _target97659_))) - (__tmp98840 (_k97661_ _vars97658_))) + _identifier=?97391_ + __tmp98846 + _target97663_))) + (__tmp98844 (_k97665_ _vars97662_))) (declare (not safe)) - (gx#core-list 'if __tmp98841 __tmp98840 _E97660_)))) + (gx#core-list 'if __tmp98845 __tmp98844 _E97664_)))) (declare (not safe)) - (gx#core-list 'if __tmp98843 __tmp98839 _E97660_)) + (gx#core-list 'if __tmp98847 __tmp98843 _E97664_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (eq? 'var _$e97679_)) - (_k97661_ - (let ((__tmp98838 + (eq? 'var _$e97683_)) + (_k97665_ + (let ((__tmp98842 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body97676_ _target97659_)))) + (cons _body97680_ _target97663_)))) (declare (not safe)) - (cons __tmp98838 _vars97658_))) - (if (let () (declare (not safe)) (eq? 'cons _$e97679_)) - (let ((_$e97682_ + (cons __tmp98842 _vars97662_))) + (if (let () (declare (not safe)) (eq? 'cons _$e97683_)) + (let ((_$e97686_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$hd97683_ + (_$hd97687_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl97684_ + (_$tl97688_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp98837 + (let ((__tmp98841 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _target97659_))) - (__tmp98818 - (let ((__tmp98832 - (let ((__tmp98833 - (let ((__tmp98836 + (gx#core-list 'stx-pair? _target97663_))) + (__tmp98822 + (let ((__tmp98836 + (let ((__tmp98837 + (let ((__tmp98840 (let () (declare (not safe)) - (cons _$e97682_ '()))) - (__tmp98834 - (let ((__tmp98835 + (cons _$e97686_ '()))) + (__tmp98838 + (let ((__tmp98839 (let () (declare (not safe)) (gx#core-list - _unwrap-e97388_ - _target97659_)))) + _unwrap-e97392_ + _target97663_)))) (declare (not safe)) - (cons __tmp98835 '())))) + (cons __tmp98839 '())))) (declare (not safe)) - (cons __tmp98836 __tmp98834)))) + (cons __tmp98840 __tmp98838)))) (declare (not safe)) - (cons __tmp98833 '()))) - (__tmp98819 - (let ((__tmp98822 - (let ((__tmp98828 - (let ((__tmp98831 + (cons __tmp98837 '()))) + (__tmp98823 + (let ((__tmp98826 + (let ((__tmp98832 + (let ((__tmp98835 (let () (declare (not safe)) - (cons _$hd97683_ + (cons _$hd97687_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp98829 - (let ((__tmp98830 + (__tmp98833 + (let ((__tmp98834 (let () (declare (not safe)) - (gx#core-list '##car _$e97682_)))) + (gx#core-list '##car _$e97686_)))) (declare (not safe)) - (cons __tmp98830 '())))) + (cons __tmp98834 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98831 - __tmp98829))) - (__tmp98823 - (let ((__tmp98824 - (let ((__tmp98827 + (cons __tmp98835 + __tmp98833))) + (__tmp98827 + (let ((__tmp98828 + (let ((__tmp98831 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tl97684_ '()))) - (__tmp98825 - (let ((__tmp98826 + (cons _$tl97688_ '()))) + (__tmp98829 + (let ((__tmp98830 (let () (declare (not safe)) - (gx#core-list '##cdr _$e97682_)))) + (gx#core-list '##cdr _$e97686_)))) (declare (not safe)) - (cons __tmp98826 '())))) + (cons __tmp98830 '())))) (declare (not safe)) - (cons __tmp98827 __tmp98825)))) + (cons __tmp98831 __tmp98829)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98824 '())))) + (cons __tmp98828 '())))) (declare (not safe)) - (cons __tmp98828 __tmp98823))) - (__tmp98820 - (let* ((_body9768597692_ - _body97676_) - (_E9768797696_ + (cons __tmp98832 __tmp98827))) + (__tmp98824 + (let* ((_body9768997696_ + _body97680_) + (_E9769197700_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9768597692_)))) - (_K9768897704_ - (lambda (_tl97699_ - _hd97700_) - (let ((__tmp98821 - (lambda (_vars97702_) + _body9768997696_)))) + (_K9769297708_ + (lambda (_tl97703_ + _hd97704_) + (let ((__tmp98825 + (lambda (_vars97706_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_recur97566_ - _tl97699_ - _vars97702_ - _$tl97684_ - _E97660_ - _k97661_))))) + (_recur97570_ + _tl97703_ + _vars97706_ + _$tl97688_ + _E97664_ + _k97665_))))) (declare (not safe)) - (_recur97566_ - _hd97700_ - _vars97658_ - _$hd97683_ - _E97660_ - __tmp98821))))) + (_recur97570_ + _hd97704_ + _vars97662_ + _$hd97687_ + _E97664_ + __tmp98825))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _body9768597692_)) - (let ((_hd9768997707_ + (##pair? _body9768997696_)) + (let ((_hd9769397711_ (let () (declare (not safe)) - (##car _body9768597692_))) - (_tl9769097709_ + (##car _body9768997696_))) + (_tl9769497713_ (let () (declare (not safe)) - (##cdr _body9768597692_)))) - (let* ((_hd97712_ - _hd9768997707_) - (_tl97714_ - _tl9769097709_)) + (##cdr _body9768997696_)))) + (let* ((_hd97716_ + _hd9769397711_) + (_tl97718_ + _tl9769497713_)) (declare (not safe)) - (_K9768897704_ - _tl97714_ - _hd97712_))) + (_K9769297708_ + _tl97718_ + _hd97716_))) (let () (declare (not safe)) - (_E9768797696_)))))) + (_E9769197700_)))))) (declare (not safe)) (gx#core-list 'let-values - __tmp98822 - __tmp98820)))) + __tmp98826 + __tmp98824)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98832 - __tmp98819)))) + __tmp98836 + __tmp98823)))) (declare (not safe)) - (gx#core-list 'if __tmp98837 __tmp98818 _E97660_))) - (if (let () (declare (not safe)) (eq? 'splice _$e97679_)) - (let* ((_body9771597722_ _body97676_) - (_E9771797726_ + (gx#core-list 'if __tmp98841 __tmp98822 _E97664_))) + (if (let () (declare (not safe)) (eq? 'splice _$e97683_)) + (let* ((_body9771997726_ _body97680_) + (_E9772197730_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9771597722_)))) - (_K9771897777_ - (lambda (_tl97729_ _hd97730_) - (let* ((_rlen97732_ + _body9771997726_)))) + (_K9772297781_ + (lambda (_tl97733_ _hd97734_) + (let* ((_rlen97736_ (let () (declare (not safe)) - (_splice-rlen97567_ _tl97729_))) - (_$target97734_ + (_splice-rlen97571_ _tl97733_))) + (_$target97738_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_$hd97736_ + (_$hd97740_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl97738_ + (_$tl97742_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_$lp97740_ + (_$lp97744_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_$lp-e97742_ + (_$lp-e97746_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$lp-hd97744_ + (_$lp-hd97748_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_$lp-tl97746_ + (_$lp-tl97750_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_svars97748_ + (_svars97752_ (let () (declare (not safe)) - (_splice-vars97568_ _hd97730_))) - (_lvars97750_ + (_splice-vars97572_ _hd97734_))) + (_lvars97754_ (let () (declare (not safe)) - (gx#gentemps _svars97748_))) - (_tlvars97752_ + (gx#gentemps _svars97752_))) + (_tlvars97756_ (let () (declare (not safe)) - (gx#gentemps _svars97748_))) - (_linit97756_ - (map (lambda (_var97754_) + (gx#gentemps _svars97752_))) + (_linit97760_ + (map (lambda (_var97758_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _lvars97750_))) - (letrec ((_make-loop97759_ - (lambda (_vars97763_) - (let ((__tmp98769 - (let ((__tmp98770 - (let ((__tmp98806 + _lvars97754_))) + (letrec ((_make-loop97763_ + (lambda (_vars97767_) + (let ((__tmp98773 + (let ((__tmp98774 + (let ((__tmp98810 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp97740_ '()))) - (__tmp98771 - (let ((__tmp98772 - (let ((__tmp98805 + (cons _$lp97744_ '()))) + (__tmp98775 + (let ((__tmp98776 + (let ((__tmp98809 (let () (declare (not safe)) - (cons _$hd97736_ _lvars97750_))) - (__tmp98773 - (let ((__tmp98804 + (cons _$hd97740_ _lvars97754_))) + (__tmp98777 + (let ((__tmp98808 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _$hd97736_))) - (__tmp98782 - (let ((__tmp98799 - (let ((__tmp98800 - (let ((__tmp98803 + _$hd97740_))) + (__tmp98786 + (let ((__tmp98803 + (let ((__tmp98804 + (let ((__tmp98807 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp-e97742_ '()))) - (__tmp98801 - (let ((__tmp98802 + (cons _$lp-e97746_ '()))) + (__tmp98805 + (let ((__tmp98806 (let () (declare (not safe)) (gx#core-list - _unwrap-e97388_ - _$hd97736_)))) + _unwrap-e97392_ + _$hd97740_)))) (declare (not safe)) - (cons __tmp98802 '())))) + (cons __tmp98806 '())))) (declare (not safe)) - (cons __tmp98803 __tmp98801)))) + (cons __tmp98807 __tmp98805)))) (declare (not safe)) - (cons __tmp98800 '()))) - (__tmp98783 - (let ((__tmp98789 - (let ((__tmp98795 - (let ((__tmp98798 + (cons __tmp98804 '()))) + (__tmp98787 + (let ((__tmp98793 + (let ((__tmp98799 + (let ((__tmp98802 (let () (declare (not safe)) - (cons _$lp-hd97744_ '()))) - (__tmp98796 - (let ((__tmp98797 + (cons _$lp-hd97748_ '()))) + (__tmp98800 + (let ((__tmp98801 (let () (declare (not safe)) (gx#core-list '##car - _$lp-e97742_)))) + _$lp-e97746_)))) (declare (not safe)) - (cons __tmp98797 '())))) + (cons __tmp98801 '())))) (declare (not safe)) - (cons __tmp98798 __tmp98796))) - (__tmp98790 - (let ((__tmp98791 - (let ((__tmp98794 + (cons __tmp98802 __tmp98800))) + (__tmp98794 + (let ((__tmp98795 + (let ((__tmp98798 (let () (declare (not safe)) - (cons _$lp-tl97746_ '()))) - (__tmp98792 - (let ((__tmp98793 + (cons _$lp-tl97750_ '()))) + (__tmp98796 + (let ((__tmp98797 (let () (declare (not safe)) (gx#core-list '##cdr - _$lp-e97742_)))) + _$lp-e97746_)))) (declare (not safe)) - (cons __tmp98793 '())))) + (cons __tmp98797 '())))) (declare (not safe)) - (cons __tmp98794 __tmp98792)))) + (cons __tmp98798 __tmp98796)))) (declare (not safe)) - (cons __tmp98791 '())))) + (cons __tmp98795 '())))) (declare (not safe)) - (cons __tmp98795 __tmp98790))) - (__tmp98784 - (let ((__tmp98785 - (lambda (_hdvars97765_) - (let ((__tmp98786 - (let ((__tmp98787 - (map (lambda (_svar97767_ - _lvar97768_) - (let ((__tmp98788 + (cons __tmp98799 __tmp98794))) + (__tmp98788 + (let ((__tmp98789 + (lambda (_hdvars97769_) + (let ((__tmp98790 + (let ((__tmp98791 + (map (lambda (_svar97771_ + _lvar97772_) + (let ((__tmp98792 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__% _svar97767_ _hdvars97765_ _BUG97565_)))) + (assgetq__% _svar97771_ _hdvars97769_ _BUG97569_)))) (declare (not safe)) - (gx#core-list 'cons __tmp98788 _lvar97768_))) + (gx#core-list 'cons __tmp98792 _lvar97772_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _svars97748_ - _lvars97750_))) + _svars97752_ + _lvars97754_))) (declare (not safe)) - (cons _$lp-tl97746_ __tmp98787)))) + (cons _$lp-tl97750_ __tmp98791)))) (declare (not safe)) - (cons _$lp97740_ __tmp98786))))) + (cons _$lp97744_ __tmp98790))))) (declare (not safe)) - (_recur97566_ - _hd97730_ + (_recur97570_ + _hd97734_ '() - _$lp-hd97744_ - _E97660_ - __tmp98785)))) + _$lp-hd97748_ + _E97664_ + __tmp98789)))) (declare (not safe)) - (gx#core-list 'let-values __tmp98789 __tmp98784)))) + (gx#core-list 'let-values __tmp98793 __tmp98788)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp98799 - __tmp98783))) - (__tmp98774 - (let ((__tmp98778 - (map (lambda (_lvar97770_ + __tmp98803 + __tmp98787))) + (__tmp98778 + (let ((__tmp98782 + (map (lambda (_lvar97774_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tlvar97771_) - (let ((__tmp98781 + _tlvar97775_) + (let ((__tmp98785 (let () (declare (not safe)) - (cons _tlvar97771_ '()))) - (__tmp98779 - (let ((__tmp98780 + (cons _tlvar97775_ '()))) + (__tmp98783 + (let ((__tmp98784 (let () (declare (not safe)) - (gx#core-list 'reverse _lvar97770_)))) + (gx#core-list 'reverse _lvar97774_)))) (declare (not safe)) - (cons __tmp98780 '())))) + (cons __tmp98784 '())))) (declare (not safe)) - (cons __tmp98781 __tmp98779))) - _lvars97750_ - _tlvars97752_)) - (__tmp98775 - (_k97661_ - (let ((__tmp98776 - (lambda (_svar97773_ _tlvar97774_ _r97775_) - (let ((__tmp98777 + (cons __tmp98785 __tmp98783))) + _lvars97754_ + _tlvars97756_)) + (__tmp98779 + (_k97665_ + (let ((__tmp98780 + (lambda (_svar97777_ _tlvar97778_ _r97779_) + (let ((__tmp98781 (let () (declare (not safe)) - (cons _svar97773_ _tlvar97774_)))) + (cons _svar97777_ _tlvar97778_)))) (declare (not safe)) - (cons __tmp98777 _r97775_))))) + (cons __tmp98781 _r97779_))))) (declare (not safe)) - (foldl2 __tmp98776 - _vars97763_ - _svars97748_ - _tlvars97752_))))) + (foldl2 __tmp98780 + _vars97767_ + _svars97752_ + _tlvars97756_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp98778 - __tmp98775)))) + __tmp98782 + __tmp98779)))) (declare (not safe)) (gx#core-list 'if - __tmp98804 - __tmp98782 - __tmp98774)))) + __tmp98808 + __tmp98786 + __tmp98778)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp98805 - __tmp98773)))) + __tmp98809 + __tmp98777)))) (declare (not safe)) - (cons __tmp98772 '())))) + (cons __tmp98776 '())))) (declare (not safe)) - (cons __tmp98806 __tmp98771)))) + (cons __tmp98810 __tmp98775)))) (declare (not safe)) - (cons __tmp98770 '()))) - (__tmp98767 - (let ((__tmp98768 + (cons __tmp98774 '()))) + (__tmp98771 + (let ((__tmp98772 (let () (declare (not safe)) - (cons _$target97734_ _linit97756_)))) + (cons _$target97738_ _linit97760_)))) (declare (not safe)) - (cons _$lp97740_ __tmp98768)))) + (cons _$lp97744_ __tmp98772)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp98769 - __tmp98767))))) - (let ((_body97761_ - (let ((__tmp98808 - (let ((__tmp98809 - (let ((__tmp98812 + __tmp98773 + __tmp98771))))) + (let ((_body97765_ + (let ((__tmp98812 + (let ((__tmp98813 + (let ((__tmp98816 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98813 + (let ((__tmp98817 (let () (declare (not safe)) - (cons _$tl97738_ '())))) + (cons _$tl97742_ '())))) (declare (not safe)) - (cons _$target97734_ __tmp98813))) - (__tmp98810 - (let ((__tmp98811 + (cons _$target97738_ __tmp98817))) + (__tmp98814 + (let ((__tmp98815 (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _target97659_ - _rlen97732_)))) + _target97663_ + _rlen97736_)))) (declare (not safe)) - (cons __tmp98811 '())))) + (cons __tmp98815 '())))) (declare (not safe)) - (cons __tmp98812 __tmp98810)))) + (cons __tmp98816 __tmp98814)))) (declare (not safe)) - (cons __tmp98809 '()))) + (cons __tmp98813 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp98807 + (__tmp98811 (let () (declare (not safe)) - (_recur97566_ - _tl97729_ - _vars97658_ - _$tl97738_ - _E97660_ - _make-loop97759_)))) + (_recur97570_ + _tl97733_ + _vars97662_ + _$tl97742_ + _E97664_ + _make-loop97763_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98808 - __tmp98807)))) - (let ((__tmp98817 + __tmp98812 + __tmp98811)))) + (let ((__tmp98821 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _target97659_))) - (__tmp98814 + _target97663_))) + (__tmp98818 (if (let () (declare (not safe)) - (zero? _rlen97732_)) - _body97761_ - (let ((__tmp98815 - (let ((__tmp98816 + (zero? _rlen97736_)) + _body97765_ + (let ((__tmp98819 + (let ((__tmp98820 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _target97659_)))) + (gx#core-list 'stx-length _target97663_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp98816 _rlen97732_)))) + (gx#core-list 'fx>= __tmp98820 _rlen97736_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp98815 - _body97761_ - _E97660_))))) + __tmp98819 + _body97765_ + _E97664_))))) (declare (not safe)) (gx#core-list 'if - __tmp98817 - __tmp98814 - _E97660_)))))))) + __tmp98821 + __tmp98818 + _E97664_)))))))) (if (let () (declare (not safe)) - (##pair? _body9771597722_)) - (let ((_hd9771997780_ + (##pair? _body9771997726_)) + (let ((_hd9772397784_ (let () (declare (not safe)) - (##car _body9771597722_))) - (_tl9772097782_ + (##car _body9771997726_))) + (_tl9772497786_ (let () (declare (not safe)) - (##cdr _body9771597722_)))) - (let* ((_hd97785_ _hd9771997780_) - (_tl97787_ _tl9772097782_)) + (##cdr _body9771997726_)))) + (let* ((_hd97789_ _hd9772397784_) + (_tl97791_ _tl9772497786_)) (declare (not safe)) - (_K9771897777_ _tl97787_ _hd97785_))) - (let () (declare (not safe)) (_E9771797726_)))) - (if (let () (declare (not safe)) (eq? 'null _$e97679_)) - (let ((__tmp98766 + (_K9772297781_ _tl97791_ _hd97789_))) + (let () (declare (not safe)) (_E9772197730_)))) + (if (let () (declare (not safe)) (eq? 'null _$e97683_)) + (let ((__tmp98770 (let () (declare (not safe)) - (gx#core-list 'stx-null? _target97659_))) - (__tmp98765 (_k97661_ _vars97658_))) + (gx#core-list 'stx-null? _target97663_))) + (__tmp98769 (_k97665_ _vars97662_))) (declare (not safe)) (gx#core-list 'if - __tmp98766 - __tmp98765 - _E97660_)) + __tmp98770 + __tmp98769 + _E97664_)) (if (let () (declare (not safe)) - (eq? 'vector _$e97679_)) - (let ((_$e97789_ + (eq? 'vector _$e97683_)) + (let ((_$e97793_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp98764 + (let ((__tmp98768 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _target97659_))) - (__tmp98756 - (let ((__tmp98758 - (let ((__tmp98759 - (let ((__tmp98763 + _target97663_))) + (__tmp98760 + (let ((__tmp98762 + (let ((__tmp98763 + (let ((__tmp98767 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$e97789_ '()))) - (__tmp98760 - (let ((__tmp98761 - (let ((__tmp98762 + (cons _$e97793_ '()))) + (__tmp98764 + (let ((__tmp98765 + (let ((__tmp98766 (let () (declare (not safe)) (gx#core-list - _unwrap-e97388_ - _target97659_)))) + _unwrap-e97392_ + _target97663_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp98762)))) + (gx#core-list 'vector->list __tmp98766)))) (declare (not safe)) - (cons __tmp98761 '())))) + (cons __tmp98765 '())))) (declare (not safe)) - (cons __tmp98763 __tmp98760)))) + (cons __tmp98767 __tmp98764)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98759 '()))) - (__tmp98757 + (cons __tmp98763 '()))) + (__tmp98761 (let () (declare (not safe)) - (_recur97566_ - _body97676_ - _vars97658_ - _$e97789_ - _E97660_ - _k97661_)))) + (_recur97570_ + _body97680_ + _vars97662_ + _$e97793_ + _E97664_ + _k97665_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98758 - __tmp98757)))) + __tmp98762 + __tmp98761)))) (declare (not safe)) (gx#core-list 'if - __tmp98764 - __tmp98756 - _E97660_))) + __tmp98768 + __tmp98760 + _E97664_))) (if (let () (declare (not safe)) - (eq? 'box _$e97679_)) - (let ((_$e97791_ + (eq? 'box _$e97683_)) + (let ((_$e97795_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp98755 + (let ((__tmp98759 (let () (declare (not safe)) (gx#core-list 'stx-box? - _target97659_))) - (__tmp98747 - (let ((__tmp98749 - (let ((__tmp98750 - (let ((__tmp98754 + _target97663_))) + (__tmp98751 + (let ((__tmp98753 + (let ((__tmp98754 + (let ((__tmp98758 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _$e97791_ '()))) - (__tmp98751 - (let ((__tmp98752 - (let ((__tmp98753 + (let () (declare (not safe)) (cons _$e97795_ '()))) + (__tmp98755 + (let ((__tmp98756 + (let ((__tmp98757 (let () (declare (not safe)) (gx#core-list - _unwrap-e97388_ - _target97659_)))) + _unwrap-e97392_ + _target97663_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp98753)))) + (gx#core-list 'unbox __tmp98757)))) (declare (not safe)) - (cons __tmp98752 '())))) + (cons __tmp98756 '())))) (declare (not safe)) - (cons __tmp98754 __tmp98751)))) + (cons __tmp98758 __tmp98755)))) (declare (not safe)) - (cons __tmp98750 '()))) + (cons __tmp98754 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp98748 + (__tmp98752 (let () (declare (not safe)) - (_recur97566_ - _body97676_ - _vars97658_ - _$e97791_ - _E97660_ - _k97661_)))) + (_recur97570_ + _body97680_ + _vars97662_ + _$e97795_ + _E97664_ + _k97665_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98749 - __tmp98748)))) + __tmp98753 + __tmp98752)))) (declare (not safe)) (gx#core-list 'if - __tmp98755 - __tmp98747 - _E97660_))) + __tmp98759 + __tmp98751 + _E97664_))) (if (let () (declare (not safe)) - (eq? 'datum _$e97679_)) - (let ((_$e97793_ + (eq? 'datum _$e97683_)) + (let ((_$e97797_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp98746 + (let ((__tmp98750 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _target97659_))) - (__tmp98737 - (let ((__tmp98741 - (let ((__tmp98742 - (let ((__tmp98745 + _target97663_))) + (__tmp98741 + (let ((__tmp98745 + (let ((__tmp98746 + (let ((__tmp98749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$e97793_ '()))) - (__tmp98743 - (let ((__tmp98744 + (cons _$e97797_ '()))) + (__tmp98747 + (let ((__tmp98748 (let () (declare (not safe)) - (gx#core-list 'stx-e _target97659_)))) + (gx#core-list 'stx-e _target97663_)))) (declare (not safe)) - (cons __tmp98744 '())))) + (cons __tmp98748 '())))) (declare (not safe)) - (cons __tmp98745 __tmp98743)))) + (cons __tmp98749 __tmp98747)))) (declare (not safe)) - (cons __tmp98742 '()))) - (__tmp98738 - (let ((__tmp98740 + (cons __tmp98746 '()))) + (__tmp98742 + (let ((__tmp98744 (let () (declare (not safe)) - (gx#core-list 'equal? _$e97793_ _body97676_))) - (__tmp98739 (_k97661_ _vars97658_))) + (gx#core-list 'equal? _$e97797_ _body97680_))) + (__tmp98743 (_k97665_ _vars97662_))) (declare (not safe)) - (gx#core-list 'if __tmp98740 __tmp98739 _E97660_)))) + (gx#core-list 'if __tmp98744 __tmp98743 _E97664_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp98741 - __tmp98738)))) + __tmp98745 + __tmp98742)))) (declare (not safe)) (gx#core-list 'if - __tmp98746 - __tmp98737 - _E97660_))) + __tmp98750 + __tmp98741 + _E97664_))) (let () (declare (not safe)) - (_BUG97565_ _e97657_))))))))))))))) + (_BUG97569_ _e97661_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9766297669_)) - (let ((_hd9766697798_ + (##pair? _e9766697673_)) + (let ((_hd9767097802_ (let () (declare (not safe)) - (##car _e9766297669_))) - (_tl9766797800_ + (##car _e9766697673_))) + (_tl9767197804_ (let () (declare (not safe)) - (##cdr _e9766297669_)))) - (let* ((_tag97803_ _hd9766697798_) - (_body97805_ _tl9766797800_)) + (##cdr _e9766697673_)))) + (let* ((_tag97807_ _hd9767097802_) + (_body97809_ _tl9767197804_)) (declare (not safe)) - (_K9766597795_ - _body97805_ - _tag97803_))) + (_K9766997799_ + _body97809_ + _tag97807_))) (let () (declare (not safe)) - (_E9766497673_)))))) - (_splice-rlen97567_ - (lambda (_e97619_) - (let _lp97621_ ((_e97623_ _e97619_) - (_n97624_ '0)) - (let* ((_e9762597632_ _e97623_) - (_E9762797636_ + (_E9766897677_)))))) + (_splice-rlen97571_ + (lambda (_e97623_) + (let _lp97625_ ((_e97627_ _e97623_) + (_n97628_ '0)) + (let* ((_e9762997636_ _e97627_) + (_E9763197640_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9762597632_)))) - (_K9762897645_ - (lambda (_body97639_ _tag97640_) - (let ((_$e97642_ _tag97640_)) + _e9762997636_)))) + (_K9763297649_ + (lambda (_body97643_ _tag97644_) + (let ((_$e97646_ _tag97644_)) (if (let () (declare (not safe)) - (eq? 'splice _$e97642_)) + (eq? 'splice _$e97646_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx97386_ - _where97558_)) + _stx97390_ + _where97562_)) (if (let () (declare (not safe)) - (eq? 'cons _$e97642_)) - (let ((__tmp98845 - (cdr _body97639_)) - (__tmp98844 + (eq? 'cons _$e97646_)) + (let ((__tmp98849 + (cdr _body97643_)) + (__tmp98848 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (fx+ _n97624_ '1)))) + (fx+ _n97628_ '1)))) (declare (not safe)) - (_lp97621_ __tmp98845 __tmp98844)) - _n97624_)))))) + (_lp97625_ __tmp98849 __tmp98848)) + _n97628_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9762597632_)) - (let ((_hd9762997648_ + (##pair? _e9762997636_)) + (let ((_hd9763397652_ (let () (declare (not safe)) - (##car _e9762597632_))) - (_tl9763097650_ + (##car _e9762997636_))) + (_tl9763497654_ (let () (declare (not safe)) - (##cdr _e9762597632_)))) - (let* ((_tag97653_ _hd9762997648_) - (_body97655_ _tl9763097650_)) + (##cdr _e9762997636_)))) + (let* ((_tag97657_ _hd9763397652_) + (_body97659_ _tl9763497654_)) (declare (not safe)) - (_K9762897645_ - _body97655_ - _tag97653_))) + (_K9763297649_ + _body97659_ + _tag97657_))) (let () (declare (not safe)) - (_E9762797636_))))))) - (_splice-vars97568_ - (lambda (_e97575_) - (let _recur97577_ ((_e97579_ _e97575_) - (_vars97580_ '())) - (let* ((_e9758197588_ _e97579_) - (_E9758397592_ + (_E9763197640_))))))) + (_splice-vars97572_ + (lambda (_e97579_) + (let _recur97581_ ((_e97583_ _e97579_) + (_vars97584_ '())) + (let* ((_e9758597592_ _e97583_) + (_E9758797596_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9758197588_)))) - (_K9758497607_ - (lambda (_body97595_ _tag97596_) - (let ((_$e97598_ _tag97596_)) + _e9758597592_)))) + (_K9758897611_ + (lambda (_body97599_ _tag97600_) + (let ((_$e97602_ _tag97600_)) (if (let () (declare (not safe)) - (eq? 'var _$e97598_)) + (eq? 'var _$e97602_)) (let () (declare (not safe)) - (cons _body97595_ - _vars97580_)) + (cons _body97599_ + _vars97584_)) (if (or (let () (declare (not safe)) (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e97598_)) - (let () (declare (not safe)) (eq? 'splice _$e97598_))) - (let ((__tmp98848 (cdr _body97595_)) - (__tmp98846 - (let ((__tmp98847 (car _body97595_))) + _$e97602_)) + (let () (declare (not safe)) (eq? 'splice _$e97602_))) + (let ((__tmp98852 (cdr _body97599_)) + (__tmp98850 + (let ((__tmp98851 (car _body97599_))) (declare (not safe)) - (_recur97577_ __tmp98847 _vars97580_)))) + (_recur97581_ __tmp98851 _vars97584_)))) (declare (not safe)) - (_recur97577_ __tmp98848 __tmp98846)) - (if (or (let () (declare (not safe)) (eq? 'vector _$e97598_)) - (let () (declare (not safe)) (eq? 'box _$e97598_))) + (_recur97581_ __tmp98852 __tmp98850)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e97602_)) + (let () (declare (not safe)) (eq? 'box _$e97602_))) (let () (declare (not safe)) - (_recur97577_ _body97595_ _vars97580_)) - _vars97580_))))))) + (_recur97581_ _body97599_ _vars97584_)) + _vars97584_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9758197588_)) - (let ((_hd9758597610_ + (##pair? _e9758597592_)) + (let ((_hd9758997614_ (let () (declare (not safe)) - (##car _e9758197588_))) - (_tl9758697612_ + (##car _e9758597592_))) + (_tl9759097616_ (let () (declare (not safe)) - (##cdr _e9758197588_)))) - (let* ((_tag97615_ _hd9758597610_) - (_body97617_ _tl9758697612_)) + (##cdr _e9758597592_)))) + (let* ((_tag97619_ _hd9758997614_) + (_body97621_ _tl9759097616_)) (declare (not safe)) - (_K9758497607_ - _body97617_ - _tag97615_))) + (_K9758897611_ + _body97621_ + _tag97619_))) (let () (declare (not safe)) - (_E9758397592_))))))) - (_make-body97569_ - (lambda (_vars97571_) - (let ((__tmp98849 - (map (lambda (_mvar97573_) - (let ((__tmp98850 - (car _mvar97573_))) + (_E9758797596_))))))) + (_make-body97573_ + (lambda (_vars97575_) + (let ((__tmp98853 + (map (lambda (_mvar97577_) + (let ((__tmp98854 + (car _mvar97577_))) (declare (not safe)) (assgetq__% - __tmp98850 - _vars97571_ - _BUG97565_))) - _mvars97561_))) + __tmp98854 + _vars97575_ + _BUG97569_))) + _mvars97565_))) (declare (not safe)) - (cons _K97562_ __tmp98849))))) + (cons _K97566_ __tmp98853))))) (let () (declare (not safe)) - (_recur97566_ - _hd97560_ + (_recur97570_ + _hd97564_ '() - _target97559_ - _E97563_ - _make-body97569_))))) - (_parse-clause97395_ - (lambda (_hd97464_ _ids97465_) - (let _recur97467_ ((_e97469_ _hd97464_) - (_vars97470_ '()) - (_depth97471_ '0)) + _target97563_ + _E97567_ + _make-body97573_))))) + (_parse-clause97399_ + (lambda (_hd97468_ _ids97469_) + (let _recur97471_ ((_e97473_ _hd97468_) + (_vars97474_ '()) + (_depth97475_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _e97469_)) + (gx#identifier? _e97473_)) (if (let () (declare (not safe)) - (gx#underscore? _e97469_)) - (values '(any) _vars97470_) + (gx#underscore? _e97473_)) + (values '(any) _vars97474_) (if (let () (declare (not safe)) - (gx#ellipsis? _e97469_)) + (gx#ellipsis? _e97473_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx97386_ - _hd97464_)) - (if (let ((__tmp98866 - (lambda (_id97473_) + _stx97390_ + _hd97468_)) + (if (let ((__tmp98870 + (lambda (_id97477_) (let () (declare (not safe)) (gx#bound-identifier=? - _e97469_ - _id97473_))))) + _e97473_ + _id97477_))))) (declare (not safe)) - (find __tmp98866 _ids97465_)) + (find __tmp98870 _ids97469_)) (values (let () (declare (not safe)) - (cons 'id _e97469_)) - _vars97470_) - (if (let ((__tmp98864 - (lambda (_var97475_) - (let ((__tmp98865 - (car _var97475_))) + (cons 'id _e97473_)) + _vars97474_) + (if (let ((__tmp98868 + (lambda (_var97479_) + (let ((__tmp98869 + (car _var97479_))) (declare (not safe)) (gx#bound-identifier=? - _e97469_ - __tmp98865))))) + _e97473_ + __tmp98869))))) (declare (not safe)) - (find __tmp98864 _vars97470_)) + (find __tmp98868 _vars97474_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx97386_ - _e97469_)) + _stx97390_ + _e97473_)) (values (let () (declare (not safe)) - (cons 'var _e97469_)) - (let ((__tmp98863 + (cons 'var _e97473_)) + (let ((__tmp98867 (let () (declare (not safe)) - (cons _e97469_ + (cons _e97473_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _depth97471_)))) + _depth97475_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98863 - _vars97470_))))))) + (cons __tmp98867 + _vars97474_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _e97469_)) - (let* ((_e9747697483_ _e97469_) - (_E9747897487_ + (gx#stx-pair? _e97473_)) + (let* ((_e9748097487_ _e97473_) + (_E9748297491_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9747697483_)))) - (_E9747797548_ + _e9748097487_)))) + (_E9748197552_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9747697483_)) - (let ((_e9747997491_ + (gx#stx-pair? _e9748097487_)) + (let ((_e9748397495_ (let () (declare (not safe)) (gx#syntax-e - _e9747697483_)))) - (let ((_hd9748097494_ + _e9748097487_)))) + (let ((_hd9748497498_ (let () (declare (not safe)) - (##car _e9747997491_))) - (_tl9748197496_ + (##car _e9748397495_))) + (_tl9748597500_ (let () (declare (not safe)) - (##cdr _e9747997491_)))) - (let* ((_hd97499_ - _hd9748097494_) - (_rest97501_ - _tl9748197496_)) + (##cdr _e9748397495_)))) + (let* ((_hd97503_ + _hd9748497498_) + (_rest97505_ + _tl9748597500_)) (if '#t - (let* ((_make-pair97516_ - (lambda (_tag97503_ + (let* ((_make-pair97520_ + (lambda (_tag97507_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd97504_ - _tl97505_) - (let* ((_hd-depth97507_ + _hd97508_ + _tl97509_) + (let* ((_hd-depth97511_ (if (let () (declare (not safe)) - (eq? _tag97503_ 'splice)) + (eq? _tag97507_ 'splice)) (let () (declare (not safe)) - (fx+ _depth97471_ '1)) - _depth97471_)) - (_g98858_ + (fx+ _depth97475_ '1)) + _depth97475_)) + (_g98862_ (let () (declare (not safe)) - (_recur97467_ - _hd97504_ - _vars97470_ - _hd-depth97507_)))) + (_recur97471_ + _hd97508_ + _vars97474_ + _hd-depth97511_)))) (begin - (let ((_g98859_ + (let ((_g98863_ (let () (declare (not safe)) - (if (##values? _g98858_) - (##vector-length _g98858_) + (if (##values? _g98862_) + (##vector-length _g98862_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98859_ 2))) - (error "Context expects 2 values" _g98859_))) - (let ((_hd97509_ + (##fx= _g98863_ 2))) + (error "Context expects 2 values" _g98863_))) + (let ((_hd97513_ (let () (declare (not safe)) - (##vector-ref _g98858_ 0))) - (_vars97510_ + (##vector-ref _g98862_ 0))) + (_vars97514_ (let () (declare (not safe)) - (##vector-ref _g98858_ 1)))) - (let ((_g98860_ + (##vector-ref _g98862_ 1)))) + (let ((_g98864_ (let () (declare (not safe)) - (_recur97467_ - _tl97505_ - _vars97510_ - _depth97471_)))) + (_recur97471_ + _tl97509_ + _vars97514_ + _depth97475_)))) (begin - (let ((_g98861_ + (let ((_g98865_ (let () (declare (not safe)) - (if (##values? _g98860_) - (##vector-length _g98860_) + (if (##values? _g98864_) + (##vector-length _g98864_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98861_ 2))) + (##fx= _g98865_ 2))) (error "Context expects 2 values" - _g98861_))) - (let ((_tl97512_ + _g98865_))) + (let ((_tl97516_ (let () (declare (not safe)) - (##vector-ref _g98860_ 0))) - (_vars97513_ + (##vector-ref _g98864_ 0))) + (_vars97517_ (let () (declare (not safe)) - (##vector-ref _g98860_ 1)))) + (##vector-ref _g98864_ 1)))) (let () - (values (let ((__tmp98862 + (values (let ((__tmp98866 (let () (declare (not safe)) - (cons _hd97509_ - _tl97512_)))) + (cons _hd97513_ + _tl97516_)))) (declare (not safe)) - (cons _tag97503_ __tmp98862)) - _vars97513_)))))))))) - (_e9751797524_ _rest97501_) - (_E9751997528_ + (cons _tag97507_ __tmp98866)) + _vars97517_)))))))))) + (_e9752197528_ _rest97505_) + (_E9752397532_ (lambda () (let () (declare (not safe)) - (_make-pair97516_ 'cons _hd97499_ _rest97501_)))) - (_E9751897544_ + (_make-pair97520_ 'cons _hd97503_ _rest97505_)))) + (_E9752297548_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9751797524_)) - (let ((_e9752097532_ + (gx#stx-pair? _e9752197528_)) + (let ((_e9752497536_ (let () (declare (not safe)) - (gx#syntax-e _e9751797524_)))) - (let ((_hd9752197535_ + (gx#syntax-e _e9752197528_)))) + (let ((_hd9752597539_ (let () (declare (not safe)) - (##car _e9752097532_))) - (_tl9752297537_ + (##car _e9752497536_))) + (_tl9752697541_ (let () (declare (not safe)) - (##cdr _e9752097532_)))) - (let* ((_rest-hd97540_ _hd9752197535_) - (_rest-tl97542_ _tl9752297537_)) + (##cdr _e9752497536_)))) + (let* ((_rest-hd97544_ _hd9752597539_) + (_rest-tl97546_ _tl9752697541_)) (if '#t (if (let () (declare (not safe)) - (gx#ellipsis? _rest-hd97540_)) + (gx#ellipsis? _rest-hd97544_)) (let () (declare (not safe)) - (_make-pair97516_ + (_make-pair97520_ 'splice - _hd97499_ - _rest-tl97542_)) + _hd97503_ + _rest-tl97546_)) (let () (declare (not safe)) - (_make-pair97516_ + (_make-pair97520_ 'cons - _hd97499_ - _rest97501_))) + _hd97503_ + _rest97505_))) (let () (declare (not safe)) - (_E9751997528_)))))) - (let () (declare (not safe)) (_E9751997528_)))))) - (let () (declare (not safe)) (_E9751897544_))) - (let () (declare (not safe)) (_E9747897487_)))))) + (_E9752397532_)))))) + (let () (declare (not safe)) (_E9752397532_)))))) + (let () (declare (not safe)) (_E9752297548_))) + (let () (declare (not safe)) (_E9748297491_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9747897487_)))))) - (let () (declare (not safe)) (_E9747797548_))) + (_E9748297491_)))))) + (let () (declare (not safe)) (_E9748197552_))) (if (let () (declare (not safe)) - (gx#stx-null? _e97469_)) - (values '(null) _vars97470_) + (gx#stx-null? _e97473_)) + (values '(null) _vars97474_) (if (let () (declare (not safe)) - (gx#stx-vector? _e97469_)) - (let ((_g98855_ - (let ((__tmp98857 + (gx#stx-vector? _e97473_)) + (let ((_g98859_ + (let ((__tmp98861 (vector->list (let () (declare (not safe)) (gx#syntax-e - _e97469_))))) + _e97473_))))) (declare (not safe)) - (_recur97467_ - __tmp98857 - _vars97470_ - _depth97471_)))) + (_recur97471_ + __tmp98861 + _vars97474_ + _depth97475_)))) (begin - (let ((_g98856_ + (let ((_g98860_ (let () (declare (not safe)) - (if (##values? _g98855_) + (if (##values? _g98859_) (##vector-length - _g98855_) + _g98859_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98856_ 2))) + (##fx= _g98860_ 2))) (error "Context expects 2 values" - _g98856_))) - (let ((_e97552_ + _g98860_))) + (let ((_e97556_ (let () (declare (not safe)) - (##vector-ref _g98855_ 0))) - (_vars97553_ + (##vector-ref _g98859_ 0))) + (_vars97557_ (let () (declare (not safe)) - (##vector-ref _g98855_ 1)))) + (##vector-ref _g98859_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e97552_)) - _vars97553_)))) + (cons 'vector _e97556_)) + _vars97557_)))) (if (let () (declare (not safe)) - (gx#stx-box? _e97469_)) - (let ((_g98852_ - (let ((__tmp98854 + (gx#stx-box? _e97473_)) + (let ((_g98856_ + (let ((__tmp98858 (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _e97469_))))) + (gx#syntax-e _e97473_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_recur97467_ - __tmp98854 - _vars97470_ - _depth97471_)))) + (_recur97471_ + __tmp98858 + _vars97474_ + _depth97475_)))) (begin - (let ((_g98853_ + (let ((_g98857_ (let () (declare (not safe)) - (if (##values? _g98852_) + (if (##values? _g98856_) (##vector-length - _g98852_) + _g98856_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98853_ 2))) + (##fx= _g98857_ 2))) (error "Context expects 2 values" - _g98853_))) - (let ((_e97555_ + _g98857_))) + (let ((_e97559_ (let () (declare (not safe)) (##vector-ref - _g98852_ + _g98856_ 0))) - (_vars97556_ + (_vars97560_ (let () (declare (not safe)) (##vector-ref - _g98852_ + _g98856_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e97555_)) - _vars97556_)))) + (cons 'box _e97559_)) + _vars97560_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _e97469_)) - (values (let ((__tmp98851 + (gx#stx-datum? _e97473_)) + (values (let ((__tmp98855 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _e97469_)))) + (gx#stx-e _e97473_)))) (declare (not safe)) - (cons 'datum __tmp98851)) - _vars97470_) + (cons 'datum __tmp98855)) + _vars97474_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _stx97386_ - _e97469_)))))))))))) - (let* ((_e9739697409_ _stx97386_) - (_E9739897413_ + _stx97390_ + _e97473_)))))))))))) + (let* ((_e9740097413_ _stx97390_) + (_E9740297417_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9739697409_)))) - (_E9739797460_ + _e9740097413_)))) + (_E9740197464_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9739697409_)) - (let ((_e9739997417_ + (gx#stx-pair? _e9740097413_)) + (let ((_e9740397421_ (let () (declare (not safe)) - (gx#syntax-e _e9739697409_)))) - (let ((_hd9740097420_ + (gx#syntax-e _e9740097413_)))) + (let ((_hd9740497424_ (let () (declare (not safe)) - (##car _e9739997417_))) - (_tl9740197422_ + (##car _e9740397421_))) + (_tl9740597426_ (let () (declare (not safe)) - (##cdr _e9739997417_)))) + (##cdr _e9740397421_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9740197422_)) - (let ((_e9740297425_ + (gx#stx-pair? _tl9740597426_)) + (let ((_e9740697429_ (let () (declare (not safe)) - (gx#syntax-e _tl9740197422_)))) - (let ((_hd9740397428_ + (gx#syntax-e _tl9740597426_)))) + (let ((_hd9740797432_ (let () (declare (not safe)) - (##car _e9740297425_))) - (_tl9740497430_ + (##car _e9740697429_))) + (_tl9740897434_ (let () (declare (not safe)) - (##cdr _e9740297425_)))) - (let ((_expr97433_ _hd9740397428_)) + (##cdr _e9740697429_)))) + (let ((_expr97437_ _hd9740797432_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9740497430_)) - (let ((_e9740597435_ + (gx#stx-pair? _tl9740897434_)) + (let ((_e9740997439_ (let () (declare (not safe)) (gx#syntax-e - _tl9740497430_)))) - (let ((_hd9740697438_ + _tl9740897434_)))) + (let ((_hd9741097442_ (let () (declare (not safe)) - (##car _e9740597435_))) - (_tl9740797440_ + (##car _e9740997439_))) + (_tl9741197444_ (let () (declare (not safe)) - (##cdr _e9740597435_)))) - (let* ((_ids97443_ - _hd9740697438_) - (_clauses97445_ - _tl9740797440_)) + (##cdr _e9740997439_)))) + (let* ((_ids97447_ + _hd9741097442_) + (_clauses97449_ + _tl9741197444_)) (if '#t - (if (let ((__tmp98884 + (if (let ((__tmp98888 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier-list? _ids97443_)))) + (gx#identifier-list? _ids97447_)))) (declare (not safe)) - (not __tmp98884)) + (not __tmp98888)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx97386_ - _ids97443_)) - (if (let ((__tmp98883 + _stx97390_ + _ids97447_)) + (if (let ((__tmp98887 (let () (declare (not safe)) - (gx#stx-list? _clauses97445_)))) + (gx#stx-list? _clauses97449_)))) (declare (not safe)) - (not __tmp98883)) + (not __tmp98887)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _stx97386_)) - (let* ((_ids97447_ + _stx97390_)) + (let* ((_ids97451_ (let () (declare (not safe)) - (gx#syntax->list _ids97443_))) - (_clauses97449_ + (gx#syntax->list _ids97447_))) + (_clauses97453_ (let () (declare (not safe)) - (gx#syntax->list _clauses97445_))) - (_clause-ids97451_ + (gx#syntax->list _clauses97449_))) + (_clause-ids97455_ (let () (declare (not safe)) - (gx#gentemps _clauses97449_))) - (_E97453_ + (gx#gentemps _clauses97453_))) + (_E97457_ (let () (declare (not safe)) (gx#genident__0))) - (_target97455_ + (_target97459_ (let () (declare (not safe)) (gx#genident__0))) - (_first97457_ + (_first97461_ (if (let () (declare (not safe)) - (null? _clauses97449_)) - _E97453_ - (car _clause-ids97451_)))) - (let ((__tmp98868 - (let ((__tmp98869 - (let ((__tmp98871 - (let ((__tmp98876 - (let ((__tmp98877 - (let ((__tmp98882 + (null? _clauses97453_)) + _E97457_ + (car _clause-ids97455_)))) + (let ((__tmp98872 + (let ((__tmp98873 + (let ((__tmp98875 + (let ((__tmp98880 + (let ((__tmp98881 + (let ((__tmp98886 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _E97453_ '()))) - (__tmp98878 - (let ((__tmp98879 - (let ((__tmp98881 + (cons _E97457_ '()))) + (__tmp98882 + (let ((__tmp98883 + (let ((__tmp98885 (let () (declare (not safe)) - (cons _target97455_ '()))) - (__tmp98880 + (cons _target97459_ '()))) + (__tmp98884 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _target97455_)))) + _target97459_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp98881 - __tmp98880)))) + __tmp98885 + __tmp98884)))) (declare (not safe)) - (cons __tmp98879 '())))) + (cons __tmp98883 '())))) (declare (not safe)) - (cons __tmp98882 __tmp98878)))) + (cons __tmp98886 __tmp98882)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98877 '()))) - (__tmp98872 - (let ((__tmp98875 + (cons __tmp98881 '()))) + (__tmp98876 + (let ((__tmp98879 (let () (declare (not safe)) - (_generate-bindings97391_ - _target97455_ - _ids97447_ - _clauses97449_ - _clause-ids97451_ - _E97453_))) - (__tmp98873 - (let ((__tmp98874 + (_generate-bindings97395_ + _target97459_ + _ids97451_ + _clauses97453_ + _clause-ids97455_ + _E97457_))) + (__tmp98877 + (let ((__tmp98878 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr97433_ '())))) + (cons _expr97437_ '())))) (declare (not safe)) - (cons _first97457_ __tmp98874)))) + (cons _first97461_ __tmp98878)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-body97392_ - __tmp98875 - __tmp98873)))) + (_generate-body97396_ + __tmp98879 + __tmp98877)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98876 - __tmp98872))) - (__tmp98870 + __tmp98880 + __tmp98876))) + (__tmp98874 (let () (declare (not safe)) - (gx#stx-source _stx97386_)))) + (gx#stx-source _stx97390_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp98871 - __tmp98870)))) + __tmp98875 + __tmp98874)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp98869))) - (__tmp98867 + __tmp98873))) + (__tmp98871 (let () (declare (not safe)) - (gx#stx-source _stx97386_)))) + (gx#stx-source _stx97390_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp98868 __tmp98867))))) + (gx#stx-wrap-source __tmp98872 __tmp98871))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9739897413_)))))) + (_E9740297417_)))))) (let () (declare (not safe)) - (_E9739897413_)))))) + (_E9740297417_)))))) (let () (declare (not safe)) - (_E9739897413_))))) - (let () (declare (not safe)) (_E9739897413_)))))) - (let () (declare (not safe)) (_E9739797460_)))))) + (_E9740297417_))))) + (let () (declare (not safe)) (_E9740297417_)))))) + (let () (declare (not safe)) (_E9740197464_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx98096_) - (let* ((_identifier=?98098_ 'free-identifier=?) - (_unwrap-e98100_ 'syntax-e) - (_wrap-e98102_ 'quote-syntax)) + (lambda (_stx98100_) + (let* ((_identifier=?98102_ 'free-identifier=?) + (_unwrap-e98104_ 'syntax-e) + (_wrap-e98106_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx98096_ - _identifier=?98098_ - _unwrap-e98100_ - _wrap-e98102_)))) + _stx98100_ + _identifier=?98102_ + _unwrap-e98104_ + _wrap-e98106_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx98104_ _identifier=?98105_) - (let* ((_unwrap-e98107_ 'syntax-e) (_wrap-e98109_ 'quote-syntax)) + (lambda (_stx98108_ _identifier=?98109_) + (let* ((_unwrap-e98111_ 'syntax-e) (_wrap-e98113_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx98104_ - _identifier=?98105_ - _unwrap-e98107_ - _wrap-e98109_)))) + _stx98108_ + _identifier=?98109_ + _unwrap-e98111_ + _wrap-e98113_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx98111_ _identifier=?98112_ _unwrap-e98113_) - (let ((_wrap-e98115_ 'quote-syntax)) + (lambda (_stx98115_ _identifier=?98116_ _unwrap-e98117_) + (let ((_wrap-e98119_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx98111_ - _identifier=?98112_ - _unwrap-e98113_ - _wrap-e98115_)))) + _stx98115_ + _identifier=?98116_ + _unwrap-e98117_ + _wrap-e98119_)))) (define gx#macro-expand-syntax-case - (lambda _g98886_ - (let ((_g98885_ (let () (declare (not safe)) (##length _g98886_)))) - (cond ((let () (declare (not safe)) (##fx= _g98885_ 1)) - (apply (lambda (_stx98096_) + (lambda _g98890_ + (let ((_g98889_ (let () (declare (not safe)) (##length _g98890_)))) + (cond ((let () (declare (not safe)) (##fx= _g98889_ 1)) + (apply (lambda (_stx98100_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__0 _stx98096_))) - _g98886_)) - ((let () (declare (not safe)) (##fx= _g98885_ 2)) - (apply (lambda (_stx98104_ _identifier=?98105_) + (gx#macro-expand-syntax-case__0 _stx98100_))) + _g98890_)) + ((let () (declare (not safe)) (##fx= _g98889_ 2)) + (apply (lambda (_stx98108_ _identifier=?98109_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__1 - _stx98104_ - _identifier=?98105_))) - _g98886_)) - ((let () (declare (not safe)) (##fx= _g98885_ 3)) - (apply (lambda (_stx98111_ - _identifier=?98112_ - _unwrap-e98113_) + _stx98108_ + _identifier=?98109_))) + _g98890_)) + ((let () (declare (not safe)) (##fx= _g98889_ 3)) + (apply (lambda (_stx98115_ + _identifier=?98116_ + _unwrap-e98117_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__2 - _stx98111_ - _identifier=?98112_ - _unwrap-e98113_))) - _g98886_)) - ((let () (declare (not safe)) (##fx= _g98885_ 4)) - (apply (lambda (_stx98117_ - _identifier=?98118_ - _unwrap-e98119_ - _wrap-e98120_) + _stx98115_ + _identifier=?98116_ + _unwrap-e98117_))) + _g98890_)) + ((let () (declare (not safe)) (##fx= _g98889_ 4)) + (apply (lambda (_stx98121_ + _identifier=?98122_ + _unwrap-e98123_ + _wrap-e98124_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx98117_ - _identifier=?98118_ - _unwrap-e98119_ - _wrap-e98120_))) - _g98886_)) + _stx98121_ + _identifier=?98122_ + _unwrap-e98123_ + _wrap-e98124_))) + _g98890_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g98886_)))))) + _g98890_)))))) (define gx#syntax-local-pattern? - (lambda (_stx97383_) - (if (let () (declare (not safe)) (gx#identifier? _stx97383_)) - (let ((__tmp98887 + (lambda (_stx97387_) + (if (let () (declare (not safe)) (gx#identifier? _stx97387_)) + (let ((__tmp98891 (let () (declare (not safe)) - (gx#syntax-local-e__% _stx97383_ false)))) + (gx#syntax-local-e__% _stx97387_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp98887 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp98891 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd97341_ . _rest97342_) - (let ((_len97344_ (length _hd97341_))) - (let _lp97346_ ((_rest97348_ _rest97342_)) - (let* ((_rest9734997357_ _rest97348_) - (_else9735197365_ (lambda () '#!void)) - (_K9735397371_ - (lambda (_rest97368_ _hd97369_) - (if (fx= _len97344_ (length _hd97369_)) - (let () (declare (not safe)) (_lp97346_ _rest97368_)) + (lambda (_hd97345_ . _rest97346_) + (let ((_len97348_ (length _hd97345_))) + (let _lp97350_ ((_rest97352_ _rest97346_)) + (let* ((_rest9735397361_ _rest97352_) + (_else9735597369_ (lambda () '#!void)) + (_K9735797375_ + (lambda (_rest97372_ _hd97373_) + (if (fx= _len97348_ (length _hd97373_)) + (let () (declare (not safe)) (_lp97350_ _rest97372_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd97369_)))))) - (if (let () (declare (not safe)) (##pair? _rest9734997357_)) - (let ((_hd9735497374_ + _hd97373_)))))) + (if (let () (declare (not safe)) (##pair? _rest9735397361_)) + (let ((_hd9735897378_ (let () (declare (not safe)) - (##car _rest9734997357_))) - (_tl9735597376_ + (##car _rest9735397361_))) + (_tl9735997380_ (let () (declare (not safe)) - (##cdr _rest9734997357_)))) - (let* ((_hd97379_ _hd9735497374_) - (_rest97381_ _tl9735597376_)) + (##cdr _rest9735397361_)))) + (let* ((_hd97383_ _hd9735897378_) + (_rest97385_ _tl9735997380_)) (declare (not safe)) - (_K9735397371_ _rest97381_ _hd97379_))) + (_K9735797375_ _rest97385_ _hd97383_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_stx97299_ _n97300_) - (let _lp97302_ ((_rest97304_ _stx97299_) (_r97305_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _rest97304_)) - (let* ((_g9730697313_ - (let () (declare (not safe)) (gx#syntax-e _rest97304_))) - (_E9730897317_ + (lambda (_stx97303_ _n97304_) + (let _lp97306_ ((_rest97308_ _stx97303_) (_r97309_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _rest97308_)) + (let* ((_g9731097317_ + (let () (declare (not safe)) (gx#syntax-e _rest97308_))) + (_E9731297321_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _g9730697313_)))) - (_K9730997323_ - (lambda (_rest97320_ _hd97321_) - (let ((__tmp98892 + (error '"No clause matching" _g9731097317_)))) + (_K9731397327_ + (lambda (_rest97324_ _hd97325_) + (let ((__tmp98896 (let () (declare (not safe)) - (cons _hd97321_ _r97305_)))) + (cons _hd97325_ _r97309_)))) (declare (not safe)) - (_lp97302_ _rest97320_ __tmp98892))))) - (if (let () (declare (not safe)) (##pair? _g9730697313_)) - (let ((_hd9731097326_ - (let () (declare (not safe)) (##car _g9730697313_))) - (_tl9731197328_ + (_lp97306_ _rest97324_ __tmp98896))))) + (if (let () (declare (not safe)) (##pair? _g9731097317_)) + (let ((_hd9731497330_ + (let () (declare (not safe)) (##car _g9731097317_))) + (_tl9731597332_ (let () (declare (not safe)) - (##cdr _g9730697313_)))) - (let* ((_hd97331_ _hd9731097326_) - (_rest97333_ _tl9731197328_)) + (##cdr _g9731097317_)))) + (let* ((_hd97335_ _hd9731497330_) + (_rest97337_ _tl9731597332_)) (declare (not safe)) - (_K9730997323_ _rest97333_ _hd97331_))) - (let () (declare (not safe)) (_E9730897317_)))) - (let _lp97335_ ((_n97337_ _n97300_) - (_l97338_ _r97305_) - (_r97339_ _rest97304_)) - (if (let () (declare (not safe)) (null? _l97338_)) - (values _l97338_ _r97339_) - (if (fxpositive? _n97337_) - (let ((__tmp98891 - (let () (declare (not safe)) (fx- _n97337_ '1))) - (__tmp98890 (cdr _l97338_)) - (__tmp98888 - (let ((__tmp98889 (car _l97338_))) + (_K9731397327_ _rest97337_ _hd97335_))) + (let () (declare (not safe)) (_E9731297321_)))) + (let _lp97339_ ((_n97341_ _n97304_) + (_l97342_ _r97309_) + (_r97343_ _rest97308_)) + (if (let () (declare (not safe)) (null? _l97342_)) + (values _l97342_ _r97343_) + (if (fxpositive? _n97341_) + (let ((__tmp98895 + (let () (declare (not safe)) (fx- _n97341_ '1))) + (__tmp98894 (cdr _l97342_)) + (__tmp98892 + (let ((__tmp98893 (car _l97342_))) (declare (not safe)) - (cons __tmp98889 _r97339_)))) + (cons __tmp98893 _r97343_)))) (declare (not safe)) - (_lp97335_ __tmp98891 __tmp98890 __tmp98888)) - (values (reverse _l97338_) _r97339_)))))))))) + (_lp97339_ __tmp98895 __tmp98894 __tmp98892)) + (values (reverse _l97342_) _r97343_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index 64a6f0b71..5201326e8 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]#_g98895_| + (define |gx[1]#_g98899_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g98897_| + (define |gx[1]#_g98901_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g98899_| + (define |gx[1]#_g98903_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g98901_| + (define |gx[1]#_g98905_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g98907_| + (define |gx[1]#_g98911_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g98910_| + (define |gx[1]#_g98914_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g98913_| + (define |gx[1]#_g98917_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g98919_| + (define |gx[1]#_g98923_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98922_| + (define |gx[1]#_g98926_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98925_| + (define |gx[1]#_g98929_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98931_| + (define |gx[1]#_g98935_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g98934_| + (define |gx[1]#_g98938_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g98937_| + (define |gx[1]#_g98941_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g98943_| + (define |gx[1]#_g98947_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98946_| + (define |gx[1]#_g98950_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98949_| + (define |gx[1]#_g98953_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj98645 + (let ((__obj98649 (let () (declare (not safe)) (##structure @@ -137,7 +137,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98645 + __obj98649 'gx#syntax-pattern::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -145,7 +145,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98645 + __obj98649 'syntax-pattern '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -153,26 +153,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98645 + __obj98649 '(id depth) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98893 - (let ((__tmp98894 |gx[1]#_g98895_|)) + (let ((__tmp98897 + (let ((__tmp98898 |gx[1]#_g98899_|)) (declare (not safe)) - (cons __tmp98894 '())))) + (cons __tmp98898 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj98645 - __tmp98893 + __obj98649 + __tmp98897 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj98645 + __obj98649 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -180,7 +180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98645 + __obj98649 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -188,7 +188,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98645 + __obj98649 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -196,145 +196,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98645 + __obj98649 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98896 |gx[1]#_g98897_|)) + (let ((__tmp98900 |gx[1]#_g98901_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98645 - __tmp98896 + __obj98649 + __tmp98900 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98898 |gx[1]#_g98899_|)) + (let ((__tmp98902 |gx[1]#_g98903_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98645 - __tmp98898 + __obj98649 + __tmp98902 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98900 |gx[1]#_g98901_|)) + (let ((__tmp98904 |gx[1]#_g98905_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98645 - __tmp98900 + __obj98649 + __tmp98904 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98902 - (let ((__tmp98911 - (let ((__tmp98912 |gx[1]#_g98913_|)) + (let ((__tmp98906 + (let ((__tmp98915 + (let ((__tmp98916 |gx[1]#_g98917_|)) (declare (not safe)) - (cons 'id __tmp98912))) - (__tmp98903 - (let ((__tmp98908 - (let ((__tmp98909 |gx[1]#_g98910_|)) + (cons 'id __tmp98916))) + (__tmp98907 + (let ((__tmp98912 + (let ((__tmp98913 |gx[1]#_g98914_|)) (declare (not safe)) - (cons 'depth __tmp98909))) - (__tmp98904 - (let ((__tmp98905 - (let ((__tmp98906 |gx[1]#_g98907_|)) + (cons 'depth __tmp98913))) + (__tmp98908 + (let ((__tmp98909 + (let ((__tmp98910 |gx[1]#_g98911_|)) (declare (not safe)) - (cons 'e __tmp98906)))) + (cons 'e __tmp98910)))) (declare (not safe)) - (cons __tmp98905 '())))) + (cons __tmp98909 '())))) (declare (not safe)) - (cons __tmp98908 __tmp98904)))) + (cons __tmp98912 __tmp98908)))) (declare (not safe)) - (cons __tmp98911 __tmp98903)))) + (cons __tmp98915 __tmp98907)))) (declare (not safe)) (##unchecked-structure-set! - __obj98645 - __tmp98902 + __obj98649 + __tmp98906 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98914 - (let ((__tmp98923 - (let ((__tmp98924 |gx[1]#_g98925_|)) + (let ((__tmp98918 + (let ((__tmp98927 + (let ((__tmp98928 |gx[1]#_g98929_|)) (declare (not safe)) - (cons 'id __tmp98924))) - (__tmp98915 - (let ((__tmp98920 - (let ((__tmp98921 |gx[1]#_g98922_|)) + (cons 'id __tmp98928))) + (__tmp98919 + (let ((__tmp98924 + (let ((__tmp98925 |gx[1]#_g98926_|)) (declare (not safe)) - (cons 'depth __tmp98921))) - (__tmp98916 - (let ((__tmp98917 - (let ((__tmp98918 |gx[1]#_g98919_|)) + (cons 'depth __tmp98925))) + (__tmp98920 + (let ((__tmp98921 + (let ((__tmp98922 |gx[1]#_g98923_|)) (declare (not safe)) - (cons 'e __tmp98918)))) + (cons 'e __tmp98922)))) (declare (not safe)) - (cons __tmp98917 '())))) + (cons __tmp98921 '())))) (declare (not safe)) - (cons __tmp98920 __tmp98916)))) + (cons __tmp98924 __tmp98920)))) (declare (not safe)) - (cons __tmp98923 __tmp98915)))) + (cons __tmp98927 __tmp98919)))) (declare (not safe)) (##unchecked-structure-set! - __obj98645 - __tmp98914 + __obj98649 + __tmp98918 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98926 - (let ((__tmp98935 - (let ((__tmp98936 |gx[1]#_g98937_|)) + (let ((__tmp98930 + (let ((__tmp98939 + (let ((__tmp98940 |gx[1]#_g98941_|)) (declare (not safe)) - (cons 'id __tmp98936))) - (__tmp98927 - (let ((__tmp98932 - (let ((__tmp98933 |gx[1]#_g98934_|)) + (cons 'id __tmp98940))) + (__tmp98931 + (let ((__tmp98936 + (let ((__tmp98937 |gx[1]#_g98938_|)) (declare (not safe)) - (cons 'depth __tmp98933))) - (__tmp98928 - (let ((__tmp98929 - (let ((__tmp98930 |gx[1]#_g98931_|)) + (cons 'depth __tmp98937))) + (__tmp98932 + (let ((__tmp98933 + (let ((__tmp98934 |gx[1]#_g98935_|)) (declare (not safe)) - (cons 'e __tmp98930)))) + (cons 'e __tmp98934)))) (declare (not safe)) - (cons __tmp98929 '())))) + (cons __tmp98933 '())))) (declare (not safe)) - (cons __tmp98932 __tmp98928)))) + (cons __tmp98936 __tmp98932)))) (declare (not safe)) - (cons __tmp98935 __tmp98927)))) + (cons __tmp98939 __tmp98931)))) (declare (not safe)) (##unchecked-structure-set! - __obj98645 - __tmp98926 + __obj98649 + __tmp98930 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98938 - (let ((__tmp98947 - (let ((__tmp98948 |gx[1]#_g98949_|)) + (let ((__tmp98942 + (let ((__tmp98951 + (let ((__tmp98952 |gx[1]#_g98953_|)) (declare (not safe)) - (cons 'id __tmp98948))) - (__tmp98939 - (let ((__tmp98944 - (let ((__tmp98945 |gx[1]#_g98946_|)) + (cons 'id __tmp98952))) + (__tmp98943 + (let ((__tmp98948 + (let ((__tmp98949 |gx[1]#_g98950_|)) (declare (not safe)) - (cons 'depth __tmp98945))) - (__tmp98940 - (let ((__tmp98941 - (let ((__tmp98942 |gx[1]#_g98943_|)) + (cons 'depth __tmp98949))) + (__tmp98944 + (let ((__tmp98945 + (let ((__tmp98946 |gx[1]#_g98947_|)) (declare (not safe)) - (cons 'e __tmp98942)))) + (cons 'e __tmp98946)))) (declare (not safe)) - (cons __tmp98941 '())))) + (cons __tmp98945 '())))) (declare (not safe)) - (cons __tmp98944 __tmp98940)))) + (cons __tmp98948 __tmp98944)))) (declare (not safe)) - (cons __tmp98947 __tmp98939)))) + (cons __tmp98951 __tmp98943)))) (declare (not safe)) (##unchecked-structure-set! - __obj98645 - __tmp98938 + __obj98649 + __tmp98942 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj98645))) + __obj98649))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index 80eb87625..f5571bea6 100644 --- a/src/bootstrap/gerbil/expander/stx~0.scm +++ b/src/bootstrap/gerbil/expander/stx~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stx::timestamp 1710781149) + (define gerbil/expander/stx::timestamp 1710833424) (begin (declare (not safe)) (define gx#identifier-wrap::t @@ -13,8 +13,8 @@ '#f)) (define gx#identifier-wrap? (make-class-predicate gx#identifier-wrap::t)) (define gx#make-identifier-wrap - (lambda _$args82838_ - (apply make-instance gx#identifier-wrap::t _$args82838_))) + (lambda _$args82842_ + (apply make-instance gx#identifier-wrap::t _$args82842_))) (define gx#identifier-wrap-marks (make-class-slot-accessor gx#identifier-wrap::t 'marks)) (define gx#identifier-wrap-e @@ -49,8 +49,8 @@ '#f)) (define gx#syntax-wrap? (make-class-predicate gx#syntax-wrap::t)) (define gx#make-syntax-wrap - (lambda _$args82835_ - (apply make-instance gx#syntax-wrap::t _$args82835_))) + (lambda _$args82839_ + (apply make-instance gx#syntax-wrap::t _$args82839_))) (define gx#syntax-wrap-mark (make-class-slot-accessor gx#syntax-wrap::t 'mark)) (define gx#syntax-wrap-e (make-class-slot-accessor gx#syntax-wrap::t 'e)) @@ -84,8 +84,8 @@ '#f)) (define gx#syntax-quote? (make-class-predicate gx#syntax-quote::t)) (define gx#make-syntax-quote - (lambda _$args82832_ - (apply make-instance gx#syntax-quote::t _$args82832_))) + (lambda _$args82836_ + (apply make-instance gx#syntax-quote::t _$args82836_))) (define gx#syntax-quote-context (make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -118,979 +118,979 @@ (define gx#&syntax-quote-source-set! (make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_stx82830_) (symbol? (gx#stx-e _stx82830_)))) + (lambda (_stx82834_) (symbol? (gx#stx-e _stx82834_)))) (define gx#identifier-quote? - (lambda (_stx82828_) - (if (##structure-direct-instance-of? _stx82828_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx82828_ '1 gx#AST::t '#f)) + (lambda (_stx82832_) + (if (##structure-direct-instance-of? _stx82832_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx82832_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx82826_) - (if (##structure-direct-instance-of? _stx82826_ 'gx#syntax-quote::t) + (lambda (_stx82830_) + (if (##structure-direct-instance-of? _stx82830_ 'gx#syntax-quote::t) '#t - (if (##structure-direct-instance-of? _stx82826_ 'gx#syntax-wrap::t) + (if (##structure-direct-instance-of? _stx82830_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx82826_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx82830_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx82824_) - (if (##structure-direct-instance-of? _stx82824_ 'gx#syntax-quote::t) - _stx82824_ - (if (##structure-direct-instance-of? _stx82824_ 'gx#syntax-wrap::t) + (lambda (_stx82828_) + (if (##structure-direct-instance-of? _stx82828_ 'gx#syntax-quote::t) + _stx82828_ + (if (##structure-direct-instance-of? _stx82828_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx82824_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx82828_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx82807_) - (if (##structure-direct-instance-of? _stx82807_ 'gx#syntax-wrap::t) - (let _lp82809_ ((_e82811_ + (lambda (_stx82811_) + (if (##structure-direct-instance-of? _stx82811_ 'gx#syntax-wrap::t) + (let _lp82813_ ((_e82815_ (##unchecked-structure-ref - _stx82807_ + _stx82811_ '1 gx#AST::t '#f)) - (_marks82812_ + (_marks82816_ (cons (##unchecked-structure-ref - _stx82807_ + _stx82811_ '3 gx#syntax-wrap::t '#f) '()))) - (if (##structure? _e82811_) - (let ((_$e82814_ (##type-id (##structure-type _e82811_)))) - (if (eq? 'gx#syntax-wrap::t _$e82814_) - (_lp82809_ - (##unchecked-structure-ref _e82811_ '1 gx#AST::t '#f) + (if (##structure? _e82815_) + (let ((_$e82818_ (##type-id (##structure-type _e82815_)))) + (if (eq? 'gx#syntax-wrap::t _$e82818_) + (_lp82813_ + (##unchecked-structure-ref _e82815_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e82811_ + _e82815_ '3 gx#syntax-wrap::t '#f) - _marks82812_)) - (if (or (eq? 'gx#syntax-quote::t _$e82814_) - (eq? 'gx#identifier-wrap::t _$e82814_)) + _marks82816_)) + (if (or (eq? 'gx#syntax-quote::t _$e82818_) + (eq? 'gx#identifier-wrap::t _$e82818_)) (##unchecked-structure-ref - _e82811_ + _e82815_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e82814_) - (_lp82809_ + (if (eq? 'gerbil#AST::t _$e82818_) + (_lp82813_ (##unchecked-structure-ref - _e82811_ + _e82815_ '1 gx#AST::t '#f) - _marks82812_) - _e82811_)))) - (if (null? _marks82812_) - _e82811_ - (if (pair? _e82811_) - (cons (gx#stx-wrap (car _e82811_) _marks82812_) - (gx#stx-wrap (cdr _e82811_) _marks82812_)) - (if (vector? _e82811_) + _marks82816_) + _e82815_)))) + (if (null? _marks82816_) + _e82815_ + (if (pair? _e82815_) + (cons (gx#stx-wrap (car _e82815_) _marks82816_) + (gx#stx-wrap (cdr _e82815_) _marks82816_)) + (if (vector? _e82815_) (vector-map - (lambda (_g8281982821_) - (gx#stx-wrap _g8281982821_ _marks82812_)) - _e82811_) - (if (box? _e82811_) + (lambda (_g8282382825_) + (gx#stx-wrap _g8282382825_ _marks82816_)) + _e82815_) + (if (box? _e82815_) (box (gx#stx-wrap - (unbox _e82811_) - _marks82812_)) - _e82811_)))))) - (if (##structure-instance-of? _stx82807_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx82807_ '1 gx#AST::t '#f) - _stx82807_)))) + (unbox _e82815_) + _marks82816_)) + _e82815_)))))) + (if (##structure-instance-of? _stx82811_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx82811_ '1 gx#AST::t '#f) + _stx82811_)))) (define gx#syntax->datum - (lambda (_stx82805_) - (if (##structure-instance-of? _stx82805_ 'gerbil#AST::t) + (lambda (_stx82809_) + (if (##structure-instance-of? _stx82809_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _stx82805_ '1 gx#AST::t '#f)) - (if (pair? _stx82805_) - (cons (gx#syntax->datum (car _stx82805_)) - (gx#syntax->datum (cdr _stx82805_))) - (if (vector? _stx82805_) - (vector-map gx#syntax->datum _stx82805_) - (if (box? _stx82805_) - (box (gx#syntax->datum (unbox _stx82805_))) - _stx82805_)))))) + (##unchecked-structure-ref _stx82809_ '1 gx#AST::t '#f)) + (if (pair? _stx82809_) + (cons (gx#syntax->datum (car _stx82809_)) + (gx#syntax->datum (cdr _stx82809_))) + (if (vector? _stx82809_) + (vector-map gx#syntax->datum _stx82809_) + (if (box? _stx82809_) + (box (gx#syntax->datum (unbox _stx82809_))) + _stx82809_)))))) (define gx#datum->syntax__% - (lambda (_stx82748_ _datum82749_ _src82750_ _quote?82751_) - (letrec ((_wrap-datum82753_ - (lambda (_e82777_ _marks82778_) - (_wrap-inner82755_ - _e82777_ - (lambda (_g8277982781_) + (lambda (_stx82752_ _datum82753_ _src82754_ _quote?82755_) + (letrec ((_wrap-datum82757_ + (lambda (_e82781_ _marks82782_) + (_wrap-inner82759_ + _e82781_ + (lambda (_g8278382785_) (##structure gx#identifier-wrap::t - _g8277982781_ - _src82750_ - _marks82778_))))) - (_wrap-quote82754_ - (lambda (_e82769_ _ctx82770_ _marks82771_) - (_wrap-inner82755_ - _e82769_ - (lambda (_g8277282774_) + _g8278382785_ + _src82754_ + _marks82782_))))) + (_wrap-quote82758_ + (lambda (_e82773_ _ctx82774_ _marks82775_) + (_wrap-inner82759_ + _e82773_ + (lambda (_g8277682778_) (##structure gx#syntax-quote::t - _g8277282774_ - _src82750_ - _ctx82770_ - _marks82771_))))) - (_wrap-inner82755_ - (lambda (_e82762_ _wrap-e82763_) - (let _recur82765_ ((_e82767_ _e82762_)) - (if (symbol? _e82767_) - (_wrap-e82763_ _e82767_) - (if (pair? _e82767_) - (cons (_recur82765_ (car _e82767_)) - (_recur82765_ (cdr _e82767_))) - (if (vector? _e82767_) - (vector-map _recur82765_ _e82767_) - (if (box? _e82767_) - (box (_recur82765_ (unbox _e82767_))) - _e82767_))))))) - (_wrap-outer82756_ - (lambda (_e82760_) - (if (##structure-instance-of? _e82760_ 'gerbil#AST::t) - _e82760_ - (##structure gx#AST::t _e82760_ _src82750_))))) - (if (##structure-instance-of? _datum82749_ 'gerbil#AST::t) - _datum82749_ - (if (not _stx82748_) - (##structure gx#AST::t _datum82749_ _src82750_) - (if (gx#identifier? _stx82748_) - (let ((_stx82758_ (gx#stx-unwrap__0 _stx82748_))) - (_wrap-outer82756_ + _g8277682778_ + _src82754_ + _ctx82774_ + _marks82775_))))) + (_wrap-inner82759_ + (lambda (_e82766_ _wrap-e82767_) + (let _recur82769_ ((_e82771_ _e82766_)) + (if (symbol? _e82771_) + (_wrap-e82767_ _e82771_) + (if (pair? _e82771_) + (cons (_recur82769_ (car _e82771_)) + (_recur82769_ (cdr _e82771_))) + (if (vector? _e82771_) + (vector-map _recur82769_ _e82771_) + (if (box? _e82771_) + (box (_recur82769_ (unbox _e82771_))) + _e82771_))))))) + (_wrap-outer82760_ + (lambda (_e82764_) + (if (##structure-instance-of? _e82764_ 'gerbil#AST::t) + _e82764_ + (##structure gx#AST::t _e82764_ _src82754_))))) + (if (##structure-instance-of? _datum82753_ 'gerbil#AST::t) + _datum82753_ + (if (not _stx82752_) + (##structure gx#AST::t _datum82753_ _src82754_) + (if (gx#identifier? _stx82752_) + (let ((_stx82762_ (gx#stx-unwrap__0 _stx82752_))) + (_wrap-outer82760_ (if (##structure-direct-instance-of? - _stx82758_ + _stx82762_ 'gx#syntax-quote::t) - (if _quote?82751_ - (_wrap-quote82754_ - _datum82749_ + (if _quote?82755_ + (_wrap-quote82758_ + _datum82753_ (##unchecked-structure-ref - _stx82758_ + _stx82762_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx82758_ + _stx82762_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum82753_ - _datum82749_ + (_wrap-datum82757_ + _datum82753_ (##unchecked-structure-ref - _stx82758_ + _stx82762_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum82753_ - _datum82749_ + (_wrap-datum82757_ + _datum82753_ (##unchecked-structure-ref - _stx82758_ + _stx82762_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx82748_))))))) + _stx82752_))))))) (define gx#datum->syntax__0 - (lambda (_stx82787_ _datum82788_) - (let* ((_src82790_ '#f) (_quote?82792_ '#t)) + (lambda (_stx82791_ _datum82792_) + (let* ((_src82794_ '#f) (_quote?82796_ '#t)) (gx#datum->syntax__% - _stx82787_ - _datum82788_ - _src82790_ - _quote?82792_)))) + _stx82791_ + _datum82792_ + _src82794_ + _quote?82796_)))) (define gx#datum->syntax__1 - (lambda (_stx82794_ _datum82795_ _src82796_) - (let ((_quote?82798_ '#t)) + (lambda (_stx82798_ _datum82799_ _src82800_) + (let ((_quote?82802_ '#t)) (gx#datum->syntax__% - _stx82794_ - _datum82795_ - _src82796_ - _quote?82798_)))) + _stx82798_ + _datum82799_ + _src82800_ + _quote?82802_)))) (define gx#datum->syntax - (lambda _g82919_ - (let ((_g82918_ (##length _g82919_))) - (cond ((##fx= _g82918_ 2) - (apply (lambda (_stx82787_ _datum82788_) - (gx#datum->syntax__0 _stx82787_ _datum82788_)) - _g82919_)) - ((##fx= _g82918_ 3) - (apply (lambda (_stx82794_ _datum82795_ _src82796_) + (lambda _g82923_ + (let ((_g82922_ (##length _g82923_))) + (cond ((##fx= _g82922_ 2) + (apply (lambda (_stx82791_ _datum82792_) + (gx#datum->syntax__0 _stx82791_ _datum82792_)) + _g82923_)) + ((##fx= _g82922_ 3) + (apply (lambda (_stx82798_ _datum82799_ _src82800_) (gx#datum->syntax__1 - _stx82794_ - _datum82795_ - _src82796_)) - _g82919_)) - ((##fx= _g82918_ 4) - (apply (lambda (_stx82800_ - _datum82801_ - _src82802_ - _quote?82803_) + _stx82798_ + _datum82799_ + _src82800_)) + _g82923_)) + ((##fx= _g82922_ 4) + (apply (lambda (_stx82804_ + _datum82805_ + _src82806_ + _quote?82807_) (gx#datum->syntax__% - _stx82800_ - _datum82801_ - _src82802_ - _quote?82803_)) - _g82919_)) + _stx82804_ + _datum82805_ + _src82806_ + _quote?82807_)) + _g82923_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g82919_)))))) + _g82923_)))))) (define gx#stx-unwrap__% - (lambda (_stx82724_ _marks82725_) - (let _lp82727_ ((_e82729_ _stx82724_) - (_marks82730_ _marks82725_) - (_src82731_ (gx#stx-source _stx82724_))) - (if (##structure-direct-instance-of? _e82729_ 'gx#syntax-wrap::t) - (_lp82727_ - (##unchecked-structure-ref _e82729_ '1 gx#AST::t '#f) + (lambda (_stx82728_ _marks82729_) + (let _lp82731_ ((_e82733_ _stx82728_) + (_marks82734_ _marks82729_) + (_src82735_ (gx#stx-source _stx82728_))) + (if (##structure-direct-instance-of? _e82733_ 'gx#syntax-wrap::t) + (_lp82731_ + (##unchecked-structure-ref _e82733_ '1 gx#AST::t '#f) (gx#apply-mark - (##unchecked-structure-ref _e82729_ '3 gx#syntax-wrap::t '#f) - _marks82730_) - (##unchecked-structure-ref _e82729_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e82733_ '3 gx#syntax-wrap::t '#f) + _marks82734_) + (##unchecked-structure-ref _e82733_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e82729_ + _e82733_ 'gx#identifier-wrap::t) - (if (null? _marks82730_) - _e82729_ + (if (null? _marks82734_) + _e82733_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e82729_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e82729_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e82733_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e82733_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e82729_ + _e82733_ '3 gx#identifier-wrap::t '#f) - _marks82730_))) + _marks82734_))) (if (##structure-direct-instance-of? - _e82729_ + _e82733_ 'gx#syntax-quote::t) - _e82729_ - (if (##structure-instance-of? _e82729_ 'gerbil#AST::t) - (_lp82727_ + _e82733_ + (if (##structure-instance-of? _e82733_ 'gerbil#AST::t) + (_lp82731_ (##unchecked-structure-ref - _e82729_ + _e82733_ '1 gx#AST::t '#f) - _marks82730_ + _marks82734_ (##unchecked-structure-ref - _e82729_ + _e82733_ '2 gx#AST::t '#f)) - (if (symbol? _e82729_) + (if (symbol? _e82733_) (##structure gx#identifier-wrap::t - _e82729_ - _src82731_ - (reverse _marks82730_)) - (if (null? _marks82730_) - _e82729_ - (if (pair? _e82729_) + _e82733_ + _src82735_ + (reverse _marks82734_)) + (if (null? _marks82734_) + _e82733_ + (if (pair? _e82733_) (cons (gx#stx-wrap - (car _e82729_) - _marks82730_) + (car _e82733_) + _marks82734_) (gx#stx-wrap - (cdr _e82729_) - _marks82730_)) - (if (vector? _e82729_) + (cdr _e82733_) + _marks82734_)) + (if (vector? _e82733_) (vector-map - (lambda (_g8273282734_) + (lambda (_g8273682738_) (gx#stx-wrap - _g8273282734_ - _marks82730_)) - _e82729_) - (if (box? _e82729_) + _g8273682738_ + _marks82734_)) + _e82733_) + (if (box? _e82733_) (box (gx#stx-wrap - (unbox _e82729_) - _marks82730_)) - _e82729_)))))))))))) + (unbox _e82733_) + _marks82734_)) + _e82733_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx82740_) - (let ((_marks82742_ '())) (gx#stx-unwrap__% _stx82740_ _marks82742_)))) + (lambda (_stx82744_) + (let ((_marks82746_ '())) (gx#stx-unwrap__% _stx82744_ _marks82746_)))) (define gx#stx-unwrap - (lambda _g82921_ - (let ((_g82920_ (##length _g82921_))) - (cond ((##fx= _g82920_ 1) - (apply (lambda (_stx82740_) (gx#stx-unwrap__0 _stx82740_)) - _g82921_)) - ((##fx= _g82920_ 2) - (apply (lambda (_stx82744_ _marks82745_) - (gx#stx-unwrap__% _stx82744_ _marks82745_)) - _g82921_)) + (lambda _g82925_ + (let ((_g82924_ (##length _g82925_))) + (cond ((##fx= _g82924_ 1) + (apply (lambda (_stx82744_) (gx#stx-unwrap__0 _stx82744_)) + _g82925_)) + ((##fx= _g82924_ 2) + (apply (lambda (_stx82748_ _marks82749_) + (gx#stx-unwrap__% _stx82748_ _marks82749_)) + _g82925_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g82921_)))))) + _g82925_)))))) (define gx#stx-wrap - (lambda (_stx82717_ _marks82718_) - (foldl1 (lambda (_mark82720_ _stx82721_) - (gx#stx-apply-mark _stx82721_ _mark82720_)) - _stx82717_ - _marks82718_))) + (lambda (_stx82721_ _marks82722_) + (foldl1 (lambda (_mark82724_ _stx82725_) + (gx#stx-apply-mark _stx82725_ _mark82724_)) + _stx82721_ + _marks82722_))) (define gx#stx-rewrap - (lambda (_stx82711_ _marks82712_) - (foldr1 (lambda (_mark82714_ _stx82715_) - (gx#stx-apply-mark _stx82715_ _mark82714_)) - _stx82711_ - _marks82712_))) + (lambda (_stx82715_ _marks82716_) + (foldr1 (lambda (_mark82718_ _stx82719_) + (gx#stx-apply-mark _stx82719_ _mark82718_)) + _stx82715_ + _marks82716_))) (define gx#stx-apply-mark - (lambda (_stx82708_ _mark82709_) - (if (##structure-direct-instance-of? _stx82708_ 'gx#syntax-quote::t) - _stx82708_ + (lambda (_stx82712_ _mark82713_) + (if (##structure-direct-instance-of? _stx82712_ 'gx#syntax-quote::t) + _stx82712_ (if (and (##structure-direct-instance-of? - _stx82708_ + _stx82712_ 'gx#syntax-wrap::t) - (eq? _mark82709_ + (eq? _mark82713_ (##unchecked-structure-ref - _stx82708_ + _stx82712_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx82708_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx82712_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx82708_ - (gx#stx-source _stx82708_) - _mark82709_))))) + _stx82712_ + (gx#stx-source _stx82712_) + _mark82713_))))) (define gx#apply-mark - (lambda (_mark82672_ _marks82673_) - (let* ((_marks8267482682_ _marks82673_) - (_else8267682690_ (lambda () (cons _mark82672_ _marks82673_))) - (_K8267882696_ - (lambda (_rest82693_ _hd82694_) - (if (eq? _mark82672_ _hd82694_) - _rest82693_ - (cons _mark82672_ _marks82673_))))) - (if (##pair? _marks8267482682_) - (let ((_hd8267982699_ (##car _marks8267482682_)) - (_tl8268082701_ (##cdr _marks8267482682_))) - (let* ((_hd82704_ _hd8267982699_) (_rest82706_ _tl8268082701_)) - (_K8267882696_ _rest82706_ _hd82704_))) - (_else8267682690_))))) + (lambda (_mark82676_ _marks82677_) + (let* ((_marks8267882686_ _marks82677_) + (_else8268082694_ (lambda () (cons _mark82676_ _marks82677_))) + (_K8268282700_ + (lambda (_rest82697_ _hd82698_) + (if (eq? _mark82676_ _hd82698_) + _rest82697_ + (cons _mark82676_ _marks82677_))))) + (if (##pair? _marks8267882686_) + (let ((_hd8268382703_ (##car _marks8267882686_)) + (_tl8268482705_ (##cdr _marks8267882686_))) + (let* ((_hd82708_ _hd8268382703_) (_rest82710_ _tl8268482705_)) + (_K8268282700_ _rest82710_ _hd82708_))) + (_else8268082694_))))) (define gx#stx-e - (lambda (_stx82670_) - (if (##structure-direct-instance-of? _stx82670_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _stx82670_ '1 gx#AST::t '#f)) - (if (##structure-instance-of? _stx82670_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx82670_ '1 gx#AST::t '#f) - _stx82670_)))) + (lambda (_stx82674_) + (if (##structure-direct-instance-of? _stx82674_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _stx82674_ '1 gx#AST::t '#f)) + (if (##structure-instance-of? _stx82674_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx82674_ '1 gx#AST::t '#f) + _stx82674_)))) (define gx#stx-source - (lambda (_stx82668_) - (if (##structure-instance-of? _stx82668_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx82668_ '2 gx#AST::t '#f) + (lambda (_stx82672_) + (if (##structure-instance-of? _stx82672_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx82672_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx82662_ _src82663_) - (if (or (##structure-instance-of? _stx82662_ 'gerbil#AST::t) - (not _src82663_)) - _stx82662_ - (##structure gx#AST::t _stx82662_ _src82663_)))) + (lambda (_stx82666_ _src82667_) + (if (or (##structure-instance-of? _stx82666_ 'gerbil#AST::t) + (not _src82667_)) + _stx82666_ + (##structure gx#AST::t _stx82666_ _src82667_)))) (define gx#stx-datum? - (lambda (_stx82660_) (gx#self-quoting? (gx#stx-e _stx82660_)))) + (lambda (_stx82664_) (gx#self-quoting? (gx#stx-e _stx82664_)))) (define gx#self-quoting? - (lambda (_x82643_) - (let ((_$e82645_ (immediate? _x82643_))) - (if _$e82645_ - _$e82645_ - (let ((_$e82648_ (number? _x82643_))) - (if _$e82648_ - _$e82648_ - (let ((_$e82651_ (keyword? _x82643_))) - (if _$e82651_ - _$e82651_ - (let ((_$e82654_ (string? _x82643_))) - (if _$e82654_ - _$e82654_ - (let ((_$e82657_ (vector? _x82643_))) - (if _$e82657_ - _$e82657_ - (u8vector? _x82643_))))))))))))) - (define gx#stx-boolean? (lambda (_e82641_) (boolean? (gx#stx-e _e82641_)))) - (define gx#stx-keyword? (lambda (_e82639_) (keyword? (gx#stx-e _e82639_)))) - (define gx#stx-char? (lambda (_e82637_) (char? (gx#stx-e _e82637_)))) - (define gx#stx-number? (lambda (_e82635_) (number? (gx#stx-e _e82635_)))) - (define gx#stx-fixnum? (lambda (_e82633_) (fixnum? (gx#stx-e _e82633_)))) - (define gx#stx-string? (lambda (_e82631_) (string? (gx#stx-e _e82631_)))) - (define gx#stx-null? (lambda (_e82629_) (null? (gx#stx-e _e82629_)))) - (define gx#stx-pair? (lambda (_e82627_) (pair? (gx#stx-e _e82627_)))) + (lambda (_x82647_) + (let ((_$e82649_ (immediate? _x82647_))) + (if _$e82649_ + _$e82649_ + (let ((_$e82652_ (number? _x82647_))) + (if _$e82652_ + _$e82652_ + (let ((_$e82655_ (keyword? _x82647_))) + (if _$e82655_ + _$e82655_ + (let ((_$e82658_ (string? _x82647_))) + (if _$e82658_ + _$e82658_ + (let ((_$e82661_ (vector? _x82647_))) + (if _$e82661_ + _$e82661_ + (u8vector? _x82647_))))))))))))) + (define gx#stx-boolean? (lambda (_e82645_) (boolean? (gx#stx-e _e82645_)))) + (define gx#stx-keyword? (lambda (_e82643_) (keyword? (gx#stx-e _e82643_)))) + (define gx#stx-char? (lambda (_e82641_) (char? (gx#stx-e _e82641_)))) + (define gx#stx-number? (lambda (_e82639_) (number? (gx#stx-e _e82639_)))) + (define gx#stx-fixnum? (lambda (_e82637_) (fixnum? (gx#stx-e _e82637_)))) + (define gx#stx-string? (lambda (_e82635_) (string? (gx#stx-e _e82635_)))) + (define gx#stx-null? (lambda (_e82633_) (null? (gx#stx-e _e82633_)))) + (define gx#stx-pair? (lambda (_e82631_) (pair? (gx#stx-e _e82631_)))) (define gx#stx-list? - (lambda (_e82589_) - (let* ((_g8259082599_ (gx#stx-e _e82589_)) - (_E8259382603_ - (lambda () (error '"No clause matching" _g8259082599_)))) - (let ((_K8259582619_ - (lambda (_rest82617_) (gx#stx-list? _rest82617_))) - (_K8259482609_ (lambda (_tail82607_) (null? _tail82607_)))) - (if (##pair? _g8259082599_) - (let* ((_tl8259782622_ (##cdr _g8259082599_)) - (_rest82625_ _tl8259782622_)) - (gx#stx-list? _rest82625_)) - (let ((_tail82612_ _g8259082599_)) (null? _tail82612_))))))) + (lambda (_e82593_) + (let* ((_g8259482603_ (gx#stx-e _e82593_)) + (_E8259782607_ + (lambda () (error '"No clause matching" _g8259482603_)))) + (let ((_K8259982623_ + (lambda (_rest82621_) (gx#stx-list? _rest82621_))) + (_K8259882613_ (lambda (_tail82611_) (null? _tail82611_)))) + (if (##pair? _g8259482603_) + (let* ((_tl8260182626_ (##cdr _g8259482603_)) + (_rest82629_ _tl8260182626_)) + (gx#stx-list? _rest82629_)) + (let ((_tail82616_ _g8259482603_)) (null? _tail82616_))))))) (define gx#stx-pair/null? - (lambda (_e82582_) - (let* ((_e82584_ (gx#stx-e _e82582_)) (_$e82586_ (pair? _e82584_))) - (if _$e82586_ _$e82586_ (null? _e82584_))))) - (define gx#stx-vector? (lambda (_e82580_) (vector? (gx#stx-e _e82580_)))) - (define gx#stx-box? (lambda (_e82578_) (box? (gx#stx-e _e82578_)))) + (lambda (_e82586_) + (let* ((_e82588_ (gx#stx-e _e82586_)) (_$e82590_ (pair? _e82588_))) + (if _$e82590_ _$e82590_ (null? _e82588_))))) + (define gx#stx-vector? (lambda (_e82584_) (vector? (gx#stx-e _e82584_)))) + (define gx#stx-box? (lambda (_e82582_) (box? (gx#stx-e _e82582_)))) (define gx#stx-eq? - (lambda (_x82575_ _y82576_) - (eq? (gx#stx-e _x82575_) (gx#stx-e _y82576_)))) + (lambda (_x82579_ _y82580_) + (eq? (gx#stx-e _x82579_) (gx#stx-e _y82580_)))) (define gx#stx-eqv? - (lambda (_x82572_ _y82573_) - (eqv? (gx#stx-e _x82572_) (gx#stx-e _y82573_)))) + (lambda (_x82576_ _y82577_) + (eqv? (gx#stx-e _x82576_) (gx#stx-e _y82577_)))) (define gx#stx-equal? - (lambda (_x82569_ _y82570_) - (equal? (gx#stx-e _x82569_) (gx#stx-e _y82570_)))) - (define gx#stx-false? (lambda (_x82567_) (not (gx#stx-e _x82567_)))) + (lambda (_x82573_ _y82574_) + (equal? (gx#stx-e _x82573_) (gx#stx-e _y82574_)))) + (define gx#stx-false? (lambda (_x82571_) (not (gx#stx-e _x82571_)))) (define gx#stx-identifier - (lambda (_template82564_ . _args82565_) + (lambda (_template82568_ . _args82569_) (gx#datum->syntax__1 - _template82564_ - (apply make-symbol (gx#syntax->datum _args82565_)) - (gx#stx-source _template82564_)))) + _template82568_ + (apply make-symbol (gx#syntax->datum _args82569_)) + (gx#stx-source _template82568_)))) (define gx#stx-identifier-marks - (lambda (_stx82562_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx82562_)))) + (lambda (_stx82566_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx82566_)))) (define gx#stx-identifier-marks* - (lambda (_stx82560_) - (if (##structure-direct-instance-of? _stx82560_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _stx82560_ '3 gx#identifier-wrap::t '#f) + (lambda (_stx82564_) + (if (##structure-direct-instance-of? _stx82564_ 'gx#identifier-wrap::t) + (##unchecked-structure-ref _stx82564_ '3 gx#identifier-wrap::t '#f) (if (##structure-direct-instance-of? - _stx82560_ + _stx82564_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _stx82560_ + _stx82564_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx82560_))))) + _stx82564_))))) (define gx#stx-identifier-context - (lambda (_stx82556_) - (let ((_stx82558_ (gx#stx-unwrap__0 _stx82556_))) - (if (gx#identifier-quote? _stx82558_) - (##unchecked-structure-ref _stx82558_ '3 gx#syntax-quote::t '#f) + (lambda (_stx82560_) + (let ((_stx82562_ (gx#stx-unwrap__0 _stx82560_))) + (if (gx#identifier-quote? _stx82562_) + (##unchecked-structure-ref _stx82562_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx82511_) - (let* ((_g8251282522_ (gx#stx-e _stx82511_)) - (_else8251582530_ (lambda () '#f))) - (let ((_K8251882544_ - (lambda (_rest82541_ _hd82542_) - (if (gx#identifier? _hd82542_) - (gx#identifier-list? _rest82541_) + (lambda (_stx82515_) + (let* ((_g8251682526_ (gx#stx-e _stx82515_)) + (_else8251982534_ (lambda () '#f))) + (let ((_K8252282548_ + (lambda (_rest82545_ _hd82546_) + (if (gx#identifier? _hd82546_) + (gx#identifier-list? _rest82545_) '#f))) - (_K8251782535_ (lambda () '#t))) - (let ((_try-match8251482538_ + (_K8252182539_ (lambda () '#t))) + (let ((_try-match8251882542_ (lambda () - (if (##null? _g8251282522_) - (_K8251782535_) - (_else8251582530_))))) - (if (##pair? _g8251282522_) - (let ((_tl8252082549_ (##cdr _g8251282522_)) - (_hd8251982547_ (##car _g8251282522_))) - (let ((_hd82552_ _hd8251982547_) - (_rest82554_ _tl8252082549_)) - (_K8251882544_ _rest82554_ _hd82552_))) - (_try-match8251482538_))))))) + (if (##null? _g8251682526_) + (_K8252182539_) + (_else8251982534_))))) + (if (##pair? _g8251682526_) + (let ((_tl8252482553_ (##cdr _g8251682526_)) + (_hd8252382551_ (##car _g8251682526_))) + (let ((_hd82556_ _hd8252382551_) + (_rest82558_ _tl8252482553_)) + (_K8252282548_ _rest82558_ _hd82556_))) + (_try-match8251882542_))))))) (define gx#genident__% - (lambda (_e82488_ _src82489_) + (lambda (_e82492_ _src82493_) (gx#stx-wrap-source - (gensym (let ((_e82491_ (gx#stx-e _e82488_))) - (if (interned-symbol? _e82491_) _e82491_ 'g))) - (let ((_$e82493_ (gx#stx-source _e82488_))) - (if _$e82493_ _$e82493_ _src82489_))))) + (gensym (let ((_e82495_ (gx#stx-e _e82492_))) + (if (interned-symbol? _e82495_) _e82495_ 'g))) + (let ((_$e82497_ (gx#stx-source _e82492_))) + (if _$e82497_ _$e82497_ _src82493_))))) (define gx#genident__0 (lambda () - (let* ((_e82500_ 'g) (_src82502_ '#f)) - (gx#genident__% _e82500_ _src82502_)))) + (let* ((_e82504_ 'g) (_src82506_ '#f)) + (gx#genident__% _e82504_ _src82506_)))) (define gx#genident__1 - (lambda (_e82504_) - (let ((_src82506_ '#f)) (gx#genident__% _e82504_ _src82506_)))) + (lambda (_e82508_) + (let ((_src82510_ '#f)) (gx#genident__% _e82508_ _src82510_)))) (define gx#genident - (lambda _g82923_ - (let ((_g82922_ (##length _g82923_))) - (cond ((##fx= _g82922_ 0) - (apply (lambda () (gx#genident__0)) _g82923_)) - ((##fx= _g82922_ 1) - (apply (lambda (_e82504_) (gx#genident__1 _e82504_)) - _g82923_)) - ((##fx= _g82922_ 2) - (apply (lambda (_e82508_ _src82509_) - (gx#genident__% _e82508_ _src82509_)) - _g82923_)) + (lambda _g82927_ + (let ((_g82926_ (##length _g82927_))) + (cond ((##fx= _g82926_ 0) + (apply (lambda () (gx#genident__0)) _g82927_)) + ((##fx= _g82926_ 1) + (apply (lambda (_e82508_) (gx#genident__1 _e82508_)) + _g82927_)) + ((##fx= _g82926_ 2) + (apply (lambda (_e82512_ _src82513_) + (gx#genident__% _e82512_ _src82513_)) + _g82927_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g82923_)))))) + _g82927_)))))) (define gx#gentemps - (lambda (_stx-lst82485_) (gx#stx-map1 gx#genident _stx-lst82485_))) + (lambda (_stx-lst82489_) (gx#stx-map1 gx#genident _stx-lst82489_))) (define gx#syntax->list - (lambda (_stx82483_) (gx#stx-map1 values _stx82483_))) + (lambda (_stx82487_) (gx#stx-map1 values _stx82487_))) (define gx#stx-car - (lambda (_stx82480_) + (lambda (_stx82484_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _stx82480_))))) + (car (let () (declare (not safe)) (gx#syntax-e _stx82484_))))) (define gx#stx-cdr - (lambda (_stx82477_) + (lambda (_stx82481_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _stx82477_))))) + (cdr (let () (declare (not safe)) (gx#syntax-e _stx82481_))))) (define gx#stx-length - (lambda (_stx82442_) - (let _lp82444_ ((_rest82446_ _stx82442_) (_n82447_ '0)) - (let* ((_g8244882456_ (gx#stx-e _rest82446_)) - (_else8245082464_ (lambda () _n82447_)) - (_K8245282469_ - (lambda (_rest82467_) - (_lp82444_ _rest82467_ (fx+ _n82447_ '1))))) - (if (##pair? _g8244882456_) - (let* ((_tl8245482472_ (##cdr _g8244882456_)) - (_rest82475_ _tl8245482472_)) - (_K8245282469_ _rest82475_)) - (_else8245082464_)))))) + (lambda (_stx82446_) + (let _lp82448_ ((_rest82450_ _stx82446_) (_n82451_ '0)) + (let* ((_g8245282460_ (gx#stx-e _rest82450_)) + (_else8245482468_ (lambda () _n82451_)) + (_K8245682473_ + (lambda (_rest82471_) + (_lp82448_ _rest82471_ (fx+ _n82451_ '1))))) + (if (##pair? _g8245282460_) + (let* ((_tl8245882476_ (##cdr _g8245282460_)) + (_rest82479_ _tl8245882476_)) + (_K8245682473_ _rest82479_)) + (_else8245482468_)))))) (define gx#stx-for-each - (lambda _g82925_ - (let ((_g82924_ (##length _g82925_))) - (cond ((##fx= _g82924_ 2) - (apply (lambda (_f82435_ _stx82436_) - (gx#stx-for-each1 _f82435_ _stx82436_)) - _g82925_)) - ((##fx= _g82924_ 3) - (apply (lambda (_f82438_ _xstx82439_ _ystx82440_) - (gx#stx-for-each2 _f82438_ _xstx82439_ _ystx82440_)) - _g82925_)) + (lambda _g82929_ + (let ((_g82928_ (##length _g82929_))) + (cond ((##fx= _g82928_ 2) + (apply (lambda (_f82439_ _stx82440_) + (gx#stx-for-each1 _f82439_ _stx82440_)) + _g82929_)) + ((##fx= _g82928_ 3) + (apply (lambda (_f82442_ _xstx82443_ _ystx82444_) + (gx#stx-for-each2 _f82442_ _xstx82443_ _ystx82444_)) + _g82929_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g82925_)))))) + _g82929_)))))) (define gx#stx-for-each1 - (lambda (_f82385_ _stx82386_) - (if (procedure? _f82385_) + (lambda (_f82389_ _stx82390_) + (if (procedure? _f82389_) '#!void - (error '"expected procedure" _f82385_)) - (let _lp82388_ ((_rest82390_ _stx82386_)) - (let* ((_g8239182401_ (gx#syntax-e _rest82390_)) - (_else8239482409_ (lambda () (_f82385_ _rest82390_)))) - (let ((_K8239782423_ - (lambda (_rest82420_ _hd82421_) - (_f82385_ _hd82421_) - (_lp82388_ _rest82420_))) - (_K8239682414_ (lambda () '#!void))) - (let ((_try-match8239382417_ + (error '"expected procedure" _f82389_)) + (let _lp82392_ ((_rest82394_ _stx82390_)) + (let* ((_g8239582405_ (gx#syntax-e _rest82394_)) + (_else8239882413_ (lambda () (_f82389_ _rest82394_)))) + (let ((_K8240182427_ + (lambda (_rest82424_ _hd82425_) + (_f82389_ _hd82425_) + (_lp82392_ _rest82424_))) + (_K8240082418_ (lambda () '#!void))) + (let ((_try-match8239782421_ (lambda () - (if (##null? _g8239182401_) - (_K8239682414_) - (_else8239482409_))))) - (if (##pair? _g8239182401_) - (let ((_tl8239982428_ (##cdr _g8239182401_)) - (_hd8239882426_ (##car _g8239182401_))) - (let ((_hd82431_ _hd8239882426_) - (_rest82433_ _tl8239982428_)) - (_K8239782423_ _rest82433_ _hd82431_))) - (_try-match8239382417_)))))))) + (if (##null? _g8239582405_) + (_K8240082418_) + (_else8239882413_))))) + (if (##pair? _g8239582405_) + (let ((_tl8240382432_ (##cdr _g8239582405_)) + (_hd8240282430_ (##car _g8239582405_))) + (let ((_hd82435_ _hd8240282430_) + (_rest82437_ _tl8240382432_)) + (_K8240182427_ _rest82437_ _hd82435_))) + (_try-match8239782421_)))))))) (define gx#stx-for-each2 - (lambda (_f82290_ _xstx82291_ _ystx82292_) - (if (procedure? _f82290_) + (lambda (_f82294_ _xstx82295_ _ystx82296_) + (if (procedure? _f82294_) '#!void - (error '"expected procedure" _f82290_)) - (let _lp82294_ ((_xrest82296_ _xstx82291_) (_yrest82297_ _ystx82292_)) - (let* ((_g8229882308_ (gx#syntax-e _xrest82296_)) - (_else8230182316_ (lambda () '#!void))) - (let ((_K8230482373_ - (lambda (_xrest82342_ _xhd82343_) - (let* ((_g8234482351_ (gx#syntax-e _yrest82297_)) - (_E8234682355_ + (error '"expected procedure" _f82294_)) + (let _lp82298_ ((_xrest82300_ _xstx82295_) (_yrest82301_ _ystx82296_)) + (let* ((_g8230282312_ (gx#syntax-e _xrest82300_)) + (_else8230582320_ (lambda () '#!void))) + (let ((_K8230882377_ + (lambda (_xrest82346_ _xhd82347_) + (let* ((_g8234882355_ (gx#syntax-e _yrest82301_)) + (_E8235082359_ (lambda () - (error '"No clause matching" _g8234482351_))) - (_K8234782361_ - (lambda (_yrest82358_ _yhd82359_) - (_f82290_ _xhd82343_ _yhd82359_) - (_lp82294_ _xrest82342_ _yrest82358_)))) - (if (##pair? _g8234482351_) - (let ((_hd8234882364_ (##car _g8234482351_)) - (_tl8234982366_ (##cdr _g8234482351_))) - (let* ((_yhd82369_ _hd8234882364_) - (_yrest82371_ _tl8234982366_)) - (_K8234782361_ _yrest82371_ _yhd82369_))) - (_E8234682355_))))) - (_K8230382336_ + (error '"No clause matching" _g8234882355_))) + (_K8235182365_ + (lambda (_yrest82362_ _yhd82363_) + (_f82294_ _xhd82347_ _yhd82363_) + (_lp82298_ _xrest82346_ _yrest82362_)))) + (if (##pair? _g8234882355_) + (let ((_hd8235282368_ (##car _g8234882355_)) + (_tl8235382370_ (##cdr _g8234882355_))) + (let* ((_yhd82373_ _hd8235282368_) + (_yrest82375_ _tl8235382370_)) + (_K8235182365_ _yrest82375_ _yhd82373_))) + (_E8235082359_))))) + (_K8230782340_ (lambda () - (let* ((_yrest8232082325_ _yrest82297_) - (_E8232282329_ + (let* ((_yrest8232482329_ _yrest82301_) + (_E8232682333_ (lambda () (error '"No clause matching" - _yrest8232082325_))) - (_K8232382333_ - (lambda () (_f82290_ _xrest82296_ _yrest82297_)))) - (if (not (gx#stx-null? _yrest8232082325_)) - (_K8232382333_) - (_E8232282329_)))))) - (let ((_try-match8230082339_ + _yrest8232482329_))) + (_K8232782337_ + (lambda () (_f82294_ _xrest82300_ _yrest82301_)))) + (if (not (gx#stx-null? _yrest8232482329_)) + (_K8232782337_) + (_E8232682333_)))))) + (let ((_try-match8230482343_ (lambda () - (if (not (null? _g8229882308_)) - (_K8230382336_) - (_else8230182316_))))) - (if (##pair? _g8229882308_) - (let ((_tl8230682378_ (##cdr _g8229882308_)) - (_hd8230582376_ (##car _g8229882308_))) - (let ((_xhd82381_ _hd8230582376_) - (_xrest82383_ _tl8230682378_)) - (_K8230482373_ _xrest82383_ _xhd82381_))) - (_try-match8230082339_)))))))) + (if (not (null? _g8230282312_)) + (_K8230782340_) + (_else8230582320_))))) + (if (##pair? _g8230282312_) + (let ((_tl8231082382_ (##cdr _g8230282312_)) + (_hd8230982380_ (##car _g8230282312_))) + (let ((_xhd82385_ _hd8230982380_) + (_xrest82387_ _tl8231082382_)) + (_K8230882377_ _xrest82387_ _xhd82385_))) + (_try-match8230482343_)))))))) (define gx#stx-map - (lambda _g82927_ - (let ((_g82926_ (##length _g82927_))) - (cond ((##fx= _g82926_ 2) - (apply (lambda (_f82283_ _stx82284_) - (gx#stx-map1 _f82283_ _stx82284_)) - _g82927_)) - ((##fx= _g82926_ 3) - (apply (lambda (_f82286_ _xstx82287_ _ystx82288_) - (gx#stx-map2 _f82286_ _xstx82287_ _ystx82288_)) - _g82927_)) + (lambda _g82931_ + (let ((_g82930_ (##length _g82931_))) + (cond ((##fx= _g82930_ 2) + (apply (lambda (_f82287_ _stx82288_) + (gx#stx-map1 _f82287_ _stx82288_)) + _g82931_)) + ((##fx= _g82930_ 3) + (apply (lambda (_f82290_ _xstx82291_ _ystx82292_) + (gx#stx-map2 _f82290_ _xstx82291_ _ystx82292_)) + _g82931_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g82927_)))))) + _g82931_)))))) (define gx#stx-map1 - (lambda (_f82233_ _stx82234_) - (if (procedure? _f82233_) + (lambda (_f82237_ _stx82238_) + (if (procedure? _f82237_) '#!void - (error '"expected procedure" _f82233_)) - (let _recur82236_ ((_rest82238_ _stx82234_)) - (let* ((_g8223982249_ (gx#syntax-e _rest82238_)) - (_else8224282257_ (lambda () (_f82233_ _rest82238_)))) - (let ((_K8224582271_ - (lambda (_rest82268_ _hd82269_) - (cons (_f82233_ _hd82269_) (_recur82236_ _rest82268_)))) - (_K8224482262_ (lambda () '()))) - (let ((_try-match8224182265_ + (error '"expected procedure" _f82237_)) + (let _recur82240_ ((_rest82242_ _stx82238_)) + (let* ((_g8224382253_ (gx#syntax-e _rest82242_)) + (_else8224682261_ (lambda () (_f82237_ _rest82242_)))) + (let ((_K8224982275_ + (lambda (_rest82272_ _hd82273_) + (cons (_f82237_ _hd82273_) (_recur82240_ _rest82272_)))) + (_K8224882266_ (lambda () '()))) + (let ((_try-match8224582269_ (lambda () - (if (##null? _g8223982249_) - (_K8224482262_) - (_else8224282257_))))) - (if (##pair? _g8223982249_) - (let ((_tl8224782276_ (##cdr _g8223982249_)) - (_hd8224682274_ (##car _g8223982249_))) - (let ((_hd82279_ _hd8224682274_) - (_rest82281_ _tl8224782276_)) - (_K8224582271_ _rest82281_ _hd82279_))) - (_try-match8224182265_)))))))) + (if (##null? _g8224382253_) + (_K8224882266_) + (_else8224682261_))))) + (if (##pair? _g8224382253_) + (let ((_tl8225182280_ (##cdr _g8224382253_)) + (_hd8225082278_ (##car _g8224382253_))) + (let ((_hd82283_ _hd8225082278_) + (_rest82285_ _tl8225182280_)) + (_K8224982275_ _rest82285_ _hd82283_))) + (_try-match8224582269_)))))))) (define gx#stx-map2 - (lambda (_f82138_ _xstx82139_ _ystx82140_) - (if (procedure? _f82138_) + (lambda (_f82142_ _xstx82143_ _ystx82144_) + (if (procedure? _f82142_) '#!void - (error '"expected procedure" _f82138_)) - (let _recur82142_ ((_xrest82144_ _xstx82139_) - (_yrest82145_ _ystx82140_)) - (let* ((_g8214682156_ (gx#syntax-e _xrest82144_)) - (_else8214982164_ (lambda () '()))) - (let ((_K8215282221_ - (lambda (_xrest82190_ _xhd82191_) - (let* ((_g8219282199_ (gx#syntax-e _yrest82145_)) - (_E8219482203_ + (error '"expected procedure" _f82142_)) + (let _recur82146_ ((_xrest82148_ _xstx82143_) + (_yrest82149_ _ystx82144_)) + (let* ((_g8215082160_ (gx#syntax-e _xrest82148_)) + (_else8215382168_ (lambda () '()))) + (let ((_K8215682225_ + (lambda (_xrest82194_ _xhd82195_) + (let* ((_g8219682203_ (gx#syntax-e _yrest82149_)) + (_E8219882207_ (lambda () - (error '"No clause matching" _g8219282199_))) - (_K8219582209_ - (lambda (_yrest82206_ _yhd82207_) - (cons (_f82138_ _xhd82191_ _yhd82207_) - (_recur82142_ - _xrest82190_ - _yrest82206_))))) - (if (##pair? _g8219282199_) - (let ((_hd8219682212_ (##car _g8219282199_)) - (_tl8219782214_ (##cdr _g8219282199_))) - (let* ((_yhd82217_ _hd8219682212_) - (_yrest82219_ _tl8219782214_)) - (_K8219582209_ _yrest82219_ _yhd82217_))) - (_E8219482203_))))) - (_K8215182184_ + (error '"No clause matching" _g8219682203_))) + (_K8219982213_ + (lambda (_yrest82210_ _yhd82211_) + (cons (_f82142_ _xhd82195_ _yhd82211_) + (_recur82146_ + _xrest82194_ + _yrest82210_))))) + (if (##pair? _g8219682203_) + (let ((_hd8220082216_ (##car _g8219682203_)) + (_tl8220182218_ (##cdr _g8219682203_))) + (let* ((_yhd82221_ _hd8220082216_) + (_yrest82223_ _tl8220182218_)) + (_K8219982213_ _yrest82223_ _yhd82221_))) + (_E8219882207_))))) + (_K8215582188_ (lambda () - (let* ((_yrest8216882173_ _yrest82145_) - (_E8217082177_ + (let* ((_yrest8217282177_ _yrest82149_) + (_E8217482181_ (lambda () (error '"No clause matching" - _yrest8216882173_))) - (_K8217182181_ - (lambda () (_f82138_ _xrest82144_ _yrest82145_)))) - (if (not (gx#stx-null? _yrest8216882173_)) - (_K8217182181_) - (_E8217082177_)))))) - (let ((_try-match8214882187_ + _yrest8217282177_))) + (_K8217582185_ + (lambda () (_f82142_ _xrest82148_ _yrest82149_)))) + (if (not (gx#stx-null? _yrest8217282177_)) + (_K8217582185_) + (_E8217482181_)))))) + (let ((_try-match8215282191_ (lambda () - (if (not (null? _g8214682156_)) - (_K8215182184_) - (_else8214982164_))))) - (if (##pair? _g8214682156_) - (let ((_tl8215482226_ (##cdr _g8214682156_)) - (_hd8215382224_ (##car _g8214682156_))) - (let ((_xhd82229_ _hd8215382224_) - (_xrest82231_ _tl8215482226_)) - (_K8215282221_ _xrest82231_ _xhd82229_))) - (_try-match8214882187_)))))))) + (if (not (null? _g8215082160_)) + (_K8215582188_) + (_else8215382168_))))) + (if (##pair? _g8215082160_) + (let ((_tl8215882230_ (##cdr _g8215082160_)) + (_hd8215782228_ (##car _g8215082160_))) + (let ((_xhd82233_ _hd8215782228_) + (_xrest82235_ _tl8215882230_)) + (_K8215682225_ _xrest82235_ _xhd82233_))) + (_try-match8215282191_)))))))) (define gx#stx-andmap - (lambda (_f82088_ _stx82089_) - (if (procedure? _f82088_) + (lambda (_f82092_ _stx82093_) + (if (procedure? _f82092_) '#!void - (error '"expected procedure" _f82088_)) - (let _lp82091_ ((_rest82093_ _stx82089_)) - (let* ((_g8209482104_ (gx#syntax-e _rest82093_)) - (_else8209782112_ (lambda () (_f82088_ _rest82093_)))) - (let ((_K8210082126_ - (lambda (_rest82123_ _hd82124_) - (if (_f82088_ _hd82124_) (_lp82091_ _rest82123_) '#f))) - (_K8209982117_ (lambda () '#t))) - (let ((_try-match8209682120_ + (error '"expected procedure" _f82092_)) + (let _lp82095_ ((_rest82097_ _stx82093_)) + (let* ((_g8209882108_ (gx#syntax-e _rest82097_)) + (_else8210182116_ (lambda () (_f82092_ _rest82097_)))) + (let ((_K8210482130_ + (lambda (_rest82127_ _hd82128_) + (if (_f82092_ _hd82128_) (_lp82095_ _rest82127_) '#f))) + (_K8210382121_ (lambda () '#t))) + (let ((_try-match8210082124_ (lambda () - (if (##null? _g8209482104_) - (_K8209982117_) - (_else8209782112_))))) - (if (##pair? _g8209482104_) - (let ((_tl8210282131_ (##cdr _g8209482104_)) - (_hd8210182129_ (##car _g8209482104_))) - (let ((_hd82134_ _hd8210182129_) - (_rest82136_ _tl8210282131_)) - (_K8210082126_ _rest82136_ _hd82134_))) - (_try-match8209682120_)))))))) + (if (##null? _g8209882108_) + (_K8210382121_) + (_else8210182116_))))) + (if (##pair? _g8209882108_) + (let ((_tl8210682135_ (##cdr _g8209882108_)) + (_hd8210582133_ (##car _g8209882108_))) + (let ((_hd82138_ _hd8210582133_) + (_rest82140_ _tl8210682135_)) + (_K8210482130_ _rest82140_ _hd82138_))) + (_try-match8210082124_)))))))) (define gx#stx-ormap - (lambda (_f82035_ _stx82036_) - (if (procedure? _f82035_) + (lambda (_f82039_ _stx82040_) + (if (procedure? _f82039_) '#!void - (error '"expected procedure" _f82035_)) - (let _lp82038_ ((_rest82040_ _stx82036_)) - (let* ((_g8204182051_ (gx#syntax-e _rest82040_)) - (_else8204482059_ (lambda () (_f82035_ _rest82040_)))) - (let ((_K8204782076_ - (lambda (_rest82070_ _hd82071_) - (let ((_$e82073_ (_f82035_ _hd82071_))) - (if _$e82073_ _$e82073_ (_lp82038_ _rest82070_))))) - (_K8204682064_ (lambda () '#f))) - (let ((_try-match8204382067_ + (error '"expected procedure" _f82039_)) + (let _lp82042_ ((_rest82044_ _stx82040_)) + (let* ((_g8204582055_ (gx#syntax-e _rest82044_)) + (_else8204882063_ (lambda () (_f82039_ _rest82044_)))) + (let ((_K8205182080_ + (lambda (_rest82074_ _hd82075_) + (let ((_$e82077_ (_f82039_ _hd82075_))) + (if _$e82077_ _$e82077_ (_lp82042_ _rest82074_))))) + (_K8205082068_ (lambda () '#f))) + (let ((_try-match8204782071_ (lambda () - (if (##null? _g8204182051_) - (_K8204682064_) - (_else8204482059_))))) - (if (##pair? _g8204182051_) - (let ((_tl8204982081_ (##cdr _g8204182051_)) - (_hd8204882079_ (##car _g8204182051_))) - (let ((_hd82084_ _hd8204882079_) - (_rest82086_ _tl8204982081_)) - (_K8204782076_ _rest82086_ _hd82084_))) - (_try-match8204382067_)))))))) + (if (##null? _g8204582055_) + (_K8205082068_) + (_else8204882063_))))) + (if (##pair? _g8204582055_) + (let ((_tl8205382085_ (##cdr _g8204582055_)) + (_hd8205282083_ (##car _g8204582055_))) + (let ((_hd82088_ _hd8205282083_) + (_rest82090_ _tl8205382085_)) + (_K8205182080_ _rest82090_ _hd82088_))) + (_try-match8204782071_)))))))) (define gx#stx-foldl - (lambda (_f81983_ _iv81984_ _stx81985_) - (if (procedure? _f81983_) + (lambda (_f81987_ _iv81988_ _stx81989_) + (if (procedure? _f81987_) '#!void - (error '"expected procedure" _f81983_)) - (let _lp81987_ ((_r81989_ _iv81984_) (_rest81990_ _stx81985_)) - (let* ((_g8199182001_ (gx#syntax-e _rest81990_)) - (_else8199482009_ - (lambda () (_f81983_ _rest81990_ _r81989_)))) - (let ((_K8199782023_ - (lambda (_rest82020_ _hd82021_) - (_lp81987_ (_f81983_ _hd82021_ _r81989_) _rest82020_))) - (_K8199682014_ (lambda () _r81989_))) - (let ((_try-match8199382017_ + (error '"expected procedure" _f81987_)) + (let _lp81991_ ((_r81993_ _iv81988_) (_rest81994_ _stx81989_)) + (let* ((_g8199582005_ (gx#syntax-e _rest81994_)) + (_else8199882013_ + (lambda () (_f81987_ _rest81994_ _r81993_)))) + (let ((_K8200182027_ + (lambda (_rest82024_ _hd82025_) + (_lp81991_ (_f81987_ _hd82025_ _r81993_) _rest82024_))) + (_K8200082018_ (lambda () _r81993_))) + (let ((_try-match8199782021_ (lambda () - (if (##null? _g8199182001_) - (_K8199682014_) - (_else8199482009_))))) - (if (##pair? _g8199182001_) - (let ((_tl8199982028_ (##cdr _g8199182001_)) - (_hd8199882026_ (##car _g8199182001_))) - (let ((_hd82031_ _hd8199882026_) - (_rest82033_ _tl8199982028_)) - (_K8199782023_ _rest82033_ _hd82031_))) - (_try-match8199382017_)))))))) + (if (##null? _g8199582005_) + (_K8200082018_) + (_else8199882013_))))) + (if (##pair? _g8199582005_) + (let ((_tl8200382032_ (##cdr _g8199582005_)) + (_hd8200282030_ (##car _g8199582005_))) + (let ((_hd82035_ _hd8200282030_) + (_rest82037_ _tl8200382032_)) + (_K8200182027_ _rest82037_ _hd82035_))) + (_try-match8199782021_)))))))) (define gx#stx-foldr - (lambda (_f81932_ _iv81933_ _stx81934_) - (if (procedure? _f81932_) + (lambda (_f81936_ _iv81937_ _stx81938_) + (if (procedure? _f81936_) '#!void - (error '"expected procedure" _f81932_)) - (let _recur81936_ ((_rest81938_ _stx81934_)) - (let* ((_g8193981949_ (gx#syntax-e _rest81938_)) - (_else8194281957_ - (lambda () (_f81932_ _rest81938_ _iv81933_)))) - (let ((_K8194581971_ - (lambda (_rest81968_ _hd81969_) - (_f81932_ _hd81969_ (_recur81936_ _rest81968_)))) - (_K8194481962_ (lambda () _iv81933_))) - (let ((_try-match8194181965_ + (error '"expected procedure" _f81936_)) + (let _recur81940_ ((_rest81942_ _stx81938_)) + (let* ((_g8194381953_ (gx#syntax-e _rest81942_)) + (_else8194681961_ + (lambda () (_f81936_ _rest81942_ _iv81937_)))) + (let ((_K8194981975_ + (lambda (_rest81972_ _hd81973_) + (_f81936_ _hd81973_ (_recur81940_ _rest81972_)))) + (_K8194881966_ (lambda () _iv81937_))) + (let ((_try-match8194581969_ (lambda () - (if (##null? _g8193981949_) - (_K8194481962_) - (_else8194281957_))))) - (if (##pair? _g8193981949_) - (let ((_tl8194781976_ (##cdr _g8193981949_)) - (_hd8194681974_ (##car _g8193981949_))) - (let ((_hd81979_ _hd8194681974_) - (_rest81981_ _tl8194781976_)) - (_K8194581971_ _rest81981_ _hd81979_))) - (_try-match8194181965_)))))))) + (if (##null? _g8194381953_) + (_K8194881966_) + (_else8194681961_))))) + (if (##pair? _g8194381953_) + (let ((_tl8195181980_ (##cdr _g8194381953_)) + (_hd8195081978_ (##car _g8194381953_))) + (let ((_hd81983_ _hd8195081978_) + (_rest81985_ _tl8195181980_)) + (_K8194981975_ _rest81985_ _hd81983_))) + (_try-match8194581969_)))))))) (define gx#stx-reverse - (lambda (_stx81930_) (gx#stx-foldl cons '() _stx81930_))) + (lambda (_stx81934_) (gx#stx-foldl cons '() _stx81934_))) (define gx#stx-last - (lambda (_stx81891_) - (let _lp81893_ ((_rest81895_ _stx81891_)) - (let* ((_g8189681904_ (gx#syntax-e _rest81895_)) - (_else8189881912_ (lambda () _rest81895_)) - (_K8190081918_ - (lambda (_rest81915_ _hd81916_) - (if (gx#stx-null? _rest81915_) - _hd81916_ - (_lp81893_ _rest81915_))))) - (if (##pair? _g8189681904_) - (let ((_hd8190181921_ (##car _g8189681904_)) - (_tl8190281923_ (##cdr _g8189681904_))) - (let* ((_hd81926_ _hd8190181921_) - (_rest81928_ _tl8190281923_)) - (_K8190081918_ _rest81928_ _hd81926_))) - (_else8189881912_)))))) + (lambda (_stx81895_) + (let _lp81897_ ((_rest81899_ _stx81895_)) + (let* ((_g8190081908_ (gx#syntax-e _rest81899_)) + (_else8190281916_ (lambda () _rest81899_)) + (_K8190481922_ + (lambda (_rest81919_ _hd81920_) + (if (gx#stx-null? _rest81919_) + _hd81920_ + (_lp81897_ _rest81919_))))) + (if (##pair? _g8190081908_) + (let ((_hd8190581925_ (##car _g8190081908_)) + (_tl8190681927_ (##cdr _g8190081908_))) + (let* ((_hd81930_ _hd8190581925_) + (_rest81932_ _tl8190681927_)) + (_K8190481922_ _rest81932_ _hd81930_))) + (_else8190281916_)))))) (define gx#stx-last-pair - (lambda (_stx81862_) - (let _lp81864_ ((_hd81866_ _stx81862_)) - (let* ((_g8186781874_ (gx#syntax-e _hd81866_)) - (_E8186981878_ - (lambda () (error '"No clause matching" _g8186781874_))) - (_K8187081883_ - (lambda (_rest81881_) - (if (gx#stx-pair? _rest81881_) - (_lp81864_ _rest81881_) - _hd81866_)))) - (if (##pair? _g8186781874_) - (let* ((_tl8187281886_ (##cdr _g8186781874_)) - (_rest81889_ _tl8187281886_)) - (_K8187081883_ _rest81889_)) - (_E8186981878_)))))) + (lambda (_stx81866_) + (let _lp81868_ ((_hd81870_ _stx81866_)) + (let* ((_g8187181878_ (gx#syntax-e _hd81870_)) + (_E8187381882_ + (lambda () (error '"No clause matching" _g8187181878_))) + (_K8187481887_ + (lambda (_rest81885_) + (if (gx#stx-pair? _rest81885_) + (_lp81868_ _rest81885_) + _hd81870_)))) + (if (##pair? _g8187181878_) + (let* ((_tl8187681890_ (##cdr _g8187181878_)) + (_rest81893_ _tl8187681890_)) + (_K8187481887_ _rest81893_)) + (_E8187381882_)))))) (define gx#stx-list-tail - (lambda (_stx81831_ _k81832_) - (let _lp81834_ ((_rest81836_ _stx81831_) (_k81837_ _k81832_)) - (if (fxpositive? _k81837_) - (let* ((_g8183881845_ (gx#syntax-e _rest81836_)) - (_E8184081849_ - (lambda () (error '"No clause matching" _g8183881845_))) - (_K8184181854_ - (lambda (_rest81852_) - (_lp81834_ _rest81852_ (fx- _k81837_ '1))))) - (if (##pair? _g8183881845_) - (let* ((_tl8184381857_ (##cdr _g8183881845_)) - (_rest81860_ _tl8184381857_)) - (_K8184181854_ _rest81860_)) - (_E8184081849_))) - _rest81836_)))) + (lambda (_stx81835_ _k81836_) + (let _lp81838_ ((_rest81840_ _stx81835_) (_k81841_ _k81836_)) + (if (fxpositive? _k81841_) + (let* ((_g8184281849_ (gx#syntax-e _rest81840_)) + (_E8184481853_ + (lambda () (error '"No clause matching" _g8184281849_))) + (_K8184581858_ + (lambda (_rest81856_) + (_lp81838_ _rest81856_ (fx- _k81841_ '1))))) + (if (##pair? _g8184281849_) + (let* ((_tl8184781861_ (##cdr _g8184281849_)) + (_rest81864_ _tl8184781861_)) + (_K8184581858_ _rest81864_)) + (_E8184481853_))) + _rest81840_)))) (define gx#stx-list-ref - (lambda (_stx81828_ _k81829_) - (gx#stx-car (gx#stx-list-tail _stx81828_ _k81829_)))) + (lambda (_stx81832_ _k81833_) + (gx#stx-car (gx#stx-list-tail _stx81832_ _k81833_)))) (define gx#stx-plist?__% - (lambda (_stx81740_ _key?81741_) - (if (procedure? _key?81741_) + (lambda (_stx81744_ _key?81745_) + (if (procedure? _key?81745_) '#!void - (error '"expected procedure" _key?81741_)) - (let _lp81743_ ((_rest81745_ _stx81740_)) - (let* ((_g8174681756_ (gx#stx-e _rest81745_)) - (_else8174981764_ (lambda () '#f))) - (let ((_K8175281806_ - (lambda (_rest81775_ _hd81776_) - (if (_key?81741_ _hd81776_) - (let* ((_g8177781785_ (gx#stx-e _rest81775_)) - (_else8177981793_ (lambda () '#f)) - (_K8178181798_ - (lambda (_rest81796_) - (_lp81743_ _rest81796_)))) - (if (##pair? _g8177781785_) - (let* ((_tl8178381801_ (##cdr _g8177781785_)) - (_rest81804_ _tl8178381801_)) - (_lp81743_ _rest81804_)) - (_else8177981793_))) + (error '"expected procedure" _key?81745_)) + (let _lp81747_ ((_rest81749_ _stx81744_)) + (let* ((_g8175081760_ (gx#stx-e _rest81749_)) + (_else8175381768_ (lambda () '#f))) + (let ((_K8175681810_ + (lambda (_rest81779_ _hd81780_) + (if (_key?81745_ _hd81780_) + (let* ((_g8178181789_ (gx#stx-e _rest81779_)) + (_else8178381797_ (lambda () '#f)) + (_K8178581802_ + (lambda (_rest81800_) + (_lp81747_ _rest81800_)))) + (if (##pair? _g8178181789_) + (let* ((_tl8178781805_ (##cdr _g8178181789_)) + (_rest81808_ _tl8178781805_)) + (_lp81747_ _rest81808_)) + (_else8178381797_))) '#f))) - (_K8175181769_ (lambda () '#t))) - (let ((_try-match8174881772_ + (_K8175581773_ (lambda () '#t))) + (let ((_try-match8175281776_ (lambda () - (if (##null? _g8174681756_) - (_K8175181769_) - (_else8174981764_))))) - (if (##pair? _g8174681756_) - (let ((_tl8175481811_ (##cdr _g8174681756_)) - (_hd8175381809_ (##car _g8174681756_))) - (let ((_hd81814_ _hd8175381809_) - (_rest81816_ _tl8175481811_)) - (_K8175281806_ _rest81816_ _hd81814_))) - (_try-match8174881772_)))))))) + (if (##null? _g8175081760_) + (_K8175581773_) + (_else8175381768_))))) + (if (##pair? _g8175081760_) + (let ((_tl8175881815_ (##cdr _g8175081760_)) + (_hd8175781813_ (##car _g8175081760_))) + (let ((_hd81818_ _hd8175781813_) + (_rest81820_ _tl8175881815_)) + (_K8175681810_ _rest81820_ _hd81818_))) + (_try-match8175281776_)))))))) (define gx#stx-plist?__0 - (lambda (_stx81821_) - (let ((_key?81823_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx81821_ _key?81823_)))) + (lambda (_stx81825_) + (let ((_key?81827_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx81825_ _key?81827_)))) (define gx#stx-plist? - (lambda _g82929_ - (let ((_g82928_ (##length _g82929_))) - (cond ((##fx= _g82928_ 1) - (apply (lambda (_stx81821_) (gx#stx-plist?__0 _stx81821_)) - _g82929_)) - ((##fx= _g82928_ 2) - (apply (lambda (_stx81825_ _key?81826_) - (gx#stx-plist?__% _stx81825_ _key?81826_)) - _g82929_)) + (lambda _g82933_ + (let ((_g82932_ (##length _g82933_))) + (cond ((##fx= _g82932_ 1) + (apply (lambda (_stx81825_) (gx#stx-plist?__0 _stx81825_)) + _g82933_)) + ((##fx= _g82932_ 2) + (apply (lambda (_stx81829_ _key?81830_) + (gx#stx-plist?__% _stx81829_ _key?81830_)) + _g82933_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g82929_)))))) + _g82933_)))))) (define gx#stx-getq__% - (lambda (_key81658_ _stx81659_ _key=?81660_) - (if (procedure? _key=?81660_) + (lambda (_key81662_ _stx81663_ _key=?81664_) + (if (procedure? _key=?81664_) '#!void - (error '"expected procedure" _key=?81660_)) - (let _lp81662_ ((_rest81664_ _stx81659_)) - (let* ((_g8166581673_ (gx#syntax-e _rest81664_)) - (_else8166781681_ (lambda () '#f)) - (_K8166981715_ - (lambda (_rest81684_ _hd81685_) - (let* ((_g8168681693_ (gx#syntax-e _rest81684_)) - (_E8168881697_ + (error '"expected procedure" _key=?81664_)) + (let _lp81666_ ((_rest81668_ _stx81663_)) + (let* ((_g8166981677_ (gx#syntax-e _rest81668_)) + (_else8167181685_ (lambda () '#f)) + (_K8167381719_ + (lambda (_rest81688_ _hd81689_) + (let* ((_g8169081697_ (gx#syntax-e _rest81688_)) + (_E8169281701_ (lambda () - (error '"No clause matching" _g8168681693_))) - (_K8168981703_ - (lambda (_rest81700_ _val81701_) - (if (_key=?81660_ _hd81685_ _key81658_) - _val81701_ - (_lp81662_ _rest81700_))))) - (if (##pair? _g8168681693_) - (let ((_hd8169081706_ (##car _g8168681693_)) - (_tl8169181708_ (##cdr _g8168681693_))) - (let* ((_val81711_ _hd8169081706_) - (_rest81713_ _tl8169181708_)) - (_K8168981703_ _rest81713_ _val81711_))) - (_E8168881697_)))))) - (if (##pair? _g8166581673_) - (let ((_hd8167081718_ (##car _g8166581673_)) - (_tl8167181720_ (##cdr _g8166581673_))) - (let* ((_hd81723_ _hd8167081718_) - (_rest81725_ _tl8167181720_)) - (_K8166981715_ _rest81725_ _hd81723_))) - (_else8166781681_)))))) + (error '"No clause matching" _g8169081697_))) + (_K8169381707_ + (lambda (_rest81704_ _val81705_) + (if (_key=?81664_ _hd81689_ _key81662_) + _val81705_ + (_lp81666_ _rest81704_))))) + (if (##pair? _g8169081697_) + (let ((_hd8169481710_ (##car _g8169081697_)) + (_tl8169581712_ (##cdr _g8169081697_))) + (let* ((_val81715_ _hd8169481710_) + (_rest81717_ _tl8169581712_)) + (_K8169381707_ _rest81717_ _val81715_))) + (_E8169281701_)))))) + (if (##pair? _g8166981677_) + (let ((_hd8167481722_ (##car _g8166981677_)) + (_tl8167581724_ (##cdr _g8166981677_))) + (let* ((_hd81727_ _hd8167481722_) + (_rest81729_ _tl8167581724_)) + (_K8167381719_ _rest81729_ _hd81727_))) + (_else8167181685_)))))) (define gx#stx-getq__0 - (lambda (_key81730_ _stx81731_) - (let ((_key=?81733_ gx#stx-eq?)) - (gx#stx-getq__% _key81730_ _stx81731_ _key=?81733_)))) + (lambda (_key81734_ _stx81735_) + (let ((_key=?81737_ gx#stx-eq?)) + (gx#stx-getq__% _key81734_ _stx81735_ _key=?81737_)))) (define gx#stx-getq - (lambda _g82931_ - (let ((_g82930_ (##length _g82931_))) - (cond ((##fx= _g82930_ 2) - (apply (lambda (_key81730_ _stx81731_) - (gx#stx-getq__0 _key81730_ _stx81731_)) - _g82931_)) - ((##fx= _g82930_ 3) - (apply (lambda (_key81735_ _stx81736_ _key=?81737_) - (gx#stx-getq__% _key81735_ _stx81736_ _key=?81737_)) - _g82931_)) + (lambda _g82935_ + (let ((_g82934_ (##length _g82935_))) + (cond ((##fx= _g82934_ 2) + (apply (lambda (_key81734_ _stx81735_) + (gx#stx-getq__0 _key81734_ _stx81735_)) + _g82935_)) + ((##fx= _g82934_ 3) + (apply (lambda (_key81739_ _stx81740_ _key=?81741_) + (gx#stx-getq__% _key81739_ _stx81740_ _key=?81741_)) + _g82935_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g82931_)))))))) + _g82935_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index 188d0f1ba..d60fffff5 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]#_g82934_| + (define |gx[1]#_g82938_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g82936_| + (define |gx[1]#_g82940_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g82938_| + (define |gx[1]#_g82942_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g82940_| + (define |gx[1]#_g82944_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g82946_| + (define |gx[1]#_g82950_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g82949_| + (define |gx[1]#_g82953_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g82952_| + (define |gx[1]#_g82956_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g82958_| + (define |gx[1]#_g82962_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82961_| + (define |gx[1]#_g82965_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82964_| + (define |gx[1]#_g82968_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82970_| + (define |gx[1]#_g82974_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g82973_| + (define |gx[1]#_g82977_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g82976_| + (define |gx[1]#_g82980_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g82982_| + (define |gx[1]#_g82986_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82985_| + (define |gx[1]#_g82989_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82988_| + (define |gx[1]#_g82992_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82992_| + (define |gx[1]#_g82996_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g82994_| + (define |gx[1]#_g82998_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g82996_| + (define |gx[1]#_g83000_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g83002_| + (define |gx[1]#_g83006_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g83005_| + (define |gx[1]#_g83009_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g83008_| + (define |gx[1]#_g83012_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g83014_| + (define |gx[1]#_g83018_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83017_| + (define |gx[1]#_g83021_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83020_| + (define |gx[1]#_g83024_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83026_| + (define |gx[1]#_g83030_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g83029_| + (define |gx[1]#_g83033_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g83032_| + (define |gx[1]#_g83036_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g83038_| + (define |gx[1]#_g83042_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83041_| + (define |gx[1]#_g83045_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83044_| + (define |gx[1]#_g83048_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83048_| + (define |gx[1]#_g83052_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g83050_| + (define |gx[1]#_g83054_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g83052_| + (define |gx[1]#_g83056_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g83059_| + (define |gx[1]#_g83063_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g83062_| + (define |gx[1]#_g83066_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g83065_| + (define |gx[1]#_g83069_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g83068_| + (define |gx[1]#_g83072_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g83075_| + (define |gx[1]#_g83079_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83078_| + (define |gx[1]#_g83082_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83081_| + (define |gx[1]#_g83085_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83084_| + (define |gx[1]#_g83088_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83091_| + (define |gx[1]#_g83095_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g83094_| + (define |gx[1]#_g83098_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g83097_| + (define |gx[1]#_g83101_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g83100_| + (define |gx[1]#_g83104_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g83107_| + (define |gx[1]#_g83111_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83110_| + (define |gx[1]#_g83114_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83113_| + (define |gx[1]#_g83117_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83116_| + (define |gx[1]#_g83120_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj82915 + (let ((__obj82919 (let () (declare (not safe)) (##structure @@ -371,7 +371,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82915 + __obj82919 'gx#identifier-wrap::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -379,7 +379,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82915 + __obj82919 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -387,26 +387,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82915 + __obj82919 '(marks) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82932 - (let ((__tmp82933 |gx[1]#_g82934_|)) + (let ((__tmp82936 + (let ((__tmp82937 |gx[1]#_g82938_|)) (declare (not safe)) - (cons __tmp82933 '())))) + (cons __tmp82937 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj82915 - __tmp82932 + __obj82919 + __tmp82936 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82915 + __obj82919 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -414,7 +414,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82915 + __obj82919 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -422,7 +422,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82915 + __obj82919 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -430,150 +430,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82915 + __obj82919 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82935 |gx[1]#_g82936_|)) + (let ((__tmp82939 |gx[1]#_g82940_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82915 - __tmp82935 + __obj82919 + __tmp82939 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82937 |gx[1]#_g82938_|)) + (let ((__tmp82941 |gx[1]#_g82942_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82915 - __tmp82937 + __obj82919 + __tmp82941 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82939 |gx[1]#_g82940_|)) + (let ((__tmp82943 |gx[1]#_g82944_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82915 - __tmp82939 + __obj82919 + __tmp82943 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82941 - (let ((__tmp82950 - (let ((__tmp82951 |gx[1]#_g82952_|)) + (let ((__tmp82945 + (let ((__tmp82954 + (let ((__tmp82955 |gx[1]#_g82956_|)) (declare (not safe)) - (cons 'marks __tmp82951))) - (__tmp82942 - (let ((__tmp82947 - (let ((__tmp82948 |gx[1]#_g82949_|)) + (cons 'marks __tmp82955))) + (__tmp82946 + (let ((__tmp82951 + (let ((__tmp82952 |gx[1]#_g82953_|)) (declare (not safe)) - (cons 'e __tmp82948))) - (__tmp82943 - (let ((__tmp82944 - (let ((__tmp82945 |gx[1]#_g82946_|)) + (cons 'e __tmp82952))) + (__tmp82947 + (let ((__tmp82948 + (let ((__tmp82949 |gx[1]#_g82950_|)) (declare (not safe)) - (cons 'source __tmp82945)))) + (cons 'source __tmp82949)))) (declare (not safe)) - (cons __tmp82944 '())))) + (cons __tmp82948 '())))) (declare (not safe)) - (cons __tmp82947 __tmp82943)))) + (cons __tmp82951 __tmp82947)))) (declare (not safe)) - (cons __tmp82950 __tmp82942)))) + (cons __tmp82954 __tmp82946)))) (declare (not safe)) (##unchecked-structure-set! - __obj82915 - __tmp82941 + __obj82919 + __tmp82945 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82953 - (let ((__tmp82962 - (let ((__tmp82963 |gx[1]#_g82964_|)) + (let ((__tmp82957 + (let ((__tmp82966 + (let ((__tmp82967 |gx[1]#_g82968_|)) (declare (not safe)) - (cons 'marks __tmp82963))) - (__tmp82954 - (let ((__tmp82959 - (let ((__tmp82960 |gx[1]#_g82961_|)) + (cons 'marks __tmp82967))) + (__tmp82958 + (let ((__tmp82963 + (let ((__tmp82964 |gx[1]#_g82965_|)) (declare (not safe)) - (cons 'e __tmp82960))) - (__tmp82955 - (let ((__tmp82956 - (let ((__tmp82957 |gx[1]#_g82958_|)) + (cons 'e __tmp82964))) + (__tmp82959 + (let ((__tmp82960 + (let ((__tmp82961 |gx[1]#_g82962_|)) (declare (not safe)) - (cons 'source __tmp82957)))) + (cons 'source __tmp82961)))) (declare (not safe)) - (cons __tmp82956 '())))) + (cons __tmp82960 '())))) (declare (not safe)) - (cons __tmp82959 __tmp82955)))) + (cons __tmp82963 __tmp82959)))) (declare (not safe)) - (cons __tmp82962 __tmp82954)))) + (cons __tmp82966 __tmp82958)))) (declare (not safe)) (##unchecked-structure-set! - __obj82915 - __tmp82953 + __obj82919 + __tmp82957 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82965 - (let ((__tmp82974 - (let ((__tmp82975 |gx[1]#_g82976_|)) + (let ((__tmp82969 + (let ((__tmp82978 + (let ((__tmp82979 |gx[1]#_g82980_|)) (declare (not safe)) - (cons 'marks __tmp82975))) - (__tmp82966 - (let ((__tmp82971 - (let ((__tmp82972 |gx[1]#_g82973_|)) + (cons 'marks __tmp82979))) + (__tmp82970 + (let ((__tmp82975 + (let ((__tmp82976 |gx[1]#_g82977_|)) (declare (not safe)) - (cons 'e __tmp82972))) - (__tmp82967 - (let ((__tmp82968 - (let ((__tmp82969 |gx[1]#_g82970_|)) + (cons 'e __tmp82976))) + (__tmp82971 + (let ((__tmp82972 + (let ((__tmp82973 |gx[1]#_g82974_|)) (declare (not safe)) - (cons 'source __tmp82969)))) + (cons 'source __tmp82973)))) (declare (not safe)) - (cons __tmp82968 '())))) + (cons __tmp82972 '())))) (declare (not safe)) - (cons __tmp82971 __tmp82967)))) + (cons __tmp82975 __tmp82971)))) (declare (not safe)) - (cons __tmp82974 __tmp82966)))) + (cons __tmp82978 __tmp82970)))) (declare (not safe)) (##unchecked-structure-set! - __obj82915 - __tmp82965 + __obj82919 + __tmp82969 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82977 - (let ((__tmp82986 - (let ((__tmp82987 |gx[1]#_g82988_|)) + (let ((__tmp82981 + (let ((__tmp82990 + (let ((__tmp82991 |gx[1]#_g82992_|)) (declare (not safe)) - (cons 'marks __tmp82987))) - (__tmp82978 - (let ((__tmp82983 - (let ((__tmp82984 |gx[1]#_g82985_|)) + (cons 'marks __tmp82991))) + (__tmp82982 + (let ((__tmp82987 + (let ((__tmp82988 |gx[1]#_g82989_|)) (declare (not safe)) - (cons 'e __tmp82984))) - (__tmp82979 - (let ((__tmp82980 - (let ((__tmp82981 |gx[1]#_g82982_|)) + (cons 'e __tmp82988))) + (__tmp82983 + (let ((__tmp82984 + (let ((__tmp82985 |gx[1]#_g82986_|)) (declare (not safe)) - (cons 'source __tmp82981)))) + (cons 'source __tmp82985)))) (declare (not safe)) - (cons __tmp82980 '())))) + (cons __tmp82984 '())))) (declare (not safe)) - (cons __tmp82983 __tmp82979)))) + (cons __tmp82987 __tmp82983)))) (declare (not safe)) - (cons __tmp82986 __tmp82978)))) + (cons __tmp82990 __tmp82982)))) (declare (not safe)) (##unchecked-structure-set! - __obj82915 - __tmp82977 + __obj82919 + __tmp82981 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj82915)) + __obj82919)) (define |gx[:0:]#syntax-wrap| - (let ((__obj82916 + (let ((__obj82920 (let () (declare (not safe)) (##structure @@ -597,7 +597,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82916 + __obj82920 'gx#syntax-wrap::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -605,7 +605,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82916 + __obj82920 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -613,26 +613,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82916 + __obj82920 '(mark) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82989 - (let ((__tmp82990 |gx[1]#_g82934_|)) + (let ((__tmp82993 + (let ((__tmp82994 |gx[1]#_g82938_|)) (declare (not safe)) - (cons __tmp82990 '())))) + (cons __tmp82994 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj82916 - __tmp82989 + __obj82920 + __tmp82993 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82916 + __obj82920 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -640,7 +640,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82916 + __obj82920 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -648,7 +648,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82916 + __obj82920 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -656,150 +656,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82916 + __obj82920 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82991 |gx[1]#_g82992_|)) + (let ((__tmp82995 |gx[1]#_g82996_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82916 - __tmp82991 + __obj82920 + __tmp82995 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82993 |gx[1]#_g82994_|)) + (let ((__tmp82997 |gx[1]#_g82998_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82916 - __tmp82993 + __obj82920 + __tmp82997 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82995 |gx[1]#_g82996_|)) + (let ((__tmp82999 |gx[1]#_g83000_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82916 - __tmp82995 + __obj82920 + __tmp82999 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82997 - (let ((__tmp83006 - (let ((__tmp83007 |gx[1]#_g83008_|)) + (let ((__tmp83001 + (let ((__tmp83010 + (let ((__tmp83011 |gx[1]#_g83012_|)) (declare (not safe)) - (cons 'mark __tmp83007))) - (__tmp82998 - (let ((__tmp83003 - (let ((__tmp83004 |gx[1]#_g83005_|)) + (cons 'mark __tmp83011))) + (__tmp83002 + (let ((__tmp83007 + (let ((__tmp83008 |gx[1]#_g83009_|)) (declare (not safe)) - (cons 'e __tmp83004))) - (__tmp82999 - (let ((__tmp83000 - (let ((__tmp83001 |gx[1]#_g83002_|)) + (cons 'e __tmp83008))) + (__tmp83003 + (let ((__tmp83004 + (let ((__tmp83005 |gx[1]#_g83006_|)) (declare (not safe)) - (cons 'source __tmp83001)))) + (cons 'source __tmp83005)))) (declare (not safe)) - (cons __tmp83000 '())))) + (cons __tmp83004 '())))) (declare (not safe)) - (cons __tmp83003 __tmp82999)))) + (cons __tmp83007 __tmp83003)))) (declare (not safe)) - (cons __tmp83006 __tmp82998)))) + (cons __tmp83010 __tmp83002)))) (declare (not safe)) (##unchecked-structure-set! - __obj82916 - __tmp82997 + __obj82920 + __tmp83001 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83009 - (let ((__tmp83018 - (let ((__tmp83019 |gx[1]#_g83020_|)) + (let ((__tmp83013 + (let ((__tmp83022 + (let ((__tmp83023 |gx[1]#_g83024_|)) (declare (not safe)) - (cons 'mark __tmp83019))) - (__tmp83010 - (let ((__tmp83015 - (let ((__tmp83016 |gx[1]#_g83017_|)) + (cons 'mark __tmp83023))) + (__tmp83014 + (let ((__tmp83019 + (let ((__tmp83020 |gx[1]#_g83021_|)) (declare (not safe)) - (cons 'e __tmp83016))) - (__tmp83011 - (let ((__tmp83012 - (let ((__tmp83013 |gx[1]#_g83014_|)) + (cons 'e __tmp83020))) + (__tmp83015 + (let ((__tmp83016 + (let ((__tmp83017 |gx[1]#_g83018_|)) (declare (not safe)) - (cons 'source __tmp83013)))) + (cons 'source __tmp83017)))) (declare (not safe)) - (cons __tmp83012 '())))) + (cons __tmp83016 '())))) (declare (not safe)) - (cons __tmp83015 __tmp83011)))) + (cons __tmp83019 __tmp83015)))) (declare (not safe)) - (cons __tmp83018 __tmp83010)))) + (cons __tmp83022 __tmp83014)))) (declare (not safe)) (##unchecked-structure-set! - __obj82916 - __tmp83009 + __obj82920 + __tmp83013 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83021 - (let ((__tmp83030 - (let ((__tmp83031 |gx[1]#_g83032_|)) + (let ((__tmp83025 + (let ((__tmp83034 + (let ((__tmp83035 |gx[1]#_g83036_|)) (declare (not safe)) - (cons 'mark __tmp83031))) - (__tmp83022 - (let ((__tmp83027 - (let ((__tmp83028 |gx[1]#_g83029_|)) + (cons 'mark __tmp83035))) + (__tmp83026 + (let ((__tmp83031 + (let ((__tmp83032 |gx[1]#_g83033_|)) (declare (not safe)) - (cons 'e __tmp83028))) - (__tmp83023 - (let ((__tmp83024 - (let ((__tmp83025 |gx[1]#_g83026_|)) + (cons 'e __tmp83032))) + (__tmp83027 + (let ((__tmp83028 + (let ((__tmp83029 |gx[1]#_g83030_|)) (declare (not safe)) - (cons 'source __tmp83025)))) + (cons 'source __tmp83029)))) (declare (not safe)) - (cons __tmp83024 '())))) + (cons __tmp83028 '())))) (declare (not safe)) - (cons __tmp83027 __tmp83023)))) + (cons __tmp83031 __tmp83027)))) (declare (not safe)) - (cons __tmp83030 __tmp83022)))) + (cons __tmp83034 __tmp83026)))) (declare (not safe)) (##unchecked-structure-set! - __obj82916 - __tmp83021 + __obj82920 + __tmp83025 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83033 - (let ((__tmp83042 - (let ((__tmp83043 |gx[1]#_g83044_|)) + (let ((__tmp83037 + (let ((__tmp83046 + (let ((__tmp83047 |gx[1]#_g83048_|)) (declare (not safe)) - (cons 'mark __tmp83043))) - (__tmp83034 - (let ((__tmp83039 - (let ((__tmp83040 |gx[1]#_g83041_|)) + (cons 'mark __tmp83047))) + (__tmp83038 + (let ((__tmp83043 + (let ((__tmp83044 |gx[1]#_g83045_|)) (declare (not safe)) - (cons 'e __tmp83040))) - (__tmp83035 - (let ((__tmp83036 - (let ((__tmp83037 |gx[1]#_g83038_|)) + (cons 'e __tmp83044))) + (__tmp83039 + (let ((__tmp83040 + (let ((__tmp83041 |gx[1]#_g83042_|)) (declare (not safe)) - (cons 'source __tmp83037)))) + (cons 'source __tmp83041)))) (declare (not safe)) - (cons __tmp83036 '())))) + (cons __tmp83040 '())))) (declare (not safe)) - (cons __tmp83039 __tmp83035)))) + (cons __tmp83043 __tmp83039)))) (declare (not safe)) - (cons __tmp83042 __tmp83034)))) + (cons __tmp83046 __tmp83038)))) (declare (not safe)) (##unchecked-structure-set! - __obj82916 - __tmp83033 + __obj82920 + __tmp83037 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj82916)) + __obj82920)) (define |gx[:0:]#syntax-quote| - (let ((__obj82917 + (let ((__obj82921 (let () (declare (not safe)) (##structure @@ -823,7 +823,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82917 + __obj82921 'gx#syntax-quote::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -831,7 +831,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82917 + __obj82921 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -839,26 +839,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82917 + __obj82921 '(context marks) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83045 - (let ((__tmp83046 |gx[1]#_g82934_|)) + (let ((__tmp83049 + (let ((__tmp83050 |gx[1]#_g82938_|)) (declare (not safe)) - (cons __tmp83046 '())))) + (cons __tmp83050 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj82917 - __tmp83045 + __obj82921 + __tmp83049 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82917 + __obj82921 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -866,7 +866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82917 + __obj82921 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -874,7 +874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82917 + __obj82921 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -882,173 +882,173 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82917 + __obj82921 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83047 |gx[1]#_g83048_|)) + (let ((__tmp83051 |gx[1]#_g83052_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82917 - __tmp83047 + __obj82921 + __tmp83051 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83049 |gx[1]#_g83050_|)) + (let ((__tmp83053 |gx[1]#_g83054_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82917 - __tmp83049 + __obj82921 + __tmp83053 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83051 |gx[1]#_g83052_|)) + (let ((__tmp83055 |gx[1]#_g83056_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82917 - __tmp83051 + __obj82921 + __tmp83055 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83053 - (let ((__tmp83066 - (let ((__tmp83067 |gx[1]#_g83068_|)) + (let ((__tmp83057 + (let ((__tmp83070 + (let ((__tmp83071 |gx[1]#_g83072_|)) (declare (not safe)) - (cons 'context __tmp83067))) - (__tmp83054 - (let ((__tmp83063 - (let ((__tmp83064 |gx[1]#_g83065_|)) + (cons 'context __tmp83071))) + (__tmp83058 + (let ((__tmp83067 + (let ((__tmp83068 |gx[1]#_g83069_|)) (declare (not safe)) - (cons 'marks __tmp83064))) - (__tmp83055 - (let ((__tmp83060 - (let ((__tmp83061 |gx[1]#_g83062_|)) + (cons 'marks __tmp83068))) + (__tmp83059 + (let ((__tmp83064 + (let ((__tmp83065 |gx[1]#_g83066_|)) (declare (not safe)) - (cons 'e __tmp83061))) - (__tmp83056 - (let ((__tmp83057 - (let ((__tmp83058 |gx[1]#_g83059_|)) + (cons 'e __tmp83065))) + (__tmp83060 + (let ((__tmp83061 + (let ((__tmp83062 |gx[1]#_g83063_|)) (declare (not safe)) - (cons 'source __tmp83058)))) + (cons 'source __tmp83062)))) (declare (not safe)) - (cons __tmp83057 '())))) + (cons __tmp83061 '())))) (declare (not safe)) - (cons __tmp83060 __tmp83056)))) + (cons __tmp83064 __tmp83060)))) (declare (not safe)) - (cons __tmp83063 __tmp83055)))) + (cons __tmp83067 __tmp83059)))) (declare (not safe)) - (cons __tmp83066 __tmp83054)))) + (cons __tmp83070 __tmp83058)))) (declare (not safe)) (##unchecked-structure-set! - __obj82917 - __tmp83053 + __obj82921 + __tmp83057 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83069 - (let ((__tmp83082 - (let ((__tmp83083 |gx[1]#_g83084_|)) + (let ((__tmp83073 + (let ((__tmp83086 + (let ((__tmp83087 |gx[1]#_g83088_|)) (declare (not safe)) - (cons 'context __tmp83083))) - (__tmp83070 - (let ((__tmp83079 - (let ((__tmp83080 |gx[1]#_g83081_|)) + (cons 'context __tmp83087))) + (__tmp83074 + (let ((__tmp83083 + (let ((__tmp83084 |gx[1]#_g83085_|)) (declare (not safe)) - (cons 'marks __tmp83080))) - (__tmp83071 - (let ((__tmp83076 - (let ((__tmp83077 |gx[1]#_g83078_|)) + (cons 'marks __tmp83084))) + (__tmp83075 + (let ((__tmp83080 + (let ((__tmp83081 |gx[1]#_g83082_|)) (declare (not safe)) - (cons 'e __tmp83077))) - (__tmp83072 - (let ((__tmp83073 - (let ((__tmp83074 |gx[1]#_g83075_|)) + (cons 'e __tmp83081))) + (__tmp83076 + (let ((__tmp83077 + (let ((__tmp83078 |gx[1]#_g83079_|)) (declare (not safe)) - (cons 'source __tmp83074)))) + (cons 'source __tmp83078)))) (declare (not safe)) - (cons __tmp83073 '())))) + (cons __tmp83077 '())))) (declare (not safe)) - (cons __tmp83076 __tmp83072)))) + (cons __tmp83080 __tmp83076)))) (declare (not safe)) - (cons __tmp83079 __tmp83071)))) + (cons __tmp83083 __tmp83075)))) (declare (not safe)) - (cons __tmp83082 __tmp83070)))) + (cons __tmp83086 __tmp83074)))) (declare (not safe)) (##unchecked-structure-set! - __obj82917 - __tmp83069 + __obj82921 + __tmp83073 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83085 - (let ((__tmp83098 - (let ((__tmp83099 |gx[1]#_g83100_|)) + (let ((__tmp83089 + (let ((__tmp83102 + (let ((__tmp83103 |gx[1]#_g83104_|)) (declare (not safe)) - (cons 'context __tmp83099))) - (__tmp83086 - (let ((__tmp83095 - (let ((__tmp83096 |gx[1]#_g83097_|)) + (cons 'context __tmp83103))) + (__tmp83090 + (let ((__tmp83099 + (let ((__tmp83100 |gx[1]#_g83101_|)) (declare (not safe)) - (cons 'marks __tmp83096))) - (__tmp83087 - (let ((__tmp83092 - (let ((__tmp83093 |gx[1]#_g83094_|)) + (cons 'marks __tmp83100))) + (__tmp83091 + (let ((__tmp83096 + (let ((__tmp83097 |gx[1]#_g83098_|)) (declare (not safe)) - (cons 'e __tmp83093))) - (__tmp83088 - (let ((__tmp83089 - (let ((__tmp83090 |gx[1]#_g83091_|)) + (cons 'e __tmp83097))) + (__tmp83092 + (let ((__tmp83093 + (let ((__tmp83094 |gx[1]#_g83095_|)) (declare (not safe)) - (cons 'source __tmp83090)))) + (cons 'source __tmp83094)))) (declare (not safe)) - (cons __tmp83089 '())))) + (cons __tmp83093 '())))) (declare (not safe)) - (cons __tmp83092 __tmp83088)))) + (cons __tmp83096 __tmp83092)))) (declare (not safe)) - (cons __tmp83095 __tmp83087)))) + (cons __tmp83099 __tmp83091)))) (declare (not safe)) - (cons __tmp83098 __tmp83086)))) + (cons __tmp83102 __tmp83090)))) (declare (not safe)) (##unchecked-structure-set! - __obj82917 - __tmp83085 + __obj82921 + __tmp83089 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83101 - (let ((__tmp83114 - (let ((__tmp83115 |gx[1]#_g83116_|)) + (let ((__tmp83105 + (let ((__tmp83118 + (let ((__tmp83119 |gx[1]#_g83120_|)) (declare (not safe)) - (cons 'context __tmp83115))) - (__tmp83102 - (let ((__tmp83111 - (let ((__tmp83112 |gx[1]#_g83113_|)) + (cons 'context __tmp83119))) + (__tmp83106 + (let ((__tmp83115 + (let ((__tmp83116 |gx[1]#_g83117_|)) (declare (not safe)) - (cons 'marks __tmp83112))) - (__tmp83103 - (let ((__tmp83108 - (let ((__tmp83109 |gx[1]#_g83110_|)) + (cons 'marks __tmp83116))) + (__tmp83107 + (let ((__tmp83112 + (let ((__tmp83113 |gx[1]#_g83114_|)) (declare (not safe)) - (cons 'e __tmp83109))) - (__tmp83104 - (let ((__tmp83105 - (let ((__tmp83106 |gx[1]#_g83107_|)) + (cons 'e __tmp83113))) + (__tmp83108 + (let ((__tmp83109 + (let ((__tmp83110 |gx[1]#_g83111_|)) (declare (not safe)) - (cons 'source __tmp83106)))) + (cons 'source __tmp83110)))) (declare (not safe)) - (cons __tmp83105 '())))) + (cons __tmp83109 '())))) (declare (not safe)) - (cons __tmp83108 __tmp83104)))) + (cons __tmp83112 __tmp83108)))) (declare (not safe)) - (cons __tmp83111 __tmp83103)))) + (cons __tmp83115 __tmp83107)))) (declare (not safe)) - (cons __tmp83114 __tmp83102)))) + (cons __tmp83118 __tmp83106)))) (declare (not safe)) (##unchecked-structure-set! - __obj82917 - __tmp83101 + __obj82921 + __tmp83105 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj82917)))) + __obj82921)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index 532312772..4c26ec931 100644 --- a/src/bootstrap/gerbil/expander/top~0.scm +++ b/src/bootstrap/gerbil/expander/top~0.scm @@ -1,384 +1,384 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1710781149) + (define gerbil/expander/top::timestamp 1710833424) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_stx91003_) - (letrec ((_expand-special91005_ - (lambda (_hd91007_ _K91008_ _rest91009_ _r91010_) - (_K91008_ - _rest91009_ - (cons (gx#core-expand-top _hd91007_) _r91010_))))) - (gx#core-expand-block__0 _stx91003_ _expand-special91005_)))) + (lambda (_stx91007_) + (letrec ((_expand-special91009_ + (lambda (_hd91011_ _K91012_ _rest91013_ _r91014_) + (_K91012_ + _rest91013_ + (cons (gx#core-expand-top _hd91011_) _r91014_))))) + (gx#core-expand-block__0 _stx91007_ _expand-special91009_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx90756_) - (letrec ((_expand-special90758_ - (lambda (_hd90878_ _K90879_ _rest90880_ _r90881_) - (let* ((_K90885_ - (lambda (_e90883_) - (_K90879_ _rest90880_ (cons _e90883_ _r90881_)))) - (_e9088690915_ _hd90878_) - (_E9091090919_ + (lambda (_stx90760_) + (letrec ((_expand-special90762_ + (lambda (_hd90882_ _K90883_ _rest90884_ _r90885_) + (let* ((_K90889_ + (lambda (_e90887_) + (_K90883_ _rest90884_ (cons _e90887_ _r90885_)))) + (_e9089090919_ _hd90882_) + (_E9091490923_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9088690915_))) - (_E9090690931_ + _e9089090919_))) + (_E9091090935_ (lambda () - (if (gx#stx-pair? _e9088690915_) - (let ((_e9091190923_ - (gx#syntax-e _e9088690915_))) - (let ((_hd9091290926_ - (##car _e9091190923_)) - (_tl9091390928_ - (##cdr _e9091190923_))) - (if (and (gx#identifier? _hd9091290926_) + (if (gx#stx-pair? _e9089090919_) + (let ((_e9091590927_ + (gx#syntax-e _e9089090919_))) + (let ((_hd9091690930_ + (##car _e9091590927_)) + (_tl9091790932_ + (##cdr _e9091590927_))) + (if (and (gx#identifier? _hd9091690930_) (gx#core-identifier=? - _hd9091290926_ + _hd9091690930_ '%#define-runtime)) (if '#t - (_K90885_ + (_K90889_ (gx#core-expand-define-runtime% - _hd90878_)) - (_E9091090919_)) - (_E9091090919_)))) - (_E9091090919_)))) - (_E9090290943_ + _hd90882_)) + (_E9091490923_)) + (_E9091490923_)))) + (_E9091490923_)))) + (_E9090690947_ (lambda () - (if (gx#stx-pair? _e9088690915_) - (let ((_e9090790935_ - (gx#syntax-e _e9088690915_))) - (let ((_hd9090890938_ - (##car _e9090790935_)) - (_tl9090990940_ - (##cdr _e9090790935_))) - (if (and (gx#identifier? _hd9090890938_) + (if (gx#stx-pair? _e9089090919_) + (let ((_e9091190939_ + (gx#syntax-e _e9089090919_))) + (let ((_hd9091290942_ + (##car _e9091190939_)) + (_tl9091390944_ + (##cdr _e9091190939_))) + (if (and (gx#identifier? _hd9091290942_) (gx#core-identifier=? - _hd9090890938_ + _hd9091290942_ '%#define-alias)) (if '#t - (_K90885_ + (_K90889_ (gx#core-expand-define-alias% - _hd90878_)) - (_E9090690931_)) - (_E9090690931_)))) - (_E9090690931_)))) - (_E9089290955_ + _hd90882_)) + (_E9091090935_)) + (_E9091090935_)))) + (_E9091090935_)))) + (_E9089690959_ (lambda () - (if (gx#stx-pair? _e9088690915_) - (let ((_e9090390947_ - (gx#syntax-e _e9088690915_))) - (let ((_hd9090490950_ - (##car _e9090390947_)) - (_tl9090590952_ - (##cdr _e9090390947_))) - (if (and (gx#identifier? _hd9090490950_) + (if (gx#stx-pair? _e9089090919_) + (let ((_e9090790951_ + (gx#syntax-e _e9089090919_))) + (let ((_hd9090890954_ + (##car _e9090790951_)) + (_tl9090990956_ + (##cdr _e9090790951_))) + (if (and (gx#identifier? _hd9090890954_) (gx#core-identifier=? - _hd9090490950_ + _hd9090890954_ '%#define-syntax)) (if '#t - (_K90885_ + (_K90889_ (gx#core-expand-define-syntax% - _hd90878_)) - (_E9090290943_)) - (_E9090290943_)))) - (_E9090290943_)))) - (_E9088890987_ + _hd90882_)) + (_E9090690947_)) + (_E9090690947_)))) + (_E9090690947_)))) + (_E9089290991_ (lambda () - (if (gx#stx-pair? _e9088690915_) - (let ((_e9089390959_ - (gx#syntax-e _e9088690915_))) - (let ((_hd9089490962_ - (##car _e9089390959_)) - (_tl9089590964_ - (##cdr _e9089390959_))) - (if (and (gx#identifier? _hd9089490962_) + (if (gx#stx-pair? _e9089090919_) + (let ((_e9089790963_ + (gx#syntax-e _e9089090919_))) + (let ((_hd9089890966_ + (##car _e9089790963_)) + (_tl9089990968_ + (##cdr _e9089790963_))) + (if (and (gx#identifier? _hd9089890966_) (gx#core-identifier=? - _hd9089490962_ + _hd9089890966_ '%#define-values)) - (if (gx#stx-pair? _tl9089590964_) - (let ((_e9089690967_ + (if (gx#stx-pair? _tl9089990968_) + (let ((_e9090090971_ (gx#syntax-e - _tl9089590964_))) - (let ((_hd9089790970_ - (##car _e9089690967_)) - (_tl9089890972_ - (##cdr _e9089690967_))) - (let ((_hd-bind90975_ - _hd9089790970_)) + _tl9089990968_))) + (let ((_hd9090190974_ + (##car _e9090090971_)) + (_tl9090290976_ + (##cdr _e9090090971_))) + (let ((_hd-bind90979_ + _hd9090190974_)) (if (gx#stx-pair? - _tl9089890972_) - (let ((_e9089990977_ + _tl9090290976_) + (let ((_e9090390981_ (gx#syntax-e - _tl9089890972_))) - (let ((_hd9090090980_ + _tl9090290976_))) + (let ((_hd9090490984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9089990977_)) - (_tl9090190982_ (##cdr _e9089990977_))) - (let ((_expr90985_ _hd9090090980_)) - (if (gx#stx-null? _tl9090190982_) - (if (gx#core-bind-values? _hd-bind90975_) + (##car _e9090390981_)) + (_tl9090590986_ (##cdr _e9090390981_))) + (let ((_expr90989_ _hd9090490984_)) + (if (gx#stx-null? _tl9090590986_) + (if (gx#core-bind-values? _hd-bind90979_) (begin - (gx#core-bind-values!__0 _hd-bind90975_) - (_K90885_ _hd90878_)) - (_E9089290955_)) - (_E9089290955_))))) - (_E9089290955_))))) + (gx#core-bind-values!__0 _hd-bind90979_) + (_K90889_ _hd90882_)) + (_E9089690959_)) + (_E9089690959_))))) + (_E9089690959_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9089290955_)) - (_E9089290955_)))) - (_E9089290955_)))) - (_E9088790999_ + (_E9089690959_)) + (_E9089690959_)))) + (_E9089690959_)))) + (_E9089191003_ (lambda () - (if (gx#stx-pair? _e9088690915_) - (let ((_e9088990991_ - (gx#syntax-e _e9088690915_))) - (let ((_hd9089090994_ - (##car _e9088990991_)) - (_tl9089190996_ - (##cdr _e9088990991_))) - (if (and (gx#identifier? _hd9089090994_) + (if (gx#stx-pair? _e9089090919_) + (let ((_e9089390995_ + (gx#syntax-e _e9089090919_))) + (let ((_hd9089490998_ + (##car _e9089390995_)) + (_tl9089591000_ + (##cdr _e9089390995_))) + (if (and (gx#identifier? _hd9089490998_) (gx#core-identifier=? - _hd9089090994_ + _hd9089490998_ '%#begin-syntax)) (if '#t - (_K90885_ + (_K90889_ (gx#core-expand-begin-syntax% - _hd90878_)) - (_E9088890987_)) - (_E9088890987_)))) - (_E9088890987_))))) - (_E9088790999_)))) - (_eval-body90759_ - (lambda (_rbody90767_) - (let _lp90769_ ((_rest90771_ _rbody90767_) - (_body90772_ '()) - (_ebody90773_ '())) - (let* ((_rest9077490782_ _rest90771_) - (_else9077690790_ + _hd90882_)) + (_E9089290991_)) + (_E9089290991_)))) + (_E9089290991_))))) + (_E9089191003_)))) + (_eval-body90763_ + (lambda (_rbody90771_) + (let _lp90773_ ((_rest90775_ _rbody90771_) + (_body90776_ '()) + (_ebody90777_ '())) + (let* ((_rest9077890786_ _rest90775_) + (_else9078090794_ (lambda () - (values _body90772_ + (values _body90776_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody90773_) - (gx#stx-source _stx90756_)))))) - (_K9077890866_ - (lambda (_rest90793_ _hd90794_) - (let* ((_e9079590812_ _hd90794_) - (_E9080790816_ + (gx#core-cons '%#begin _ebody90777_) + (gx#stx-source _stx90760_)))))) + (_K9078290870_ + (lambda (_rest90797_ _hd90798_) + (let* ((_e9079990816_ _hd90798_) + (_E9081190820_ (lambda () - (_lp90769_ - _rest90793_ - (cons _hd90794_ _body90772_) - (cons _hd90794_ _ebody90773_)))) - (_E9079790828_ + (_lp90773_ + _rest90797_ + (cons _hd90798_ _body90776_) + (cons _hd90798_ _ebody90777_)))) + (_E9080190832_ (lambda () - (if (gx#stx-pair? _e9079590812_) - (let ((_e9080890820_ + (if (gx#stx-pair? _e9079990816_) + (let ((_e9081290824_ (gx#syntax-e - _e9079590812_))) - (let ((_hd9080990823_ - (##car _e9080890820_)) - (_tl9081090825_ - (##cdr _e9080890820_))) + _e9079990816_))) + (let ((_hd9081390827_ + (##car _e9081290824_)) + (_tl9081490829_ + (##cdr _e9081290824_))) (if (and (gx#identifier? - _hd9080990823_) + _hd9081390827_) (gx#core-identifier=? - _hd9080990823_ + _hd9081390827_ '%#begin-syntax)) (if '#t - (_lp90769_ - _rest90793_ - (cons _hd90794_ + (_lp90773_ + _rest90797_ + (cons _hd90798_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body90772_) - _ebody90773_) - (_E9080790816_)) - (_E9080790816_)))) + _body90776_) + _ebody90777_) + (_E9081190820_)) + (_E9081190820_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9080790816_)))) - (_E9079690862_ + (_E9081190820_)))) + (_E9080090866_ (lambda () - (if (gx#stx-pair? _e9079590812_) - (let ((_e9079890832_ + (if (gx#stx-pair? _e9079990816_) + (let ((_e9080290836_ (gx#syntax-e - _e9079590812_))) - (let ((_hd9079990835_ - (##car _e9079890832_)) - (_tl9080090837_ - (##cdr _e9079890832_))) + _e9079990816_))) + (let ((_hd9080390839_ + (##car _e9080290836_)) + (_tl9080490841_ + (##cdr _e9080290836_))) (if (and (gx#identifier? - _hd9079990835_) + _hd9080390839_) (gx#core-identifier=? - _hd9079990835_ + _hd9080390839_ '%#define-values)) (if (gx#stx-pair? - _tl9080090837_) - (let ((_e9080190840_ + _tl9080490841_) + (let ((_e9080590844_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9080090837_))) - (let ((_hd9080290843_ (##car _e9080190840_)) - (_tl9080390845_ (##cdr _e9080190840_))) - (let ((_hd-bind90848_ _hd9080290843_)) - (if (gx#stx-pair? _tl9080390845_) - (let ((_e9080490850_ (gx#syntax-e _tl9080390845_))) - (let ((_hd9080590853_ (##car _e9080490850_)) - (_tl9080690855_ (##cdr _e9080490850_))) - (let ((_expr90858_ _hd9080590853_)) - (if (gx#stx-null? _tl9080690855_) + (gx#syntax-e _tl9080490841_))) + (let ((_hd9080690847_ (##car _e9080590844_)) + (_tl9080790849_ (##cdr _e9080590844_))) + (let ((_hd-bind90852_ _hd9080690847_)) + (if (gx#stx-pair? _tl9080790849_) + (let ((_e9080890854_ (gx#syntax-e _tl9080790849_))) + (let ((_hd9080990857_ (##car _e9080890854_)) + (_tl9081090859_ (##cdr _e9080890854_))) + (let ((_expr90862_ _hd9080990857_)) + (if (gx#stx-null? _tl9081090859_) (if '#t - (let ((_ehd90860_ + (let ((_ehd90864_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind90848_) + _hd-bind90852_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr90858_) + _expr90862_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd90794_)))) - (_lp90769_ - _rest90793_ - (cons _ehd90860_ _body90772_) - (cons _ehd90860_ _ebody90773_))) - (_E9079790828_)) - (_E9079790828_))))) - (_E9079790828_))))) - (_E9079790828_)) - (_E9079790828_)))) + (gx#stx-source _hd90798_)))) + (_lp90773_ + _rest90797_ + (cons _ehd90864_ _body90776_) + (cons _ehd90864_ _ebody90777_))) + (_E9080190832_)) + (_E9080190832_))))) + (_E9080190832_))))) + (_E9080190832_)) + (_E9080190832_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9079790828_))))) - (_E9079690862_))))) - (if (##pair? _rest9077490782_) - (let ((_hd9077990869_ (##car _rest9077490782_)) - (_tl9078090871_ (##cdr _rest9077490782_))) - (let* ((_hd90874_ _hd9077990869_) - (_rest90876_ _tl9078090871_)) - (_K9077890866_ _rest90876_ _hd90874_))) - (_else9077690790_))))))) + (_E9080190832_))))) + (_E9080090866_))))) + (if (##pair? _rest9077890786_) + (let ((_hd9078390873_ (##car _rest9077890786_)) + (_tl9078490875_ (##cdr _rest9077890786_))) + (let* ((_hd90878_ _hd9078390873_) + (_rest90880_ _tl9078490875_)) + (_K9078290870_ _rest90880_ _hd90878_))) + (_else9078090794_))))))) (call-with-parameters (lambda () - (let* ((_rbody90762_ + (let* ((_rbody90766_ (gx#core-expand-block__1 - _stx90756_ - _expand-special90758_ + _stx90760_ + _expand-special90762_ '#f)) - (_g91026_ (_eval-body90759_ _rbody90762_))) + (_g91030_ (_eval-body90763_ _rbody90766_))) (begin - (let ((_g91027_ - (if (##values? _g91026_) - (##vector-length _g91026_) + (let ((_g91031_ + (if (##values? _g91030_) + (##vector-length _g91030_) 1))) - (if (not (##fx= _g91027_ 2)) - (error "Context expects 2 values" _g91027_))) - (let ((_expanded-body90764_ (##vector-ref _g91026_ 0)) - (_value90765_ (##vector-ref _g91026_ 1))) + (if (not (##fx= _g91031_ 2)) + (error "Context expects 2 values" _g91031_))) + (let ((_expanded-body90768_ (##vector-ref _g91030_ 0)) + (_value90769_ (##vector-ref _g91030_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body90764_) + (gx#core-cons '%#begin-syntax _expanded-body90768_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value90765_ '()))) - (gx#stx-source _stx90756_)))))) + (cons _value90769_ '()))) + (gx#stx-source _stx90760_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx90726_) - (let* ((_e9072790734_ _stx90726_) - (_E9072990738_ + (lambda (_stx90730_) + (let* ((_e9073190738_ _stx90730_) + (_E9073390742_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9072790734_))) - (_E9072890752_ + _e9073190738_))) + (_E9073290756_ (lambda () - (if (gx#stx-pair? _e9072790734_) - (let ((_e9073090742_ (gx#syntax-e _e9072790734_))) - (let ((_hd9073190745_ (##car _e9073090742_)) - (_tl9073290747_ (##cdr _e9073090742_))) - (let ((_body90750_ _tl9073290747_)) - (if (gx#stx-list? _body90750_) + (if (gx#stx-pair? _e9073190738_) + (let ((_e9073490746_ (gx#syntax-e _e9073190738_))) + (let ((_hd9073590749_ (##car _e9073490746_)) + (_tl9073690751_ (##cdr _e9073490746_))) + (let ((_body90754_ _tl9073690751_)) + (if (gx#stx-list? _body90754_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body90750_) - (gx#stx-source _stx90726_)) - (_E9072990738_))))) - (_E9072990738_))))) - (_E9072890752_)))) + (gx#core-cons '%#begin-foreign _body90754_) + (gx#stx-source _stx90730_)) + (_E9073390742_))))) + (_E9073390742_))))) + (_E9073290756_)))) (define gx#core-expand-begin-module% - (lambda (_stx90724_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx90724_))) + (lambda (_stx90728_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx90728_))) (define gx#core-expand-begin-annotation% - (lambda (_stx90670_) - (let* ((_e9067190684_ _stx90670_) - (_E9067390688_ + (lambda (_stx90674_) + (let* ((_e9067590688_ _stx90674_) + (_E9067790692_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9067190684_))) - (_E9067290720_ + _e9067590688_))) + (_E9067690724_ (lambda () - (if (gx#stx-pair? _e9067190684_) - (let ((_e9067490692_ (gx#syntax-e _e9067190684_))) - (let ((_hd9067590695_ (##car _e9067490692_)) - (_tl9067690697_ (##cdr _e9067490692_))) - (if (gx#stx-pair? _tl9067690697_) - (let ((_e9067790700_ - (gx#syntax-e _tl9067690697_))) - (let ((_hd9067890703_ (##car _e9067790700_)) - (_tl9067990705_ (##cdr _e9067790700_))) - (let ((_ann90708_ _hd9067890703_)) - (if (gx#stx-pair? _tl9067990705_) - (let ((_e9068090710_ - (gx#syntax-e _tl9067990705_))) - (let ((_hd9068190713_ - (##car _e9068090710_)) - (_tl9068290715_ - (##cdr _e9068090710_))) - (let ((_expr90718_ _hd9068190713_)) - (if (gx#stx-null? _tl9068290715_) + (if (gx#stx-pair? _e9067590688_) + (let ((_e9067890696_ (gx#syntax-e _e9067590688_))) + (let ((_hd9067990699_ (##car _e9067890696_)) + (_tl9068090701_ (##cdr _e9067890696_))) + (if (gx#stx-pair? _tl9068090701_) + (let ((_e9068190704_ + (gx#syntax-e _tl9068090701_))) + (let ((_hd9068290707_ (##car _e9068190704_)) + (_tl9068390709_ (##cdr _e9068190704_))) + (let ((_ann90712_ _hd9068290707_)) + (if (gx#stx-pair? _tl9068390709_) + (let ((_e9068490714_ + (gx#syntax-e _tl9068390709_))) + (let ((_hd9068590717_ + (##car _e9068490714_)) + (_tl9068690719_ + (##cdr _e9068490714_))) + (let ((_expr90722_ _hd9068590717_)) + (if (gx#stx-null? _tl9068690719_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann90708_ + (cons _ann90712_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr90718_) '()))) - (gx#stx-source _stx90670_)) - (_E9067390688_)) + (cons (gx#core-expand-expression _expr90722_) '()))) + (gx#stx-source _stx90674_)) + (_E9067790692_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9067390688_))))) - (_E9067390688_))))) - (_E9067390688_)))) - (_E9067390688_))))) - (_E9067290720_)))) + (_E9067790692_))))) + (_E9067790692_))))) + (_E9067790692_)))) + (_E9067790692_))))) + (_E9067690724_)))) (define gx#core-expand-local-block - (lambda (_stx90394_ _body90395_) - (letrec ((_expand-special90397_ - (lambda (_hd90665_ _K90666_ _rest90667_ _r90668_) - (_K90666_ + (lambda (_stx90398_ _body90399_) + (letrec ((_expand-special90401_ + (lambda (_hd90669_ _K90670_ _rest90671_ _r90672_) + (_K90670_ '() - (cons (_expand-internal90398_ _hd90665_ _rest90667_) - _r90668_)))) - (_expand-internal90398_ - (lambda (_hd90661_ _rest90662_) + (cons (_expand-internal90402_ _hd90669_ _rest90671_) + _r90672_)))) + (_expand-internal90402_ + (lambda (_hd90665_ _rest90666_) (call-with-parameters (lambda () - (_wrap-internal90400_ + (_wrap-internal90404_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd90661_ _rest90662_)) - (gx#stx-source _stx90394_)) - _expand-internal-special90399_ + (cons '%#begin (cons _hd90665_ _rest90666_)) + (gx#stx-source _stx90398_)) + _expand-internal-special90403_ '#f))) gx#current-expander-context - (let ((__obj91020 + (let ((__obj91024 (##structure gx#local-context::t '#f @@ -386,717 +386,717 @@ '#f '#f '#f))) - (gx#local-context:::init! __obj91020) - __obj91020)))) - (_expand-internal-special90399_ - (lambda (_hd90556_ _K90557_ _rest90558_ _r90559_) - (let* ((_e9056090585_ _hd90556_) - (_E9058090589_ + (gx#local-context:::init! __obj91024) + __obj91024)))) + (_expand-internal-special90403_ + (lambda (_hd90560_ _K90561_ _rest90562_ _r90563_) + (let* ((_e9056490589_ _hd90560_) + (_E9058490593_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9056090585_))) - (_E9057690601_ + _e9056490589_))) + (_E9058090605_ (lambda () - (if (gx#stx-pair? _e9056090585_) - (let ((_e9058190593_ - (gx#syntax-e _e9056090585_))) - (let ((_hd9058290596_ - (##car _e9058190593_)) - (_tl9058390598_ - (##cdr _e9058190593_))) - (if (and (gx#identifier? _hd9058290596_) + (if (gx#stx-pair? _e9056490589_) + (let ((_e9058590597_ + (gx#syntax-e _e9056490589_))) + (let ((_hd9058690600_ + (##car _e9058590597_)) + (_tl9058790602_ + (##cdr _e9058590597_))) + (if (and (gx#identifier? _hd9058690600_) (gx#core-identifier=? - _hd9058290596_ + _hd9058690600_ '%#declare)) (if '#t - (_K90557_ - _rest90558_ + (_K90561_ + _rest90562_ (cons (gx#core-expand-declare% - _hd90556_) - _r90559_)) - (_E9058090589_)) - (_E9058090589_)))) - (_E9058090589_)))) - (_E9057290613_ + _hd90560_) + _r90563_)) + (_E9058490593_)) + (_E9058490593_)))) + (_E9058490593_)))) + (_E9057690617_ (lambda () - (if (gx#stx-pair? _e9056090585_) - (let ((_e9057790605_ - (gx#syntax-e _e9056090585_))) - (let ((_hd9057890608_ - (##car _e9057790605_)) - (_tl9057990610_ - (##cdr _e9057790605_))) - (if (and (gx#identifier? _hd9057890608_) + (if (gx#stx-pair? _e9056490589_) + (let ((_e9058190609_ + (gx#syntax-e _e9056490589_))) + (let ((_hd9058290612_ + (##car _e9058190609_)) + (_tl9058390614_ + (##cdr _e9058190609_))) + (if (and (gx#identifier? _hd9058290612_) (gx#core-identifier=? - _hd9057890608_ + _hd9058290612_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd90556_) - (_K90557_ - _rest90558_ - _r90559_)) - (_E9057690601_)) - (_E9057690601_)))) - (_E9057690601_)))) - (_E9056290625_ + _hd90560_) + (_K90561_ + _rest90562_ + _r90563_)) + (_E9058090605_)) + (_E9058090605_)))) + (_E9058090605_)))) + (_E9056690629_ (lambda () - (if (gx#stx-pair? _e9056090585_) - (let ((_e9057390617_ - (gx#syntax-e _e9056090585_))) - (let ((_hd9057490620_ - (##car _e9057390617_)) - (_tl9057590622_ - (##cdr _e9057390617_))) - (if (and (gx#identifier? _hd9057490620_) + (if (gx#stx-pair? _e9056490589_) + (let ((_e9057790621_ + (gx#syntax-e _e9056490589_))) + (let ((_hd9057890624_ + (##car _e9057790621_)) + (_tl9057990626_ + (##cdr _e9057790621_))) + (if (and (gx#identifier? _hd9057890624_) (gx#core-identifier=? - _hd9057490620_ + _hd9057890624_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd90556_) - (_K90557_ - _rest90558_ - _r90559_)) - (_E9057290613_)) - (_E9057290613_)))) - (_E9057290613_)))) - (_E9056190657_ + _hd90560_) + (_K90561_ + _rest90562_ + _r90563_)) + (_E9057690617_)) + (_E9057690617_)))) + (_E9057690617_)))) + (_E9056590661_ (lambda () - (if (gx#stx-pair? _e9056090585_) - (let ((_e9056390629_ - (gx#syntax-e _e9056090585_))) - (let ((_hd9056490632_ - (##car _e9056390629_)) - (_tl9056590634_ - (##cdr _e9056390629_))) - (if (and (gx#identifier? _hd9056490632_) + (if (gx#stx-pair? _e9056490589_) + (let ((_e9056790633_ + (gx#syntax-e _e9056490589_))) + (let ((_hd9056890636_ + (##car _e9056790633_)) + (_tl9056990638_ + (##cdr _e9056790633_))) + (if (and (gx#identifier? _hd9056890636_) (gx#core-identifier=? - _hd9056490632_ + _hd9056890636_ '%#define-values)) - (if (gx#stx-pair? _tl9056590634_) - (let ((_e9056690637_ + (if (gx#stx-pair? _tl9056990638_) + (let ((_e9057090641_ (gx#syntax-e - _tl9056590634_))) - (let ((_hd9056790640_ - (##car _e9056690637_)) - (_tl9056890642_ - (##cdr _e9056690637_))) - (let ((_hd-bind90645_ - _hd9056790640_)) + _tl9056990638_))) + (let ((_hd9057190644_ + (##car _e9057090641_)) + (_tl9057290646_ + (##cdr _e9057090641_))) + (let ((_hd-bind90649_ + _hd9057190644_)) (if (gx#stx-pair? - _tl9056890642_) - (let ((_e9056990647_ + _tl9057290646_) + (let ((_e9057390651_ (gx#syntax-e - _tl9056890642_))) - (let ((_hd9057090650_ + _tl9057290646_))) + (let ((_hd9057490654_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9056990647_)) - (_tl9057190652_ (##cdr _e9056990647_))) - (let ((_expr90655_ _hd9057090650_)) - (if (gx#stx-null? _tl9057190652_) - (if (gx#core-bind-values? _hd-bind90645_) + (##car _e9057390651_)) + (_tl9057590656_ (##cdr _e9057390651_))) + (let ((_expr90659_ _hd9057490654_)) + (if (gx#stx-null? _tl9057590656_) + (if (gx#core-bind-values? _hd-bind90649_) (begin - (gx#core-bind-values!__0 _hd-bind90645_) - (_K90557_ - _rest90558_ - (cons _hd90556_ _r90559_))) - (_E9056290625_)) - (_E9056290625_))))) - (_E9056290625_))))) + (gx#core-bind-values!__0 _hd-bind90649_) + (_K90561_ + _rest90562_ + (cons _hd90560_ _r90563_))) + (_E9056690629_)) + (_E9056690629_))))) + (_E9056690629_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9056290625_)) - (_E9056290625_)))) - (_E9056290625_))))) - (_E9056190657_)))) - (_wrap-internal90400_ - (lambda (_rbody90402_) - (let _lp90404_ ((_rest90406_ _rbody90402_) - (_decls90407_ '()) - (_bind90408_ '()) - (_body90409_ '())) - (let* ((_e9041090417_ _rest90406_) - (_E9041290466_ + (_E9056690629_)) + (_E9056690629_)))) + (_E9056690629_))))) + (_E9056590661_)))) + (_wrap-internal90404_ + (lambda (_rbody90406_) + (let _lp90408_ ((_rest90410_ _rbody90406_) + (_decls90411_ '()) + (_bind90412_ '()) + (_body90413_ '())) + (let* ((_e9041490421_ _rest90410_) + (_E9041690470_ (lambda () - (let* ((_body90461_ - (let* ((_body9042090430_ _body90409_) - (_else9042390438_ + (let* ((_body90465_ + (let* ((_body9042490434_ _body90413_) + (_else9042790442_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body90409_) + _body90413_) (gx#stx-source - _stx90394_))))) - (let ((_K9042890458_ + _stx90398_))))) + (let ((_K9043290462_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _stx90394_))) - (_K9042590444_ - (lambda (_expr90442_) - _expr90442_))) - (let ((_try-match9042290454_ + _stx90398_))) + (_K9042990448_ + (lambda (_expr90446_) + _expr90446_))) + (let ((_try-match9042690458_ (lambda () - (if (##pair? _body9042090430_) - (let ((_tl9042790449_ - (##cdr _body9042090430_)) - (_hd9042690447_ - (##car _body9042090430_))) - (if (##null? _tl9042790449_) - (let ((_expr90452_ + (if (##pair? _body9042490434_) + (let ((_tl9043190453_ + (##cdr _body9042490434_)) + (_hd9043090451_ + (##car _body9042490434_))) + (if (##null? _tl9043190453_) + (let ((_expr90456_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9042690447_)) - (_K9042590444_ _expr90452_)) - (_else9042390438_))) - (_else9042390438_))))) + _hd9043090451_)) + (_K9042990448_ _expr90456_)) + (_else9042790442_))) + (_else9042790442_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body9042090430_) - (_K9042890458_) - (_try-match9042290454_)))))) - (_body90463_ - (if (null? _bind90408_) - _body90461_ + (if (##null? _body9042490434_) + (_K9043290462_) + (_try-match9042690458_)))))) + (_body90467_ + (if (null? _bind90412_) + _body90465_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind90408_ - (cons _body90461_ + (cons _bind90412_ + (cons _body90465_ '()))) - (gx#stx-source _stx90394_))))) - (if (null? _decls90407_) - _body90463_ + (gx#stx-source _stx90398_))))) + (if (null? _decls90411_) + _body90467_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls90407_ - (cons _body90463_ '()))) - (gx#stx-source _stx90394_)))))) - (_E9041190552_ + (cons _decls90411_ + (cons _body90467_ '()))) + (gx#stx-source _stx90398_)))))) + (_E9041590556_ (lambda () - (if (gx#stx-pair? _e9041090417_) - (let ((_e9041390470_ - (gx#syntax-e _e9041090417_))) - (let ((_hd9041490473_ - (##car _e9041390470_)) - (_tl9041590475_ - (##cdr _e9041390470_))) - (let* ((_hd90478_ _hd9041490473_) - (_rest90480_ _tl9041590475_)) + (if (gx#stx-pair? _e9041490421_) + (let ((_e9041790474_ + (gx#syntax-e _e9041490421_))) + (let ((_hd9041890477_ + (##car _e9041790474_)) + (_tl9041990479_ + (##cdr _e9041790474_))) + (let* ((_hd90482_ _hd9041890477_) + (_rest90484_ _tl9041990479_)) (if '#t - (let* ((_e9048190498_ _hd90478_) - (_E9049390502_ + (let* ((_e9048590502_ _hd90482_) + (_E9049790506_ (lambda () - (if (null? _bind90408_) - (_lp90404_ - _rest90480_ - _decls90407_ - _bind90408_ - (cons _hd90478_ + (if (null? _bind90412_) + (_lp90408_ + _rest90484_ + _decls90411_ + _bind90412_ + (cons _hd90482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body90409_)) - (_lp90404_ - _rest90480_ - _decls90407_ - (cons (cons '#f (cons _hd90478_ '())) _bind90408_) - _body90409_)))) + _body90413_)) + (_lp90408_ + _rest90484_ + _decls90411_ + (cons (cons '#f (cons _hd90482_ '())) _bind90412_) + _body90413_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048390516_ + (_E9048790520_ (lambda () (if (gx#stx-pair? - _e9048190498_) - (let ((_e9049490506_ + _e9048590502_) + (let ((_e9049890510_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e9048190498_))) - (let ((_hd9049590509_ (##car _e9049490506_)) - (_tl9049690511_ (##cdr _e9049490506_))) - (if (and (gx#identifier? _hd9049590509_) + (gx#syntax-e _e9048590502_))) + (let ((_hd9049990513_ (##car _e9049890510_)) + (_tl9050090515_ (##cdr _e9049890510_))) + (if (and (gx#identifier? _hd9049990513_) (gx#core-identifier=? - _hd9049590509_ + _hd9049990513_ '%#declare)) - (let ((_xdecls90514_ _tl9049690511_)) + (let ((_xdecls90518_ _tl9050090515_)) (if '#t - (_lp90404_ - _rest90480_ + (_lp90408_ + _rest90484_ (gx#stx-foldr cons - _decls90407_ - _xdecls90514_) - _bind90408_ - _body90409_) - (_E9049390502_))) - (_E9049390502_)))) - (_E9049390502_)))) + _decls90411_ + _xdecls90518_) + _bind90412_ + _body90413_) + (_E9049790506_))) + (_E9049790506_)))) + (_E9049790506_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048290548_ + (_E9048690552_ (lambda () (if (gx#stx-pair? - _e9048190498_) - (let ((_e9048490520_ + _e9048590502_) + (let ((_e9048890524_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e9048190498_))) - (let ((_hd9048590523_ (##car _e9048490520_)) - (_tl9048690525_ (##cdr _e9048490520_))) - (if (and (gx#identifier? _hd9048590523_) + (gx#syntax-e _e9048590502_))) + (let ((_hd9048990527_ (##car _e9048890524_)) + (_tl9049090529_ (##cdr _e9048890524_))) + (if (and (gx#identifier? _hd9048990527_) (gx#core-identifier=? - _hd9048590523_ + _hd9048990527_ '%#define-values)) - (if (gx#stx-pair? _tl9048690525_) - (let ((_e9048790528_ - (gx#syntax-e _tl9048690525_))) - (let ((_hd9048890531_ (##car _e9048790528_)) - (_tl9048990533_ (##cdr _e9048790528_))) - (let ((_hd-bind90536_ _hd9048890531_)) - (if (gx#stx-pair? _tl9048990533_) - (let ((_e9049090538_ - (gx#syntax-e _tl9048990533_))) - (let ((_hd9049190541_ - (##car _e9049090538_)) - (_tl9049290543_ - (##cdr _e9049090538_))) - (let ((_expr90546_ - _hd9049190541_)) + (if (gx#stx-pair? _tl9049090529_) + (let ((_e9049190532_ + (gx#syntax-e _tl9049090529_))) + (let ((_hd9049290535_ (##car _e9049190532_)) + (_tl9049390537_ (##cdr _e9049190532_))) + (let ((_hd-bind90540_ _hd9049290535_)) + (if (gx#stx-pair? _tl9049390537_) + (let ((_e9049490542_ + (gx#syntax-e _tl9049390537_))) + (let ((_hd9049590545_ + (##car _e9049490542_)) + (_tl9049690547_ + (##cdr _e9049490542_))) + (let ((_expr90550_ + _hd9049590545_)) (if (gx#stx-null? - _tl9049290543_) + _tl9049690547_) (if '#t - (_lp90404_ - _rest90480_ - _decls90407_ + (_lp90408_ + _rest90484_ + _decls90411_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind90536_) - (cons (gx#core-expand-expression _expr90546_) + _hd-bind90540_) + (cons (gx#core-expand-expression _expr90550_) '())) - _bind90408_) - _body90409_) - (_E9048390516_)) + _bind90412_) + _body90413_) + (_E9048790520_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048390516_))))) - (_E9048390516_))))) - (_E9048390516_)) - (_E9048390516_)))) - (_E9048390516_))))) + (_E9048790520_))))) + (_E9048790520_))))) + (_E9048790520_)) + (_E9048790520_)))) + (_E9048790520_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048290548_)) - (_E9041290466_))))) - (_E9041290466_))))) - (_E9041190552_)))))) + (_E9048690552_)) + (_E9041690470_))))) + (_E9041690470_))))) + (_E9041590556_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body90395_) - (gx#stx-source _stx90394_)) - _expand-special90397_)))) + (cons '%#begin _body90399_) + (gx#stx-source _stx90398_)) + _expand-special90401_)))) (define gx#core-expand-declare% - (lambda (_stx90332_) - (let* ((_e9033390340_ _stx90332_) - (_E9033590344_ + (lambda (_stx90336_) + (let* ((_e9033790344_ _stx90336_) + (_E9033990348_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9033390340_))) - (_E9033490390_ + _e9033790344_))) + (_E9033890394_ (lambda () - (if (gx#stx-pair? _e9033390340_) - (let ((_e9033690348_ (gx#syntax-e _e9033390340_))) - (let ((_hd9033790351_ (##car _e9033690348_)) - (_tl9033890353_ (##cdr _e9033690348_))) - (let ((_body90356_ _tl9033890353_)) - (if (gx#stx-list? _body90356_) + (if (gx#stx-pair? _e9033790344_) + (let ((_e9034090352_ (gx#syntax-e _e9033790344_))) + (let ((_hd9034190355_ (##car _e9034090352_)) + (_tl9034290357_ (##cdr _e9034090352_))) + (let ((_body90360_ _tl9034290357_)) + (if (gx#stx-list? _body90360_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl90358_) - (let* ((_e9035990366_ _decl90358_) - (_E9036190370_ + (lambda (_decl90362_) + (let* ((_e9036390370_ _decl90362_) + (_E9036590374_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9035990366_))) - (_E9036090386_ + _e9036390370_))) + (_E9036490390_ (lambda () - (if (gx#stx-pair? _e9035990366_) - (let ((_e9036290374_ + (if (gx#stx-pair? _e9036390370_) + (let ((_e9036690378_ (gx#syntax-e - _e9035990366_))) - (let ((_hd9036390377_ - (##car _e9036290374_)) - (_tl9036490379_ - (##cdr _e9036290374_))) - (let* ((_head90382_ - _hd9036390377_) - (_args90384_ - _tl9036490379_)) + _e9036390370_))) + (let ((_hd9036790381_ + (##car _e9036690378_)) + (_tl9036890383_ + (##cdr _e9036690378_))) + (let* ((_head90386_ + _hd9036790381_) + (_args90388_ + _tl9036890383_)) (if (gx#stx-list? - _args90384_) + _args90388_) (gx#stx-map1 gx#core-quote-syntax - _decl90358_) - (_E9036190370_))))) - (_E9036190370_))))) - (_E9036090386_))) - _body90356_)) - (gx#stx-source _stx90332_)) - (_E9033590344_))))) - (_E9033590344_))))) - (_E9033490390_)))) + _decl90362_) + (_E9036590374_))))) + (_E9036590374_))))) + (_E9036490390_))) + _body90360_)) + (gx#stx-source _stx90336_)) + (_E9033990348_))))) + (_E9033990348_))))) + (_E9033890394_)))) (define gx#core-expand-extern% - (lambda (_stx90236_) - (let* ((_e9023790244_ _stx90236_) - (_E9023990248_ + (lambda (_stx90240_) + (let* ((_e9024190248_ _stx90240_) + (_E9024390252_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9023790244_))) - (_E9023890328_ + _e9024190248_))) + (_E9024290332_ (lambda () - (if (gx#stx-pair? _e9023790244_) - (let ((_e9024090252_ (gx#syntax-e _e9023790244_))) - (let ((_hd9024190255_ (##car _e9024090252_)) - (_tl9024290257_ (##cdr _e9024090252_))) - (let ((_body90260_ _tl9024290257_)) + (if (gx#stx-pair? _e9024190248_) + (let ((_e9024490256_ (gx#syntax-e _e9024190248_))) + (let ((_hd9024590259_ (##car _e9024490256_)) + (_tl9024690261_ (##cdr _e9024490256_))) + (let ((_body90264_ _tl9024690261_)) (if '#t - (let _lp90262_ ((_rest90264_ _body90260_) - (_r90265_ '())) - (let* ((_e9026690280_ _rest90264_) - (_E9027890284_ + (let _lp90266_ ((_rest90268_ _body90264_) + (_r90269_ '())) + (let* ((_e9027090284_ _rest90268_) + (_E9028290288_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _stx90236_))) - (_E9026890288_ + _stx90240_))) + (_E9027290292_ (lambda () - (if (gx#stx-null? _e9026690280_) + (if (gx#stx-null? _e9027090284_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r90265_)) + (reverse _r90269_)) (gx#stx-source - _stx90236_)) - (_E9027890284_)) - (_E9027890284_)))) - (_E9026790324_ + _stx90240_)) + (_E9028290288_)) + (_E9028290288_)))) + (_E9027190328_ (lambda () - (if (gx#stx-pair? _e9026690280_) - (let ((_e9026990292_ + (if (gx#stx-pair? _e9027090284_) + (let ((_e9027390296_ (gx#syntax-e - _e9026690280_))) - (let ((_hd9027090295_ - (##car _e9026990292_)) - (_tl9027190297_ - (##cdr _e9026990292_))) + _e9027090284_))) + (let ((_hd9027490299_ + (##car _e9027390296_)) + (_tl9027590301_ + (##cdr _e9027390296_))) (if (gx#stx-pair? - _hd9027090295_) - (let ((_e9027290300_ + _hd9027490299_) + (let ((_e9027690304_ (gx#syntax-e - _hd9027090295_))) - (let ((_hd9027390303_ + _hd9027490299_))) + (let ((_hd9027790307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9027290300_)) - (_tl9027490305_ (##cdr _e9027290300_))) - (let ((_id90308_ _hd9027390303_)) - (if (gx#stx-pair? _tl9027490305_) - (let ((_e9027590310_ (gx#syntax-e _tl9027490305_))) - (let ((_hd9027690313_ (##car _e9027590310_)) - (_tl9027790315_ (##cdr _e9027590310_))) - (let ((_eid90318_ _hd9027690313_)) - (if (gx#stx-null? _tl9027790315_) - (let ((_rest90320_ _tl9027190297_)) - (if (and (gx#identifier? _id90308_) - (gx#identifier? _eid90318_)) - (let ((_eid90322_ - (gx#stx-e _eid90318_))) + (##car _e9027690304_)) + (_tl9027890309_ (##cdr _e9027690304_))) + (let ((_id90312_ _hd9027790307_)) + (if (gx#stx-pair? _tl9027890309_) + (let ((_e9027990314_ (gx#syntax-e _tl9027890309_))) + (let ((_hd9028090317_ (##car _e9027990314_)) + (_tl9028190319_ (##cdr _e9027990314_))) + (let ((_eid90322_ _hd9028090317_)) + (if (gx#stx-null? _tl9028190319_) + (let ((_rest90324_ _tl9027590301_)) + (if (and (gx#identifier? _id90312_) + (gx#identifier? _eid90322_)) + (let ((_eid90326_ + (gx#stx-e _eid90322_))) (gx#core-bind-extern!__0 - _id90308_ - _eid90322_) - (_lp90262_ - _rest90320_ + _id90312_ + _eid90326_) + (_lp90266_ + _rest90324_ (cons (cons (gx#core-quote-syntax__0 - _id90308_) - (cons _eid90322_ '())) - _r90265_))) - (_E9026890288_))) - (_E9026890288_))))) - (_E9026890288_))))) - (_E9026890288_)))) + _id90312_) + (cons _eid90326_ '())) + _r90269_))) + (_E9027290292_))) + (_E9027290292_))))) + (_E9027290292_))))) + (_E9027290292_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9026890288_))))) - (_E9026790324_))) - (_E9023990248_))))) - (_E9023990248_))))) - (_E9023890328_)))) + (_E9027290292_))))) + (_E9027190328_))) + (_E9024390252_))))) + (_E9024390252_))))) + (_E9024290332_)))) (define gx#core-expand-define-values% - (lambda (_stx90182_) - (let* ((_e9018390196_ _stx90182_) - (_E9018590200_ + (lambda (_stx90186_) + (let* ((_e9018790200_ _stx90186_) + (_E9018990204_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9018390196_))) - (_E9018490232_ + _e9018790200_))) + (_E9018890236_ (lambda () - (if (gx#stx-pair? _e9018390196_) - (let ((_e9018690204_ (gx#syntax-e _e9018390196_))) - (let ((_hd9018790207_ (##car _e9018690204_)) - (_tl9018890209_ (##cdr _e9018690204_))) - (if (gx#stx-pair? _tl9018890209_) - (let ((_e9018990212_ - (gx#syntax-e _tl9018890209_))) - (let ((_hd9019090215_ (##car _e9018990212_)) - (_tl9019190217_ (##cdr _e9018990212_))) - (let ((_hd90220_ _hd9019090215_)) - (if (gx#stx-pair? _tl9019190217_) - (let ((_e9019290222_ - (gx#syntax-e _tl9019190217_))) - (let ((_hd9019390225_ - (##car _e9019290222_)) - (_tl9019490227_ - (##cdr _e9019290222_))) - (let ((_expr90230_ _hd9019390225_)) - (if (gx#stx-null? _tl9019490227_) + (if (gx#stx-pair? _e9018790200_) + (let ((_e9019090208_ (gx#syntax-e _e9018790200_))) + (let ((_hd9019190211_ (##car _e9019090208_)) + (_tl9019290213_ (##cdr _e9019090208_))) + (if (gx#stx-pair? _tl9019290213_) + (let ((_e9019390216_ + (gx#syntax-e _tl9019290213_))) + (let ((_hd9019490219_ (##car _e9019390216_)) + (_tl9019590221_ (##cdr _e9019390216_))) + (let ((_hd90224_ _hd9019490219_)) + (if (gx#stx-pair? _tl9019590221_) + (let ((_e9019690226_ + (gx#syntax-e _tl9019590221_))) + (let ((_hd9019790229_ + (##car _e9019690226_)) + (_tl9019890231_ + (##cdr _e9019690226_))) + (let ((_expr90234_ _hd9019790229_)) + (if (gx#stx-null? _tl9019890231_) (if (gx#core-bind-values? - _hd90220_) + _hd90224_) (begin (gx#core-bind-values!__0 - _hd90220_) + _hd90224_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90220_) - (cons (gx#core-expand-expression _expr90230_) + _hd90224_) + (cons (gx#core-expand-expression _expr90234_) '()))) - (gx#stx-source _stx90182_))) - (_E9018590200_)) + (gx#stx-source _stx90186_))) + (_E9018990204_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9018590200_))))) - (_E9018590200_))))) - (_E9018590200_)))) - (_E9018590200_))))) - (_E9018490232_)))) + (_E9018990204_))))) + (_E9018990204_))))) + (_E9018990204_)))) + (_E9018990204_))))) + (_E9018890236_)))) (define gx#core-expand-define-runtime% - (lambda (_stx90126_) - (let* ((_e9012790140_ _stx90126_) - (_E9012990144_ + (lambda (_stx90130_) + (let* ((_e9013190144_ _stx90130_) + (_E9013390148_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9012790140_))) - (_E9012890178_ + _e9013190144_))) + (_E9013290182_ (lambda () - (if (gx#stx-pair? _e9012790140_) - (let ((_e9013090148_ (gx#syntax-e _e9012790140_))) - (let ((_hd9013190151_ (##car _e9013090148_)) - (_tl9013290153_ (##cdr _e9013090148_))) - (if (gx#stx-pair? _tl9013290153_) - (let ((_e9013390156_ - (gx#syntax-e _tl9013290153_))) - (let ((_hd9013490159_ (##car _e9013390156_)) - (_tl9013590161_ (##cdr _e9013390156_))) - (let ((_id90164_ _hd9013490159_)) - (if (gx#stx-pair? _tl9013590161_) - (let ((_e9013690166_ - (gx#syntax-e _tl9013590161_))) - (let ((_hd9013790169_ - (##car _e9013690166_)) - (_tl9013890171_ - (##cdr _e9013690166_))) - (let ((_binding-id90174_ - _hd9013790169_)) - (if (gx#stx-null? _tl9013890171_) + (if (gx#stx-pair? _e9013190144_) + (let ((_e9013490152_ (gx#syntax-e _e9013190144_))) + (let ((_hd9013590155_ (##car _e9013490152_)) + (_tl9013690157_ (##cdr _e9013490152_))) + (if (gx#stx-pair? _tl9013690157_) + (let ((_e9013790160_ + (gx#syntax-e _tl9013690157_))) + (let ((_hd9013890163_ (##car _e9013790160_)) + (_tl9013990165_ (##cdr _e9013790160_))) + (let ((_id90168_ _hd9013890163_)) + (if (gx#stx-pair? _tl9013990165_) + (let ((_e9014090170_ + (gx#syntax-e _tl9013990165_))) + (let ((_hd9014190173_ + (##car _e9014090170_)) + (_tl9014290175_ + (##cdr _e9014090170_))) + (let ((_binding-id90178_ + _hd9014190173_)) + (if (gx#stx-null? _tl9014290175_) (if (and (gx#identifier? - _id90164_) + _id90168_) (gx#identifier? - _binding-id90174_)) - (let ((_eid90176_ + _binding-id90178_)) + (let ((_eid90180_ (gx#stx-e - _binding-id90174_))) + _binding-id90178_))) (gx#core-bind-runtime-reference!__0 - _id90164_ - _eid90176_) + _id90168_ + _eid90180_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id90164_) - (cons _eid90176_ '()))))) - (_E9012990144_)) + _id90168_) + (cons _eid90180_ '()))))) + (_E9013390148_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9012990144_))))) - (_E9012990144_))))) - (_E9012990144_)))) - (_E9012990144_))))) - (_E9012890178_)))) + (_E9013390148_))))) + (_E9013390148_))))) + (_E9013390148_)))) + (_E9013390148_))))) + (_E9013290182_)))) (define gx#core-expand-define-syntax% - (lambda (_stx90069_) - (let* ((_e9007090083_ _stx90069_) - (_E9007290087_ + (lambda (_stx90073_) + (let* ((_e9007490087_ _stx90073_) + (_E9007690091_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9007090083_))) - (_E9007190122_ + _e9007490087_))) + (_E9007590126_ (lambda () - (if (gx#stx-pair? _e9007090083_) - (let ((_e9007390091_ (gx#syntax-e _e9007090083_))) - (let ((_hd9007490094_ (##car _e9007390091_)) - (_tl9007590096_ (##cdr _e9007390091_))) - (if (gx#stx-pair? _tl9007590096_) - (let ((_e9007690099_ - (gx#syntax-e _tl9007590096_))) - (let ((_hd9007790102_ (##car _e9007690099_)) - (_tl9007890104_ (##cdr _e9007690099_))) - (let ((_id90107_ _hd9007790102_)) - (if (gx#stx-pair? _tl9007890104_) - (let ((_e9007990109_ - (gx#syntax-e _tl9007890104_))) - (let ((_hd9008090112_ - (##car _e9007990109_)) - (_tl9008190114_ - (##cdr _e9007990109_))) - (let ((_expr90117_ _hd9008090112_)) - (if (gx#stx-null? _tl9008190114_) + (if (gx#stx-pair? _e9007490087_) + (let ((_e9007790095_ (gx#syntax-e _e9007490087_))) + (let ((_hd9007890098_ (##car _e9007790095_)) + (_tl9007990100_ (##cdr _e9007790095_))) + (if (gx#stx-pair? _tl9007990100_) + (let ((_e9008090103_ + (gx#syntax-e _tl9007990100_))) + (let ((_hd9008190106_ (##car _e9008090103_)) + (_tl9008290108_ (##cdr _e9008090103_))) + (let ((_id90111_ _hd9008190106_)) + (if (gx#stx-pair? _tl9008290108_) + (let ((_e9008390113_ + (gx#syntax-e _tl9008290108_))) + (let ((_hd9008490116_ + (##car _e9008390113_)) + (_tl9008590118_ + (##cdr _e9008390113_))) + (let ((_expr90121_ _hd9008490116_)) + (if (gx#stx-null? _tl9008590118_) (if (gx#identifier? - _id90107_) - (let ((_g91028_ + _id90111_) + (let ((_g91032_ (gx#core-expand-expression+1 - _expr90117_))) + _expr90121_))) (begin - (let ((_g91029_ + (let ((_g91033_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g91028_) - (##vector-length _g91028_) + (if (##values? _g91032_) + (##vector-length _g91032_) 1))) - (if (not (##fx= _g91029_ 2)) - (error "Context expects 2 values" _g91029_))) - (let ((_e-stx90119_ (##vector-ref _g91028_ 0)) - (_e90120_ (##vector-ref _g91028_ 1))) + (if (not (##fx= _g91033_ 2)) + (error "Context expects 2 values" _g91033_))) + (let ((_e-stx90123_ (##vector-ref _g91032_ 0)) + (_e90124_ (##vector-ref _g91032_ 1))) (begin - (gx#core-bind-syntax!__0 _id90107_ _e90120_) + (gx#core-bind-syntax!__0 _id90111_ _e90124_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id90107_) - (cons _e-stx90119_ '()))) - (gx#stx-source _stx90069_)))))) - (_E9007290087_)) + (cons (gx#core-quote-syntax__0 _id90111_) + (cons _e-stx90123_ '()))) + (gx#stx-source _stx90073_)))))) + (_E9007690091_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9007290087_))))) - (_E9007290087_))))) - (_E9007290087_)))) - (_E9007290087_))))) - (_E9007190122_)))) + (_E9007690091_))))) + (_E9007690091_))))) + (_E9007690091_)))) + (_E9007690091_))))) + (_E9007590126_)))) (define gx#core-expand-define-alias% - (lambda (_stx90013_) - (let* ((_e9001490027_ _stx90013_) - (_E9001690031_ + (lambda (_stx90017_) + (let* ((_e9001890031_ _stx90017_) + (_E9002090035_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9001490027_))) - (_E9001590065_ + _e9001890031_))) + (_E9001990069_ (lambda () - (if (gx#stx-pair? _e9001490027_) - (let ((_e9001790035_ (gx#syntax-e _e9001490027_))) - (let ((_hd9001890038_ (##car _e9001790035_)) - (_tl9001990040_ (##cdr _e9001790035_))) - (if (gx#stx-pair? _tl9001990040_) - (let ((_e9002090043_ - (gx#syntax-e _tl9001990040_))) - (let ((_hd9002190046_ (##car _e9002090043_)) - (_tl9002290048_ (##cdr _e9002090043_))) - (let ((_id90051_ _hd9002190046_)) - (if (gx#stx-pair? _tl9002290048_) - (let ((_e9002390053_ - (gx#syntax-e _tl9002290048_))) - (let ((_hd9002490056_ - (##car _e9002390053_)) - (_tl9002590058_ - (##cdr _e9002390053_))) - (let ((_alias-id90061_ - _hd9002490056_)) - (if (gx#stx-null? _tl9002590058_) + (if (gx#stx-pair? _e9001890031_) + (let ((_e9002190039_ (gx#syntax-e _e9001890031_))) + (let ((_hd9002290042_ (##car _e9002190039_)) + (_tl9002390044_ (##cdr _e9002190039_))) + (if (gx#stx-pair? _tl9002390044_) + (let ((_e9002490047_ + (gx#syntax-e _tl9002390044_))) + (let ((_hd9002590050_ (##car _e9002490047_)) + (_tl9002690052_ (##cdr _e9002490047_))) + (let ((_id90055_ _hd9002590050_)) + (if (gx#stx-pair? _tl9002690052_) + (let ((_e9002790057_ + (gx#syntax-e _tl9002690052_))) + (let ((_hd9002890060_ + (##car _e9002790057_)) + (_tl9002990062_ + (##cdr _e9002790057_))) + (let ((_alias-id90065_ + _hd9002890060_)) + (if (gx#stx-null? _tl9002990062_) (if (and (gx#identifier? - _id90051_) + _id90055_) (gx#identifier? - _alias-id90061_)) - (let ((_alias-id90063_ + _alias-id90065_)) + (let ((_alias-id90067_ (gx#core-quote-syntax__0 - _alias-id90061_))) + _alias-id90065_))) (gx#core-bind-alias!__0 - _id90051_ - _alias-id90063_) + _id90055_ + _alias-id90067_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id90051_) - (cons _alias-id90063_ '()))))) - (_E9001690031_)) + _id90055_) + (cons _alias-id90067_ '()))))) + (_E9002090035_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9001690031_))))) - (_E9001690031_))))) - (_E9001690031_)))) - (_E9001690031_))))) - (_E9001590065_)))) + (_E9002090035_))))) + (_E9002090035_))))) + (_E9002090035_)))) + (_E9002090035_))))) + (_E9001990069_)))) (define gx#core-expand-lambda%__% - (lambda (_stx89956_ _wrap?89957_) - (let* ((_e8995889968_ _stx89956_) - (_E8996089972_ + (lambda (_stx89960_ _wrap?89961_) + (let* ((_e8996289972_ _stx89960_) + (_E8996489976_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8995889968_))) - (_E8995989999_ + _e8996289972_))) + (_E8996390003_ (lambda () - (if (gx#stx-pair? _e8995889968_) - (let ((_e8996189976_ (gx#syntax-e _e8995889968_))) - (let ((_hd8996289979_ (##car _e8996189976_)) - (_tl8996389981_ (##cdr _e8996189976_))) - (if (gx#stx-pair? _tl8996389981_) - (let ((_e8996489984_ - (gx#syntax-e _tl8996389981_))) - (let ((_hd8996589987_ (##car _e8996489984_)) - (_tl8996689989_ (##cdr _e8996489984_))) - (let* ((_hd89992_ _hd8996589987_) - (_body89994_ _tl8996689989_)) - (if (gx#core-bind-values? _hd89992_) + (if (gx#stx-pair? _e8996289972_) + (let ((_e8996589980_ (gx#syntax-e _e8996289972_))) + (let ((_hd8996689983_ (##car _e8996589980_)) + (_tl8996789985_ (##cdr _e8996589980_))) + (if (gx#stx-pair? _tl8996789985_) + (let ((_e8996889988_ + (gx#syntax-e _tl8996789985_))) + (let ((_hd8996989991_ (##car _e8996889988_)) + (_tl8997089993_ (##cdr _e8996889988_))) + (let* ((_hd89996_ _hd8996989991_) + (_body89998_ _tl8997089993_)) + (if (gx#core-bind-values? _hd89996_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd89992_) - (let ((_body89997_ + (gx#core-bind-values!__0 _hd89996_) + (let ((_body90001_ (cons (gx#core-quote-bind-values - _hd89992_) + _hd89996_) (cons (gx#core-expand-local-block - _stx89956_ - _body89994_) + _stx89960_ + _body89998_) '())))) - (if _wrap?89957_ + (if _wrap?89961_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body89997_) - (gx#stx-source _stx89956_)) - _body89997_))) + _body90001_) + (gx#stx-source _stx89960_)) + _body90001_))) gx#current-expander-context - (let ((__obj91021 + (let ((__obj91025 (##structure gx#local-context::t '#f @@ -1105,116 +1105,116 @@ '#f '#f))) (gx#local-context:::init! - __obj91021) - __obj91021)) - (_E8996089972_))))) - (_E8996089972_)))) - (_E8996089972_))))) - (_E8995989999_)))) + __obj91025) + __obj91025)) + (_E8996489976_))))) + (_E8996489976_)))) + (_E8996489976_))))) + (_E8996390003_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx90006_) - (let ((_wrap?90008_ '#t)) - (gx#core-expand-lambda%__% _stx90006_ _wrap?90008_)))) + (lambda (_stx90010_) + (let ((_wrap?90012_ '#t)) + (gx#core-expand-lambda%__% _stx90010_ _wrap?90012_)))) (define gx#core-expand-lambda% - (lambda _g91031_ - (let ((_g91030_ (##length _g91031_))) - (cond ((##fx= _g91030_ 1) - (apply (lambda (_stx90006_) - (gx#core-expand-lambda%__0 _stx90006_)) - _g91031_)) - ((##fx= _g91030_ 2) - (apply (lambda (_stx90010_ _wrap?90011_) - (gx#core-expand-lambda%__% _stx90010_ _wrap?90011_)) - _g91031_)) + (lambda _g91035_ + (let ((_g91034_ (##length _g91035_))) + (cond ((##fx= _g91034_ 1) + (apply (lambda (_stx90010_) + (gx#core-expand-lambda%__0 _stx90010_)) + _g91035_)) + ((##fx= _g91034_ 2) + (apply (lambda (_stx90014_ _wrap?90015_) + (gx#core-expand-lambda%__% _stx90014_ _wrap?90015_)) + _g91035_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g91031_)))))) + _g91035_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx89920_) - (let* ((_e8992189928_ _stx89920_) - (_E8992389932_ + (lambda (_stx89924_) + (let* ((_e8992589932_ _stx89924_) + (_E8992789936_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8992189928_))) - (_E8992289951_ + _e8992589932_))) + (_E8992689955_ (lambda () - (if (gx#stx-pair? _e8992189928_) - (let ((_e8992489936_ (gx#syntax-e _e8992189928_))) - (let ((_hd8992589939_ (##car _e8992489936_)) - (_tl8992689941_ (##cdr _e8992489936_))) - (let ((_clauses89944_ _tl8992689941_)) - (if (gx#stx-list? _clauses89944_) + (if (gx#stx-pair? _e8992589932_) + (let ((_e8992889940_ (gx#syntax-e _e8992589932_))) + (let ((_hd8992989943_ (##car _e8992889940_)) + (_tl8993089945_ (##cdr _e8992889940_))) + (let ((_clauses89948_ _tl8993089945_)) + (if (gx#stx-list? _clauses89948_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause89946_) + (lambda (_clause89950_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause89946_) - (let ((_$e89948_ - (gx#stx-source _clause89946_))) - (if _$e89948_ - _$e89948_ - (gx#stx-source _stx89920_)))) + _clause89950_) + (let ((_$e89952_ + (gx#stx-source _clause89950_))) + (if _$e89952_ + _$e89952_ + (gx#stx-source _stx89924_)))) '#f)) - _clauses89944_)) - (gx#stx-source _stx89920_)) - (_E8992389932_))))) - (_E8992389932_))))) - (_E8992289951_)))) + _clauses89948_)) + (gx#stx-source _stx89924_)) + (_E8992789936_))))) + (_E8992789936_))))) + (_E8992689955_)))) (define gx#core-expand-let-values% - (lambda (_stx89874_) - (let* ((_e8987589885_ _stx89874_) - (_E8987789889_ + (lambda (_stx89878_) + (let* ((_e8987989889_ _stx89878_) + (_E8988189893_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8987589885_))) - (_E8987689916_ + _e8987989889_))) + (_E8988089920_ (lambda () - (if (gx#stx-pair? _e8987589885_) - (let ((_e8987889893_ (gx#syntax-e _e8987589885_))) - (let ((_hd8987989896_ (##car _e8987889893_)) - (_tl8988089898_ (##cdr _e8987889893_))) - (if (gx#stx-pair? _tl8988089898_) - (let ((_e8988189901_ - (gx#syntax-e _tl8988089898_))) - (let ((_hd8988289904_ (##car _e8988189901_)) - (_tl8988389906_ (##cdr _e8988189901_))) - (let* ((_hd89909_ _hd8988289904_) - (_body89911_ _tl8988389906_)) - (if (gx#core-expand-let-bind? _hd89909_) - (let ((_expressions89913_ + (if (gx#stx-pair? _e8987989889_) + (let ((_e8988289897_ (gx#syntax-e _e8987989889_))) + (let ((_hd8988389900_ (##car _e8988289897_)) + (_tl8988489902_ (##cdr _e8988289897_))) + (if (gx#stx-pair? _tl8988489902_) + (let ((_e8988589905_ + (gx#syntax-e _tl8988489902_))) + (let ((_hd8988689908_ (##car _e8988589905_)) + (_tl8988789910_ (##cdr _e8988589905_))) + (let* ((_hd89913_ _hd8988689908_) + (_body89915_ _tl8988789910_)) + (if (gx#core-expand-let-bind? _hd89913_) + (let ((_expressions89917_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd89909_))) + _hd89913_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd89909_) + _hd89913_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd89909_ - _expressions89913_) + _hd89913_ + _expressions89917_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx89874_ - _body89911_) + _stx89878_ + _body89915_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx89874_))) + (gx#stx-source _stx89878_))) gx#current-expander-context - (let ((__obj91022 + (let ((__obj91026 (##structure gx#local-context::t '#f @@ -1223,56 +1223,56 @@ '#f '#f))) (gx#local-context:::init! - __obj91022) - __obj91022))) - (_E8987789889_))))) - (_E8987789889_)))) - (_E8987789889_))))) - (_E8987689916_)))) + __obj91026) + __obj91026))) + (_E8988189893_))))) + (_E8988189893_)))) + (_E8988189893_))))) + (_E8988089920_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx89819_ _form89820_) - (let* ((_e8982189831_ _stx89819_) - (_E8982389835_ + (lambda (_stx89823_ _form89824_) + (let* ((_e8982589835_ _stx89823_) + (_E8982789839_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8982189831_))) - (_E8982289860_ + _e8982589835_))) + (_E8982689864_ (lambda () - (if (gx#stx-pair? _e8982189831_) - (let ((_e8982489839_ (gx#syntax-e _e8982189831_))) - (let ((_hd8982589842_ (##car _e8982489839_)) - (_tl8982689844_ (##cdr _e8982489839_))) - (if (gx#stx-pair? _tl8982689844_) - (let ((_e8982789847_ - (gx#syntax-e _tl8982689844_))) - (let ((_hd8982889850_ (##car _e8982789847_)) - (_tl8982989852_ (##cdr _e8982789847_))) - (let* ((_hd89855_ _hd8982889850_) - (_body89857_ _tl8982989852_)) - (if (gx#core-expand-let-bind? _hd89855_) + (if (gx#stx-pair? _e8982589835_) + (let ((_e8982889843_ (gx#syntax-e _e8982589835_))) + (let ((_hd8982989846_ (##car _e8982889843_)) + (_tl8983089848_ (##cdr _e8982889843_))) + (if (gx#stx-pair? _tl8983089848_) + (let ((_e8983189851_ + (gx#syntax-e _tl8983089848_))) + (let ((_hd8983289854_ (##car _e8983189851_)) + (_tl8983389856_ (##cdr _e8983189851_))) + (let* ((_hd89859_ _hd8983289854_) + (_body89861_ _tl8983389856_)) + (if (gx#core-expand-let-bind? _hd89859_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd89855_) + _hd89859_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form89820_) + _form89824_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd89855_ + _hd89859_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd89855_)) + _hd89859_)) (cons (gx#core-expand-local-block - _stx89819_ - _body89857_) + _stx89823_ + _body89861_) '()))) - (gx#stx-source _stx89819_))) + (gx#stx-source _stx89823_))) gx#current-expander-context - (let ((__obj91023 + (let ((__obj91027 (##structure gx#local-context::t '#f @@ -1281,197 +1281,197 @@ '#f '#f))) (gx#local-context:::init! - __obj91023) - __obj91023)) - (_E8982389835_))))) - (_E8982389835_)))) - (_E8982389835_))))) - (_E8982289860_)))) + __obj91027) + __obj91027)) + (_E8982789839_))))) + (_E8982789839_)))) + (_E8982789839_))))) + (_E8982689864_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx89867_) - (let ((_form89869_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx89867_ _form89869_)))) + (lambda (_stx89871_) + (let ((_form89873_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx89871_ _form89873_)))) (define gx#core-expand-letrec-values% - (lambda _g91033_ - (let ((_g91032_ (##length _g91033_))) - (cond ((##fx= _g91032_ 1) - (apply (lambda (_stx89867_) - (gx#core-expand-letrec-values%__0 _stx89867_)) - _g91033_)) - ((##fx= _g91032_ 2) - (apply (lambda (_stx89871_ _form89872_) + (lambda _g91037_ + (let ((_g91036_ (##length _g91037_))) + (cond ((##fx= _g91036_ 1) + (apply (lambda (_stx89871_) + (gx#core-expand-letrec-values%__0 _stx89871_)) + _g91037_)) + ((##fx= _g91036_ 2) + (apply (lambda (_stx89875_ _form89876_) (gx#core-expand-letrec-values%__% - _stx89871_ - _form89872_)) - _g91033_)) + _stx89875_ + _form89876_)) + _g91037_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g91033_)))))) + _g91037_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx89816_) - (gx#core-expand-letrec-values%__% _stx89816_ '%#letrec*-values))) + (lambda (_stx89820_) + (gx#core-expand-letrec-values%__% _stx89820_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx89773_) - (if (gx#stx-list? _stx89773_) + (lambda (_stx89777_) + (if (gx#stx-list? _stx89777_) (gx#stx-andmap - (lambda (_bind89775_) - (let* ((_e8977689786_ _bind89775_) - (_E8977889790_ (lambda () '#f)) - (_E8977789812_ + (lambda (_bind89779_) + (let* ((_e8978089790_ _bind89779_) + (_E8978289794_ (lambda () '#f)) + (_E8978189816_ (lambda () - (if (gx#stx-pair? _e8977689786_) - (let ((_e8977989794_ (gx#syntax-e _e8977689786_))) - (let ((_hd8978089797_ (##car _e8977989794_)) - (_tl8978189799_ (##cdr _e8977989794_))) - (let ((_hd89802_ _hd8978089797_)) - (if (gx#stx-pair? _tl8978189799_) - (let ((_e8978289804_ - (gx#syntax-e _tl8978189799_))) - (let ((_hd8978389807_ - (##car _e8978289804_)) - (_tl8978489809_ - (##cdr _e8978289804_))) - (if (gx#stx-null? _tl8978489809_) + (if (gx#stx-pair? _e8978089790_) + (let ((_e8978389798_ (gx#syntax-e _e8978089790_))) + (let ((_hd8978489801_ (##car _e8978389798_)) + (_tl8978589803_ (##cdr _e8978389798_))) + (let ((_hd89806_ _hd8978489801_)) + (if (gx#stx-pair? _tl8978589803_) + (let ((_e8978689808_ + (gx#syntax-e _tl8978589803_))) + (let ((_hd8978789811_ + (##car _e8978689808_)) + (_tl8978889813_ + (##cdr _e8978689808_))) + (if (gx#stx-null? _tl8978889813_) (if '#t (gx#core-bind-values? - _hd89802_) - (_E8977889790_)) - (_E8977889790_)))) - (_E8977889790_))))) - (_E8977889790_))))) - (_E8977789812_))) - _stx89773_) + _hd89806_) + (_E8978289794_)) + (_E8978289794_)))) + (_E8978289794_))))) + (_E8978289794_))))) + (_E8978189816_))) + _stx89777_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind89732_) - (let* ((_e8973389743_ _bind89732_) - (_E8973589747_ + (lambda (_bind89736_) + (let* ((_e8973789747_ _bind89736_) + (_E8973989751_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8973389743_))) - (_E8973489769_ + _e8973789747_))) + (_E8973889773_ (lambda () - (if (gx#stx-pair? _e8973389743_) - (let ((_e8973689751_ (gx#syntax-e _e8973389743_))) - (let ((_hd8973789754_ (##car _e8973689751_)) - (_tl8973889756_ (##cdr _e8973689751_))) - (if (gx#stx-pair? _tl8973889756_) - (let ((_e8973989759_ - (gx#syntax-e _tl8973889756_))) - (let ((_hd8974089762_ (##car _e8973989759_)) - (_tl8974189764_ (##cdr _e8973989759_))) - (let ((_expr89767_ _hd8974089762_)) - (if (gx#stx-null? _tl8974189764_) + (if (gx#stx-pair? _e8973789747_) + (let ((_e8974089755_ (gx#syntax-e _e8973789747_))) + (let ((_hd8974189758_ (##car _e8974089755_)) + (_tl8974289760_ (##cdr _e8974089755_))) + (if (gx#stx-pair? _tl8974289760_) + (let ((_e8974389763_ + (gx#syntax-e _tl8974289760_))) + (let ((_hd8974489766_ (##car _e8974389763_)) + (_tl8974589768_ (##cdr _e8974389763_))) + (let ((_expr89771_ _hd8974489766_)) + (if (gx#stx-null? _tl8974589768_) (if '#t (gx#core-expand-expression - _expr89767_) - (_E8973589747_)) - (_E8973589747_))))) - (_E8973589747_)))) - (_E8973589747_))))) - (_E8973489769_)))) + _expr89771_) + (_E8973989751_)) + (_E8973989751_))))) + (_E8973989751_)))) + (_E8973989751_))))) + (_E8973889773_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind89691_) - (let* ((_e8969289702_ _bind89691_) - (_E8969489706_ + (lambda (_bind89695_) + (let* ((_e8969689706_ _bind89695_) + (_E8969889710_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8969289702_))) - (_E8969389728_ + _e8969689706_))) + (_E8969789732_ (lambda () - (if (gx#stx-pair? _e8969289702_) - (let ((_e8969589710_ (gx#syntax-e _e8969289702_))) - (let ((_hd8969689713_ (##car _e8969589710_)) - (_tl8969789715_ (##cdr _e8969589710_))) - (let ((_hd89718_ _hd8969689713_)) - (if (gx#stx-pair? _tl8969789715_) - (let ((_e8969889720_ - (gx#syntax-e _tl8969789715_))) - (let ((_hd8969989723_ (##car _e8969889720_)) - (_tl8970089725_ (##cdr _e8969889720_))) - (if (gx#stx-null? _tl8970089725_) + (if (gx#stx-pair? _e8969689706_) + (let ((_e8969989714_ (gx#syntax-e _e8969689706_))) + (let ((_hd8970089717_ (##car _e8969989714_)) + (_tl8970189719_ (##cdr _e8969989714_))) + (let ((_hd89722_ _hd8970089717_)) + (if (gx#stx-pair? _tl8970189719_) + (let ((_e8970289724_ + (gx#syntax-e _tl8970189719_))) + (let ((_hd8970389727_ (##car _e8970289724_)) + (_tl8970489729_ (##cdr _e8970289724_))) + (if (gx#stx-null? _tl8970489729_) (if '#t - (gx#core-bind-values!__0 _hd89718_) - (_E8969489706_)) - (_E8969489706_)))) - (_E8969489706_))))) - (_E8969489706_))))) - (_E8969389728_)))) + (gx#core-bind-values!__0 _hd89722_) + (_E8969889710_)) + (_E8969889710_)))) + (_E8969889710_))))) + (_E8969889710_))))) + (_E8969789732_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind89649_ _expr89650_) - (let* ((_e8965189661_ _bind89649_) - (_E8965389665_ + (lambda (_bind89653_ _expr89654_) + (let* ((_e8965589665_ _bind89653_) + (_E8965789669_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8965189661_))) - (_E8965289687_ + _e8965589665_))) + (_E8965689691_ (lambda () - (if (gx#stx-pair? _e8965189661_) - (let ((_e8965489669_ (gx#syntax-e _e8965189661_))) - (let ((_hd8965589672_ (##car _e8965489669_)) - (_tl8965689674_ (##cdr _e8965489669_))) - (let ((_hd89677_ _hd8965589672_)) - (if (gx#stx-pair? _tl8965689674_) - (let ((_e8965789679_ - (gx#syntax-e _tl8965689674_))) - (let ((_hd8965889682_ (##car _e8965789679_)) - (_tl8965989684_ (##cdr _e8965789679_))) - (if (gx#stx-null? _tl8965989684_) + (if (gx#stx-pair? _e8965589665_) + (let ((_e8965889673_ (gx#syntax-e _e8965589665_))) + (let ((_hd8965989676_ (##car _e8965889673_)) + (_tl8966089678_ (##cdr _e8965889673_))) + (let ((_hd89681_ _hd8965989676_)) + (if (gx#stx-pair? _tl8966089678_) + (let ((_e8966189683_ + (gx#syntax-e _tl8966089678_))) + (let ((_hd8966289686_ (##car _e8966189683_)) + (_tl8966389688_ (##cdr _e8966189683_))) + (if (gx#stx-null? _tl8966389688_) (if '#t (cons (gx#core-quote-bind-values - _hd89677_) - (cons _expr89650_ '())) - (_E8965389665_)) - (_E8965389665_)))) - (_E8965389665_))))) - (_E8965389665_))))) - (_E8965289687_)))) + _hd89681_) + (cons _expr89654_ '())) + (_E8965789669_)) + (_E8965789669_)))) + (_E8965789669_))))) + (_E8965789669_))))) + (_E8965689691_)))) (define gx#core-expand-let-syntax% - (lambda (_stx89603_) - (let* ((_e8960489614_ _stx89603_) - (_E8960689618_ + (lambda (_stx89607_) + (let* ((_e8960889618_ _stx89607_) + (_E8961089622_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8960489614_))) - (_E8960589645_ + _e8960889618_))) + (_E8960989649_ (lambda () - (if (gx#stx-pair? _e8960489614_) - (let ((_e8960789622_ (gx#syntax-e _e8960489614_))) - (let ((_hd8960889625_ (##car _e8960789622_)) - (_tl8960989627_ (##cdr _e8960789622_))) - (if (gx#stx-pair? _tl8960989627_) - (let ((_e8961089630_ - (gx#syntax-e _tl8960989627_))) - (let ((_hd8961189633_ (##car _e8961089630_)) - (_tl8961289635_ (##cdr _e8961089630_))) - (let* ((_hd89638_ _hd8961189633_) - (_body89640_ _tl8961289635_)) + (if (gx#stx-pair? _e8960889618_) + (let ((_e8961189626_ (gx#syntax-e _e8960889618_))) + (let ((_hd8961289629_ (##car _e8961189626_)) + (_tl8961389631_ (##cdr _e8961189626_))) + (if (gx#stx-pair? _tl8961389631_) + (let ((_e8961489634_ + (gx#syntax-e _tl8961389631_))) + (let ((_hd8961589637_ (##car _e8961489634_)) + (_tl8961689639_ (##cdr _e8961489634_))) + (let* ((_hd89642_ _hd8961589637_) + (_body89644_ _tl8961689639_)) (if (gx#core-expand-let-bind-syntax? - _hd89638_) - (let ((_expanders89642_ + _hd89642_) + (let ((_expanders89646_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd89638_))) + _hd89642_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd89638_ - _expanders89642_) + _hd89642_ + _expanders89646_) (gx#core-expand-local-block - _stx89603_ - _body89640_)) + _stx89607_ + _body89644_)) gx#current-expander-context - (let ((__obj91024 + (let ((__obj91028 (##structure gx#local-context::t '#f @@ -1480,60 +1480,60 @@ '#f '#f))) (gx#local-context:::init! - __obj91024) - __obj91024))) - (_E8960689618_))))) - (_E8960689618_)))) - (_E8960689618_))))) - (_E8960589645_)))) + __obj91028) + __obj91028))) + (_E8961089622_))))) + (_E8961089622_)))) + (_E8961089622_))))) + (_E8960989649_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx89552_) - (let* ((_e8955389563_ _stx89552_) - (_E8955589567_ + (lambda (_stx89556_) + (let* ((_e8955789567_ _stx89556_) + (_E8955989571_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8955389563_))) - (_E8955489599_ + _e8955789567_))) + (_E8955889603_ (lambda () - (if (gx#stx-pair? _e8955389563_) - (let ((_e8955689571_ (gx#syntax-e _e8955389563_))) - (let ((_hd8955789574_ (##car _e8955689571_)) - (_tl8955889576_ (##cdr _e8955689571_))) - (if (gx#stx-pair? _tl8955889576_) - (let ((_e8955989579_ - (gx#syntax-e _tl8955889576_))) - (let ((_hd8956089582_ (##car _e8955989579_)) - (_tl8956189584_ (##cdr _e8955989579_))) - (let* ((_hd89587_ _hd8956089582_) - (_body89589_ _tl8956189584_)) + (if (gx#stx-pair? _e8955789567_) + (let ((_e8956089575_ (gx#syntax-e _e8955789567_))) + (let ((_hd8956189578_ (##car _e8956089575_)) + (_tl8956289580_ (##cdr _e8956089575_))) + (if (gx#stx-pair? _tl8956289580_) + (let ((_e8956389583_ + (gx#syntax-e _tl8956289580_))) + (let ((_hd8956489586_ (##car _e8956389583_)) + (_tl8956589588_ (##cdr _e8956389583_))) + (let* ((_hd89591_ _hd8956489586_) + (_body89593_ _tl8956589588_)) (if (gx#core-expand-let-bind-syntax? - _hd89587_) + _hd89591_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd89587_ + _hd89591_ (make-list - (gx#stx-length _hd89587_) + (gx#stx-length _hd89591_) '#!void)) (gx#stx-for-each2 - (lambda (_g8959189594_ - _g8959289596_) + (lambda (_g8959589598_ + _g8959689600_) (gx#core-expand-let-bind-syntax!__% - _g8959189594_ - _g8959289596_ + _g8959589598_ + _g8959689600_ '#t)) - _hd89587_ + _hd89591_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd89587_)) + _hd89591_)) (gx#core-expand-local-block - _stx89552_ - _body89589_)) + _stx89556_ + _body89593_)) gx#current-expander-context - (let ((__obj91025 + (let ((__obj91029 (##structure gx#local-context::t '#f @@ -1542,1851 +1542,1851 @@ '#f '#f))) (gx#local-context:::init! - __obj91025) - __obj91025)) - (_E8955589567_))))) - (_E8955589567_)))) - (_E8955589567_))))) - (_E8955489599_)))) + __obj91029) + __obj91029)) + (_E8955989571_))))) + (_E8955989571_)))) + (_E8955989571_))))) + (_E8955889603_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx89509_) - (if (gx#stx-list? _stx89509_) + (lambda (_stx89513_) + (if (gx#stx-list? _stx89513_) (gx#stx-andmap - (lambda (_bind89511_) - (let* ((_e8951289522_ _bind89511_) - (_E8951489526_ (lambda () '#f)) - (_E8951389548_ + (lambda (_bind89515_) + (let* ((_e8951689526_ _bind89515_) + (_E8951889530_ (lambda () '#f)) + (_E8951789552_ (lambda () - (if (gx#stx-pair? _e8951289522_) - (let ((_e8951589530_ (gx#syntax-e _e8951289522_))) - (let ((_hd8951689533_ (##car _e8951589530_)) - (_tl8951789535_ (##cdr _e8951589530_))) - (let ((_hd89538_ _hd8951689533_)) - (if (gx#stx-pair? _tl8951789535_) - (let ((_e8951889540_ - (gx#syntax-e _tl8951789535_))) - (let ((_hd8951989543_ - (##car _e8951889540_)) - (_tl8952089545_ - (##cdr _e8951889540_))) - (if (gx#stx-null? _tl8952089545_) + (if (gx#stx-pair? _e8951689526_) + (let ((_e8951989534_ (gx#syntax-e _e8951689526_))) + (let ((_hd8952089537_ (##car _e8951989534_)) + (_tl8952189539_ (##cdr _e8951989534_))) + (let ((_hd89542_ _hd8952089537_)) + (if (gx#stx-pair? _tl8952189539_) + (let ((_e8952289544_ + (gx#syntax-e _tl8952189539_))) + (let ((_hd8952389547_ + (##car _e8952289544_)) + (_tl8952489549_ + (##cdr _e8952289544_))) + (if (gx#stx-null? _tl8952489549_) (if '#t - (gx#identifier? _hd89538_) - (_E8951489526_)) - (_E8951489526_)))) - (_E8951489526_))))) - (_E8951489526_))))) - (_E8951389548_))) - _stx89509_) + (gx#identifier? _hd89542_) + (_E8951889530_)) + (_E8951889530_)))) + (_E8951889530_))))) + (_E8951889530_))))) + (_E8951789552_))) + _stx89513_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind89466_) - (let* ((_e8946789477_ _bind89466_) - (_E8946989481_ + (lambda (_bind89470_) + (let* ((_e8947189481_ _bind89470_) + (_E8947389485_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8946789477_))) - (_E8946889505_ + _e8947189481_))) + (_E8947289509_ (lambda () - (if (gx#stx-pair? _e8946789477_) - (let ((_e8947089485_ (gx#syntax-e _e8946789477_))) - (let ((_hd8947189488_ (##car _e8947089485_)) - (_tl8947289490_ (##cdr _e8947089485_))) - (if (gx#stx-pair? _tl8947289490_) - (let ((_e8947389493_ - (gx#syntax-e _tl8947289490_))) - (let ((_hd8947489496_ (##car _e8947389493_)) - (_tl8947589498_ (##cdr _e8947389493_))) - (let ((_expr89501_ _hd8947489496_)) - (if (gx#stx-null? _tl8947589498_) + (if (gx#stx-pair? _e8947189481_) + (let ((_e8947489489_ (gx#syntax-e _e8947189481_))) + (let ((_hd8947589492_ (##car _e8947489489_)) + (_tl8947689494_ (##cdr _e8947489489_))) + (if (gx#stx-pair? _tl8947689494_) + (let ((_e8947789497_ + (gx#syntax-e _tl8947689494_))) + (let ((_hd8947889500_ (##car _e8947789497_)) + (_tl8947989502_ (##cdr _e8947789497_))) + (let ((_expr89505_ _hd8947889500_)) + (if (gx#stx-null? _tl8947989502_) (if '#t - (let ((_g91034_ + (let ((_g91038_ (gx#core-expand-expression+1 - _expr89501_))) + _expr89505_))) (begin - (let ((_g91035_ - (if (##values? _g91034_) + (let ((_g91039_ + (if (##values? _g91038_) (##vector-length - _g91034_) + _g91038_) 1))) - (if (not (##fx= _g91035_ 2)) + (if (not (##fx= _g91039_ 2)) (error "Context expects 2 values" - _g91035_))) - (let ((_e89503_ + _g91039_))) + (let ((_e89507_ (##vector-ref - _g91034_ + _g91038_ 1))) - _e89503_))) - (_E8946989481_)) - (_E8946989481_))))) - (_E8946989481_)))) - (_E8946989481_))))) - (_E8946889505_)))) + _e89507_))) + (_E8947389485_)) + (_E8947389485_))))) + (_E8947389485_)))) + (_E8947389485_))))) + (_E8947289509_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind89411_ _e89412_ _rebind?89413_) - (let* ((_e8941489424_ _bind89411_) - (_E8941689428_ + (lambda (_bind89415_ _e89416_ _rebind?89417_) + (let* ((_e8941889428_ _bind89415_) + (_E8942089432_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8941489424_))) - (_E8941589450_ + _e8941889428_))) + (_E8941989454_ (lambda () - (if (gx#stx-pair? _e8941489424_) - (let ((_e8941789432_ (gx#syntax-e _e8941489424_))) - (let ((_hd8941889435_ (##car _e8941789432_)) - (_tl8941989437_ (##cdr _e8941789432_))) - (let ((_id89440_ _hd8941889435_)) - (if (gx#stx-pair? _tl8941989437_) - (let ((_e8942089442_ - (gx#syntax-e _tl8941989437_))) - (let ((_hd8942189445_ (##car _e8942089442_)) - (_tl8942289447_ (##cdr _e8942089442_))) - (if (gx#stx-null? _tl8942289447_) + (if (gx#stx-pair? _e8941889428_) + (let ((_e8942189436_ (gx#syntax-e _e8941889428_))) + (let ((_hd8942289439_ (##car _e8942189436_)) + (_tl8942389441_ (##cdr _e8942189436_))) + (let ((_id89444_ _hd8942289439_)) + (if (gx#stx-pair? _tl8942389441_) + (let ((_e8942489446_ + (gx#syntax-e _tl8942389441_))) + (let ((_hd8942589449_ (##car _e8942489446_)) + (_tl8942689451_ (##cdr _e8942489446_))) + (if (gx#stx-null? _tl8942689451_) (if '#t (gx#core-bind-syntax!__1 - _id89440_ - _e89412_ - _rebind?89413_) - (_E8941689428_)) - (_E8941689428_)))) - (_E8941689428_))))) - (_E8941689428_))))) - (_E8941589450_)))) + _id89444_ + _e89416_ + _rebind?89417_) + (_E8942089432_)) + (_E8942089432_)))) + (_E8942089432_))))) + (_E8942089432_))))) + (_E8941989454_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind89457_ _e89458_) - (let ((_rebind?89460_ '#f)) + (lambda (_bind89461_ _e89462_) + (let ((_rebind?89464_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind89457_ - _e89458_ - _rebind?89460_)))) + _bind89461_ + _e89462_ + _rebind?89464_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g91037_ - (let ((_g91036_ (##length _g91037_))) - (cond ((##fx= _g91036_ 2) - (apply (lambda (_bind89457_ _e89458_) + (lambda _g91041_ + (let ((_g91040_ (##length _g91041_))) + (cond ((##fx= _g91040_ 2) + (apply (lambda (_bind89461_ _e89462_) (gx#core-expand-let-bind-syntax!__0 - _bind89457_ - _e89458_)) - _g91037_)) - ((##fx= _g91036_ 3) - (apply (lambda (_bind89462_ _e89463_ _rebind?89464_) + _bind89461_ + _e89462_)) + _g91041_)) + ((##fx= _g91040_ 3) + (apply (lambda (_bind89466_ _e89467_ _rebind?89468_) (gx#core-expand-let-bind-syntax!__% - _bind89462_ - _e89463_ - _rebind?89464_)) - _g91037_)) + _bind89466_ + _e89467_ + _rebind?89468_)) + _g91041_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g91037_)))))) + _g91041_)))))) (define gx#core-expand-expression% - (lambda (_stx89369_) - (let* ((_e8937089380_ _stx89369_) - (_E8937289384_ + (lambda (_stx89373_) + (let* ((_e8937489384_ _stx89373_) + (_E8937689388_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8937089380_))) - (_E8937189406_ + _e8937489384_))) + (_E8937589410_ (lambda () - (if (gx#stx-pair? _e8937089380_) - (let ((_e8937389388_ (gx#syntax-e _e8937089380_))) - (let ((_hd8937489391_ (##car _e8937389388_)) - (_tl8937589393_ (##cdr _e8937389388_))) - (if (gx#stx-pair? _tl8937589393_) - (let ((_e8937689396_ - (gx#syntax-e _tl8937589393_))) - (let ((_hd8937789399_ (##car _e8937689396_)) - (_tl8937889401_ (##cdr _e8937689396_))) - (let ((_expr89404_ _hd8937789399_)) - (if (gx#stx-null? _tl8937889401_) + (if (gx#stx-pair? _e8937489384_) + (let ((_e8937789392_ (gx#syntax-e _e8937489384_))) + (let ((_hd8937889395_ (##car _e8937789392_)) + (_tl8937989397_ (##cdr _e8937789392_))) + (if (gx#stx-pair? _tl8937989397_) + (let ((_e8938089400_ + (gx#syntax-e _tl8937989397_))) + (let ((_hd8938189403_ (##car _e8938089400_)) + (_tl8938289405_ (##cdr _e8938089400_))) + (let ((_expr89408_ _hd8938189403_)) + (if (gx#stx-null? _tl8938289405_) (if '#t (gx#core-expand-expression - _expr89404_) - (_E8937289384_)) - (_E8937289384_))))) - (_E8937289384_)))) - (_E8937289384_))))) - (_E8937189406_)))) + _expr89408_) + (_E8937689388_)) + (_E8937689388_))))) + (_E8937689388_)))) + (_E8937689388_))))) + (_E8937589410_)))) (define gx#core-expand-quote% - (lambda (_stx89328_) - (let* ((_e8932989339_ _stx89328_) - (_E8933189343_ + (lambda (_stx89332_) + (let* ((_e8933389343_ _stx89332_) + (_E8933589347_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8932989339_))) - (_E8933089365_ + _e8933389343_))) + (_E8933489369_ (lambda () - (if (gx#stx-pair? _e8932989339_) - (let ((_e8933289347_ (gx#syntax-e _e8932989339_))) - (let ((_hd8933389350_ (##car _e8933289347_)) - (_tl8933489352_ (##cdr _e8933289347_))) - (if (gx#stx-pair? _tl8933489352_) - (let ((_e8933589355_ - (gx#syntax-e _tl8933489352_))) - (let ((_hd8933689358_ (##car _e8933589355_)) - (_tl8933789360_ (##cdr _e8933589355_))) - (let ((_e89363_ _hd8933689358_)) - (if (gx#stx-null? _tl8933789360_) + (if (gx#stx-pair? _e8933389343_) + (let ((_e8933689351_ (gx#syntax-e _e8933389343_))) + (let ((_hd8933789354_ (##car _e8933689351_)) + (_tl8933889356_ (##cdr _e8933689351_))) + (if (gx#stx-pair? _tl8933889356_) + (let ((_e8933989359_ + (gx#syntax-e _tl8933889356_))) + (let ((_hd8934089362_ (##car _e8933989359_)) + (_tl8934189364_ (##cdr _e8933989359_))) + (let ((_e89367_ _hd8934089362_)) + (if (gx#stx-null? _tl8934189364_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e89363_) + _e89367_) '())) - (gx#stx-source _stx89328_)) - (_E8933189343_)) - (_E8933189343_))))) - (_E8933189343_)))) - (_E8933189343_))))) - (_E8933089365_)))) + (gx#stx-source _stx89332_)) + (_E8933589347_)) + (_E8933589347_))))) + (_E8933589347_)))) + (_E8933589347_))))) + (_E8933489369_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx89287_) - (let* ((_e8928889298_ _stx89287_) - (_E8929089302_ + (lambda (_stx89291_) + (let* ((_e8929289302_ _stx89291_) + (_E8929489306_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8928889298_))) - (_E8928989324_ + _e8929289302_))) + (_E8929389328_ (lambda () - (if (gx#stx-pair? _e8928889298_) - (let ((_e8929189306_ (gx#syntax-e _e8928889298_))) - (let ((_hd8929289309_ (##car _e8929189306_)) - (_tl8929389311_ (##cdr _e8929189306_))) - (if (gx#stx-pair? _tl8929389311_) - (let ((_e8929489314_ - (gx#syntax-e _tl8929389311_))) - (let ((_hd8929589317_ (##car _e8929489314_)) - (_tl8929689319_ (##cdr _e8929489314_))) - (let ((_e89322_ _hd8929589317_)) - (if (gx#stx-null? _tl8929689319_) + (if (gx#stx-pair? _e8929289302_) + (let ((_e8929589310_ (gx#syntax-e _e8929289302_))) + (let ((_hd8929689313_ (##car _e8929589310_)) + (_tl8929789315_ (##cdr _e8929589310_))) + (if (gx#stx-pair? _tl8929789315_) + (let ((_e8929889318_ + (gx#syntax-e _tl8929789315_))) + (let ((_hd8929989321_ (##car _e8929889318_)) + (_tl8930089323_ (##cdr _e8929889318_))) + (let ((_e89326_ _hd8929989321_)) + (if (gx#stx-null? _tl8930089323_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e89322_) + _e89326_) '())) - (gx#stx-source _stx89287_)) - (_E8929089302_)) - (_E8929089302_))))) - (_E8929089302_)))) - (_E8929089302_))))) - (_E8928989324_)))) + (gx#stx-source _stx89291_)) + (_E8929489306_)) + (_E8929489306_))))) + (_E8929489306_)))) + (_E8929489306_))))) + (_E8929389328_)))) (define gx#core-expand-call% - (lambda (_stx89244_) - (let* ((_e8924589255_ _stx89244_) - (_E8924789259_ + (lambda (_stx89248_) + (let* ((_e8924989259_ _stx89248_) + (_E8925189263_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8924589255_))) - (_E8924689283_ + _e8924989259_))) + (_E8925089287_ (lambda () - (if (gx#stx-pair? _e8924589255_) - (let ((_e8924889263_ (gx#syntax-e _e8924589255_))) - (let ((_hd8924989266_ (##car _e8924889263_)) - (_tl8925089268_ (##cdr _e8924889263_))) - (if (gx#stx-pair? _tl8925089268_) - (let ((_e8925189271_ - (gx#syntax-e _tl8925089268_))) - (let ((_hd8925289274_ (##car _e8925189271_)) - (_tl8925389276_ (##cdr _e8925189271_))) - (let* ((_rator89279_ _hd8925289274_) - (_args89281_ _tl8925389276_)) - (if (gx#stx-list? _args89281_) + (if (gx#stx-pair? _e8924989259_) + (let ((_e8925289267_ (gx#syntax-e _e8924989259_))) + (let ((_hd8925389270_ (##car _e8925289267_)) + (_tl8925489272_ (##cdr _e8925289267_))) + (if (gx#stx-pair? _tl8925489272_) + (let ((_e8925589275_ + (gx#syntax-e _tl8925489272_))) + (let ((_hd8925689278_ (##car _e8925589275_)) + (_tl8925789280_ (##cdr _e8925589275_))) + (let* ((_rator89283_ _hd8925689278_) + (_args89285_ _tl8925789280_)) + (if (gx#stx-list? _args89285_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator89279_) + _rator89283_) (gx#stx-map1 gx#core-expand-expression - _args89281_)) - (gx#stx-source _stx89244_)) - (_E8924789259_))))) - (_E8924789259_)))) - (_E8924789259_))))) - (_E8924689283_)))) + _args89285_)) + (gx#stx-source _stx89248_)) + (_E8925189263_))))) + (_E8925189263_)))) + (_E8925189263_))))) + (_E8925089287_)))) (define gx#core-expand-if% - (lambda (_stx89177_) - (let* ((_e8917889194_ _stx89177_) - (_E8918089198_ + (lambda (_stx89181_) + (let* ((_e8918289198_ _stx89181_) + (_E8918489202_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8917889194_))) - (_E8917989240_ + _e8918289198_))) + (_E8918389244_ (lambda () - (if (gx#stx-pair? _e8917889194_) - (let ((_e8918189202_ (gx#syntax-e _e8917889194_))) - (let ((_hd8918289205_ (##car _e8918189202_)) - (_tl8918389207_ (##cdr _e8918189202_))) - (if (gx#stx-pair? _tl8918389207_) - (let ((_e8918489210_ - (gx#syntax-e _tl8918389207_))) - (let ((_hd8918589213_ (##car _e8918489210_)) - (_tl8918689215_ (##cdr _e8918489210_))) - (let ((_test89218_ _hd8918589213_)) - (if (gx#stx-pair? _tl8918689215_) - (let ((_e8918789220_ - (gx#syntax-e _tl8918689215_))) - (let ((_hd8918889223_ - (##car _e8918789220_)) - (_tl8918989225_ - (##cdr _e8918789220_))) - (let ((_K89228_ _hd8918889223_)) - (if (gx#stx-pair? _tl8918989225_) - (let ((_e8919089230_ + (if (gx#stx-pair? _e8918289198_) + (let ((_e8918589206_ (gx#syntax-e _e8918289198_))) + (let ((_hd8918689209_ (##car _e8918589206_)) + (_tl8918789211_ (##cdr _e8918589206_))) + (if (gx#stx-pair? _tl8918789211_) + (let ((_e8918889214_ + (gx#syntax-e _tl8918789211_))) + (let ((_hd8918989217_ (##car _e8918889214_)) + (_tl8919089219_ (##cdr _e8918889214_))) + (let ((_test89222_ _hd8918989217_)) + (if (gx#stx-pair? _tl8919089219_) + (let ((_e8919189224_ + (gx#syntax-e _tl8919089219_))) + (let ((_hd8919289227_ + (##car _e8919189224_)) + (_tl8919389229_ + (##cdr _e8919189224_))) + (let ((_K89232_ _hd8919289227_)) + (if (gx#stx-pair? _tl8919389229_) + (let ((_e8919489234_ (gx#syntax-e - _tl8918989225_))) - (let ((_hd8919189233_ - (##car _e8919089230_)) - (_tl8919289235_ - (##cdr _e8919089230_))) - (let ((_E89238_ - _hd8919189233_)) + _tl8919389229_))) + (let ((_hd8919589237_ + (##car _e8919489234_)) + (_tl8919689239_ + (##cdr _e8919489234_))) + (let ((_E89242_ + _hd8919589237_)) (if (gx#stx-null? - _tl8919289235_) + _tl8919689239_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test89218_) - (cons (gx#core-expand-expression _K89228_) + (cons (gx#core-expand-expression _test89222_) + (cons (gx#core-expand-expression _K89232_) (cons (gx#core-expand-expression - _E89238_) + _E89242_) '())))) - (gx#stx-source _stx89177_)) - (_E8918089198_)) - (_E8918089198_))))) + (gx#stx-source _stx89181_)) + (_E8918489202_)) + (_E8918489202_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8918089198_))))) - (_E8918089198_))))) - (_E8918089198_)))) - (_E8918089198_))))) - (_E8917989240_)))) + (_E8918489202_))))) + (_E8918489202_))))) + (_E8918489202_)))) + (_E8918489202_))))) + (_E8918389244_)))) (define gx#core-expand-ref% - (lambda (_stx89136_) - (let* ((_e8913789147_ _stx89136_) - (_E8913989151_ + (lambda (_stx89140_) + (let* ((_e8914189151_ _stx89140_) + (_E8914389155_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8913789147_))) - (_E8913889173_ + _e8914189151_))) + (_E8914289177_ (lambda () - (if (gx#stx-pair? _e8913789147_) - (let ((_e8914089155_ (gx#syntax-e _e8913789147_))) - (let ((_hd8914189158_ (##car _e8914089155_)) - (_tl8914289160_ (##cdr _e8914089155_))) - (if (gx#stx-pair? _tl8914289160_) - (let ((_e8914389163_ - (gx#syntax-e _tl8914289160_))) - (let ((_hd8914489166_ (##car _e8914389163_)) - (_tl8914589168_ (##cdr _e8914389163_))) - (let ((_id89171_ _hd8914489166_)) - (if (gx#stx-null? _tl8914589168_) - (if (gx#identifier? _id89171_) + (if (gx#stx-pair? _e8914189151_) + (let ((_e8914489159_ (gx#syntax-e _e8914189151_))) + (let ((_hd8914589162_ (##car _e8914489159_)) + (_tl8914689164_ (##cdr _e8914489159_))) + (if (gx#stx-pair? _tl8914689164_) + (let ((_e8914789167_ + (gx#syntax-e _tl8914689164_))) + (let ((_hd8914889170_ (##car _e8914789167_)) + (_tl8914989172_ (##cdr _e8914789167_))) + (let ((_id89175_ _hd8914889170_)) + (if (gx#stx-null? _tl8914989172_) + (if (gx#identifier? _id89175_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id89171_ - _stx89136_) + _id89175_ + _stx89140_) '())) - (gx#stx-source _stx89136_)) - (_E8913989151_)) - (_E8913989151_))))) - (_E8913989151_)))) - (_E8913989151_))))) - (_E8913889173_)))) + (gx#stx-source _stx89140_)) + (_E8914389155_)) + (_E8914389155_))))) + (_E8914389155_)))) + (_E8914389155_))))) + (_E8914289177_)))) (define gx#core-expand-setq% - (lambda (_stx89082_) - (let* ((_e8908389096_ _stx89082_) - (_E8908589100_ + (lambda (_stx89086_) + (let* ((_e8908789100_ _stx89086_) + (_E8908989104_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8908389096_))) - (_E8908489132_ + _e8908789100_))) + (_E8908889136_ (lambda () - (if (gx#stx-pair? _e8908389096_) - (let ((_e8908689104_ (gx#syntax-e _e8908389096_))) - (let ((_hd8908789107_ (##car _e8908689104_)) - (_tl8908889109_ (##cdr _e8908689104_))) - (if (gx#stx-pair? _tl8908889109_) - (let ((_e8908989112_ - (gx#syntax-e _tl8908889109_))) - (let ((_hd8909089115_ (##car _e8908989112_)) - (_tl8909189117_ (##cdr _e8908989112_))) - (let ((_id89120_ _hd8909089115_)) - (if (gx#stx-pair? _tl8909189117_) - (let ((_e8909289122_ - (gx#syntax-e _tl8909189117_))) - (let ((_hd8909389125_ - (##car _e8909289122_)) - (_tl8909489127_ - (##cdr _e8909289122_))) - (let ((_expr89130_ _hd8909389125_)) - (if (gx#stx-null? _tl8909489127_) + (if (gx#stx-pair? _e8908789100_) + (let ((_e8909089108_ (gx#syntax-e _e8908789100_))) + (let ((_hd8909189111_ (##car _e8909089108_)) + (_tl8909289113_ (##cdr _e8909089108_))) + (if (gx#stx-pair? _tl8909289113_) + (let ((_e8909389116_ + (gx#syntax-e _tl8909289113_))) + (let ((_hd8909489119_ (##car _e8909389116_)) + (_tl8909589121_ (##cdr _e8909389116_))) + (let ((_id89124_ _hd8909489119_)) + (if (gx#stx-pair? _tl8909589121_) + (let ((_e8909689126_ + (gx#syntax-e _tl8909589121_))) + (let ((_hd8909789129_ + (##car _e8909689126_)) + (_tl8909889131_ + (##cdr _e8909689126_))) + (let ((_expr89134_ _hd8909789129_)) + (if (gx#stx-null? _tl8909889131_) (if (gx#identifier? - _id89120_) + _id89124_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id89120_ - _stx89082_) - (cons (gx#core-expand-expression _expr89130_) '()))) - (gx#stx-source _stx89082_)) - (_E8908589100_)) + _id89124_ + _stx89086_) + (cons (gx#core-expand-expression _expr89134_) '()))) + (gx#stx-source _stx89086_)) + (_E8908989104_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8908589100_))))) - (_E8908589100_))))) - (_E8908589100_)))) - (_E8908589100_))))) - (_E8908489132_)))) + (_E8908989104_))))) + (_E8908989104_))))) + (_E8908989104_)))) + (_E8908989104_))))) + (_E8908889136_)))) (define gx#macro-expand-extern - (lambda (_stx88930_) - (letrec ((_generate88932_ - (lambda (_body88962_) - (let _lp88964_ ((_rest88966_ _body88962_) - (_ns88967_ (gx#core-context-namespace__0)) - (_r88968_ '())) - (let* ((_e8896988984_ _rest88966_) - (_E8898288988_ + (lambda (_stx88934_) + (letrec ((_generate88936_ + (lambda (_body88966_) + (let _lp88968_ ((_rest88970_ _body88966_) + (_ns88971_ (gx#core-context-namespace__0)) + (_r88972_ '())) + (let* ((_e8897388988_ _rest88970_) + (_E8898688992_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8896988984_))) - (_E8897888992_ + _e8897388988_))) + (_E8898288996_ (lambda () - (if (gx#stx-null? _e8896988984_) - (if '#t (reverse _r88968_) (_E8898288988_)) - (_E8898288988_)))) - (_E8897189049_ + (if (gx#stx-null? _e8897388988_) + (if '#t (reverse _r88972_) (_E8898688992_)) + (_E8898688992_)))) + (_E8897589053_ (lambda () - (if (gx#stx-pair? _e8896988984_) - (let ((_e8897988996_ - (gx#syntax-e _e8896988984_))) - (let ((_hd8898088999_ - (##car _e8897988996_)) - (_tl8898189001_ - (##cdr _e8897988996_))) - (let* ((_hd89004_ _hd8898088999_) - (_rest89006_ _tl8898189001_)) + (if (gx#stx-pair? _e8897388988_) + (let ((_e8898389000_ + (gx#syntax-e _e8897388988_))) + (let ((_hd8898489003_ + (##car _e8898389000_)) + (_tl8898589005_ + (##cdr _e8898389000_))) + (let* ((_hd89008_ _hd8898489003_) + (_rest89010_ _tl8898589005_)) (if '#t - (if (gx#identifier? _hd89004_) - (_lp88964_ - _rest89006_ - _ns88967_ - (cons (cons _hd89004_ - (cons (if _ns88967_ + (if (gx#identifier? _hd89008_) + (_lp88968_ + _rest89010_ + _ns88971_ + (cons (cons _hd89008_ + (cons (if _ns88971_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd89004_ - _ns88967_ + _hd89008_ + _ns88971_ '"#" - _hd89004_) - _hd89004_) + _hd89008_) + _hd89008_) '())) - _r88968_)) + _r88972_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e8900789017_ - _hd89004_) - (_E8900989021_ + (let* ((_e8901189021_ + _hd89008_) + (_E8901389025_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8900789017_))) - (_E8900889045_ + _e8901189021_))) + (_E8901289049_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e8900789017_) - (let ((_e8901089025_ (gx#syntax-e _e8900789017_))) - (let ((_hd8901189028_ (##car _e8901089025_)) - (_tl8901289030_ (##cdr _e8901089025_))) - (let ((_id89033_ _hd8901189028_)) - (if (gx#stx-pair? _tl8901289030_) - (let ((_e8901389035_ - (gx#syntax-e _tl8901289030_))) - (let ((_hd8901489038_ - (##car _e8901389035_)) - (_tl8901589040_ - (##cdr _e8901389035_))) - (let ((_eid89043_ _hd8901489038_)) - (if (gx#stx-null? _tl8901589040_) - (if (and (gx#identifier? _id89033_) + _e8901189021_) + (let ((_e8901489029_ (gx#syntax-e _e8901189021_))) + (let ((_hd8901589032_ (##car _e8901489029_)) + (_tl8901689034_ (##cdr _e8901489029_))) + (let ((_id89037_ _hd8901589032_)) + (if (gx#stx-pair? _tl8901689034_) + (let ((_e8901789039_ + (gx#syntax-e _tl8901689034_))) + (let ((_hd8901889042_ + (##car _e8901789039_)) + (_tl8901989044_ + (##cdr _e8901789039_))) + (let ((_eid89047_ _hd8901889042_)) + (if (gx#stx-null? _tl8901989044_) + (if (and (gx#identifier? _id89037_) (gx#identifier? - _eid89043_)) - (_lp88964_ - _rest89006_ - _ns88967_ - (cons (cons _id89033_ - (cons _eid89043_ + _eid89047_)) + (_lp88968_ + _rest89010_ + _ns88971_ + (cons (cons _id89037_ + (cons _eid89047_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r88968_)) + _r88972_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8900989021_)) - (_E8900989021_))))) - (_E8900989021_))))) - (_E8900989021_))))) + (_E8901389025_)) + (_E8901389025_))))) + (_E8901389025_))))) + (_E8901389025_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8900889045_))) - (_E8897888992_))))) - (_E8897888992_)))) - (_E8897089078_ + (_E8901289049_))) + (_E8898288996_))))) + (_E8898288996_)))) + (_E8897489082_ (lambda () - (if (gx#stx-pair? _e8896988984_) - (let ((_e8897289053_ - (gx#syntax-e _e8896988984_))) - (let ((_hd8897389056_ - (##car _e8897289053_)) - (_tl8897489058_ - (##cdr _e8897289053_))) - (if (eq? (gx#stx-e _hd8897389056_) + (if (gx#stx-pair? _e8897388988_) + (let ((_e8897689057_ + (gx#syntax-e _e8897388988_))) + (let ((_hd8897789060_ + (##car _e8897689057_)) + (_tl8897889062_ + (##cdr _e8897689057_))) + (if (eq? (gx#stx-e _hd8897789060_) 'namespace:) - (if (gx#stx-pair? _tl8897489058_) - (let ((_e8897589061_ + (if (gx#stx-pair? _tl8897889062_) + (let ((_e8897989065_ (gx#syntax-e - _tl8897489058_))) - (let ((_hd8897689064_ - (##car _e8897589061_)) - (_tl8897789066_ - (##cdr _e8897589061_))) - (let* ((_ns89069_ - _hd8897689064_) - (_rest89071_ - _tl8897789066_)) + _tl8897889062_))) + (let ((_hd8898089068_ + (##car _e8897989065_)) + (_tl8898189070_ + (##cdr _e8897989065_))) + (let* ((_ns89073_ + _hd8898089068_) + (_rest89075_ + _tl8898189070_)) (if '#t - (let ((_ns89076_ + (let ((_ns89080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns89069_) - (symbol->string (gx#stx-e _ns89069_)) - (if (or (gx#stx-string? _ns89069_) - (gx#stx-false? _ns89069_)) - (gx#stx-e _ns89069_) + (if (gx#identifier? _ns89073_) + (symbol->string (gx#stx-e _ns89073_)) + (if (or (gx#stx-string? _ns89073_) + (gx#stx-false? _ns89073_)) + (gx#stx-e _ns89073_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _stx88930_ - _ns89069_))))) - (_lp88964_ _rest89071_ _ns89076_ _r88968_)) - (_E8897189049_))))) + _stx88934_ + _ns89073_))))) + (_lp88968_ _rest89075_ _ns89080_ _r88972_)) + (_E8897589053_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8897189049_)) - (_E8897189049_)))) - (_E8897189049_))))) - (_E8897089078_)))))) - (let* ((_e8893388940_ _stx88930_) - (_E8893588944_ + (_E8897589053_)) + (_E8897589053_)))) + (_E8897589053_))))) + (_E8897489082_)))))) + (let* ((_e8893788944_ _stx88934_) + (_E8893988948_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8893388940_))) - (_E8893488958_ + _e8893788944_))) + (_E8893888962_ (lambda () - (if (gx#stx-pair? _e8893388940_) - (let ((_e8893688948_ (gx#syntax-e _e8893388940_))) - (let ((_hd8893788951_ (##car _e8893688948_)) - (_tl8893888953_ (##cdr _e8893688948_))) - (let ((_body88956_ _tl8893888953_)) - (if (gx#stx-list? _body88956_) + (if (gx#stx-pair? _e8893788944_) + (let ((_e8894088952_ (gx#syntax-e _e8893788944_))) + (let ((_hd8894188955_ (##car _e8894088952_)) + (_tl8894288957_ (##cdr _e8894088952_))) + (let ((_body88960_ _tl8894288957_)) + (if (gx#stx-list? _body88960_) (gx#core-cons '%#extern - (_generate88932_ _body88956_)) - (_E8893588944_))))) - (_E8893588944_))))) - (_E8893488958_))))) + (_generate88936_ _body88960_)) + (_E8893988948_))))) + (_E8893988948_))))) + (_E8893888962_))))) (define gx#macro-expand-define-values - (lambda (_stx88876_) - (let* ((_e8887788890_ _stx88876_) - (_E8887988894_ + (lambda (_stx88880_) + (let* ((_e8888188894_ _stx88880_) + (_E8888388898_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8887788890_))) - (_E8887888926_ + _e8888188894_))) + (_E8888288930_ (lambda () - (if (gx#stx-pair? _e8887788890_) - (let ((_e8888088898_ (gx#syntax-e _e8887788890_))) - (let ((_hd8888188901_ (##car _e8888088898_)) - (_tl8888288903_ (##cdr _e8888088898_))) - (if (gx#stx-pair? _tl8888288903_) - (let ((_e8888388906_ - (gx#syntax-e _tl8888288903_))) - (let ((_hd8888488909_ (##car _e8888388906_)) - (_tl8888588911_ (##cdr _e8888388906_))) - (let ((_hd88914_ _hd8888488909_)) - (if (gx#stx-pair? _tl8888588911_) - (let ((_e8888688916_ - (gx#syntax-e _tl8888588911_))) - (let ((_hd8888788919_ - (##car _e8888688916_)) - (_tl8888888921_ - (##cdr _e8888688916_))) - (let ((_expr88924_ _hd8888788919_)) - (if (gx#stx-null? _tl8888888921_) + (if (gx#stx-pair? _e8888188894_) + (let ((_e8888488902_ (gx#syntax-e _e8888188894_))) + (let ((_hd8888588905_ (##car _e8888488902_)) + (_tl8888688907_ (##cdr _e8888488902_))) + (if (gx#stx-pair? _tl8888688907_) + (let ((_e8888788910_ + (gx#syntax-e _tl8888688907_))) + (let ((_hd8888888913_ (##car _e8888788910_)) + (_tl8888988915_ (##cdr _e8888788910_))) + (let ((_hd88918_ _hd8888888913_)) + (if (gx#stx-pair? _tl8888988915_) + (let ((_e8889088920_ + (gx#syntax-e _tl8888988915_))) + (let ((_hd8889188923_ + (##car _e8889088920_)) + (_tl8889288925_ + (##cdr _e8889088920_))) + (let ((_expr88928_ _hd8889188923_)) + (if (gx#stx-null? _tl8889288925_) (if (gx#stx-andmap gx#identifier? - _hd88914_) + _hd88918_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd88914_) - (cons _expr88924_ '()))) - (_E8887988894_)) + _hd88918_) + (cons _expr88928_ '()))) + (_E8888388898_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8887988894_))))) - (_E8887988894_))))) - (_E8887988894_)))) - (_E8887988894_))))) - (_E8887888926_)))) + (_E8888388898_))))) + (_E8888388898_))))) + (_E8888388898_)))) + (_E8888388898_))))) + (_E8888288930_)))) (define gx#macro-expand-define-syntax - (lambda (_stx88822_) - (let* ((_e8882388836_ _stx88822_) - (_E8882588840_ + (lambda (_stx88826_) + (let* ((_e8882788840_ _stx88826_) + (_E8882988844_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8882388836_))) - (_E8882488872_ + _e8882788840_))) + (_E8882888876_ (lambda () - (if (gx#stx-pair? _e8882388836_) - (let ((_e8882688844_ (gx#syntax-e _e8882388836_))) - (let ((_hd8882788847_ (##car _e8882688844_)) - (_tl8882888849_ (##cdr _e8882688844_))) - (if (gx#stx-pair? _tl8882888849_) - (let ((_e8882988852_ - (gx#syntax-e _tl8882888849_))) - (let ((_hd8883088855_ (##car _e8882988852_)) - (_tl8883188857_ (##cdr _e8882988852_))) - (let ((_hd88860_ _hd8883088855_)) - (if (gx#stx-pair? _tl8883188857_) - (let ((_e8883288862_ - (gx#syntax-e _tl8883188857_))) - (let ((_hd8883388865_ - (##car _e8883288862_)) - (_tl8883488867_ - (##cdr _e8883288862_))) - (let ((_expr88870_ _hd8883388865_)) - (if (gx#stx-null? _tl8883488867_) + (if (gx#stx-pair? _e8882788840_) + (let ((_e8883088848_ (gx#syntax-e _e8882788840_))) + (let ((_hd8883188851_ (##car _e8883088848_)) + (_tl8883288853_ (##cdr _e8883088848_))) + (if (gx#stx-pair? _tl8883288853_) + (let ((_e8883388856_ + (gx#syntax-e _tl8883288853_))) + (let ((_hd8883488859_ (##car _e8883388856_)) + (_tl8883588861_ (##cdr _e8883388856_))) + (let ((_hd88864_ _hd8883488859_)) + (if (gx#stx-pair? _tl8883588861_) + (let ((_e8883688866_ + (gx#syntax-e _tl8883588861_))) + (let ((_hd8883788869_ + (##car _e8883688866_)) + (_tl8883888871_ + (##cdr _e8883688866_))) + (let ((_expr88874_ _hd8883788869_)) + (if (gx#stx-null? _tl8883888871_) (if (gx#identifier? - _hd88860_) + _hd88864_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd88860_ + (cons _hd88864_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr88870_ '()))) - (_E8882588840_)) + (cons _expr88874_ '()))) + (_E8882988844_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8882588840_))))) - (_E8882588840_))))) - (_E8882588840_)))) - (_E8882588840_))))) - (_E8882488872_)))) + (_E8882988844_))))) + (_E8882988844_))))) + (_E8882988844_)))) + (_E8882988844_))))) + (_E8882888876_)))) (define gx#macro-expand-define-alias - (lambda (_stx88768_) - (let* ((_e8876988782_ _stx88768_) - (_E8877188786_ + (lambda (_stx88772_) + (let* ((_e8877388786_ _stx88772_) + (_E8877588790_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8876988782_))) - (_E8877088818_ + _e8877388786_))) + (_E8877488822_ (lambda () - (if (gx#stx-pair? _e8876988782_) - (let ((_e8877288790_ (gx#syntax-e _e8876988782_))) - (let ((_hd8877388793_ (##car _e8877288790_)) - (_tl8877488795_ (##cdr _e8877288790_))) - (if (gx#stx-pair? _tl8877488795_) - (let ((_e8877588798_ - (gx#syntax-e _tl8877488795_))) - (let ((_hd8877688801_ (##car _e8877588798_)) - (_tl8877788803_ (##cdr _e8877588798_))) - (let ((_id88806_ _hd8877688801_)) - (if (gx#stx-pair? _tl8877788803_) - (let ((_e8877888808_ - (gx#syntax-e _tl8877788803_))) - (let ((_hd8877988811_ - (##car _e8877888808_)) - (_tl8878088813_ - (##cdr _e8877888808_))) - (let ((_alias-id88816_ - _hd8877988811_)) - (if (gx#stx-null? _tl8878088813_) + (if (gx#stx-pair? _e8877388786_) + (let ((_e8877688794_ (gx#syntax-e _e8877388786_))) + (let ((_hd8877788797_ (##car _e8877688794_)) + (_tl8877888799_ (##cdr _e8877688794_))) + (if (gx#stx-pair? _tl8877888799_) + (let ((_e8877988802_ + (gx#syntax-e _tl8877888799_))) + (let ((_hd8878088805_ (##car _e8877988802_)) + (_tl8878188807_ (##cdr _e8877988802_))) + (let ((_id88810_ _hd8878088805_)) + (if (gx#stx-pair? _tl8878188807_) + (let ((_e8878288812_ + (gx#syntax-e _tl8878188807_))) + (let ((_hd8878388815_ + (##car _e8878288812_)) + (_tl8878488817_ + (##cdr _e8878288812_))) + (let ((_alias-id88820_ + _hd8878388815_)) + (if (gx#stx-null? _tl8878488817_) (if (and (gx#identifier? - _id88806_) + _id88810_) (gx#identifier? - _alias-id88816_)) + _alias-id88820_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id88806_ + (cons _id88810_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id88816_ '()))) - (_E8877188786_)) + (cons _alias-id88820_ '()))) + (_E8877588790_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8877188786_))))) - (_E8877188786_))))) - (_E8877188786_)))) - (_E8877188786_))))) - (_E8877088818_)))) + (_E8877588790_))))) + (_E8877588790_))))) + (_E8877588790_)))) + (_E8877588790_))))) + (_E8877488822_)))) (define gx#macro-expand-lambda% - (lambda (_stx88725_) - (let* ((_e8872688736_ _stx88725_) - (_E8872888740_ + (lambda (_stx88729_) + (let* ((_e8873088740_ _stx88729_) + (_E8873288744_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8872688736_))) - (_E8872788764_ + _e8873088740_))) + (_E8873188768_ (lambda () - (if (gx#stx-pair? _e8872688736_) - (let ((_e8872988744_ (gx#syntax-e _e8872688736_))) - (let ((_hd8873088747_ (##car _e8872988744_)) - (_tl8873188749_ (##cdr _e8872988744_))) - (if (gx#stx-pair? _tl8873188749_) - (let ((_e8873288752_ - (gx#syntax-e _tl8873188749_))) - (let ((_hd8873388755_ (##car _e8873288752_)) - (_tl8873488757_ (##cdr _e8873288752_))) - (let* ((_hd88760_ _hd8873388755_) - (_body88762_ _tl8873488757_)) + (if (gx#stx-pair? _e8873088740_) + (let ((_e8873388748_ (gx#syntax-e _e8873088740_))) + (let ((_hd8873488751_ (##car _e8873388748_)) + (_tl8873588753_ (##cdr _e8873388748_))) + (if (gx#stx-pair? _tl8873588753_) + (let ((_e8873688756_ + (gx#syntax-e _tl8873588753_))) + (let ((_hd8873788759_ (##car _e8873688756_)) + (_tl8873888761_ (##cdr _e8873688756_))) + (let* ((_hd88764_ _hd8873788759_) + (_body88766_ _tl8873888761_)) (if (and (gx#stx-andmap gx#identifier? - _hd88760_) - (gx#stx-list? _body88762_) - (not (gx#stx-null? _body88762_))) + _hd88764_) + (gx#stx-list? _body88766_) + (not (gx#stx-null? _body88766_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd88760_) - _body88762_) - (_E8872888740_))))) - (_E8872888740_)))) - (_E8872888740_))))) - (_E8872788764_)))) + _hd88764_) + _body88766_) + (_E8873288744_))))) + (_E8873288744_)))) + (_E8873288744_))))) + (_E8873188768_)))) (define gx#macro-expand-case-lambda - (lambda (_stx88661_) - (letrec ((_generate88663_ - (lambda (_clause88693_) - (let* ((_e8869488701_ _clause88693_) - (_E8869688705_ + (lambda (_stx88665_) + (letrec ((_generate88667_ + (lambda (_clause88697_) + (let* ((_e8869888705_ _clause88697_) + (_E8870088709_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx88661_ - _clause88693_))) - (_E8869588721_ + _stx88665_ + _clause88697_))) + (_E8869988725_ (lambda () - (if (gx#stx-pair? _e8869488701_) - (let ((_e8869788709_ - (gx#syntax-e _e8869488701_))) - (let ((_hd8869888712_ - (##car _e8869788709_)) - (_tl8869988714_ - (##cdr _e8869788709_))) - (let* ((_hd88717_ _hd8869888712_) - (_body88719_ _tl8869988714_)) + (if (gx#stx-pair? _e8869888705_) + (let ((_e8870188713_ + (gx#syntax-e _e8869888705_))) + (let ((_hd8870288716_ + (##car _e8870188713_)) + (_tl8870388718_ + (##cdr _e8870188713_))) + (let* ((_hd88721_ _hd8870288716_) + (_body88723_ _tl8870388718_)) (if (and (gx#stx-andmap gx#identifier? - _hd88717_) - (gx#stx-list? _body88719_) + _hd88721_) + (gx#stx-list? _body88723_) (not (gx#stx-null? - _body88719_))) + _body88723_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd88717_) - _body88719_) - (gx#stx-source _clause88693_)) - (_E8869688705_))))) - (_E8869688705_))))) - (_E8869588721_))))) - (let* ((_e8866488671_ _stx88661_) - (_E8866688675_ + _hd88721_) + _body88723_) + (gx#stx-source _clause88697_)) + (_E8870088709_))))) + (_E8870088709_))))) + (_E8869988725_))))) + (let* ((_e8866888675_ _stx88665_) + (_E8867088679_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8866488671_))) - (_E8866588689_ + _e8866888675_))) + (_E8866988693_ (lambda () - (if (gx#stx-pair? _e8866488671_) - (let ((_e8866788679_ (gx#syntax-e _e8866488671_))) - (let ((_hd8866888682_ (##car _e8866788679_)) - (_tl8866988684_ (##cdr _e8866788679_))) - (let ((_clauses88687_ _tl8866988684_)) - (if (gx#stx-list? _clauses88687_) + (if (gx#stx-pair? _e8866888675_) + (let ((_e8867188683_ (gx#syntax-e _e8866888675_))) + (let ((_hd8867288686_ (##car _e8867188683_)) + (_tl8867388688_ (##cdr _e8867188683_))) + (let ((_clauses88691_ _tl8867388688_)) + (if (gx#stx-list? _clauses88691_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate88663_ - _clauses88687_)) - (_E8866688675_))))) - (_E8866688675_))))) - (_E8866588689_))))) + _generate88667_ + _clauses88691_)) + (_E8867088679_))))) + (_E8867088679_))))) + (_E8866988693_))))) (define gx#macro-expand-let-values__% - (lambda (_stx88562_ _form88563_) - (letrec ((_generate88565_ - (lambda (_bind88608_) - (let* ((_e8860988619_ _bind88608_) - (_E8861188623_ + (lambda (_stx88566_ _form88567_) + (letrec ((_generate88569_ + (lambda (_bind88612_) + (let* ((_e8861388623_ _bind88612_) + (_E8861588627_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx88562_ - _bind88608_))) - (_E8861088647_ + _stx88566_ + _bind88612_))) + (_E8861488651_ (lambda () - (if (gx#stx-pair? _e8860988619_) - (let ((_e8861288627_ - (gx#syntax-e _e8860988619_))) - (let ((_hd8861388630_ - (##car _e8861288627_)) - (_tl8861488632_ - (##cdr _e8861288627_))) - (let ((_ids88635_ _hd8861388630_)) - (if (gx#stx-pair? _tl8861488632_) - (let ((_e8861588637_ + (if (gx#stx-pair? _e8861388623_) + (let ((_e8861688631_ + (gx#syntax-e _e8861388623_))) + (let ((_hd8861788634_ + (##car _e8861688631_)) + (_tl8861888636_ + (##cdr _e8861688631_))) + (let ((_ids88639_ _hd8861788634_)) + (if (gx#stx-pair? _tl8861888636_) + (let ((_e8861988641_ (gx#syntax-e - _tl8861488632_))) - (let ((_hd8861688640_ - (##car _e8861588637_)) - (_tl8861788642_ - (##cdr _e8861588637_))) - (let ((_expr88645_ - _hd8861688640_)) + _tl8861888636_))) + (let ((_hd8862088644_ + (##car _e8861988641_)) + (_tl8862188646_ + (##cdr _e8861988641_))) + (let ((_expr88649_ + _hd8862088644_)) (if (gx#stx-null? - _tl8861788642_) + _tl8862188646_) (if (gx#stx-andmap gx#identifier? - _ids88635_) + _ids88639_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids88635_) - (cons _expr88645_ '())) - (_E8861188623_)) - (_E8861188623_))))) + _ids88639_) + (cons _expr88649_ '())) + (_E8861588627_)) + (_E8861588627_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8861188623_))))) - (_E8861188623_))))) - (_E8861088647_))))) - (let* ((_e8856688576_ _stx88562_) - (_E8856888580_ + (_E8861588627_))))) + (_E8861588627_))))) + (_E8861488651_))))) + (let* ((_e8857088580_ _stx88566_) + (_E8857288584_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8856688576_))) - (_E8856788604_ + _e8857088580_))) + (_E8857188608_ (lambda () - (if (gx#stx-pair? _e8856688576_) - (let ((_e8856988584_ (gx#syntax-e _e8856688576_))) - (let ((_hd8857088587_ (##car _e8856988584_)) - (_tl8857188589_ (##cdr _e8856988584_))) - (if (gx#stx-pair? _tl8857188589_) - (let ((_e8857288592_ - (gx#syntax-e _tl8857188589_))) - (let ((_hd8857388595_ (##car _e8857288592_)) - (_tl8857488597_ (##cdr _e8857288592_))) - (let* ((_hd88600_ _hd8857388595_) - (_body88602_ _tl8857488597_)) - (if (and (gx#stx-list? _hd88600_) - (gx#stx-list? _body88602_) + (if (gx#stx-pair? _e8857088580_) + (let ((_e8857388588_ (gx#syntax-e _e8857088580_))) + (let ((_hd8857488591_ (##car _e8857388588_)) + (_tl8857588593_ (##cdr _e8857388588_))) + (if (gx#stx-pair? _tl8857588593_) + (let ((_e8857688596_ + (gx#syntax-e _tl8857588593_))) + (let ((_hd8857788599_ (##car _e8857688596_)) + (_tl8857888601_ (##cdr _e8857688596_))) + (let* ((_hd88604_ _hd8857788599_) + (_body88606_ _tl8857888601_)) + (if (and (gx#stx-list? _hd88604_) + (gx#stx-list? _body88606_) (not (gx#stx-null? - _body88602_))) + _body88606_))) (gx#core-cons* - _form88563_ + _form88567_ (gx#stx-map1 - _generate88565_ - _hd88600_) - _body88602_) - (_E8856888580_))))) - (_E8856888580_)))) - (_E8856888580_))))) - (_E8856788604_))))) + _generate88569_ + _hd88604_) + _body88606_) + (_E8857288584_))))) + (_E8857288584_)))) + (_E8857288584_))))) + (_E8857188608_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx88654_) - (let ((_form88656_ '%#let-values)) - (gx#macro-expand-let-values__% _stx88654_ _form88656_)))) + (lambda (_stx88658_) + (let ((_form88660_ '%#let-values)) + (gx#macro-expand-let-values__% _stx88658_ _form88660_)))) (define gx#macro-expand-let-values - (lambda _g91039_ - (let ((_g91038_ (##length _g91039_))) - (cond ((##fx= _g91038_ 1) - (apply (lambda (_stx88654_) - (gx#macro-expand-let-values__0 _stx88654_)) - _g91039_)) - ((##fx= _g91038_ 2) - (apply (lambda (_stx88658_ _form88659_) + (lambda _g91043_ + (let ((_g91042_ (##length _g91043_))) + (cond ((##fx= _g91042_ 1) + (apply (lambda (_stx88658_) + (gx#macro-expand-let-values__0 _stx88658_)) + _g91043_)) + ((##fx= _g91042_ 2) + (apply (lambda (_stx88662_ _form88663_) (gx#macro-expand-let-values__% - _stx88658_ - _form88659_)) - _g91039_)) + _stx88662_ + _form88663_)) + _g91043_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g91039_)))))) + _g91043_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx88559_) - (gx#macro-expand-let-values__% _stx88559_ '%#letrec-values))) + (lambda (_stx88563_) + (gx#macro-expand-let-values__% _stx88563_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx88557_) - (gx#macro-expand-let-values__% _stx88557_ '%#letrec*-values))) + (lambda (_stx88561_) + (gx#macro-expand-let-values__% _stx88561_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx88448_) - (let* ((_e8844988475_ _stx88448_) - (_E8846188479_ + (lambda (_stx88452_) + (let* ((_e8845388479_ _stx88452_) + (_E8846588483_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8844988475_))) - (_E8845188521_ + _e8845388479_))) + (_E8845588525_ (lambda () - (if (gx#stx-pair? _e8844988475_) - (let ((_e8846288483_ (gx#syntax-e _e8844988475_))) - (let ((_hd8846388486_ (##car _e8846288483_)) - (_tl8846488488_ (##cdr _e8846288483_))) - (if (gx#stx-pair? _tl8846488488_) - (let ((_e8846588491_ - (gx#syntax-e _tl8846488488_))) - (let ((_hd8846688494_ (##car _e8846588491_)) - (_tl8846788496_ (##cdr _e8846588491_))) - (let ((_test88499_ _hd8846688494_)) - (if (gx#stx-pair? _tl8846788496_) - (let ((_e8846888501_ - (gx#syntax-e _tl8846788496_))) - (let ((_hd8846988504_ - (##car _e8846888501_)) - (_tl8847088506_ - (##cdr _e8846888501_))) - (let ((_K88509_ _hd8846988504_)) - (if (gx#stx-pair? _tl8847088506_) - (let ((_e8847188511_ + (if (gx#stx-pair? _e8845388479_) + (let ((_e8846688487_ (gx#syntax-e _e8845388479_))) + (let ((_hd8846788490_ (##car _e8846688487_)) + (_tl8846888492_ (##cdr _e8846688487_))) + (if (gx#stx-pair? _tl8846888492_) + (let ((_e8846988495_ + (gx#syntax-e _tl8846888492_))) + (let ((_hd8847088498_ (##car _e8846988495_)) + (_tl8847188500_ (##cdr _e8846988495_))) + (let ((_test88503_ _hd8847088498_)) + (if (gx#stx-pair? _tl8847188500_) + (let ((_e8847288505_ + (gx#syntax-e _tl8847188500_))) + (let ((_hd8847388508_ + (##car _e8847288505_)) + (_tl8847488510_ + (##cdr _e8847288505_))) + (let ((_K88513_ _hd8847388508_)) + (if (gx#stx-pair? _tl8847488510_) + (let ((_e8847588515_ (gx#syntax-e - _tl8847088506_))) - (let ((_hd8847288514_ - (##car _e8847188511_)) - (_tl8847388516_ - (##cdr _e8847188511_))) - (let ((_E88519_ - _hd8847288514_)) + _tl8847488510_))) + (let ((_hd8847688518_ + (##car _e8847588515_)) + (_tl8847788520_ + (##cdr _e8847588515_))) + (let ((_E88523_ + _hd8847688518_)) (if (gx#stx-null? - _tl8847388516_) + _tl8847788520_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test88499_ - _K88509_ - _E88519_) - (_E8846188479_)) - (_E8846188479_))))) + _test88503_ + _K88513_ + _E88523_) + (_E8846588483_)) + (_E8846588483_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8846188479_))))) - (_E8846188479_))))) - (_E8846188479_)))) - (_E8846188479_)))) - (_E8845088553_ + (_E8846588483_))))) + (_E8846588483_))))) + (_E8846588483_)))) + (_E8846588483_)))) + (_E8845488557_ (lambda () - (if (gx#stx-pair? _e8844988475_) - (let ((_e8845288525_ (gx#syntax-e _e8844988475_))) - (let ((_hd8845388528_ (##car _e8845288525_)) - (_tl8845488530_ (##cdr _e8845288525_))) - (if (gx#stx-pair? _tl8845488530_) - (let ((_e8845588533_ - (gx#syntax-e _tl8845488530_))) - (let ((_hd8845688536_ (##car _e8845588533_)) - (_tl8845788538_ (##cdr _e8845588533_))) - (let ((_test88541_ _hd8845688536_)) - (if (gx#stx-pair? _tl8845788538_) - (let ((_e8845888543_ - (gx#syntax-e _tl8845788538_))) - (let ((_hd8845988546_ - (##car _e8845888543_)) - (_tl8846088548_ - (##cdr _e8845888543_))) - (let ((_K88551_ _hd8845988546_)) - (if (gx#stx-null? _tl8846088548_) + (if (gx#stx-pair? _e8845388479_) + (let ((_e8845688529_ (gx#syntax-e _e8845388479_))) + (let ((_hd8845788532_ (##car _e8845688529_)) + (_tl8845888534_ (##cdr _e8845688529_))) + (if (gx#stx-pair? _tl8845888534_) + (let ((_e8845988537_ + (gx#syntax-e _tl8845888534_))) + (let ((_hd8846088540_ (##car _e8845988537_)) + (_tl8846188542_ (##cdr _e8845988537_))) + (let ((_test88545_ _hd8846088540_)) + (if (gx#stx-pair? _tl8846188542_) + (let ((_e8846288547_ + (gx#syntax-e _tl8846188542_))) + (let ((_hd8846388550_ + (##car _e8846288547_)) + (_tl8846488552_ + (##cdr _e8846288547_))) + (let ((_K88555_ _hd8846388550_)) + (if (gx#stx-null? _tl8846488552_) (if '#t (gx#core-list '%#if - _test88541_ - _K88551_ + _test88545_ + _K88555_ '#!void) - (_E8845188521_)) - (_E8845188521_))))) - (_E8845188521_))))) - (_E8845188521_)))) - (_E8845188521_))))) - (_E8845088553_)))) + (_E8845588525_)) + (_E8845588525_))))) + (_E8845588525_))))) + (_E8845588525_)))) + (_E8845588525_))))) + (_E8845488557_)))) (define gx#free-identifier=? - (lambda (_xid88436_ _yid88437_) - (let ((_xe88439_ (gx#resolve-identifier__0 _xid88436_)) - (_ye88440_ (gx#resolve-identifier__0 _yid88437_))) - (if (and _xe88439_ _ye88440_) - (let ((_$e88442_ (eq? _xe88439_ _ye88440_))) - (if _$e88442_ - _$e88442_ - (if (##structure-instance-of? _xe88439_ 'gx#binding::t) - (if (##structure-instance-of? _ye88440_ 'gx#binding::t) + (lambda (_xid88440_ _yid88441_) + (let ((_xe88443_ (gx#resolve-identifier__0 _xid88440_)) + (_ye88444_ (gx#resolve-identifier__0 _yid88441_))) + (if (and _xe88443_ _ye88444_) + (let ((_$e88446_ (eq? _xe88443_ _ye88444_))) + (if _$e88446_ + _$e88446_ + (if (##structure-instance-of? _xe88443_ 'gx#binding::t) + (if (##structure-instance-of? _ye88444_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _xe88439_ + _xe88443_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye88440_ + _ye88444_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe88439_ _ye88440_) + (if (or _xe88443_ _ye88444_) '#f - (gx#stx-eq? _xid88436_ _yid88437_)))))) + (gx#stx-eq? _xid88440_ _yid88441_)))))) (define gx#bound-identifier=? - (lambda (_xid88420_ _yid88421_) - (letrec ((_context88423_ - (lambda (_e88434_) + (lambda (_xid88424_ _yid88425_) + (letrec ((_context88427_ + (lambda (_e88438_) (if (##structure-direct-instance-of? - _e88434_ + _e88438_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e88434_ + _e88438_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks88424_ - (lambda (_e88432_) - (if (symbol? _e88432_) + (_marks88428_ + (lambda (_e88436_) + (if (symbol? _e88436_) '() (if (##structure-direct-instance-of? - _e88432_ + _e88436_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e88432_ + _e88436_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e88432_ + _e88436_ '4 gx#syntax-quote::t '#f))))) - (_unwrap88425_ - (lambda (_e88430_) - (if (symbol? _e88430_) - _e88430_ - (gx#syntax-local-unwrap _e88430_))))) - (let ((_x88427_ (_unwrap88425_ _xid88420_)) - (_y88428_ (_unwrap88425_ _yid88421_))) - (if (gx#stx-eq? _x88427_ _y88428_) - (if (eq? (_context88423_ _x88427_) (_context88423_ _y88428_)) - (equal? (_marks88424_ _x88427_) (_marks88424_ _y88428_)) + (_unwrap88429_ + (lambda (_e88434_) + (if (symbol? _e88434_) + _e88434_ + (gx#syntax-local-unwrap _e88434_))))) + (let ((_x88431_ (_unwrap88429_ _xid88424_)) + (_y88432_ (_unwrap88429_ _yid88425_))) + (if (gx#stx-eq? _x88431_ _y88432_) + (if (eq? (_context88427_ _x88431_) (_context88427_ _y88432_)) + (equal? (_marks88428_ _x88431_) (_marks88428_ _y88432_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx88418_) - (if (gx#identifier? _stx88418_) - (gx#core-identifier=? _stx88418_ '_) + (lambda (_stx88422_) + (if (gx#identifier? _stx88422_) + (gx#core-identifier=? _stx88422_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx88416_) - (if (gx#identifier? _stx88416_) - (gx#core-identifier=? _stx88416_ '...) + (lambda (_stx88420_) + (if (gx#identifier? _stx88420_) + (gx#core-identifier=? _stx88420_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x88414_) - (if (gx#identifier? _x88414_) - (if (not (gx#underscore? _x88414_)) _x88414_ '#f) + (lambda (_x88418_) + (if (gx#identifier? _x88418_) + (if (not (gx#underscore? _x88418_)) _x88418_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_stx88360_ _where88361_) - (let _lp88363_ ((_rest88365_ (gx#syntax->list _stx88360_))) - (let* ((_rest8836688374_ _rest88365_) - (_else8836888382_ (lambda () '#t)) - (_K8837088392_ - (lambda (_rest88385_ _hd88386_) - (if (not (gx#identifier? _hd88386_)) + (lambda (_stx88364_ _where88365_) + (let _lp88367_ ((_rest88369_ (gx#syntax->list _stx88364_))) + (let* ((_rest8837088378_ _rest88369_) + (_else8837288386_ (lambda () '#t)) + (_K8837488396_ + (lambda (_rest88389_ _hd88390_) + (if (not (gx#identifier? _hd88390_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where88361_ - _hd88386_) - (if (find (lambda (_g8838788389_) + _where88365_ + _hd88390_) + (if (find (lambda (_g8839188393_) (gx#bound-identifier=? - _g8838788389_ - _hd88386_)) - _rest88385_) + _g8839188393_ + _hd88390_)) + _rest88389_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where88361_ - _hd88386_) - (_lp88363_ _rest88385_)))))) - (if (##pair? _rest8836688374_) - (let ((_hd8837188395_ (##car _rest8836688374_)) - (_tl8837288397_ (##cdr _rest8836688374_))) - (let* ((_hd88400_ _hd8837188395_) - (_rest88402_ _tl8837288397_)) - (_K8837088392_ _rest88402_ _hd88400_))) - (_else8836888382_)))))) + _where88365_ + _hd88390_) + (_lp88367_ _rest88389_)))))) + (if (##pair? _rest8837088378_) + (let ((_hd8837588399_ (##car _rest8837088378_)) + (_tl8837688401_ (##cdr _rest8837088378_))) + (let* ((_hd88404_ _hd8837588399_) + (_rest88406_ _tl8837688401_)) + (_K8837488396_ _rest88406_ _hd88404_))) + (_else8837288386_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx88407_) - (let ((_where88409_ _stx88407_)) - (gx#check-duplicate-identifiers__% _stx88407_ _where88409_)))) + (lambda (_stx88411_) + (let ((_where88413_ _stx88411_)) + (gx#check-duplicate-identifiers__% _stx88411_ _where88413_)))) (define gx#check-duplicate-identifiers - (lambda _g91041_ - (let ((_g91040_ (##length _g91041_))) - (cond ((##fx= _g91040_ 1) - (apply (lambda (_stx88407_) - (gx#check-duplicate-identifiers__0 _stx88407_)) - _g91041_)) - ((##fx= _g91040_ 2) - (apply (lambda (_stx88411_ _where88412_) + (lambda _g91045_ + (let ((_g91044_ (##length _g91045_))) + (cond ((##fx= _g91044_ 1) + (apply (lambda (_stx88411_) + (gx#check-duplicate-identifiers__0 _stx88411_)) + _g91045_)) + ((##fx= _g91044_ 2) + (apply (lambda (_stx88415_ _where88416_) (gx#check-duplicate-identifiers__% - _stx88411_ - _where88412_)) - _g91041_)) + _stx88415_ + _where88416_)) + _g91045_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g91041_)))))) + _g91045_)))))) (define gx#core-bind-values? - (lambda (_stx88352_) + (lambda (_stx88356_) (gx#stx-andmap - (lambda (_x88354_) - (let ((_$e88356_ (gx#identifier? _x88354_))) - (if _$e88356_ _$e88356_ (gx#stx-false? _x88354_)))) - _stx88352_))) + (lambda (_x88358_) + (let ((_$e88360_ (gx#identifier? _x88358_))) + (if _$e88360_ _$e88360_ (gx#stx-false? _x88358_)))) + _stx88356_))) (define gx#core-bind-values!__% - (lambda (_stx88316_ _rebind?88317_ _phi88318_ _ctx88319_) + (lambda (_stx88320_ _rebind?88321_ _phi88322_ _ctx88323_) (gx#stx-for-each1 - (lambda (_id88321_) - (if (gx#identifier? _id88321_) + (lambda (_id88325_) + (if (gx#identifier? _id88325_) (gx#core-bind-runtime!__% - _id88321_ - _rebind?88317_ - _phi88318_ - _ctx88319_) + _id88325_ + _rebind?88321_ + _phi88322_ + _ctx88323_) '#!void)) - _stx88316_))) + _stx88320_))) (define gx#core-bind-values!__0 - (lambda (_stx88326_) - (let* ((_rebind?88328_ '#f) - (_phi88330_ (gx#current-expander-phi)) - (_ctx88332_ (gx#current-expander-context))) + (lambda (_stx88330_) + (let* ((_rebind?88332_ '#f) + (_phi88334_ (gx#current-expander-phi)) + (_ctx88336_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx88326_ - _rebind?88328_ - _phi88330_ - _ctx88332_)))) + _stx88330_ + _rebind?88332_ + _phi88334_ + _ctx88336_)))) (define gx#core-bind-values!__1 - (lambda (_stx88334_ _rebind?88335_) - (let* ((_phi88337_ (gx#current-expander-phi)) - (_ctx88339_ (gx#current-expander-context))) + (lambda (_stx88338_ _rebind?88339_) + (let* ((_phi88341_ (gx#current-expander-phi)) + (_ctx88343_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx88334_ - _rebind?88335_ - _phi88337_ - _ctx88339_)))) + _stx88338_ + _rebind?88339_ + _phi88341_ + _ctx88343_)))) (define gx#core-bind-values!__2 - (lambda (_stx88341_ _rebind?88342_ _phi88343_) - (let ((_ctx88345_ (gx#current-expander-context))) + (lambda (_stx88345_ _rebind?88346_ _phi88347_) + (let ((_ctx88349_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx88341_ - _rebind?88342_ - _phi88343_ - _ctx88345_)))) + _stx88345_ + _rebind?88346_ + _phi88347_ + _ctx88349_)))) (define gx#core-bind-values! - (lambda _g91043_ - (let ((_g91042_ (##length _g91043_))) - (cond ((##fx= _g91042_ 1) - (apply (lambda (_stx88326_) - (gx#core-bind-values!__0 _stx88326_)) - _g91043_)) - ((##fx= _g91042_ 2) - (apply (lambda (_stx88334_ _rebind?88335_) - (gx#core-bind-values!__1 _stx88334_ _rebind?88335_)) - _g91043_)) - ((##fx= _g91042_ 3) - (apply (lambda (_stx88341_ _rebind?88342_ _phi88343_) + (lambda _g91047_ + (let ((_g91046_ (##length _g91047_))) + (cond ((##fx= _g91046_ 1) + (apply (lambda (_stx88330_) + (gx#core-bind-values!__0 _stx88330_)) + _g91047_)) + ((##fx= _g91046_ 2) + (apply (lambda (_stx88338_ _rebind?88339_) + (gx#core-bind-values!__1 _stx88338_ _rebind?88339_)) + _g91047_)) + ((##fx= _g91046_ 3) + (apply (lambda (_stx88345_ _rebind?88346_ _phi88347_) (gx#core-bind-values!__2 - _stx88341_ - _rebind?88342_ - _phi88343_)) - _g91043_)) - ((##fx= _g91042_ 4) - (apply (lambda (_stx88347_ - _rebind?88348_ - _phi88349_ - _ctx88350_) + _stx88345_ + _rebind?88346_ + _phi88347_)) + _g91047_)) + ((##fx= _g91046_ 4) + (apply (lambda (_stx88351_ + _rebind?88352_ + _phi88353_ + _ctx88354_) (gx#core-bind-values!__% - _stx88347_ - _rebind?88348_ - _phi88349_ - _ctx88350_)) - _g91043_)) + _stx88351_ + _rebind?88352_ + _phi88353_ + _ctx88354_)) + _g91047_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g91043_)))))) + _g91047_)))))) (define gx#core-quote-bind-values - (lambda (_stx88311_) + (lambda (_stx88315_) (gx#stx-map1 - (lambda (_x88313_) - (if (gx#identifier? _x88313_) - (gx#core-quote-syntax__0 _x88313_) + (lambda (_x88317_) + (if (gx#identifier? _x88317_) + (gx#core-quote-syntax__0 _x88317_) '#f)) - _stx88311_))) + _stx88315_))) (define gx#core-runtime-ref? - (lambda (_stx88304_) - (if (gx#identifier? _stx88304_) - (let* ((_bind88306_ (gx#resolve-identifier__0 _stx88304_)) - (_$e88308_ (not _bind88306_))) - (if _$e88308_ - _$e88308_ + (lambda (_stx88308_) + (if (gx#identifier? _stx88308_) + (let* ((_bind88310_ (gx#resolve-identifier__0 _stx88308_)) + (_$e88312_ (not _bind88310_))) + (if _$e88312_ + _$e88312_ (##structure-instance-of? - _bind88306_ + _bind88310_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id88296_ _form88297_) - (let ((_bind88299_ (gx#resolve-identifier__0 _id88296_))) - (if (##structure-instance-of? _bind88299_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id88296_) - (if (not _bind88299_) + (lambda (_id88300_ _form88301_) + (let ((_bind88303_ (gx#resolve-identifier__0 _id88300_))) + (if (##structure-instance-of? _bind88303_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id88300_) + (if (not _bind88303_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id88296_))) - (gx#core-quote-syntax__0 _id88296_) + (gx#core-extern-symbol? (gx#stx-e _id88300_))) + (gx#core-quote-syntax__0 _id88300_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form88297_ - _id88296_)) + _form88301_ + _id88300_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form88297_ - _id88296_)))))) + _form88301_ + _id88300_)))))) (define gx#core-bind-runtime!__% - (lambda (_id88255_ _rebind?88256_ _phi88257_ _ctx88258_) - (let* ((_key88260_ (gx#core-identifier-key _id88255_)) - (_eid88262_ - (gx#make-binding-id__% _key88260_ '#f _phi88257_ _ctx88258_)) - (_bind88264_ - (if (##structure-instance-of? _ctx88258_ 'gx#module-context::t) + (lambda (_id88259_ _rebind?88260_ _phi88261_ _ctx88262_) + (let* ((_key88264_ (gx#core-identifier-key _id88259_)) + (_eid88266_ + (gx#make-binding-id__% _key88264_ '#f _phi88261_ _ctx88262_)) + (_bind88268_ + (if (##structure-instance-of? _ctx88262_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid88262_ - _key88260_ - _phi88257_ - _ctx88258_) + _eid88266_ + _key88264_ + _phi88261_ + _ctx88262_) (if (##structure-instance-of? - _ctx88258_ + _ctx88262_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid88262_ - _key88260_ - _phi88257_) + _eid88266_ + _key88264_ + _phi88261_) (if (##structure-instance-of? - _ctx88258_ + _ctx88262_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid88262_ - _key88260_ - _phi88257_) + _eid88266_ + _key88264_ + _phi88261_) (##structure gx#runtime-binding::t - _eid88262_ - _key88260_ - _phi88257_)))))) + _eid88266_ + _key88264_ + _phi88261_)))))) (gx#bind-identifier!__% - _id88255_ - _bind88264_ - _rebind?88256_ - _phi88257_ - _ctx88258_)))) + _id88259_ + _bind88268_ + _rebind?88260_ + _phi88261_ + _ctx88262_)))) (define gx#core-bind-runtime!__0 - (lambda (_id88270_) - (let* ((_rebind?88272_ '#f) - (_phi88274_ (gx#current-expander-phi)) - (_ctx88276_ (gx#current-expander-context))) + (lambda (_id88274_) + (let* ((_rebind?88276_ '#f) + (_phi88278_ (gx#current-expander-phi)) + (_ctx88280_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id88270_ - _rebind?88272_ - _phi88274_ - _ctx88276_)))) + _id88274_ + _rebind?88276_ + _phi88278_ + _ctx88280_)))) (define gx#core-bind-runtime!__1 - (lambda (_id88278_ _rebind?88279_) - (let* ((_phi88281_ (gx#current-expander-phi)) - (_ctx88283_ (gx#current-expander-context))) + (lambda (_id88282_ _rebind?88283_) + (let* ((_phi88285_ (gx#current-expander-phi)) + (_ctx88287_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id88278_ - _rebind?88279_ - _phi88281_ - _ctx88283_)))) + _id88282_ + _rebind?88283_ + _phi88285_ + _ctx88287_)))) (define gx#core-bind-runtime!__2 - (lambda (_id88285_ _rebind?88286_ _phi88287_) - (let ((_ctx88289_ (gx#current-expander-context))) + (lambda (_id88289_ _rebind?88290_ _phi88291_) + (let ((_ctx88293_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id88285_ - _rebind?88286_ - _phi88287_ - _ctx88289_)))) + _id88289_ + _rebind?88290_ + _phi88291_ + _ctx88293_)))) (define gx#core-bind-runtime! - (lambda _g91045_ - (let ((_g91044_ (##length _g91045_))) - (cond ((##fx= _g91044_ 1) - (apply (lambda (_id88270_) - (gx#core-bind-runtime!__0 _id88270_)) - _g91045_)) - ((##fx= _g91044_ 2) - (apply (lambda (_id88278_ _rebind?88279_) - (gx#core-bind-runtime!__1 _id88278_ _rebind?88279_)) - _g91045_)) - ((##fx= _g91044_ 3) - (apply (lambda (_id88285_ _rebind?88286_ _phi88287_) + (lambda _g91049_ + (let ((_g91048_ (##length _g91049_))) + (cond ((##fx= _g91048_ 1) + (apply (lambda (_id88274_) + (gx#core-bind-runtime!__0 _id88274_)) + _g91049_)) + ((##fx= _g91048_ 2) + (apply (lambda (_id88282_ _rebind?88283_) + (gx#core-bind-runtime!__1 _id88282_ _rebind?88283_)) + _g91049_)) + ((##fx= _g91048_ 3) + (apply (lambda (_id88289_ _rebind?88290_ _phi88291_) (gx#core-bind-runtime!__2 - _id88285_ - _rebind?88286_ - _phi88287_)) - _g91045_)) - ((##fx= _g91044_ 4) - (apply (lambda (_id88291_ - _rebind?88292_ - _phi88293_ - _ctx88294_) + _id88289_ + _rebind?88290_ + _phi88291_)) + _g91049_)) + ((##fx= _g91048_ 4) + (apply (lambda (_id88295_ + _rebind?88296_ + _phi88297_ + _ctx88298_) (gx#core-bind-runtime!__% - _id88291_ - _rebind?88292_ - _phi88293_ - _ctx88294_)) - _g91045_)) + _id88295_ + _rebind?88296_ + _phi88297_ + _ctx88298_)) + _g91049_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g91045_)))))) + _g91049_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id88210_ _eid88211_ _rebind?88212_ _phi88213_ _ctx88214_) - (let* ((_key88216_ (gx#core-identifier-key _id88210_)) - (_bind88218_ - (if (##structure-instance-of? _ctx88214_ 'gx#module-context::t) + (lambda (_id88214_ _eid88215_ _rebind?88216_ _phi88217_ _ctx88218_) + (let* ((_key88220_ (gx#core-identifier-key _id88214_)) + (_bind88222_ + (if (##structure-instance-of? _ctx88218_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid88211_ - _key88216_ - _phi88213_ - _ctx88214_) + _eid88215_ + _key88220_ + _phi88217_ + _ctx88218_) (if (##structure-instance-of? - _ctx88214_ + _ctx88218_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid88211_ - _key88216_ - _phi88213_) + _eid88215_ + _key88220_ + _phi88217_) (##structure gx#runtime-binding::t - _eid88211_ - _key88216_ - _phi88213_))))) + _eid88215_ + _key88220_ + _phi88217_))))) (gx#bind-identifier!__% - _id88210_ - _bind88218_ - _rebind?88212_ - _phi88213_ - _ctx88214_)))) + _id88214_ + _bind88222_ + _rebind?88216_ + _phi88217_ + _ctx88218_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id88224_ _eid88225_) - (let* ((_rebind?88227_ '#f) - (_phi88229_ (gx#current-expander-phi)) - (_ctx88231_ (gx#current-expander-context))) + (lambda (_id88228_ _eid88229_) + (let* ((_rebind?88231_ '#f) + (_phi88233_ (gx#current-expander-phi)) + (_ctx88235_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id88224_ - _eid88225_ - _rebind?88227_ - _phi88229_ - _ctx88231_)))) + _id88228_ + _eid88229_ + _rebind?88231_ + _phi88233_ + _ctx88235_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id88233_ _eid88234_ _rebind?88235_) - (let* ((_phi88237_ (gx#current-expander-phi)) - (_ctx88239_ (gx#current-expander-context))) + (lambda (_id88237_ _eid88238_ _rebind?88239_) + (let* ((_phi88241_ (gx#current-expander-phi)) + (_ctx88243_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id88233_ - _eid88234_ - _rebind?88235_ - _phi88237_ - _ctx88239_)))) + _id88237_ + _eid88238_ + _rebind?88239_ + _phi88241_ + _ctx88243_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id88241_ _eid88242_ _rebind?88243_ _phi88244_) - (let ((_ctx88246_ (gx#current-expander-context))) + (lambda (_id88245_ _eid88246_ _rebind?88247_ _phi88248_) + (let ((_ctx88250_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id88241_ - _eid88242_ - _rebind?88243_ - _phi88244_ - _ctx88246_)))) + _id88245_ + _eid88246_ + _rebind?88247_ + _phi88248_ + _ctx88250_)))) (define gx#core-bind-runtime-reference! - (lambda _g91047_ - (let ((_g91046_ (##length _g91047_))) - (cond ((##fx= _g91046_ 2) - (apply (lambda (_id88224_ _eid88225_) + (lambda _g91051_ + (let ((_g91050_ (##length _g91051_))) + (cond ((##fx= _g91050_ 2) + (apply (lambda (_id88228_ _eid88229_) (gx#core-bind-runtime-reference!__0 - _id88224_ - _eid88225_)) - _g91047_)) - ((##fx= _g91046_ 3) - (apply (lambda (_id88233_ _eid88234_ _rebind?88235_) + _id88228_ + _eid88229_)) + _g91051_)) + ((##fx= _g91050_ 3) + (apply (lambda (_id88237_ _eid88238_ _rebind?88239_) (gx#core-bind-runtime-reference!__1 - _id88233_ - _eid88234_ - _rebind?88235_)) - _g91047_)) - ((##fx= _g91046_ 4) - (apply (lambda (_id88241_ - _eid88242_ - _rebind?88243_ - _phi88244_) + _id88237_ + _eid88238_ + _rebind?88239_)) + _g91051_)) + ((##fx= _g91050_ 4) + (apply (lambda (_id88245_ + _eid88246_ + _rebind?88247_ + _phi88248_) (gx#core-bind-runtime-reference!__2 - _id88241_ - _eid88242_ - _rebind?88243_ - _phi88244_)) - _g91047_)) - ((##fx= _g91046_ 5) - (apply (lambda (_id88248_ - _eid88249_ - _rebind?88250_ - _phi88251_ - _ctx88252_) + _id88245_ + _eid88246_ + _rebind?88247_ + _phi88248_)) + _g91051_)) + ((##fx= _g91050_ 5) + (apply (lambda (_id88252_ + _eid88253_ + _rebind?88254_ + _phi88255_ + _ctx88256_) (gx#core-bind-runtime-reference!__% - _id88248_ - _eid88249_ - _rebind?88250_ - _phi88251_ - _ctx88252_)) - _g91047_)) + _id88252_ + _eid88253_ + _rebind?88254_ + _phi88255_ + _ctx88256_)) + _g91051_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g91047_)))))) + _g91051_)))))) (define gx#core-bind-extern!__% - (lambda (_id88170_ _eid88171_ _rebind?88172_ _phi88173_ _ctx88174_) + (lambda (_id88174_ _eid88175_ _rebind?88176_ _phi88177_ _ctx88178_) (gx#bind-identifier!__% - _id88170_ + _id88174_ (##structure gx#extern-binding::t - _eid88171_ - (gx#core-identifier-key _id88170_) - _phi88173_) - _rebind?88172_ - _phi88173_ - _ctx88174_))) + _eid88175_ + (gx#core-identifier-key _id88174_) + _phi88177_) + _rebind?88176_ + _phi88177_ + _ctx88178_))) (define gx#core-bind-extern!__0 - (lambda (_id88179_ _eid88180_) - (let* ((_rebind?88182_ '#f) - (_phi88184_ (gx#current-expander-phi)) - (_ctx88186_ (gx#current-expander-context))) + (lambda (_id88183_ _eid88184_) + (let* ((_rebind?88186_ '#f) + (_phi88188_ (gx#current-expander-phi)) + (_ctx88190_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id88179_ - _eid88180_ - _rebind?88182_ - _phi88184_ - _ctx88186_)))) + _id88183_ + _eid88184_ + _rebind?88186_ + _phi88188_ + _ctx88190_)))) (define gx#core-bind-extern!__1 - (lambda (_id88188_ _eid88189_ _rebind?88190_) - (let* ((_phi88192_ (gx#current-expander-phi)) - (_ctx88194_ (gx#current-expander-context))) + (lambda (_id88192_ _eid88193_ _rebind?88194_) + (let* ((_phi88196_ (gx#current-expander-phi)) + (_ctx88198_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id88188_ - _eid88189_ - _rebind?88190_ - _phi88192_ - _ctx88194_)))) + _id88192_ + _eid88193_ + _rebind?88194_ + _phi88196_ + _ctx88198_)))) (define gx#core-bind-extern!__2 - (lambda (_id88196_ _eid88197_ _rebind?88198_ _phi88199_) - (let ((_ctx88201_ (gx#current-expander-context))) + (lambda (_id88200_ _eid88201_ _rebind?88202_ _phi88203_) + (let ((_ctx88205_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id88196_ - _eid88197_ - _rebind?88198_ - _phi88199_ - _ctx88201_)))) + _id88200_ + _eid88201_ + _rebind?88202_ + _phi88203_ + _ctx88205_)))) (define gx#core-bind-extern! - (lambda _g91049_ - (let ((_g91048_ (##length _g91049_))) - (cond ((##fx= _g91048_ 2) - (apply (lambda (_id88179_ _eid88180_) - (gx#core-bind-extern!__0 _id88179_ _eid88180_)) - _g91049_)) - ((##fx= _g91048_ 3) - (apply (lambda (_id88188_ _eid88189_ _rebind?88190_) + (lambda _g91053_ + (let ((_g91052_ (##length _g91053_))) + (cond ((##fx= _g91052_ 2) + (apply (lambda (_id88183_ _eid88184_) + (gx#core-bind-extern!__0 _id88183_ _eid88184_)) + _g91053_)) + ((##fx= _g91052_ 3) + (apply (lambda (_id88192_ _eid88193_ _rebind?88194_) (gx#core-bind-extern!__1 - _id88188_ - _eid88189_ - _rebind?88190_)) - _g91049_)) - ((##fx= _g91048_ 4) - (apply (lambda (_id88196_ - _eid88197_ - _rebind?88198_ - _phi88199_) + _id88192_ + _eid88193_ + _rebind?88194_)) + _g91053_)) + ((##fx= _g91052_ 4) + (apply (lambda (_id88200_ + _eid88201_ + _rebind?88202_ + _phi88203_) (gx#core-bind-extern!__2 - _id88196_ - _eid88197_ - _rebind?88198_ - _phi88199_)) - _g91049_)) - ((##fx= _g91048_ 5) - (apply (lambda (_id88203_ - _eid88204_ - _rebind?88205_ - _phi88206_ - _ctx88207_) + _id88200_ + _eid88201_ + _rebind?88202_ + _phi88203_)) + _g91053_)) + ((##fx= _g91052_ 5) + (apply (lambda (_id88207_ + _eid88208_ + _rebind?88209_ + _phi88210_ + _ctx88211_) (gx#core-bind-extern!__% - _id88203_ - _eid88204_ - _rebind?88205_ - _phi88206_ - _ctx88207_)) - _g91049_)) + _id88207_ + _eid88208_ + _rebind?88209_ + _phi88210_ + _ctx88211_)) + _g91053_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g91049_)))))) + _g91053_)))))) (define gx#core-bind-syntax!__% - (lambda (_id88124_ _e88125_ _rebind?88126_ _phi88127_ _ctx88128_) + (lambda (_id88128_ _e88129_ _rebind?88130_ _phi88131_ _ctx88132_) (gx#bind-identifier!__% - _id88124_ - (let ((_key88133_ (gx#core-identifier-key _id88124_)) - (_e88134_ - (if (or (##structure-instance-of? _e88125_ 'gx#expander::t) + _id88128_ + (let ((_key88137_ (gx#core-identifier-key _id88128_)) + (_e88138_ + (if (or (##structure-instance-of? _e88129_ 'gx#expander::t) (##structure-instance-of? - _e88125_ + _e88129_ 'gx#expander-context::t)) - _e88125_ + _e88129_ (##structure gx#user-expander::t - _e88125_ - _ctx88128_ - _phi88127_)))) + _e88129_ + _ctx88132_ + _phi88131_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key88133_ '#t _phi88127_ _ctx88128_) - _key88133_ - _phi88127_ - _e88134_)) - _rebind?88126_ - _phi88127_ - _ctx88128_))) + (gx#make-binding-id__% _key88137_ '#t _phi88131_ _ctx88132_) + _key88137_ + _phi88131_ + _e88138_)) + _rebind?88130_ + _phi88131_ + _ctx88132_))) (define gx#core-bind-syntax!__0 - (lambda (_id88139_ _e88140_) - (let* ((_rebind?88142_ '#f) - (_phi88144_ (gx#current-expander-phi)) - (_ctx88146_ (gx#current-expander-context))) + (lambda (_id88143_ _e88144_) + (let* ((_rebind?88146_ '#f) + (_phi88148_ (gx#current-expander-phi)) + (_ctx88150_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id88139_ - _e88140_ - _rebind?88142_ - _phi88144_ - _ctx88146_)))) + _id88143_ + _e88144_ + _rebind?88146_ + _phi88148_ + _ctx88150_)))) (define gx#core-bind-syntax!__1 - (lambda (_id88148_ _e88149_ _rebind?88150_) - (let* ((_phi88152_ (gx#current-expander-phi)) - (_ctx88154_ (gx#current-expander-context))) + (lambda (_id88152_ _e88153_ _rebind?88154_) + (let* ((_phi88156_ (gx#current-expander-phi)) + (_ctx88158_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id88148_ - _e88149_ - _rebind?88150_ - _phi88152_ - _ctx88154_)))) + _id88152_ + _e88153_ + _rebind?88154_ + _phi88156_ + _ctx88158_)))) (define gx#core-bind-syntax!__2 - (lambda (_id88156_ _e88157_ _rebind?88158_ _phi88159_) - (let ((_ctx88161_ (gx#current-expander-context))) + (lambda (_id88160_ _e88161_ _rebind?88162_ _phi88163_) + (let ((_ctx88165_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id88156_ - _e88157_ - _rebind?88158_ - _phi88159_ - _ctx88161_)))) + _id88160_ + _e88161_ + _rebind?88162_ + _phi88163_ + _ctx88165_)))) (define gx#core-bind-syntax! - (lambda _g91051_ - (let ((_g91050_ (##length _g91051_))) - (cond ((##fx= _g91050_ 2) - (apply (lambda (_id88139_ _e88140_) - (gx#core-bind-syntax!__0 _id88139_ _e88140_)) - _g91051_)) - ((##fx= _g91050_ 3) - (apply (lambda (_id88148_ _e88149_ _rebind?88150_) + (lambda _g91055_ + (let ((_g91054_ (##length _g91055_))) + (cond ((##fx= _g91054_ 2) + (apply (lambda (_id88143_ _e88144_) + (gx#core-bind-syntax!__0 _id88143_ _e88144_)) + _g91055_)) + ((##fx= _g91054_ 3) + (apply (lambda (_id88152_ _e88153_ _rebind?88154_) (gx#core-bind-syntax!__1 - _id88148_ - _e88149_ - _rebind?88150_)) - _g91051_)) - ((##fx= _g91050_ 4) - (apply (lambda (_id88156_ _e88157_ _rebind?88158_ _phi88159_) + _id88152_ + _e88153_ + _rebind?88154_)) + _g91055_)) + ((##fx= _g91054_ 4) + (apply (lambda (_id88160_ _e88161_ _rebind?88162_ _phi88163_) (gx#core-bind-syntax!__2 - _id88156_ - _e88157_ - _rebind?88158_ - _phi88159_)) - _g91051_)) - ((##fx= _g91050_ 5) - (apply (lambda (_id88163_ - _e88164_ - _rebind?88165_ - _phi88166_ - _ctx88167_) + _id88160_ + _e88161_ + _rebind?88162_ + _phi88163_)) + _g91055_)) + ((##fx= _g91054_ 5) + (apply (lambda (_id88167_ + _e88168_ + _rebind?88169_ + _phi88170_ + _ctx88171_) (gx#core-bind-syntax!__% - _id88163_ - _e88164_ - _rebind?88165_ - _phi88166_ - _ctx88167_)) - _g91051_)) + _id88167_ + _e88168_ + _rebind?88169_ + _phi88170_ + _ctx88171_)) + _g91055_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g91051_)))))) + _g91055_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id88107_ _e88108_ _rebind?88109_) + (lambda (_id88111_ _e88112_ _rebind?88113_) (gx#core-bind-syntax!__% - _id88107_ - _e88108_ - _rebind?88109_ + _id88111_ + _e88112_ + _rebind?88113_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id88114_ _e88115_) - (let ((_rebind?88117_ '#f)) - (gx#core-bind-root-syntax!__% _id88114_ _e88115_ _rebind?88117_)))) + (lambda (_id88118_ _e88119_) + (let ((_rebind?88121_ '#f)) + (gx#core-bind-root-syntax!__% _id88118_ _e88119_ _rebind?88121_)))) (define gx#core-bind-root-syntax! - (lambda _g91053_ - (let ((_g91052_ (##length _g91053_))) - (cond ((##fx= _g91052_ 2) - (apply (lambda (_id88114_ _e88115_) - (gx#core-bind-root-syntax!__0 _id88114_ _e88115_)) - _g91053_)) - ((##fx= _g91052_ 3) - (apply (lambda (_id88119_ _e88120_ _rebind?88121_) + (lambda _g91057_ + (let ((_g91056_ (##length _g91057_))) + (cond ((##fx= _g91056_ 2) + (apply (lambda (_id88118_ _e88119_) + (gx#core-bind-root-syntax!__0 _id88118_ _e88119_)) + _g91057_)) + ((##fx= _g91056_ 3) + (apply (lambda (_id88123_ _e88124_ _rebind?88125_) (gx#core-bind-root-syntax!__% - _id88119_ - _e88120_ - _rebind?88121_)) - _g91053_)) + _id88123_ + _e88124_ + _rebind?88125_)) + _g91057_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g91053_)))))) + _g91057_)))))) (define gx#core-bind-alias!__% - (lambda (_id88065_ _alias-id88066_ _rebind?88067_ _phi88068_ _ctx88069_) + (lambda (_id88069_ _alias-id88070_ _rebind?88071_ _phi88072_ _ctx88073_) (gx#bind-identifier!__% - _id88065_ - (let ((_key88071_ (gx#core-identifier-key _id88065_))) + _id88069_ + (let ((_key88075_ (gx#core-identifier-key _id88069_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key88071_ '#t _phi88068_ _ctx88069_) - _key88071_ - _phi88068_ - _alias-id88066_)) - _rebind?88067_ - _phi88068_ - _ctx88069_))) + (gx#make-binding-id__% _key88075_ '#t _phi88072_ _ctx88073_) + _key88075_ + _phi88072_ + _alias-id88070_)) + _rebind?88071_ + _phi88072_ + _ctx88073_))) (define gx#core-bind-alias!__0 - (lambda (_id88076_ _alias-id88077_) - (let* ((_rebind?88079_ '#f) - (_phi88081_ (gx#current-expander-phi)) - (_ctx88083_ (gx#current-expander-context))) + (lambda (_id88080_ _alias-id88081_) + (let* ((_rebind?88083_ '#f) + (_phi88085_ (gx#current-expander-phi)) + (_ctx88087_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id88076_ - _alias-id88077_ - _rebind?88079_ - _phi88081_ - _ctx88083_)))) + _id88080_ + _alias-id88081_ + _rebind?88083_ + _phi88085_ + _ctx88087_)))) (define gx#core-bind-alias!__1 - (lambda (_id88085_ _alias-id88086_ _rebind?88087_) - (let* ((_phi88089_ (gx#current-expander-phi)) - (_ctx88091_ (gx#current-expander-context))) + (lambda (_id88089_ _alias-id88090_ _rebind?88091_) + (let* ((_phi88093_ (gx#current-expander-phi)) + (_ctx88095_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id88085_ - _alias-id88086_ - _rebind?88087_ - _phi88089_ - _ctx88091_)))) + _id88089_ + _alias-id88090_ + _rebind?88091_ + _phi88093_ + _ctx88095_)))) (define gx#core-bind-alias!__2 - (lambda (_id88093_ _alias-id88094_ _rebind?88095_ _phi88096_) - (let ((_ctx88098_ (gx#current-expander-context))) + (lambda (_id88097_ _alias-id88098_ _rebind?88099_ _phi88100_) + (let ((_ctx88102_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id88093_ - _alias-id88094_ - _rebind?88095_ - _phi88096_ - _ctx88098_)))) + _id88097_ + _alias-id88098_ + _rebind?88099_ + _phi88100_ + _ctx88102_)))) (define gx#core-bind-alias! - (lambda _g91055_ - (let ((_g91054_ (##length _g91055_))) - (cond ((##fx= _g91054_ 2) - (apply (lambda (_id88076_ _alias-id88077_) - (gx#core-bind-alias!__0 _id88076_ _alias-id88077_)) - _g91055_)) - ((##fx= _g91054_ 3) - (apply (lambda (_id88085_ _alias-id88086_ _rebind?88087_) + (lambda _g91059_ + (let ((_g91058_ (##length _g91059_))) + (cond ((##fx= _g91058_ 2) + (apply (lambda (_id88080_ _alias-id88081_) + (gx#core-bind-alias!__0 _id88080_ _alias-id88081_)) + _g91059_)) + ((##fx= _g91058_ 3) + (apply (lambda (_id88089_ _alias-id88090_ _rebind?88091_) (gx#core-bind-alias!__1 - _id88085_ - _alias-id88086_ - _rebind?88087_)) - _g91055_)) - ((##fx= _g91054_ 4) - (apply (lambda (_id88093_ - _alias-id88094_ - _rebind?88095_ - _phi88096_) + _id88089_ + _alias-id88090_ + _rebind?88091_)) + _g91059_)) + ((##fx= _g91058_ 4) + (apply (lambda (_id88097_ + _alias-id88098_ + _rebind?88099_ + _phi88100_) (gx#core-bind-alias!__2 - _id88093_ - _alias-id88094_ - _rebind?88095_ - _phi88096_)) - _g91055_)) - ((##fx= _g91054_ 5) - (apply (lambda (_id88100_ - _alias-id88101_ - _rebind?88102_ - _phi88103_ - _ctx88104_) + _id88097_ + _alias-id88098_ + _rebind?88099_ + _phi88100_)) + _g91059_)) + ((##fx= _g91058_ 5) + (apply (lambda (_id88104_ + _alias-id88105_ + _rebind?88106_ + _phi88107_ + _ctx88108_) (gx#core-bind-alias!__% - _id88100_ - _alias-id88101_ - _rebind?88102_ - _phi88103_ - _ctx88104_)) - _g91055_)) + _id88104_ + _alias-id88105_ + _rebind?88106_ + _phi88107_ + _ctx88108_)) + _g91059_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g91055_)))))) + _g91059_)))))) (define gx#make-binding-id__% - (lambda (_key88022_ _syntax?88023_ _phi88024_ _ctx88025_) - (if (uninterned-symbol? _key88022_) + (lambda (_key88026_ _syntax?88027_ _phi88028_ _ctx88029_) + (if (uninterned-symbol? _key88026_) (gensym 'L) - (if (pair? _key88022_) - (gensym (car _key88022_)) - (if (##structure-instance-of? _ctx88025_ 'gx#top-context::t) - (let ((_ns88027_ - (gx#core-context-namespace__% _ctx88025_))) - (if (and (fxzero? _phi88024_) (not _syntax?88023_)) - (if _ns88027_ - (make-symbol__1 _ns88027_ '"#" _key88022_) - _key88022_) - (if _syntax?88023_ + (if (pair? _key88026_) + (gensym (car _key88026_)) + (if (##structure-instance-of? _ctx88029_ 'gx#top-context::t) + (let ((_ns88031_ + (gx#core-context-namespace__% _ctx88029_))) + (if (and (fxzero? _phi88028_) (not _syntax?88027_)) + (if _ns88031_ + (make-symbol__1 _ns88031_ '"#" _key88026_) + _key88026_) + (if _syntax?88027_ (make-symbol__1 - (let ((_$e88029_ _ns88027_)) - (if _$e88029_ _$e88029_ '"")) + (let ((_$e88033_ _ns88031_)) + (if _$e88033_ _$e88033_ '"")) '"[:" - (number->string _phi88024_) + (number->string _phi88028_) '":]#" - _key88022_) + _key88026_) (make-symbol__1 - (let ((_$e88032_ _ns88027_)) - (if _$e88032_ _$e88032_ '"")) + (let ((_$e88036_ _ns88031_)) + (if _$e88036_ _$e88036_ '"")) '"[" - (number->string _phi88024_) + (number->string _phi88028_) '"]#" - _key88022_)))) - (gensym _key88022_)))))) + _key88026_)))) + (gensym _key88026_)))))) (define gx#make-binding-id__0 - (lambda (_key88038_) - (let* ((_syntax?88040_ '#f) - (_phi88042_ (gx#current-expander-phi)) - (_ctx88044_ (gx#current-expander-context))) + (lambda (_key88042_) + (let* ((_syntax?88044_ '#f) + (_phi88046_ (gx#current-expander-phi)) + (_ctx88048_ (gx#current-expander-context))) (gx#make-binding-id__% - _key88038_ - _syntax?88040_ - _phi88042_ - _ctx88044_)))) + _key88042_ + _syntax?88044_ + _phi88046_ + _ctx88048_)))) (define gx#make-binding-id__1 - (lambda (_key88046_ _syntax?88047_) - (let* ((_phi88049_ (gx#current-expander-phi)) - (_ctx88051_ (gx#current-expander-context))) + (lambda (_key88050_ _syntax?88051_) + (let* ((_phi88053_ (gx#current-expander-phi)) + (_ctx88055_ (gx#current-expander-context))) (gx#make-binding-id__% - _key88046_ - _syntax?88047_ - _phi88049_ - _ctx88051_)))) + _key88050_ + _syntax?88051_ + _phi88053_ + _ctx88055_)))) (define gx#make-binding-id__2 - (lambda (_key88053_ _syntax?88054_ _phi88055_) - (let ((_ctx88057_ (gx#current-expander-context))) + (lambda (_key88057_ _syntax?88058_ _phi88059_) + (let ((_ctx88061_ (gx#current-expander-context))) (gx#make-binding-id__% - _key88053_ - _syntax?88054_ - _phi88055_ - _ctx88057_)))) + _key88057_ + _syntax?88058_ + _phi88059_ + _ctx88061_)))) (define gx#make-binding-id - (lambda _g91057_ - (let ((_g91056_ (##length _g91057_))) - (cond ((##fx= _g91056_ 1) - (apply (lambda (_key88038_) - (gx#make-binding-id__0 _key88038_)) - _g91057_)) - ((##fx= _g91056_ 2) - (apply (lambda (_key88046_ _syntax?88047_) - (gx#make-binding-id__1 _key88046_ _syntax?88047_)) - _g91057_)) - ((##fx= _g91056_ 3) - (apply (lambda (_key88053_ _syntax?88054_ _phi88055_) + (lambda _g91061_ + (let ((_g91060_ (##length _g91061_))) + (cond ((##fx= _g91060_ 1) + (apply (lambda (_key88042_) + (gx#make-binding-id__0 _key88042_)) + _g91061_)) + ((##fx= _g91060_ 2) + (apply (lambda (_key88050_ _syntax?88051_) + (gx#make-binding-id__1 _key88050_ _syntax?88051_)) + _g91061_)) + ((##fx= _g91060_ 3) + (apply (lambda (_key88057_ _syntax?88058_ _phi88059_) (gx#make-binding-id__2 - _key88053_ - _syntax?88054_ - _phi88055_)) - _g91057_)) - ((##fx= _g91056_ 4) - (apply (lambda (_key88059_ - _syntax?88060_ - _phi88061_ - _ctx88062_) + _key88057_ + _syntax?88058_ + _phi88059_)) + _g91061_)) + ((##fx= _g91060_ 4) + (apply (lambda (_key88063_ + _syntax?88064_ + _phi88065_ + _ctx88066_) (gx#make-binding-id__% - _key88059_ - _syntax?88060_ - _phi88061_ - _ctx88062_)) - _g91057_)) + _key88063_ + _syntax?88064_ + _phi88065_ + _ctx88066_)) + _g91061_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g91057_)))))))) + _g91061_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index 8638b4d7f..be8688ceb 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1710781148) + (define gerbil/runtime/c3::timestamp 1710833423) (begin (define c4-linearize__% (lambda (_g62595_ diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index 1651acb07..5f6bbfa4b 100644 --- a/src/bootstrap/gerbil/runtime/control~0.scm +++ b/src/bootstrap/gerbil/runtime/control~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1710781148) + (define gerbil/runtime/control::timestamp 1710833423) (begin (define make-promise (lambda (_thunk62139_) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index b6d9a474f..022c03ed2 100644 --- a/src/bootstrap/gerbil/runtime/error.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/error.ssxi.ss @@ -56,8 +56,8 @@ package: gerbil/runtime #f #f #f - ((display-exception . Error::display-exception) - (:init! . Error:::init!)))) + ((:init! . Error:::init!) + (display-exception . Error::display-exception)))) (declare-type Error? (@predicate Error::t)) (declare-type make-Error (@constructor Error::t)) (declare-type Error-message (@accessor Error::t message #t)) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index b49f65164..3d4130619 100644 --- a/src/bootstrap/gerbil/runtime/error~0.scm +++ b/src/bootstrap/gerbil/runtime/error~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1710781148) + (define gerbil/runtime/error::timestamp 1710833423) (begin (define Exception::t (let ((__tmp68201 (list))) @@ -548,36 +548,36 @@ (let () (declare (not safe)) (error '"Unknown slot" 'message))))) - (__where68178 + (__irritants68178 (let ((__slot68182 (let () (declare (not safe)) - (class-slot-offset __klass68175 'where)))) + (class-slot-offset __klass68175 'irritants)))) (if __slot68182 __slot68182 (let () (declare (not safe)) - (error '"Unknown slot" 'where))))) - (__continuation68179 + (error '"Unknown slot" 'irritants))))) + (__where68179 (let ((__slot68183 (let () (declare (not safe)) - (class-slot-offset __klass68175 'continuation)))) + (class-slot-offset __klass68175 'where)))) (if __slot68183 __slot68183 (let () (declare (not safe)) - (error '"Unknown slot" 'continuation))))) - (__irritants68180 + (error '"Unknown slot" 'where))))) + (__continuation68180 (let ((__slot68184 (let () (declare (not safe)) - (class-slot-offset __klass68175 'irritants)))) + (class-slot-offset __klass68175 'continuation)))) (if __slot68184 __slot68184 (let () (declare (not safe)) - (error '"Unknown slot" 'irritants)))))) + (error '"Unknown slot" 'continuation)))))) (lambda (_self67943_ _port67944_) (let ((_tmp-port67946_ (open-output-string)) (_display-error-newline67947_ @@ -592,7 +592,7 @@ (declare (not safe)) (##unchecked-structure-ref _self67943_ - __where68178 + __where68179 __klass68175 '#f)))) (if _$e67950_ (display _$e67950_) (display '"?"))) @@ -617,7 +617,7 @@ (declare (not safe)) (##unchecked-structure-ref _self67943_ - __irritants68180 + __irritants68178 __klass68175 '#f)))) (if (let () @@ -641,7 +641,7 @@ (declare (not safe)) (##unchecked-structure-ref _self67943_ - __continuation68179 + __continuation68180 __klass68175 '#f)))) (if _cont6795667958_ diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index 1527112c6..557b216a7 100644 --- a/src/bootstrap/gerbil/runtime/eval~0.scm +++ b/src/bootstrap/gerbil/runtime/eval~0.scm @@ -1,26 +1,26 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1710781148) + (define gerbil/runtime/eval::timestamp 1710833424) (begin (define __syntax::t - (let ((__tmp79326 (list)) - (__tmp79324 - (let ((__tmp79325 + (let ((__tmp79330 (list)) + (__tmp79328 + (let ((__tmp79329 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp79325 '())))) + (cons __tmp79329 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp79326 + __tmp79330 '(e id) - __tmp79324 + __tmp79328 '#f))) (define __syntax? (let () (declare (not safe)) (make-class-predicate __syntax::t))) (define make-__syntax - (lambda _$args79135_ (apply make-instance __syntax::t _$args79135_))) + (lambda _$args79139_ (apply make-instance __syntax::t _$args79139_))) (define __syntax-e (let () (declare (not safe)) (make-class-slot-accessor __syntax::t 'e))) (define __syntax-id @@ -46,24 +46,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __syntax::t 'id))) (define __core-form::t - (let ((__tmp79329 (list __syntax::t)) - (__tmp79327 - (let ((__tmp79328 + (let ((__tmp79333 (list __syntax::t)) + (__tmp79331 + (let ((__tmp79332 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp79328 '())))) + (cons __tmp79332 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp79329 + __tmp79333 '() - __tmp79327 + __tmp79331 '#f))) (define __core-form? (let () (declare (not safe)) (make-class-predicate __core-form::t))) (define make-__core-form - (lambda _$args79132_ (apply make-instance __core-form::t _$args79132_))) + (lambda _$args79136_ (apply make-instance __core-form::t _$args79136_))) (define __core-form-e (let () (declare (not safe)) @@ -97,27 +97,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __core-form::t 'id))) (define __core-expression::t - (let ((__tmp79332 (list __core-form::t)) - (__tmp79330 - (let ((__tmp79331 + (let ((__tmp79336 (list __core-form::t)) + (__tmp79334 + (let ((__tmp79335 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp79331 '())))) + (cons __tmp79335 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp79332 + __tmp79336 '() - __tmp79330 + __tmp79334 '#f))) (define __core-expression? (let () (declare (not safe)) (make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args79129_ - (apply make-instance __core-expression::t _$args79129_))) + (lambda _$args79133_ + (apply make-instance __core-expression::t _$args79133_))) (define __core-expression-e (let () (declare (not safe)) @@ -151,27 +151,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __core-expression::t 'id))) (define __core-special-form::t - (let ((__tmp79335 (list __core-form::t)) - (__tmp79333 - (let ((__tmp79334 + (let ((__tmp79339 (list __core-form::t)) + (__tmp79337 + (let ((__tmp79338 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp79334 '())))) + (cons __tmp79338 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp79335 + __tmp79339 '() - __tmp79333 + __tmp79337 '#f))) (define __core-special-form? (let () (declare (not safe)) (make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args79126_ - (apply make-instance __core-special-form::t _$args79126_))) + (lambda _$args79130_ + (apply make-instance __core-special-form::t _$args79130_))) (define __core-special-form-e (let () (declare (not safe)) @@ -209,448 +209,448 @@ (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve - (lambda (_id79124_) - (let ((__tmp79336 (let () (declare (not safe)) (__AST-e _id79124_)))) + (lambda (_id79128_) + (let ((__tmp79340 (let () (declare (not safe)) (__AST-e _id79128_)))) (declare (not safe)) - (hash-get __core __tmp79336)))) + (hash-get __core __tmp79340)))) (define __core-bound-id?__% - (lambda (_id79108_ _is?79109_) - (let ((_$e79111_ - (let () (declare (not safe)) (__core-resolve _id79108_)))) - (if _$e79111_ (_is?79109_ _$e79111_) '#f)))) + (lambda (_id79112_ _is?79113_) + (let ((_$e79115_ + (let () (declare (not safe)) (__core-resolve _id79112_)))) + (if _$e79115_ (_is?79113_ _$e79115_) '#f)))) (define __core-bound-id?__0 - (lambda (_id79117_) - (let ((_is?79119_ true)) + (lambda (_id79121_) + (let ((_is?79123_ true)) (declare (not safe)) - (__core-bound-id?__% _id79117_ _is?79119_)))) + (__core-bound-id?__% _id79121_ _is?79123_)))) (define __core-bound-id? - (lambda _g79338_ - (let ((_g79337_ (let () (declare (not safe)) (##length _g79338_)))) - (cond ((let () (declare (not safe)) (##fx= _g79337_ 1)) - (apply (lambda (_id79117_) + (lambda _g79342_ + (let ((_g79341_ (let () (declare (not safe)) (##length _g79342_)))) + (cond ((let () (declare (not safe)) (##fx= _g79341_ 1)) + (apply (lambda (_id79121_) (let () (declare (not safe)) - (__core-bound-id?__0 _id79117_))) - _g79338_)) - ((let () (declare (not safe)) (##fx= _g79337_ 2)) - (apply (lambda (_id79121_ _is?79122_) + (__core-bound-id?__0 _id79121_))) + _g79342_)) + ((let () (declare (not safe)) (##fx= _g79341_ 2)) + (apply (lambda (_id79125_ _is?79126_) (let () (declare (not safe)) - (__core-bound-id?__% _id79121_ _is?79122_))) - _g79338_)) + (__core-bound-id?__% _id79125_ _is?79126_))) + _g79342_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g79338_)))))) + _g79342_)))))) (define __core-bind-syntax!__% - (lambda (_id79091_ _e79092_ _make79093_) - (let ((__tmp79339 + (lambda (_id79095_ _e79096_ _make79097_) + (let ((__tmp79343 (if (let () (declare (not safe)) (##structure-instance-of? - _e79092_ + _e79096_ 'gerbil/runtime/eval#__syntax::t)) - _e79092_ - (_make79093_ _e79092_ _id79091_)))) + _e79096_ + (_make79097_ _e79096_ _id79095_)))) (declare (not safe)) - (hash-put! __core _id79091_ __tmp79339)))) + (hash-put! __core _id79095_ __tmp79343)))) (define __core-bind-syntax!__0 - (lambda (_id79098_ _e79099_) - (let ((_make79101_ make-__syntax)) + (lambda (_id79102_ _e79103_) + (let ((_make79105_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id79098_ _e79099_ _make79101_)))) + (__core-bind-syntax!__% _id79102_ _e79103_ _make79105_)))) (define __core-bind-syntax! - (lambda _g79341_ - (let ((_g79340_ (let () (declare (not safe)) (##length _g79341_)))) - (cond ((let () (declare (not safe)) (##fx= _g79340_ 2)) - (apply (lambda (_id79098_ _e79099_) + (lambda _g79345_ + (let ((_g79344_ (let () (declare (not safe)) (##length _g79345_)))) + (cond ((let () (declare (not safe)) (##fx= _g79344_ 2)) + (apply (lambda (_id79102_ _e79103_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id79098_ _e79099_))) - _g79341_)) - ((let () (declare (not safe)) (##fx= _g79340_ 3)) - (apply (lambda (_id79103_ _e79104_ _make79105_) + (__core-bind-syntax!__0 _id79102_ _e79103_))) + _g79345_)) + ((let () (declare (not safe)) (##fx= _g79344_ 3)) + (apply (lambda (_id79107_ _e79108_ _make79109_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id79103_ - _e79104_ - _make79105_))) - _g79341_)) + _id79107_ + _e79108_ + _make79109_))) + _g79345_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g79341_)))))) + _g79345_)))))) (define __SRC__% - (lambda (_e79074_ _src-stx79075_) - (if (or (let () (declare (not safe)) (pair? _e79074_)) - (let () (declare (not safe)) (symbol? _e79074_))) - (let ((__tmp79345 + (lambda (_e79078_ _src-stx79079_) + (if (or (let () (declare (not safe)) (pair? _e79078_)) + (let () (declare (not safe)) (symbol? _e79078_))) + (let ((__tmp79349 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx79075_ + _src-stx79079_ 'gerbil#AST::t)) - (let ((__tmp79346 + (let ((__tmp79350 (let () (declare (not safe)) - (__AST-source _src-stx79075_)))) + (__AST-source _src-stx79079_)))) (declare (not safe)) - (__locat __tmp79346)) + (__locat __tmp79350)) '#f))) (declare (not safe)) - (##make-source _e79074_ __tmp79345)) + (##make-source _e79078_ __tmp79349)) (if (let () (declare (not safe)) - (##structure-instance-of? _e79074_ 'gerbil#AST::t)) - (let ((__tmp79344 + (##structure-instance-of? _e79078_ 'gerbil#AST::t)) + (let ((__tmp79348 (let () (declare (not safe)) - (##unchecked-structure-ref _e79074_ '1 AST::t '#f))) - (__tmp79342 - (let ((__tmp79343 + (##unchecked-structure-ref _e79078_ '1 AST::t '#f))) + (__tmp79346 + (let ((__tmp79347 (let () (declare (not safe)) - (__AST-source _e79074_)))) + (__AST-source _e79078_)))) (declare (not safe)) - (__locat __tmp79343)))) + (__locat __tmp79347)))) (declare (not safe)) - (##make-source __tmp79344 __tmp79342)) + (##make-source __tmp79348 __tmp79346)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _e79074_)))))) + (error '"BUG! Cannot sourcify object" _e79078_)))))) (define __SRC__0 - (lambda (_e79083_) - (let ((_src-stx79085_ '#f)) + (lambda (_e79087_) + (let ((_src-stx79089_ '#f)) (declare (not safe)) - (__SRC__% _e79083_ _src-stx79085_)))) + (__SRC__% _e79087_ _src-stx79089_)))) (define __SRC - (lambda _g79348_ - (let ((_g79347_ (let () (declare (not safe)) (##length _g79348_)))) - (cond ((let () (declare (not safe)) (##fx= _g79347_ 1)) - (apply (lambda (_e79083_) - (let () (declare (not safe)) (__SRC__0 _e79083_))) - _g79348_)) - ((let () (declare (not safe)) (##fx= _g79347_ 2)) - (apply (lambda (_e79087_ _src-stx79088_) + (lambda _g79352_ + (let ((_g79351_ (let () (declare (not safe)) (##length _g79352_)))) + (cond ((let () (declare (not safe)) (##fx= _g79351_ 1)) + (apply (lambda (_e79087_) + (let () (declare (not safe)) (__SRC__0 _e79087_))) + _g79352_)) + ((let () (declare (not safe)) (##fx= _g79351_ 2)) + (apply (lambda (_e79091_ _src-stx79092_) (let () (declare (not safe)) - (__SRC__% _e79087_ _src-stx79088_))) - _g79348_)) + (__SRC__% _e79091_ _src-stx79092_))) + _g79352_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g79348_)))))) + _g79352_)))))) (define __locat - (lambda (_loc79071_) - (if (let () (declare (not safe)) (##locat? _loc79071_)) - _loc79071_ + (lambda (_loc79075_) + (if (let () (declare (not safe)) (##locat? _loc79075_)) + _loc79075_ '#f))) (define __check-values - (lambda (_obj79066_ _k79067_) - (let ((_count79069_ - (if (let () (declare (not safe)) (##values? _obj79066_)) - (let () (declare (not safe)) (##vector-length _obj79066_)) + (lambda (_obj79070_ _k79071_) + (let ((_count79073_ + (if (let () (declare (not safe)) (##values? _obj79070_)) + (let () (declare (not safe)) (##vector-length _obj79070_)) '1))) - (if (fx= _count79069_ _k79067_) + (if (fx= _count79073_ _k79071_) '#!void - (let ((__tmp79350 - (if (fx< _count79069_ _k79067_) + (let ((__tmp79354 + (if (fx< _count79073_ _k79071_) '"Too few values for context" '"Too many values for context")) - (__tmp79349 - (if (let () (declare (not safe)) (##values? _obj79066_)) + (__tmp79353 + (if (let () (declare (not safe)) (##values? _obj79070_)) (let () (declare (not safe)) - (##vector->list _obj79066_)) - _obj79066_))) + (##vector->list _obj79070_)) + _obj79070_))) (declare (not safe)) - (error __tmp79350 __tmp79349 _k79067_)))))) + (error __tmp79354 __tmp79353 _k79071_)))))) (define __compile - (lambda (_stx79036_) - (let* ((_$e79038_ _stx79036_) - (_$E7904079046_ + (lambda (_stx79040_) + (let* ((_$e79042_ _stx79040_) + (_$E7904479050_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e79038_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e79038_)) - (let* ((_$tgt7904179049_ - (let () (declare (not safe)) (__AST-e _$e79038_))) - (_$hd7904279052_ - (let () (declare (not safe)) (##car _$tgt7904179049_))) - (_$tl7904379055_ - (let () (declare (not safe)) (##cdr _$tgt7904179049_)))) - (let* ((_form79059_ _$hd7904279052_) - (_$e79061_ + _$e79042_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e79042_)) + (let* ((_$tgt7904579053_ + (let () (declare (not safe)) (__AST-e _$e79042_))) + (_$hd7904679056_ + (let () (declare (not safe)) (##car _$tgt7904579053_))) + (_$tl7904779059_ + (let () (declare (not safe)) (##cdr _$tgt7904579053_)))) + (let* ((_form79063_ _$hd7904679056_) + (_$e79065_ (let () (declare (not safe)) - (__core-resolve _form79059_)))) - (if _$e79061_ - ((lambda (_bind79064_) - ((##structure-ref _bind79064_ '1 __syntax::t '#f) - _stx79036_)) - _$e79061_) + (__core-resolve _form79063_)))) + (if _$e79065_ + ((lambda (_bind79068_) + ((##structure-ref _bind79068_ '1 __syntax::t '#f) + _stx79040_)) + _$e79065_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx79036_ - _form79059_))))) - (let () (declare (not safe)) (_$E7904079046_)))))) + _stx79040_ + _form79063_))))) + (let () (declare (not safe)) (_$E7904479050_)))))) (define __compile-error__% - (lambda (_stx79023_ _detail79024_) + (lambda (_stx79027_ _detail79028_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx79023_ - _detail79024_)))) + _stx79027_ + _detail79028_)))) (define __compile-error__0 - (lambda (_stx79029_) - (let ((_detail79031_ '#f)) + (lambda (_stx79033_) + (let ((_detail79035_ '#f)) (declare (not safe)) - (__compile-error__% _stx79029_ _detail79031_)))) + (__compile-error__% _stx79033_ _detail79035_)))) (define __compile-error - (lambda _g79352_ - (let ((_g79351_ (let () (declare (not safe)) (##length _g79352_)))) - (cond ((let () (declare (not safe)) (##fx= _g79351_ 1)) - (apply (lambda (_stx79029_) + (lambda _g79356_ + (let ((_g79355_ (let () (declare (not safe)) (##length _g79356_)))) + (cond ((let () (declare (not safe)) (##fx= _g79355_ 1)) + (apply (lambda (_stx79033_) (let () (declare (not safe)) - (__compile-error__0 _stx79029_))) - _g79352_)) - ((let () (declare (not safe)) (##fx= _g79351_ 2)) - (apply (lambda (_stx79033_ _detail79034_) + (__compile-error__0 _stx79033_))) + _g79356_)) + ((let () (declare (not safe)) (##fx= _g79355_ 2)) + (apply (lambda (_stx79037_ _detail79038_) (let () (declare (not safe)) - (__compile-error__% _stx79033_ _detail79034_))) - _g79352_)) + (__compile-error__% _stx79037_ _detail79038_))) + _g79356_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g79352_)))))) + _g79356_)))))) (define __compile-ignore% - (lambda (_stx79020_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx79020_)))) + (lambda (_stx79024_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx79024_)))) (define __compile-begin% - (lambda (_stx78995_) - (let* ((_$e78997_ _stx78995_) - (_$E7899979005_ + (lambda (_stx78999_) + (let* ((_$e79001_ _stx78999_) + (_$E7900379009_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78997_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78997_)) - (let* ((_$tgt7900079008_ - (let () (declare (not safe)) (__AST-e _$e78997_))) - (_$hd7900179011_ - (let () (declare (not safe)) (##car _$tgt7900079008_))) - (_$tl7900279014_ - (let () (declare (not safe)) (##cdr _$tgt7900079008_)))) - (let* ((_body79018_ _$tl7900279014_) - (__tmp79353 - (let ((__tmp79354 (map __compile _body79018_))) + _$e79001_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e79001_)) + (let* ((_$tgt7900479012_ + (let () (declare (not safe)) (__AST-e _$e79001_))) + (_$hd7900579015_ + (let () (declare (not safe)) (##car _$tgt7900479012_))) + (_$tl7900679018_ + (let () (declare (not safe)) (##cdr _$tgt7900479012_)))) + (let* ((_body79022_ _$tl7900679018_) + (__tmp79357 + (let ((__tmp79358 (map __compile _body79022_))) (declare (not safe)) - (cons 'begin __tmp79354)))) + (cons 'begin __tmp79358)))) (declare (not safe)) - (__SRC__% __tmp79353 _stx78995_))) - (let () (declare (not safe)) (_$E7899979005_)))))) + (__SRC__% __tmp79357 _stx78999_))) + (let () (declare (not safe)) (_$E7900379009_)))))) (define __compile-begin-foreign% - (lambda (_stx78970_) - (let* ((_$e78972_ _stx78970_) - (_$E7897478980_ + (lambda (_stx78974_) + (let* ((_$e78976_ _stx78974_) + (_$E7897878984_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78972_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78972_)) - (let* ((_$tgt7897578983_ - (let () (declare (not safe)) (__AST-e _$e78972_))) - (_$hd7897678986_ - (let () (declare (not safe)) (##car _$tgt7897578983_))) - (_$tl7897778989_ - (let () (declare (not safe)) (##cdr _$tgt7897578983_)))) - (let* ((_body78993_ _$tl7897778989_) - (__tmp79355 - (let ((__tmp79356 + _$e78976_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78976_)) + (let* ((_$tgt7897978987_ + (let () (declare (not safe)) (__AST-e _$e78976_))) + (_$hd7898078990_ + (let () (declare (not safe)) (##car _$tgt7897978987_))) + (_$tl7898178993_ + (let () (declare (not safe)) (##cdr _$tgt7897978987_)))) + (let* ((_body78997_ _$tl7898178993_) + (__tmp79359 + (let ((__tmp79360 (let () (declare (not safe)) - (__AST->datum _body78993_)))) + (__AST->datum _body78997_)))) (declare (not safe)) - (cons 'begin __tmp79356)))) + (cons 'begin __tmp79360)))) (declare (not safe)) - (__SRC__% __tmp79355 _stx78970_))) - (let () (declare (not safe)) (_$E7897478980_)))))) + (__SRC__% __tmp79359 _stx78974_))) + (let () (declare (not safe)) (_$E7897878984_)))))) (define __compile-import% - (lambda (_stx78945_) - (let* ((_$e78947_ _stx78945_) - (_$E7894978955_ + (lambda (_stx78949_) + (let* ((_$e78951_ _stx78949_) + (_$E7895378959_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78947_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78947_)) - (let* ((_$tgt7895078958_ - (let () (declare (not safe)) (__AST-e _$e78947_))) - (_$hd7895178961_ - (let () (declare (not safe)) (##car _$tgt7895078958_))) - (_$tl7895278964_ - (let () (declare (not safe)) (##cdr _$tgt7895078958_)))) - (let* ((_body78968_ _$tl7895278964_) - (__tmp79357 - (let ((__tmp79358 - (let ((__tmp79359 - (let ((__tmp79360 + _$e78951_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78951_)) + (let* ((_$tgt7895478962_ + (let () (declare (not safe)) (__AST-e _$e78951_))) + (_$hd7895578965_ + (let () (declare (not safe)) (##car _$tgt7895478962_))) + (_$tl7895678968_ + (let () (declare (not safe)) (##cdr _$tgt7895478962_)))) + (let* ((_body78972_ _$tl7895678968_) + (__tmp79361 + (let ((__tmp79362 + (let ((__tmp79363 + (let ((__tmp79364 (let () (declare (not safe)) - (cons _body78968_ '())))) + (cons _body78972_ '())))) (declare (not safe)) - (cons 'quote __tmp79360)))) + (cons 'quote __tmp79364)))) (declare (not safe)) - (cons __tmp79359 '())))) + (cons __tmp79363 '())))) (declare (not safe)) - (cons '__eval-import __tmp79358)))) + (cons '__eval-import __tmp79362)))) (declare (not safe)) - (__SRC__% __tmp79357 _stx78945_))) - (let () (declare (not safe)) (_$E7894978955_)))))) + (__SRC__% __tmp79361 _stx78949_))) + (let () (declare (not safe)) (_$E7895378959_)))))) (define __compile-begin-annotation% - (lambda (_stx78892_) - (let* ((_$e78894_ _stx78892_) - (_$E7889678908_ + (lambda (_stx78896_) + (let* ((_$e78898_ _stx78896_) + (_$E7890078912_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78894_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78894_)) - (let* ((_$tgt7889778911_ - (let () (declare (not safe)) (__AST-e _$e78894_))) - (_$hd7889878914_ - (let () (declare (not safe)) (##car _$tgt7889778911_))) - (_$tl7889978917_ - (let () (declare (not safe)) (##cdr _$tgt7889778911_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7889978917_)) - (let* ((_$tgt7890078921_ + _$e78898_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78898_)) + (let* ((_$tgt7890178915_ + (let () (declare (not safe)) (__AST-e _$e78898_))) + (_$hd7890278918_ + (let () (declare (not safe)) (##car _$tgt7890178915_))) + (_$tl7890378921_ + (let () (declare (not safe)) (##cdr _$tgt7890178915_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7890378921_)) + (let* ((_$tgt7890478925_ (let () (declare (not safe)) - (__AST-e _$tl7889978917_))) - (_$hd7890178924_ + (__AST-e _$tl7890378921_))) + (_$hd7890578928_ (let () (declare (not safe)) - (##car _$tgt7890078921_))) - (_$tl7890278927_ + (##car _$tgt7890478925_))) + (_$tl7890678931_ (let () (declare (not safe)) - (##cdr _$tgt7890078921_)))) - (let ((_ann78931_ _$hd7890178924_)) + (##cdr _$tgt7890478925_)))) + (let ((_ann78935_ _$hd7890578928_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7890278927_)) - (let* ((_$tgt7890378933_ + (__AST-pair? _$tl7890678931_)) + (let* ((_$tgt7890778937_ (let () (declare (not safe)) - (__AST-e _$tl7890278927_))) - (_$hd7890478936_ + (__AST-e _$tl7890678931_))) + (_$hd7890878940_ (let () (declare (not safe)) - (##car _$tgt7890378933_))) - (_$tl7890578939_ + (##car _$tgt7890778937_))) + (_$tl7890978943_ (let () (declare (not safe)) - (##cdr _$tgt7890378933_)))) - (let ((_expr78943_ _$hd7890478936_)) - (if (let ((__tmp79361 + (##cdr _$tgt7890778937_)))) + (let ((_expr78947_ _$hd7890878940_)) + (if (let ((__tmp79365 (let () (declare (not safe)) - (__AST-e _$tl7890578939_)))) + (__AST-e _$tl7890978943_)))) (declare (not safe)) - (equal? __tmp79361 '())) + (equal? __tmp79365 '())) (let () (declare (not safe)) - (__compile _expr78943_)) + (__compile _expr78947_)) (let () (declare (not safe)) - (_$E7889678908_))))) - (let () (declare (not safe)) (_$E7889678908_))))) - (let () (declare (not safe)) (_$E7889678908_)))) - (let () (declare (not safe)) (_$E7889678908_)))))) + (_$E7890078912_))))) + (let () (declare (not safe)) (_$E7890078912_))))) + (let () (declare (not safe)) (_$E7890078912_)))) + (let () (declare (not safe)) (_$E7890078912_)))))) (define __compile-define-values% - (lambda (_stx78783_) - (let* ((_$e78785_ _stx78783_) - (_$E7878778799_ + (lambda (_stx78787_) + (let* ((_$e78789_ _stx78787_) + (_$E7879178803_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78785_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78785_)) - (let* ((_$tgt7878878802_ - (let () (declare (not safe)) (__AST-e _$e78785_))) - (_$hd7878978805_ - (let () (declare (not safe)) (##car _$tgt7878878802_))) - (_$tl7879078808_ - (let () (declare (not safe)) (##cdr _$tgt7878878802_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7879078808_)) - (let* ((_$tgt7879178812_ + _$e78789_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78789_)) + (let* ((_$tgt7879278806_ + (let () (declare (not safe)) (__AST-e _$e78789_))) + (_$hd7879378809_ + (let () (declare (not safe)) (##car _$tgt7879278806_))) + (_$tl7879478812_ + (let () (declare (not safe)) (##cdr _$tgt7879278806_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7879478812_)) + (let* ((_$tgt7879578816_ (let () (declare (not safe)) - (__AST-e _$tl7879078808_))) - (_$hd7879278815_ + (__AST-e _$tl7879478812_))) + (_$hd7879678819_ (let () (declare (not safe)) - (##car _$tgt7879178812_))) - (_$tl7879378818_ + (##car _$tgt7879578816_))) + (_$tl7879778822_ (let () (declare (not safe)) - (##cdr _$tgt7879178812_)))) - (let ((_hd78822_ _$hd7879278815_)) + (##cdr _$tgt7879578816_)))) + (let ((_hd78826_ _$hd7879678819_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7879378818_)) - (let* ((_$tgt7879478824_ + (__AST-pair? _$tl7879778822_)) + (let* ((_$tgt7879878828_ (let () (declare (not safe)) - (__AST-e _$tl7879378818_))) - (_$hd7879578827_ + (__AST-e _$tl7879778822_))) + (_$hd7879978831_ (let () (declare (not safe)) - (##car _$tgt7879478824_))) - (_$tl7879678830_ + (##car _$tgt7879878828_))) + (_$tl7880078834_ (let () (declare (not safe)) - (##cdr _$tgt7879478824_)))) - (let ((_expr78834_ _$hd7879578827_)) - (if (let ((__tmp79394 + (##cdr _$tgt7879878828_)))) + (let ((_expr78838_ _$hd7879978831_)) + (if (let ((__tmp79398 (let () (declare (not safe)) - (__AST-e _$tl7879678830_)))) + (__AST-e _$tl7880078834_)))) (declare (not safe)) - (equal? __tmp79394 '())) - (let* ((_$e78836_ _hd78822_) - (_$E7883878879_ + (equal? __tmp79398 '())) + (let* ((_$e78840_ _hd78826_) + (_$E7884278883_ (lambda () - (let ((_$E7883978864_ + (let ((_$E7884378868_ (lambda () - (let* ((_$E7884078851_ + (let* ((_$E7884478855_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -658,2891 +658,2891 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78836_)))) - (_ids78854_ _hd78822_) - (_len78856_ (length _ids78854_)) - (_tmp78858_ - (let ((__tmp79362 (gensym))) + _$e78840_)))) + (_ids78858_ _hd78826_) + (_len78860_ (length _ids78858_)) + (_tmp78862_ + (let ((__tmp79366 (gensym))) (declare (not safe)) - (__SRC__0 __tmp79362)))) - (let ((__tmp79363 - (let ((__tmp79364 - (let ((__tmp79381 - (let ((__tmp79382 - (let ((__tmp79383 - (let ((__tmp79384 - (let ((__tmp79385 + (__SRC__0 __tmp79366)))) + (let ((__tmp79367 + (let ((__tmp79368 + (let ((__tmp79385 + (let ((__tmp79386 + (let ((__tmp79387 + (let ((__tmp79388 + (let ((__tmp79389 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr78834_)))) + (__compile _expr78838_)))) (declare (not safe)) - (cons __tmp79385 '())))) + (cons __tmp79389 '())))) (declare (not safe)) - (cons _tmp78858_ __tmp79384)))) + (cons _tmp78862_ __tmp79388)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp79383)))) + (cons 'define __tmp79387)))) (declare (not safe)) - (__SRC__% __tmp79382 _stx78783_))) - (__tmp79365 - (let ((__tmp79377 - (let ((__tmp79378 - (let ((__tmp79379 - (let ((__tmp79380 + (__SRC__% __tmp79386 _stx78787_))) + (__tmp79369 + (let ((__tmp79381 + (let ((__tmp79382 + (let ((__tmp79383 + (let ((__tmp79384 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _len78856_ '())))) + (let () (declare (not safe)) (cons _len78860_ '())))) (declare (not safe)) - (cons _tmp78858_ __tmp79380)))) + (cons _tmp78862_ __tmp79384)))) (declare (not safe)) - (cons '__check-values __tmp79379)))) + (cons '__check-values __tmp79383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp79378 - _stx78783_))) - (__tmp79366 - (let ((__tmp79367 - (let ((__tmp79369 - (lambda (_id78861_ + __tmp79382 + _stx78787_))) + (__tmp79370 + (let ((__tmp79371 + (let ((__tmp79373 + (lambda (_id78865_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k78862_) - (if (let () (declare (not safe)) (__AST-e _id78861_)) - (let ((__tmp79370 - (let ((__tmp79371 - (let ((__tmp79376 + _k78866_) + (if (let () (declare (not safe)) (__AST-e _id78865_)) + (let ((__tmp79374 + (let ((__tmp79375 + (let ((__tmp79380 (let () (declare (not safe)) - (__SRC__0 _id78861_))) - (__tmp79372 - (let ((__tmp79373 - (let ((__tmp79374 - (let ((__tmp79375 + (__SRC__0 _id78865_))) + (__tmp79376 + (let ((__tmp79377 + (let ((__tmp79378 + (let ((__tmp79379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k78862_ '())))) + (let () (declare (not safe)) (cons _k78866_ '())))) (declare (not safe)) - (cons _tmp78858_ __tmp79375)))) + (cons _tmp78862_ __tmp79379)))) (declare (not safe)) - (cons '##vector-ref __tmp79374)))) + (cons '##vector-ref __tmp79378)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79373 '())))) + (cons __tmp79377 '())))) (declare (not safe)) - (cons __tmp79376 __tmp79372)))) + (cons __tmp79380 __tmp79376)))) (declare (not safe)) - (cons 'define __tmp79371)))) + (cons 'define __tmp79375)))) (declare (not safe)) - (__SRC__% __tmp79370 _stx78783_)) + (__SRC__% __tmp79374 _stx78787_)) '#f))) - (__tmp79368 (iota _len78856_))) + (__tmp79372 (iota _len78860_))) (declare (not safe)) - (filter-map2 __tmp79369 _ids78854_ __tmp79368)))) + (filter-map2 __tmp79373 _ids78858_ __tmp79372)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp79367)))) + (foldr1 cons '() __tmp79371)))) (declare (not safe)) - (cons __tmp79377 __tmp79366)))) + (cons __tmp79381 __tmp79370)))) (declare (not safe)) - (cons __tmp79381 __tmp79365)))) + (cons __tmp79385 __tmp79369)))) (declare (not safe)) - (cons 'begin __tmp79364)))) + (cons 'begin __tmp79368)))) (declare (not safe)) - (__SRC__% __tmp79363 _stx78783_)))))) + (__SRC__% __tmp79367 _stx78787_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e78836_)) - (let* ((_$tgt7884178867_ + (__AST-pair? _$e78840_)) + (let* ((_$tgt7884578871_ (let () (declare (not safe)) - (__AST-e _$e78836_))) - (_$hd7884278870_ + (__AST-e _$e78840_))) + (_$hd7884678874_ (let () (declare (not safe)) - (##car _$tgt7884178867_))) - (_$tl7884378873_ + (##car _$tgt7884578871_))) + (_$tl7884778877_ (let () (declare (not safe)) - (##cdr _$tgt7884178867_)))) - (let ((_id78877_ - _$hd7884278870_)) - (if (let ((__tmp79391 + (##cdr _$tgt7884578871_)))) + (let ((_id78881_ + _$hd7884678874_)) + (if (let ((__tmp79395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl7884378873_)))) + (__AST-e _$tl7884778877_)))) (declare (not safe)) - (equal? __tmp79391 '())) - (let ((__tmp79386 - (let ((__tmp79387 - (let ((__tmp79390 + (equal? __tmp79395 '())) + (let ((__tmp79390 + (let ((__tmp79391 + (let ((__tmp79394 (let () (declare (not safe)) - (__SRC__0 _id78877_))) - (__tmp79388 - (let ((__tmp79389 + (__SRC__0 _id78881_))) + (__tmp79392 + (let ((__tmp79393 (let () (declare (not safe)) - (__compile _expr78834_)))) + (__compile _expr78838_)))) (declare (not safe)) - (cons __tmp79389 '())))) + (cons __tmp79393 '())))) (declare (not safe)) - (cons __tmp79390 __tmp79388)))) + (cons __tmp79394 __tmp79392)))) (declare (not safe)) - (cons 'define __tmp79387)))) + (cons 'define __tmp79391)))) (declare (not safe)) - (__SRC__% __tmp79386 _stx78783_)) - (let () (declare (not safe)) (_$E7883978864_))))) + (__SRC__% __tmp79390 _stx78787_)) + (let () (declare (not safe)) (_$E7884378868_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E7883978864_))))))) + (_$E7884378868_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e78836_)) - (let* ((_$tgt7884478882_ + (__AST-pair? _$e78840_)) + (let* ((_$tgt7884878886_ (let () (declare (not safe)) - (__AST-e _$e78836_))) - (_$hd7884578885_ + (__AST-e _$e78840_))) + (_$hd7884978889_ (let () (declare (not safe)) - (##car _$tgt7884478882_))) - (_$tl7884678888_ + (##car _$tgt7884878886_))) + (_$tl7885078892_ (let () (declare (not safe)) - (##cdr _$tgt7884478882_)))) - (if (let ((__tmp79393 + (##cdr _$tgt7884878886_)))) + (if (let ((__tmp79397 (let () (declare (not safe)) - (__AST-e _$hd7884578885_)))) + (__AST-e _$hd7884978889_)))) (declare (not safe)) - (equal? __tmp79393 '#f)) - (if (let ((__tmp79392 + (equal? __tmp79397 '#f)) + (if (let ((__tmp79396 (let () (declare (not safe)) - (__AST-e _$tl7884678888_)))) + (__AST-e _$tl7885078892_)))) (declare (not safe)) - (equal? __tmp79392 '())) + (equal? __tmp79396 '())) (let () (declare (not safe)) - (__compile _expr78834_)) + (__compile _expr78838_)) (let () (declare (not safe)) - (_$E7883878879_))) + (_$E7884278883_))) (let () (declare (not safe)) - (_$E7883878879_)))) + (_$E7884278883_)))) (let () (declare (not safe)) - (_$E7883878879_)))) + (_$E7884278883_)))) (let () (declare (not safe)) - (_$E7878778799_))))) - (let () (declare (not safe)) (_$E7878778799_))))) - (let () (declare (not safe)) (_$E7878778799_)))) - (let () (declare (not safe)) (_$E7878778799_)))))) + (_$E7879178803_))))) + (let () (declare (not safe)) (_$E7879178803_))))) + (let () (declare (not safe)) (_$E7879178803_)))) + (let () (declare (not safe)) (_$E7879178803_)))))) (define __compile-head-id - (lambda (_e78781_) - (let ((__tmp79395 - (if (let () (declare (not safe)) (__AST-e _e78781_)) - _e78781_ + (lambda (_e78785_) + (let ((__tmp79399 + (if (let () (declare (not safe)) (__AST-e _e78785_)) + _e78785_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp79395)))) + (__SRC__0 __tmp79399)))) (define __compile-lambda-head - (lambda (_hd78738_) - (let _recur78740_ ((_rest78742_ _hd78738_)) - (let* ((_$e78744_ _rest78742_) - (_$E7874678764_ + (lambda (_hd78742_) + (let _recur78744_ ((_rest78746_ _hd78742_)) + (let* ((_$e78748_ _rest78746_) + (_$E7875078768_ (lambda () - (let ((_$E7874778761_ + (let ((_$E7875178765_ (lambda () - (let* ((_$E7874878756_ + (let* ((_$E7875278760_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78744_)))) - (_tail78759_ _$e78744_)) + _$e78748_)))) + (_tail78763_ _$e78748_)) (declare (not safe)) - (__compile-head-id _tail78759_))))) - (if (let ((__tmp79396 + (__compile-head-id _tail78763_))))) + (if (let ((__tmp79400 (let () (declare (not safe)) - (__AST-e _$e78744_)))) + (__AST-e _$e78748_)))) (declare (not safe)) - (equal? __tmp79396 '())) + (equal? __tmp79400 '())) '() - (let () (declare (not safe)) (_$E7874778761_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78744_)) - (let* ((_$tgt7874978767_ - (let () (declare (not safe)) (__AST-e _$e78744_))) - (_$hd7875078770_ - (let () (declare (not safe)) (##car _$tgt7874978767_))) - (_$tl7875178773_ + (let () (declare (not safe)) (_$E7875178765_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78748_)) + (let* ((_$tgt7875378771_ + (let () (declare (not safe)) (__AST-e _$e78748_))) + (_$hd7875478774_ + (let () (declare (not safe)) (##car _$tgt7875378771_))) + (_$tl7875578777_ (let () (declare (not safe)) - (##cdr _$tgt7874978767_)))) - (let* ((_hd78777_ _$hd7875078770_) - (_rest78779_ _$tl7875178773_)) - (let ((__tmp79398 + (##cdr _$tgt7875378771_)))) + (let* ((_hd78781_ _$hd7875478774_) + (_rest78783_ _$tl7875578777_)) + (let ((__tmp79402 (let () (declare (not safe)) - (__compile-head-id _hd78777_))) - (__tmp79397 + (__compile-head-id _hd78781_))) + (__tmp79401 (let () (declare (not safe)) - (_recur78740_ _rest78779_)))) + (_recur78744_ _rest78783_)))) (declare (not safe)) - (cons __tmp79398 __tmp79397)))) - (let () (declare (not safe)) (_$E7874678764_))))))) + (cons __tmp79402 __tmp79401)))) + (let () (declare (not safe)) (_$E7875078768_))))))) (define __compile-lambda% - (lambda (_stx78685_) - (let* ((_$e78687_ _stx78685_) - (_$E7868978701_ + (lambda (_stx78689_) + (let* ((_$e78691_ _stx78689_) + (_$E7869378705_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78687_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78687_)) - (let* ((_$tgt7869078704_ - (let () (declare (not safe)) (__AST-e _$e78687_))) - (_$hd7869178707_ - (let () (declare (not safe)) (##car _$tgt7869078704_))) - (_$tl7869278710_ - (let () (declare (not safe)) (##cdr _$tgt7869078704_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7869278710_)) - (let* ((_$tgt7869378714_ + _$e78691_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78691_)) + (let* ((_$tgt7869478708_ + (let () (declare (not safe)) (__AST-e _$e78691_))) + (_$hd7869578711_ + (let () (declare (not safe)) (##car _$tgt7869478708_))) + (_$tl7869678714_ + (let () (declare (not safe)) (##cdr _$tgt7869478708_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7869678714_)) + (let* ((_$tgt7869778718_ (let () (declare (not safe)) - (__AST-e _$tl7869278710_))) - (_$hd7869478717_ + (__AST-e _$tl7869678714_))) + (_$hd7869878721_ (let () (declare (not safe)) - (##car _$tgt7869378714_))) - (_$tl7869578720_ + (##car _$tgt7869778718_))) + (_$tl7869978724_ (let () (declare (not safe)) - (##cdr _$tgt7869378714_)))) - (let ((_hd78724_ _$hd7869478717_)) + (##cdr _$tgt7869778718_)))) + (let ((_hd78728_ _$hd7869878721_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7869578720_)) - (let* ((_$tgt7869678726_ + (__AST-pair? _$tl7869978724_)) + (let* ((_$tgt7870078730_ (let () (declare (not safe)) - (__AST-e _$tl7869578720_))) - (_$hd7869778729_ + (__AST-e _$tl7869978724_))) + (_$hd7870178733_ (let () (declare (not safe)) - (##car _$tgt7869678726_))) - (_$tl7869878732_ + (##car _$tgt7870078730_))) + (_$tl7870278736_ (let () (declare (not safe)) - (##cdr _$tgt7869678726_)))) - (let ((_body78736_ _$hd7869778729_)) - (if (let ((__tmp79404 + (##cdr _$tgt7870078730_)))) + (let ((_body78740_ _$hd7870178733_)) + (if (let ((__tmp79408 (let () (declare (not safe)) - (__AST-e _$tl7869878732_)))) + (__AST-e _$tl7870278736_)))) (declare (not safe)) - (equal? __tmp79404 '())) - (let ((__tmp79399 - (let ((__tmp79400 - (let ((__tmp79403 + (equal? __tmp79408 '())) + (let ((__tmp79403 + (let ((__tmp79404 + (let ((__tmp79407 (let () (declare (not safe)) (__compile-lambda-head - _hd78724_))) - (__tmp79401 - (let ((__tmp79402 + _hd78728_))) + (__tmp79405 + (let ((__tmp79406 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body78736_)))) + (__compile _body78740_)))) (declare (not safe)) - (cons __tmp79402 '())))) + (cons __tmp79406 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79403 - __tmp79401)))) + (cons __tmp79407 + __tmp79405)))) (declare (not safe)) - (cons 'lambda __tmp79400)))) + (cons 'lambda __tmp79404)))) (declare (not safe)) - (__SRC__% __tmp79399 _stx78685_)) + (__SRC__% __tmp79403 _stx78689_)) (let () (declare (not safe)) - (_$E7868978701_))))) - (let () (declare (not safe)) (_$E7868978701_))))) - (let () (declare (not safe)) (_$E7868978701_)))) - (let () (declare (not safe)) (_$E7868978701_)))))) + (_$E7869378705_))))) + (let () (declare (not safe)) (_$E7869378705_))))) + (let () (declare (not safe)) (_$E7869378705_)))) + (let () (declare (not safe)) (_$E7869378705_)))))) (define __compile-case-lambda% - (lambda (_stx78477_) - (letrec ((_variadic?78479_ - (lambda (_hd78650_) - (let* ((_$e78652_ _hd78650_) - (_$E7865478670_ + (lambda (_stx78481_) + (letrec ((_variadic?78483_ + (lambda (_hd78654_) + (let* ((_$e78656_ _hd78654_) + (_$E7865878674_ (lambda () - (let ((_$E7865578667_ + (let ((_$E7865978671_ (lambda () - (let ((_$E7865678664_ + (let ((_$E7866078668_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78652_))))) + _$e78656_))))) '#t)))) - (if (let ((__tmp79405 + (if (let ((__tmp79409 (let () (declare (not safe)) - (__AST-e _$e78652_)))) + (__AST-e _$e78656_)))) (declare (not safe)) - (equal? __tmp79405 '())) + (equal? __tmp79409 '())) '#f (let () (declare (not safe)) - (_$E7865578667_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78652_)) - (let* ((_$tgt7865778673_ + (_$E7865978671_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78656_)) + (let* ((_$tgt7866178677_ (let () (declare (not safe)) - (__AST-e _$e78652_))) - (_$hd7865878676_ + (__AST-e _$e78656_))) + (_$hd7866278680_ (let () (declare (not safe)) - (##car _$tgt7865778673_))) - (_$tl7865978679_ + (##car _$tgt7866178677_))) + (_$tl7866378683_ (let () (declare (not safe)) - (##cdr _$tgt7865778673_)))) - (let ((_rest78683_ _$tl7865978679_)) + (##cdr _$tgt7866178677_)))) + (let ((_rest78687_ _$tl7866378683_)) (declare (not safe)) - (_variadic?78479_ _rest78683_))) - (let () (declare (not safe)) (_$E7865478670_)))))) - (_arity78480_ - (lambda (_hd78615_) - (let _lp78617_ ((_rest78619_ _hd78615_) (_k78620_ '0)) - (let* ((_$e78622_ _rest78619_) - (_$E7862478635_ + (_variadic?78483_ _rest78687_))) + (let () (declare (not safe)) (_$E7865878674_)))))) + (_arity78484_ + (lambda (_hd78619_) + (let _lp78621_ ((_rest78623_ _hd78619_) (_k78624_ '0)) + (let* ((_$e78626_ _rest78623_) + (_$E7862878639_ (lambda () - (let ((_$E7862578632_ + (let ((_$E7862978636_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78622_))))) - _k78620_)))) + _$e78626_))))) + _k78624_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e78622_)) - (let* ((_$tgt7862678638_ + (__AST-pair? _$e78626_)) + (let* ((_$tgt7863078642_ (let () (declare (not safe)) - (__AST-e _$e78622_))) - (_$hd7862778641_ + (__AST-e _$e78626_))) + (_$hd7863178645_ (let () (declare (not safe)) - (##car _$tgt7862678638_))) - (_$tl7862878644_ + (##car _$tgt7863078642_))) + (_$tl7863278648_ (let () (declare (not safe)) - (##cdr _$tgt7862678638_)))) - (let* ((_rest78648_ _$tl7862878644_) - (__tmp79406 + (##cdr _$tgt7863078642_)))) + (let* ((_rest78652_ _$tl7863278648_) + (__tmp79410 (let () (declare (not safe)) - (fx+ _k78620_ '1)))) + (fx+ _k78624_ '1)))) (declare (not safe)) - (_lp78617_ _rest78648_ __tmp79406))) - (let () (declare (not safe)) (_$E7862478635_))))))) - (_generate78481_ - (lambda (_rest78542_ _args78543_ _len78544_) - (let* ((_$e78546_ _rest78542_) - (_$E7854878559_ + (_lp78621_ _rest78652_ __tmp79410))) + (let () (declare (not safe)) (_$E7862878639_))))))) + (_generate78485_ + (lambda (_rest78546_ _args78547_ _len78548_) + (let* ((_$e78550_ _rest78546_) + (_$E7855278563_ (lambda () - (let* ((_$E7854978556_ + (let* ((_$E7855378560_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78546_)))) - (__tmp79407 - (let ((__tmp79408 - (let ((__tmp79409 + _$e78550_)))) + (__tmp79411 + (let ((__tmp79412 + (let ((__tmp79413 (let () (declare (not safe)) - (cons _args78543_ '())))) + (cons _args78547_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp79409)))) + __tmp79413)))) (declare (not safe)) - (cons 'error __tmp79408)))) + (cons 'error __tmp79412)))) (declare (not safe)) - (__SRC__% __tmp79407 _stx78477_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78546_)) - (let* ((_$tgt7855078562_ + (__SRC__% __tmp79411 _stx78481_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78550_)) + (let* ((_$tgt7855478566_ (let () (declare (not safe)) - (__AST-e _$e78546_))) - (_$hd7855178565_ + (__AST-e _$e78550_))) + (_$hd7855578569_ (let () (declare (not safe)) - (##car _$tgt7855078562_))) - (_$tl7855278568_ + (##car _$tgt7855478566_))) + (_$tl7855678572_ (let () (declare (not safe)) - (##cdr _$tgt7855078562_)))) - (let* ((_clause78572_ _$hd7855178565_) - (_rest78574_ _$tl7855278568_) - (_$e78576_ _clause78572_) - (_$E7857878587_ + (##cdr _$tgt7855478566_)))) + (let* ((_clause78576_ _$hd7855578569_) + (_rest78578_ _$tl7855678572_) + (_$e78580_ _clause78576_) + (_$E7858278591_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78576_))))) + _$e78580_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e78576_)) - (let* ((_$tgt7857978590_ + (__AST-pair? _$e78580_)) + (let* ((_$tgt7858378594_ (let () (declare (not safe)) - (__AST-e _$e78576_))) - (_$hd7858078593_ + (__AST-e _$e78580_))) + (_$hd7858478597_ (let () (declare (not safe)) - (##car _$tgt7857978590_))) - (_$tl7858178596_ + (##car _$tgt7858378594_))) + (_$tl7858578600_ (let () (declare (not safe)) - (##cdr _$tgt7857978590_)))) - (let ((_hd78600_ _$hd7858078593_)) + (##cdr _$tgt7858378594_)))) + (let ((_hd78604_ _$hd7858478597_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7858178596_)) - (let* ((_$tgt7858278602_ + (__AST-pair? _$tl7858578600_)) + (let* ((_$tgt7858678606_ (let () (declare (not safe)) - (__AST-e _$tl7858178596_))) - (_$hd7858378605_ + (__AST-e _$tl7858578600_))) + (_$hd7858778609_ (let () (declare (not safe)) - (##car _$tgt7858278602_))) - (_$tl7858478608_ + (##car _$tgt7858678606_))) + (_$tl7858878612_ (let () (declare (not safe)) - (##cdr _$tgt7858278602_)))) - (if (let ((__tmp79424 + (##cdr _$tgt7858678606_)))) + (if (let ((__tmp79428 (let () (declare (not safe)) - (__AST-e _$tl7858478608_)))) + (__AST-e _$tl7858878612_)))) (declare (not safe)) - (equal? __tmp79424 '())) - (let ((_clen78612_ + (equal? __tmp79428 '())) + (let ((_clen78616_ (let () (declare (not safe)) - (_arity78480_ - _hd78600_))) - (_cmp78613_ + (_arity78484_ + _hd78604_))) + (_cmp78617_ (if (let () (declare (not safe)) - (_variadic?78479_ - _hd78600_)) + (_variadic?78483_ + _hd78604_)) 'fx>= 'fx=))) - (let ((__tmp79410 - (let ((__tmp79411 - (let ((__tmp79421 + (let ((__tmp79414 + (let ((__tmp79415 + (let ((__tmp79425 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79422 - (let ((__tmp79423 + (let ((__tmp79426 + (let ((__tmp79427 (let () (declare (not safe)) - (cons _clen78612_ '())))) + (cons _clen78616_ '())))) (declare (not safe)) - (cons _len78544_ __tmp79423)))) + (cons _len78548_ __tmp79427)))) (declare (not safe)) - (cons _cmp78613_ __tmp79422))) - (__tmp79412 - (let ((__tmp79415 - (let ((__tmp79416 - (let ((__tmp79417 - (let ((__tmp79419 - (let ((__tmp79420 + (cons _cmp78617_ __tmp79426))) + (__tmp79416 + (let ((__tmp79419 + (let ((__tmp79420 + (let ((__tmp79421 + (let ((__tmp79423 + (let ((__tmp79424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause78572_)))) + (cons '%#lambda _clause78576_)))) (declare (not safe)) - (__compile-lambda% __tmp79420))) - (__tmp79418 - (let () (declare (not safe)) (cons _args78543_ '())))) + (__compile-lambda% __tmp79424))) + (__tmp79422 + (let () (declare (not safe)) (cons _args78547_ '())))) (declare (not safe)) - (cons __tmp79419 __tmp79418)))) + (cons __tmp79423 __tmp79422)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp79417)))) + (cons '##apply __tmp79421)))) (declare (not safe)) - (__SRC__% __tmp79416 _stx78477_))) - (__tmp79413 - (let ((__tmp79414 + (__SRC__% __tmp79420 _stx78481_))) + (__tmp79417 + (let ((__tmp79418 (let () (declare (not safe)) - (_generate78481_ - _rest78574_ - _args78543_ - _len78544_)))) + (_generate78485_ + _rest78578_ + _args78547_ + _len78548_)))) (declare (not safe)) - (cons __tmp79414 '())))) + (cons __tmp79418 '())))) (declare (not safe)) - (cons __tmp79415 __tmp79413)))) + (cons __tmp79419 __tmp79417)))) (declare (not safe)) - (cons __tmp79421 __tmp79412)))) + (cons __tmp79425 __tmp79416)))) (declare (not safe)) - (cons 'if __tmp79411)))) + (cons 'if __tmp79415)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp79410 - _stx78477_))) + __tmp79414 + _stx78481_))) (let () (declare (not safe)) - (_$E7857878587_)))) + (_$E7858278591_)))) (let () (declare (not safe)) - (_$E7857878587_))))) + (_$E7858278591_))))) (let () (declare (not safe)) - (_$E7857878587_))))) - (let () (declare (not safe)) (_$E7854878559_))))))) - (let* ((_$e78483_ _stx78477_) - (_$E7848578517_ + (_$E7858278591_))))) + (let () (declare (not safe)) (_$E7855278563_))))))) + (let* ((_$e78487_ _stx78481_) + (_$E7848978521_ (lambda () - (let ((_$E7848678499_ + (let ((_$E7849078503_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78483_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78483_)) - (let* ((_$tgt7848778502_ + _$e78487_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78487_)) + (let* ((_$tgt7849178506_ (let () (declare (not safe)) - (__AST-e _$e78483_))) - (_$hd7848878505_ + (__AST-e _$e78487_))) + (_$hd7849278509_ (let () (declare (not safe)) - (##car _$tgt7848778502_))) - (_$tl7848978508_ + (##car _$tgt7849178506_))) + (_$tl7849378512_ (let () (declare (not safe)) - (##cdr _$tgt7848778502_)))) - (let ((_clauses78512_ _$tl7848978508_)) - (let ((_args78514_ - (let ((__tmp79425 (gensym))) + (##cdr _$tgt7849178506_)))) + (let ((_clauses78516_ _$tl7849378512_)) + (let ((_args78518_ + (let ((__tmp79429 (gensym))) (declare (not safe)) - (__SRC__% __tmp79425 _stx78477_))) - (_len78515_ - (let ((__tmp79426 (gensym))) + (__SRC__% __tmp79429 _stx78481_))) + (_len78519_ + (let ((__tmp79430 (gensym))) (declare (not safe)) - (__SRC__% __tmp79426 _stx78477_)))) - (let ((__tmp79427 - (let ((__tmp79428 - (let ((__tmp79429 - (let ((__tmp79430 - (let ((__tmp79431 + (__SRC__% __tmp79430 _stx78481_)))) + (let ((__tmp79431 + (let ((__tmp79432 + (let ((__tmp79433 + (let ((__tmp79434 + (let ((__tmp79435 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79432 - (let ((__tmp79435 - (let ((__tmp79436 - (let ((__tmp79437 - (let ((__tmp79438 - (let ((__tmp79439 + (let ((__tmp79436 + (let ((__tmp79439 + (let ((__tmp79440 + (let ((__tmp79441 + (let ((__tmp79442 + (let ((__tmp79443 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79440 + (let ((__tmp79444 (let () (declare (not safe)) - (cons _args78514_ '())))) + (cons _args78518_ '())))) (declare (not safe)) - (cons '##length __tmp79440)))) + (cons '##length __tmp79444)))) (declare (not safe)) - (__SRC__% __tmp79439 _stx78477_)))) + (__SRC__% __tmp79443 _stx78481_)))) (declare (not safe)) - (cons __tmp79438 '())))) + (cons __tmp79442 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len78515_ - __tmp79437)))) + (cons _len78519_ + __tmp79441)))) (declare (not safe)) - (cons __tmp79436 '()))) - (__tmp79433 - (let ((__tmp79434 + (cons __tmp79440 '()))) + (__tmp79437 + (let ((__tmp79438 (let () (declare (not safe)) - (_generate78481_ - _clauses78512_ - _args78514_ - _len78515_)))) + (_generate78485_ + _clauses78516_ + _args78518_ + _len78519_)))) (declare (not safe)) - (cons __tmp79434 '())))) + (cons __tmp79438 '())))) (declare (not safe)) - (cons __tmp79435 __tmp79433)))) + (cons __tmp79439 __tmp79437)))) (declare (not safe)) - (cons 'let __tmp79432)))) + (cons 'let __tmp79436)))) (declare (not safe)) - (__SRC__% __tmp79431 _stx78477_)))) + (__SRC__% __tmp79435 _stx78481_)))) (declare (not safe)) - (cons __tmp79430 '())))) + (cons __tmp79434 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args78514_ - __tmp79429)))) + (cons _args78518_ + __tmp79433)))) (declare (not safe)) - (cons 'lambda __tmp79428)))) + (cons 'lambda __tmp79432)))) (declare (not safe)) - (__SRC__% __tmp79427 _stx78477_))))) - (let () (declare (not safe)) (_$E7848678499_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78483_)) - (let* ((_$tgt7849078520_ - (let () (declare (not safe)) (__AST-e _$e78483_))) - (_$hd7849178523_ - (let () (declare (not safe)) (##car _$tgt7849078520_))) - (_$tl7849278526_ + (__SRC__% __tmp79431 _stx78481_))))) + (let () (declare (not safe)) (_$E7849078503_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78487_)) + (let* ((_$tgt7849478524_ + (let () (declare (not safe)) (__AST-e _$e78487_))) + (_$hd7849578527_ + (let () (declare (not safe)) (##car _$tgt7849478524_))) + (_$tl7849678530_ (let () (declare (not safe)) - (##cdr _$tgt7849078520_)))) + (##cdr _$tgt7849478524_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7849278526_)) - (let* ((_$tgt7849378530_ + (__AST-pair? _$tl7849678530_)) + (let* ((_$tgt7849778534_ (let () (declare (not safe)) - (__AST-e _$tl7849278526_))) - (_$hd7849478533_ + (__AST-e _$tl7849678530_))) + (_$hd7849878537_ (let () (declare (not safe)) - (##car _$tgt7849378530_))) - (_$tl7849578536_ + (##car _$tgt7849778534_))) + (_$tl7849978540_ (let () (declare (not safe)) - (##cdr _$tgt7849378530_)))) - (let ((_clause78540_ _$hd7849478533_)) - (if (let ((__tmp79442 + (##cdr _$tgt7849778534_)))) + (let ((_clause78544_ _$hd7849878537_)) + (if (let ((__tmp79446 (let () (declare (not safe)) - (__AST-e _$tl7849578536_)))) + (__AST-e _$tl7849978540_)))) (declare (not safe)) - (equal? __tmp79442 '())) - (let ((__tmp79441 + (equal? __tmp79446 '())) + (let ((__tmp79445 (let () (declare (not safe)) - (cons '%#lambda _clause78540_)))) + (cons '%#lambda _clause78544_)))) (declare (not safe)) - (__compile-lambda% __tmp79441)) - (let () (declare (not safe)) (_$E7848578517_))))) - (let () (declare (not safe)) (_$E7848578517_)))) - (let () (declare (not safe)) (_$E7848578517_))))))) + (__compile-lambda% __tmp79445)) + (let () (declare (not safe)) (_$E7848978521_))))) + (let () (declare (not safe)) (_$E7848978521_)))) + (let () (declare (not safe)) (_$E7848978521_))))))) (define __compile-let-form - (lambda (_stx78246_ _compile-simple78247_ _compile-values78248_) - (letrec ((_simple-bind?78250_ - (lambda (_hd78435_) - (let* ((_hd7843678446_ _hd78435_) - (_else7843978454_ (lambda () '#f))) - (let ((_K7844278467_ (lambda (_id78465_) '#t)) - (_K7844178459_ (lambda () '#t))) - (let ((_try-match7843878462_ + (lambda (_stx78250_ _compile-simple78251_ _compile-values78252_) + (letrec ((_simple-bind?78254_ + (lambda (_hd78439_) + (let* ((_hd7844078450_ _hd78439_) + (_else7844378458_ (lambda () '#f))) + (let ((_K7844678471_ (lambda (_id78469_) '#t)) + (_K7844578463_ (lambda () '#t))) + (let ((_try-match7844278466_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd7843678446_ '#f)) + (##eq? _hd7844078450_ '#f)) (let () (declare (not safe)) - (_K7844178459_)) + (_K7844578463_)) (let () (declare (not safe)) - (_else7843978454_)))))) + (_else7844378458_)))))) (if (let () (declare (not safe)) - (##pair? _hd7843678446_)) - (let ((_tl7844478472_ + (##pair? _hd7844078450_)) + (let ((_tl7844878476_ (let () (declare (not safe)) - (##cdr _hd7843678446_))) - (_hd7844378470_ + (##cdr _hd7844078450_))) + (_hd7844778474_ (let () (declare (not safe)) - (##car _hd7843678446_)))) + (##car _hd7844078450_)))) (if (let () (declare (not safe)) - (##null? _tl7844478472_)) - (let ((_id78475_ _hd7844378470_)) + (##null? _tl7844878476_)) + (let ((_id78479_ _hd7844778474_)) (declare (not safe)) - (_K7844278467_ _id78475_)) + (_K7844678471_ _id78479_)) (let () (declare (not safe)) - (_try-match7843878462_)))) + (_try-match7844278466_)))) (let () (declare (not safe)) - (_try-match7843878462_)))))))) - (_car-e78251_ - (lambda (_hd78433_) - (if (let () (declare (not safe)) (pair? _hd78433_)) - (car _hd78433_) - _hd78433_)))) - (let* ((_$e78253_ _stx78246_) - (_$E7825578398_ + (_try-match7844278466_)))))))) + (_car-e78255_ + (lambda (_hd78437_) + (if (let () (declare (not safe)) (pair? _hd78437_)) + (car _hd78437_) + _hd78437_)))) + (let* ((_$e78257_ _stx78250_) + (_$E7825978402_ (lambda () - (let ((_$E7825678278_ + (let ((_$E7826078282_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78253_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78253_)) - (let* ((_$tgt7825778281_ + _$e78257_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78257_)) + (let* ((_$tgt7826178285_ (let () (declare (not safe)) - (__AST-e _$e78253_))) - (_$hd7825878284_ + (__AST-e _$e78257_))) + (_$hd7826278288_ (let () (declare (not safe)) - (##car _$tgt7825778281_))) - (_$tl7825978287_ + (##car _$tgt7826178285_))) + (_$tl7826378291_ (let () (declare (not safe)) - (##cdr _$tgt7825778281_)))) + (##cdr _$tgt7826178285_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7825978287_)) - (let* ((_$tgt7826078291_ + (__AST-pair? _$tl7826378291_)) + (let* ((_$tgt7826478295_ (let () (declare (not safe)) - (__AST-e _$tl7825978287_))) - (_$hd7826178294_ + (__AST-e _$tl7826378291_))) + (_$hd7826578298_ (let () (declare (not safe)) - (##car _$tgt7826078291_))) - (_$tl7826278297_ + (##car _$tgt7826478295_))) + (_$tl7826678301_ (let () (declare (not safe)) - (##cdr _$tgt7826078291_)))) - (let ((_hd78301_ _$hd7826178294_)) + (##cdr _$tgt7826478295_)))) + (let ((_hd78305_ _$hd7826578298_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7826278297_)) - (let* ((_$tgt7826378303_ + (__AST-pair? _$tl7826678301_)) + (let* ((_$tgt7826778307_ (let () (declare (not safe)) - (__AST-e _$tl7826278297_))) - (_$hd7826478306_ + (__AST-e _$tl7826678301_))) + (_$hd7826878310_ (let () (declare (not safe)) - (##car _$tgt7826378303_))) - (_$tl7826578309_ + (##car _$tgt7826778307_))) + (_$tl7826978313_ (let () (declare (not safe)) - (##cdr _$tgt7826378303_)))) - (let ((_body78313_ _$hd7826478306_)) - (if (let ((__tmp79445 + (##cdr _$tgt7826778307_)))) + (let ((_body78317_ _$hd7826878310_)) + (if (let ((__tmp79449 (let () (declare (not safe)) - (__AST-e _$tl7826578309_)))) + (__AST-e _$tl7826978313_)))) (declare (not safe)) - (equal? __tmp79445 '())) - (let* ((_hd-ids78353_ - (map (lambda (_bind78315_) - (let* ((_$e78317_ + (equal? __tmp79449 '())) + (let* ((_hd-ids78357_ + (map (lambda (_bind78319_) + (let* ((_$e78321_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind78315_) - (_$E7831978328_ + _bind78319_) + (_$E7832378332_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78317_))))) + _$e78321_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e78317_)) - (let* ((_$tgt7832078331_ + (__AST-pair? _$e78321_)) + (let* ((_$tgt7832478335_ (let () (declare (not safe)) - (__AST-e _$e78317_))) - (_$hd7832178334_ + (__AST-e _$e78321_))) + (_$hd7832578338_ (let () (declare (not safe)) - (##car _$tgt7832078331_))) - (_$tl7832278337_ + (##car _$tgt7832478335_))) + (_$tl7832678341_ (let () (declare (not safe)) - (##cdr _$tgt7832078331_)))) - (let ((_ids78341_ _$hd7832178334_)) + (##cdr _$tgt7832478335_)))) + (let ((_ids78345_ _$hd7832578338_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7832278337_)) - (let* ((_$tgt7832378343_ + (__AST-pair? _$tl7832678341_)) + (let* ((_$tgt7832778347_ (let () (declare (not safe)) - (__AST-e _$tl7832278337_))) - (_$hd7832478346_ + (__AST-e _$tl7832678341_))) + (_$hd7832878350_ (let () (declare (not safe)) - (##car _$tgt7832378343_))) - (_$tl7832578349_ + (##car _$tgt7832778347_))) + (_$tl7832978353_ (let () (declare (not safe)) - (##cdr _$tgt7832378343_)))) - (if (let ((__tmp79443 + (##cdr _$tgt7832778347_)))) + (if (let ((__tmp79447 (let () (declare (not safe)) - (__AST-e _$tl7832578349_)))) + (__AST-e _$tl7832978353_)))) (declare (not safe)) - (equal? __tmp79443 '())) - _ids78341_ + (equal? __tmp79447 '())) + _ids78345_ (let () (declare (not safe)) - (_$E7831978328_)))) + (_$E7832378332_)))) (let () (declare (not safe)) - (_$E7831978328_))))) - (let () (declare (not safe)) (_$E7831978328_))))) - _hd78301_)) - (_exprs78393_ - (map (lambda (_bind78355_) - (let* ((_$e78357_ _bind78355_) - (_$E7835978368_ + (_$E7832378332_))))) + (let () (declare (not safe)) (_$E7832378332_))))) + _hd78305_)) + (_exprs78397_ + (map (lambda (_bind78359_) + (let* ((_$e78361_ _bind78359_) + (_$E7836378372_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78357_))))) + _$e78361_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e78357_)) - (let* ((_$tgt7836078371_ + (__AST-pair? _$e78361_)) + (let* ((_$tgt7836478375_ (let () (declare (not safe)) - (__AST-e _$e78357_))) - (_$hd7836178374_ + (__AST-e _$e78361_))) + (_$hd7836578378_ (let () (declare (not safe)) - (##car _$tgt7836078371_))) - (_$tl7836278377_ + (##car _$tgt7836478375_))) + (_$tl7836678381_ (let () (declare (not safe)) - (##cdr _$tgt7836078371_)))) + (##cdr _$tgt7836478375_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7836278377_)) - (let* ((_$tgt7836378381_ + (__AST-pair? _$tl7836678381_)) + (let* ((_$tgt7836778385_ (let () (declare (not safe)) - (__AST-e _$tl7836278377_))) - (_$hd7836478384_ + (__AST-e _$tl7836678381_))) + (_$hd7836878388_ (let () (declare (not safe)) - (##car _$tgt7836378381_))) - (_$tl7836578387_ + (##car _$tgt7836778385_))) + (_$tl7836978391_ (let () (declare (not safe)) - (##cdr _$tgt7836378381_)))) - (let ((_expr78391_ _$hd7836478384_)) - (if (let ((__tmp79444 + (##cdr _$tgt7836778385_)))) + (let ((_expr78395_ _$hd7836878388_)) + (if (let ((__tmp79448 (let () (declare (not safe)) - (__AST-e _$tl7836578387_)))) + (__AST-e _$tl7836978391_)))) (declare (not safe)) - (equal? __tmp79444 '())) + (equal? __tmp79448 '())) (let () (declare (not safe)) - (__compile _expr78391_)) + (__compile _expr78395_)) (let () (declare (not safe)) - (_$E7835978368_))))) + (_$E7836378372_))))) (let () (declare (not safe)) - (_$E7835978368_)))) - (let () (declare (not safe)) (_$E7835978368_))))) - _hd78301_)) - (_body78395_ - (let () (declare (not safe)) (__compile _body78313_)))) + (_$E7836378372_)))) + (let () (declare (not safe)) (_$E7836378372_))))) + _hd78305_)) + (_body78399_ + (let () (declare (not safe)) (__compile _body78317_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?78250_ + (andmap1 _simple-bind?78254_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids78353_)) - (_compile-simple78247_ - (map _car-e78251_ _hd-ids78353_) - _exprs78393_ - _body78395_) - (_compile-values78248_ _hd-ids78353_ _exprs78393_ _body78395_))) + _hd-ids78357_)) + (_compile-simple78251_ + (map _car-e78255_ _hd-ids78357_) + _exprs78397_ + _body78399_) + (_compile-values78252_ _hd-ids78357_ _exprs78397_ _body78399_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E7825678278_))))) + (_$E7826078282_))))) (let () (declare (not safe)) - (_$E7825678278_))))) + (_$E7826078282_))))) (let () (declare (not safe)) - (_$E7825678278_)))) - (let () (declare (not safe)) (_$E7825678278_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78253_)) - (let* ((_$tgt7826678401_ - (let () (declare (not safe)) (__AST-e _$e78253_))) - (_$hd7826778404_ - (let () (declare (not safe)) (##car _$tgt7826678401_))) - (_$tl7826878407_ + (_$E7826078282_)))) + (let () (declare (not safe)) (_$E7826078282_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78257_)) + (let* ((_$tgt7827078405_ + (let () (declare (not safe)) (__AST-e _$e78257_))) + (_$hd7827178408_ + (let () (declare (not safe)) (##car _$tgt7827078405_))) + (_$tl7827278411_ (let () (declare (not safe)) - (##cdr _$tgt7826678401_)))) + (##cdr _$tgt7827078405_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7826878407_)) - (let* ((_$tgt7826978411_ + (__AST-pair? _$tl7827278411_)) + (let* ((_$tgt7827378415_ (let () (declare (not safe)) - (__AST-e _$tl7826878407_))) - (_$hd7827078414_ + (__AST-e _$tl7827278411_))) + (_$hd7827478418_ (let () (declare (not safe)) - (##car _$tgt7826978411_))) - (_$tl7827178417_ + (##car _$tgt7827378415_))) + (_$tl7827578421_ (let () (declare (not safe)) - (##cdr _$tgt7826978411_)))) - (if (let ((__tmp79447 + (##cdr _$tgt7827378415_)))) + (if (let ((__tmp79451 (let () (declare (not safe)) - (__AST-e _$hd7827078414_)))) + (__AST-e _$hd7827478418_)))) (declare (not safe)) - (equal? __tmp79447 '())) + (equal? __tmp79451 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl7827178417_)) - (let* ((_$tgt7827278421_ + (__AST-pair? _$tl7827578421_)) + (let* ((_$tgt7827678425_ (let () (declare (not safe)) - (__AST-e _$tl7827178417_))) - (_$hd7827378424_ + (__AST-e _$tl7827578421_))) + (_$hd7827778428_ (let () (declare (not safe)) - (##car _$tgt7827278421_))) - (_$tl7827478427_ + (##car _$tgt7827678425_))) + (_$tl7827878431_ (let () (declare (not safe)) - (##cdr _$tgt7827278421_)))) - (let ((_body78431_ _$hd7827378424_)) - (if (let ((__tmp79446 + (##cdr _$tgt7827678425_)))) + (let ((_body78435_ _$hd7827778428_)) + (if (let ((__tmp79450 (let () (declare (not safe)) - (__AST-e _$tl7827478427_)))) + (__AST-e _$tl7827878431_)))) (declare (not safe)) - (equal? __tmp79446 '())) + (equal? __tmp79450 '())) (let () (declare (not safe)) - (__compile _body78431_)) + (__compile _body78435_)) (let () (declare (not safe)) - (_$E7825578398_))))) - (let () (declare (not safe)) (_$E7825578398_))) - (let () (declare (not safe)) (_$E7825578398_)))) - (let () (declare (not safe)) (_$E7825578398_)))) - (let () (declare (not safe)) (_$E7825578398_))))))) + (_$E7825978402_))))) + (let () (declare (not safe)) (_$E7825978402_))) + (let () (declare (not safe)) (_$E7825978402_)))) + (let () (declare (not safe)) (_$E7825978402_)))) + (let () (declare (not safe)) (_$E7825978402_))))))) (define __compile-let-values% - (lambda (_stx78061_) - (letrec ((_compile-simple78063_ - (lambda (_hd-ids78242_ _exprs78243_ _body78244_) - (let ((__tmp79448 - (let ((__tmp79449 - (let ((__tmp79451 + (lambda (_stx78065_) + (letrec ((_compile-simple78067_ + (lambda (_hd-ids78246_ _exprs78247_ _body78248_) + (let ((__tmp79452 + (let ((__tmp79453 + (let ((__tmp79455 (map list (map __compile-head-id - _hd-ids78242_) - _exprs78243_)) - (__tmp79450 + _hd-ids78246_) + _exprs78247_)) + (__tmp79454 (let () (declare (not safe)) - (cons _body78244_ '())))) + (cons _body78248_ '())))) (declare (not safe)) - (cons __tmp79451 __tmp79450)))) + (cons __tmp79455 __tmp79454)))) (declare (not safe)) - (cons 'let __tmp79449)))) + (cons 'let __tmp79453)))) (declare (not safe)) - (__SRC__% __tmp79448 _stx78061_)))) - (_compile-values78064_ - (lambda (_hd-ids78160_ _exprs78161_ _body78162_) - (let _lp78164_ ((_rest78166_ _hd-ids78160_) - (_exprs78167_ _exprs78161_) - (_bind78168_ '()) - (_post78169_ '())) - (let* ((_rest7817078184_ _rest78166_) - (_else7817378192_ + (__SRC__% __tmp79452 _stx78065_)))) + (_compile-values78068_ + (lambda (_hd-ids78164_ _exprs78165_ _body78166_) + (let _lp78168_ ((_rest78170_ _hd-ids78164_) + (_exprs78171_ _exprs78165_) + (_bind78172_ '()) + (_post78173_ '())) + (let* ((_rest7817478188_ _rest78170_) + (_else7817778196_ (lambda () - (let ((__tmp79452 - (let ((__tmp79453 - (let ((__tmp79456 - (reverse _bind78168_)) - (__tmp79454 - (let ((__tmp79455 + (let ((__tmp79456 + (let ((__tmp79457 + (let ((__tmp79460 + (reverse _bind78172_)) + (__tmp79458 + (let ((__tmp79459 (let () (declare (not safe)) - (_compile-post78065_ - _post78169_ - _body78162_)))) + (_compile-post78069_ + _post78173_ + _body78166_)))) (declare (not safe)) - (cons __tmp79455 '())))) + (cons __tmp79459 '())))) (declare (not safe)) - (cons __tmp79456 __tmp79454)))) + (cons __tmp79460 __tmp79458)))) (declare (not safe)) - (cons 'let __tmp79453)))) + (cons 'let __tmp79457)))) (declare (not safe)) - (__SRC__% __tmp79452 _stx78061_))))) - (let ((_K7817878225_ - (lambda (_rest78222_ _id78223_) - (let ((__tmp79462 (cdr _exprs78167_)) - (__tmp79457 - (let ((__tmp79458 - (let ((__tmp79461 + (__SRC__% __tmp79456 _stx78065_))))) + (let ((_K7818278229_ + (lambda (_rest78226_ _id78227_) + (let ((__tmp79466 (cdr _exprs78171_)) + (__tmp79461 + (let ((__tmp79462 + (let ((__tmp79465 (let () (declare (not safe)) (__compile-head-id - _id78223_))) - (__tmp79459 - (let ((__tmp79460 - (car _exprs78167_))) + _id78227_))) + (__tmp79463 + (let ((__tmp79464 + (car _exprs78171_))) (declare (not safe)) - (cons __tmp79460 + (cons __tmp79464 '())))) (declare (not safe)) - (cons __tmp79461 - __tmp79459)))) + (cons __tmp79465 + __tmp79463)))) (declare (not safe)) - (cons __tmp79458 _bind78168_)))) + (cons __tmp79462 _bind78172_)))) (declare (not safe)) - (_lp78164_ - _rest78222_ - __tmp79462 - __tmp79457 - _post78169_)))) - (_K7817578207_ - (lambda (_rest78196_ _hd78197_) + (_lp78168_ + _rest78226_ + __tmp79466 + __tmp79461 + _post78173_)))) + (_K7817978211_ + (lambda (_rest78200_ _hd78201_) (if (let () (declare (not safe)) - (__AST-id? _hd78197_)) - (let ((__tmp79483 (cdr _exprs78167_)) - (__tmp79476 - (let ((__tmp79477 - (let ((__tmp79482 + (__AST-id? _hd78201_)) + (let ((__tmp79487 (cdr _exprs78171_)) + (__tmp79480 + (let ((__tmp79481 + (let ((__tmp79486 (let () (declare (not safe)) (__compile-head-id - _hd78197_))) - (__tmp79478 - (let ((__tmp79479 + _hd78201_))) + (__tmp79482 + (let ((__tmp79483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79480 - (let ((__tmp79481 (car _exprs78167_))) + (let ((__tmp79484 + (let ((__tmp79485 (car _exprs78171_))) (declare (not safe)) - (cons __tmp79481 '())))) + (cons __tmp79485 '())))) (declare (not safe)) - (cons 'values->list __tmp79480)))) + (cons 'values->list __tmp79484)))) (declare (not safe)) - (cons __tmp79479 '())))) + (cons __tmp79483 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79482 - __tmp79478)))) + (cons __tmp79486 + __tmp79482)))) (declare (not safe)) - (cons __tmp79477 _bind78168_)))) + (cons __tmp79481 _bind78172_)))) (declare (not safe)) - (_lp78164_ - _rest78196_ - __tmp79483 - __tmp79476 - _post78169_)) + (_lp78168_ + _rest78200_ + __tmp79487 + __tmp79480 + _post78173_)) (if (let () (declare (not safe)) - (list? _hd78197_)) - (let* ((_len78199_ (length _hd78197_)) - (_tmp78201_ - (let ((__tmp79463 (gensym))) + (list? _hd78201_)) + (let* ((_len78203_ (length _hd78201_)) + (_tmp78205_ + (let ((__tmp79467 (gensym))) (declare (not safe)) - (__SRC__0 __tmp79463)))) - (let ((__tmp79475 - (cdr _exprs78167_)) - (__tmp79471 - (let ((__tmp79472 - (let ((__tmp79473 - (let ((__tmp79474 + (__SRC__0 __tmp79467)))) + (let ((__tmp79479 + (cdr _exprs78171_)) + (__tmp79475 + (let ((__tmp79476 + (let ((__tmp79477 + (let ((__tmp79478 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs78167_))) + (car _exprs78171_))) (declare (not safe)) - (cons __tmp79474 '())))) + (cons __tmp79478 '())))) (declare (not safe)) - (cons _tmp78201_ __tmp79473)))) + (cons _tmp78205_ __tmp79477)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79472 - _bind78168_))) - (__tmp79464 - (let ((__tmp79465 - (let ((__tmp79466 - (let ((__tmp79467 + (cons __tmp79476 + _bind78172_))) + (__tmp79468 + (let ((__tmp79469 + (let ((__tmp79470 + (let ((__tmp79471 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79469 - (lambda (_id78204_ _k78205_) + (let ((__tmp79473 + (lambda (_id78208_ _k78209_) (if (let () (declare (not safe)) - (__AST-e _id78204_)) - (let ((__tmp79470 + (__AST-e _id78208_)) + (let ((__tmp79474 (let () (declare (not safe)) - (__SRC__0 _id78204_)))) + (__SRC__0 _id78208_)))) (declare (not safe)) - (cons __tmp79470 _k78205_)) + (cons __tmp79474 _k78209_)) '#f))) - (__tmp79468 (iota _len78199_))) + (__tmp79472 (iota _len78203_))) (declare (not safe)) (filter-map2 - __tmp79469 - _hd78197_ - __tmp79468)))) + __tmp79473 + _hd78201_ + __tmp79472)))) (declare (not safe)) - (cons _len78199_ __tmp79467)))) + (cons _len78203_ __tmp79471)))) (declare (not safe)) - (cons _tmp78201_ __tmp79466)))) + (cons _tmp78205_ __tmp79470)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79465 - _post78169_)))) + (cons __tmp79469 + _post78173_)))) (declare (not safe)) - (_lp78164_ - _rest78196_ + (_lp78168_ + _rest78200_ + __tmp79479 __tmp79475 - __tmp79471 - __tmp79464))) + __tmp79468))) (let () (declare (not safe)) (__compile-error__% - _stx78061_ - _hd78197_))))))) + _stx78065_ + _hd78201_))))))) (if (let () (declare (not safe)) - (##pair? _rest7817078184_)) - (let ((_tl7818078230_ + (##pair? _rest7817478188_)) + (let ((_tl7818478234_ (let () (declare (not safe)) - (##cdr _rest7817078184_))) - (_hd7817978228_ + (##cdr _rest7817478188_))) + (_hd7818378232_ (let () (declare (not safe)) - (##car _rest7817078184_)))) + (##car _rest7817478188_)))) (if (let () (declare (not safe)) - (##pair? _hd7817978228_)) - (let ((_tl7818278235_ + (##pair? _hd7818378232_)) + (let ((_tl7818678239_ (let () (declare (not safe)) - (##cdr _hd7817978228_))) - (_hd7818178233_ + (##cdr _hd7818378232_))) + (_hd7818578237_ (let () (declare (not safe)) - (##car _hd7817978228_)))) + (##car _hd7818378232_)))) (if (let () (declare (not safe)) - (##null? _tl7818278235_)) - (let ((_id78238_ _hd7818178233_) - (_rest78240_ _tl7818078230_)) + (##null? _tl7818678239_)) + (let ((_id78242_ _hd7818578237_) + (_rest78244_ _tl7818478234_)) (let () (declare (not safe)) - (_K7817878225_ - _rest78240_ - _id78238_))) - (let ((_hd78215_ _hd7817978228_) - (_rest78217_ _tl7818078230_)) + (_K7818278229_ + _rest78244_ + _id78242_))) + (let ((_hd78219_ _hd7818378232_) + (_rest78221_ _tl7818478234_)) (let () (declare (not safe)) - (_K7817578207_ - _rest78217_ - _hd78215_))))) - (let ((_hd78215_ _hd7817978228_) - (_rest78217_ _tl7818078230_)) + (_K7817978211_ + _rest78221_ + _hd78219_))))) + (let ((_hd78219_ _hd7818378232_) + (_rest78221_ _tl7818478234_)) (let () (declare (not safe)) - (_K7817578207_ - _rest78217_ - _hd78215_))))) + (_K7817978211_ + _rest78221_ + _hd78219_))))) (let () (declare (not safe)) - (_else7817378192_)))))))) - (_compile-post78065_ - (lambda (_post78067_ _body78068_) - (let _lp78070_ ((_rest78072_ _post78067_) - (_check78073_ '()) - (_bind78074_ '())) - (let* ((_rest7807578087_ _rest78072_) - (_else7807778095_ + (_else7817778196_)))))))) + (_compile-post78069_ + (lambda (_post78071_ _body78072_) + (let _lp78074_ ((_rest78076_ _post78071_) + (_check78077_ '()) + (_bind78078_ '())) + (let* ((_rest7807978091_ _rest78076_) + (_else7808178099_ (lambda () - (let ((__tmp79484 - (let ((__tmp79485 - (let ((__tmp79486 - (let ((__tmp79487 - (let ((__tmp79488 + (let ((__tmp79488 + (let ((__tmp79489 + (let ((__tmp79490 + (let ((__tmp79491 + (let ((__tmp79492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79489 - (let ((__tmp79490 + (let ((__tmp79493 + (let ((__tmp79494 (let () (declare (not safe)) - (cons _body78068_ '())))) + (cons _body78072_ '())))) (declare (not safe)) - (cons _bind78074_ __tmp79490)))) + (cons _bind78078_ __tmp79494)))) (declare (not safe)) - (cons 'let __tmp79489)))) + (cons 'let __tmp79493)))) (declare (not safe)) - (__SRC__% __tmp79488 _stx78061_)))) + (__SRC__% __tmp79492 _stx78065_)))) (declare (not safe)) - (cons __tmp79487 '())))) + (cons __tmp79491 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp79486 - _check78073_)))) + __tmp79490 + _check78077_)))) (declare (not safe)) - (cons 'begin __tmp79485)))) + (cons 'begin __tmp79489)))) (declare (not safe)) - (__SRC__% __tmp79484 _stx78061_)))) - (_K7807978134_ - (lambda (_rest78098_ - _init78099_ - _len78100_ - _tmp78101_) - (let ((__tmp79498 - (let ((__tmp79499 - (let ((__tmp79500 - (let ((__tmp79501 - (let ((__tmp79502 + (__SRC__% __tmp79488 _stx78065_)))) + (_K7808378138_ + (lambda (_rest78102_ + _init78103_ + _len78104_ + _tmp78105_) + (let ((__tmp79502 + (let ((__tmp79503 + (let ((__tmp79504 + (let ((__tmp79505 + (let ((__tmp79506 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len78100_ '())))) + (cons _len78104_ '())))) (declare (not safe)) - (cons _tmp78101_ __tmp79502)))) + (cons _tmp78105_ __tmp79506)))) (declare (not safe)) - (cons '__check-values __tmp79501)))) + (cons '__check-values __tmp79505)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp79500 - _stx78061_)))) + __tmp79504 + _stx78065_)))) (declare (not safe)) - (cons __tmp79499 _check78073_))) - (__tmp79491 - (let ((__tmp79492 - (lambda (_hd78103_ _r78104_) - (let* ((_hd7810578112_ - _hd78103_) - (_E7810778116_ + (cons __tmp79503 _check78077_))) + (__tmp79495 + (let ((__tmp79496 + (lambda (_hd78107_ _r78108_) + (let* ((_hd7810978116_ + _hd78107_) + (_E7811178120_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7810578112_)))) - (_K7810878122_ - (lambda (_k78119_ _id78120_) - (let ((__tmp79493 - (let ((__tmp79494 - (let ((__tmp79495 - (let ((__tmp79496 - (let ((__tmp79497 + _hd7810978116_)))) + (_K7811278126_ + (lambda (_k78123_ _id78124_) + (let ((__tmp79497 + (let ((__tmp79498 + (let ((__tmp79499 + (let ((__tmp79500 + (let ((__tmp79501 (let () (declare (not safe)) - (cons _k78119_ '())))) + (cons _k78123_ '())))) (declare (not safe)) - (cons _tmp78101_ __tmp79497)))) + (cons _tmp78105_ __tmp79501)))) (declare (not safe)) - (cons '##vector-ref __tmp79496)))) + (cons '##vector-ref __tmp79500)))) (declare (not safe)) - (cons __tmp79495 '())))) + (cons __tmp79499 '())))) (declare (not safe)) - (cons _id78120_ __tmp79494)))) + (cons _id78124_ __tmp79498)))) (declare (not safe)) - (cons __tmp79493 _r78104_))))) + (cons __tmp79497 _r78108_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd7810578112_)) - (let ((_hd7810978125_ + (##pair? _hd7810978116_)) + (let ((_hd7811378129_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd7810578112_))) - (_tl7811078127_ - (let () (declare (not safe)) (##cdr _hd7810578112_)))) - (let* ((_id78130_ _hd7810978125_) (_k78132_ _tl7811078127_)) + (##car _hd7810978116_))) + (_tl7811478131_ + (let () (declare (not safe)) (##cdr _hd7810978116_)))) + (let* ((_id78134_ _hd7811378129_) (_k78136_ _tl7811478131_)) (declare (not safe)) - (_K7810878122_ _k78132_ _id78130_))) - (let () (declare (not safe)) (_E7810778116_))))))) + (_K7811278126_ _k78136_ _id78134_))) + (let () (declare (not safe)) (_E7811178120_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp79492 - _bind78074_ - _init78099_)))) + (foldr1 __tmp79496 + _bind78078_ + _init78103_)))) (declare (not safe)) - (_lp78070_ - _rest78098_ - __tmp79498 - __tmp79491))))) + (_lp78074_ + _rest78102_ + __tmp79502 + __tmp79495))))) (if (let () (declare (not safe)) - (##pair? _rest7807578087_)) - (let ((_hd7808078137_ + (##pair? _rest7807978091_)) + (let ((_hd7808478141_ (let () (declare (not safe)) - (##car _rest7807578087_))) - (_tl7808178139_ + (##car _rest7807978091_))) + (_tl7808578143_ (let () (declare (not safe)) - (##cdr _rest7807578087_)))) + (##cdr _rest7807978091_)))) (if (let () (declare (not safe)) - (##pair? _hd7808078137_)) - (let ((_hd7808278142_ + (##pair? _hd7808478141_)) + (let ((_hd7808678146_ (let () (declare (not safe)) - (##car _hd7808078137_))) - (_tl7808378144_ + (##car _hd7808478141_))) + (_tl7808778148_ (let () (declare (not safe)) - (##cdr _hd7808078137_)))) - (let ((_tmp78147_ _hd7808278142_)) + (##cdr _hd7808478141_)))) + (let ((_tmp78151_ _hd7808678146_)) (if (let () (declare (not safe)) - (##pair? _tl7808378144_)) - (let ((_hd7808478149_ + (##pair? _tl7808778148_)) + (let ((_hd7808878153_ (let () (declare (not safe)) - (##car _tl7808378144_))) - (_tl7808578151_ + (##car _tl7808778148_))) + (_tl7808978155_ (let () (declare (not safe)) - (##cdr _tl7808378144_)))) - (let* ((_len78154_ _hd7808478149_) - (_init78156_ _tl7808578151_) - (_rest78158_ - _tl7808178139_)) + (##cdr _tl7808778148_)))) + (let* ((_len78158_ _hd7808878153_) + (_init78160_ _tl7808978155_) + (_rest78162_ + _tl7808578143_)) (declare (not safe)) - (_K7807978134_ - _rest78158_ - _init78156_ - _len78154_ - _tmp78147_))) + (_K7808378138_ + _rest78162_ + _init78160_ + _len78158_ + _tmp78151_))) (let () (declare (not safe)) - (_else7807778095_))))) + (_else7808178099_))))) (let () (declare (not safe)) - (_else7807778095_)))) + (_else7808178099_)))) (let () (declare (not safe)) - (_else7807778095_)))))))) + (_else7808178099_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx78061_ - _compile-simple78063_ - _compile-values78064_))))) + _stx78065_ + _compile-simple78067_ + _compile-values78068_))))) (define __compile-letrec-values% - (lambda (_stx77861_) - (letrec ((_compile-simple77863_ - (lambda (_hd-ids78057_ _exprs78058_ _body78059_) - (let ((__tmp79503 - (let ((__tmp79504 - (let ((__tmp79506 + (lambda (_stx77865_) + (letrec ((_compile-simple77867_ + (lambda (_hd-ids78061_ _exprs78062_ _body78063_) + (let ((__tmp79507 + (let ((__tmp79508 + (let ((__tmp79510 (map list (map __compile-head-id - _hd-ids78057_) - _exprs78058_)) - (__tmp79505 + _hd-ids78061_) + _exprs78062_)) + (__tmp79509 (let () (declare (not safe)) - (cons _body78059_ '())))) + (cons _body78063_ '())))) (declare (not safe)) - (cons __tmp79506 __tmp79505)))) + (cons __tmp79510 __tmp79509)))) (declare (not safe)) - (cons 'letrec __tmp79504)))) + (cons 'letrec __tmp79508)))) (declare (not safe)) - (__SRC__% __tmp79503 _stx77861_)))) - (_compile-values77864_ - (lambda (_hd-ids77971_ _exprs77972_ _body77973_) - (let _lp77975_ ((_rest77977_ _hd-ids77971_) - (_exprs77978_ _exprs77972_) - (_pre77979_ '()) - (_bind77980_ '()) - (_post77981_ '())) - (let* ((_rest7798277996_ _rest77977_) - (_else7798578004_ + (__SRC__% __tmp79507 _stx77865_)))) + (_compile-values77868_ + (lambda (_hd-ids77975_ _exprs77976_ _body77977_) + (let _lp77979_ ((_rest77981_ _hd-ids77975_) + (_exprs77982_ _exprs77976_) + (_pre77983_ '()) + (_bind77984_ '()) + (_post77985_ '())) + (let* ((_rest7798678000_ _rest77981_) + (_else7798978008_ (lambda () (let () (declare (not safe)) - (_compile-inner77865_ - _pre77979_ - _bind77980_ - _post77981_ - _body77973_))))) - (let ((_K7799078040_ - (lambda (_rest78037_ _id78038_) - (let ((__tmp79512 (cdr _exprs77978_)) - (__tmp79507 - (let ((__tmp79508 - (let ((__tmp79511 + (_compile-inner77869_ + _pre77983_ + _bind77984_ + _post77985_ + _body77977_))))) + (let ((_K7799478044_ + (lambda (_rest78041_ _id78042_) + (let ((__tmp79516 (cdr _exprs77982_)) + (__tmp79511 + (let ((__tmp79512 + (let ((__tmp79515 (let () (declare (not safe)) (__compile-head-id - _id78038_))) - (__tmp79509 - (let ((__tmp79510 - (car _exprs77978_))) + _id78042_))) + (__tmp79513 + (let ((__tmp79514 + (car _exprs77982_))) (declare (not safe)) - (cons __tmp79510 + (cons __tmp79514 '())))) (declare (not safe)) - (cons __tmp79511 - __tmp79509)))) + (cons __tmp79515 + __tmp79513)))) (declare (not safe)) - (cons __tmp79508 _bind77980_)))) + (cons __tmp79512 _bind77984_)))) (declare (not safe)) - (_lp77975_ - _rest78037_ - __tmp79512 - _pre77979_ - __tmp79507 - _post77981_)))) - (_K7798778022_ - (lambda (_rest78008_ _hd78009_) + (_lp77979_ + _rest78041_ + __tmp79516 + _pre77983_ + __tmp79511 + _post77985_)))) + (_K7799178026_ + (lambda (_rest78012_ _hd78013_) (if (let () (declare (not safe)) - (__AST-id? _hd78009_)) - (let ((__tmp79540 (cdr _exprs77978_)) - (__tmp79533 - (let ((__tmp79534 - (let ((__tmp79539 + (__AST-id? _hd78013_)) + (let ((__tmp79544 (cdr _exprs77982_)) + (__tmp79537 + (let ((__tmp79538 + (let ((__tmp79543 (let () (declare (not safe)) (__compile-head-id - _hd78009_))) - (__tmp79535 - (let ((__tmp79536 + _hd78013_))) + (__tmp79539 + (let ((__tmp79540 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79537 - (let ((__tmp79538 (car _exprs77978_))) + (let ((__tmp79541 + (let ((__tmp79542 (car _exprs77982_))) (declare (not safe)) - (cons __tmp79538 '())))) + (cons __tmp79542 '())))) (declare (not safe)) - (cons 'values->list __tmp79537)))) + (cons 'values->list __tmp79541)))) (declare (not safe)) - (cons __tmp79536 '())))) + (cons __tmp79540 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79539 - __tmp79535)))) + (cons __tmp79543 + __tmp79539)))) (declare (not safe)) - (cons __tmp79534 _bind77980_)))) + (cons __tmp79538 _bind77984_)))) (declare (not safe)) - (_lp77975_ - _rest78008_ - __tmp79540 - _pre77979_ - __tmp79533 - _post77981_)) + (_lp77979_ + _rest78012_ + __tmp79544 + _pre77983_ + __tmp79537 + _post77985_)) (if (let () (declare (not safe)) - (list? _hd78009_)) - (let* ((_len78011_ (length _hd78009_)) - (_tmp78013_ - (let ((__tmp79513 (gensym))) + (list? _hd78013_)) + (let* ((_len78015_ (length _hd78013_)) + (_tmp78017_ + (let ((__tmp79517 (gensym))) (declare (not safe)) - (__SRC__0 __tmp79513)))) - (let ((__tmp79532 - (cdr _exprs77978_)) - (__tmp79525 - (let ((__tmp79526 - (lambda (_id78016_ + (__SRC__0 __tmp79517)))) + (let ((__tmp79536 + (cdr _exprs77982_)) + (__tmp79529 + (let ((__tmp79530 + (lambda (_id78020_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r78017_) - (if (let () (declare (not safe)) (__AST-e _id78016_)) - (let ((__tmp79527 - (let ((__tmp79531 + _r78021_) + (if (let () (declare (not safe)) (__AST-e _id78020_)) + (let ((__tmp79531 + (let ((__tmp79535 (let () (declare (not safe)) - (__SRC__0 _id78016_))) - (__tmp79528 - (let ((__tmp79529 - (let ((__tmp79530 + (__SRC__0 _id78020_))) + (__tmp79532 + (let ((__tmp79533 + (let ((__tmp79534 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp79530)))) + (cons 'quote __tmp79534)))) (declare (not safe)) - (cons __tmp79529 '())))) + (cons __tmp79533 '())))) (declare (not safe)) - (cons __tmp79531 __tmp79528)))) + (cons __tmp79535 __tmp79532)))) (declare (not safe)) - (cons __tmp79527 _r78017_)) - _r78017_)))) + (cons __tmp79531 _r78021_)) + _r78021_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp79526 - _pre77979_ - _hd78009_))) - (__tmp79521 - (let ((__tmp79522 - (let ((__tmp79523 - (let ((__tmp79524 + (foldl1 __tmp79530 + _pre77983_ + _hd78013_))) + (__tmp79525 + (let ((__tmp79526 + (let ((__tmp79527 + (let ((__tmp79528 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs77978_))) + (car _exprs77982_))) (declare (not safe)) - (cons __tmp79524 '())))) + (cons __tmp79528 '())))) (declare (not safe)) - (cons _tmp78013_ __tmp79523)))) + (cons _tmp78017_ __tmp79527)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79522 - _bind77980_))) - (__tmp79514 - (let ((__tmp79515 - (let ((__tmp79516 - (let ((__tmp79517 + (cons __tmp79526 + _bind77984_))) + (__tmp79518 + (let ((__tmp79519 + (let ((__tmp79520 + (let ((__tmp79521 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79519 - (lambda (_id78019_ _k78020_) + (let ((__tmp79523 + (lambda (_id78023_ _k78024_) (if (let () (declare (not safe)) - (__AST-e _id78019_)) - (let ((__tmp79520 + (__AST-e _id78023_)) + (let ((__tmp79524 (let () (declare (not safe)) - (__SRC__0 _id78019_)))) + (__SRC__0 _id78023_)))) (declare (not safe)) - (cons __tmp79520 _k78020_)) + (cons __tmp79524 _k78024_)) '#f))) - (__tmp79518 (iota _len78011_))) + (__tmp79522 (iota _len78015_))) (declare (not safe)) (filter-map2 - __tmp79519 - _hd78009_ - __tmp79518)))) + __tmp79523 + _hd78013_ + __tmp79522)))) (declare (not safe)) - (cons _len78011_ __tmp79517)))) + (cons _len78015_ __tmp79521)))) (declare (not safe)) - (cons _tmp78013_ __tmp79516)))) + (cons _tmp78017_ __tmp79520)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79515 - _post77981_)))) + (cons __tmp79519 + _post77985_)))) (declare (not safe)) - (_lp77975_ - _rest78008_ - __tmp79532 + (_lp77979_ + _rest78012_ + __tmp79536 + __tmp79529 __tmp79525 - __tmp79521 - __tmp79514))) + __tmp79518))) (let () (declare (not safe)) (__compile-error__% - _stx77861_ - _hd78009_))))))) + _stx77865_ + _hd78013_))))))) (if (let () (declare (not safe)) - (##pair? _rest7798277996_)) - (let ((_tl7799278045_ + (##pair? _rest7798678000_)) + (let ((_tl7799678049_ (let () (declare (not safe)) - (##cdr _rest7798277996_))) - (_hd7799178043_ + (##cdr _rest7798678000_))) + (_hd7799578047_ (let () (declare (not safe)) - (##car _rest7798277996_)))) + (##car _rest7798678000_)))) (if (let () (declare (not safe)) - (##pair? _hd7799178043_)) - (let ((_tl7799478050_ + (##pair? _hd7799578047_)) + (let ((_tl7799878054_ (let () (declare (not safe)) - (##cdr _hd7799178043_))) - (_hd7799378048_ + (##cdr _hd7799578047_))) + (_hd7799778052_ (let () (declare (not safe)) - (##car _hd7799178043_)))) + (##car _hd7799578047_)))) (if (let () (declare (not safe)) - (##null? _tl7799478050_)) - (let ((_id78053_ _hd7799378048_) - (_rest78055_ _tl7799278045_)) + (##null? _tl7799878054_)) + (let ((_id78057_ _hd7799778052_) + (_rest78059_ _tl7799678049_)) (let () (declare (not safe)) - (_K7799078040_ - _rest78055_ - _id78053_))) - (let ((_hd78030_ _hd7799178043_) - (_rest78032_ _tl7799278045_)) + (_K7799478044_ + _rest78059_ + _id78057_))) + (let ((_hd78034_ _hd7799578047_) + (_rest78036_ _tl7799678049_)) (let () (declare (not safe)) - (_K7798778022_ - _rest78032_ - _hd78030_))))) - (let ((_hd78030_ _hd7799178043_) - (_rest78032_ _tl7799278045_)) + (_K7799178026_ + _rest78036_ + _hd78034_))))) + (let ((_hd78034_ _hd7799578047_) + (_rest78036_ _tl7799678049_)) (let () (declare (not safe)) - (_K7798778022_ - _rest78032_ - _hd78030_))))) + (_K7799178026_ + _rest78036_ + _hd78034_))))) (let () (declare (not safe)) - (_else7798578004_)))))))) - (_compile-inner77865_ - (lambda (_pre77966_ _bind77967_ _post77968_ _body77969_) - (if (let () (declare (not safe)) (null? _pre77966_)) + (_else7798978008_)))))))) + (_compile-inner77869_ + (lambda (_pre77970_ _bind77971_ _post77972_ _body77973_) + (if (let () (declare (not safe)) (null? _pre77970_)) (let () (declare (not safe)) - (_compile-bind77866_ - _bind77967_ - _post77968_ - _body77969_)) - (let ((__tmp79541 - (let ((__tmp79542 - (let ((__tmp79545 (reverse _pre77966_)) - (__tmp79543 - (let ((__tmp79544 + (_compile-bind77870_ + _bind77971_ + _post77972_ + _body77973_)) + (let ((__tmp79545 + (let ((__tmp79546 + (let ((__tmp79549 (reverse _pre77970_)) + (__tmp79547 + (let ((__tmp79548 (let () (declare (not safe)) - (_compile-bind77866_ - _bind77967_ - _post77968_ - _body77969_)))) + (_compile-bind77870_ + _bind77971_ + _post77972_ + _body77973_)))) (declare (not safe)) - (cons __tmp79544 '())))) + (cons __tmp79548 '())))) (declare (not safe)) - (cons __tmp79545 __tmp79543)))) + (cons __tmp79549 __tmp79547)))) (declare (not safe)) - (cons 'let __tmp79542)))) + (cons 'let __tmp79546)))) (declare (not safe)) - (__SRC__% __tmp79541 _stx77861_))))) - (_compile-bind77866_ - (lambda (_bind77962_ _post77963_ _body77964_) - (let ((__tmp79546 - (let ((__tmp79547 - (let ((__tmp79550 (reverse _bind77962_)) - (__tmp79548 - (let ((__tmp79549 + (__SRC__% __tmp79545 _stx77865_))))) + (_compile-bind77870_ + (lambda (_bind77966_ _post77967_ _body77968_) + (let ((__tmp79550 + (let ((__tmp79551 + (let ((__tmp79554 (reverse _bind77966_)) + (__tmp79552 + (let ((__tmp79553 (let () (declare (not safe)) - (_compile-post77867_ - _post77963_ - _body77964_)))) + (_compile-post77871_ + _post77967_ + _body77968_)))) (declare (not safe)) - (cons __tmp79549 '())))) + (cons __tmp79553 '())))) (declare (not safe)) - (cons __tmp79550 __tmp79548)))) + (cons __tmp79554 __tmp79552)))) (declare (not safe)) - (cons 'letrec __tmp79547)))) + (cons 'letrec __tmp79551)))) (declare (not safe)) - (__SRC__% __tmp79546 _stx77861_)))) - (_compile-post77867_ - (lambda (_post77869_ _body77870_) - (let _lp77872_ ((_rest77874_ _post77869_) - (_check77875_ '()) - (_bind77876_ '())) - (let* ((_rest7787777889_ _rest77874_) - (_else7787977897_ + (__SRC__% __tmp79550 _stx77865_)))) + (_compile-post77871_ + (lambda (_post77873_ _body77874_) + (let _lp77876_ ((_rest77878_ _post77873_) + (_check77879_ '()) + (_bind77880_ '())) + (let* ((_rest7788177893_ _rest77878_) + (_else7788377901_ (lambda () - (let ((__tmp79551 - (let ((__tmp79552 - (let ((__tmp79553 - (let ((__tmp79554 + (let ((__tmp79555 + (let ((__tmp79556 + (let ((__tmp79557 + (let ((__tmp79558 (let () (declare (not safe)) - (cons _body77870_ + (cons _body77874_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp79554 _bind77876_)))) + (foldr1 cons __tmp79558 _bind77880_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp79553 - _check77875_)))) + __tmp79557 + _check77879_)))) (declare (not safe)) - (cons 'begin __tmp79552)))) + (cons 'begin __tmp79556)))) (declare (not safe)) - (__SRC__% __tmp79551 _stx77861_)))) - (_K7788177936_ - (lambda (_rest77900_ - _init77901_ - _len77902_ - _tmp77903_) - (let ((__tmp79563 - (let ((__tmp79564 - (let ((__tmp79565 - (let ((__tmp79566 - (let ((__tmp79567 + (__SRC__% __tmp79555 _stx77865_)))) + (_K7788577940_ + (lambda (_rest77904_ + _init77905_ + _len77906_ + _tmp77907_) + (let ((__tmp79567 + (let ((__tmp79568 + (let ((__tmp79569 + (let ((__tmp79570 + (let ((__tmp79571 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len77902_ '())))) + (cons _len77906_ '())))) (declare (not safe)) - (cons _tmp77903_ __tmp79567)))) + (cons _tmp77907_ __tmp79571)))) (declare (not safe)) - (cons '__check-values __tmp79566)))) + (cons '__check-values __tmp79570)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp79565 - _stx77861_)))) + __tmp79569 + _stx77865_)))) (declare (not safe)) - (cons __tmp79564 _check77875_))) - (__tmp79555 - (let ((__tmp79556 - (lambda (_hd77905_ _r77906_) - (let* ((_hd7790777914_ - _hd77905_) - (_E7790977918_ + (cons __tmp79568 _check77879_))) + (__tmp79559 + (let ((__tmp79560 + (lambda (_hd77909_ _r77910_) + (let* ((_hd7791177918_ + _hd77909_) + (_E7791377922_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7790777914_)))) - (_K7791077924_ - (lambda (_k77921_ _id77922_) - (let ((__tmp79557 - (let ((__tmp79558 - (let ((__tmp79559 - (let ((__tmp79560 - (let ((__tmp79561 - (let ((__tmp79562 + _hd7791177918_)))) + (_K7791477928_ + (lambda (_k77925_ _id77926_) + (let ((__tmp79561 + (let ((__tmp79562 + (let ((__tmp79563 + (let ((__tmp79564 + (let ((__tmp79565 + (let ((__tmp79566 (let () (declare (not safe)) - (cons _k77921_ + (cons _k77925_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp77903_ __tmp79562)))) + (cons _tmp77907_ __tmp79566)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp79561)))) + __tmp79565)))) (declare (not safe)) - (cons __tmp79560 '())))) + (cons __tmp79564 '())))) (declare (not safe)) - (cons _id77922_ __tmp79559)))) + (cons _id77926_ __tmp79563)))) (declare (not safe)) - (cons 'set! __tmp79558)))) + (cons 'set! __tmp79562)))) (declare (not safe)) - (cons __tmp79557 _r77906_))))) + (cons __tmp79561 _r77910_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd7790777914_)) - (let ((_hd7791177927_ + (##pair? _hd7791177918_)) + (let ((_hd7791577931_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd7790777914_))) - (_tl7791277929_ - (let () (declare (not safe)) (##cdr _hd7790777914_)))) - (let* ((_id77932_ _hd7791177927_) (_k77934_ _tl7791277929_)) + (##car _hd7791177918_))) + (_tl7791677933_ + (let () (declare (not safe)) (##cdr _hd7791177918_)))) + (let* ((_id77936_ _hd7791577931_) (_k77938_ _tl7791677933_)) (declare (not safe)) - (_K7791077924_ _k77934_ _id77932_))) - (let () (declare (not safe)) (_E7790977918_))))))) + (_K7791477928_ _k77938_ _id77936_))) + (let () (declare (not safe)) (_E7791377922_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp79556 - _bind77876_ - _init77901_)))) + (foldr1 __tmp79560 + _bind77880_ + _init77905_)))) (declare (not safe)) - (_lp77872_ - _rest77900_ - __tmp79563 - __tmp79555))))) + (_lp77876_ + _rest77904_ + __tmp79567 + __tmp79559))))) (if (let () (declare (not safe)) - (##pair? _rest7787777889_)) - (let ((_hd7788277939_ + (##pair? _rest7788177893_)) + (let ((_hd7788677943_ (let () (declare (not safe)) - (##car _rest7787777889_))) - (_tl7788377941_ + (##car _rest7788177893_))) + (_tl7788777945_ (let () (declare (not safe)) - (##cdr _rest7787777889_)))) + (##cdr _rest7788177893_)))) (if (let () (declare (not safe)) - (##pair? _hd7788277939_)) - (let ((_hd7788477944_ + (##pair? _hd7788677943_)) + (let ((_hd7788877948_ (let () (declare (not safe)) - (##car _hd7788277939_))) - (_tl7788577946_ + (##car _hd7788677943_))) + (_tl7788977950_ (let () (declare (not safe)) - (##cdr _hd7788277939_)))) - (let ((_tmp77949_ _hd7788477944_)) + (##cdr _hd7788677943_)))) + (let ((_tmp77953_ _hd7788877948_)) (if (let () (declare (not safe)) - (##pair? _tl7788577946_)) - (let ((_hd7788677951_ + (##pair? _tl7788977950_)) + (let ((_hd7789077955_ (let () (declare (not safe)) - (##car _tl7788577946_))) - (_tl7788777953_ + (##car _tl7788977950_))) + (_tl7789177957_ (let () (declare (not safe)) - (##cdr _tl7788577946_)))) - (let* ((_len77956_ _hd7788677951_) - (_init77958_ _tl7788777953_) - (_rest77960_ - _tl7788377941_)) + (##cdr _tl7788977950_)))) + (let* ((_len77960_ _hd7789077955_) + (_init77962_ _tl7789177957_) + (_rest77964_ + _tl7788777945_)) (declare (not safe)) - (_K7788177936_ - _rest77960_ - _init77958_ - _len77956_ - _tmp77949_))) + (_K7788577940_ + _rest77964_ + _init77962_ + _len77960_ + _tmp77953_))) (let () (declare (not safe)) - (_else7787977897_))))) + (_else7788377901_))))) (let () (declare (not safe)) - (_else7787977897_)))) + (_else7788377901_)))) (let () (declare (not safe)) - (_else7787977897_)))))))) + (_else7788377901_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx77861_ - _compile-simple77863_ - _compile-values77864_))))) + _stx77865_ + _compile-simple77867_ + _compile-values77868_))))) (define __compile-letrec*-values% - (lambda (_stx77616_) - (letrec ((_compile-simple77618_ - (lambda (_hd-ids77857_ _exprs77858_ _body77859_) - (let ((__tmp79568 - (let ((__tmp79569 - (let ((__tmp79571 + (lambda (_stx77620_) + (letrec ((_compile-simple77622_ + (lambda (_hd-ids77861_ _exprs77862_ _body77863_) + (let ((__tmp79572 + (let ((__tmp79573 + (let ((__tmp79575 (map list (map __compile-head-id - _hd-ids77857_) - _exprs77858_)) - (__tmp79570 + _hd-ids77861_) + _exprs77862_)) + (__tmp79574 (let () (declare (not safe)) - (cons _body77859_ '())))) + (cons _body77863_ '())))) (declare (not safe)) - (cons __tmp79571 __tmp79570)))) + (cons __tmp79575 __tmp79574)))) (declare (not safe)) - (cons 'letrec* __tmp79569)))) + (cons 'letrec* __tmp79573)))) (declare (not safe)) - (__SRC__% __tmp79568 _stx77616_)))) - (_compile-values77619_ - (lambda (_hd-ids77768_ _exprs77769_ _body77770_) - (let _lp77772_ ((_rest77774_ _hd-ids77768_) - (_exprs77775_ _exprs77769_) - (_bind77776_ '()) - (_post77777_ '())) - (let* ((_rest7777877792_ _rest77774_) - (_else7778177800_ + (__SRC__% __tmp79572 _stx77620_)))) + (_compile-values77623_ + (lambda (_hd-ids77772_ _exprs77773_ _body77774_) + (let _lp77776_ ((_rest77778_ _hd-ids77772_) + (_exprs77779_ _exprs77773_) + (_bind77780_ '()) + (_post77781_ '())) + (let* ((_rest7778277796_ _rest77778_) + (_else7778577804_ (lambda () (let () (declare (not safe)) - (_compile-bind77620_ - _bind77776_ - _post77777_ - _body77770_))))) - (let ((_K7778677840_ - (lambda (_rest77835_ _hd77836_) + (_compile-bind77624_ + _bind77780_ + _post77781_ + _body77774_))))) + (let ((_K7779077844_ + (lambda (_rest77839_ _hd77840_) (if (let () (declare (not safe)) - (__AST-id? _hd77836_)) - (let ((_id77838_ + (__AST-id? _hd77840_)) + (let ((_id77842_ (let () (declare (not safe)) - (__SRC__0 _hd77836_)))) - (let ((__tmp79586 (cdr _exprs77775_)) - (__tmp79581 - (let ((__tmp79582 - (let ((__tmp79583 - (let ((__tmp79584 + (__SRC__0 _hd77840_)))) + (let ((__tmp79590 (cdr _exprs77779_)) + (__tmp79585 + (let ((__tmp79586 + (let ((__tmp79587 + (let ((__tmp79588 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79585 + (let ((__tmp79589 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp79585)))) + (cons 'quote __tmp79589)))) (declare (not safe)) - (cons __tmp79584 '())))) + (cons __tmp79588 '())))) (declare (not safe)) - (cons _id77838_ __tmp79583)))) + (cons _id77842_ __tmp79587)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79582 _bind77776_))) - (__tmp79577 - (let ((__tmp79578 - (let ((__tmp79579 - (let ((__tmp79580 + (cons __tmp79586 _bind77780_))) + (__tmp79581 + (let ((__tmp79582 + (let ((__tmp79583 + (let ((__tmp79584 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs77775_))) + (car _exprs77779_))) (declare (not safe)) - (cons __tmp79580 '())))) + (cons __tmp79584 '())))) (declare (not safe)) - (cons _id77838_ __tmp79579)))) + (cons _id77842_ __tmp79583)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79578 - _post77777_)))) + (cons __tmp79582 + _post77781_)))) (declare (not safe)) - (_lp77772_ - _rest77835_ - __tmp79586 - __tmp79581 - __tmp79577))) - (let ((__tmp79576 (cdr _exprs77775_)) - (__tmp79572 - (let ((__tmp79573 - (let ((__tmp79574 - (let ((__tmp79575 + (_lp77776_ + _rest77839_ + __tmp79590 + __tmp79585 + __tmp79581))) + (let ((__tmp79580 (cdr _exprs77779_)) + (__tmp79576 + (let ((__tmp79577 + (let ((__tmp79578 + (let ((__tmp79579 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs77775_))) + (car _exprs77779_))) (declare (not safe)) - (cons __tmp79575 '())))) + (cons __tmp79579 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp79574)))) + (cons '#f __tmp79578)))) (declare (not safe)) - (cons __tmp79573 _post77777_)))) + (cons __tmp79577 _post77781_)))) (declare (not safe)) - (_lp77772_ - _rest77835_ - __tmp79576 - _bind77776_ - __tmp79572))))) - (_K7778377820_ - (lambda (_rest77804_ _hd77805_) + (_lp77776_ + _rest77839_ + __tmp79580 + _bind77780_ + __tmp79576))))) + (_K7778777824_ + (lambda (_rest77808_ _hd77809_) (if (let () (declare (not safe)) - (__AST-id? _hd77805_)) - (let ((_id77807_ + (__AST-id? _hd77809_)) + (let ((_id77811_ (let () (declare (not safe)) - (__SRC__0 _hd77805_)))) - (let ((__tmp79622 (cdr _exprs77775_)) - (__tmp79617 - (let ((__tmp79618 - (let ((__tmp79619 - (let ((__tmp79620 + (__SRC__0 _hd77809_)))) + (let ((__tmp79626 (cdr _exprs77779_)) + (__tmp79621 + (let ((__tmp79622 + (let ((__tmp79623 + (let ((__tmp79624 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79621 + (let ((__tmp79625 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp79621)))) + (cons 'quote __tmp79625)))) (declare (not safe)) - (cons __tmp79620 '())))) + (cons __tmp79624 '())))) (declare (not safe)) - (cons _id77807_ __tmp79619)))) + (cons _id77811_ __tmp79623)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79618 _bind77776_))) - (__tmp79611 - (let ((__tmp79612 - (let ((__tmp79613 - (let ((__tmp79614 + (cons __tmp79622 _bind77780_))) + (__tmp79615 + (let ((__tmp79616 + (let ((__tmp79617 + (let ((__tmp79618 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79615 - (let ((__tmp79616 (car _exprs77775_))) + (let ((__tmp79619 + (let ((__tmp79620 (car _exprs77779_))) (declare (not safe)) - (cons __tmp79616 '())))) + (cons __tmp79620 '())))) (declare (not safe)) - (cons 'values->list __tmp79615)))) + (cons 'values->list __tmp79619)))) (declare (not safe)) - (cons __tmp79614 '())))) + (cons __tmp79618 '())))) (declare (not safe)) - (cons _id77807_ __tmp79613)))) + (cons _id77811_ __tmp79617)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79612 - _post77777_)))) + (cons __tmp79616 + _post77781_)))) (declare (not safe)) - (_lp77772_ - _rest77804_ - __tmp79622 - __tmp79617 - __tmp79611))) - (if (let ((__tmp79610 + (_lp77776_ + _rest77808_ + __tmp79626 + __tmp79621 + __tmp79615))) + (if (let ((__tmp79614 (let () (declare (not safe)) - (__AST-e _hd77805_)))) + (__AST-e _hd77809_)))) (declare (not safe)) - (not __tmp79610)) - (let ((__tmp79609 (cdr _exprs77775_)) - (__tmp79605 - (let ((__tmp79606 - (let ((__tmp79607 - (let ((__tmp79608 + (not __tmp79614)) + (let ((__tmp79613 (cdr _exprs77779_)) + (__tmp79609 + (let ((__tmp79610 + (let ((__tmp79611 + (let ((__tmp79612 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs77775_))) + (car _exprs77779_))) (declare (not safe)) - (cons __tmp79608 '())))) + (cons __tmp79612 '())))) (declare (not safe)) - (cons '#f __tmp79607)))) + (cons '#f __tmp79611)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79606 - _post77777_)))) + (cons __tmp79610 + _post77781_)))) (declare (not safe)) - (_lp77772_ - _rest77804_ - __tmp79609 - _bind77776_ - __tmp79605)) + (_lp77776_ + _rest77808_ + __tmp79613 + _bind77780_ + __tmp79609)) (if (let () (declare (not safe)) - (list? _hd77805_)) - (let* ((_len77809_ - (length _hd77805_)) - (_tmp77811_ - (let ((__tmp79587 + (list? _hd77809_)) + (let* ((_len77813_ + (length _hd77809_)) + (_tmp77815_ + (let ((__tmp79591 (gensym))) (declare (not safe)) - (__SRC__0 __tmp79587)))) - (let ((__tmp79604 - (cdr _exprs77775_)) - (__tmp79597 - (let ((__tmp79598 - (lambda (_id77814_ + (__SRC__0 __tmp79591)))) + (let ((__tmp79608 + (cdr _exprs77779_)) + (__tmp79601 + (let ((__tmp79602 + (lambda (_id77818_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r77815_) - (if (let () (declare (not safe)) (__AST-e _id77814_)) - (let ((__tmp79599 - (let ((__tmp79603 + _r77819_) + (if (let () (declare (not safe)) (__AST-e _id77818_)) + (let ((__tmp79603 + (let ((__tmp79607 (let () (declare (not safe)) - (__SRC__0 _id77814_))) - (__tmp79600 - (let ((__tmp79601 - (let ((__tmp79602 + (__SRC__0 _id77818_))) + (__tmp79604 + (let ((__tmp79605 + (let ((__tmp79606 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp79602)))) + (cons 'quote __tmp79606)))) (declare (not safe)) - (cons __tmp79601 '())))) + (cons __tmp79605 '())))) (declare (not safe)) - (cons __tmp79603 __tmp79600)))) + (cons __tmp79607 __tmp79604)))) (declare (not safe)) - (cons __tmp79599 _r77815_)) - _r77815_)))) + (cons __tmp79603 _r77819_)) + _r77819_)))) (declare (not safe)) - (foldl1 __tmp79598 _bind77776_ _hd77805_))) + (foldl1 __tmp79602 _bind77780_ _hd77809_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp79588 - (let ((__tmp79589 - (let ((__tmp79590 + (__tmp79592 + (let ((__tmp79593 + (let ((__tmp79594 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79596 (car _exprs77775_)) - (__tmp79591 - (let ((__tmp79592 - (let ((__tmp79594 - (lambda (_id77817_ _k77818_) + (let ((__tmp79600 (car _exprs77779_)) + (__tmp79595 + (let ((__tmp79596 + (let ((__tmp79598 + (lambda (_id77821_ _k77822_) (if (let () (declare (not safe)) - (__AST-e _id77817_)) - (let ((__tmp79595 + (__AST-e _id77821_)) + (let ((__tmp79599 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id77817_)))) + (__SRC__0 _id77821_)))) (declare (not safe)) - (cons __tmp79595 _k77818_)) + (cons __tmp79599 _k77822_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp79593 (iota _len77809_))) + (__tmp79597 (iota _len77813_))) (declare (not safe)) (filter-map2 - __tmp79594 - _hd77805_ - __tmp79593)))) + __tmp79598 + _hd77809_ + __tmp79597)))) (declare (not safe)) - (cons _len77809_ __tmp79592)))) + (cons _len77813_ __tmp79596)))) (declare (not safe)) - (cons __tmp79596 __tmp79591)))) + (cons __tmp79600 __tmp79595)))) (declare (not safe)) - (cons _tmp77811_ __tmp79590)))) + (cons _tmp77815_ __tmp79594)))) (declare (not safe)) - (cons __tmp79589 _post77777_)))) + (cons __tmp79593 _post77781_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp77772_ - _rest77804_ - __tmp79604 - __tmp79597 - __tmp79588))) + (_lp77776_ + _rest77808_ + __tmp79608 + __tmp79601 + __tmp79592))) (let () (declare (not safe)) (__compile-error__% - _stx77616_ - _hd77805_)))))))) + _stx77620_ + _hd77809_)))))))) (if (let () (declare (not safe)) - (##pair? _rest7777877792_)) - (let ((_tl7778877845_ + (##pair? _rest7778277796_)) + (let ((_tl7779277849_ (let () (declare (not safe)) - (##cdr _rest7777877792_))) - (_hd7778777843_ + (##cdr _rest7778277796_))) + (_hd7779177847_ (let () (declare (not safe)) - (##car _rest7777877792_)))) + (##car _rest7778277796_)))) (if (let () (declare (not safe)) - (##pair? _hd7778777843_)) - (let ((_tl7779077850_ + (##pair? _hd7779177847_)) + (let ((_tl7779477854_ (let () (declare (not safe)) - (##cdr _hd7778777843_))) - (_hd7778977848_ + (##cdr _hd7779177847_))) + (_hd7779377852_ (let () (declare (not safe)) - (##car _hd7778777843_)))) + (##car _hd7779177847_)))) (if (let () (declare (not safe)) - (##null? _tl7779077850_)) - (let ((_hd77853_ _hd7778977848_) - (_rest77855_ _tl7778877845_)) + (##null? _tl7779477854_)) + (let ((_hd77857_ _hd7779377852_) + (_rest77859_ _tl7779277849_)) (let () (declare (not safe)) - (_K7778677840_ - _rest77855_ - _hd77853_))) - (let ((_hd77828_ _hd7778777843_) - (_rest77830_ _tl7778877845_)) + (_K7779077844_ + _rest77859_ + _hd77857_))) + (let ((_hd77832_ _hd7779177847_) + (_rest77834_ _tl7779277849_)) (let () (declare (not safe)) - (_K7778377820_ - _rest77830_ - _hd77828_))))) - (let ((_hd77828_ _hd7778777843_) - (_rest77830_ _tl7778877845_)) + (_K7778777824_ + _rest77834_ + _hd77832_))))) + (let ((_hd77832_ _hd7779177847_) + (_rest77834_ _tl7779277849_)) (let () (declare (not safe)) - (_K7778377820_ - _rest77830_ - _hd77828_))))) + (_K7778777824_ + _rest77834_ + _hd77832_))))) (let () (declare (not safe)) - (_else7778177800_)))))))) - (_compile-bind77620_ - (lambda (_bind77764_ _post77765_ _body77766_) - (let ((__tmp79623 - (let ((__tmp79624 - (let ((__tmp79627 (reverse _bind77764_)) - (__tmp79625 - (let ((__tmp79626 + (_else7778577804_)))))))) + (_compile-bind77624_ + (lambda (_bind77768_ _post77769_ _body77770_) + (let ((__tmp79627 + (let ((__tmp79628 + (let ((__tmp79631 (reverse _bind77768_)) + (__tmp79629 + (let ((__tmp79630 (let () (declare (not safe)) - (_compile-post77621_ - _post77765_ - _body77766_)))) + (_compile-post77625_ + _post77769_ + _body77770_)))) (declare (not safe)) - (cons __tmp79626 '())))) + (cons __tmp79630 '())))) (declare (not safe)) - (cons __tmp79627 __tmp79625)))) + (cons __tmp79631 __tmp79629)))) (declare (not safe)) - (cons 'let __tmp79624)))) + (cons 'let __tmp79628)))) (declare (not safe)) - (__SRC__% __tmp79623 _stx77616_)))) - (_compile-post77621_ - (lambda (_post77623_ _body77624_) - (let ((__tmp79628 - (let ((__tmp79629 - (let ((__tmp79630 - (let ((__tmp79632 - (lambda (_hd77626_ _r77627_) - (let* ((_hd7762877651_ - _hd77626_) - (_E7763277655_ + (__SRC__% __tmp79627 _stx77620_)))) + (_compile-post77625_ + (lambda (_post77627_ _body77628_) + (let ((__tmp79632 + (let ((__tmp79633 + (let ((__tmp79634 + (let ((__tmp79636 + (lambda (_hd77630_ _r77631_) + (let* ((_hd7763277655_ + _hd77630_) + (_E7763677659_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7762877651_))))) + _hd7763277655_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K7764577749_ - (lambda (_expr77747_) + (let ((_K7764977753_ + (lambda (_expr77751_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr77747_ _r77627_)))) - (_K7764077727_ - (lambda (_expr77724_ _id77725_) - (let ((__tmp79633 - (let ((__tmp79634 - (let ((__tmp79635 - (let ((__tmp79636 + (cons _expr77751_ _r77631_)))) + (_K7764477731_ + (lambda (_expr77728_ _id77729_) + (let ((__tmp79637 + (let ((__tmp79638 + (let ((__tmp79639 + (let ((__tmp79640 (let () (declare (not safe)) - (cons _expr77724_ '())))) + (cons _expr77728_ '())))) (declare (not safe)) - (cons _id77725_ __tmp79636)))) + (cons _id77729_ __tmp79640)))) (declare (not safe)) - (cons 'set! __tmp79635)))) + (cons 'set! __tmp79639)))) (declare (not safe)) - (__SRC__% __tmp79634 _stx77616_)))) + (__SRC__% __tmp79638 _stx77620_)))) (declare (not safe)) - (cons __tmp79633 _r77627_)))) - (_K7763377694_ - (lambda (_init77659_ _len77660_ _expr77661_ _tmp77662_) - (let ((__tmp79637 - (let ((__tmp79638 - (let ((__tmp79639 - (let ((__tmp79653 - (let ((__tmp79654 - (let ((__tmp79655 + (cons __tmp79637 _r77631_)))) + (_K7763777698_ + (lambda (_init77663_ _len77664_ _expr77665_ _tmp77666_) + (let ((__tmp79641 + (let ((__tmp79642 + (let ((__tmp79643 + (let ((__tmp79657 + (let ((__tmp79658 + (let ((__tmp79659 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr77661_ '())))) + (cons _expr77665_ '())))) (declare (not safe)) - (cons _tmp77662_ __tmp79655)))) + (cons _tmp77666_ __tmp79659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79654 '()))) - (__tmp79640 - (let ((__tmp79649 - (let ((__tmp79650 - (let ((__tmp79651 + (cons __tmp79658 '()))) + (__tmp79644 + (let ((__tmp79653 + (let ((__tmp79654 + (let ((__tmp79655 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79652 + (let ((__tmp79656 (let () (declare (not safe)) - (cons _len77660_ '())))) + (cons _len77664_ '())))) (declare (not safe)) - (cons _tmp77662_ __tmp79652)))) + (cons _tmp77666_ __tmp79656)))) (declare (not safe)) - (cons '__check-values __tmp79651)))) + (cons '__check-values __tmp79655)))) (declare (not safe)) - (__SRC__% __tmp79650 _stx77616_))) - (__tmp79641 - (let ((__tmp79642 - (map (lambda (_hd77664_) - (let* ((_hd7766577672_ _hd77664_) - (_E7766777676_ + (__SRC__% __tmp79654 _stx77620_))) + (__tmp79645 + (let ((__tmp79646 + (map (lambda (_hd77668_) + (let* ((_hd7766977676_ _hd77668_) + (_E7767177680_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _hd7766577672_)))) - (_K7766877682_ - (lambda (_k77679_ _id77680_) - (let ((__tmp79643 - (let ((__tmp79644 - (let ((__tmp79645 - (let ((__tmp79646 + _hd7766977676_)))) + (_K7767277686_ + (lambda (_k77683_ _id77684_) + (let ((__tmp79647 + (let ((__tmp79648 + (let ((__tmp79649 + (let ((__tmp79650 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79647 - (let ((__tmp79648 + (let ((__tmp79651 + (let ((__tmp79652 (let () (declare (not safe)) - (cons _k77679_ '())))) + (cons _k77683_ '())))) (declare (not safe)) - (cons _tmp77662_ __tmp79648)))) + (cons _tmp77666_ __tmp79652)))) (declare (not safe)) - (cons '##vector-ref __tmp79647)))) + (cons '##vector-ref __tmp79651)))) (declare (not safe)) - (cons __tmp79646 '())))) + (cons __tmp79650 '())))) (declare (not safe)) - (cons _id77680_ __tmp79645)))) + (cons _id77684_ __tmp79649)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp79644)))) + (cons 'set! __tmp79648)))) (declare (not safe)) - (__SRC__% __tmp79643 _stx77616_))))) + (__SRC__% __tmp79647 _stx77620_))))) (if (let () (declare (not safe)) - (##pair? _hd7766577672_)) - (let ((_hd7766977685_ + (##pair? _hd7766977676_)) + (let ((_hd7767377689_ (let () (declare (not safe)) - (##car _hd7766577672_))) - (_tl7767077687_ + (##car _hd7766977676_))) + (_tl7767477691_ (let () (declare (not safe)) - (##cdr _hd7766577672_)))) - (let* ((_id77690_ _hd7766977685_) - (_k77692_ _tl7767077687_)) + (##cdr _hd7766977676_)))) + (let* ((_id77694_ _hd7767377689_) + (_k77696_ _tl7767477691_)) (declare (not safe)) - (_K7766877682_ _k77692_ _id77690_))) + (_K7767277686_ _k77696_ _id77694_))) (let () (declare (not safe)) - (_E7766777676_))))) - _init77659_))) + (_E7767177680_))))) + _init77663_))) (declare (not safe)) - (foldr1 cons '() __tmp79642)))) + (foldr1 cons '() __tmp79646)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79649 - __tmp79641)))) + (cons __tmp79653 + __tmp79645)))) (declare (not safe)) - (cons __tmp79653 __tmp79640)))) + (cons __tmp79657 __tmp79644)))) (declare (not safe)) - (cons 'let __tmp79639)))) + (cons 'let __tmp79643)))) (declare (not safe)) - (__SRC__% __tmp79638 _stx77616_)))) + (__SRC__% __tmp79642 _stx77620_)))) (declare (not safe)) - (cons __tmp79637 _r77627_))))) - (if (let () (declare (not safe)) (##pair? _hd7762877651_)) - (let ((_tl7764777754_ - (let () (declare (not safe)) (##cdr _hd7762877651_))) - (_hd7764677752_ - (let () (declare (not safe)) (##car _hd7762877651_)))) + (cons __tmp79641 _r77631_))))) + (if (let () (declare (not safe)) (##pair? _hd7763277655_)) + (let ((_tl7765177758_ + (let () (declare (not safe)) (##cdr _hd7763277655_))) + (_hd7765077756_ + (let () (declare (not safe)) (##car _hd7763277655_)))) (if (let () (declare (not safe)) - (##eq? _hd7764677752_ '#f)) + (##eq? _hd7765077756_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl7764777754_)) - (let ((_tl7764977759_ + (##pair? _tl7765177758_)) + (let ((_tl7765377763_ (let () (declare (not safe)) - (##cdr _tl7764777754_))) - (_hd7764877757_ + (##cdr _tl7765177758_))) + (_hd7765277761_ (let () (declare (not safe)) - (##car _tl7764777754_)))) + (##car _tl7765177758_)))) (if (let () (declare (not safe)) - (##null? _tl7764977759_)) - (let ((_expr77762_ _hd7764877757_)) + (##null? _tl7765377763_)) + (let ((_expr77766_ _hd7765277761_)) (declare (not safe)) - (_K7764577749_ _expr77762_)) + (_K7764977753_ _expr77766_)) (if (let () (declare (not safe)) - (##pair? _tl7764977759_)) - (let ((_tl7763977713_ + (##pair? _tl7765377763_)) + (let ((_tl7764377717_ (let () (declare (not safe)) - (##cdr _tl7764977759_))) - (_hd7763877711_ + (##cdr _tl7765377763_))) + (_hd7764277715_ (let () (declare (not safe)) - (##car _tl7764977759_)))) - (let ((_tmp77702_ _hd7764677752_) - (_expr77709_ _hd7764877757_) - (_len77716_ _hd7763877711_) - (_init77718_ _tl7763977713_)) + (##car _tl7765377763_)))) + (let ((_tmp77706_ _hd7765077756_) + (_expr77713_ _hd7765277761_) + (_len77720_ _hd7764277715_) + (_init77722_ _tl7764377717_)) (let () (declare (not safe)) - (_K7763377694_ - _init77718_ - _len77716_ - _expr77709_ - _tmp77702_)))) + (_K7763777698_ + _init77722_ + _len77720_ + _expr77713_ + _tmp77706_)))) (let () (declare (not safe)) - (_E7763277655_))))) - (let () (declare (not safe)) (_E7763277655_))) + (_E7763677659_))))) + (let () (declare (not safe)) (_E7763677659_))) (if (let () (declare (not safe)) - (##pair? _tl7764777754_)) - (let ((_tl7764477739_ + (##pair? _tl7765177758_)) + (let ((_tl7764877743_ (let () (declare (not safe)) - (##cdr _tl7764777754_))) - (_hd7764377737_ + (##cdr _tl7765177758_))) + (_hd7764777741_ (let () (declare (not safe)) - (##car _tl7764777754_)))) + (##car _tl7765177758_)))) (if (let () (declare (not safe)) - (##null? _tl7764477739_)) - (let ((_id77735_ _hd7764677752_) - (_expr77742_ _hd7764377737_)) + (##null? _tl7764877743_)) + (let ((_id77739_ _hd7765077756_) + (_expr77746_ _hd7764777741_)) (let () (declare (not safe)) - (_K7764077727_ _expr77742_ _id77735_))) + (_K7764477731_ _expr77746_ _id77739_))) (if (let () (declare (not safe)) - (##pair? _tl7764477739_)) - (let ((_tl7763977713_ + (##pair? _tl7764877743_)) + (let ((_tl7764377717_ (let () (declare (not safe)) - (##cdr _tl7764477739_))) - (_hd7763877711_ + (##cdr _tl7764877743_))) + (_hd7764277715_ (let () (declare (not safe)) - (##car _tl7764477739_)))) - (let ((_tmp77702_ _hd7764677752_) - (_expr77709_ _hd7764377737_) - (_len77716_ _hd7763877711_) - (_init77718_ _tl7763977713_)) + (##car _tl7764877743_)))) + (let ((_tmp77706_ _hd7765077756_) + (_expr77713_ _hd7764777741_) + (_len77720_ _hd7764277715_) + (_init77722_ _tl7764377717_)) (let () (declare (not safe)) - (_K7763377694_ - _init77718_ - _len77716_ - _expr77709_ - _tmp77702_)))) + (_K7763777698_ + _init77722_ + _len77720_ + _expr77713_ + _tmp77706_)))) (let () (declare (not safe)) - (_E7763277655_))))) - (let () (declare (not safe)) (_E7763277655_))))) - (let () (declare (not safe)) (_E7763277655_))))))) + (_E7763677659_))))) + (let () (declare (not safe)) (_E7763677659_))))) + (let () (declare (not safe)) (_E7763677659_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp79631 (list _body77624_))) + (__tmp79635 (list _body77628_))) (declare (not safe)) - (foldl1 __tmp79632 - __tmp79631 - _post77623_)))) + (foldl1 __tmp79636 + __tmp79635 + _post77627_)))) (declare (not safe)) - (foldr1 cons '() __tmp79630)))) + (foldr1 cons '() __tmp79634)))) (declare (not safe)) - (cons 'begin __tmp79629)))) + (cons 'begin __tmp79633)))) (declare (not safe)) - (__SRC__% __tmp79628 _stx77616_))))) + (__SRC__% __tmp79632 _stx77620_))))) (let () (declare (not safe)) (__compile-let-form - _stx77616_ - _compile-simple77618_ - _compile-values77619_))))) + _stx77620_ + _compile-simple77622_ + _compile-values77623_))))) (define __compile-call% - (lambda (_stx77576_) - (let* ((_$e77578_ _stx77576_) - (_$E7758077589_ + (lambda (_stx77580_) + (let* ((_$e77582_ _stx77580_) + (_$E7758477593_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77578_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77578_)) - (let* ((_$tgt7758177592_ - (let () (declare (not safe)) (__AST-e _$e77578_))) - (_$hd7758277595_ - (let () (declare (not safe)) (##car _$tgt7758177592_))) - (_$tl7758377598_ - (let () (declare (not safe)) (##cdr _$tgt7758177592_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7758377598_)) - (let* ((_$tgt7758477602_ + _$e77582_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77582_)) + (let* ((_$tgt7758577596_ + (let () (declare (not safe)) (__AST-e _$e77582_))) + (_$hd7758677599_ + (let () (declare (not safe)) (##car _$tgt7758577596_))) + (_$tl7758777602_ + (let () (declare (not safe)) (##cdr _$tgt7758577596_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7758777602_)) + (let* ((_$tgt7758877606_ (let () (declare (not safe)) - (__AST-e _$tl7758377598_))) - (_$hd7758577605_ + (__AST-e _$tl7758777602_))) + (_$hd7758977609_ (let () (declare (not safe)) - (##car _$tgt7758477602_))) - (_$tl7758677608_ + (##car _$tgt7758877606_))) + (_$tl7759077612_ (let () (declare (not safe)) - (##cdr _$tgt7758477602_)))) - (let* ((_rator77612_ _$hd7758577605_) - (_rands77614_ _$tl7758677608_) - (__tmp79656 - (let ((__tmp79658 + (##cdr _$tgt7758877606_)))) + (let* ((_rator77616_ _$hd7758977609_) + (_rands77618_ _$tl7759077612_) + (__tmp79660 + (let ((__tmp79662 (let () (declare (not safe)) - (__compile _rator77612_))) - (__tmp79657 (map __compile _rands77614_))) + (__compile _rator77616_))) + (__tmp79661 (map __compile _rands77618_))) (declare (not safe)) - (cons __tmp79658 __tmp79657)))) + (cons __tmp79662 __tmp79661)))) (declare (not safe)) - (__SRC__% __tmp79656 _stx77576_))) - (let () (declare (not safe)) (_$E7758077589_)))) - (let () (declare (not safe)) (_$E7758077589_)))))) + (__SRC__% __tmp79660 _stx77580_))) + (let () (declare (not safe)) (_$E7758477593_)))) + (let () (declare (not safe)) (_$E7758477593_)))))) (define __compile-ref% - (lambda (_stx77538_) - (let* ((_$e77540_ _stx77538_) - (_$E7754277551_ + (lambda (_stx77542_) + (let* ((_$e77544_ _stx77542_) + (_$E7754677555_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77540_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77540_)) - (let* ((_$tgt7754377554_ - (let () (declare (not safe)) (__AST-e _$e77540_))) - (_$hd7754477557_ - (let () (declare (not safe)) (##car _$tgt7754377554_))) - (_$tl7754577560_ - (let () (declare (not safe)) (##cdr _$tgt7754377554_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7754577560_)) - (let* ((_$tgt7754677564_ + _$e77544_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77544_)) + (let* ((_$tgt7754777558_ + (let () (declare (not safe)) (__AST-e _$e77544_))) + (_$hd7754877561_ + (let () (declare (not safe)) (##car _$tgt7754777558_))) + (_$tl7754977564_ + (let () (declare (not safe)) (##cdr _$tgt7754777558_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7754977564_)) + (let* ((_$tgt7755077568_ (let () (declare (not safe)) - (__AST-e _$tl7754577560_))) - (_$hd7754777567_ + (__AST-e _$tl7754977564_))) + (_$hd7755177571_ (let () (declare (not safe)) - (##car _$tgt7754677564_))) - (_$tl7754877570_ + (##car _$tgt7755077568_))) + (_$tl7755277574_ (let () (declare (not safe)) - (##cdr _$tgt7754677564_)))) - (let ((_id77574_ _$hd7754777567_)) - (if (let ((__tmp79659 + (##cdr _$tgt7755077568_)))) + (let ((_id77578_ _$hd7755177571_)) + (if (let ((__tmp79663 (let () (declare (not safe)) - (__AST-e _$tl7754877570_)))) + (__AST-e _$tl7755277574_)))) (declare (not safe)) - (equal? __tmp79659 '())) + (equal? __tmp79663 '())) (let () (declare (not safe)) - (__SRC__% _id77574_ _stx77538_)) - (let () (declare (not safe)) (_$E7754277551_))))) - (let () (declare (not safe)) (_$E7754277551_)))) - (let () (declare (not safe)) (_$E7754277551_)))))) + (__SRC__% _id77578_ _stx77542_)) + (let () (declare (not safe)) (_$E7754677555_))))) + (let () (declare (not safe)) (_$E7754677555_)))) + (let () (declare (not safe)) (_$E7754677555_)))))) (define __compile-setq% - (lambda (_stx77485_) - (let* ((_$e77487_ _stx77485_) - (_$E7748977501_ + (lambda (_stx77489_) + (let* ((_$e77491_ _stx77489_) + (_$E7749377505_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77487_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77487_)) - (let* ((_$tgt7749077504_ - (let () (declare (not safe)) (__AST-e _$e77487_))) - (_$hd7749177507_ - (let () (declare (not safe)) (##car _$tgt7749077504_))) - (_$tl7749277510_ - (let () (declare (not safe)) (##cdr _$tgt7749077504_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7749277510_)) - (let* ((_$tgt7749377514_ + _$e77491_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77491_)) + (let* ((_$tgt7749477508_ + (let () (declare (not safe)) (__AST-e _$e77491_))) + (_$hd7749577511_ + (let () (declare (not safe)) (##car _$tgt7749477508_))) + (_$tl7749677514_ + (let () (declare (not safe)) (##cdr _$tgt7749477508_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7749677514_)) + (let* ((_$tgt7749777518_ (let () (declare (not safe)) - (__AST-e _$tl7749277510_))) - (_$hd7749477517_ + (__AST-e _$tl7749677514_))) + (_$hd7749877521_ (let () (declare (not safe)) - (##car _$tgt7749377514_))) - (_$tl7749577520_ + (##car _$tgt7749777518_))) + (_$tl7749977524_ (let () (declare (not safe)) - (##cdr _$tgt7749377514_)))) - (let ((_id77524_ _$hd7749477517_)) + (##cdr _$tgt7749777518_)))) + (let ((_id77528_ _$hd7749877521_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7749577520_)) - (let* ((_$tgt7749677526_ + (__AST-pair? _$tl7749977524_)) + (let* ((_$tgt7750077530_ (let () (declare (not safe)) - (__AST-e _$tl7749577520_))) - (_$hd7749777529_ + (__AST-e _$tl7749977524_))) + (_$hd7750177533_ (let () (declare (not safe)) - (##car _$tgt7749677526_))) - (_$tl7749877532_ + (##car _$tgt7750077530_))) + (_$tl7750277536_ (let () (declare (not safe)) - (##cdr _$tgt7749677526_)))) - (let ((_expr77536_ _$hd7749777529_)) - (if (let ((__tmp79665 + (##cdr _$tgt7750077530_)))) + (let ((_expr77540_ _$hd7750177533_)) + (if (let ((__tmp79669 (let () (declare (not safe)) - (__AST-e _$tl7749877532_)))) + (__AST-e _$tl7750277536_)))) (declare (not safe)) - (equal? __tmp79665 '())) - (let ((__tmp79660 - (let ((__tmp79661 - (let ((__tmp79664 + (equal? __tmp79669 '())) + (let ((__tmp79664 + (let ((__tmp79665 + (let ((__tmp79668 (let () (declare (not safe)) (__SRC__% - _id77524_ - _stx77485_))) - (__tmp79662 - (let ((__tmp79663 + _id77528_ + _stx77489_))) + (__tmp79666 + (let ((__tmp79667 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr77536_)))) + (__compile _expr77540_)))) (declare (not safe)) - (cons __tmp79663 '())))) + (cons __tmp79667 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79664 - __tmp79662)))) + (cons __tmp79668 + __tmp79666)))) (declare (not safe)) - (cons 'set! __tmp79661)))) + (cons 'set! __tmp79665)))) (declare (not safe)) - (__SRC__% __tmp79660 _stx77485_)) + (__SRC__% __tmp79664 _stx77489_)) (let () (declare (not safe)) - (_$E7748977501_))))) - (let () (declare (not safe)) (_$E7748977501_))))) - (let () (declare (not safe)) (_$E7748977501_)))) - (let () (declare (not safe)) (_$E7748977501_)))))) + (_$E7749377505_))))) + (let () (declare (not safe)) (_$E7749377505_))))) + (let () (declare (not safe)) (_$E7749377505_)))) + (let () (declare (not safe)) (_$E7749377505_)))))) (define __compile-if% - (lambda (_stx77417_) - (let* ((_$e77419_ _stx77417_) - (_$E7742177436_ + (lambda (_stx77421_) + (let* ((_$e77423_ _stx77421_) + (_$E7742577440_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77419_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77419_)) - (let* ((_$tgt7742277439_ - (let () (declare (not safe)) (__AST-e _$e77419_))) - (_$hd7742377442_ - (let () (declare (not safe)) (##car _$tgt7742277439_))) - (_$tl7742477445_ - (let () (declare (not safe)) (##cdr _$tgt7742277439_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7742477445_)) - (let* ((_$tgt7742577449_ + _$e77423_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77423_)) + (let* ((_$tgt7742677443_ + (let () (declare (not safe)) (__AST-e _$e77423_))) + (_$hd7742777446_ + (let () (declare (not safe)) (##car _$tgt7742677443_))) + (_$tl7742877449_ + (let () (declare (not safe)) (##cdr _$tgt7742677443_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7742877449_)) + (let* ((_$tgt7742977453_ (let () (declare (not safe)) - (__AST-e _$tl7742477445_))) - (_$hd7742677452_ + (__AST-e _$tl7742877449_))) + (_$hd7743077456_ (let () (declare (not safe)) - (##car _$tgt7742577449_))) - (_$tl7742777455_ + (##car _$tgt7742977453_))) + (_$tl7743177459_ (let () (declare (not safe)) - (##cdr _$tgt7742577449_)))) - (let ((_p77459_ _$hd7742677452_)) + (##cdr _$tgt7742977453_)))) + (let ((_p77463_ _$hd7743077456_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7742777455_)) - (let* ((_$tgt7742877461_ + (__AST-pair? _$tl7743177459_)) + (let* ((_$tgt7743277465_ (let () (declare (not safe)) - (__AST-e _$tl7742777455_))) - (_$hd7742977464_ + (__AST-e _$tl7743177459_))) + (_$hd7743377468_ (let () (declare (not safe)) - (##car _$tgt7742877461_))) - (_$tl7743077467_ + (##car _$tgt7743277465_))) + (_$tl7743477471_ (let () (declare (not safe)) - (##cdr _$tgt7742877461_)))) - (let ((_t77471_ _$hd7742977464_)) + (##cdr _$tgt7743277465_)))) + (let ((_t77475_ _$hd7743377468_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7743077467_)) - (let* ((_$tgt7743177473_ + (__AST-pair? _$tl7743477471_)) + (let* ((_$tgt7743577477_ (let () (declare (not safe)) - (__AST-e _$tl7743077467_))) - (_$hd7743277476_ + (__AST-e _$tl7743477471_))) + (_$hd7743677480_ (let () (declare (not safe)) - (##car _$tgt7743177473_))) - (_$tl7743377479_ + (##car _$tgt7743577477_))) + (_$tl7743777483_ (let () (declare (not safe)) - (##cdr _$tgt7743177473_)))) - (let ((_f77483_ _$hd7743277476_)) - (if (let ((__tmp79673 + (##cdr _$tgt7743577477_)))) + (let ((_f77487_ _$hd7743677480_)) + (if (let ((__tmp79677 (let () (declare (not safe)) - (__AST-e _$tl7743377479_)))) + (__AST-e _$tl7743777483_)))) (declare (not safe)) - (equal? __tmp79673 '())) - (let ((__tmp79666 - (let ((__tmp79667 - (let ((__tmp79672 + (equal? __tmp79677 '())) + (let ((__tmp79670 + (let ((__tmp79671 + (let ((__tmp79676 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p77459_))) - (__tmp79668 - (let ((__tmp79671 + (let () (declare (not safe)) (__compile _p77463_))) + (__tmp79672 + (let ((__tmp79675 (let () (declare (not safe)) - (__compile _t77471_))) - (__tmp79669 - (let ((__tmp79670 + (__compile _t77475_))) + (__tmp79673 + (let ((__tmp79674 (let () (declare (not safe)) - (__compile _f77483_)))) + (__compile _f77487_)))) (declare (not safe)) - (cons __tmp79670 '())))) + (cons __tmp79674 '())))) (declare (not safe)) - (cons __tmp79671 __tmp79669)))) + (cons __tmp79675 __tmp79673)))) (declare (not safe)) - (cons __tmp79672 __tmp79668)))) + (cons __tmp79676 __tmp79672)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp79667)))) + (cons 'if __tmp79671)))) (declare (not safe)) - (__SRC__% __tmp79666 _stx77417_)) + (__SRC__% __tmp79670 _stx77421_)) (let () (declare (not safe)) - (_$E7742177436_))))) + (_$E7742577440_))))) (let () (declare (not safe)) - (_$E7742177436_))))) - (let () (declare (not safe)) (_$E7742177436_))))) - (let () (declare (not safe)) (_$E7742177436_)))) - (let () (declare (not safe)) (_$E7742177436_)))))) + (_$E7742577440_))))) + (let () (declare (not safe)) (_$E7742577440_))))) + (let () (declare (not safe)) (_$E7742577440_)))) + (let () (declare (not safe)) (_$E7742577440_)))))) (define __compile-quote% - (lambda (_stx77379_) - (let* ((_$e77381_ _stx77379_) - (_$E7738377392_ + (lambda (_stx77383_) + (let* ((_$e77385_ _stx77383_) + (_$E7738777396_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77381_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77381_)) - (let* ((_$tgt7738477395_ - (let () (declare (not safe)) (__AST-e _$e77381_))) - (_$hd7738577398_ - (let () (declare (not safe)) (##car _$tgt7738477395_))) - (_$tl7738677401_ - (let () (declare (not safe)) (##cdr _$tgt7738477395_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7738677401_)) - (let* ((_$tgt7738777405_ + _$e77385_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77385_)) + (let* ((_$tgt7738877399_ + (let () (declare (not safe)) (__AST-e _$e77385_))) + (_$hd7738977402_ + (let () (declare (not safe)) (##car _$tgt7738877399_))) + (_$tl7739077405_ + (let () (declare (not safe)) (##cdr _$tgt7738877399_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7739077405_)) + (let* ((_$tgt7739177409_ (let () (declare (not safe)) - (__AST-e _$tl7738677401_))) - (_$hd7738877408_ + (__AST-e _$tl7739077405_))) + (_$hd7739277412_ (let () (declare (not safe)) - (##car _$tgt7738777405_))) - (_$tl7738977411_ + (##car _$tgt7739177409_))) + (_$tl7739377415_ (let () (declare (not safe)) - (##cdr _$tgt7738777405_)))) - (let ((_e77415_ _$hd7738877408_)) - (if (let ((__tmp79677 + (##cdr _$tgt7739177409_)))) + (let ((_e77419_ _$hd7739277412_)) + (if (let ((__tmp79681 (let () (declare (not safe)) - (__AST-e _$tl7738977411_)))) + (__AST-e _$tl7739377415_)))) (declare (not safe)) - (equal? __tmp79677 '())) - (let ((__tmp79674 - (let ((__tmp79675 - (let ((__tmp79676 + (equal? __tmp79681 '())) + (let ((__tmp79678 + (let ((__tmp79679 + (let ((__tmp79680 (let () (declare (not safe)) - (__AST->datum _e77415_)))) + (__AST->datum _e77419_)))) (declare (not safe)) - (cons __tmp79676 '())))) + (cons __tmp79680 '())))) (declare (not safe)) - (cons 'quote __tmp79675)))) + (cons 'quote __tmp79679)))) (declare (not safe)) - (__SRC__% __tmp79674 _stx77379_)) - (let () (declare (not safe)) (_$E7738377392_))))) - (let () (declare (not safe)) (_$E7738377392_)))) - (let () (declare (not safe)) (_$E7738377392_)))))) + (__SRC__% __tmp79678 _stx77383_)) + (let () (declare (not safe)) (_$E7738777396_))))) + (let () (declare (not safe)) (_$E7738777396_)))) + (let () (declare (not safe)) (_$E7738777396_)))))) (define __compile-quote-syntax% - (lambda (_stx77341_) - (let* ((_$e77343_ _stx77341_) - (_$E7734577354_ + (lambda (_stx77345_) + (let* ((_$e77347_ _stx77345_) + (_$E7734977358_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77343_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77343_)) - (let* ((_$tgt7734677357_ - (let () (declare (not safe)) (__AST-e _$e77343_))) - (_$hd7734777360_ - (let () (declare (not safe)) (##car _$tgt7734677357_))) - (_$tl7734877363_ - (let () (declare (not safe)) (##cdr _$tgt7734677357_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7734877363_)) - (let* ((_$tgt7734977367_ + _$e77347_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77347_)) + (let* ((_$tgt7735077361_ + (let () (declare (not safe)) (__AST-e _$e77347_))) + (_$hd7735177364_ + (let () (declare (not safe)) (##car _$tgt7735077361_))) + (_$tl7735277367_ + (let () (declare (not safe)) (##cdr _$tgt7735077361_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7735277367_)) + (let* ((_$tgt7735377371_ (let () (declare (not safe)) - (__AST-e _$tl7734877363_))) - (_$hd7735077370_ + (__AST-e _$tl7735277367_))) + (_$hd7735477374_ (let () (declare (not safe)) - (##car _$tgt7734977367_))) - (_$tl7735177373_ + (##car _$tgt7735377371_))) + (_$tl7735577377_ (let () (declare (not safe)) - (##cdr _$tgt7734977367_)))) - (let ((_e77377_ _$hd7735077370_)) - (if (let ((__tmp79680 + (##cdr _$tgt7735377371_)))) + (let ((_e77381_ _$hd7735477374_)) + (if (let ((__tmp79684 (let () (declare (not safe)) - (__AST-e _$tl7735177373_)))) + (__AST-e _$tl7735577377_)))) (declare (not safe)) - (equal? __tmp79680 '())) - (let ((__tmp79678 - (let ((__tmp79679 + (equal? __tmp79684 '())) + (let ((__tmp79682 + (let ((__tmp79683 (let () (declare (not safe)) - (cons _e77377_ '())))) + (cons _e77381_ '())))) (declare (not safe)) - (cons 'quote __tmp79679)))) + (cons 'quote __tmp79683)))) (declare (not safe)) - (__SRC__% __tmp79678 _stx77341_)) - (let () (declare (not safe)) (_$E7734577354_))))) - (let () (declare (not safe)) (_$E7734577354_)))) - (let () (declare (not safe)) (_$E7734577354_)))))) + (__SRC__% __tmp79682 _stx77345_)) + (let () (declare (not safe)) (_$E7734977358_))))) + (let () (declare (not safe)) (_$E7734977358_)))) + (let () (declare (not safe)) (_$E7734977358_)))))) (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 726a2dba5..bf21f1da6 100644 --- a/src/bootstrap/gerbil/runtime/eval~1.scm +++ b/src/bootstrap/gerbil/runtime/eval~1.scm @@ -1,321 +1,321 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g79682_| + (define |[1]#_g79686_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g79684_| + (define |[1]#_g79688_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g79686_| + (define |[1]#_g79690_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g79691_| + (define |[1]#_g79695_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g79694_| + (define |[1]#_g79698_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g79699_| + (define |[1]#_g79703_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79702_| + (define |[1]#_g79706_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79707_| + (define |[1]#_g79711_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g79710_| + (define |[1]#_g79714_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g79715_| + (define |[1]#_g79719_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79718_| + (define |[1]#_g79722_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79721_| + (define |[1]#_g79725_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g79723_| + (define |[1]#_g79727_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g79725_| + (define |[1]#_g79729_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g79727_| + (define |[1]#_g79731_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g79732_| + (define |[1]#_g79736_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g79735_| + (define |[1]#_g79739_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g79740_| + (define |[1]#_g79744_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79743_| + (define |[1]#_g79747_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79748_| + (define |[1]#_g79752_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g79751_| + (define |[1]#_g79755_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g79756_| + (define |[1]#_g79760_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79759_| + (define |[1]#_g79763_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79762_| + (define |[1]#_g79766_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g79764_| + (define |[1]#_g79768_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g79766_| + (define |[1]#_g79770_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g79768_| + (define |[1]#_g79772_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g79773_| + (define |[1]#_g79777_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g79776_| + (define |[1]#_g79780_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g79781_| + (define |[1]#_g79785_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79784_| + (define |[1]#_g79788_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79789_| + (define |[1]#_g79793_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g79792_| + (define |[1]#_g79796_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g79797_| + (define |[1]#_g79801_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79800_| + (define |[1]#_g79804_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79804_| + (define |[1]#_g79808_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g79806_| + (define |[1]#_g79810_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g79808_| + (define |[1]#_g79812_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g79813_| + (define |[1]#_g79817_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g79816_| + (define |[1]#_g79820_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g79821_| + (define |[1]#_g79825_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79824_| + (define |[1]#_g79828_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79829_| + (define |[1]#_g79833_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g79832_| + (define |[1]#_g79836_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g79837_| + (define |[1]#_g79841_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79840_| + (define |[1]#_g79844_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj79320 + (let ((__obj79324 (let () (declare (not safe)) (##structure @@ -348,7 +348,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79320 + __obj79324 'gerbil/runtime/eval#__syntax::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -356,7 +356,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79320 + __obj79324 '__syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79320 + __obj79324 '(e id) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -372,7 +372,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79320 + __obj79324 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -380,7 +380,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79320 + __obj79324 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -388,7 +388,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79320 + __obj79324 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -396,7 +396,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79320 + __obj79324 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -404,122 +404,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79320 + __obj79324 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79681 |[1]#_g79682_|)) + (let ((__tmp79685 |[1]#_g79686_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79320 - __tmp79681 + __obj79324 + __tmp79685 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79683 |[1]#_g79684_|)) + (let ((__tmp79687 |[1]#_g79688_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79320 - __tmp79683 + __obj79324 + __tmp79687 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79685 |[1]#_g79686_|)) + (let ((__tmp79689 |[1]#_g79690_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79320 - __tmp79685 + __obj79324 + __tmp79689 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79687 - (let ((__tmp79692 - (let ((__tmp79693 |[1]#_g79694_|)) + (let ((__tmp79691 + (let ((__tmp79696 + (let ((__tmp79697 |[1]#_g79698_|)) (declare (not safe)) - (cons 'e __tmp79693))) - (__tmp79688 - (let ((__tmp79689 - (let ((__tmp79690 |[1]#_g79691_|)) + (cons 'e __tmp79697))) + (__tmp79692 + (let ((__tmp79693 + (let ((__tmp79694 |[1]#_g79695_|)) (declare (not safe)) - (cons 'id __tmp79690)))) + (cons 'id __tmp79694)))) (declare (not safe)) - (cons __tmp79689 '())))) + (cons __tmp79693 '())))) (declare (not safe)) - (cons __tmp79692 __tmp79688)))) + (cons __tmp79696 __tmp79692)))) (declare (not safe)) (##unchecked-structure-set! - __obj79320 - __tmp79687 + __obj79324 + __tmp79691 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79695 - (let ((__tmp79700 - (let ((__tmp79701 |[1]#_g79702_|)) + (let ((__tmp79699 + (let ((__tmp79704 + (let ((__tmp79705 |[1]#_g79706_|)) (declare (not safe)) - (cons 'e __tmp79701))) - (__tmp79696 - (let ((__tmp79697 - (let ((__tmp79698 |[1]#_g79699_|)) + (cons 'e __tmp79705))) + (__tmp79700 + (let ((__tmp79701 + (let ((__tmp79702 |[1]#_g79703_|)) (declare (not safe)) - (cons 'id __tmp79698)))) + (cons 'id __tmp79702)))) (declare (not safe)) - (cons __tmp79697 '())))) + (cons __tmp79701 '())))) (declare (not safe)) - (cons __tmp79700 __tmp79696)))) + (cons __tmp79704 __tmp79700)))) (declare (not safe)) (##unchecked-structure-set! - __obj79320 - __tmp79695 + __obj79324 + __tmp79699 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79703 - (let ((__tmp79708 - (let ((__tmp79709 |[1]#_g79710_|)) + (let ((__tmp79707 + (let ((__tmp79712 + (let ((__tmp79713 |[1]#_g79714_|)) (declare (not safe)) - (cons 'e __tmp79709))) - (__tmp79704 - (let ((__tmp79705 - (let ((__tmp79706 |[1]#_g79707_|)) + (cons 'e __tmp79713))) + (__tmp79708 + (let ((__tmp79709 + (let ((__tmp79710 |[1]#_g79711_|)) (declare (not safe)) - (cons 'id __tmp79706)))) + (cons 'id __tmp79710)))) (declare (not safe)) - (cons __tmp79705 '())))) + (cons __tmp79709 '())))) (declare (not safe)) - (cons __tmp79708 __tmp79704)))) + (cons __tmp79712 __tmp79708)))) (declare (not safe)) (##unchecked-structure-set! - __obj79320 - __tmp79703 + __obj79324 + __tmp79707 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79711 - (let ((__tmp79716 - (let ((__tmp79717 |[1]#_g79718_|)) + (let ((__tmp79715 + (let ((__tmp79720 + (let ((__tmp79721 |[1]#_g79722_|)) (declare (not safe)) - (cons 'e __tmp79717))) - (__tmp79712 - (let ((__tmp79713 - (let ((__tmp79714 |[1]#_g79715_|)) + (cons 'e __tmp79721))) + (__tmp79716 + (let ((__tmp79717 + (let ((__tmp79718 |[1]#_g79719_|)) (declare (not safe)) - (cons 'id __tmp79714)))) + (cons 'id __tmp79718)))) (declare (not safe)) - (cons __tmp79713 '())))) + (cons __tmp79717 '())))) (declare (not safe)) - (cons __tmp79716 __tmp79712)))) + (cons __tmp79720 __tmp79716)))) (declare (not safe)) (##unchecked-structure-set! - __obj79320 - __tmp79711 + __obj79324 + __tmp79715 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj79320)) + __obj79324)) (define |[:0:]#__core-form| - (let ((__obj79321 + (let ((__obj79325 (let () (declare (not safe)) (##structure @@ -543,7 +543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79321 + __obj79325 'gerbil/runtime/eval#__core-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -551,7 +551,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79321 + __obj79325 '__core-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -559,26 +559,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79321 + __obj79325 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79719 - (let ((__tmp79720 |[1]#_g79721_|)) + (let ((__tmp79723 + (let ((__tmp79724 |[1]#_g79725_|)) (declare (not safe)) - (cons __tmp79720 '())))) + (cons __tmp79724 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj79321 - __tmp79719 + __obj79325 + __tmp79723 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj79321 + __obj79325 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -586,7 +586,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79321 + __obj79325 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -594,7 +594,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79321 + __obj79325 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -602,122 +602,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79321 + __obj79325 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79722 |[1]#_g79723_|)) + (let ((__tmp79726 |[1]#_g79727_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79321 - __tmp79722 + __obj79325 + __tmp79726 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79724 |[1]#_g79725_|)) + (let ((__tmp79728 |[1]#_g79729_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79321 - __tmp79724 + __obj79325 + __tmp79728 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79726 |[1]#_g79727_|)) + (let ((__tmp79730 |[1]#_g79731_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79321 - __tmp79726 + __obj79325 + __tmp79730 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79728 - (let ((__tmp79733 - (let ((__tmp79734 |[1]#_g79735_|)) + (let ((__tmp79732 + (let ((__tmp79737 + (let ((__tmp79738 |[1]#_g79739_|)) (declare (not safe)) - (cons 'e __tmp79734))) - (__tmp79729 - (let ((__tmp79730 - (let ((__tmp79731 |[1]#_g79732_|)) + (cons 'e __tmp79738))) + (__tmp79733 + (let ((__tmp79734 + (let ((__tmp79735 |[1]#_g79736_|)) (declare (not safe)) - (cons 'id __tmp79731)))) + (cons 'id __tmp79735)))) (declare (not safe)) - (cons __tmp79730 '())))) + (cons __tmp79734 '())))) (declare (not safe)) - (cons __tmp79733 __tmp79729)))) + (cons __tmp79737 __tmp79733)))) (declare (not safe)) (##unchecked-structure-set! - __obj79321 - __tmp79728 + __obj79325 + __tmp79732 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79736 - (let ((__tmp79741 - (let ((__tmp79742 |[1]#_g79743_|)) + (let ((__tmp79740 + (let ((__tmp79745 + (let ((__tmp79746 |[1]#_g79747_|)) (declare (not safe)) - (cons 'e __tmp79742))) - (__tmp79737 - (let ((__tmp79738 - (let ((__tmp79739 |[1]#_g79740_|)) + (cons 'e __tmp79746))) + (__tmp79741 + (let ((__tmp79742 + (let ((__tmp79743 |[1]#_g79744_|)) (declare (not safe)) - (cons 'id __tmp79739)))) + (cons 'id __tmp79743)))) (declare (not safe)) - (cons __tmp79738 '())))) + (cons __tmp79742 '())))) (declare (not safe)) - (cons __tmp79741 __tmp79737)))) + (cons __tmp79745 __tmp79741)))) (declare (not safe)) (##unchecked-structure-set! - __obj79321 - __tmp79736 + __obj79325 + __tmp79740 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79744 - (let ((__tmp79749 - (let ((__tmp79750 |[1]#_g79751_|)) + (let ((__tmp79748 + (let ((__tmp79753 + (let ((__tmp79754 |[1]#_g79755_|)) (declare (not safe)) - (cons 'e __tmp79750))) - (__tmp79745 - (let ((__tmp79746 - (let ((__tmp79747 |[1]#_g79748_|)) + (cons 'e __tmp79754))) + (__tmp79749 + (let ((__tmp79750 + (let ((__tmp79751 |[1]#_g79752_|)) (declare (not safe)) - (cons 'id __tmp79747)))) + (cons 'id __tmp79751)))) (declare (not safe)) - (cons __tmp79746 '())))) + (cons __tmp79750 '())))) (declare (not safe)) - (cons __tmp79749 __tmp79745)))) + (cons __tmp79753 __tmp79749)))) (declare (not safe)) (##unchecked-structure-set! - __obj79321 - __tmp79744 + __obj79325 + __tmp79748 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79752 - (let ((__tmp79757 - (let ((__tmp79758 |[1]#_g79759_|)) + (let ((__tmp79756 + (let ((__tmp79761 + (let ((__tmp79762 |[1]#_g79763_|)) (declare (not safe)) - (cons 'e __tmp79758))) - (__tmp79753 - (let ((__tmp79754 - (let ((__tmp79755 |[1]#_g79756_|)) + (cons 'e __tmp79762))) + (__tmp79757 + (let ((__tmp79758 + (let ((__tmp79759 |[1]#_g79760_|)) (declare (not safe)) - (cons 'id __tmp79755)))) + (cons 'id __tmp79759)))) (declare (not safe)) - (cons __tmp79754 '())))) + (cons __tmp79758 '())))) (declare (not safe)) - (cons __tmp79757 __tmp79753)))) + (cons __tmp79761 __tmp79757)))) (declare (not safe)) (##unchecked-structure-set! - __obj79321 - __tmp79752 + __obj79325 + __tmp79756 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj79321)) + __obj79325)) (define |[:0:]#__core-expression| - (let ((__obj79322 + (let ((__obj79326 (let () (declare (not safe)) (##structure @@ -741,7 +741,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79322 + __obj79326 'gerbil/runtime/eval#__core-expression::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -749,7 +749,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79322 + __obj79326 '__core-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -757,26 +757,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79322 + __obj79326 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79760 - (let ((__tmp79761 |[1]#_g79762_|)) + (let ((__tmp79764 + (let ((__tmp79765 |[1]#_g79766_|)) (declare (not safe)) - (cons __tmp79761 '())))) + (cons __tmp79765 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj79322 - __tmp79760 + __obj79326 + __tmp79764 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj79322 + __obj79326 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -784,7 +784,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79322 + __obj79326 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -792,7 +792,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79322 + __obj79326 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -800,122 +800,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79322 + __obj79326 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79763 |[1]#_g79764_|)) + (let ((__tmp79767 |[1]#_g79768_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79322 - __tmp79763 + __obj79326 + __tmp79767 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79765 |[1]#_g79766_|)) + (let ((__tmp79769 |[1]#_g79770_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79322 - __tmp79765 + __obj79326 + __tmp79769 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79767 |[1]#_g79768_|)) + (let ((__tmp79771 |[1]#_g79772_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79322 - __tmp79767 + __obj79326 + __tmp79771 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79769 - (let ((__tmp79774 - (let ((__tmp79775 |[1]#_g79776_|)) + (let ((__tmp79773 + (let ((__tmp79778 + (let ((__tmp79779 |[1]#_g79780_|)) (declare (not safe)) - (cons 'e __tmp79775))) - (__tmp79770 - (let ((__tmp79771 - (let ((__tmp79772 |[1]#_g79773_|)) + (cons 'e __tmp79779))) + (__tmp79774 + (let ((__tmp79775 + (let ((__tmp79776 |[1]#_g79777_|)) (declare (not safe)) - (cons 'id __tmp79772)))) + (cons 'id __tmp79776)))) (declare (not safe)) - (cons __tmp79771 '())))) + (cons __tmp79775 '())))) (declare (not safe)) - (cons __tmp79774 __tmp79770)))) + (cons __tmp79778 __tmp79774)))) (declare (not safe)) (##unchecked-structure-set! - __obj79322 - __tmp79769 + __obj79326 + __tmp79773 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79777 - (let ((__tmp79782 - (let ((__tmp79783 |[1]#_g79784_|)) + (let ((__tmp79781 + (let ((__tmp79786 + (let ((__tmp79787 |[1]#_g79788_|)) (declare (not safe)) - (cons 'e __tmp79783))) - (__tmp79778 - (let ((__tmp79779 - (let ((__tmp79780 |[1]#_g79781_|)) + (cons 'e __tmp79787))) + (__tmp79782 + (let ((__tmp79783 + (let ((__tmp79784 |[1]#_g79785_|)) (declare (not safe)) - (cons 'id __tmp79780)))) + (cons 'id __tmp79784)))) (declare (not safe)) - (cons __tmp79779 '())))) + (cons __tmp79783 '())))) (declare (not safe)) - (cons __tmp79782 __tmp79778)))) + (cons __tmp79786 __tmp79782)))) (declare (not safe)) (##unchecked-structure-set! - __obj79322 - __tmp79777 + __obj79326 + __tmp79781 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79785 - (let ((__tmp79790 - (let ((__tmp79791 |[1]#_g79792_|)) + (let ((__tmp79789 + (let ((__tmp79794 + (let ((__tmp79795 |[1]#_g79796_|)) (declare (not safe)) - (cons 'e __tmp79791))) - (__tmp79786 - (let ((__tmp79787 - (let ((__tmp79788 |[1]#_g79789_|)) + (cons 'e __tmp79795))) + (__tmp79790 + (let ((__tmp79791 + (let ((__tmp79792 |[1]#_g79793_|)) (declare (not safe)) - (cons 'id __tmp79788)))) + (cons 'id __tmp79792)))) (declare (not safe)) - (cons __tmp79787 '())))) + (cons __tmp79791 '())))) (declare (not safe)) - (cons __tmp79790 __tmp79786)))) + (cons __tmp79794 __tmp79790)))) (declare (not safe)) (##unchecked-structure-set! - __obj79322 - __tmp79785 + __obj79326 + __tmp79789 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79793 - (let ((__tmp79798 - (let ((__tmp79799 |[1]#_g79800_|)) + (let ((__tmp79797 + (let ((__tmp79802 + (let ((__tmp79803 |[1]#_g79804_|)) (declare (not safe)) - (cons 'e __tmp79799))) - (__tmp79794 - (let ((__tmp79795 - (let ((__tmp79796 |[1]#_g79797_|)) + (cons 'e __tmp79803))) + (__tmp79798 + (let ((__tmp79799 + (let ((__tmp79800 |[1]#_g79801_|)) (declare (not safe)) - (cons 'id __tmp79796)))) + (cons 'id __tmp79800)))) (declare (not safe)) - (cons __tmp79795 '())))) + (cons __tmp79799 '())))) (declare (not safe)) - (cons __tmp79798 __tmp79794)))) + (cons __tmp79802 __tmp79798)))) (declare (not safe)) (##unchecked-structure-set! - __obj79322 - __tmp79793 + __obj79326 + __tmp79797 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj79322)) + __obj79326)) (define |[:0:]#__core-special-form| - (let ((__obj79323 + (let ((__obj79327 (let () (declare (not safe)) (##structure @@ -939,7 +939,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79323 + __obj79327 'gerbil/runtime/eval#__core-special-form::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -947,7 +947,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79323 + __obj79327 '__core-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -955,26 +955,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79323 + __obj79327 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79801 - (let ((__tmp79802 |[1]#_g79762_|)) + (let ((__tmp79805 + (let ((__tmp79806 |[1]#_g79766_|)) (declare (not safe)) - (cons __tmp79802 '())))) + (cons __tmp79806 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj79323 - __tmp79801 + __obj79327 + __tmp79805 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj79323 + __obj79327 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -982,7 +982,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79323 + __obj79327 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -990,7 +990,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79323 + __obj79327 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -998,327 +998,327 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79323 + __obj79327 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79803 |[1]#_g79804_|)) + (let ((__tmp79807 |[1]#_g79808_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79323 - __tmp79803 + __obj79327 + __tmp79807 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79805 |[1]#_g79806_|)) + (let ((__tmp79809 |[1]#_g79810_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79323 - __tmp79805 + __obj79327 + __tmp79809 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79807 |[1]#_g79808_|)) + (let ((__tmp79811 |[1]#_g79812_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79323 - __tmp79807 + __obj79327 + __tmp79811 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79809 - (let ((__tmp79814 - (let ((__tmp79815 |[1]#_g79816_|)) + (let ((__tmp79813 + (let ((__tmp79818 + (let ((__tmp79819 |[1]#_g79820_|)) (declare (not safe)) - (cons 'e __tmp79815))) - (__tmp79810 - (let ((__tmp79811 - (let ((__tmp79812 |[1]#_g79813_|)) + (cons 'e __tmp79819))) + (__tmp79814 + (let ((__tmp79815 + (let ((__tmp79816 |[1]#_g79817_|)) (declare (not safe)) - (cons 'id __tmp79812)))) + (cons 'id __tmp79816)))) (declare (not safe)) - (cons __tmp79811 '())))) + (cons __tmp79815 '())))) (declare (not safe)) - (cons __tmp79814 __tmp79810)))) + (cons __tmp79818 __tmp79814)))) (declare (not safe)) (##unchecked-structure-set! - __obj79323 - __tmp79809 + __obj79327 + __tmp79813 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79817 - (let ((__tmp79822 - (let ((__tmp79823 |[1]#_g79824_|)) + (let ((__tmp79821 + (let ((__tmp79826 + (let ((__tmp79827 |[1]#_g79828_|)) (declare (not safe)) - (cons 'e __tmp79823))) - (__tmp79818 - (let ((__tmp79819 - (let ((__tmp79820 |[1]#_g79821_|)) + (cons 'e __tmp79827))) + (__tmp79822 + (let ((__tmp79823 + (let ((__tmp79824 |[1]#_g79825_|)) (declare (not safe)) - (cons 'id __tmp79820)))) + (cons 'id __tmp79824)))) (declare (not safe)) - (cons __tmp79819 '())))) + (cons __tmp79823 '())))) (declare (not safe)) - (cons __tmp79822 __tmp79818)))) + (cons __tmp79826 __tmp79822)))) (declare (not safe)) (##unchecked-structure-set! - __obj79323 - __tmp79817 + __obj79327 + __tmp79821 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79825 - (let ((__tmp79830 - (let ((__tmp79831 |[1]#_g79832_|)) + (let ((__tmp79829 + (let ((__tmp79834 + (let ((__tmp79835 |[1]#_g79836_|)) (declare (not safe)) - (cons 'e __tmp79831))) - (__tmp79826 - (let ((__tmp79827 - (let ((__tmp79828 |[1]#_g79829_|)) + (cons 'e __tmp79835))) + (__tmp79830 + (let ((__tmp79831 + (let ((__tmp79832 |[1]#_g79833_|)) (declare (not safe)) - (cons 'id __tmp79828)))) + (cons 'id __tmp79832)))) (declare (not safe)) - (cons __tmp79827 '())))) + (cons __tmp79831 '())))) (declare (not safe)) - (cons __tmp79830 __tmp79826)))) + (cons __tmp79834 __tmp79830)))) (declare (not safe)) (##unchecked-structure-set! - __obj79323 - __tmp79825 + __obj79327 + __tmp79829 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79833 - (let ((__tmp79838 - (let ((__tmp79839 |[1]#_g79840_|)) + (let ((__tmp79837 + (let ((__tmp79842 + (let ((__tmp79843 |[1]#_g79844_|)) (declare (not safe)) - (cons 'e __tmp79839))) - (__tmp79834 - (let ((__tmp79835 - (let ((__tmp79836 |[1]#_g79837_|)) + (cons 'e __tmp79843))) + (__tmp79838 + (let ((__tmp79839 + (let ((__tmp79840 |[1]#_g79841_|)) (declare (not safe)) - (cons 'id __tmp79836)))) + (cons 'id __tmp79840)))) (declare (not safe)) - (cons __tmp79835 '())))) + (cons __tmp79839 '())))) (declare (not safe)) - (cons __tmp79838 __tmp79834)))) + (cons __tmp79842 __tmp79838)))) (declare (not safe)) (##unchecked-structure-set! - __obj79323 - __tmp79833 + __obj79327 + __tmp79837 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj79323)) + __obj79327)) (define |[:0:]#defcore-forms| - (lambda (_stx76886_) - (letrec ((_generate76889_ - (lambda (_id77253_ _compile77255_ _make77256_) - (let* ((_g7725877277_ - (lambda (_g7725977273_) + (lambda (_stx76890_) + (letrec ((_generate76893_ + (lambda (_id77257_ _compile77259_ _make77260_) + (let* ((_g7726277281_ + (lambda (_g7726377277_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7725977273_))) - (_g7725777336_ - (lambda (_g7725977281_) - (if (gx#stx-pair? _g7725977281_) - (let ((_e7726577284_ - (gx#syntax-e _g7725977281_))) - (let ((_hd7726477288_ + _g7726377277_))) + (_g7726177340_ + (lambda (_g7726377285_) + (if (gx#stx-pair? _g7726377285_) + (let ((_e7726977288_ + (gx#syntax-e _g7726377285_))) + (let ((_hd7726877292_ (let () (declare (not safe)) - (##car _e7726577284_))) - (_tl7726377291_ + (##car _e7726977288_))) + (_tl7726777295_ (let () (declare (not safe)) - (##cdr _e7726577284_)))) - (if (gx#stx-pair? _tl7726377291_) - (let ((_e7726877294_ - (gx#syntax-e _tl7726377291_))) - (let ((_hd7726777298_ + (##cdr _e7726977288_)))) + (if (gx#stx-pair? _tl7726777295_) + (let ((_e7727277298_ + (gx#syntax-e _tl7726777295_))) + (let ((_hd7727177302_ (let () (declare (not safe)) - (##car _e7726877294_))) - (_tl7726677301_ + (##car _e7727277298_))) + (_tl7727077305_ (let () (declare (not safe)) - (##cdr _e7726877294_)))) - (if (gx#stx-pair? _tl7726677301_) - (let ((_e7727177304_ + (##cdr _e7727277298_)))) + (if (gx#stx-pair? _tl7727077305_) + (let ((_e7727577308_ (gx#syntax-e - _tl7726677301_))) - (let ((_hd7727077308_ + _tl7727077305_))) + (let ((_hd7727477312_ (let () (declare (not safe)) - (##car _e7727177304_))) - (_tl7726977311_ + (##car _e7727577308_))) + (_tl7727377315_ (let () (declare (not safe)) - (##cdr _e7727177304_)))) + (##cdr _e7727577308_)))) (if (gx#stx-null? - _tl7726977311_) - ((lambda (_L77314_ + _tl7727377315_) + ((lambda (_L77318_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L77316_ - _L77317_) + _L77320_ + _L77321_) (let () - (let ((__tmp79847 + (let ((__tmp79851 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp79841 - (let ((__tmp79844 - (let ((__tmp79846 + (__tmp79845 + (let ((__tmp79848 + (let ((__tmp79850 (gx#datum->syntax '#f 'quote)) - (__tmp79845 + (__tmp79849 (let () (declare (not safe)) - (cons _L77317_ '())))) + (cons _L77321_ '())))) (declare (not safe)) - (cons __tmp79846 __tmp79845))) - (__tmp79842 - (let ((__tmp79843 + (cons __tmp79850 __tmp79849))) + (__tmp79846 + (let ((__tmp79847 (let () (declare (not safe)) - (cons _L77314_ '())))) + (cons _L77318_ '())))) (declare (not safe)) - (cons _L77316_ __tmp79843)))) + (cons _L77320_ __tmp79847)))) (declare (not safe)) - (cons __tmp79844 __tmp79842)))) + (cons __tmp79848 __tmp79846)))) (declare (not safe)) - (cons __tmp79847 __tmp79841)))) - _hd7727077308_ - _hd7726777298_ - _hd7726477288_) - (_g7725877277_ _g7725977281_)))) + (cons __tmp79851 __tmp79845)))) + _hd7727477312_ + _hd7727177302_ + _hd7726877292_) + (_g7726277281_ _g7726377285_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7725877277_ - _g7725977281_)))) - (_g7725877277_ _g7725977281_)))) - (_g7725877277_ _g7725977281_))))) - (_g7725777336_ - (list _id77253_ - (gx#stx-identifier _id77253_ '"__" _compile77255_) - _make77256_)))))) - (let* ((_g7689276912_ - (lambda (_g7689376908_) + (_g7726277281_ + _g7726377285_)))) + (_g7726277281_ _g7726377285_)))) + (_g7726277281_ _g7726377285_))))) + (_g7726177340_ + (list _id77257_ + (gx#stx-identifier _id77257_ '"__" _compile77259_) + _make77260_)))))) + (let* ((_g7689676916_ + (lambda (_g7689776912_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7689376908_))) - (_g7689177249_ - (lambda (_g7689376916_) - (if (gx#stx-pair? _g7689376916_) - (let ((_e7689776919_ (gx#syntax-e _g7689376916_))) - (let ((_hd7689676923_ + _g7689776912_))) + (_g7689577253_ + (lambda (_g7689776920_) + (if (gx#stx-pair? _g7689776920_) + (let ((_e7690176923_ (gx#syntax-e _g7689776920_))) + (let ((_hd7690076927_ (let () (declare (not safe)) - (##car _e7689776919_))) - (_tl7689576926_ + (##car _e7690176923_))) + (_tl7689976930_ (let () (declare (not safe)) - (##cdr _e7689776919_)))) - (if (gx#stx-pair/null? _tl7689576926_) - (let ((_g79848_ + (##cdr _e7690176923_)))) + (if (gx#stx-pair/null? _tl7689976930_) + (let ((_g79852_ (gx#syntax-split-splice - _tl7689576926_ + _tl7689976930_ '0))) (begin - (let ((_g79849_ + (let ((_g79853_ (let () (declare (not safe)) - (if (##values? _g79848_) - (##vector-length _g79848_) + (if (##values? _g79852_) + (##vector-length _g79852_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g79849_ 2))) + (##fx= _g79853_ 2))) (error "Context expects 2 values" - _g79849_))) - (let ((_target7689876929_ + _g79853_))) + (let ((_target7690276933_ (let () (declare (not safe)) - (##vector-ref _g79848_ 0))) - (_tl7690076932_ + (##vector-ref _g79852_ 0))) + (_tl7690476936_ (let () (declare (not safe)) - (##vector-ref _g79848_ 1)))) - (if (gx#stx-null? _tl7690076932_) - (letrec ((_loop7690176935_ - (lambda (_hd7689976939_ - _form7690576942_) + (##vector-ref _g79852_ 1)))) + (if (gx#stx-null? _tl7690476936_) + (letrec ((_loop7690576939_ + (lambda (_hd7690376943_ + _form7690976946_) (if (gx#stx-pair? - _hd7689976939_) - (let ((_e7690276945_ + _hd7690376943_) + (let ((_e7690676949_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd7689976939_))) - (let ((_lp-hd7690376949_ - (let () (declare (not safe)) (##car _e7690276945_))) - (_lp-tl7690476952_ + (gx#syntax-e _hd7690376943_))) + (let ((_lp-hd7690776953_ + (let () (declare (not safe)) (##car _e7690676949_))) + (_lp-tl7690876956_ (let () (declare (not safe)) - (##cdr _e7690276945_)))) - (_loop7690176935_ - _lp-tl7690476952_ + (##cdr _e7690676949_)))) + (_loop7690576939_ + _lp-tl7690876956_ (let () (declare (not safe)) - (cons _lp-hd7690376949_ _form7690576942_))))) - (let ((_form7690676955_ (reverse _form7690576942_))) - ((lambda (_L76959_) - (let _lp76977_ ((_rest76980_ - (let ((__tmp79854 - (lambda (_g7724077243_ - _g7724177246_) + (cons _lp-hd7690776953_ _form7690976946_))))) + (let ((_form7691076959_ (reverse _form7690976946_))) + ((lambda (_L76963_) + (let _lp76981_ ((_rest76984_ + (let ((__tmp79858 + (lambda (_g7724477247_ + _g7724577250_) (let () (declare (not safe)) - (cons _g7724077243_ - _g7724177246_))))) + (cons _g7724477247_ + _g7724577250_))))) (declare (not safe)) - (foldr1 __tmp79854 '() _L76959_))) - (_body76982_ '())) - (let* ((___stx7922779228_ _rest76980_) - (_g7698777034_ + (foldr1 __tmp79858 '() _L76963_))) + (_body76986_ '())) + (let* ((___stx7923179232_ _rest76984_) + (_g7699177038_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7922779228_)))) - (let ((___kont7923079231_ - (lambda (_L77215_ _L77217_ _L77218_) - (_lp76977_ - _L77215_ - (let ((__tmp79850 - (_generate76889_ - _L77218_ - _L77217_ + ___stx7923179232_)))) + (let ((___kont7923479235_ + (lambda (_L77219_ _L77221_ _L77222_) + (_lp76981_ + _L77219_ + (let ((__tmp79854 + (_generate76893_ + _L77222_ + _L77221_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp79850 _body76982_))))) - (___kont7923279233_ - (lambda (_L77142_ _L77144_ _L77145_) - (_lp76977_ - _L77142_ - (let ((__tmp79851 - (_generate76889_ - _L77145_ - _L77144_ + (cons __tmp79854 _body76986_))))) + (___kont7923679237_ + (lambda (_L77146_ _L77148_ _L77149_) + (_lp76981_ + _L77146_ + (let ((__tmp79855 + (_generate76893_ + _L77149_ + _L77148_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp79851 _body76982_))))) - (___kont7923479235_ - (lambda (_L77072_ _L77074_) - (_lp76977_ - _L77072_ - (let ((__tmp79852 - (_generate76889_ - _L77074_ + (cons __tmp79855 _body76986_))))) + (___kont7923879239_ + (lambda (_L77076_ _L77078_) + (_lp76981_ + _L77076_ + (let ((__tmp79856 + (_generate76893_ + _L77078_ (gx#datum->syntax '#f 'compile-error) @@ -1326,131 +1326,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp79852 _body76982_))))) - (___kont7923679237_ + (cons __tmp79856 _body76986_))))) + (___kont7924079241_ (lambda () - (let ((__tmp79853 (reverse _body76982_))) + (let ((__tmp79857 (reverse _body76986_))) (declare (not safe)) - (cons 'begin __tmp79853))))) - (let ((_g7698677045_ + (cons 'begin __tmp79857))))) + (let ((_g7699077049_ (lambda () - (if (gx#stx-null? ___stx7922779228_) - (___kont7923679237_) + (if (gx#stx-null? ___stx7923179232_) + (___kont7924079241_) (let () (declare (not safe)) - (_g7698777034_)))))) - (if (gx#stx-pair? ___stx7922779228_) - (let ((_e7699477171_ - (gx#syntax-e ___stx7922779228_))) - (let ((_tl7699277178_ + (_g7699177038_)))))) + (if (gx#stx-pair? ___stx7923179232_) + (let ((_e7699877175_ + (gx#syntax-e ___stx7923179232_))) + (let ((_tl7699677182_ (let () (declare (not safe)) - (##cdr _e7699477171_))) - (_hd7699377175_ + (##cdr _e7699877175_))) + (_hd7699777179_ (let () (declare (not safe)) - (##car _e7699477171_)))) - (if (gx#stx-pair? _hd7699377175_) - (let ((_e7699777181_ + (##car _e7699877175_)))) + (if (gx#stx-pair? _hd7699777179_) + (let ((_e7700177185_ (gx#syntax-e - _hd7699377175_))) - (let ((_tl7699577188_ + _hd7699777179_))) + (let ((_tl7699977192_ (let () (declare (not safe)) - (##cdr _e7699777181_))) - (_hd7699677185_ + (##cdr _e7700177185_))) + (_hd7700077189_ (let () (declare (not safe)) - (##car _e7699777181_)))) + (##car _e7700177185_)))) (if (gx#stx-pair? - _tl7699577188_) - (let ((_e7700077191_ + _tl7699977192_) + (let ((_e7700477195_ (gx#syntax-e - _tl7699577188_))) - (let ((_tl7699877198_ + _tl7699977192_))) + (let ((_tl7700277202_ (let () (declare (not safe)) - (##cdr _e7700077191_))) - (_hd7699977195_ + (##cdr _e7700477195_))) + (_hd7700377199_ (let () (declare (not safe)) - (##car _e7700077191_)))) + (##car _e7700477195_)))) (if (gx#stx-datum? - _hd7699977195_) - (let ((_e7700177201_ + _hd7700377199_) + (let ((_e7700577205_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd7699977195_))) + (gx#stx-e _hd7700377199_))) (if (let () (declare (not safe)) - (equal? _e7700177201_ 'expr:)) - (if (gx#stx-pair? _tl7699877198_) - (let ((_e7700477205_ - (gx#syntax-e _tl7699877198_))) - (let ((_tl7700277212_ + (equal? _e7700577205_ 'expr:)) + (if (gx#stx-pair? _tl7700277202_) + (let ((_e7700877209_ + (gx#syntax-e _tl7700277202_))) + (let ((_tl7700677216_ (let () (declare (not safe)) - (##cdr _e7700477205_))) - (_hd7700377209_ + (##cdr _e7700877209_))) + (_hd7700777213_ (let () (declare (not safe)) - (##car _e7700477205_)))) - (if (gx#stx-null? _tl7700277212_) - (___kont7923079231_ - _tl7699277178_ - _hd7700377209_ - _hd7699677185_) + (##car _e7700877209_)))) + (if (gx#stx-null? _tl7700677216_) + (___kont7923479235_ + _tl7699677182_ + _hd7700777213_ + _hd7700077189_) (let () (declare (not safe)) - (_g7698777034_))))) - (let () (declare (not safe)) (_g7698777034_))) + (_g7699177038_))))) + (let () (declare (not safe)) (_g7699177038_))) (if (let () (declare (not safe)) - (equal? _e7700177201_ 'special:)) - (if (gx#stx-pair? _tl7699877198_) - (let ((_e7702077132_ - (gx#syntax-e _tl7699877198_))) - (let ((_tl7701877139_ + (equal? _e7700577205_ 'special:)) + (if (gx#stx-pair? _tl7700277202_) + (let ((_e7702477136_ + (gx#syntax-e _tl7700277202_))) + (let ((_tl7702277143_ (let () (declare (not safe)) - (##cdr _e7702077132_))) - (_hd7701977136_ + (##cdr _e7702477136_))) + (_hd7702377140_ (let () (declare (not safe)) - (##car _e7702077132_)))) - (if (gx#stx-null? _tl7701877139_) - (___kont7923279233_ - _tl7699277178_ - _hd7701977136_ - _hd7699677185_) + (##car _e7702477136_)))) + (if (gx#stx-null? _tl7702277143_) + (___kont7923679237_ + _tl7699677182_ + _hd7702377140_ + _hd7700077189_) (let () (declare (not safe)) - (_g7698777034_))))) - (let () (declare (not safe)) (_g7698777034_))) - (let () (declare (not safe)) (_g7698777034_))))) - (let () (declare (not safe)) (_g7698777034_))))) + (_g7699177038_))))) + (let () (declare (not safe)) (_g7699177038_))) + (let () (declare (not safe)) (_g7699177038_))))) + (let () (declare (not safe)) (_g7699177038_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl7699577188_) - (___kont7923479235_ - _tl7699277178_ - _hd7699677185_) + _tl7699977192_) + (___kont7923879239_ + _tl7699677182_ + _hd7700077189_) (let () (declare (not safe)) - (_g7698777034_)))))) + (_g7699177038_)))))) (let () (declare (not safe)) - (_g7698777034_))))) + (_g7699177038_))))) (let () (declare (not safe)) - (_g7698677045_)))))))) - _form7690676955_)))))) + (_g7699077049_)))))))) + _form7691076959_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7690176935_ - _target7689876929_ + (_loop7690576939_ + _target7690276933_ '())) - (_g7689276912_ _g7689376916_))))) - (_g7689276912_ _g7689376916_)))) - (_g7689276912_ _g7689376916_))))) - (_g7689177249_ _stx76886_))))))) + (_g7689676916_ _g7689776920_))))) + (_g7689676916_ _g7689776920_)))) + (_g7689676916_ _g7689776920_))))) + (_g7689577253_ _stx76890_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index 2c62082d4..99e79bcef 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 1710781148) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1710833423) '#!void) diff --git a/src/bootstrap/gerbil/runtime/hash.ssxi.ss b/src/bootstrap/gerbil/runtime/hash.ssxi.ss index b3e6cb434..21e72b9c7 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -213,14 +213,14 @@ package: gerbil/runtime #t #f #f - ((for-each . _locked-hash-table::for-each71039_) - (copy . _locked-hash-table::copy71043_) - (clear! . _locked-hash-table::clear!71045_) - (set! . _locked-hash-table::set!71033_) - (update! . _locked-hash-table::update!71035_) + ((set! . _locked-hash-table::set!71033_) + (ref . _locked-hash-table::ref71031_) + (for-each . _locked-hash-table::for-each71039_) (delete! . _locked-hash-table::delete!71037_) + (update! . _locked-hash-table::update!71035_) (length . _locked-hash-table::length71041_) - (ref . _locked-hash-table::ref71031_)))) + (copy . _locked-hash-table::copy71043_) + (clear! . _locked-hash-table::clear!71045_)))) (declare-type locked-hash-table? (@predicate locked-hash-table::t)) (declare-type make-locked-hash-table (@constructor locked-hash-table::t)) (declare-type @@ -259,14 +259,14 @@ package: gerbil/runtime #t #f #f - ((for-each . _checked-hash-table::for-each71331_) - (copy . _checked-hash-table::copy71335_) - (clear! . _checked-hash-table::clear!71337_) - (set! . _checked-hash-table::set!71325_) - (update! . _checked-hash-table::update!71327_) + ((set! . _checked-hash-table::set!71325_) + (ref . _checked-hash-table::ref71323_) + (for-each . _checked-hash-table::for-each71331_) (delete! . _checked-hash-table::delete!71329_) + (update! . _checked-hash-table::update!71327_) (length . _checked-hash-table::length71333_) - (ref . _checked-hash-table::ref71323_)))) + (copy . _checked-hash-table::copy71335_) + (clear! . _checked-hash-table::clear!71337_)))) (declare-type checked-hash-table? (@predicate checked-hash-table::t)) (declare-type make-checked-hash-table (@constructor checked-hash-table::t)) (declare-type diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index b652455f3..18376a003 100644 --- a/src/bootstrap/gerbil/runtime/hash~0.scm +++ b/src/bootstrap/gerbil/runtime/hash~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/hash::timestamp 1710781148) + (define gerbil/runtime/hash::timestamp 1710833424) (begin (define UnboundKeyError::t (let ((__tmp74323 (list Error::t))) @@ -488,7 +488,11 @@ (cons __tmp74344 '())))) (declare (not safe)) (cons __tmp74345 __tmp74343)))) - (let () + (let ((__tmp74347 + (let ((__tmp74348 + (let () (declare (not safe)) (cons t::t '())))) + (declare (not safe)) + (cons object::t __tmp74348)))) (declare (not safe)) (##structure class::t @@ -497,7 +501,7 @@ _flags74161_ __table::t _fields74163_ - '() + __tmp74347 _slot-vector74152_ _slot-table74159_ _properties74165_ @@ -521,11 +525,11 @@ _slot-table74136_ _slot74138_ _field74139_)) - (let ((__tmp74347 (symbol->keyword _slot74138_))) + (let ((__tmp74349 (symbol->keyword _slot74138_))) (declare (not safe)) (symbolic-table-set! _slot-table74136_ - __tmp74347 + __tmp74349 _field74139_))) _slots74132_ (iota (length _slots74132_) '1)) @@ -539,21 +543,25 @@ class-type-flag-struct))) (_fields74145_ '#()) (_properties74147_ - (let ((__tmp74350 - (let ((__tmp74351 + (let ((__tmp74352 + (let ((__tmp74353 (let () (declare (not safe)) (foldr1 cons '() _slots74132_)))) (declare (not safe)) - (cons 'direct-slots: __tmp74351))) - (__tmp74348 - (let ((__tmp74349 + (cons 'direct-slots: __tmp74353))) + (__tmp74350 + (let ((__tmp74351 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74349 '())))) + (cons __tmp74351 '())))) (declare (not safe)) - (cons __tmp74350 __tmp74348)))) - (let () + (cons __tmp74352 __tmp74350)))) + (let ((__tmp74354 + (let ((__tmp74355 + (let () (declare (not safe)) (cons t::t '())))) + (declare (not safe)) + (cons object::t __tmp74355)))) (declare (not safe)) (##structure class::t @@ -562,31 +570,31 @@ _flags74143_ __gc-table::t _fields74145_ - '() + __tmp74354 _slot-vector74134_ _slot-table74141_ _properties74147_ '#f '#f)))) (define locked-hash-table::t - (let ((__tmp74356 (list)) - (__tmp74352 - (let ((__tmp74355 + (let ((__tmp74360 (list)) + (__tmp74356 + (let ((__tmp74359 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp74353 - (let ((__tmp74354 + (__tmp74357 + (let ((__tmp74358 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp74354 '())))) + (cons __tmp74358 '())))) (declare (not safe)) - (cons __tmp74355 __tmp74353)))) + (cons __tmp74359 __tmp74357)))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp74356 + __tmp74360 '(table lock) - __tmp74352 + __tmp74356 '#f))) (define locked-hash-table? (let () @@ -628,24 +636,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) (define checked-hash-table::t - (let ((__tmp74361 (list)) - (__tmp74357 - (let ((__tmp74360 + (let ((__tmp74365 (list)) + (__tmp74361 + (let ((__tmp74364 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp74358 - (let ((__tmp74359 + (__tmp74362 + (let ((__tmp74363 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp74359 '())))) + (cons __tmp74363 '())))) (declare (not safe)) - (cons __tmp74360 __tmp74358)))) + (cons __tmp74364 __tmp74362)))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp74361 + __tmp74365 '(table key-check) - __tmp74357 + __tmp74361 '#f))) (define checked-hash-table? (let () @@ -687,19 +695,19 @@ (declare (not safe)) (make-class-slot-unchecked-mutator checked-hash-table::t 'key-check))) (define eq-hash-table::t - (let ((__tmp74364 (list hash-table::t)) - (__tmp74362 - (let ((__tmp74363 + (let ((__tmp74368 (list hash-table::t)) + (__tmp74366 + (let ((__tmp74367 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74363 '())))) + (cons __tmp74367 '())))) (declare (not safe)) (make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp74364 + __tmp74368 '() - __tmp74362 + __tmp74366 '#f))) (define eq-hash-table? (let () (declare (not safe)) (make-class-predicate eq-hash-table::t))) @@ -707,19 +715,19 @@ (lambda _$args74123_ (apply make-instance eq-hash-table::t _$args74123_))) (define eqv-hash-table::t - (let ((__tmp74367 (list hash-table::t)) - (__tmp74365 - (let ((__tmp74366 + (let ((__tmp74371 (list hash-table::t)) + (__tmp74369 + (let ((__tmp74370 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74366 '())))) + (cons __tmp74370 '())))) (declare (not safe)) (make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp74367 + __tmp74371 '() - __tmp74365 + __tmp74369 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (make-class-predicate eqv-hash-table::t))) @@ -727,19 +735,19 @@ (lambda _$args74120_ (apply make-instance eqv-hash-table::t _$args74120_))) (define symbol-hash-table::t - (let ((__tmp74370 (list hash-table::t)) - (__tmp74368 - (let ((__tmp74369 + (let ((__tmp74374 (list hash-table::t)) + (__tmp74372 + (let ((__tmp74373 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74369 '())))) + (cons __tmp74373 '())))) (declare (not safe)) (make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp74370 + __tmp74374 '() - __tmp74368 + __tmp74372 '#f))) (define symbol-hash-table? (let () @@ -749,19 +757,19 @@ (lambda _$args74117_ (apply make-instance symbol-hash-table::t _$args74117_))) (define string-hash-table::t - (let ((__tmp74373 (list hash-table::t)) - (__tmp74371 - (let ((__tmp74372 + (let ((__tmp74377 (list hash-table::t)) + (__tmp74375 + (let ((__tmp74376 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74372 '())))) + (cons __tmp74376 '())))) (declare (not safe)) (make-class-type 'gerbil#string-hash-table 'hash-table - __tmp74373 + __tmp74377 '() - __tmp74371 + __tmp74375 '#f))) (define string-hash-table? (let () @@ -771,19 +779,19 @@ (lambda _$args74114_ (apply make-instance string-hash-table::t _$args74114_))) (define immediate-hash-table::t - (let ((__tmp74376 (list hash-table::t)) - (__tmp74374 - (let ((__tmp74375 + (let ((__tmp74380 (list hash-table::t)) + (__tmp74378 + (let ((__tmp74379 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74375 '())))) + (cons __tmp74379 '())))) (declare (not safe)) (make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp74376 + __tmp74380 '() - __tmp74374 + __tmp74378 '#f))) (define immediate-hash-table? (let () @@ -909,23 +917,23 @@ (define hash-table? (lambda (_obj74109_) (if (let () (declare (not safe)) (##structure? _obj74109_)) - (let ((__tmp74377 + (let ((__tmp74381 (let () (declare (not safe)) (##structure-type _obj74109_)))) (declare (not safe)) - (eq? __tmp74377 HashTable::t)) + (eq? __tmp74381 HashTable::t)) '#f))) (define is-hash-table? (lambda (_obj74104_) (let ((_$e74106_ (if (let () (declare (not safe)) (##structure? _obj74104_)) - (let ((__tmp74378 + (let ((__tmp74382 (let () (declare (not safe)) (##structure-type _obj74104_)))) (declare (not safe)) - (eq? __tmp74378 HashTable::t)) + (eq? __tmp74382 HashTable::t)) '#f))) (if _$e74106_ _$e74106_ @@ -936,12 +944,12 @@ (lambda (_h74098_ _key74099_ _default74100_) (let ((_h74102_ (if (and (let () (declare (not safe)) (##structure? _h74098_)) - (let ((__tmp74379 + (let ((__tmp74383 (let () (declare (not safe)) (##structure-type _h74098_)))) (declare (not safe)) - (eq? __tmp74379 HashTable::t))) + (eq? __tmp74383 HashTable::t))) _h74098_ (let () (declare (not safe)) @@ -959,12 +967,12 @@ (lambda (_h74087_ _key74088_ _value74089_) (let ((_h74091_ (if (and (let () (declare (not safe)) (##structure? _h74087_)) - (let ((__tmp74380 + (let ((__tmp74384 (let () (declare (not safe)) (##structure-type _h74087_)))) (declare (not safe)) - (eq? __tmp74380 HashTable::t))) + (eq? __tmp74384 HashTable::t))) _h74087_ (let () (declare (not safe)) @@ -984,12 +992,12 @@ (lambda (_h74075_ _key74076_ _update74077_ _default74078_) (let ((_h74080_ (if (and (let () (declare (not safe)) (##structure? _h74075_)) - (let ((__tmp74381 + (let ((__tmp74385 (let () (declare (not safe)) (##structure-type _h74075_)))) (declare (not safe)) - (eq? __tmp74381 HashTable::t))) + (eq? __tmp74385 HashTable::t))) _h74075_ (let () (declare (not safe)) @@ -1014,12 +1022,12 @@ (lambda (_h74064_ _key74065_) (let ((_h74067_ (if (and (let () (declare (not safe)) (##structure? _h74064_)) - (let ((__tmp74382 + (let ((__tmp74386 (let () (declare (not safe)) (##structure-type _h74064_)))) (declare (not safe)) - (eq? __tmp74382 HashTable::t))) + (eq? __tmp74386 HashTable::t))) _h74064_ (let () (declare (not safe)) @@ -1038,12 +1046,12 @@ (lambda (_h74055_ _proc74056_) (let ((_h74058_ (if (and (let () (declare (not safe)) (##structure? _h74055_)) - (let ((__tmp74383 + (let ((__tmp74387 (let () (declare (not safe)) (##structure-type _h74055_)))) (declare (not safe)) - (eq? __tmp74383 HashTable::t))) + (eq? __tmp74387 HashTable::t))) _h74055_ (let () (declare (not safe)) @@ -1062,12 +1070,12 @@ (lambda (_h74047_) (let ((_h74049_ (if (and (let () (declare (not safe)) (##structure? _h74047_)) - (let ((__tmp74384 + (let ((__tmp74388 (let () (declare (not safe)) (##structure-type _h74047_)))) (declare (not safe)) - (eq? __tmp74384 HashTable::t))) + (eq? __tmp74388 HashTable::t))) _h74047_ (let () (declare (not safe)) @@ -1083,12 +1091,12 @@ (lambda (_h74040_) (let ((_h74042_ (if (and (let () (declare (not safe)) (##structure? _h74040_)) - (let ((__tmp74385 + (let ((__tmp74389 (let () (declare (not safe)) (##structure-type _h74040_)))) (declare (not safe)) - (eq? __tmp74385 HashTable::t))) + (eq? __tmp74389 HashTable::t))) _h74040_ (let () (declare (not safe)) @@ -1109,12 +1117,12 @@ (lambda (_h74033_) (let ((_h74035_ (if (and (let () (declare (not safe)) (##structure? _h74033_)) - (let ((__tmp74386 + (let ((__tmp74390 (let () (declare (not safe)) (##structure-type _h74033_)))) (declare (not safe)) - (eq? __tmp74386 HashTable::t))) + (eq? __tmp74390 HashTable::t))) _h74033_ (let () (declare (not safe)) @@ -1449,18 +1457,18 @@ 'clear! _locked-hash-table::clear!71045_ '#f)) - (let ((__tmp74387 (macro-type-mutex))) + (let ((__tmp74391 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp74387 'begin-read! mutex-lock!)) - (let ((__tmp74388 (macro-type-mutex))) + (bind-method!__0 __tmp74391 'begin-read! mutex-lock!)) + (let ((__tmp74392 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp74388 'end-read! mutex-unlock!)) - (let ((__tmp74389 (macro-type-mutex))) + (bind-method!__0 __tmp74392 'end-read! mutex-unlock!)) + (let ((__tmp74393 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp74389 'begin-write! mutex-lock!)) - (let ((__tmp74390 (macro-type-mutex))) + (bind-method!__0 __tmp74393 'begin-write! mutex-lock!)) + (let ((__tmp74394 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp74390 'end-write! mutex-unlock!)) + (bind-method!__0 __tmp74394 'end-write! mutex-unlock!)) (define _checked-hash-table::ref71323_ (lambda (_self72924_ _key72925_ _default72926_) (let ((_h72928_ @@ -1628,7 +1636,7 @@ '2 checked-hash-table::t '#f)))) - ((lambda (_g74391_) + ((lambda (_g74395_) (if (let () (declare (not safe)) (procedure? _proc72387_)) '#!void (let () @@ -1741,7 +1749,7 @@ _test71870_ _seed71871_)))) (define make-hash-table__% - (lambda (_g74392_ + (lambda (_g74396_ _size-hint7171171721_ _seed7171271723_ _test7171371725_ @@ -1806,8 +1814,8 @@ (_wrap-lock71755_ (lambda (_ht71849_) (if _lock71746_ - (let ((__tmp74393 - (let ((__tmp74394 + (let ((__tmp74397 + (let ((__tmp74398 (let () (declare (not safe)) (cast HashTableLock::interface @@ -1816,15 +1824,15 @@ (##structure locked-hash-table::t _ht71849_ - __tmp74394)))) + __tmp74398)))) (declare (not safe)) - (cast HashTable::interface __tmp74393)) + (cast HashTable::interface __tmp74397)) _ht71849_))) (_wrap-checked71756_ (lambda (_ht71846_ _implicit71847_) (if _check71748_ - (let ((__tmp74395 - (let ((__tmp74396 + (let ((__tmp74399 + (let ((__tmp74400 (if (let () (declare (not safe)) (procedure? _check71748_)) @@ -1834,9 +1842,9 @@ (##structure checked-hash-table::t _ht71846_ - __tmp74396)))) + __tmp74400)))) (declare (not safe)) - (cast HashTable::interface __tmp74395)) + (cast HashTable::interface __tmp74399)) _ht71846_))) (_make71757_ (lambda (_kons71834_ _key?71835_ _hash71836_ _test71837_) @@ -1847,7 +1855,7 @@ (_table71841_ (make-vector _size71839_ (macro-unused-obj))) (_ht71843_ - (let ((__tmp74397 + (let ((__tmp74401 (_kons71834_ _table71841_ '0 @@ -1858,30 +1866,30 @@ (declare (not safe)) (_table-seed71754_))))) (declare (not safe)) - (cast HashTable::interface __tmp74397)))) - (let ((__tmp74398 + (cast HashTable::interface __tmp74401)))) + (let ((__tmp74402 (let () (declare (not safe)) (_wrap-lock71755_ _ht71843_)))) (declare (not safe)) - (_wrap-checked71756_ __tmp74398 _key?71835_))))) + (_wrap-checked71756_ __tmp74402 _key?71835_))))) (_make-gc-hash-table71758_ (lambda () (let* ((_ht71832_ - (let ((__tmp74399 + (let ((__tmp74403 (let () (declare (not safe)) (make-gc-table__1 _size-hint71738_ gc-hash-table::t)))) (declare (not safe)) - (cast HashTable::interface __tmp74399))) - (__tmp74400 + (cast HashTable::interface __tmp74403))) + (__tmp74404 (let () (declare (not safe)) (_wrap-lock71755_ _ht71832_)))) (declare (not safe)) - (_wrap-checked71756_ __tmp74400 true)))) + (_wrap-checked71756_ __tmp74404 true)))) (_make-gambit-table71759_ (lambda () (let* ((_size71816_ @@ -1904,7 +1912,7 @@ eqv?-hash equal?-hash))))) (_ht71828_ - (let ((__tmp74401 + (let ((__tmp74405 (make-table 'size: _size71816_ @@ -1917,13 +1925,13 @@ 'weak-values: _weak-values71752_))) (declare (not safe)) - (cast HashTable::interface __tmp74401)))) - (let ((__tmp74402 + (cast HashTable::interface __tmp74405)))) + (let ((__tmp74406 (let () (declare (not safe)) (_wrap-lock71755_ _ht71828_)))) (declare (not safe)) - (_wrap-checked71756_ __tmp74402 true)))))) + (_wrap-checked71756_ __tmp74406 true)))))) (if (or _weak-keys71750_ _weak-values71752_) (let () (declare (not safe)) (_make-gambit-table71759_)) (if (and (or (let () @@ -2057,25 +2065,25 @@ true equal?-hash equal?)) - (if (let ((__tmp74404 + (if (let ((__tmp74408 (let () (declare (not safe)) (procedure? _test71742_)))) (declare (not safe)) - (not __tmp74404)) + (not __tmp74408)) (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" _test71742_)) - (if (let ((__tmp74403 + (if (let ((__tmp74407 (let () (declare (not safe)) (procedure? _hash71744_)))) (declare (not safe)) - (not __tmp74403)) + (not __tmp74407)) (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" @@ -2187,55 +2195,55 @@ (apply make-hash-table 'test: eq? 'hash: immediate-hash _args71699_))) (define list->hash-table (lambda (_lst71696_ . _args71697_) - (let ((__tmp74405 + (let ((__tmp74409 (apply make-hash-table 'size: (length _lst71696_) _args71697_))) (declare (not safe)) - (list->hash-table! _lst71696_ __tmp74405)))) + (list->hash-table! _lst71696_ __tmp74409)))) (define list->hash-table-eq (lambda (_lst71693_ . _args71694_) - (let ((__tmp74406 + (let ((__tmp74410 (apply make-hash-table-eq 'size: (length _lst71693_) _args71694_))) (declare (not safe)) - (list->hash-table! _lst71693_ __tmp74406)))) + (list->hash-table! _lst71693_ __tmp74410)))) (define list->hash-table-eqv (lambda (_lst71690_ . _args71691_) - (let ((__tmp74407 + (let ((__tmp74411 (apply make-hash-table-eqv 'size: (length _lst71690_) _args71691_))) (declare (not safe)) - (list->hash-table! _lst71690_ __tmp74407)))) + (list->hash-table! _lst71690_ __tmp74411)))) (define list->hash-table-symbolic (lambda (_lst71687_ . _args71688_) - (let ((__tmp74408 + (let ((__tmp74412 (apply make-hash-table-symbolic 'size: (length _lst71687_) _args71688_))) (declare (not safe)) - (list->hash-table! _lst71687_ __tmp74408)))) + (list->hash-table! _lst71687_ __tmp74412)))) (define list->hash-table-string (lambda (_lst71684_ . _args71685_) - (let ((__tmp74409 + (let ((__tmp74413 (apply make-hash-table-string 'size: (length _lst71684_) _args71685_))) (declare (not safe)) - (list->hash-table! _lst71684_ __tmp74409)))) + (list->hash-table! _lst71684_ __tmp74413)))) (define list->hash-table-immediate (lambda (_lst71681_ . _args71682_) - (let ((__tmp74410 + (let ((__tmp74414 (apply make-hash-table-immediate 'size: (length _lst71681_) _args71682_))) (declare (not safe)) - (list->hash-table! _lst71681_ __tmp74410)))) + (list->hash-table! _lst71681_ __tmp74414)))) (define list->hash-table! (lambda (_lst71648_ _h71649_) (for-each @@ -2264,55 +2272,55 @@ _h71649_)) (define plist->hash-table (lambda (_lst71645_ . _args71646_) - (let ((__tmp74411 + (let ((__tmp74415 (apply make-hash-table 'size: (length _lst71645_) _args71646_))) (declare (not safe)) - (plist->hash-table! _lst71645_ __tmp74411)))) + (plist->hash-table! _lst71645_ __tmp74415)))) (define plist->hash-table-eq (lambda (_lst71642_ . _args71643_) - (let ((__tmp74412 + (let ((__tmp74416 (apply make-hash-table-eq 'size: (length _lst71642_) _args71643_))) (declare (not safe)) - (plist->hash-table! _lst71642_ __tmp74412)))) + (plist->hash-table! _lst71642_ __tmp74416)))) (define plist->hash-table-eqv (lambda (_lst71639_ . _args71640_) - (let ((__tmp74413 + (let ((__tmp74417 (apply make-hash-table-eqv 'size: (length _lst71639_) _args71640_))) (declare (not safe)) - (plist->hash-table! _lst71639_ __tmp74413)))) + (plist->hash-table! _lst71639_ __tmp74417)))) (define plist->hash-table-symbolic (lambda (_lst71636_ . _args71637_) - (let ((__tmp74414 + (let ((__tmp74418 (apply make-hash-table-symbolic 'size: (length _lst71636_) _args71637_))) (declare (not safe)) - (plist->hash-table! _lst71636_ __tmp74414)))) + (plist->hash-table! _lst71636_ __tmp74418)))) (define plist->hash-table-string (lambda (_lst71633_ . _args71634_) - (let ((__tmp74415 + (let ((__tmp74419 (apply make-hash-table-string 'size: (length _lst71633_) _args71634_))) (declare (not safe)) - (plist->hash-table! _lst71633_ __tmp74415)))) + (plist->hash-table! _lst71633_ __tmp74419)))) (define plist->hash-table-immediate (lambda (_lst71630_ . _args71631_) - (let ((__tmp74416 + (let ((__tmp74420 (apply make-hash-table-immediate 'size: (length _lst71630_) _args71631_))) (declare (not safe)) - (plist->hash-table! _lst71630_ __tmp74416)))) + (plist->hash-table! _lst71630_ __tmp74420)))) (define plist->hash-table! (lambda (_lst71570_ _h71571_) (let _loop71573_ ((_rest71575_ _lst71570_)) @@ -2374,12 +2382,12 @@ (lambda (_h71566_) (let ((_h71568_ (if (and (let () (declare (not safe)) (##structure? _h71566_)) - (let ((__tmp74417 + (let ((__tmp74421 (let () (declare (not safe)) (##structure-type _h71566_)))) (declare (not safe)) - (eq? __tmp74417 HashTable::t))) + (eq? __tmp74421 HashTable::t))) _h71566_ (let () (declare (not safe)) @@ -2393,12 +2401,12 @@ (lambda (_h71546_ _key71547_ _default71548_) (let ((_h71550_ (if (and (let () (declare (not safe)) (##structure? _h71546_)) - (let ((__tmp74418 + (let ((__tmp74422 (let () (declare (not safe)) (##structure-type _h71546_)))) (declare (not safe)) - (eq? __tmp74418 HashTable::t))) + (eq? __tmp74422 HashTable::t))) _h71546_ (let () (declare (not safe)) @@ -2411,33 +2419,33 @@ (declare (not safe)) (hash-ref__% _h71555_ _key71556_ _default71558_)))) (define hash-ref - (lambda _g74420_ - (let ((_g74419_ (let () (declare (not safe)) (##length _g74420_)))) - (cond ((let () (declare (not safe)) (##fx= _g74419_ 2)) + (lambda _g74424_ + (let ((_g74423_ (let () (declare (not safe)) (##length _g74424_)))) + (cond ((let () (declare (not safe)) (##fx= _g74423_ 2)) (apply (lambda (_h71555_ _key71556_) (let () (declare (not safe)) (hash-ref__0 _h71555_ _key71556_))) - _g74420_)) - ((let () (declare (not safe)) (##fx= _g74419_ 3)) + _g74424_)) + ((let () (declare (not safe)) (##fx= _g74423_ 3)) (apply (lambda (_h71560_ _key71561_ _default71562_) (let () (declare (not safe)) (hash-ref__% _h71560_ _key71561_ _default71562_))) - _g74420_)) + _g74424_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g74420_)))))) + _g74424_)))))) (define &hash-ref__% (lambda (_h71527_ _key71528_ _default71529_) (let ((_result71531_ (let () (declare (not safe)) (&HashTable-ref _h71527_ _key71528_ _default71529_)))) - (if (let ((__tmp74421 (macro-absent-obj))) + (if (let ((__tmp74425 (macro-absent-obj))) (declare (not safe)) - (eq? _result71531_ __tmp74421)) + (eq? _result71531_ __tmp74425)) (let () (declare (not safe)) (raise-unbound-key-error @@ -2454,34 +2462,34 @@ (declare (not safe)) (&hash-ref__% _h71536_ _key71537_ _default71539_)))) (define &hash-ref - (lambda _g74423_ - (let ((_g74422_ (let () (declare (not safe)) (##length _g74423_)))) - (cond ((let () (declare (not safe)) (##fx= _g74422_ 2)) + (lambda _g74427_ + (let ((_g74426_ (let () (declare (not safe)) (##length _g74427_)))) + (cond ((let () (declare (not safe)) (##fx= _g74426_ 2)) (apply (lambda (_h71536_ _key71537_) (let () (declare (not safe)) (&hash-ref__0 _h71536_ _key71537_))) - _g74423_)) - ((let () (declare (not safe)) (##fx= _g74422_ 3)) + _g74427_)) + ((let () (declare (not safe)) (##fx= _g74426_ 3)) (apply (lambda (_h71541_ _key71542_ _default71543_) (let () (declare (not safe)) (&hash-ref__% _h71541_ _key71542_ _default71543_))) - _g74423_)) + _g74427_)) (else (##raise-wrong-number-of-arguments-exception &hash-ref - _g74423_)))))) + _g74427_)))))) (define hash-get (lambda (_h71521_ _key71522_) (let ((_h71524_ (if (and (let () (declare (not safe)) (##structure? _h71521_)) - (let ((__tmp74424 + (let ((__tmp74428 (let () (declare (not safe)) (##structure-type _h71521_)))) (declare (not safe)) - (eq? __tmp74424 HashTable::t))) + (eq? __tmp74428 HashTable::t))) _h71521_ (let () (declare (not safe)) @@ -2497,12 +2505,12 @@ (lambda (_h71512_ _key71513_ _value71514_) (let ((_h71516_ (if (and (let () (declare (not safe)) (##structure? _h71512_)) - (let ((__tmp74425 + (let ((__tmp74429 (let () (declare (not safe)) (##structure-type _h71512_)))) (declare (not safe)) - (eq? __tmp74425 HashTable::t))) + (eq? __tmp74429 HashTable::t))) _h71512_ (let () (declare (not safe)) @@ -2518,12 +2526,12 @@ (lambda (_h71487_ _key71488_ _update71489_ _default71490_) (let ((_h71492_ (if (and (let () (declare (not safe)) (##structure? _h71487_)) - (let ((__tmp74426 + (let ((__tmp74430 (let () (declare (not safe)) (##structure-type _h71487_)))) (declare (not safe)) - (eq? __tmp74426 HashTable::t))) + (eq? __tmp74430 HashTable::t))) _h71487_ (let () (declare (not safe)) @@ -2540,9 +2548,9 @@ (declare (not safe)) (hash-update!__% _h71497_ _key71498_ _update71499_ _default71501_)))) (define hash-update! - (lambda _g74428_ - (let ((_g74427_ (let () (declare (not safe)) (##length _g74428_)))) - (cond ((let () (declare (not safe)) (##fx= _g74427_ 3)) + (lambda _g74432_ + (let ((_g74431_ (let () (declare (not safe)) (##length _g74432_)))) + (cond ((let () (declare (not safe)) (##fx= _g74431_ 3)) (apply (lambda (_h71497_ _key71498_ _update71499_) (let () (declare (not safe)) @@ -2550,8 +2558,8 @@ _h71497_ _key71498_ _update71499_))) - _g74428_)) - ((let () (declare (not safe)) (##fx= _g74427_ 4)) + _g74432_)) + ((let () (declare (not safe)) (##fx= _g74431_ 4)) (apply (lambda (_h71503_ _key71504_ _update71505_ @@ -2563,11 +2571,11 @@ _key71504_ _update71505_ _default71506_))) - _g74428_)) + _g74432_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g74428_)))))) + _g74432_)))))) (define &hash-update!__% (lambda (_h71467_ _key71468_ _update71469_ _default71470_) (let () @@ -2587,9 +2595,9 @@ _update71477_ _default71479_)))) (define &hash-update! - (lambda _g74430_ - (let ((_g74429_ (let () (declare (not safe)) (##length _g74430_)))) - (cond ((let () (declare (not safe)) (##fx= _g74429_ 3)) + (lambda _g74434_ + (let ((_g74433_ (let () (declare (not safe)) (##length _g74434_)))) + (cond ((let () (declare (not safe)) (##fx= _g74433_ 3)) (apply (lambda (_h71475_ _key71476_ _update71477_) (let () (declare (not safe)) @@ -2597,8 +2605,8 @@ _h71475_ _key71476_ _update71477_))) - _g74430_)) - ((let () (declare (not safe)) (##fx= _g74429_ 4)) + _g74434_)) + ((let () (declare (not safe)) (##fx= _g74433_ 4)) (apply (lambda (_h71481_ _key71482_ _update71483_ @@ -2610,21 +2618,21 @@ _key71482_ _update71483_ _default71484_))) - _g74430_)) + _g74434_)) (else (##raise-wrong-number-of-arguments-exception &hash-update! - _g74430_)))))) + _g74434_)))))) (define hash-remove! (lambda (_h71461_ _key71462_) (let ((_h71464_ (if (and (let () (declare (not safe)) (##structure? _h71461_)) - (let ((__tmp74431 + (let ((__tmp74435 (let () (declare (not safe)) (##structure-type _h71461_)))) (declare (not safe)) - (eq? __tmp74431 HashTable::t))) + (eq? __tmp74435 HashTable::t))) _h71461_ (let () (declare (not safe)) @@ -2640,12 +2648,12 @@ (lambda (_h71453_ _k71454_) (let ((_h71456_ (if (and (let () (declare (not safe)) (##structure? _h71453_)) - (let ((__tmp74432 + (let ((__tmp74436 (let () (declare (not safe)) (##structure-type _h71453_)))) (declare (not safe)) - (eq? __tmp74432 HashTable::t))) + (eq? __tmp74436 HashTable::t))) _h71453_ (let () (declare (not safe)) @@ -2654,25 +2662,25 @@ (&hash-key? _h71456_ _k71454_)))) (define &hash-key? (lambda (_h71450_ _k71451_) - (let ((__tmp74433 - (let ((__tmp74434 + (let ((__tmp74437 + (let ((__tmp74438 (let () (declare (not safe)) (&HashTable-ref _h71450_ _k71451_ absent-value)))) (declare (not safe)) - (eq? __tmp74434 absent-value)))) + (eq? __tmp74438 absent-value)))) (declare (not safe)) - (not __tmp74433)))) + (not __tmp74437)))) (define hash->list (lambda (_h71446_) (let ((_h71448_ (if (and (let () (declare (not safe)) (##structure? _h71446_)) - (let ((__tmp74435 + (let ((__tmp74439 (let () (declare (not safe)) (##structure-type _h71446_)))) (declare (not safe)) - (eq? __tmp74435 HashTable::t))) + (eq? __tmp74439 HashTable::t))) _h71446_ (let () (declare (not safe)) @@ -2682,28 +2690,28 @@ (define &hash->list (lambda (_h71439_) (let ((_lst71441_ '())) - (let ((__tmp74436 + (let ((__tmp74440 (lambda (_k71443_ _v71444_) (set! _lst71441_ - (let ((__tmp74437 + (let ((__tmp74441 (let () (declare (not safe)) (cons _k71443_ _v71444_)))) (declare (not safe)) - (cons __tmp74437 _lst71441_)))))) + (cons __tmp74441 _lst71441_)))))) (declare (not safe)) - (&HashTable-for-each _h71439_ __tmp74436)) + (&HashTable-for-each _h71439_ __tmp74440)) _lst71441_))) (define hash->plist (lambda (_h71435_) (let ((_h71437_ (if (and (let () (declare (not safe)) (##structure? _h71435_)) - (let ((__tmp74438 + (let ((__tmp74442 (let () (declare (not safe)) (##structure-type _h71435_)))) (declare (not safe)) - (eq? __tmp74438 HashTable::t))) + (eq? __tmp74442 HashTable::t))) _h71435_ (let () (declare (not safe)) @@ -2713,17 +2721,17 @@ (define &hash->plist (lambda (_h71428_) (let ((_lst71430_ '())) - (let ((__tmp74439 + (let ((__tmp74443 (lambda (_k71432_ _v71433_) (set! _lst71430_ - (let ((__tmp74440 + (let ((__tmp74444 (let () (declare (not safe)) (cons _v71433_ _lst71430_)))) (declare (not safe)) - (cons _k71432_ __tmp74440)))))) + (cons _k71432_ __tmp74444)))))) (declare (not safe)) - (&HashTable-for-each _h71428_ __tmp74439)) + (&HashTable-for-each _h71428_ __tmp74443)) _lst71430_))) (define hash-for-each (lambda (_proc71425_ _h71426_) @@ -2733,36 +2741,36 @@ (define hash-map (lambda (_proc71417_ _h71418_) (let ((_result71420_ '())) - (let ((__tmp74441 + (let ((__tmp74445 (lambda (_k71422_ _v71423_) (set! _result71420_ - (let ((__tmp74442 (_proc71417_ _k71422_ _v71423_))) + (let ((__tmp74446 (_proc71417_ _k71422_ _v71423_))) (declare (not safe)) - (cons __tmp74442 _result71420_)))))) + (cons __tmp74446 _result71420_)))))) (declare (not safe)) - (HashTable-for-each _h71418_ __tmp74441)) + (HashTable-for-each _h71418_ __tmp74445)) _result71420_))) (define hash-fold (lambda (_proc71408_ _iv71409_ _h71410_) (let ((_result71412_ _iv71409_)) - (let ((__tmp74443 + (let ((__tmp74447 (lambda (_k71414_ _v71415_) (set! _result71412_ (_proc71408_ _k71414_ _v71415_ _result71412_))))) (declare (not safe)) - (HashTable-for-each _h71410_ __tmp74443)) + (HashTable-for-each _h71410_ __tmp74447)) _result71412_))) (define hash-find__% (lambda (_proc71384_ _h71385_ _default-value71386_) (call/cc (lambda (_return71388_) - (let ((__tmp74444 + (let ((__tmp74448 (lambda (_k71390_ _v71391_) (let ((_$e71393_ (_proc71384_ _k71390_ _v71391_))) (if _$e71393_ (_return71388_ _$e71393_) '#!void))))) (declare (not safe)) - (HashTable-for-each _h71385_ __tmp74444)) + (HashTable-for-each _h71385_ __tmp74448)) _default-value71386_)))) (define hash-find__0 (lambda (_proc71399_ _h71400_) @@ -2770,15 +2778,15 @@ (declare (not safe)) (hash-find__% _proc71399_ _h71400_ _default-value71402_)))) (define hash-find - (lambda _g74446_ - (let ((_g74445_ (let () (declare (not safe)) (##length _g74446_)))) - (cond ((let () (declare (not safe)) (##fx= _g74445_ 2)) + (lambda _g74450_ + (let ((_g74449_ (let () (declare (not safe)) (##length _g74450_)))) + (cond ((let () (declare (not safe)) (##fx= _g74449_ 2)) (apply (lambda (_proc71399_ _h71400_) (let () (declare (not safe)) (hash-find__0 _proc71399_ _h71400_))) - _g74446_)) - ((let () (declare (not safe)) (##fx= _g74445_ 3)) + _g74450_)) + ((let () (declare (not safe)) (##fx= _g74449_ 3)) (apply (lambda (_proc71404_ _h71405_ _default-value71406_) (let () (declare (not safe)) @@ -2786,21 +2794,21 @@ _proc71404_ _h71405_ _default-value71406_))) - _g74446_)) + _g74450_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g74446_)))))) + _g74450_)))))) (define hash-keys (lambda (_h71379_) (let ((_h71381_ (if (and (let () (declare (not safe)) (##structure? _h71379_)) - (let ((__tmp74447 + (let ((__tmp74451 (let () (declare (not safe)) (##structure-type _h71379_)))) (declare (not safe)) - (eq? __tmp74447 HashTable::t))) + (eq? __tmp74451 HashTable::t))) _h71379_ (let () (declare (not safe)) @@ -2810,25 +2818,25 @@ (define &hash-keys (lambda (_h71372_) (let ((_result71374_ '())) - (let ((__tmp74448 + (let ((__tmp74452 (lambda (_k71376_ _v71377_) (set! _result71374_ (let () (declare (not safe)) (cons _k71376_ _result71374_)))))) (declare (not safe)) - (&HashTable-for-each _h71372_ __tmp74448)) + (&HashTable-for-each _h71372_ __tmp74452)) _result71374_))) (define hash-values (lambda (_h71368_) (let ((_h71370_ (if (and (let () (declare (not safe)) (##structure? _h71368_)) - (let ((__tmp74449 + (let ((__tmp74453 (let () (declare (not safe)) (##structure-type _h71368_)))) (declare (not safe)) - (eq? __tmp74449 HashTable::t))) + (eq? __tmp74453 HashTable::t))) _h71368_ (let () (declare (not safe)) @@ -2838,25 +2846,25 @@ (define &hash-values (lambda (_h71361_) (let ((_result71363_ '())) - (let ((__tmp74450 + (let ((__tmp74454 (lambda (_k71365_ _v71366_) (set! _result71363_ (let () (declare (not safe)) (cons _v71366_ _result71363_)))))) (declare (not safe)) - (&HashTable-for-each _h71361_ __tmp74450)) + (&HashTable-for-each _h71361_ __tmp74454)) _result71363_))) (define hash-copy (lambda (_h71357_) (let ((_h71359_ (if (and (let () (declare (not safe)) (##structure? _h71357_)) - (let ((__tmp74451 + (let ((__tmp74455 (let () (declare (not safe)) (##structure-type _h71357_)))) (declare (not safe)) - (eq? __tmp74451 HashTable::t))) + (eq? __tmp74455 HashTable::t))) _h71357_ (let () (declare (not safe)) @@ -2879,7 +2887,7 @@ (cast HashTable::interface _h71340_)))) (for-each (lambda (_hr71345_) - (let ((__tmp74452 + (let ((__tmp74456 (lambda (_k71347_ _v71348_) (if (let () (declare (not safe)) @@ -2889,6 +2897,6 @@ (declare (not safe)) (&HashTable-set! _h71343_ _k71347_ _v71348_)))))) (declare (not safe)) - (hash-for-each __tmp74452 _hr71345_))) + (hash-for-each __tmp74456 _hr71345_))) _rest71341_) _h71343_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index 7ed506ba0..e7112d9f6 100644 --- a/src/bootstrap/gerbil/runtime/hash~1.scm +++ b/src/bootstrap/gerbil/runtime/hash~1.scm @@ -1,293 +1,293 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g74455_| + (define |[1]#_g74459_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g74457_| + (define |[1]#_g74461_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g74459_| + (define |[1]#_g74463_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g74461_| + (define |[1]#_g74465_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g74468_| + (define |[1]#_g74472_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g74471_| + (define |[1]#_g74475_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g74474_| + (define |[1]#_g74478_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g74477_| + (define |[1]#_g74481_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g74484_| + (define |[1]#_g74488_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74487_| + (define |[1]#_g74491_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74490_| + (define |[1]#_g74494_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74493_| + (define |[1]#_g74497_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74500_| + (define |[1]#_g74504_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g74503_| + (define |[1]#_g74507_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g74506_| + (define |[1]#_g74510_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g74509_| + (define |[1]#_g74513_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g74516_| + (define |[1]#_g74520_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74519_| + (define |[1]#_g74523_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74522_| + (define |[1]#_g74526_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74525_| + (define |[1]#_g74529_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74527_| + (define |[1]#_g74531_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g74529_| + (define |[1]#_g74533_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g74531_| + (define |[1]#_g74535_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g74536_| + (define |[1]#_g74540_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g74539_| + (define |[1]#_g74543_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g74544_| + (define |[1]#_g74548_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74547_| + (define |[1]#_g74551_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74552_| + (define |[1]#_g74556_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g74555_| + (define |[1]#_g74559_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g74560_| + (define |[1]#_g74564_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74563_| + (define |[1]#_g74567_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74565_| + (define |[1]#_g74569_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g74567_| + (define |[1]#_g74571_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g74569_| + (define |[1]#_g74573_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g74574_| + (define |[1]#_g74578_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g74577_| + (define |[1]#_g74581_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g74582_| + (define |[1]#_g74586_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74585_| + (define |[1]#_g74589_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74590_| + (define |[1]#_g74594_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g74593_| + (define |[1]#_g74597_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g74598_| + (define |[1]#_g74602_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74601_| + (define |[1]#_g74605_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! @@ -341,14 +341,14 @@ '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74453 - (let ((__tmp74454 |[1]#_g74455_|)) + (let ((__tmp74457 + (let ((__tmp74458 |[1]#_g74459_|)) (declare (not safe)) - (cons __tmp74454 '())))) + (cons __tmp74458 '())))) (declare (not safe)) (##unchecked-structure-set! __obj74319 - __tmp74453 + __tmp74457 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) @@ -384,167 +384,167 @@ '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74456 |[1]#_g74457_|)) + (let ((__tmp74460 |[1]#_g74461_|)) (declare (not safe)) (##unchecked-structure-set! __obj74319 - __tmp74456 + __tmp74460 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74458 |[1]#_g74459_|)) + (let ((__tmp74462 |[1]#_g74463_|)) (declare (not safe)) (##unchecked-structure-set! __obj74319 - __tmp74458 + __tmp74462 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74460 |[1]#_g74461_|)) + (let ((__tmp74464 |[1]#_g74465_|)) (declare (not safe)) (##unchecked-structure-set! __obj74319 - __tmp74460 + __tmp74464 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74462 - (let ((__tmp74475 - (let ((__tmp74476 |[1]#_g74477_|)) + (let ((__tmp74466 + (let ((__tmp74479 + (let ((__tmp74480 |[1]#_g74481_|)) (declare (not safe)) - (cons 'message __tmp74476))) - (__tmp74463 - (let ((__tmp74472 - (let ((__tmp74473 |[1]#_g74474_|)) + (cons 'message __tmp74480))) + (__tmp74467 + (let ((__tmp74476 + (let ((__tmp74477 |[1]#_g74478_|)) (declare (not safe)) - (cons 'irritants __tmp74473))) - (__tmp74464 - (let ((__tmp74469 - (let ((__tmp74470 |[1]#_g74471_|)) + (cons 'irritants __tmp74477))) + (__tmp74468 + (let ((__tmp74473 + (let ((__tmp74474 |[1]#_g74475_|)) (declare (not safe)) - (cons 'where __tmp74470))) - (__tmp74465 - (let ((__tmp74466 - (let ((__tmp74467 |[1]#_g74468_|)) + (cons 'where __tmp74474))) + (__tmp74469 + (let ((__tmp74470 + (let ((__tmp74471 |[1]#_g74472_|)) (declare (not safe)) - (cons 'continuation __tmp74467)))) + (cons 'continuation __tmp74471)))) (declare (not safe)) - (cons __tmp74466 '())))) + (cons __tmp74470 '())))) (declare (not safe)) - (cons __tmp74469 __tmp74465)))) + (cons __tmp74473 __tmp74469)))) (declare (not safe)) - (cons __tmp74472 __tmp74464)))) + (cons __tmp74476 __tmp74468)))) (declare (not safe)) - (cons __tmp74475 __tmp74463)))) + (cons __tmp74479 __tmp74467)))) (declare (not safe)) (##unchecked-structure-set! __obj74319 - __tmp74462 + __tmp74466 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74478 - (let ((__tmp74491 - (let ((__tmp74492 |[1]#_g74493_|)) + (let ((__tmp74482 + (let ((__tmp74495 + (let ((__tmp74496 |[1]#_g74497_|)) (declare (not safe)) - (cons 'message __tmp74492))) - (__tmp74479 - (let ((__tmp74488 - (let ((__tmp74489 |[1]#_g74490_|)) + (cons 'message __tmp74496))) + (__tmp74483 + (let ((__tmp74492 + (let ((__tmp74493 |[1]#_g74494_|)) (declare (not safe)) - (cons 'irritants __tmp74489))) - (__tmp74480 - (let ((__tmp74485 - (let ((__tmp74486 |[1]#_g74487_|)) + (cons 'irritants __tmp74493))) + (__tmp74484 + (let ((__tmp74489 + (let ((__tmp74490 |[1]#_g74491_|)) (declare (not safe)) - (cons 'where __tmp74486))) - (__tmp74481 - (let ((__tmp74482 - (let ((__tmp74483 |[1]#_g74484_|)) + (cons 'where __tmp74490))) + (__tmp74485 + (let ((__tmp74486 + (let ((__tmp74487 |[1]#_g74488_|)) (declare (not safe)) - (cons 'continuation __tmp74483)))) + (cons 'continuation __tmp74487)))) (declare (not safe)) - (cons __tmp74482 '())))) + (cons __tmp74486 '())))) (declare (not safe)) - (cons __tmp74485 __tmp74481)))) + (cons __tmp74489 __tmp74485)))) (declare (not safe)) - (cons __tmp74488 __tmp74480)))) + (cons __tmp74492 __tmp74484)))) (declare (not safe)) - (cons __tmp74491 __tmp74479)))) + (cons __tmp74495 __tmp74483)))) (declare (not safe)) (##unchecked-structure-set! __obj74319 - __tmp74478 + __tmp74482 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74494 - (let ((__tmp74507 - (let ((__tmp74508 |[1]#_g74509_|)) + (let ((__tmp74498 + (let ((__tmp74511 + (let ((__tmp74512 |[1]#_g74513_|)) (declare (not safe)) - (cons 'message __tmp74508))) - (__tmp74495 - (let ((__tmp74504 - (let ((__tmp74505 |[1]#_g74506_|)) + (cons 'message __tmp74512))) + (__tmp74499 + (let ((__tmp74508 + (let ((__tmp74509 |[1]#_g74510_|)) (declare (not safe)) - (cons 'irritants __tmp74505))) - (__tmp74496 - (let ((__tmp74501 - (let ((__tmp74502 |[1]#_g74503_|)) + (cons 'irritants __tmp74509))) + (__tmp74500 + (let ((__tmp74505 + (let ((__tmp74506 |[1]#_g74507_|)) (declare (not safe)) - (cons 'where __tmp74502))) - (__tmp74497 - (let ((__tmp74498 - (let ((__tmp74499 |[1]#_g74500_|)) + (cons 'where __tmp74506))) + (__tmp74501 + (let ((__tmp74502 + (let ((__tmp74503 |[1]#_g74504_|)) (declare (not safe)) - (cons 'continuation __tmp74499)))) + (cons 'continuation __tmp74503)))) (declare (not safe)) - (cons __tmp74498 '())))) + (cons __tmp74502 '())))) (declare (not safe)) - (cons __tmp74501 __tmp74497)))) + (cons __tmp74505 __tmp74501)))) (declare (not safe)) - (cons __tmp74504 __tmp74496)))) + (cons __tmp74508 __tmp74500)))) (declare (not safe)) - (cons __tmp74507 __tmp74495)))) + (cons __tmp74511 __tmp74499)))) (declare (not safe)) (##unchecked-structure-set! __obj74319 - __tmp74494 + __tmp74498 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74510 - (let ((__tmp74523 - (let ((__tmp74524 |[1]#_g74525_|)) + (let ((__tmp74514 + (let ((__tmp74527 + (let ((__tmp74528 |[1]#_g74529_|)) (declare (not safe)) - (cons 'message __tmp74524))) - (__tmp74511 - (let ((__tmp74520 - (let ((__tmp74521 |[1]#_g74522_|)) + (cons 'message __tmp74528))) + (__tmp74515 + (let ((__tmp74524 + (let ((__tmp74525 |[1]#_g74526_|)) (declare (not safe)) - (cons 'irritants __tmp74521))) - (__tmp74512 - (let ((__tmp74517 - (let ((__tmp74518 |[1]#_g74519_|)) + (cons 'irritants __tmp74525))) + (__tmp74516 + (let ((__tmp74521 + (let ((__tmp74522 |[1]#_g74523_|)) (declare (not safe)) - (cons 'where __tmp74518))) - (__tmp74513 - (let ((__tmp74514 - (let ((__tmp74515 |[1]#_g74516_|)) + (cons 'where __tmp74522))) + (__tmp74517 + (let ((__tmp74518 + (let ((__tmp74519 |[1]#_g74520_|)) (declare (not safe)) - (cons 'continuation __tmp74515)))) + (cons 'continuation __tmp74519)))) (declare (not safe)) - (cons __tmp74514 '())))) + (cons __tmp74518 '())))) (declare (not safe)) - (cons __tmp74517 __tmp74513)))) + (cons __tmp74521 __tmp74517)))) (declare (not safe)) - (cons __tmp74520 __tmp74512)))) + (cons __tmp74524 __tmp74516)))) (declare (not safe)) - (cons __tmp74523 __tmp74511)))) + (cons __tmp74527 __tmp74515)))) (declare (not safe)) (##unchecked-structure-set! __obj74319 - __tmp74510 + __tmp74514 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) @@ -635,111 +635,111 @@ '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74526 |[1]#_g74527_|)) + (let ((__tmp74530 |[1]#_g74531_|)) (declare (not safe)) (##unchecked-structure-set! __obj74321 - __tmp74526 + __tmp74530 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74528 |[1]#_g74529_|)) + (let ((__tmp74532 |[1]#_g74533_|)) (declare (not safe)) (##unchecked-structure-set! __obj74321 - __tmp74528 + __tmp74532 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74530 |[1]#_g74531_|)) + (let ((__tmp74534 |[1]#_g74535_|)) (declare (not safe)) (##unchecked-structure-set! __obj74321 - __tmp74530 + __tmp74534 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74532 - (let ((__tmp74537 - (let ((__tmp74538 |[1]#_g74539_|)) + (let ((__tmp74536 + (let ((__tmp74541 + (let ((__tmp74542 |[1]#_g74543_|)) (declare (not safe)) - (cons 'table __tmp74538))) - (__tmp74533 - (let ((__tmp74534 - (let ((__tmp74535 |[1]#_g74536_|)) + (cons 'table __tmp74542))) + (__tmp74537 + (let ((__tmp74538 + (let ((__tmp74539 |[1]#_g74540_|)) (declare (not safe)) - (cons 'lock __tmp74535)))) + (cons 'lock __tmp74539)))) (declare (not safe)) - (cons __tmp74534 '())))) + (cons __tmp74538 '())))) (declare (not safe)) - (cons __tmp74537 __tmp74533)))) + (cons __tmp74541 __tmp74537)))) (declare (not safe)) (##unchecked-structure-set! __obj74321 - __tmp74532 + __tmp74536 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74540 - (let ((__tmp74545 - (let ((__tmp74546 |[1]#_g74547_|)) + (let ((__tmp74544 + (let ((__tmp74549 + (let ((__tmp74550 |[1]#_g74551_|)) (declare (not safe)) - (cons 'table __tmp74546))) - (__tmp74541 - (let ((__tmp74542 - (let ((__tmp74543 |[1]#_g74544_|)) + (cons 'table __tmp74550))) + (__tmp74545 + (let ((__tmp74546 + (let ((__tmp74547 |[1]#_g74548_|)) (declare (not safe)) - (cons 'lock __tmp74543)))) + (cons 'lock __tmp74547)))) (declare (not safe)) - (cons __tmp74542 '())))) + (cons __tmp74546 '())))) (declare (not safe)) - (cons __tmp74545 __tmp74541)))) + (cons __tmp74549 __tmp74545)))) (declare (not safe)) (##unchecked-structure-set! __obj74321 - __tmp74540 + __tmp74544 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74548 - (let ((__tmp74553 - (let ((__tmp74554 |[1]#_g74555_|)) + (let ((__tmp74552 + (let ((__tmp74557 + (let ((__tmp74558 |[1]#_g74559_|)) (declare (not safe)) - (cons 'table __tmp74554))) - (__tmp74549 - (let ((__tmp74550 - (let ((__tmp74551 |[1]#_g74552_|)) + (cons 'table __tmp74558))) + (__tmp74553 + (let ((__tmp74554 + (let ((__tmp74555 |[1]#_g74556_|)) (declare (not safe)) - (cons 'lock __tmp74551)))) + (cons 'lock __tmp74555)))) (declare (not safe)) - (cons __tmp74550 '())))) + (cons __tmp74554 '())))) (declare (not safe)) - (cons __tmp74553 __tmp74549)))) + (cons __tmp74557 __tmp74553)))) (declare (not safe)) (##unchecked-structure-set! __obj74321 - __tmp74548 + __tmp74552 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74556 - (let ((__tmp74561 - (let ((__tmp74562 |[1]#_g74563_|)) + (let ((__tmp74560 + (let ((__tmp74565 + (let ((__tmp74566 |[1]#_g74567_|)) (declare (not safe)) - (cons 'table __tmp74562))) - (__tmp74557 - (let ((__tmp74558 - (let ((__tmp74559 |[1]#_g74560_|)) + (cons 'table __tmp74566))) + (__tmp74561 + (let ((__tmp74562 + (let ((__tmp74563 |[1]#_g74564_|)) (declare (not safe)) - (cons 'lock __tmp74559)))) + (cons 'lock __tmp74563)))) (declare (not safe)) - (cons __tmp74558 '())))) + (cons __tmp74562 '())))) (declare (not safe)) - (cons __tmp74561 __tmp74557)))) + (cons __tmp74565 __tmp74561)))) (declare (not safe)) (##unchecked-structure-set! __obj74321 - __tmp74556 + __tmp74560 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) @@ -830,111 +830,111 @@ '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74564 |[1]#_g74565_|)) + (let ((__tmp74568 |[1]#_g74569_|)) (declare (not safe)) (##unchecked-structure-set! __obj74322 - __tmp74564 + __tmp74568 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74566 |[1]#_g74567_|)) + (let ((__tmp74570 |[1]#_g74571_|)) (declare (not safe)) (##unchecked-structure-set! __obj74322 - __tmp74566 + __tmp74570 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74568 |[1]#_g74569_|)) + (let ((__tmp74572 |[1]#_g74573_|)) (declare (not safe)) (##unchecked-structure-set! __obj74322 - __tmp74568 + __tmp74572 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74570 - (let ((__tmp74575 - (let ((__tmp74576 |[1]#_g74577_|)) + (let ((__tmp74574 + (let ((__tmp74579 + (let ((__tmp74580 |[1]#_g74581_|)) (declare (not safe)) - (cons 'table __tmp74576))) - (__tmp74571 - (let ((__tmp74572 - (let ((__tmp74573 |[1]#_g74574_|)) + (cons 'table __tmp74580))) + (__tmp74575 + (let ((__tmp74576 + (let ((__tmp74577 |[1]#_g74578_|)) (declare (not safe)) - (cons 'key-check __tmp74573)))) + (cons 'key-check __tmp74577)))) (declare (not safe)) - (cons __tmp74572 '())))) + (cons __tmp74576 '())))) (declare (not safe)) - (cons __tmp74575 __tmp74571)))) + (cons __tmp74579 __tmp74575)))) (declare (not safe)) (##unchecked-structure-set! __obj74322 - __tmp74570 + __tmp74574 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74578 - (let ((__tmp74583 - (let ((__tmp74584 |[1]#_g74585_|)) + (let ((__tmp74582 + (let ((__tmp74587 + (let ((__tmp74588 |[1]#_g74589_|)) (declare (not safe)) - (cons 'table __tmp74584))) - (__tmp74579 - (let ((__tmp74580 - (let ((__tmp74581 |[1]#_g74582_|)) + (cons 'table __tmp74588))) + (__tmp74583 + (let ((__tmp74584 + (let ((__tmp74585 |[1]#_g74586_|)) (declare (not safe)) - (cons 'key-check __tmp74581)))) + (cons 'key-check __tmp74585)))) (declare (not safe)) - (cons __tmp74580 '())))) + (cons __tmp74584 '())))) (declare (not safe)) - (cons __tmp74583 __tmp74579)))) + (cons __tmp74587 __tmp74583)))) (declare (not safe)) (##unchecked-structure-set! __obj74322 - __tmp74578 + __tmp74582 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74586 - (let ((__tmp74591 - (let ((__tmp74592 |[1]#_g74593_|)) + (let ((__tmp74590 + (let ((__tmp74595 + (let ((__tmp74596 |[1]#_g74597_|)) (declare (not safe)) - (cons 'table __tmp74592))) - (__tmp74587 - (let ((__tmp74588 - (let ((__tmp74589 |[1]#_g74590_|)) + (cons 'table __tmp74596))) + (__tmp74591 + (let ((__tmp74592 + (let ((__tmp74593 |[1]#_g74594_|)) (declare (not safe)) - (cons 'key-check __tmp74589)))) + (cons 'key-check __tmp74593)))) (declare (not safe)) - (cons __tmp74588 '())))) + (cons __tmp74592 '())))) (declare (not safe)) - (cons __tmp74591 __tmp74587)))) + (cons __tmp74595 __tmp74591)))) (declare (not safe)) (##unchecked-structure-set! __obj74322 - __tmp74586 + __tmp74590 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74594 - (let ((__tmp74599 - (let ((__tmp74600 |[1]#_g74601_|)) + (let ((__tmp74598 + (let ((__tmp74603 + (let ((__tmp74604 |[1]#_g74605_|)) (declare (not safe)) - (cons 'table __tmp74600))) - (__tmp74595 - (let ((__tmp74596 - (let ((__tmp74597 |[1]#_g74598_|)) + (cons 'table __tmp74604))) + (__tmp74599 + (let ((__tmp74600 + (let ((__tmp74601 |[1]#_g74602_|)) (declare (not safe)) - (cons 'key-check __tmp74597)))) + (cons 'key-check __tmp74601)))) (declare (not safe)) - (cons __tmp74596 '())))) + (cons __tmp74600 '())))) (declare (not safe)) - (cons __tmp74599 __tmp74595)))) + (cons __tmp74603 __tmp74599)))) (declare (not safe)) (##unchecked-structure-set! __obj74322 - __tmp74594 + __tmp74598 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) @@ -995,28 +995,28 @@ (##cdr _e7051670577_)))) (if (gx#stx-pair/null? _tl7051470584_) - (let ((_g74602_ + (let ((_g74606_ (gx#syntax-split-splice _tl7051470584_ '0))) (begin - (let ((_g74603_ + (let ((_g74607_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g74602_) - (##vector-length _g74602_) + (if (##values? _g74606_) + (##vector-length _g74606_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g74603_ 2))) - (error "Context expects 2 values" _g74603_))) + (if (not (let () (declare (not safe)) (##fx= _g74607_ 2))) + (error "Context expects 2 values" _g74607_))) (let ((_target7051770587_ (let () (declare (not safe)) - (##vector-ref _g74602_ 0))) + (##vector-ref _g74606_ 0))) (_tl7051970590_ (let () (declare (not safe)) - (##vector-ref _g74602_ 1)))) + (##vector-ref _g74606_ 1)))) (if (gx#stx-null? _tl7051970590_) (letrec ((_loop7052070593_ (lambda (_hd7051870597_ _arg7052470600_) @@ -1041,37 +1041,37 @@ (reverse _arg7052470600_))) (if (gx#stx-pair/null? _tl7050870564_) - (let ((_g74604_ + (let ((_g74608_ (gx#syntax-split-splice _tl7050870564_ '0))) (begin - (let ((_g74605_ + (let ((_g74609_ (let () (declare (not safe)) (if (##values? - _g74604_) + _g74608_) (##vector-length - _g74604_) + _g74608_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g74605_ 2))) - (error "Context expects 2 values" _g74605_))) + (##fx= _g74609_ 2))) + (error "Context expects 2 values" _g74609_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target7052670617_ (let () (declare (not safe)) (##vector-ref - _g74604_ + _g74608_ 0))) (_tl7052870620_ (let () (declare (not safe)) (##vector-ref - _g74604_ + _g74608_ 1)))) (if (gx#stx-null? _tl7052870620_) @@ -1137,28 +1137,28 @@ (declare (not safe)) (##cdr _e7068970721_)))) (if (gx#stx-pair/null? _hd7068870725_) - (let ((_g74606_ + (let ((_g74610_ (gx#syntax-split-splice _hd7068870725_ '0))) (begin - (let ((_g74607_ + (let ((_g74611_ (let () (declare (not safe)) - (if (##values? _g74606_) - (##vector-length _g74606_) + (if (##values? _g74610_) + (##vector-length _g74610_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g74607_ 2))) + (##fx= _g74611_ 2))) (error "Context expects 2 values" - _g74607_))) + _g74611_))) (let ((_target7069070731_ (let () (declare (not safe)) - (##vector-ref _g74606_ 0))) + (##vector-ref _g74610_ 0))) (_tl7069270734_ (let () (declare (not safe)) - (##vector-ref _g74606_ 1)))) + (##vector-ref _g74610_ 1)))) (if (gx#stx-null? _tl7069270734_) (letrec ((_loop7069370737_ (lambda (_hd7069170741_ @@ -1190,94 +1190,94 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L70763_) (let () - (let ((__tmp74652 (gx#datum->syntax '#f 'begin)) - (__tmp74608 - (let ((__tmp74619 - (let ((__tmp74651 + (let ((__tmp74656 (gx#datum->syntax '#f 'begin)) + (__tmp74612 + (let ((__tmp74623 + (let ((__tmp74655 (gx#datum->syntax '#f 'def)) - (__tmp74620 - (let ((__tmp74647 - (let ((__tmp74648 - (let ((__tmp74649 + (__tmp74624 + (let ((__tmp74651 + (let ((__tmp74652 + (let ((__tmp74653 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74650 + (let ((__tmp74654 (lambda (_g7078870791_ _g7078970794_) (let () (declare (not safe)) (cons _g7078870791_ _g7078970794_))))) (declare (not safe)) - (foldr1 __tmp74650 '() _L70649_)))) + (foldr1 __tmp74654 '() _L70649_)))) (declare (not safe)) - (cons _L70650_ __tmp74649)))) + (cons _L70650_ __tmp74653)))) (declare (not safe)) - (cons _L70651_ __tmp74648))) + (cons _L70651_ __tmp74652))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp74621 - (let ((__tmp74622 - (let ((__tmp74646 + (__tmp74625 + (let ((__tmp74626 + (let ((__tmp74650 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp74623 - (let ((__tmp74629 - (let ((__tmp74630 - (let ((__tmp74631 - (let ((__tmp74645 + (__tmp74627 + (let ((__tmp74633 + (let ((__tmp74634 + (let ((__tmp74635 + (let ((__tmp74649 (gx#datum->syntax '#f 'if)) - (__tmp74632 - (let ((__tmp74640 - (let ((__tmp74644 + (__tmp74636 + (let ((__tmp74644 + (let ((__tmp74648 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'immediate-instance-of?)) - (__tmp74641 - (let ((__tmp74643 + (__tmp74645 + (let ((__tmp74647 (gx#datum->syntax '#f 'HashTable::t)) - (__tmp74642 + (__tmp74646 (let () (declare (not safe)) (cons _L70650_ '())))) (declare (not safe)) - (cons __tmp74643 __tmp74642)))) + (cons __tmp74647 __tmp74646)))) (declare (not safe)) - (cons __tmp74644 __tmp74641))) - (__tmp74633 - (let ((__tmp74634 - (let ((__tmp74635 - (let ((__tmp74639 + (cons __tmp74648 __tmp74645))) + (__tmp74637 + (let ((__tmp74638 + (let ((__tmp74639 + (let ((__tmp74643 (gx#datum->syntax '#f 'cast)) - (__tmp74636 - (let ((__tmp74638 + (__tmp74640 + (let ((__tmp74642 (gx#datum->syntax '#f 'HashTable::interface)) - (__tmp74637 + (__tmp74641 (let () (declare (not safe)) (cons _L70650_ '())))) (declare (not safe)) - (cons __tmp74638 __tmp74637)))) + (cons __tmp74642 __tmp74641)))) (declare (not safe)) - (cons __tmp74639 __tmp74636)))) + (cons __tmp74643 __tmp74640)))) (declare (not safe)) - (cons __tmp74635 '())))) + (cons __tmp74639 '())))) (declare (not safe)) - (cons _L70650_ __tmp74634)))) + (cons _L70650_ __tmp74638)))) (declare (not safe)) - (cons __tmp74640 __tmp74633)))) + (cons __tmp74644 __tmp74637)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74645 - __tmp74632)))) + (cons __tmp74649 + __tmp74636)))) (declare (not safe)) - (cons __tmp74631 '())))) + (cons __tmp74635 '())))) (declare (not safe)) - (cons _L70650_ __tmp74630))) - (__tmp74624 - (let ((__tmp74625 - (let ((__tmp74626 - (let ((__tmp74627 - (let ((__tmp74628 + (cons _L70650_ __tmp74634))) + (__tmp74628 + (let ((__tmp74629 + (let ((__tmp74630 + (let ((__tmp74631 + (let ((__tmp74632 (lambda (_g7078670797_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g7078770800_) @@ -1285,67 +1285,67 @@ (declare (not safe)) (cons _g7078670797_ _g7078770800_))))) (declare (not safe)) - (foldr1 __tmp74628 '() _L70761_)))) + (foldr1 __tmp74632 '() _L70761_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L70650_ __tmp74627)))) + (cons _L70650_ __tmp74631)))) (declare (not safe)) - (cons _L70763_ __tmp74626)))) + (cons _L70763_ __tmp74630)))) (declare (not safe)) - (cons __tmp74625 '())))) + (cons __tmp74629 '())))) (declare (not safe)) - (cons __tmp74629 __tmp74624)))) + (cons __tmp74633 __tmp74628)))) (declare (not safe)) - (cons __tmp74646 __tmp74623)))) + (cons __tmp74650 __tmp74627)))) (declare (not safe)) - (cons __tmp74622 '())))) + (cons __tmp74626 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74647 __tmp74621)))) + (cons __tmp74651 __tmp74625)))) (declare (not safe)) - (cons __tmp74651 __tmp74620))) - (__tmp74609 - (let ((__tmp74610 - (let ((__tmp74618 + (cons __tmp74655 __tmp74624))) + (__tmp74613 + (let ((__tmp74614 + (let ((__tmp74622 (gx#datum->syntax '#f 'def)) - (__tmp74611 - (let ((__tmp74614 - (let ((__tmp74615 + (__tmp74615 + (let ((__tmp74618 + (let ((__tmp74619 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74616 - (let ((__tmp74617 + (let ((__tmp74620 + (let ((__tmp74621 (lambda (_g7078470803_ _g7078570806_) (let () (declare (not safe)) (cons _g7078470803_ _g7078570806_))))) (declare (not safe)) - (foldr1 __tmp74617 '() _L70649_)))) + (foldr1 __tmp74621 '() _L70649_)))) (declare (not safe)) - (cons _L70650_ __tmp74616)))) + (cons _L70650_ __tmp74620)))) (declare (not safe)) - (cons _L70763_ __tmp74615))) - (__tmp74612 - (let ((__tmp74613 + (cons _L70763_ __tmp74619))) + (__tmp74616 + (let ((__tmp74617 (lambda (_g7078270809_ _g7078370812_) (let () (declare (not safe)) (cons _g7078270809_ _g7078370812_))))) (declare (not safe)) - (foldr1 __tmp74613 '() _L70647_)))) + (foldr1 __tmp74617 '() _L70647_)))) (declare (not safe)) - (cons __tmp74614 __tmp74612)))) + (cons __tmp74618 __tmp74616)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74618 __tmp74611)))) + (cons __tmp74622 __tmp74615)))) (declare (not safe)) - (cons __tmp74610 '())))) + (cons __tmp74614 '())))) (declare (not safe)) - (cons __tmp74619 __tmp74609)))) + (cons __tmp74623 __tmp74613)))) (declare (not safe)) - (cons __tmp74652 __tmp74608)))) + (cons __tmp74656 __tmp74612)))) _arg-val7069870757_ _hd7068570715_) (_g7068070704_ _g7068170708_))))))) @@ -1370,7 +1370,7 @@ _arg70819_) _arg70819_ (gx#stx-car _arg70819_))) - (let ((__tmp74653 + (let ((__tmp74657 (lambda (_g7082170824_ _g7082270827_) (let () @@ -1378,7 +1378,7 @@ (cons _g7082170824_ _g7082270827_))))) (declare (not safe)) - (foldr1 __tmp74653 + (foldr1 __tmp74657 '() _L70649_))))))) _body7053470643_ @@ -1443,37 +1443,37 @@ (##cdr _e7085670907_)))) (if (gx#stx-pair/null? _tl7085470914_) - (let ((_g74654_ + (let ((_g74658_ (gx#syntax-split-splice _tl7085470914_ '0))) (begin - (let ((_g74655_ + (let ((_g74659_ (let () (declare (not safe)) (if (##values? - _g74654_) + _g74658_) (##vector-length - _g74654_) + _g74658_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g74655_ 2))) - (error "Context expects 2 values" _g74655_))) + (##fx= _g74659_ 2))) + (error "Context expects 2 values" _g74659_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target7085770917_ (let () (declare (not safe)) (##vector-ref - _g74654_ + _g74658_ 0))) (_tl7085970920_ (let () (declare (not safe)) (##vector-ref - _g74654_ + _g74658_ 1)))) (if (gx#stx-null? _tl7085970920_) @@ -1536,130 +1536,130 @@ (let () (declare (not safe)) (##cdr _e7087470967_)))) (if (gx#stx-null? _tl7087270974_) ((lambda (_L70977_ _L70979_ _L70980_ _L70981_ _L70982_) - (let ((__tmp74713 (gx#datum->syntax '#f 'defmethod)) - (__tmp74656 - (let ((__tmp74708 - (let ((__tmp74712 + (let ((__tmp74717 (gx#datum->syntax '#f 'defmethod)) + (__tmp74660 + (let ((__tmp74712 + (let ((__tmp74716 (gx#datum->syntax '#f '@method)) - (__tmp74709 - (let ((__tmp74710 - (let ((__tmp74711 + (__tmp74713 + (let ((__tmp74714 + (let ((__tmp74715 (gx#datum->syntax '#f 'locked-hash-table))) (declare (not safe)) - (cons __tmp74711 '())))) + (cons __tmp74715 '())))) (declare (not safe)) - (cons _L70982_ __tmp74710)))) + (cons _L70982_ __tmp74714)))) (declare (not safe)) - (cons __tmp74712 __tmp74709))) - (__tmp74657 - (let ((__tmp74658 - (let ((__tmp74707 + (cons __tmp74716 __tmp74713))) + (__tmp74661 + (let ((__tmp74662 + (let ((__tmp74711 (gx#datum->syntax '#f 'lambda)) - (__tmp74659 - (let ((__tmp74703 - (let ((__tmp74706 + (__tmp74663 + (let ((__tmp74707 + (let ((__tmp74710 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'self)) - (__tmp74704 - (let ((__tmp74705 + (__tmp74708 + (let ((__tmp74709 (lambda (_g7101271015_ _g7101371018_) (let () (declare (not safe)) (cons _g7101271015_ _g7101371018_))))) (declare (not safe)) - (foldr1 __tmp74705 '() _L70981_)))) + (foldr1 __tmp74709 '() _L70981_)))) (declare (not safe)) - (cons __tmp74706 __tmp74704))) - (__tmp74660 - (let ((__tmp74661 - (let ((__tmp74702 (gx#datum->syntax '#f 'let)) - (__tmp74662 - (let ((__tmp74686 - (let ((__tmp74695 - (let ((__tmp74701 + (cons __tmp74710 __tmp74708))) + (__tmp74664 + (let ((__tmp74665 + (let ((__tmp74706 (gx#datum->syntax '#f 'let)) + (__tmp74666 + (let ((__tmp74690 + (let ((__tmp74699 + (let ((__tmp74705 (gx#datum->syntax '#f 'h)) - (__tmp74696 - (let ((__tmp74697 - (let ((__tmp74700 + (__tmp74700 + (let ((__tmp74701 + (let ((__tmp74704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&locked-hash-table-table)) - (__tmp74698 - (let ((__tmp74699 (gx#datum->syntax '#f 'self))) + (__tmp74702 + (let ((__tmp74703 (gx#datum->syntax '#f 'self))) (declare (not safe)) - (cons __tmp74699 '())))) + (cons __tmp74703 '())))) (declare (not safe)) - (cons __tmp74700 __tmp74698)))) + (cons __tmp74704 __tmp74702)))) (declare (not safe)) - (cons __tmp74697 '())))) + (cons __tmp74701 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74701 - __tmp74696))) - (__tmp74687 - (let ((__tmp74688 - (let ((__tmp74694 + (cons __tmp74705 + __tmp74700))) + (__tmp74691 + (let ((__tmp74692 + (let ((__tmp74698 (gx#datum->syntax '#f 'l)) - (__tmp74689 - (let ((__tmp74690 + (__tmp74693 + (let ((__tmp74694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74693 + (let ((__tmp74697 (gx#datum->syntax '#f '&locked-hash-table-lock)) - (__tmp74691 - (let ((__tmp74692 + (__tmp74695 + (let ((__tmp74696 (gx#datum->syntax '#f 'self))) (declare (not safe)) - (cons __tmp74692 '())))) + (cons __tmp74696 '())))) (declare (not safe)) - (cons __tmp74693 __tmp74691)))) + (cons __tmp74697 __tmp74695)))) (declare (not safe)) - (cons __tmp74690 '())))) + (cons __tmp74694 '())))) (declare (not safe)) - (cons __tmp74694 __tmp74689)))) + (cons __tmp74698 __tmp74693)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74688 '())))) + (cons __tmp74692 '())))) (declare (not safe)) - (cons __tmp74695 __tmp74687))) - (__tmp74663 - (let ((__tmp74664 - (let ((__tmp74685 + (cons __tmp74699 __tmp74691))) + (__tmp74667 + (let ((__tmp74668 + (let ((__tmp74689 (gx#datum->syntax '#f 'dynamic-wind)) - (__tmp74665 - (let ((__tmp74680 - (let ((__tmp74684 + (__tmp74669 + (let ((__tmp74684 + (let ((__tmp74688 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cut)) - (__tmp74681 - (let ((__tmp74682 - (let ((__tmp74683 + (__tmp74685 + (let ((__tmp74686 + (let ((__tmp74687 (gx#datum->syntax '#f 'l))) (declare (not safe)) - (cons __tmp74683 '())))) + (cons __tmp74687 '())))) (declare (not safe)) - (cons _L70980_ __tmp74682)))) + (cons _L70980_ __tmp74686)))) (declare (not safe)) - (cons __tmp74684 __tmp74681))) - (__tmp74666 - (let ((__tmp74673 - (let ((__tmp74679 (gx#datum->syntax '#f 'cut)) - (__tmp74674 - (let ((__tmp74675 - (let ((__tmp74678 + (cons __tmp74688 __tmp74685))) + (__tmp74670 + (let ((__tmp74677 + (let ((__tmp74683 (gx#datum->syntax '#f 'cut)) + (__tmp74678 + (let ((__tmp74679 + (let ((__tmp74682 (gx#datum->syntax '#f 'h)) - (__tmp74676 - (let ((__tmp74677 + (__tmp74680 + (let ((__tmp74681 (lambda (_g7101071021_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g7101171024_) @@ -1668,60 +1668,60 @@ (cons _g7101071021_ _g7101171024_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp74677 + (foldr1 __tmp74681 '() _L70981_)))) (declare (not safe)) - (cons __tmp74678 __tmp74676)))) + (cons __tmp74682 __tmp74680)))) (declare (not safe)) - (cons _L70979_ __tmp74675)))) + (cons _L70979_ __tmp74679)))) (declare (not safe)) - (cons __tmp74679 __tmp74674))) - (__tmp74667 - (let ((__tmp74668 - (let ((__tmp74672 + (cons __tmp74683 __tmp74678))) + (__tmp74671 + (let ((__tmp74672 + (let ((__tmp74676 (gx#datum->syntax '#f 'cut)) - (__tmp74669 - (let ((__tmp74670 - (let ((__tmp74671 + (__tmp74673 + (let ((__tmp74674 + (let ((__tmp74675 (gx#datum->syntax '#f 'l))) (declare (not safe)) - (cons __tmp74671 '())))) + (cons __tmp74675 '())))) (declare (not safe)) - (cons _L70977_ __tmp74670)))) + (cons _L70977_ __tmp74674)))) (declare (not safe)) - (cons __tmp74672 __tmp74669)))) + (cons __tmp74676 __tmp74673)))) (declare (not safe)) - (cons __tmp74668 '())))) + (cons __tmp74672 '())))) (declare (not safe)) - (cons __tmp74673 __tmp74667)))) + (cons __tmp74677 __tmp74671)))) (declare (not safe)) - (cons __tmp74680 __tmp74666)))) + (cons __tmp74684 __tmp74670)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74685 - __tmp74665)))) + (cons __tmp74689 + __tmp74669)))) (declare (not safe)) - (cons __tmp74664 '())))) + (cons __tmp74668 '())))) (declare (not safe)) - (cons __tmp74686 __tmp74663)))) + (cons __tmp74690 __tmp74667)))) (declare (not safe)) - (cons __tmp74702 __tmp74662)))) + (cons __tmp74706 __tmp74666)))) (declare (not safe)) - (cons __tmp74661 '())))) + (cons __tmp74665 '())))) (declare (not safe)) - (cons __tmp74703 __tmp74660)))) + (cons __tmp74707 __tmp74664)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74707 __tmp74659)))) + (cons __tmp74711 __tmp74663)))) (declare (not safe)) - (cons __tmp74658 '())))) + (cons __tmp74662 '())))) (declare (not safe)) - (cons __tmp74708 __tmp74657)))) + (cons __tmp74712 __tmp74661)))) (declare (not safe)) - (cons __tmp74713 __tmp74656))) + (cons __tmp74717 __tmp74660))) _hd7087370971_ _hd7087070961_ _hd7086770951_ @@ -1796,28 +1796,28 @@ (##cdr _e7107071128_)))) (if (gx#stx-pair/null? _tl7106871135_) - (let ((_g74714_ + (let ((_g74718_ (gx#syntax-split-splice _tl7106871135_ '0))) (begin - (let ((_g74715_ + (let ((_g74719_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g74714_) - (##vector-length _g74714_) + (if (##values? _g74718_) + (##vector-length _g74718_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g74715_ 2))) - (error "Context expects 2 values" _g74715_))) + (if (not (let () (declare (not safe)) (##fx= _g74719_ 2))) + (error "Context expects 2 values" _g74719_))) (let ((_target7107171138_ (let () (declare (not safe)) - (##vector-ref _g74714_ 0))) + (##vector-ref _g74718_ 0))) (_tl7107371141_ (let () (declare (not safe)) - (##vector-ref _g74714_ 1)))) + (##vector-ref _g74718_ 1)))) (if (gx#stx-null? _tl7107371141_) (letrec ((_loop7107471144_ (lambda (_hd7107271148_ _arg7107871151_) @@ -1866,149 +1866,149 @@ (let () (declare (not safe)) (##cdr _e7108571178_)))) (if (gx#stx-null? _tl7108371185_) ((lambda (_L71188_ _L71190_ _L71191_ _L71192_ _L71193_) - (let ((__tmp74757 (gx#datum->syntax '#f 'defmethod)) - (__tmp74716 - (let ((__tmp74752 - (let ((__tmp74756 + (let ((__tmp74761 (gx#datum->syntax '#f 'defmethod)) + (__tmp74720 + (let ((__tmp74756 + (let ((__tmp74760 (gx#datum->syntax '#f '@method)) - (__tmp74753 - (let ((__tmp74754 - (let ((__tmp74755 + (__tmp74757 + (let ((__tmp74758 + (let ((__tmp74759 (gx#datum->syntax '#f 'checked-hash-table))) (declare (not safe)) - (cons __tmp74755 '())))) + (cons __tmp74759 '())))) (declare (not safe)) - (cons _L71193_ __tmp74754)))) + (cons _L71193_ __tmp74758)))) (declare (not safe)) - (cons __tmp74756 __tmp74753))) - (__tmp74717 - (let ((__tmp74718 - (let ((__tmp74751 + (cons __tmp74760 __tmp74757))) + (__tmp74721 + (let ((__tmp74722 + (let ((__tmp74755 (gx#datum->syntax '#f 'lambda)) - (__tmp74719 - (let ((__tmp74748 - (let ((__tmp74749 + (__tmp74723 + (let ((__tmp74752 + (let ((__tmp74753 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74750 + (let ((__tmp74754 (lambda (_g7122371226_ _g7122471229_) (let () (declare (not safe)) (cons _g7122371226_ _g7122471229_))))) (declare (not safe)) - (foldr1 __tmp74750 '() _L71191_)))) + (foldr1 __tmp74754 '() _L71191_)))) (declare (not safe)) - (cons _L71192_ __tmp74749))) - (__tmp74720 - (let ((__tmp74721 - (let ((__tmp74747 (gx#datum->syntax '#f 'let)) - (__tmp74722 - (let ((__tmp74733 - (let ((__tmp74741 - (let ((__tmp74746 + (cons _L71192_ __tmp74753))) + (__tmp74724 + (let ((__tmp74725 + (let ((__tmp74751 (gx#datum->syntax '#f 'let)) + (__tmp74726 + (let ((__tmp74737 + (let ((__tmp74745 + (let ((__tmp74750 (gx#datum->syntax '#f 'h)) - (__tmp74742 - (let ((__tmp74743 - (let ((__tmp74745 + (__tmp74746 + (let ((__tmp74747 + (let ((__tmp74749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&checked-hash-table-table)) - (__tmp74744 + (__tmp74748 (let () (declare (not safe)) (cons _L71192_ '())))) (declare (not safe)) - (cons __tmp74745 __tmp74744)))) + (cons __tmp74749 __tmp74748)))) (declare (not safe)) - (cons __tmp74743 '())))) + (cons __tmp74747 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74746 - __tmp74742))) - (__tmp74734 - (let ((__tmp74735 - (let ((__tmp74740 + (cons __tmp74750 + __tmp74746))) + (__tmp74738 + (let ((__tmp74739 + (let ((__tmp74744 (gx#datum->syntax '#f 'key?)) - (__tmp74736 - (let ((__tmp74737 + (__tmp74740 + (let ((__tmp74741 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74739 + (let ((__tmp74743 (gx#datum->syntax '#f '&checked-hash-table-key-check)) - (__tmp74738 + (__tmp74742 (let () (declare (not safe)) (cons _L71192_ '())))) (declare (not safe)) - (cons __tmp74739 __tmp74738)))) + (cons __tmp74743 __tmp74742)))) (declare (not safe)) - (cons __tmp74737 '())))) + (cons __tmp74741 '())))) (declare (not safe)) - (cons __tmp74740 __tmp74736)))) + (cons __tmp74744 __tmp74740)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74735 '())))) + (cons __tmp74739 '())))) (declare (not safe)) - (cons __tmp74741 __tmp74734))) - (__tmp74723 - (let ((__tmp74730 - (let ((__tmp74731 - (let ((__tmp74732 + (cons __tmp74745 __tmp74738))) + (__tmp74727 + (let ((__tmp74734 + (let ((__tmp74735 + (let ((__tmp74736 (gx#datum->syntax '#f 'key?))) (declare (not safe)) - (cons __tmp74732 + (cons __tmp74736 '())))) (declare (not safe)) - (cons _L71190_ __tmp74731))) - (__tmp74724 - (let ((__tmp74725 - (let ((__tmp74726 - (let ((__tmp74729 + (cons _L71190_ __tmp74735))) + (__tmp74728 + (let ((__tmp74729 + (let ((__tmp74730 + (let ((__tmp74733 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp74727 - (let ((__tmp74728 + (__tmp74731 + (let ((__tmp74732 (lambda (_g7122171232_ _g7122271235_) (let () (declare (not safe)) (cons _g7122171232_ _g7122271235_))))) (declare (not safe)) - (foldr1 __tmp74728 '() _L71191_)))) + (foldr1 __tmp74732 '() _L71191_)))) (declare (not safe)) - (cons __tmp74729 __tmp74727)))) + (cons __tmp74733 __tmp74731)))) (declare (not safe)) - (cons _L71188_ __tmp74726)))) + (cons _L71188_ __tmp74730)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74725 '())))) + (cons __tmp74729 '())))) (declare (not safe)) - (cons __tmp74730 __tmp74724)))) + (cons __tmp74734 __tmp74728)))) (declare (not safe)) - (cons __tmp74733 __tmp74723)))) + (cons __tmp74737 __tmp74727)))) (declare (not safe)) - (cons __tmp74747 __tmp74722)))) + (cons __tmp74751 __tmp74726)))) (declare (not safe)) - (cons __tmp74721 '())))) + (cons __tmp74725 '())))) (declare (not safe)) - (cons __tmp74748 __tmp74720)))) + (cons __tmp74752 __tmp74724)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74751 __tmp74719)))) + (cons __tmp74755 __tmp74723)))) (declare (not safe)) - (cons __tmp74718 '())))) + (cons __tmp74722 '())))) (declare (not safe)) - (cons __tmp74752 __tmp74717)))) + (cons __tmp74756 __tmp74721)))) (declare (not safe)) - (cons __tmp74757 __tmp74716))) + (cons __tmp74761 __tmp74720))) _hd7108471182_ _hd7108171172_ _arg7107971164_ @@ -2072,39 +2072,39 @@ (##cdr _e7125971292_)))) (if (gx#stx-null? _tl7125771299_) ((lambda (_L71302_ _L71304_) - (let ((__tmp74766 + (let ((__tmp74770 (gx#datum->syntax '#f 'unless)) - (__tmp74758 - (let ((__tmp74764 - (let ((__tmp74765 + (__tmp74762 + (let ((__tmp74768 + (let ((__tmp74769 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L71302_ '())))) (declare (not safe)) - (cons _L71304_ __tmp74765))) - (__tmp74759 - (let ((__tmp74760 - (let ((__tmp74763 (gx#datum->syntax '#f 'error)) - (__tmp74761 - (let ((__tmp74762 + (cons _L71304_ __tmp74769))) + (__tmp74763 + (let ((__tmp74764 + (let ((__tmp74767 (gx#datum->syntax '#f 'error)) + (__tmp74765 + (let ((__tmp74766 (let () (declare (not safe)) (cons _L71302_ '())))) (declare (not safe)) - (cons '"invalid argument" __tmp74762)))) + (cons '"invalid argument" __tmp74766)))) (declare (not safe)) - (cons __tmp74763 __tmp74761)))) + (cons __tmp74767 __tmp74765)))) (declare (not safe)) - (cons __tmp74760 '())))) + (cons __tmp74764 '())))) (declare (not safe)) - (cons __tmp74764 __tmp74759)))) + (cons __tmp74768 __tmp74763)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74766 - __tmp74758))) + (cons __tmp74770 + __tmp74762))) _hd7125871296_ _hd7125571286_) (_g7124771265_ _g7124871269_)))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index 36e312929..4bf2530ca 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 1710781149) + (define gerbil/runtime/init::timestamp 1710833424) (begin (define __scheme-source (make-parameter '#f)) (define __load-gxi @@ -8,327 +8,327 @@ (__current-compiler __compile-top) (__current-expander gx#core-expand) (set! __eval-module gx#core-eval-module) - (letrec* ((_+readtable+80062_ __*readtable*)) - (let* ((_core80064_ (gx#import-module ':gerbil/core)) - (_pre80066_ (gx#make-prelude-context _core80064_))) - (gx#current-expander-module-prelude _pre80066_) - (gx#core-bind-root-syntax! ': _pre80066_ '#t) + (letrec* ((_+readtable+80066_ __*readtable*)) + (let* ((_core80068_ (gx#import-module ':gerbil/core)) + (_pre80070_ (gx#make-prelude-context _core80068_))) + (gx#current-expander-module-prelude _pre80070_) + (gx#core-bind-root-syntax! ': _pre80070_ '#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 (_port80069_) - (input-port-readtable-set! _port80069_ _+readtable+80062_)) + (lambda (_port80073_) + (input-port-readtable-set! _port80073_ _+readtable+80066_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port80071_) + (lambda (_port80075_) (output-port-readtable-set! - _port80071_ + _port80075_ (readtable-sharing-allowed?-set - (output-port-readtable _port80071_) + (output-port-readtable _port80075_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline80059_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline80063_) '#!void)) (define load-scheme - (lambda (_path80054_) - (let ((__tmp80072 + (lambda (_path80058_) + (let ((__tmp80076 (lambda () - (let ((__tmp80073 (lambda _args80057_ '#f))) + (let ((__tmp80077 (lambda _args80061_ '#f))) (declare (not safe)) - (##load _path80054_ __tmp80073 '#t '#t '#f))))) + (##load _path80058_ __tmp80077 '#t '#t '#f))))) (declare (not safe)) - (call-with-parameters __tmp80072 __scheme-source _path80054_)))) + (call-with-parameters __tmp80076 __scheme-source _path80058_)))) (define __expand-source - (lambda (_src80040_) - (letrec ((_expand80042_ - (lambda (_src80052_) - (let ((__tmp80074 + (lambda (_src80044_) + (letrec ((_expand80046_ + (lambda (_src80056_) + (let ((__tmp80078 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src80052_))))) + (__source->syntax _src80056_))))) (declare (not safe)) - (__compile-top __tmp80074)))) - (_no-expand80043_ - (lambda (_src80048_) + (__compile-top __tmp80078)))) + (_no-expand80047_ + (lambda (_src80052_) (if (__scheme-source) - _src80048_ + _src80052_ (if (let () (declare (not safe)) - (##source? _src80048_)) - (let ((_code80050_ + (##source? _src80052_)) + (let ((_code80054_ (let () (declare (not safe)) - (##source-code _src80048_)))) + (##source-code _src80052_)))) (if (let () (declare (not safe)) - (pair? _code80050_)) - (if (let ((__tmp80075 + (pair? _code80054_)) + (if (let ((__tmp80079 (let () (declare (not safe)) - (##car _code80050_)))) + (##car _code80054_)))) (declare (not safe)) - (eq? '__noexpand: __tmp80075)) + (eq? '__noexpand: __tmp80079)) (let () (declare (not safe)) - (##cdr _code80050_)) + (##cdr _code80054_)) '#f) '#f)) '#f))))) - (let ((_$e80045_ - (let () (declare (not safe)) (_no-expand80043_ _src80040_)))) - (if _$e80045_ - _$e80045_ - (let () (declare (not safe)) (_expand80042_ _src80040_))))))) + (let ((_$e80049_ + (let () (declare (not safe)) (_no-expand80047_ _src80044_)))) + (if _$e80049_ + _$e80049_ + (let () (declare (not safe)) (_expand80046_ _src80044_))))))) (define __macro-descr - (lambda (_src80026_ _def-syntax?80027_) - (letrec ((_fail!80029_ + (lambda (_src80030_ _def-syntax?80031_) + (letrec ((_fail!80033_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src80026_)))) - (_make-descr80030_ - (lambda (_size80034_) - (let ((_expander80037_ - (let ((__tmp80076 + _src80030_)))) + (_make-descr80034_ + (lambda (_size80038_) + (let ((_expander80041_ + (let ((__tmp80080 (lambda () (let () (declare (not safe)) (##eval-top - _src80026_ + _src80030_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp80076 + __tmp80080 __scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander80037_)) + (procedure? _expander80041_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?80027_ - _size80034_ - _expander80037_ - _src80026_)) - (let () (declare (not safe)) (_fail!80029_))))))) - (if _def-syntax?80027_ - (let () (declare (not safe)) (_make-descr80030_ '-1)) - (let ((_code80032_ - (let () (declare (not safe)) (##source-code _src80026_)))) - (if (and (let () (declare (not safe)) (##pair? _code80032_)) - (let ((__tmp80080 - (let ((__tmp80081 - (let ((__tmp80082 + _def-syntax?80031_ + _size80038_ + _expander80041_ + _src80030_)) + (let () (declare (not safe)) (_fail!80033_))))))) + (if _def-syntax?80031_ + (let () (declare (not safe)) (_make-descr80034_ '-1)) + (let ((_code80036_ + (let () (declare (not safe)) (##source-code _src80030_)))) + (if (and (let () (declare (not safe)) (##pair? _code80036_)) + (let ((__tmp80084 + (let ((__tmp80085 + (let ((__tmp80086 (let () (declare (not safe)) - (##car _code80032_)))) + (##car _code80036_)))) (declare (not safe)) - (##sourcify __tmp80082 _src80026_)))) + (##sourcify __tmp80086 _src80030_)))) (declare (not safe)) - (##source-code __tmp80081)))) + (##source-code __tmp80085)))) (declare (not safe)) - (##memq __tmp80080 '(##lambda lambda)))) + (##memq __tmp80084 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src80026_ _src80026_ '-3)) - (let ((__tmp80077 - (let ((__tmp80078 - (let ((__tmp80079 + (##shape _src80030_ _src80030_ '-3)) + (let ((__tmp80081 + (let ((__tmp80082 + (let ((__tmp80083 (let () (declare (not safe)) - (##cadr _code80032_)))) + (##cadr _code80036_)))) (declare (not safe)) - (##sourcify __tmp80079 _src80026_)))) + (##sourcify __tmp80083 _src80030_)))) (declare (not safe)) - (##form-size __tmp80078)))) + (##form-size __tmp80082)))) (declare (not safe)) - (_make-descr80030_ __tmp80077))) - (let () (declare (not safe)) (_fail!80029_)))))))) + (_make-descr80034_ __tmp80081))) + (let () (declare (not safe)) (_fail!80033_)))))))) (define __source->syntax - (lambda (_src80020_) - (let _recur80022_ ((_e80024_ _src80020_)) - (if (let () (declare (not safe)) (##source? _e80024_)) - (let ((__tmp80090 - (let ((__tmp80091 + (lambda (_src80024_) + (let _recur80026_ ((_e80028_ _src80024_)) + (if (let () (declare (not safe)) (##source? _e80028_)) + (let ((__tmp80094 + (let ((__tmp80095 (let () (declare (not safe)) - (##source-code _e80024_)))) + (##source-code _e80028_)))) (declare (not safe)) - (_recur80022_ __tmp80091))) - (__tmp80089 - (let () (declare (not safe)) (##source-locat _e80024_)))) + (_recur80026_ __tmp80095))) + (__tmp80093 + (let () (declare (not safe)) (##source-locat _e80028_)))) (declare (not safe)) - (##structure AST::t __tmp80090 __tmp80089)) - (if (let () (declare (not safe)) (pair? _e80024_)) - (let ((__tmp80087 - (let ((__tmp80088 + (##structure AST::t __tmp80094 __tmp80093)) + (if (let () (declare (not safe)) (pair? _e80028_)) + (let ((__tmp80091 + (let ((__tmp80092 (let () (declare (not safe)) - (##car _e80024_)))) + (##car _e80028_)))) (declare (not safe)) - (_recur80022_ __tmp80088))) - (__tmp80085 - (let ((__tmp80086 + (_recur80026_ __tmp80092))) + (__tmp80089 + (let ((__tmp80090 (let () (declare (not safe)) - (##cdr _e80024_)))) + (##cdr _e80028_)))) (declare (not safe)) - (_recur80022_ __tmp80086)))) + (_recur80026_ __tmp80090)))) (declare (not safe)) - (cons __tmp80087 __tmp80085)) - (if (let () (declare (not safe)) (vector? _e80024_)) - (vector-map _recur80022_ _e80024_) - (if (let () (declare (not safe)) (box? _e80024_)) - (let ((__tmp80083 - (let ((__tmp80084 (unbox _e80024_))) + (cons __tmp80091 __tmp80089)) + (if (let () (declare (not safe)) (vector? _e80028_)) + (vector-map _recur80026_ _e80028_) + (if (let () (declare (not safe)) (box? _e80028_)) + (let ((__tmp80087 + (let ((__tmp80088 (unbox _e80028_))) (declare (not safe)) - (_recur80022_ __tmp80084)))) + (_recur80026_ __tmp80088)))) (declare (not safe)) - (box __tmp80083)) - _e80024_))))))) + (box __tmp80087)) + _e80028_))))))) (define __compile-top-source - (lambda (_stx80018_) - (let ((__tmp80092 - (let () (declare (not safe)) (__compile-top _stx80018_)))) + (lambda (_stx80022_) + (let ((__tmp80096 + (let () (declare (not safe)) (__compile-top _stx80022_)))) (declare (not safe)) - (cons '__noexpand: __tmp80092)))) + (cons '__noexpand: __tmp80096)))) (define __compile-top - (lambda (_stx80016_) - (let ((__tmp80093 (gx#core-compile-top-syntax _stx80016_))) + (lambda (_stx80020_) + (let ((__tmp80097 (gx#core-compile-top-syntax _stx80020_))) (declare (not safe)) - (__compile __tmp80093)))) + (__compile __tmp80097)))) (define __eval-import - (lambda (_in79997_) - (letrec* ((_mods79999_ + (lambda (_in80001_) + (letrec* ((_mods80003_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import180000_ - (lambda (_in80007_ _phi80008_) - (if (gx#module-import? _in80007_) - (let ((_iphi80010_ - (fx+ _phi80008_ - (gx#module-import-phi _in80007_)))) + (_import180004_ + (lambda (_in80011_ _phi80012_) + (if (gx#module-import? _in80011_) + (let ((_iphi80014_ + (fx+ _phi80012_ + (gx#module-import-phi _in80011_)))) (if (let () (declare (not safe)) - (fxzero? _iphi80010_)) - (let ((__tmp80095 + (fxzero? _iphi80014_)) + (let ((__tmp80099 (gx#module-export-context - (gx#module-import-source _in80007_)))) + (gx#module-import-source _in80011_)))) (declare (not safe)) - (_eval180001_ __tmp80095)) + (_eval180005_ __tmp80099)) '#!void)) - (if (gx#module-context? _in80007_) + (if (gx#module-context? _in80011_) (if (let () (declare (not safe)) - (fxzero? _phi80008_)) + (fxzero? _phi80012_)) (let () (declare (not safe)) - (_eval180001_ _in80007_)) + (_eval180005_ _in80011_)) '#!void) - (if (gx#import-set? _in80007_) - (let ((_iphi80012_ - (fx+ _phi80008_ - (gx#import-set-phi _in80007_)))) + (if (gx#import-set? _in80011_) + (let ((_iphi80016_ + (fx+ _phi80012_ + (gx#import-set-phi _in80011_)))) (if (let () (declare (not safe)) - (fxzero? _iphi80012_)) - (let ((__tmp80094 + (fxzero? _iphi80016_)) + (let ((__tmp80098 (gx#import-set-source - _in80007_))) + _in80011_))) (declare (not safe)) - (_eval180001_ __tmp80094)) - (if (fxpositive? _iphi80012_) + (_eval180005_ __tmp80098)) + (if (fxpositive? _iphi80016_) (for-each - (lambda (_in80014_) + (lambda (_in80018_) (let () (declare (not safe)) - (_import180000_ - _in80014_ - _iphi80012_))) + (_import180004_ + _in80018_ + _iphi80016_))) (gx#module-context-import - (gx#import-set-source _in80007_))) + (gx#import-set-source _in80011_))) '#!void))) (let () (declare (not safe)) - (error '"Unexpected import" _in80007_))))))) - (_eval180001_ - (lambda (_ctx80005_) + (error '"Unexpected import" _in80011_))))))) + (_eval180005_ + (lambda (_ctx80009_) (if (let () (declare (not safe)) - (hash-get _mods79999_ _ctx80005_)) + (hash-get _mods80003_ _ctx80009_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _mods79999_ _ctx80005_ '#t)) - (__eval-module _ctx80005_)))))) - (if (let () (declare (not safe)) (pair? _in79997_)) + (hash-put! _mods80003_ _ctx80009_ '#t)) + (__eval-module _ctx80009_)))))) + (if (let () (declare (not safe)) (pair? _in80001_)) (for-each - (lambda (_in80003_) - (let () (declare (not safe)) (_import180000_ _in80003_ '0))) - _in79997_) - (let () (declare (not safe)) (_import180000_ _in79997_ '0)))))) + (lambda (_in80007_) + (let () (declare (not safe)) (_import180004_ _in80007_ '0))) + _in80001_) + (let () (declare (not safe)) (_import180004_ _in80001_ '0)))))) (define __eval-module - (lambda (_obj79995_) (gx#core-eval-module _obj79995_))) + (lambda (_obj79999_) (gx#core-eval-module _obj79999_))) (define gerbil-runtime-init! - (lambda (_builtin-modules79973_) + (lambda (_builtin-modules79977_) (if __runtime-initialized '#!void (begin (dump-stack-trace? '#t) - (let* ((_home79975_ (let () (declare (not safe)) (gerbil-home))) - (_libdir79977_ (path-expand '"lib" _home79975_)) - (_userpath79979_ + (let* ((_home79979_ (let () (declare (not safe)) (gerbil-home))) + (_libdir79981_ (path-expand '"lib" _home79979_)) + (_userpath79983_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath79981_ + (_loadpath79985_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir79977_ '())) - (let ((__tmp80096 + (cons _libdir79981_ '())) + (let ((__tmp80100 (let () (declare (not safe)) - (cons _libdir79977_ '())))) + (cons _libdir79981_ '())))) (declare (not safe)) - (cons _userpath79979_ __tmp80096)))) - (_loadpath79990_ - (let ((_$e79983_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e79983_ - ((lambda (_envvar79986_) - (append (filter (lambda (_x79988_) - (let ((__tmp80097 + (cons _userpath79983_ __tmp80100)))) + (_loadpath79994_ + (let ((_$e79987_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e79987_ + ((lambda (_envvar79990_) + (append (filter (lambda (_x79992_) + (let ((__tmp80101 (let () (declare (not safe)) (string-empty? - _x79988_)))) + _x79992_)))) (declare (not safe)) - (not __tmp80097))) + (not __tmp80101))) (let () (declare (not safe)) (string-split - _envvar79986_ + _envvar79990_ '#\:))) - _loadpath79981_)) - _$e79983_) - _loadpath79981_)))) - (let () (declare (not safe)) (set-load-path! _loadpath79990_))) + _loadpath79985_)) + _$e79987_) + _loadpath79985_)))) + (let () (declare (not safe)) (set-load-path! _loadpath79994_))) (for-each - (lambda (_mod79993_) + (lambda (_mod79997_) (let () (declare (not safe)) - (hash-put! __modules _mod79993_ 'builtin)) - (let ((__tmp80098 (string-append _mod79993_ '"~0"))) + (hash-put! __modules _mod79997_ 'builtin)) + (let ((__tmp80102 (string-append _mod79997_ '"~0"))) (declare (not safe)) - (hash-put! __modules __tmp80098 'builtin))) - _builtin-modules79973_) + (hash-put! __modules __tmp80102 'builtin))) + _builtin-modules79977_) (current-readtable __*readtable*) (random-source-randomize! default-random-source) (set! __runtime-initialized '#t))))) diff --git a/src/bootstrap/gerbil/runtime/interface~0.scm b/src/bootstrap/gerbil/runtime/interface~0.scm index 98e83bc8d..8bd75407d 100644 --- a/src/bootstrap/gerbil/runtime/interface~0.scm +++ b/src/bootstrap/gerbil/runtime/interface~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/interface::timestamp 1710781148) + (define gerbil/runtime/interface::timestamp 1710833424) (begin (define CastError::t (let ((__tmp69933 (list Error::t))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index b73ae948c..0d7cccb65 100644 --- a/src/bootstrap/gerbil/runtime/loader~0.scm +++ b/src/bootstrap/gerbil/runtime/loader~0.scm @@ -1,158 +1,158 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1710781149) + (define gerbil/runtime/loader::timestamp 1710833424) (begin (define __modules (let () (declare (not safe)) (make-hash-table))) (define __load-path '()) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _paths79963_ + (lambda _paths79967_ (for-each - (lambda (_p79965_) + (lambda (_p79969_) (set! __load-path - (let () (declare (not safe)) (cons _p79965_ __load-path)))) - (reverse! _paths79963_)))) + (let () (declare (not safe)) (cons _p79969_ __load-path)))) + (reverse! _paths79967_)))) (define set-load-path! - (lambda (_paths79961_) (set! __load-path _paths79961_))) + (lambda (_paths79965_) (set! __load-path _paths79965_))) (define load-module - (lambda (_modpath79949_) - (let ((_$e79951_ + (lambda (_modpath79953_) + (let ((_$e79955_ (let () (declare (not safe)) - (hash-get __modules _modpath79949_)))) - (if _$e79951_ - _$e79951_ - (let ((_$e79954_ + (hash-get __modules _modpath79953_)))) + (if _$e79955_ + _$e79955_ + (let ((_$e79958_ (let () (declare (not safe)) - (find-library-module _modpath79949_)))) - (if _$e79954_ - ((lambda (_path79957_) - (let ((_loaded-path79959_ (load _path79957_))) + (find-library-module _modpath79953_)))) + (if _$e79958_ + ((lambda (_path79961_) + (let ((_loaded-path79963_ (load _path79961_))) (let () (declare (not safe)) (hash-put! __modules - _modpath79949_ - _loaded-path79959_)) - _loaded-path79959_)) - _$e79954_) + _modpath79953_ + _loaded-path79963_)) + _loaded-path79963_)) + _$e79958_) (let () (declare (not safe)) - (error '"module not found" _modpath79949_)))))))) + (error '"module not found" _modpath79953_)))))))) (define reload-module! - (lambda (_modpath79935_) - (let ((_$e79937_ + (lambda (_modpath79939_) + (let ((_$e79941_ (let () (declare (not safe)) - (hash-get __modules _modpath79935_)))) - (if _$e79937_ - ((lambda (_current-path79940_) + (hash-get __modules _modpath79939_)))) + (if _$e79941_ + ((lambda (_current-path79944_) (if (let () (declare (not safe)) - (eq? _current-path79940_ 'builtin)) - (let ((_latest-path79942_ + (eq? _current-path79944_ 'builtin)) + (let ((_latest-path79946_ (let () (declare (not safe)) - (find-library-module _modpath79935_)))) - (if (or (let ((__tmp79967 - (path-extension _current-path79940_))) + (find-library-module _modpath79939_)))) + (if (or (let ((__tmp79971 + (path-extension _current-path79944_))) (declare (not safe)) - (equal? __tmp79967 '".scm")) - (let ((__tmp79968 + (equal? __tmp79971 '".scm")) + (let ((__tmp79972 (let () (declare (not safe)) - (equal? _current-path79940_ - _latest-path79942_)))) + (equal? _current-path79944_ + _latest-path79946_)))) (declare (not safe)) - (not __tmp79968))) - (let ((_loaded-path79947_ (load _modpath79935_))) + (not __tmp79972))) + (let ((_loaded-path79951_ (load _modpath79939_))) (let () (declare (not safe)) (hash-put! __modules - _modpath79935_ - _loaded-path79947_)) - _loaded-path79947_) + _modpath79939_ + _loaded-path79951_)) + _loaded-path79951_) '#!void)) (let () (declare (not safe)) (error '"cannot reload builtin module" - _modpath79935_)))) - _$e79937_) - (let () (declare (not safe)) (load-module _modpath79935_)))))) + _modpath79939_)))) + _$e79941_) + (let () (declare (not safe)) (load-module _modpath79939_)))))) (define find-library-module - (lambda (_modpath79870_) - (letrec ((_find-compiled-file79872_ - (lambda (_npath79924_) - (let ((_basepath79926_ + (lambda (_modpath79874_) + (letrec ((_find-compiled-file79876_ + (lambda (_npath79928_) + (let ((_basepath79930_ (let () (declare (not safe)) - (##string-append _npath79924_ '".o")))) - (let _lp79928_ ((_current79930_ '#f) (_n79931_ '1)) - (let ((_next79933_ - (let ((__tmp79969 (number->string _n79931_))) + (##string-append _npath79928_ '".o")))) + (let _lp79932_ ((_current79934_ '#f) (_n79935_ '1)) + (let ((_next79937_ + (let ((__tmp79973 (number->string _n79935_))) (declare (not safe)) (##string-append - _basepath79926_ - __tmp79969)))) + _basepath79930_ + __tmp79973)))) (if (let () (declare (not safe)) - (##file-exists? _next79933_)) - (let ((__tmp79970 + (##file-exists? _next79937_)) + (let ((__tmp79974 (let () (declare (not safe)) - (##fx+ _n79931_ '1)))) + (##fx+ _n79935_ '1)))) (declare (not safe)) - (_lp79928_ _next79933_ __tmp79970)) - _current79930_)))))) - (_find-source-file79873_ - (lambda (_npath79920_) - (let ((_spath79922_ + (_lp79932_ _next79937_ __tmp79974)) + _current79934_)))))) + (_find-source-file79877_ + (lambda (_npath79924_) + (let ((_spath79926_ (let () (declare (not safe)) - (##string-append _npath79920_ '".scm")))) + (##string-append _npath79924_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _spath79922_)) - _spath79922_ + (##file-exists? _spath79926_)) + _spath79926_ '#f))))) - (let _lp79875_ ((_rest79877_ + (let _lp79879_ ((_rest79881_ (let () (declare (not safe)) (load-path)))) - (let* ((_rest7987879886_ _rest79877_) - (_else7988079894_ (lambda () '#f)) - (_K7988279908_ - (lambda (_rest79897_ _dir79898_) - (let* ((_npath79900_ + (let* ((_rest7988279890_ _rest79881_) + (_else7988479898_ (lambda () '#f)) + (_K7988679912_ + (lambda (_rest79901_ _dir79902_) + (let* ((_npath79904_ (path-expand - _modpath79870_ - (path-expand _dir79898_))) - (_$e79902_ + _modpath79874_ + (path-expand _dir79902_))) + (_$e79906_ (let () (declare (not safe)) - (_find-compiled-file79872_ _npath79900_)))) - (if _$e79902_ - (path-normalize _$e79902_) - (let ((_$e79905_ + (_find-compiled-file79876_ _npath79904_)))) + (if _$e79906_ + (path-normalize _$e79906_) + (let ((_$e79909_ (let () (declare (not safe)) - (_find-source-file79873_ _npath79900_)))) - (if _$e79905_ - (path-normalize _$e79905_) + (_find-source-file79877_ _npath79904_)))) + (if _$e79909_ + (path-normalize _$e79909_) (let () (declare (not safe)) - (_lp79875_ _rest79897_))))))))) - (if (let () (declare (not safe)) (##pair? _rest7987879886_)) - (let ((_hd7988379911_ + (_lp79879_ _rest79901_))))))))) + (if (let () (declare (not safe)) (##pair? _rest7988279890_)) + (let ((_hd7988779915_ (let () (declare (not safe)) - (##car _rest7987879886_))) - (_tl7988479913_ + (##car _rest7988279890_))) + (_tl7988879917_ (let () (declare (not safe)) - (##cdr _rest7987879886_)))) - (let* ((_dir79916_ _hd7988379911_) - (_rest79918_ _tl7988479913_)) + (##cdr _rest7988279890_)))) + (let* ((_dir79920_ _hd7988779915_) + (_rest79922_ _tl7988879917_)) (declare (not safe)) - (_K7988279908_ _rest79918_ _dir79916_))) - (let () (declare (not safe)) (_else7988079894_)))))))))) + (_K7988679912_ _rest79922_ _dir79920_))) + (let () (declare (not safe)) (_else7988479898_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index 2f002b795..e24792cb3 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop-system-classes::timestamp 1710781148) + (define gerbil/runtime/mop-system-classes::timestamp 1710833423) (begin (declare (not optimize-dead-definitions diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index fd401f23c..6afb64e37 100644 --- a/src/bootstrap/gerbil/runtime/mop~0.scm +++ b/src/bootstrap/gerbil/runtime/mop~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1710781148) + (define gerbil/runtime/mop::timestamp 1710833423) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index 424db3041..8c04bc259 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 1710781149) + (define gerbil/runtime/repl::timestamp 1710833424) (define replx (lambda () - (letrec ((_write-reason79857_ - (lambda (_exn79863_) - (lambda (_cont79865_ _port79866_) + (letrec ((_write-reason79861_ + (lambda (_exn79867_) + (lambda (_cont79869_ _port79870_) (let () (declare (not safe)) (##display-exception-in-context - _exn79863_ - _cont79865_ - _port79866_)) + _exn79867_ + _cont79869_ + _port79870_)) '#f)))) (with-exception-handler - (lambda (_exn79859_) - (let ((__tmp79867 - (lambda (_cont79861_) - (let ((__tmp79868 + (lambda (_exn79863_) + (let ((__tmp79871 + (lambda (_cont79865_) + (let ((__tmp79872 (let () (declare (not safe)) - (_write-reason79857_ _exn79859_)))) + (_write-reason79861_ _exn79863_)))) (declare (not safe)) - (##repl-within _cont79861_ __tmp79868 _exn79859_))))) + (##repl-within _cont79865_ __tmp79872 _exn79863_))))) (declare (not safe)) - (##continuation-capture __tmp79867))) + (##continuation-capture __tmp79871))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index 0b6247eb7..f3c4cfb0d 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 1710781148) + (define gerbil/runtime/syntax::timestamp 1710833424) (begin (declare (not safe)) (define SyntaxError::t @@ -13,7 +13,7 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args76528_ (apply make-instance SyntaxError::t _$args76528_))) + (lambda _$args76532_ (apply make-instance SyntaxError::t _$args76532_))) (define SyntaxError-message (make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -59,103 +59,103 @@ (define &SyntaxError-marks-set! (make-class-slot-unchecked-mutator SyntaxError::t 'marks)) (define SyntaxError::display-exception - (lambda (_self76431_ _port76432_) - (letrec ((_location76434_ + (lambda (_self76435_ _port76436_) + (letrec ((_location76438_ (lambda () - (let _lp76488_ ((_rest76490_ + (let _lp76492_ ((_rest76494_ (##unchecked-structure-ref - _self76431_ + _self76435_ '2 SyntaxError::t '#f))) - (let* ((_rest7649176499_ _rest76490_) - (_else7649376507_ (lambda () '#f)) - (_K7649576516_ - (lambda (_rest76510_ _hd76511_) - (let ((_$e76513_ (__AST-source _hd76511_))) - (if _$e76513_ - _$e76513_ - (_lp76488_ _rest76510_)))))) - (if (##pair? _rest7649176499_) - (let ((_hd7649676519_ (##car _rest7649176499_)) - (_tl7649776521_ (##cdr _rest7649176499_))) - (let* ((_hd76524_ _hd7649676519_) - (_rest76526_ _tl7649776521_)) - (_K7649576516_ _rest76526_ _hd76524_))) - (_else7649376507_))))))) + (let* ((_rest7649576503_ _rest76494_) + (_else7649776511_ (lambda () '#f)) + (_K7649976520_ + (lambda (_rest76514_ _hd76515_) + (let ((_$e76517_ (__AST-source _hd76515_))) + (if _$e76517_ + _$e76517_ + (_lp76492_ _rest76514_)))))) + (if (##pair? _rest7649576503_) + (let ((_hd7650076523_ (##car _rest7649576503_)) + (_tl7650176525_ (##cdr _rest7649576503_))) + (let* ((_hd76528_ _hd7650076523_) + (_rest76530_ _tl7650176525_)) + (_K7649976520_ _rest76530_ _hd76528_))) + (_else7649776511_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e76437_ (_location76434_))) - (if _$e76437_ - ((lambda (_where76440_) - (##display-locat _where76440_ '#t (current-output-port))) - _$e76437_) + (let ((_$e76441_ (_location76438_))) + (if _$e76441_ + ((lambda (_where76444_) + (##display-locat _where76444_ '#t (current-output-port))) + _$e76441_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e76442_ + (let ((_$e76446_ (##unchecked-structure-ref - _self76431_ + _self76435_ '3 SyntaxError::t '#f))) - (if _$e76442_ - ((lambda (_where76445_) + (if _$e76446_ + ((lambda (_where76449_) (displayln '" at " - _where76445_ + _where76449_ '": " (##unchecked-structure-ref - _self76431_ + _self76435_ '1 SyntaxError::t '#f))) - _$e76442_) + _$e76446_) (displayln '": " (##unchecked-structure-ref - _self76431_ + _self76435_ '1 SyntaxError::t '#f)))) - (let* ((_g7644676454_ + (let* ((_g7645076458_ (##unchecked-structure-ref - _self76431_ + _self76435_ '2 SyntaxError::t '#f)) - (_else7644876462_ (lambda () '#!void)) - (_K7645076475_ - (lambda (_rest76465_ _stx76466_) + (_else7645276466_ (lambda () '#!void)) + (_K7645476479_ + (lambda (_rest76469_ _stx76470_) (display '"... form: ") - (__pp-syntax _stx76466_) + (__pp-syntax _stx76470_) (for-each - (lambda (_detail76468_) + (lambda (_detail76472_) (display '"... detail: ") - (write (__AST->datum _detail76468_)) - (let ((_$e76470_ (__AST-source _detail76468_))) - (if _$e76470_ - ((lambda (_loc76473_) + (write (__AST->datum _detail76472_)) + (let ((_$e76474_ (__AST-source _detail76472_))) + (if _$e76474_ + ((lambda (_loc76477_) (display '" at ") (##display-locat - _loc76473_ + _loc76477_ '#t (current-output-port))) - _$e76470_) + _$e76474_) '#!void)) (newline)) - _rest76465_)))) - (if (##pair? _g7644676454_) - (let ((_hd7645176478_ (##car _g7644676454_)) - (_tl7645276480_ (##cdr _g7644676454_))) - (let* ((_stx76483_ _hd7645176478_) - (_rest76485_ _tl7645276480_)) - (_K7645076475_ _rest76485_ _stx76483_))) + _rest76469_)))) + (if (##pair? _g7645076458_) + (let ((_hd7645576482_ (##car _g7645076458_)) + (_tl7645676484_ (##cdr _g7645076458_))) + (let* ((_stx76487_ _hd7645576482_) + (_rest76489_ _tl7645676484_)) + (_K7645476479_ _rest76489_ _stx76487_))) '#!void))) current-output-port - _port76432_)))) + _port76436_)))) (bind-method!__% SyntaxError::t 'display-exception @@ -163,58 +163,58 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message76302_ - _irritants76303_ - _where76304_ - _context76305_ - _marks76306_ - _phi76307_) - (let ((__obj76623 + (lambda (_message76306_ + _irritants76307_ + _where76308_ + _context76309_ + _marks76310_ + _phi76311_) + (let ((__obj76627 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f))) (##unchecked-structure-set! - __obj76623 - _message76302_ + __obj76627 + _message76306_ '1 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76623 - _irritants76303_ + __obj76627 + _irritants76307_ '2 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76623 - _where76304_ + __obj76627 + _where76308_ '3 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76623 - _context76305_ + __obj76627 + _context76309_ '4 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76623 - _marks76306_ + __obj76627 + _marks76310_ '6 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76623 - _phi76307_ + __obj76627 + _phi76311_ '5 SyntaxError::t '#f) - __obj76623))) + __obj76627))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where76297_ _message76298_ _stx76299_ . _details76300_) + (lambda (_where76301_ _message76302_ _stx76303_ . _details76304_) (raise (make-syntax-error - _message76298_ - (cons _stx76299_ _details76300_) - _where76297_ + _message76302_ + (cons _stx76303_ _details76304_) + _where76301_ '#f '#f '#f)))) @@ -228,7 +228,7 @@ '#f)) (define AST? (make-class-predicate AST::t)) (define make-AST - (lambda _$args76294_ (apply make-instance AST::t _$args76294_))) + (lambda _$args76298_ (apply make-instance AST::t _$args76298_))) (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)) @@ -239,169 +239,169 @@ (define &AST-source-set! (make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_stx76292_) - (if (##structure-instance-of? _stx76292_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx76292_ '1 AST::t '#f) - _stx76292_))) + (lambda (_stx76296_) + (if (##structure-instance-of? _stx76296_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx76296_ '1 AST::t '#f) + _stx76296_))) (define __AST-source - (lambda (_stx76286_) - (let _lp76288_ ((_src76290_ _stx76286_)) - (if (##structure-instance-of? _src76290_ 'gerbil#AST::t) - (_lp76288_ (##unchecked-structure-ref _src76290_ '2 AST::t '#f)) - (if (##locat? _src76290_) _src76290_ '#f))))) + (lambda (_stx76290_) + (let _lp76292_ ((_src76294_ _stx76290_)) + (if (##structure-instance-of? _src76294_ 'gerbil#AST::t) + (_lp76292_ (##unchecked-structure-ref _src76294_ '2 AST::t '#f)) + (if (##locat? _src76294_) _src76294_ '#f))))) (define __AST - (lambda (_e76278_ _src-stx76279_) - (let ((_src76281_ (__AST-source _src-stx76279_))) - (if (or (##structure-instance-of? _e76278_ 'gerbil#AST::t) - (not _src76281_)) - _e76278_ - (##structure AST::t _e76278_ _src76281_))))) + (lambda (_e76282_ _src-stx76283_) + (let ((_src76285_ (__AST-source _src-stx76283_))) + (if (or (##structure-instance-of? _e76282_ 'gerbil#AST::t) + (not _src76285_)) + _e76282_ + (##structure AST::t _e76282_ _src76285_))))) (define __AST-eq? - (lambda (_stx76275_ _obj76276_) (eq? (__AST-e _stx76275_) _obj76276_))) - (define __AST-pair? (lambda (_stx76273_) (pair? (__AST-e _stx76273_)))) - (define __AST-null? (lambda (_stx76271_) (null? (__AST-e _stx76271_)))) + (lambda (_stx76279_ _obj76280_) (eq? (__AST-e _stx76279_) _obj76280_))) + (define __AST-pair? (lambda (_stx76277_) (pair? (__AST-e _stx76277_)))) + (define __AST-null? (lambda (_stx76275_) (null? (__AST-e _stx76275_)))) (define __AST-datum? - (lambda (_stx76252_) - (let* ((_e76254_ (__AST-e _stx76252_)) (_$e76256_ (number? _e76254_))) - (if _$e76256_ - _$e76256_ - (let ((_$e76259_ (string? _e76254_))) - (if _$e76259_ - _$e76259_ - (let ((_$e76262_ (char? _e76254_))) - (if _$e76262_ - _$e76262_ - (let ((_$e76265_ (keyword? _e76254_))) - (if _$e76265_ - _$e76265_ - (let ((_$e76268_ (boolean? _e76254_))) - (if _$e76268_ - _$e76268_ - (eq? _e76254_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx76250_) (symbol? (__AST-e _stx76250_)))) + (lambda (_stx76256_) + (let* ((_e76258_ (__AST-e _stx76256_)) (_$e76260_ (number? _e76258_))) + (if _$e76260_ + _$e76260_ + (let ((_$e76263_ (string? _e76258_))) + (if _$e76263_ + _$e76263_ + (let ((_$e76266_ (char? _e76258_))) + (if _$e76266_ + _$e76266_ + (let ((_$e76269_ (keyword? _e76258_))) + (if _$e76269_ + _$e76269_ + (let ((_$e76272_ (boolean? _e76258_))) + (if _$e76272_ + _$e76272_ + (eq? _e76258_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx76254_) (symbol? (__AST-e _stx76254_)))) (define __AST-id-list?__% - (lambda (_stx76201_ _tail?76202_) - (let _lp76204_ ((_rest76206_ _stx76201_)) - (let* ((_$e76208_ _rest76206_) - (_$E7621076223_ + (lambda (_stx76205_ _tail?76206_) + (let _lp76208_ ((_rest76210_ _stx76205_)) + (let* ((_$e76212_ _rest76210_) + (_$E7621476227_ (lambda () - (let* ((_$E7621176218_ + (let* ((_$E7621576222_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76208_))) - (_rest76221_ _$e76208_)) - (_tail?76202_ _rest76221_))))) - (if (__AST-pair? _$e76208_) - (let* ((_$tgt7621276226_ (__AST-e _$e76208_)) - (_$hd7621376229_ (##car _$tgt7621276226_)) - (_$tl7621476232_ (##cdr _$tgt7621276226_))) - (let* ((_hd76236_ _$hd7621376229_) - (_rest76238_ _$tl7621476232_)) - (if (__AST-id? _hd76236_) (_lp76204_ _rest76238_) '#f))) - (_$E7621076223_)))))) + _$e76212_))) + (_rest76225_ _$e76212_)) + (_tail?76206_ _rest76225_))))) + (if (__AST-pair? _$e76212_) + (let* ((_$tgt7621676230_ (__AST-e _$e76212_)) + (_$hd7621776233_ (##car _$tgt7621676230_)) + (_$tl7621876236_ (##cdr _$tgt7621676230_))) + (let* ((_hd76240_ _$hd7621776233_) + (_rest76242_ _$tl7621876236_)) + (if (__AST-id? _hd76240_) (_lp76208_ _rest76242_) '#f))) + (_$E7621476227_)))))) (define __AST-id-list?__0 - (lambda (_stx76243_) - (let ((_tail?76245_ __AST-null?)) - (__AST-id-list?__% _stx76243_ _tail?76245_)))) + (lambda (_stx76247_) + (let ((_tail?76249_ __AST-null?)) + (__AST-id-list?__% _stx76247_ _tail?76249_)))) (define __AST-id-list? - (lambda _g76626_ - (let ((_g76625_ (##length _g76626_))) - (cond ((##fx= _g76625_ 1) - (apply (lambda (_stx76243_) (__AST-id-list?__0 _stx76243_)) - _g76626_)) - ((##fx= _g76625_ 2) - (apply (lambda (_stx76247_ _tail?76248_) - (__AST-id-list?__% _stx76247_ _tail?76248_)) - _g76626_)) + (lambda _g76630_ + (let ((_g76629_ (##length _g76630_))) + (cond ((##fx= _g76629_ 1) + (apply (lambda (_stx76247_) (__AST-id-list?__0 _stx76247_)) + _g76630_)) + ((##fx= _g76629_ 2) + (apply (lambda (_stx76251_ _tail?76252_) + (__AST-id-list?__% _stx76251_ _tail?76252_)) + _g76630_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g76626_)))))) + _g76630_)))))) (define __AST-bind-list? - (lambda (_stx76193_) + (lambda (_stx76197_) (__AST-id-list?__% - _stx76193_ - (lambda (_e76195_) - (let ((_$e76197_ (__AST-null? _e76195_))) - (if _$e76197_ _$e76197_ (__AST-id? _e76195_))))))) + _stx76197_ + (lambda (_e76199_) + (let ((_$e76201_ (__AST-null? _e76199_))) + (if _$e76201_ _$e76201_ (__AST-id? _e76199_))))))) (define __AST-list?__% - (lambda (_stx76146_ _tail?76147_) - (let _lp76149_ ((_rest76151_ _stx76146_)) - (let* ((_$e76153_ _rest76151_) - (_$E7615576168_ + (lambda (_stx76150_ _tail?76151_) + (let _lp76153_ ((_rest76155_ _stx76150_)) + (let* ((_$e76157_ _rest76155_) + (_$E7615976172_ (lambda () - (let* ((_$E7615676163_ + (let* ((_$E7616076167_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76153_))) - (_rest76166_ _$e76153_)) - (_tail?76147_ _rest76166_))))) - (if (__AST-pair? _$e76153_) - (let* ((_$tgt7615776171_ (__AST-e _$e76153_)) - (_$hd7615876174_ (##car _$tgt7615776171_)) - (_$tl7615976177_ (##cdr _$tgt7615776171_))) - (let ((_rest76181_ _$tl7615976177_)) - (_lp76149_ _rest76181_))) - (_$E7615576168_)))))) + _$e76157_))) + (_rest76170_ _$e76157_)) + (_tail?76151_ _rest76170_))))) + (if (__AST-pair? _$e76157_) + (let* ((_$tgt7616176175_ (__AST-e _$e76157_)) + (_$hd7616276178_ (##car _$tgt7616176175_)) + (_$tl7616376181_ (##cdr _$tgt7616176175_))) + (let ((_rest76185_ _$tl7616376181_)) + (_lp76153_ _rest76185_))) + (_$E7615976172_)))))) (define __AST-list?__0 - (lambda (_stx76186_) - (let ((_tail?76188_ __AST-null?)) - (__AST-list?__% _stx76186_ _tail?76188_)))) + (lambda (_stx76190_) + (let ((_tail?76192_ __AST-null?)) + (__AST-list?__% _stx76190_ _tail?76192_)))) (define __AST-list? - (lambda _g76628_ - (let ((_g76627_ (##length _g76628_))) - (cond ((##fx= _g76627_ 1) - (apply (lambda (_stx76186_) (__AST-list?__0 _stx76186_)) - _g76628_)) - ((##fx= _g76627_ 2) - (apply (lambda (_stx76190_ _tail?76191_) - (__AST-list?__% _stx76190_ _tail?76191_)) - _g76628_)) + (lambda _g76632_ + (let ((_g76631_ (##length _g76632_))) + (cond ((##fx= _g76631_ 1) + (apply (lambda (_stx76190_) (__AST-list?__0 _stx76190_)) + _g76632_)) + ((##fx= _g76631_ 2) + (apply (lambda (_stx76194_ _tail?76195_) + (__AST-list?__% _stx76194_ _tail?76195_)) + _g76632_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g76628_)))))) + _g76632_)))))) (define __AST->list - (lambda (_stx76111_) - (let* ((_$e76113_ _stx76111_) - (_$E7611576128_ + (lambda (_stx76115_) + (let* ((_$e76117_ _stx76115_) + (_$E7611976132_ (lambda () - (let* ((_$E7611676123_ + (let* ((_$E7612076127_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76113_))) - (_rest76126_ _$e76113_)) - (__AST-e _rest76126_))))) - (if (__AST-pair? _$e76113_) - (let* ((_$tgt7611776131_ (__AST-e _$e76113_)) - (_$hd7611876134_ (##car _$tgt7611776131_)) - (_$tl7611976137_ (##cdr _$tgt7611776131_))) - (let* ((_hd76141_ _$hd7611876134_) - (_rest76143_ _$tl7611976137_)) - (cons _hd76141_ (__AST->list _rest76143_)))) - (_$E7611576128_))))) + _$e76117_))) + (_rest76130_ _$e76117_)) + (__AST-e _rest76130_))))) + (if (__AST-pair? _$e76117_) + (let* ((_$tgt7612176135_ (__AST-e _$e76117_)) + (_$hd7612276138_ (##car _$tgt7612176135_)) + (_$tl7612376141_ (##cdr _$tgt7612176135_))) + (let* ((_hd76145_ _$hd7612276138_) + (_rest76147_ _$tl7612376141_)) + (cons _hd76145_ (__AST->list _rest76147_)))) + (_$E7611976132_))))) (define __AST->datum - (lambda (_stx76109_) - (if (##structure-instance-of? _stx76109_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx76109_)) - (if (pair? _stx76109_) - (cons (__AST->datum (car _stx76109_)) - (__AST->datum (cdr _stx76109_))) - (if (vector? _stx76109_) - (vector-map __AST->datum _stx76109_) - (if (box? _stx76109_) - (box (__AST->datum (unbox _stx76109_))) - _stx76109_)))))) + (lambda (_stx76113_) + (if (##structure-instance-of? _stx76113_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx76113_)) + (if (pair? _stx76113_) + (cons (__AST->datum (car _stx76113_)) + (__AST->datum (cdr _stx76113_))) + (if (vector? _stx76113_) + (vector-map __AST->datum _stx76113_) + (if (box? _stx76113_) + (box (__AST->datum (unbox _stx76113_))) + _stx76113_)))))) (define get-readenv - (lambda (_port76107_) + (lambda (_port76111_) (##make-readenv - _port76107_ + _port76111_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -409,83 +409,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in76095_) - (let ((_e76097_ (##read-datum-or-eof (get-readenv _in76095_)))) - (if (eof-object? (__AST-e _e76097_)) (__AST-e _e76097_) _e76097_)))) + (lambda (_in76099_) + (let ((_e76101_ (##read-datum-or-eof (get-readenv _in76099_)))) + (if (eof-object? (__AST-e _e76101_)) (__AST-e _e76101_) _e76101_)))) (define read-syntax__0 (lambda () - (let ((_in76103_ (current-input-port))) (read-syntax__% _in76103_)))) + (let ((_in76107_ (current-input-port))) (read-syntax__% _in76107_)))) (define read-syntax - (lambda _g76630_ - (let ((_g76629_ (##length _g76630_))) - (cond ((##fx= _g76629_ 0) - (apply (lambda () (read-syntax__0)) _g76630_)) - ((##fx= _g76629_ 1) - (apply (lambda (_in76105_) (read-syntax__% _in76105_)) - _g76630_)) + (lambda _g76634_ + (let ((_g76633_ (##length _g76634_))) + (cond ((##fx= _g76633_ 0) + (apply (lambda () (read-syntax__0)) _g76634_)) + ((##fx= _g76633_ 1) + (apply (lambda (_in76109_) (read-syntax__% _in76109_)) + _g76634_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g76630_)))))) + _g76634_)))))) (define read-syntax-from-file - (lambda (_path76090_) - (let ((_r76092_ + (lambda (_path76094_) + (let ((_r76096_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path76090_) + (path-normalize _path76094_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r76092_) - (cdr (__AST-e (vector-ref _r76092_ '1))) - (error (err-code->string _r76092_) _path76090_))))) + (if (vector? _r76096_) + (cdr (__AST-e (vector-ref _r76096_ '1))) + (error (err-code->string _r76096_) _path76094_))))) (define __wrap-syntax - (lambda (_re76087_ _e76088_) - (if (eof-object? _e76088_) - _e76088_ - (##structure AST::t _e76088_ (##readenv->locat _re76087_))))) - (define __unwrap-syntax (lambda (_re76084_ _e76085_) (__AST-e _e76085_))) - (define __pp-syntax (lambda (_stx76082_) (pp (__AST->datum _stx76082_)))) + (lambda (_re76091_ _e76092_) + (if (eof-object? _e76092_) + _e76092_ + (##structure AST::t _e76092_ (##readenv->locat _re76091_))))) + (define __unwrap-syntax (lambda (_re76088_ _e76089_) (__AST-e _e76089_))) + (define __pp-syntax (lambda (_stx76086_) (pp (__AST->datum _stx76086_)))) (define __make-readtable (lambda () - (let ((_rt76080_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt76080_ '#t) - (macro-readtable-bracket-handler-set! _rt76080_ '@list) - (macro-readtable-brace-handler-set! _rt76080_ '@method) + (let ((_rt76084_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt76084_ '#t) + (macro-readtable-bracket-handler-set! _rt76084_ '@list) + (macro-readtable-brace-handler-set! _rt76084_ '@method) (##readtable-char-sharp-handler-set! - _rt76080_ + _rt76084_ '#\! __read-sharp-bang) - _rt76080_))) + _rt76084_))) (define __readtable-bracket-keyword-set! - (lambda (_rt76076_ _kw76077_) - (macro-readtable-bracket-handler-set! _rt76076_ _kw76077_))) + (lambda (_rt76080_ _kw76081_) + (macro-readtable-bracket-handler-set! _rt76080_ _kw76081_))) (define __readtable-brace-keyword-set! - (lambda (_rt76073_ _kw76074_) - (macro-readtable-brace-handler-set! _rt76073_ _kw76074_))) + (lambda (_rt76077_ _kw76078_) + (macro-readtable-brace-handler-set! _rt76077_ _kw76078_))) (define __read-sharp-bang - (lambda (_re76064_ _next76065_ _start-pos76066_) - (if (eq? _start-pos76066_ '0) - (let* ((_line76068_ + (lambda (_re76068_ _next76069_ _start-pos76070_) + (if (eq? _start-pos76070_ '0) + (let* ((_line76072_ (##read-line - (macro-readenv-port _re76064_) + (macro-readenv-port _re76068_) '#\newline '#f ##max-fixnum)) - (_script-line76070_ - (substring _line76068_ '1 (string-length _line76068_)))) - (macro-readenv-script-line-set! _re76064_ _script-line76070_) + (_script-line76074_ + (substring _line76072_ '1 (string-length _line76072_)))) + (macro-readenv-script-line-set! _re76068_ _script-line76074_) (##script-marker)) - (##read-sharp-bang _re76064_ _next76065_ _start-pos76066_)))) + (##read-sharp-bang _re76068_ _next76069_ _start-pos76070_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj76062_) - (if (source-location? _obj76062_) - (string? (##locat-container _obj76062_)) + (lambda (_obj76066_) + (if (source-location? _obj76066_) + (string? (##locat-container _obj76066_)) '#f))) (define source-location-path - (lambda (_obj76060_) - (if (##locat? _obj76060_) - (##container->path (##locat-container _obj76060_)) + (lambda (_obj76064_) + (if (##locat? _obj76064_) + (##container->path (##locat-container _obj76064_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index 93d7c9d79..f42d7d57c 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]#_g76735_| + (define |[1]#_g76739_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g76743_| + (define |[1]#_g76747_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g76745_| + (define |[1]#_g76749_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g76747_| + (define |[1]#_g76751_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g76749_| + (define |[1]#_g76753_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g76758_| + (define |[1]#_g76762_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g76761_| + (define |[1]#_g76765_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g76764_| + (define |[1]#_g76768_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g76767_| + (define |[1]#_g76771_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g76770_| + (define |[1]#_g76774_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g76773_| + (define |[1]#_g76777_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g76782_| + (define |[1]#_g76786_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76785_| + (define |[1]#_g76789_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76788_| + (define |[1]#_g76792_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76791_| + (define |[1]#_g76795_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76794_| + (define |[1]#_g76798_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76797_| + (define |[1]#_g76801_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76806_| + (define |[1]#_g76810_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g76809_| + (define |[1]#_g76813_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g76812_| + (define |[1]#_g76816_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g76815_| + (define |[1]#_g76819_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g76818_| + (define |[1]#_g76822_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g76821_| + (define |[1]#_g76825_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g76830_| + (define |[1]#_g76834_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76833_| + (define |[1]#_g76837_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76836_| + (define |[1]#_g76840_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76839_| + (define |[1]#_g76843_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76842_| + (define |[1]#_g76846_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76845_| + (define |[1]#_g76849_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76847_| + (define |[1]#_g76851_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g76849_| + (define |[1]#_g76853_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g76851_| + (define |[1]#_g76855_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g76856_| + (define |[1]#_g76860_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g76859_| + (define |[1]#_g76863_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g76864_| + (define |[1]#_g76868_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76867_| + (define |[1]#_g76871_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76872_| + (define |[1]#_g76876_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g76875_| + (define |[1]#_g76879_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g76880_| + (define |[1]#_g76884_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76883_| + (define |[1]#_g76887_| (##structure gx#syntax-quote::t '&AST-e-set! @@ -282,1165 +282,1165 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx74949_) - (let* ((_g7495374977_ - (lambda (_g7495474973_) + (lambda (_$stx74953_) + (let* ((_g7495774981_ + (lambda (_g7495874977_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7495474973_))) - (_g7495275063_ - (lambda (_g7495474981_) - (if (gx#stx-pair? _g7495474981_) - (let ((_e7495974984_ (gx#syntax-e _g7495474981_))) - (let ((_hd7495874988_ + _g7495874977_))) + (_g7495675067_ + (lambda (_g7495874985_) + (if (gx#stx-pair? _g7495874985_) + (let ((_e7496374988_ (gx#syntax-e _g7495874985_))) + (let ((_hd7496274992_ (let () (declare (not safe)) - (##car _e7495974984_))) - (_tl7495774991_ + (##car _e7496374988_))) + (_tl7496174995_ (let () (declare (not safe)) - (##cdr _e7495974984_)))) - (if (gx#stx-pair? _tl7495774991_) - (let ((_e7496274994_ - (gx#syntax-e _tl7495774991_))) - (let ((_hd7496174998_ + (##cdr _e7496374988_)))) + (if (gx#stx-pair? _tl7496174995_) + (let ((_e7496674998_ + (gx#syntax-e _tl7496174995_))) + (let ((_hd7496575002_ (let () (declare (not safe)) - (##car _e7496274994_))) - (_tl7496075001_ + (##car _e7496674998_))) + (_tl7496475005_ (let () (declare (not safe)) - (##cdr _e7496274994_)))) - (if (gx#stx-pair/null? _tl7496075001_) - (let ((_g76631_ + (##cdr _e7496674998_)))) + (if (gx#stx-pair/null? _tl7496475005_) + (let ((_g76635_ (gx#syntax-split-splice - _tl7496075001_ + _tl7496475005_ '0))) (begin - (let ((_g76632_ + (let ((_g76636_ (let () (declare (not safe)) - (if (##values? _g76631_) + (if (##values? _g76635_) (##vector-length - _g76631_) + _g76635_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g76632_ 2))) + (##fx= _g76636_ 2))) (error "Context expects 2 values" - _g76632_))) - (let ((_target7496375004_ + _g76636_))) + (let ((_target7496775008_ (let () (declare (not safe)) - (##vector-ref _g76631_ 0))) - (_tl7496575007_ + (##vector-ref _g76635_ 0))) + (_tl7496975011_ (let () (declare (not safe)) - (##vector-ref _g76631_ 1)))) - (if (gx#stx-null? _tl7496575007_) - (letrec ((_loop7496675010_ - (lambda (_hd7496475014_ + (##vector-ref _g76635_ 1)))) + (if (gx#stx-null? _tl7496975011_) + (letrec ((_loop7497075014_ + (lambda (_hd7496875018_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body7497075017_) - (if (gx#stx-pair? _hd7496475014_) - (let ((_e7496775020_ (gx#syntax-e _hd7496475014_))) - (let ((_lp-hd7496875024_ + _body7497475021_) + (if (gx#stx-pair? _hd7496875018_) + (let ((_e7497175024_ (gx#syntax-e _hd7496875018_))) + (let ((_lp-hd7497275028_ (let () (declare (not safe)) - (##car _e7496775020_))) - (_lp-tl7496975027_ + (##car _e7497175024_))) + (_lp-tl7497375031_ (let () (declare (not safe)) - (##cdr _e7496775020_)))) - (_loop7496675010_ - _lp-tl7496975027_ + (##cdr _e7497175024_)))) + (_loop7497075014_ + _lp-tl7497375031_ (let () (declare (not safe)) - (cons _lp-hd7496875024_ _body7497075017_))))) - (let ((_body7497175030_ (reverse _body7497075017_))) - ((lambda (_L75034_ _L75036_) - (let ((__tmp76644 (gx#datum->syntax '#f 'let)) - (__tmp76633 - (let ((__tmp76641 - (let ((__tmp76643 + (cons _lp-hd7497275028_ _body7497475021_))))) + (let ((_body7497575034_ (reverse _body7497475021_))) + ((lambda (_L75038_ _L75040_) + (let ((__tmp76648 (gx#datum->syntax '#f 'let)) + (__tmp76637 + (let ((__tmp76645 + (let ((__tmp76647 (gx#datum->syntax '#f '$e)) - (__tmp76642 + (__tmp76646 (let () (declare (not safe)) - (cons _L75036_ '())))) + (cons _L75040_ '())))) (declare (not safe)) - (cons __tmp76643 __tmp76642))) - (__tmp76634 - (let ((__tmp76635 - (let ((__tmp76640 + (cons __tmp76647 __tmp76646))) + (__tmp76638 + (let ((__tmp76639 + (let ((__tmp76644 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp76636 - (let ((__tmp76639 + (__tmp76640 + (let ((__tmp76643 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp76637 - (let ((__tmp76638 - (lambda (_g7505475057_ _g7505575060_) + (__tmp76641 + (let ((__tmp76642 + (lambda (_g7505875061_ _g7505975064_) (let () (declare (not safe)) - (cons _g7505475057_ _g7505575060_))))) + (cons _g7505875061_ _g7505975064_))))) (declare (not safe)) - (foldr1 __tmp76638 '() _L75034_)))) + (foldr1 __tmp76642 '() _L75038_)))) (declare (not safe)) - (cons __tmp76639 __tmp76637)))) + (cons __tmp76643 __tmp76641)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76640 - __tmp76636)))) + (cons __tmp76644 + __tmp76640)))) (declare (not safe)) - (cons __tmp76635 '())))) + (cons __tmp76639 '())))) (declare (not safe)) - (cons __tmp76641 __tmp76634)))) + (cons __tmp76645 __tmp76638)))) (declare (not safe)) - (cons __tmp76644 __tmp76633))) - _body7497175030_ - _hd7496174998_)))))) + (cons __tmp76648 __tmp76637))) + _body7497575034_ + _hd7496575002_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7496675010_ - _target7496375004_ + (_loop7497075014_ + _target7496775008_ '())) - (_g7495374977_ - _g7495474981_))))) - (_g7495374977_ _g7495474981_)))) - (_g7495374977_ _g7495474981_)))) - (_g7495374977_ _g7495474981_))))) - (_g7495275063_ _$stx74949_)))) + (_g7495774981_ + _g7495874985_))))) + (_g7495774981_ _g7495874985_)))) + (_g7495774981_ _g7495874985_)))) + (_g7495774981_ _g7495874985_))))) + (_g7495675067_ _$stx74953_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx75068_) - (letrec ((_generate175071_ - (lambda (_hd75612_ _tgt75614_ _K75615_ _E75616_ _kws75617_) - (let* ((_g7561975627_ - (lambda (_g7562075623_) + (lambda (_stx75072_) + (letrec ((_generate175075_ + (lambda (_hd75616_ _tgt75618_ _K75619_ _E75620_ _kws75621_) + (let* ((_g7562375631_ + (lambda (_g7562475627_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7562075623_))) - (_g7561876054_ - (lambda (_g7562075631_) - ((lambda (_L75634_) + _g7562475627_))) + (_g7562276058_ + (lambda (_g7562475635_) + ((lambda (_L75638_) (let () - (let* ((___stx7653176532_ _hd75612_) - (_g7564875662_ + (let* ((___stx7653576536_ _hd75616_) + (_g7565275666_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7653176532_)))) - (let ((___kont7653476535_ - (lambda (_L75876_ _L75878_) - (let* ((_g7588975897_ - (lambda (_g7589075893_) + ___stx7653576536_)))) + (let ((___kont7653876539_ + (lambda (_L75880_ _L75882_) + (let* ((_g7589375901_ + (lambda (_g7589475897_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7589075893_))) - (_g7588876046_ - (lambda (_g7589075901_) - ((lambda (_L75904_) + _g7589475897_))) + (_g7589276050_ + (lambda (_g7589475905_) + ((lambda (_L75908_) (let () - (let* ((_g7591675924_ + (let* ((_g7592075928_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7591775920_) + (lambda (_g7592175924_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7591775920_))) - (_g7591576042_ - (lambda (_g7591775928_) - ((lambda (_L75931_) + _g7592175924_))) + (_g7591976046_ + (lambda (_g7592175932_) + ((lambda (_L75935_) (let () - (let* ((_g7594475952_ - (lambda (_g7594575948_) + (let* ((_g7594875956_ + (lambda (_g7594975952_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7594575948_))) - (_g7594376038_ - (lambda (_g7594575956_) - ((lambda (_L75959_) + _g7594975952_))) + (_g7594776042_ + (lambda (_g7594975960_) + ((lambda (_L75963_) (let () - (let* ((_g7597275980_ - (lambda (_g7597375976_) + (let* ((_g7597675984_ + (lambda (_g7597775980_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7597375976_))) - (_g7597176034_ - (lambda (_g7597375984_) - ((lambda (_L75987_) + _g7597775980_))) + (_g7597576038_ + (lambda (_g7597775988_) + ((lambda (_L75991_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g7600076008_ - (lambda (_g7600176004_) + (let* ((_g7600476012_ + (lambda (_g7600576008_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7600176004_))) - (_g7599976030_ - (lambda (_g7600176012_) - ((lambda (_L76015_) + _g7600576008_))) + (_g7600376034_ + (lambda (_g7600576016_) + ((lambda (_L76019_) (let () (let () - (let ((__tmp76673 + (let ((__tmp76677 (gx#datum->syntax '#f 'if)) - (__tmp76645 - (let ((__tmp76670 - (let ((__tmp76672 + (__tmp76649 + (let ((__tmp76674 + (let ((__tmp76676 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp76671 - (let () (declare (not safe)) (cons _L75634_ '())))) + (__tmp76675 + (let () (declare (not safe)) (cons _L75638_ '())))) (declare (not safe)) - (cons __tmp76672 __tmp76671))) - (__tmp76646 - (let ((__tmp76648 - (let ((__tmp76669 (gx#datum->syntax '#f 'let*)) - (__tmp76649 - (let ((__tmp76651 - (let ((__tmp76664 - (let ((__tmp76665 - (let ((__tmp76666 - (let ((__tmp76668 + (cons __tmp76676 __tmp76675))) + (__tmp76650 + (let ((__tmp76652 + (let ((__tmp76673 (gx#datum->syntax '#f 'let*)) + (__tmp76653 + (let ((__tmp76655 + (let ((__tmp76668 + (let ((__tmp76669 + (let ((__tmp76670 + (let ((__tmp76672 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp76667 - (let () (declare (not safe)) (cons _L75634_ '())))) + (__tmp76671 + (let () (declare (not safe)) (cons _L75638_ '())))) (declare (not safe)) - (cons __tmp76668 __tmp76667)))) + (cons __tmp76672 __tmp76671)))) (declare (not safe)) - (cons __tmp76666 '())))) + (cons __tmp76670 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L75904_ __tmp76665))) - (__tmp76652 - (let ((__tmp76659 - (let ((__tmp76660 - (let ((__tmp76661 + (cons _L75908_ __tmp76669))) + (__tmp76656 + (let ((__tmp76663 + (let ((__tmp76664 + (let ((__tmp76665 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp76663 (gx#datum->syntax '#f '##car)) - (__tmp76662 + (let ((__tmp76667 (gx#datum->syntax '#f '##car)) + (__tmp76666 (let () (declare (not safe)) - (cons _L75904_ '())))) + (cons _L75908_ '())))) (declare (not safe)) - (cons __tmp76663 __tmp76662)))) + (cons __tmp76667 __tmp76666)))) (declare (not safe)) - (cons __tmp76661 '())))) + (cons __tmp76665 '())))) (declare (not safe)) - (cons _L75931_ __tmp76660))) + (cons _L75935_ __tmp76664))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp76653 - (let ((__tmp76654 - (let ((__tmp76655 + (__tmp76657 + (let ((__tmp76658 + (let ((__tmp76659 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp76656 - (let ((__tmp76658 + (let ((__tmp76660 + (let ((__tmp76662 (gx#datum->syntax '#f '##cdr)) - (__tmp76657 + (__tmp76661 (let () (declare (not safe)) - (cons _L75904_ '())))) + (cons _L75908_ '())))) (declare (not safe)) - (cons __tmp76658 __tmp76657)))) + (cons __tmp76662 __tmp76661)))) (declare (not safe)) - (cons __tmp76656 '())))) + (cons __tmp76660 '())))) (declare (not safe)) - (cons _L75959_ __tmp76655)))) + (cons _L75963_ __tmp76659)))) (declare (not safe)) - (cons __tmp76654 '())))) + (cons __tmp76658 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76659 __tmp76653)))) + (cons __tmp76663 __tmp76657)))) (declare (not safe)) - (cons __tmp76664 __tmp76652))) - (__tmp76650 + (cons __tmp76668 __tmp76656))) + (__tmp76654 (let () (declare (not safe)) - (cons _L75987_ '())))) + (cons _L75991_ '())))) (declare (not safe)) - (cons __tmp76651 __tmp76650)))) + (cons __tmp76655 __tmp76654)))) (declare (not safe)) - (cons __tmp76669 __tmp76649))) - (__tmp76647 - (let () (declare (not safe)) (cons _L76015_ '())))) + (cons __tmp76673 __tmp76653))) + (__tmp76651 + (let () (declare (not safe)) (cons _L76019_ '())))) (declare (not safe)) - (cons __tmp76648 __tmp76647)))) + (cons __tmp76652 __tmp76651)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76670 - __tmp76646)))) + (cons __tmp76674 + __tmp76650)))) (declare (not safe)) - (cons __tmp76673 __tmp76645))))) - _g7600176012_)))) - (_g7599976030_ _E75616_)))) - _g7597375984_)))) + (cons __tmp76677 __tmp76649))))) + _g7600576016_)))) + (_g7600376034_ _E75620_)))) + _g7597775988_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7597176034_ - (_generate175071_ - _L75878_ - _L75931_ - (_generate175071_ - _L75876_ - _L75959_ - _K75615_ - _E75616_ - _kws75617_) - _E75616_ - _kws75617_))))) - _g7594575956_)))) - (_g7594376038_ (gx#genident '$tl))))) - _g7591775928_)))) - (_g7591576042_ (gx#genident '$hd))))) - _g7589075901_)))) + (_g7597576038_ + (_generate175075_ + _L75882_ + _L75935_ + (_generate175075_ + _L75880_ + _L75963_ + _K75619_ + _E75620_ + _kws75621_) + _E75620_ + _kws75621_))))) + _g7594975960_)))) + (_g7594776042_ (gx#genident '$tl))))) + _g7592175932_)))) + (_g7591976046_ (gx#genident '$hd))))) + _g7589475905_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7588876046_ + (_g7589276050_ (gx#genident '$tgt))))) - (___kont7653676537_ - (lambda (_L75751_) - (if (gx#underscore? _L75751_) - _K75615_ - (if (let ((__tmp76702 - (lambda (_g7575975761_) + (___kont7654076541_ + (lambda (_L75755_) + (if (gx#underscore? _L75755_) + _K75619_ + (if (let ((__tmp76706 + (lambda (_g7576375765_) (gx#bound-identifier=? - _g7575975761_ - _L75751_))) - (__tmp76701 + _g7576375765_ + _L75755_))) + (__tmp76705 (gx#syntax->list - _kws75617_))) + _kws75621_))) (declare (not safe)) - (find __tmp76702 - __tmp76701)) - (let* ((_g7576575780_ - (lambda (_g7576675776_) + (find __tmp76706 + __tmp76705)) + (let* ((_g7576975784_ + (lambda (_g7577075780_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g7576675776_))) - (_g7576475825_ - (lambda (_g7576675784_) - (if (gx#stx-pair? _g7576675784_) - (let ((_e7577175787_ (gx#syntax-e _g7576675784_))) - (let ((_hd7577075791_ + _g7577075780_))) + (_g7576875829_ + (lambda (_g7577075788_) + (if (gx#stx-pair? _g7577075788_) + (let ((_e7577575791_ (gx#syntax-e _g7577075788_))) + (let ((_hd7577475795_ (let () (declare (not safe)) - (##car _e7577175787_))) - (_tl7576975794_ + (##car _e7577575791_))) + (_tl7577375798_ (let () (declare (not safe)) - (##cdr _e7577175787_)))) - (if (gx#stx-pair? _tl7576975794_) - (let ((_e7577475797_ - (gx#syntax-e _tl7576975794_))) - (let ((_hd7577375801_ + (##cdr _e7577575791_)))) + (if (gx#stx-pair? _tl7577375798_) + (let ((_e7577875801_ + (gx#syntax-e _tl7577375798_))) + (let ((_hd7577775805_ (let () (declare (not safe)) - (##car _e7577475797_))) - (_tl7577275804_ + (##car _e7577875801_))) + (_tl7577675808_ (let () (declare (not safe)) - (##cdr _e7577475797_)))) - (if (gx#stx-null? _tl7577275804_) - ((lambda (_L75807_ _L75809_) + (##cdr _e7577875801_)))) + (if (gx#stx-null? _tl7577675808_) + ((lambda (_L75811_ _L75813_) (let () - (let ((__tmp76700 + (let ((__tmp76704 (gx#datum->syntax '#f 'if)) - (__tmp76680 - (let ((__tmp76683 - (let ((__tmp76699 + (__tmp76684 + (let ((__tmp76687 + (let ((__tmp76703 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp76684 - (let ((__tmp76696 - (let ((__tmp76698 + (__tmp76688 + (let ((__tmp76700 + (let ((__tmp76702 (gx#datum->syntax '#f '__AST-id?)) - (__tmp76697 + (__tmp76701 (let () (declare (not safe)) - (cons _L75634_ '())))) + (cons _L75638_ '())))) (declare (not safe)) - (cons __tmp76698 __tmp76697))) - (__tmp76685 - (let ((__tmp76686 - (let ((__tmp76695 + (cons __tmp76702 __tmp76701))) + (__tmp76689 + (let ((__tmp76690 + (let ((__tmp76699 (gx#datum->syntax '#f 'eq?)) - (__tmp76687 - (let ((__tmp76692 - (let ((__tmp76694 + (__tmp76691 + (let ((__tmp76696 + (let ((__tmp76698 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp76693 - (let () (declare (not safe)) (cons _L75634_ '())))) + (__tmp76697 + (let () (declare (not safe)) (cons _L75638_ '())))) (declare (not safe)) - (cons __tmp76694 __tmp76693))) - (__tmp76688 - (let ((__tmp76689 - (let ((__tmp76691 (gx#datum->syntax '#f 'quote)) - (__tmp76690 + (cons __tmp76698 __tmp76697))) + (__tmp76692 + (let ((__tmp76693 + (let ((__tmp76695 (gx#datum->syntax '#f 'quote)) + (__tmp76694 (let () (declare (not safe)) - (cons _L75751_ '())))) + (cons _L75755_ '())))) (declare (not safe)) - (cons __tmp76691 __tmp76690)))) + (cons __tmp76695 __tmp76694)))) (declare (not safe)) - (cons __tmp76689 '())))) + (cons __tmp76693 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76692 - __tmp76688)))) + (cons __tmp76696 + __tmp76692)))) (declare (not safe)) - (cons __tmp76695 __tmp76687)))) + (cons __tmp76699 __tmp76691)))) (declare (not safe)) - (cons __tmp76686 '())))) + (cons __tmp76690 '())))) (declare (not safe)) - (cons __tmp76696 __tmp76685)))) + (cons __tmp76700 __tmp76689)))) (declare (not safe)) - (cons __tmp76699 __tmp76684))) - (__tmp76681 - (let ((__tmp76682 + (cons __tmp76703 __tmp76688))) + (__tmp76685 + (let ((__tmp76686 (let () (declare (not safe)) - (cons _L75807_ '())))) + (cons _L75811_ '())))) (declare (not safe)) - (cons _L75809_ __tmp76682)))) + (cons _L75813_ __tmp76686)))) (declare (not safe)) - (cons __tmp76683 __tmp76681)))) + (cons __tmp76687 __tmp76685)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76700 - __tmp76680)))) - _hd7577375801_ - _hd7577075791_) - (_g7576575780_ _g7576675784_)))) - (_g7576575780_ _g7576675784_)))) - (_g7576575780_ _g7576675784_))))) - (_g7576475825_ (list _K75615_ _E75616_))) - (let* ((_g7582975837_ - (lambda (_g7583075833_) + (cons __tmp76704 + __tmp76684)))) + _hd7577775805_ + _hd7577475795_) + (_g7576975784_ _g7577075788_)))) + (_g7576975784_ _g7577075788_)))) + (_g7576975784_ _g7577075788_))))) + (_g7576875829_ (list _K75619_ _E75620_))) + (let* ((_g7583375841_ + (lambda (_g7583475837_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7583075833_))) - (_g7582875855_ - (lambda (_g7583075841_) - ((lambda (_L75844_) + _g7583475837_))) + (_g7583275859_ + (lambda (_g7583475845_) + ((lambda (_L75848_) (let () - (let ((__tmp76679 (gx#datum->syntax '#f 'let)) - (__tmp76674 - (let ((__tmp76676 - (let ((__tmp76677 - (let ((__tmp76678 + (let ((__tmp76683 (gx#datum->syntax '#f 'let)) + (__tmp76678 + (let ((__tmp76680 + (let ((__tmp76681 + (let ((__tmp76682 (let () (declare (not safe)) - (cons _L75634_ + (cons _L75638_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L75751_ - __tmp76678)))) + (cons _L75755_ + __tmp76682)))) (declare (not safe)) - (cons __tmp76677 '()))) - (__tmp76675 + (cons __tmp76681 '()))) + (__tmp76679 (let () (declare (not safe)) - (cons _L75844_ '())))) + (cons _L75848_ '())))) (declare (not safe)) - (cons __tmp76676 __tmp76675)))) + (cons __tmp76680 __tmp76679)))) (declare (not safe)) - (cons __tmp76679 __tmp76674)))) - _g7583075841_)))) - (_g7582875855_ _K75615_)))))) + (cons __tmp76683 __tmp76678)))) + _g7583475845_)))) + (_g7583275859_ _K75619_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont7653876539_ - (lambda (_L75669_) - (let* ((_g7568075695_ - (lambda (_g7568175691_) + (___kont7654276543_ + (lambda (_L75673_) + (let* ((_g7568475699_ + (lambda (_g7568575695_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7568175691_))) - (_g7567975740_ - (lambda (_g7568175699_) + _g7568575695_))) + (_g7568375744_ + (lambda (_g7568575703_) (if (gx#stx-pair? - _g7568175699_) - (let ((_e7568675702_ + _g7568575703_) + (let ((_e7569075706_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g7568175699_))) - (let ((_hd7568575706_ + (gx#syntax-e _g7568575703_))) + (let ((_hd7568975710_ (let () (declare (not safe)) - (##car _e7568675702_))) - (_tl7568475709_ + (##car _e7569075706_))) + (_tl7568875713_ (let () (declare (not safe)) - (##cdr _e7568675702_)))) - (if (gx#stx-pair? _tl7568475709_) - (let ((_e7568975712_ (gx#syntax-e _tl7568475709_))) - (let ((_hd7568875716_ + (##cdr _e7569075706_)))) + (if (gx#stx-pair? _tl7568875713_) + (let ((_e7569375716_ (gx#syntax-e _tl7568875713_))) + (let ((_hd7569275720_ (let () (declare (not safe)) - (##car _e7568975712_))) - (_tl7568775719_ + (##car _e7569375716_))) + (_tl7569175723_ (let () (declare (not safe)) - (##cdr _e7568975712_)))) - (if (gx#stx-null? _tl7568775719_) - ((lambda (_L75722_ _L75724_) + (##cdr _e7569375716_)))) + (if (gx#stx-null? _tl7569175723_) + ((lambda (_L75726_ _L75728_) (let () - (let ((__tmp76716 + (let ((__tmp76720 (gx#datum->syntax '#f 'if)) - (__tmp76703 - (let ((__tmp76706 - (let ((__tmp76715 + (__tmp76707 + (let ((__tmp76710 + (let ((__tmp76719 (gx#datum->syntax '#f 'equal?)) - (__tmp76707 - (let ((__tmp76712 + (__tmp76711 + (let ((__tmp76716 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp76714 (gx#datum->syntax '#f '__AST-e)) - (__tmp76713 + (let ((__tmp76718 (gx#datum->syntax '#f '__AST-e)) + (__tmp76717 (let () (declare (not safe)) - (cons _L75634_ '())))) + (cons _L75638_ '())))) (declare (not safe)) - (cons __tmp76714 __tmp76713))) - (__tmp76708 - (let ((__tmp76709 - (let ((__tmp76711 + (cons __tmp76718 __tmp76717))) + (__tmp76712 + (let ((__tmp76713 + (let ((__tmp76715 (gx#datum->syntax '#f 'quote)) - (__tmp76710 + (__tmp76714 (let () (declare (not safe)) - (cons _L75669_ '())))) + (cons _L75673_ '())))) (declare (not safe)) - (cons __tmp76711 __tmp76710)))) + (cons __tmp76715 __tmp76714)))) (declare (not safe)) - (cons __tmp76709 '())))) + (cons __tmp76713 '())))) (declare (not safe)) - (cons __tmp76712 __tmp76708)))) + (cons __tmp76716 __tmp76712)))) (declare (not safe)) - (cons __tmp76715 __tmp76707))) - (__tmp76704 - (let ((__tmp76705 - (let () (declare (not safe)) (cons _L75722_ '())))) + (cons __tmp76719 __tmp76711))) + (__tmp76708 + (let ((__tmp76709 + (let () (declare (not safe)) (cons _L75726_ '())))) (declare (not safe)) - (cons _L75724_ __tmp76705)))) + (cons _L75728_ __tmp76709)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76706 - __tmp76704)))) + (cons __tmp76710 + __tmp76708)))) (declare (not safe)) - (cons __tmp76716 __tmp76703)))) - _hd7568875716_ - _hd7568575706_) - (_g7568075695_ _g7568175699_)))) - (_g7568075695_ _g7568175699_)))) - (_g7568075695_ _g7568175699_))))) + (cons __tmp76720 __tmp76707)))) + _hd7569275720_ + _hd7568975710_) + (_g7568475699_ _g7568575703_)))) + (_g7568475699_ _g7568575703_)))) + (_g7568475699_ _g7568575703_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7567975740_ - (list _K75615_ _E75616_)))))) - (let ((_g7564675859_ + (_g7568375744_ + (list _K75619_ _E75620_)))))) + (let ((_g7565075863_ (lambda () - (let ((_L75751_ - ___stx7653176532_)) - (if (gx#identifier? _L75751_) - (___kont7653676537_ - _L75751_) - (___kont7653876539_ - ___stx7653176532_)))))) - (if (gx#stx-pair? ___stx7653176532_) - (let ((_e7565475866_ + (let ((_L75755_ + ___stx7653576536_)) + (if (gx#identifier? _L75755_) + (___kont7654076541_ + _L75755_) + (___kont7654276543_ + ___stx7653576536_)))))) + (if (gx#stx-pair? ___stx7653576536_) + (let ((_e7565875870_ (gx#syntax-e - ___stx7653176532_))) - (let ((_tl7565275873_ + ___stx7653576536_))) + (let ((_tl7565675877_ (let () (declare (not safe)) - (##cdr _e7565475866_))) - (_hd7565375870_ + (##cdr _e7565875870_))) + (_hd7565775874_ (let () (declare (not safe)) - (##car _e7565475866_)))) - (___kont7653476535_ - _tl7565275873_ - _hd7565375870_))) + (##car _e7565875870_)))) + (___kont7653876539_ + _tl7565675877_ + _hd7565775874_))) (let () (declare (not safe)) - (_g7564675859_)))))))) - _g7562075631_)))) - (_g7561876054_ _tgt75614_))))) - (let* ((_g7507475102_ - (lambda (_g7507575098_) + (_g7565075863_)))))))) + _g7562475635_)))) + (_g7562276058_ _tgt75618_))))) + (let* ((_g7507875106_ + (lambda (_g7507975102_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7507575098_))) - (_g7507375608_ - (lambda (_g7507575106_) - (if (gx#stx-pair? _g7507575106_) - (let ((_e7508175109_ (gx#syntax-e _g7507575106_))) - (let ((_hd7508075113_ + _g7507975102_))) + (_g7507775612_ + (lambda (_g7507975110_) + (if (gx#stx-pair? _g7507975110_) + (let ((_e7508575113_ (gx#syntax-e _g7507975110_))) + (let ((_hd7508475117_ (let () (declare (not safe)) - (##car _e7508175109_))) - (_tl7507975116_ + (##car _e7508575113_))) + (_tl7508375120_ (let () (declare (not safe)) - (##cdr _e7508175109_)))) - (if (gx#stx-pair? _tl7507975116_) - (let ((_e7508475119_ - (gx#syntax-e _tl7507975116_))) - (let ((_hd7508375123_ + (##cdr _e7508575113_)))) + (if (gx#stx-pair? _tl7508375120_) + (let ((_e7508875123_ + (gx#syntax-e _tl7508375120_))) + (let ((_hd7508775127_ (let () (declare (not safe)) - (##car _e7508475119_))) - (_tl7508275126_ + (##car _e7508875123_))) + (_tl7508675130_ (let () (declare (not safe)) - (##cdr _e7508475119_)))) - (if (gx#stx-pair? _tl7508275126_) - (let ((_e7508775129_ - (gx#syntax-e _tl7508275126_))) - (let ((_hd7508675133_ + (##cdr _e7508875123_)))) + (if (gx#stx-pair? _tl7508675130_) + (let ((_e7509175133_ + (gx#syntax-e _tl7508675130_))) + (let ((_hd7509075137_ (let () (declare (not safe)) - (##car _e7508775129_))) - (_tl7508575136_ + (##car _e7509175133_))) + (_tl7508975140_ (let () (declare (not safe)) - (##cdr _e7508775129_)))) + (##cdr _e7509175133_)))) (if (gx#stx-pair/null? - _tl7508575136_) - (let ((_g76717_ + _tl7508975140_) + (let ((_g76721_ (gx#syntax-split-splice - _tl7508575136_ + _tl7508975140_ '0))) (begin - (let ((_g76718_ + (let ((_g76722_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g76717_) - (##vector-length _g76717_) + _g76721_) + (##vector-length _g76721_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g76718_ 2))) - (error "Context expects 2 values" _g76718_))) + (if (not (let () (declare (not safe)) (##fx= _g76722_ 2))) + (error "Context expects 2 values" _g76722_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target7508875139_ + (let ((_target7509275143_ (let () (declare (not safe)) (##vector-ref - _g76717_ + _g76721_ 0))) - (_tl7509075142_ + (_tl7509475146_ (let () (declare (not safe)) (##vector-ref - _g76717_ + _g76721_ 1)))) (if (gx#stx-null? - _tl7509075142_) - (letrec ((_loop7509175145_ + _tl7509475146_) + (letrec ((_loop7509575149_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd7508975149_ _clause7509575152_) - (if (gx#stx-pair? _hd7508975149_) - (let ((_e7509275155_ - (gx#syntax-e _hd7508975149_))) - (let ((_lp-hd7509375159_ + (lambda (_hd7509375153_ _clause7509975156_) + (if (gx#stx-pair? _hd7509375153_) + (let ((_e7509675159_ + (gx#syntax-e _hd7509375153_))) + (let ((_lp-hd7509775163_ (let () (declare (not safe)) - (##car _e7509275155_))) - (_lp-tl7509475162_ + (##car _e7509675159_))) + (_lp-tl7509875166_ (let () (declare (not safe)) - (##cdr _e7509275155_)))) - (_loop7509175145_ - _lp-tl7509475162_ + (##cdr _e7509675159_)))) + (_loop7509575149_ + _lp-tl7509875166_ (let () (declare (not safe)) - (cons _lp-hd7509375159_ - _clause7509575152_))))) - (let ((_clause7509675165_ - (reverse _clause7509575152_))) - ((lambda (_L75169_ _L75171_ _L75172_) - (let _recur75194_ ((_rest75197_ - (let ((__tmp76740 + (cons _lp-hd7509775163_ + _clause7509975156_))))) + (let ((_clause7510075169_ + (reverse _clause7509975156_))) + ((lambda (_L75173_ _L75175_ _L75176_) + (let _recur75198_ ((_rest75201_ + (let ((__tmp76744 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7559975602_ _g7560075605_) + (lambda (_g7560375606_ _g7560475609_) (let () (declare (not safe)) - (cons _g7559975602_ _g7560075605_))))) + (cons _g7560375606_ _g7560475609_))))) (declare (not safe)) - (foldr1 __tmp76740 '() _L75169_)))) + (foldr1 __tmp76744 '() _L75173_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest7519975208_ _rest75197_) - (_E7520275214_ + (let* ((_rest7520375212_ _rest75201_) + (_E7520675218_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest7519975208_))))) - (let ((_K7520475584_ - (lambda (_rest75230_ - _hd75232_) - (let* ((_g7523475242_ - (lambda (_g7523575238_) + _rest7520375212_))))) + (let ((_K7520875588_ + (lambda (_rest75234_ + _hd75236_) + (let* ((_g7523875246_ + (lambda (_g7523975242_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7523575238_))) - (_g7523375580_ - (lambda (_g7523575246_) - ((lambda (_L75249_) + _g7523975242_))) + (_g7523775584_ + (lambda (_g7523975250_) + ((lambda (_L75253_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g7526775275_ - (lambda (_g7526875271_) + (let* ((_g7527175279_ + (lambda (_g7527275275_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7526875271_))) - (_g7526675576_ - (lambda (_g7526875279_) - ((lambda (_L75282_) + _g7527275275_))) + (_g7527075580_ + (lambda (_g7527275283_) + ((lambda (_L75286_) (let () - (let* ((_g7529575303_ - (lambda (_g7529675299_) + (let* ((_g7529975307_ + (lambda (_g7530075303_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7529675299_))) - (_g7529475572_ - (lambda (_g7529675307_) - ((lambda (_L75310_) + _g7530075303_))) + (_g7529875576_ + (lambda (_g7530075311_) + ((lambda (_L75314_) (let () - (let* ((_g7532375331_ + (let* ((_g7532775335_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7532475327_) + (lambda (_g7532875331_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7532475327_))) - (_g7532275353_ - (lambda (_g7532475335_) - ((lambda (_L75338_) + _g7532875331_))) + (_g7532675357_ + (lambda (_g7532875339_) + ((lambda (_L75342_) (let () (let () - (let ((__tmp76727 + (let ((__tmp76731 (gx#datum->syntax '#f 'let)) - (__tmp76719 - (let ((__tmp76721 - (let ((__tmp76722 - (let ((__tmp76723 - (let ((__tmp76726 + (__tmp76723 + (let ((__tmp76725 + (let ((__tmp76726 + (let ((__tmp76727 + (let ((__tmp76730 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp76724 - (let ((__tmp76725 + (__tmp76728 + (let ((__tmp76729 (let () (declare (not safe)) - (cons _L75310_ '())))) + (cons _L75314_ '())))) (declare (not safe)) - (cons '() __tmp76725)))) + (cons '() __tmp76729)))) (declare (not safe)) - (cons __tmp76726 __tmp76724)))) + (cons __tmp76730 __tmp76728)))) (declare (not safe)) - (cons __tmp76723 '())))) + (cons __tmp76727 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L75249_ __tmp76722))) - (__tmp76720 + (cons _L75253_ __tmp76726))) + (__tmp76724 (let () (declare (not safe)) - (cons _L75338_ '())))) + (cons _L75342_ '())))) (declare (not safe)) - (cons __tmp76721 __tmp76720)))) + (cons __tmp76725 __tmp76724)))) (declare (not safe)) - (cons __tmp76727 __tmp76719))))) - _g7532475335_)))) - (_g7532275353_ - (let* ((___stx7654976550_ _hd75232_) - (_g7535975399_ + (cons __tmp76731 __tmp76723))))) + _g7532875339_)))) + (_g7532675357_ + (let* ((___stx7655376554_ _hd75236_) + (_g7536375403_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7654976550_)))) - (let ((___kont7655276553_ - (lambda (_L75545_) - (let ((__tmp76730 (gx#datum->syntax '#f 'begin)) - (__tmp76728 - (let ((__tmp76729 - (lambda (_g7555975562_ - _g7556075565_) + ___stx7655376554_)))) + (let ((___kont7655676557_ + (lambda (_L75549_) + (let ((__tmp76734 (gx#datum->syntax '#f 'begin)) + (__tmp76732 + (let ((__tmp76733 + (lambda (_g7556375566_ + _g7556475569_) (let () (declare (not safe)) - (cons _g7555975562_ - _g7556075565_))))) + (cons _g7556375566_ + _g7556475569_))))) (declare (not safe)) - (foldr1 __tmp76729 '() _L75545_)))) + (foldr1 __tmp76733 '() _L75549_)))) (declare (not safe)) - (cons __tmp76730 __tmp76728)))) - (___kont7655676557_ - (lambda (_L75483_ _L75485_) - (_generate175071_ - _L75485_ - _L75172_ - _L75483_ - _L75282_ - _L75171_))) - (___kont7655876559_ - (lambda (_L75436_ _L75438_ _L75439_) - (_generate175071_ - _L75439_ - _L75172_ - (let ((__tmp76734 (gx#datum->syntax '#f 'if)) - (__tmp76731 - (let ((__tmp76732 - (let ((__tmp76733 + (cons __tmp76734 __tmp76732)))) + (___kont7656076561_ + (lambda (_L75487_ _L75489_) + (_generate175075_ + _L75489_ + _L75176_ + _L75487_ + _L75286_ + _L75175_))) + (___kont7656276563_ + (lambda (_L75440_ _L75442_ _L75443_) + (_generate175075_ + _L75443_ + _L75176_ + (let ((__tmp76738 (gx#datum->syntax '#f 'if)) + (__tmp76735 + (let ((__tmp76736 + (let ((__tmp76737 (let () (declare (not safe)) - (cons _L75282_ '())))) + (cons _L75286_ '())))) (declare (not safe)) - (cons _L75436_ __tmp76733)))) + (cons _L75440_ __tmp76737)))) (declare (not safe)) - (cons _L75438_ __tmp76732)))) + (cons _L75442_ __tmp76736)))) (declare (not safe)) - (cons __tmp76734 __tmp76731)) - _L75282_ - _L75171_)))) - (let ((___match7657876579_ - (lambda (_e7536475505_ - _hd7536375509_ - _tl7536275512_ - ___splice7655476555_ - _target7536575515_ - _tl7536775518_) - (letrec ((_loop7536875521_ - (lambda (_hd7536675525_ - _expr7537275528_) - (if (gx#stx-pair? _hd7536675525_) - (let ((_e7536975531_ + (cons __tmp76738 __tmp76735)) + _L75286_ + _L75175_)))) + (let ((___match7658276583_ + (lambda (_e7536875509_ + _hd7536775513_ + _tl7536675516_ + ___splice7655876559_ + _target7536975519_ + _tl7537175522_) + (letrec ((_loop7537275525_ + (lambda (_hd7537075529_ + _expr7537675532_) + (if (gx#stx-pair? _hd7537075529_) + (let ((_e7537375535_ (gx#syntax-e - _hd7536675525_))) - (let ((_lp-tl7537175538_ + _hd7537075529_))) + (let ((_lp-tl7537575542_ (let () (declare (not safe)) - (##cdr _e7536975531_))) - (_lp-hd7537075535_ + (##cdr _e7537375535_))) + (_lp-hd7537475539_ (let () (declare (not safe)) - (##car _e7536975531_)))) - (_loop7536875521_ - _lp-tl7537175538_ + (##car _e7537375535_)))) + (_loop7537275525_ + _lp-tl7537575542_ (let () (declare (not safe)) - (cons _lp-hd7537075535_ - _expr7537275528_))))) - (let ((_expr7537375541_ - (reverse _expr7537275528_))) - (___kont7655276553_ - _expr7537375541_)))))) - (_loop7536875521_ - _target7536575515_ + (cons _lp-hd7537475539_ + _expr7537675532_))))) + (let ((_expr7537775545_ + (reverse _expr7537675532_))) + (___kont7655676557_ + _expr7537775545_)))))) + (_loop7537275525_ + _target7536975519_ '()))))) - (if (gx#stx-pair? ___stx7654976550_) - (let ((_e7536475505_ - (gx#syntax-e ___stx7654976550_))) - (let ((_tl7536275512_ + (if (gx#stx-pair? ___stx7655376554_) + (let ((_e7536875509_ + (gx#syntax-e ___stx7655376554_))) + (let ((_tl7536675516_ (let () (declare (not safe)) - (##cdr _e7536475505_))) - (_hd7536375509_ + (##cdr _e7536875509_))) + (_hd7536775513_ (let () (declare (not safe)) - (##car _e7536475505_)))) - (if (gx#identifier? _hd7536375509_) + (##car _e7536875509_)))) + (if (gx#identifier? _hd7536775513_) (if (gx#free-identifier=? - |[1]#_g76735_| - _hd7536375509_) + |[1]#_g76739_| + _hd7536775513_) (if (gx#stx-pair/null? - _tl7536275512_) - (let ((___splice7655476555_ + _tl7536675516_) + (let ((___splice7655876559_ (gx#syntax-split-splice - _tl7536275512_ + _tl7536675516_ '0))) - (let ((_tl7536775518_ + (let ((_tl7537175522_ (let () (declare (not safe)) (##vector-ref - ___splice7655476555_ + ___splice7655876559_ '1))) - (_target7536575515_ + (_target7536975519_ (let () (declare (not safe)) (##vector-ref - ___splice7655476555_ + ___splice7655876559_ '0)))) (if (gx#stx-null? - _tl7536775518_) - (___match7657876579_ - _e7536475505_ - _hd7536375509_ - _tl7536275512_ - ___splice7655476555_ - _target7536575515_ - _tl7536775518_) + _tl7537175522_) + (___match7658276583_ + _e7536875509_ + _hd7536775513_ + _tl7536675516_ + ___splice7655876559_ + _target7536975519_ + _tl7537175522_) (if (gx#stx-pair? - _tl7536275512_) - (let ((_e7538175473_ + _tl7536675516_) + (let ((_e7538575477_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7536275512_))) - (let ((_tl7537975480_ - (let () (declare (not safe)) (##cdr _e7538175473_))) - (_hd7538075477_ + (gx#syntax-e _tl7536675516_))) + (let ((_tl7538375484_ + (let () (declare (not safe)) (##cdr _e7538575477_))) + (_hd7538475481_ (let () (declare (not safe)) - (##car _e7538175473_)))) - (if (gx#stx-null? _tl7537975480_) - (___kont7655676557_ _hd7538075477_ _hd7536375509_) - (if (gx#stx-pair? _tl7537975480_) - (let ((_e7539375426_ - (gx#syntax-e _tl7537975480_))) - (let ((_tl7539175433_ + (##car _e7538575477_)))) + (if (gx#stx-null? _tl7538375484_) + (___kont7656076561_ _hd7538475481_ _hd7536775513_) + (if (gx#stx-pair? _tl7538375484_) + (let ((_e7539775430_ + (gx#syntax-e _tl7538375484_))) + (let ((_tl7539575437_ (let () (declare (not safe)) - (##cdr _e7539375426_))) - (_hd7539275430_ + (##cdr _e7539775430_))) + (_hd7539675434_ (let () (declare (not safe)) - (##car _e7539375426_)))) - (if (gx#stx-null? _tl7539175433_) - (___kont7655876559_ - _hd7539275430_ - _hd7538075477_ - _hd7536375509_) + (##car _e7539775430_)))) + (if (gx#stx-null? _tl7539575437_) + (___kont7656276563_ + _hd7539675434_ + _hd7538475481_ + _hd7536775513_) (let () (declare (not safe)) - (_g7535975399_))))) - (let () (declare (not safe)) (_g7535975399_)))))) - (let () (declare (not safe)) (_g7535975399_)))))) + (_g7536375403_))))) + (let () (declare (not safe)) (_g7536375403_)))))) + (let () (declare (not safe)) (_g7536375403_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl7536275512_) - (let ((_e7538175473_ + (if (gx#stx-pair? _tl7536675516_) + (let ((_e7538575477_ (gx#syntax-e - _tl7536275512_))) - (let ((_tl7537975480_ + _tl7536675516_))) + (let ((_tl7538375484_ (let () (declare (not safe)) - (##cdr _e7538175473_))) - (_hd7538075477_ + (##cdr _e7538575477_))) + (_hd7538475481_ (let () (declare (not safe)) - (##car _e7538175473_)))) + (##car _e7538575477_)))) (if (gx#stx-null? - _tl7537975480_) - (___kont7655676557_ - _hd7538075477_ - _hd7536375509_) + _tl7538375484_) + (___kont7656076561_ + _hd7538475481_ + _hd7536775513_) (if (gx#stx-pair? - _tl7537975480_) - (let ((_e7539375426_ + _tl7538375484_) + (let ((_e7539775430_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7537975480_))) - (let ((_tl7539175433_ + (gx#syntax-e _tl7538375484_))) + (let ((_tl7539575437_ (let () (declare (not safe)) - (##cdr _e7539375426_))) - (_hd7539275430_ + (##cdr _e7539775430_))) + (_hd7539675434_ (let () (declare (not safe)) - (##car _e7539375426_)))) - (if (gx#stx-null? _tl7539175433_) - (___kont7655876559_ - _hd7539275430_ - _hd7538075477_ - _hd7536375509_) - (let () (declare (not safe)) (_g7535975399_))))) - (let () (declare (not safe)) (_g7535975399_)))))) + (##car _e7539775430_)))) + (if (gx#stx-null? _tl7539575437_) + (___kont7656276563_ + _hd7539675434_ + _hd7538475481_ + _hd7536775513_) + (let () (declare (not safe)) (_g7536375403_))))) + (let () (declare (not safe)) (_g7536375403_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7535975399_)))) - (if (gx#stx-pair? _tl7536275512_) - (let ((_e7538175473_ + (_g7536375403_)))) + (if (gx#stx-pair? _tl7536675516_) + (let ((_e7538575477_ (gx#syntax-e - _tl7536275512_))) - (let ((_tl7537975480_ + _tl7536675516_))) + (let ((_tl7538375484_ (let () (declare (not safe)) - (##cdr _e7538175473_))) - (_hd7538075477_ + (##cdr _e7538575477_))) + (_hd7538475481_ (let () (declare (not safe)) - (##car _e7538175473_)))) + (##car _e7538575477_)))) (if (gx#stx-null? - _tl7537975480_) - (___kont7655676557_ - _hd7538075477_ - _hd7536375509_) + _tl7538375484_) + (___kont7656076561_ + _hd7538475481_ + _hd7536775513_) (if (gx#stx-pair? - _tl7537975480_) - (let ((_e7539375426_ + _tl7538375484_) + (let ((_e7539775430_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7537975480_))) - (let ((_tl7539175433_ - (let () (declare (not safe)) (##cdr _e7539375426_))) - (_hd7539275430_ + (gx#syntax-e _tl7538375484_))) + (let ((_tl7539575437_ + (let () (declare (not safe)) (##cdr _e7539775430_))) + (_hd7539675434_ (let () (declare (not safe)) - (##car _e7539375426_)))) - (if (gx#stx-null? _tl7539175433_) - (___kont7655876559_ - _hd7539275430_ - _hd7538075477_ - _hd7536375509_) - (let () (declare (not safe)) (_g7535975399_))))) - (let () (declare (not safe)) (_g7535975399_)))))) + (##car _e7539775430_)))) + (if (gx#stx-null? _tl7539575437_) + (___kont7656276563_ + _hd7539675434_ + _hd7538475481_ + _hd7536775513_) + (let () (declare (not safe)) (_g7536375403_))))) + (let () (declare (not safe)) (_g7536375403_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7535975399_)))) - (if (gx#stx-pair? _tl7536275512_) - (let ((_e7538175473_ - (gx#syntax-e _tl7536275512_))) - (let ((_tl7537975480_ + (_g7536375403_)))) + (if (gx#stx-pair? _tl7536675516_) + (let ((_e7538575477_ + (gx#syntax-e _tl7536675516_))) + (let ((_tl7538375484_ (let () (declare (not safe)) - (##cdr _e7538175473_))) - (_hd7538075477_ + (##cdr _e7538575477_))) + (_hd7538475481_ (let () (declare (not safe)) - (##car _e7538175473_)))) - (if (gx#stx-null? _tl7537975480_) - (___kont7655676557_ - _hd7538075477_ - _hd7536375509_) + (##car _e7538575477_)))) + (if (gx#stx-null? _tl7538375484_) + (___kont7656076561_ + _hd7538475481_ + _hd7536775513_) (if (gx#stx-pair? - _tl7537975480_) - (let ((_e7539375426_ + _tl7538375484_) + (let ((_e7539775430_ (gx#syntax-e - _tl7537975480_))) - (let ((_tl7539175433_ + _tl7538375484_))) + (let ((_tl7539575437_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e7539375426_))) - (_hd7539275430_ - (let () (declare (not safe)) (##car _e7539375426_)))) - (if (gx#stx-null? _tl7539175433_) - (___kont7655876559_ - _hd7539275430_ - _hd7538075477_ - _hd7536375509_) - (let () (declare (not safe)) (_g7535975399_))))) - (let () (declare (not safe)) (_g7535975399_)))))) + (##cdr _e7539775430_))) + (_hd7539675434_ + (let () (declare (not safe)) (##car _e7539775430_)))) + (if (gx#stx-null? _tl7539575437_) + (___kont7656276563_ + _hd7539675434_ + _hd7538475481_ + _hd7536775513_) + (let () (declare (not safe)) (_g7536375403_))))) + (let () (declare (not safe)) (_g7536375403_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7535975399_)))))) + (_g7536375403_)))))) (let () (declare (not safe)) - (_g7535975399_)))))))))) + (_g7536375403_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g7529675307_)))) - (_g7529475572_ - (_recur75194_ _rest75230_))))) - _g7526875279_)))) - (_g7526675576_ + _g7530075311_)))) + (_g7529875576_ + (_recur75198_ _rest75234_))))) + _g7527275283_)))) + (_g7527075580_ (let () (declare (not safe)) - (cons _L75249_ '())))))) - _g7523575246_)))) - (_g7523375580_ (gx#genident '$E))))) + (cons _L75253_ '())))))) + _g7523975250_)))) + (_g7523775584_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K7520375222_ + (_K7520775226_ (lambda () - (let ((__tmp76739 + (let ((__tmp76743 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp76736 - (let ((__tmp76737 + (__tmp76740 + (let ((__tmp76741 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp76738 + (let ((__tmp76742 (let () (declare (not safe)) - (cons _L75172_ '())))) + (cons _L75176_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp76738)))) + __tmp76742)))) (declare (not safe)) - (cons '#f __tmp76737)))) + (cons '#f __tmp76741)))) (declare (not safe)) - (cons __tmp76739 __tmp76736))))) + (cons __tmp76743 __tmp76740))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match7520175226_ + (let ((_try-match7520575230_ (lambda () (if (let () (declare (not safe)) - (##null? _rest7519975208_)) - (_K7520375222_) - (_E7520275214_))))) + (##null? _rest7520375212_)) + (_K7520775226_) + (_E7520675218_))))) (if (let () (declare (not safe)) - (##pair? _rest7519975208_)) - (let ((_tl7520675591_ + (##pair? _rest7520375212_)) + (let ((_tl7521075595_ (let () (declare (not safe)) - (##cdr _rest7519975208_))) - (_hd7520575588_ + (##cdr _rest7520375212_))) + (_hd7520975592_ (let () (declare (not safe)) - (##car _rest7519975208_)))) - (let ((_hd75594_ - _hd7520575588_) - (_rest75597_ - _tl7520675591_)) - (_K7520475584_ - _rest75597_ - _hd75594_))) - (_try-match7520175226_))))))) - _clause7509675165_ - _hd7508675133_ - _hd7508375123_)))))) - (_loop7509175145_ _target7508875139_ '())) - (_g7507475102_ _g7507575106_))))) + (##car _rest7520375212_)))) + (let ((_hd75598_ + _hd7520975592_) + (_rest75601_ + _tl7521075595_)) + (_K7520875588_ + _rest75601_ + _hd75598_))) + (_try-match7520575230_))))))) + _clause7510075169_ + _hd7509075137_ + _hd7508775127_)))))) + (_loop7509575149_ _target7509275143_ '())) + (_g7507875106_ _g7507975110_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7507475102_ - _g7507575106_)))) - (_g7507475102_ _g7507575106_)))) - (_g7507475102_ _g7507575106_)))) - (_g7507475102_ _g7507575106_))))) - (_g7507375608_ _stx75068_))))) + (_g7507875106_ + _g7507975110_)))) + (_g7507875106_ _g7507975110_)))) + (_g7507875106_ _g7507975110_)))) + (_g7507875106_ _g7507975110_))))) + (_g7507775612_ _stx75072_))))) (define |[:0:]#SyntaxError| - (let ((__obj76622 + (let ((__obj76626 (let () (declare (not safe)) (##structure @@ -1464,7 +1464,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76622 + __obj76626 'gerbil/runtime/syntax#SyntaxError::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1472,7 +1472,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76622 + __obj76626 'SyntaxError '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1480,26 +1480,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76622 + __obj76626 '(message irritants where context phi marks) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76741 - (let ((__tmp76742 |[1]#_g76743_|)) + (let ((__tmp76745 + (let ((__tmp76746 |[1]#_g76747_|)) (declare (not safe)) - (cons __tmp76742 '())))) + (cons __tmp76746 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj76622 - __tmp76741 + __obj76626 + __tmp76745 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj76622 + __obj76626 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1507,7 +1507,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76622 + __obj76626 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1515,7 +1515,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76622 + __obj76626 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1523,254 +1523,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76622 + __obj76626 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76744 |[1]#_g76745_|)) + (let ((__tmp76748 |[1]#_g76749_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76622 - __tmp76744 + __obj76626 + __tmp76748 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76746 |[1]#_g76747_|)) + (let ((__tmp76750 |[1]#_g76751_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76622 - __tmp76746 + __obj76626 + __tmp76750 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76748 |[1]#_g76749_|)) + (let ((__tmp76752 |[1]#_g76753_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76622 - __tmp76748 + __obj76626 + __tmp76752 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76750 - (let ((__tmp76771 - (let ((__tmp76772 |[1]#_g76773_|)) + (let ((__tmp76754 + (let ((__tmp76775 + (let ((__tmp76776 |[1]#_g76777_|)) (declare (not safe)) - (cons 'message __tmp76772))) - (__tmp76751 - (let ((__tmp76768 - (let ((__tmp76769 |[1]#_g76770_|)) + (cons 'message __tmp76776))) + (__tmp76755 + (let ((__tmp76772 + (let ((__tmp76773 |[1]#_g76774_|)) (declare (not safe)) - (cons 'irritants __tmp76769))) - (__tmp76752 - (let ((__tmp76765 - (let ((__tmp76766 |[1]#_g76767_|)) + (cons 'irritants __tmp76773))) + (__tmp76756 + (let ((__tmp76769 + (let ((__tmp76770 |[1]#_g76771_|)) (declare (not safe)) - (cons 'where __tmp76766))) - (__tmp76753 - (let ((__tmp76762 - (let ((__tmp76763 |[1]#_g76764_|)) + (cons 'where __tmp76770))) + (__tmp76757 + (let ((__tmp76766 + (let ((__tmp76767 |[1]#_g76768_|)) (declare (not safe)) - (cons 'context __tmp76763))) - (__tmp76754 - (let ((__tmp76759 - (let ((__tmp76760 - |[1]#_g76761_|)) + (cons 'context __tmp76767))) + (__tmp76758 + (let ((__tmp76763 + (let ((__tmp76764 + |[1]#_g76765_|)) (declare (not safe)) - (cons 'phi __tmp76760))) - (__tmp76755 - (let ((__tmp76756 - (let ((__tmp76757 - |[1]#_g76758_|)) + (cons 'phi __tmp76764))) + (__tmp76759 + (let ((__tmp76760 + (let ((__tmp76761 + |[1]#_g76762_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp76757)))) + __tmp76761)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76756 '())))) + (cons __tmp76760 '())))) (declare (not safe)) - (cons __tmp76759 __tmp76755)))) + (cons __tmp76763 __tmp76759)))) (declare (not safe)) - (cons __tmp76762 __tmp76754)))) + (cons __tmp76766 __tmp76758)))) (declare (not safe)) - (cons __tmp76765 __tmp76753)))) + (cons __tmp76769 __tmp76757)))) (declare (not safe)) - (cons __tmp76768 __tmp76752)))) + (cons __tmp76772 __tmp76756)))) (declare (not safe)) - (cons __tmp76771 __tmp76751)))) + (cons __tmp76775 __tmp76755)))) (declare (not safe)) (##unchecked-structure-set! - __obj76622 - __tmp76750 + __obj76626 + __tmp76754 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76774 - (let ((__tmp76795 - (let ((__tmp76796 |[1]#_g76797_|)) + (let ((__tmp76778 + (let ((__tmp76799 + (let ((__tmp76800 |[1]#_g76801_|)) (declare (not safe)) - (cons 'message __tmp76796))) - (__tmp76775 - (let ((__tmp76792 - (let ((__tmp76793 |[1]#_g76794_|)) + (cons 'message __tmp76800))) + (__tmp76779 + (let ((__tmp76796 + (let ((__tmp76797 |[1]#_g76798_|)) (declare (not safe)) - (cons 'irritants __tmp76793))) - (__tmp76776 - (let ((__tmp76789 - (let ((__tmp76790 |[1]#_g76791_|)) + (cons 'irritants __tmp76797))) + (__tmp76780 + (let ((__tmp76793 + (let ((__tmp76794 |[1]#_g76795_|)) (declare (not safe)) - (cons 'where __tmp76790))) - (__tmp76777 - (let ((__tmp76786 - (let ((__tmp76787 |[1]#_g76788_|)) + (cons 'where __tmp76794))) + (__tmp76781 + (let ((__tmp76790 + (let ((__tmp76791 |[1]#_g76792_|)) (declare (not safe)) - (cons 'context __tmp76787))) - (__tmp76778 - (let ((__tmp76783 - (let ((__tmp76784 - |[1]#_g76785_|)) + (cons 'context __tmp76791))) + (__tmp76782 + (let ((__tmp76787 + (let ((__tmp76788 + |[1]#_g76789_|)) (declare (not safe)) - (cons 'phi __tmp76784))) - (__tmp76779 - (let ((__tmp76780 - (let ((__tmp76781 - |[1]#_g76782_|)) + (cons 'phi __tmp76788))) + (__tmp76783 + (let ((__tmp76784 + (let ((__tmp76785 + |[1]#_g76786_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp76781)))) + __tmp76785)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76780 '())))) + (cons __tmp76784 '())))) (declare (not safe)) - (cons __tmp76783 __tmp76779)))) + (cons __tmp76787 __tmp76783)))) (declare (not safe)) - (cons __tmp76786 __tmp76778)))) + (cons __tmp76790 __tmp76782)))) (declare (not safe)) - (cons __tmp76789 __tmp76777)))) + (cons __tmp76793 __tmp76781)))) (declare (not safe)) - (cons __tmp76792 __tmp76776)))) + (cons __tmp76796 __tmp76780)))) (declare (not safe)) - (cons __tmp76795 __tmp76775)))) + (cons __tmp76799 __tmp76779)))) (declare (not safe)) (##unchecked-structure-set! - __obj76622 - __tmp76774 + __obj76626 + __tmp76778 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76798 - (let ((__tmp76819 - (let ((__tmp76820 |[1]#_g76821_|)) + (let ((__tmp76802 + (let ((__tmp76823 + (let ((__tmp76824 |[1]#_g76825_|)) (declare (not safe)) - (cons 'message __tmp76820))) - (__tmp76799 - (let ((__tmp76816 - (let ((__tmp76817 |[1]#_g76818_|)) + (cons 'message __tmp76824))) + (__tmp76803 + (let ((__tmp76820 + (let ((__tmp76821 |[1]#_g76822_|)) (declare (not safe)) - (cons 'irritants __tmp76817))) - (__tmp76800 - (let ((__tmp76813 - (let ((__tmp76814 |[1]#_g76815_|)) + (cons 'irritants __tmp76821))) + (__tmp76804 + (let ((__tmp76817 + (let ((__tmp76818 |[1]#_g76819_|)) (declare (not safe)) - (cons 'where __tmp76814))) - (__tmp76801 - (let ((__tmp76810 - (let ((__tmp76811 |[1]#_g76812_|)) + (cons 'where __tmp76818))) + (__tmp76805 + (let ((__tmp76814 + (let ((__tmp76815 |[1]#_g76816_|)) (declare (not safe)) - (cons 'context __tmp76811))) - (__tmp76802 - (let ((__tmp76807 - (let ((__tmp76808 - |[1]#_g76809_|)) + (cons 'context __tmp76815))) + (__tmp76806 + (let ((__tmp76811 + (let ((__tmp76812 + |[1]#_g76813_|)) (declare (not safe)) - (cons 'phi __tmp76808))) - (__tmp76803 - (let ((__tmp76804 - (let ((__tmp76805 - |[1]#_g76806_|)) + (cons 'phi __tmp76812))) + (__tmp76807 + (let ((__tmp76808 + (let ((__tmp76809 + |[1]#_g76810_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp76805)))) + __tmp76809)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76804 '())))) + (cons __tmp76808 '())))) (declare (not safe)) - (cons __tmp76807 __tmp76803)))) + (cons __tmp76811 __tmp76807)))) (declare (not safe)) - (cons __tmp76810 __tmp76802)))) + (cons __tmp76814 __tmp76806)))) (declare (not safe)) - (cons __tmp76813 __tmp76801)))) + (cons __tmp76817 __tmp76805)))) (declare (not safe)) - (cons __tmp76816 __tmp76800)))) + (cons __tmp76820 __tmp76804)))) (declare (not safe)) - (cons __tmp76819 __tmp76799)))) + (cons __tmp76823 __tmp76803)))) (declare (not safe)) (##unchecked-structure-set! - __obj76622 - __tmp76798 + __obj76626 + __tmp76802 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76822 - (let ((__tmp76843 - (let ((__tmp76844 |[1]#_g76845_|)) + (let ((__tmp76826 + (let ((__tmp76847 + (let ((__tmp76848 |[1]#_g76849_|)) (declare (not safe)) - (cons 'message __tmp76844))) - (__tmp76823 - (let ((__tmp76840 - (let ((__tmp76841 |[1]#_g76842_|)) + (cons 'message __tmp76848))) + (__tmp76827 + (let ((__tmp76844 + (let ((__tmp76845 |[1]#_g76846_|)) (declare (not safe)) - (cons 'irritants __tmp76841))) - (__tmp76824 - (let ((__tmp76837 - (let ((__tmp76838 |[1]#_g76839_|)) + (cons 'irritants __tmp76845))) + (__tmp76828 + (let ((__tmp76841 + (let ((__tmp76842 |[1]#_g76843_|)) (declare (not safe)) - (cons 'where __tmp76838))) - (__tmp76825 - (let ((__tmp76834 - (let ((__tmp76835 |[1]#_g76836_|)) + (cons 'where __tmp76842))) + (__tmp76829 + (let ((__tmp76838 + (let ((__tmp76839 |[1]#_g76840_|)) (declare (not safe)) - (cons 'context __tmp76835))) - (__tmp76826 - (let ((__tmp76831 - (let ((__tmp76832 - |[1]#_g76833_|)) + (cons 'context __tmp76839))) + (__tmp76830 + (let ((__tmp76835 + (let ((__tmp76836 + |[1]#_g76837_|)) (declare (not safe)) - (cons 'phi __tmp76832))) - (__tmp76827 - (let ((__tmp76828 - (let ((__tmp76829 - |[1]#_g76830_|)) + (cons 'phi __tmp76836))) + (__tmp76831 + (let ((__tmp76832 + (let ((__tmp76833 + |[1]#_g76834_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp76829)))) + __tmp76833)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76828 '())))) + (cons __tmp76832 '())))) (declare (not safe)) - (cons __tmp76831 __tmp76827)))) + (cons __tmp76835 __tmp76831)))) (declare (not safe)) - (cons __tmp76834 __tmp76826)))) + (cons __tmp76838 __tmp76830)))) (declare (not safe)) - (cons __tmp76837 __tmp76825)))) + (cons __tmp76841 __tmp76829)))) (declare (not safe)) - (cons __tmp76840 __tmp76824)))) + (cons __tmp76844 __tmp76828)))) (declare (not safe)) - (cons __tmp76843 __tmp76823)))) + (cons __tmp76847 __tmp76827)))) (declare (not safe)) (##unchecked-structure-set! - __obj76622 - __tmp76822 + __obj76626 + __tmp76826 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj76622)) + __obj76626)) (define |[:0:]#AST| - (let ((__obj76624 + (let ((__obj76628 (let () (declare (not safe)) (##structure @@ -1794,7 +1794,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76624 + __obj76628 'gerbil#AST::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1802,7 +1802,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76624 + __obj76628 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1810,7 +1810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76624 + __obj76628 '(e source) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1818,7 +1818,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76624 + __obj76628 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1826,7 +1826,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76624 + __obj76628 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1834,7 +1834,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76624 + __obj76628 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1842,7 +1842,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76624 + __obj76628 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1850,117 +1850,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76624 + __obj76628 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76846 |[1]#_g76847_|)) + (let ((__tmp76850 |[1]#_g76851_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76624 - __tmp76846 + __obj76628 + __tmp76850 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76848 |[1]#_g76849_|)) + (let ((__tmp76852 |[1]#_g76853_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76624 - __tmp76848 + __obj76628 + __tmp76852 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76850 |[1]#_g76851_|)) + (let ((__tmp76854 |[1]#_g76855_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76624 - __tmp76850 + __obj76628 + __tmp76854 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76852 - (let ((__tmp76857 - (let ((__tmp76858 |[1]#_g76859_|)) + (let ((__tmp76856 + (let ((__tmp76861 + (let ((__tmp76862 |[1]#_g76863_|)) (declare (not safe)) - (cons 'e __tmp76858))) - (__tmp76853 - (let ((__tmp76854 - (let ((__tmp76855 |[1]#_g76856_|)) + (cons 'e __tmp76862))) + (__tmp76857 + (let ((__tmp76858 + (let ((__tmp76859 |[1]#_g76860_|)) (declare (not safe)) - (cons 'source __tmp76855)))) + (cons 'source __tmp76859)))) (declare (not safe)) - (cons __tmp76854 '())))) + (cons __tmp76858 '())))) (declare (not safe)) - (cons __tmp76857 __tmp76853)))) + (cons __tmp76861 __tmp76857)))) (declare (not safe)) (##unchecked-structure-set! - __obj76624 - __tmp76852 + __obj76628 + __tmp76856 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76860 - (let ((__tmp76865 - (let ((__tmp76866 |[1]#_g76867_|)) + (let ((__tmp76864 + (let ((__tmp76869 + (let ((__tmp76870 |[1]#_g76871_|)) (declare (not safe)) - (cons 'e __tmp76866))) - (__tmp76861 - (let ((__tmp76862 - (let ((__tmp76863 |[1]#_g76864_|)) + (cons 'e __tmp76870))) + (__tmp76865 + (let ((__tmp76866 + (let ((__tmp76867 |[1]#_g76868_|)) (declare (not safe)) - (cons 'source __tmp76863)))) + (cons 'source __tmp76867)))) (declare (not safe)) - (cons __tmp76862 '())))) + (cons __tmp76866 '())))) (declare (not safe)) - (cons __tmp76865 __tmp76861)))) + (cons __tmp76869 __tmp76865)))) (declare (not safe)) (##unchecked-structure-set! - __obj76624 - __tmp76860 + __obj76628 + __tmp76864 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76868 - (let ((__tmp76873 - (let ((__tmp76874 |[1]#_g76875_|)) + (let ((__tmp76872 + (let ((__tmp76877 + (let ((__tmp76878 |[1]#_g76879_|)) (declare (not safe)) - (cons 'e __tmp76874))) - (__tmp76869 - (let ((__tmp76870 - (let ((__tmp76871 |[1]#_g76872_|)) + (cons 'e __tmp76878))) + (__tmp76873 + (let ((__tmp76874 + (let ((__tmp76875 |[1]#_g76876_|)) (declare (not safe)) - (cons 'source __tmp76871)))) + (cons 'source __tmp76875)))) (declare (not safe)) - (cons __tmp76870 '())))) + (cons __tmp76874 '())))) (declare (not safe)) - (cons __tmp76873 __tmp76869)))) + (cons __tmp76877 __tmp76873)))) (declare (not safe)) (##unchecked-structure-set! - __obj76624 - __tmp76868 + __obj76628 + __tmp76872 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76876 - (let ((__tmp76881 - (let ((__tmp76882 |[1]#_g76883_|)) + (let ((__tmp76880 + (let ((__tmp76885 + (let ((__tmp76886 |[1]#_g76887_|)) (declare (not safe)) - (cons 'e __tmp76882))) - (__tmp76877 - (let ((__tmp76878 - (let ((__tmp76879 |[1]#_g76880_|)) + (cons 'e __tmp76886))) + (__tmp76881 + (let ((__tmp76882 + (let ((__tmp76883 |[1]#_g76884_|)) (declare (not safe)) - (cons 'source __tmp76879)))) + (cons 'source __tmp76883)))) (declare (not safe)) - (cons __tmp76878 '())))) + (cons __tmp76882 '())))) (declare (not safe)) - (cons __tmp76881 __tmp76877)))) + (cons __tmp76885 __tmp76881)))) (declare (not safe)) (##unchecked-structure-set! - __obj76624 - __tmp76876 + __obj76628 + __tmp76880 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj76624)))) + __obj76628)))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index 47f647a38..f3845d7e6 100644 --- a/src/bootstrap/gerbil/runtime/system~0.scm +++ b/src/bootstrap/gerbil/runtime/system~0.scm @@ -1,8 +1,8 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1710781148) + (define gerbil/runtime/system::timestamp 1710833423) (begin - (define gerbil-version-string (lambda () '"v0.18.1-75-g60b3e6ba")) + (define gerbil-version-string (lambda () '"v0.18.1-69-g37a9e2f1")) (define gerbil-system-manifest (let ((__tmp62251 (let ((__tmp62252 diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index 02fa82906..7c7a83b20 100644 --- a/src/bootstrap/gerbil/runtime/table~0.scm +++ b/src/bootstrap/gerbil/runtime/table~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/table::timestamp 1710781148) + (define gerbil/runtime/table::timestamp 1710833423) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index 67fabcb29..41fd036d7 100644 --- a/src/bootstrap/gerbil/runtime/thread~0.scm +++ b/src/bootstrap/gerbil/runtime/thread~0.scm @@ -1,226 +1,226 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1710781148) + (define gerbil/runtime/thread::timestamp 1710833424) (begin (define spawn - (lambda (_f74928_ . _args74929_) - (if (let () (declare (not safe)) (procedure? _f74928_)) + (lambda (_f74932_ . _args74933_) + (if (let () (declare (not safe)) (procedure? _f74932_)) '#!void - (raise (let ((__obj74930 + (raise (let ((__obj74934 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj74930 + __obj74934 '"expected procedure" 'where: 'spawn 'irritants: - (let () (declare (not safe)) (cons _f74928_ '()))) - __obj74930))) + (let () (declare (not safe)) (cons _f74932_ '()))) + __obj74934))) (let () (declare (not safe)) - (spawn-actor _f74928_ _args74929_ '#!void '#f)))) + (spawn-actor _f74932_ _args74933_ '#!void '#f)))) (define spawn/name - (lambda (_name74924_ _f74925_ . _args74926_) - (if (let () (declare (not safe)) (procedure? _f74925_)) + (lambda (_name74928_ _f74929_ . _args74930_) + (if (let () (declare (not safe)) (procedure? _f74929_)) '#!void - (raise (let ((__obj74931 + (raise (let ((__obj74935 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj74931 + __obj74935 '"expected procedure" 'where: 'spawn/name 'irritants: - (let () (declare (not safe)) (cons _f74925_ '()))) - __obj74931))) + (let () (declare (not safe)) (cons _f74929_ '()))) + __obj74935))) (let () (declare (not safe)) - (spawn-actor _f74925_ _args74926_ _name74924_ '#f)))) + (spawn-actor _f74929_ _args74930_ _name74928_ '#f)))) (define spawn/group - (lambda (_name74918_ _f74919_ . _args74920_) - (if (let () (declare (not safe)) (procedure? _f74919_)) + (lambda (_name74922_ _f74923_ . _args74924_) + (if (let () (declare (not safe)) (procedure? _f74923_)) '#!void - (raise (let ((__obj74932 + (raise (let ((__obj74936 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj74932 + __obj74936 '"expected procedure" 'where: 'spawn/group 'irritants: - (let () (declare (not safe)) (cons _f74919_ '()))) - __obj74932))) - (let ((_tgroup74922_ (make-thread-group _name74918_))) + (let () (declare (not safe)) (cons _f74923_ '()))) + __obj74936))) + (let ((_tgroup74926_ (make-thread-group _name74922_))) (declare (not safe)) - (spawn-actor _f74919_ _args74920_ _name74918_ _tgroup74922_)))) + (spawn-actor _f74923_ _args74924_ _name74922_ _tgroup74926_)))) (define spawn-actor - (lambda (_f74891_ _args74892_ _name74893_ _tgroup74894_) - (letrec ((_thread-main74896_ - (lambda (_thunk74910_) + (lambda (_f74895_ _args74896_ _name74897_ _tgroup74898_) + (letrec ((_thread-main74900_ + (lambda (_thunk74914_) (lambda () (with-exception-handler - (lambda (_exn74913_) - (let ((__tmp74934 - (lambda (_cont74915_) + (lambda (_exn74917_) + (let ((__tmp74938 + (lambda (_cont74919_) (if __unhandled-actor-exception-hook - (let ((__tmp74935 + (let ((__tmp74939 (lambda () (__unhandled-actor-exception-hook - _cont74915_ - _exn74913_)))) + _cont74919_ + _exn74917_)))) (declare (not safe)) - (with-catch void __tmp74935)) + (with-catch void __tmp74939)) '#!void) - (let ((__tmp74936 + (let ((__tmp74940 (let () (declare (not safe)) - (##continuation-last _cont74915_)))) + (##continuation-last _cont74919_)))) (declare (not safe)) (##continuation-graft - __tmp74936 + __tmp74940 ##primordial-exception-handler - _exn74913_))))) + _exn74917_))))) (declare (not safe)) - (##continuation-capture __tmp74934))) - _thunk74910_))))) - (let* ((_thunk74899_ - (if (let () (declare (not safe)) (null? _args74892_)) - _f74891_ - (lambda () (apply _f74891_ _args74892_)))) - (_thunk74902_ + (##continuation-capture __tmp74938))) + _thunk74914_))))) + (let* ((_thunk74903_ + (if (let () (declare (not safe)) (null? _args74896_)) + _f74895_ + (lambda () (apply _f74895_ _args74896_)))) + (_thunk74906_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk74899_)))) - (_tgroup74907_ - (let ((_$e74904_ _tgroup74894_)) - (if _$e74904_ - _$e74904_ + (with-exception-stack-trace__0 _thunk74903_)))) + (_tgroup74911_ + (let ((_$e74908_ _tgroup74898_)) + (if _$e74908_ + _$e74908_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main74896_ _thunk74902_)) - _name74893_ - _tgroup74907_)))))) + (let () (declare (not safe)) (_thread-main74900_ _thunk74906_)) + _name74897_ + _tgroup74911_)))))) (define spawn-thread__% - (lambda (_thunk74869_ _name74870_ _tgroup74871_) - (thread-start! (make-thread _thunk74869_ _name74870_ _tgroup74871_)))) + (lambda (_thunk74873_ _name74874_ _tgroup74875_) + (thread-start! (make-thread _thunk74873_ _name74874_ _tgroup74875_)))) (define spawn-thread__0 - (lambda (_thunk74876_) - (let* ((_name74878_ absent-obj) (_tgroup74880_ absent-obj)) + (lambda (_thunk74880_) + (let* ((_name74882_ absent-obj) (_tgroup74884_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk74876_ _name74878_ _tgroup74880_)))) + (spawn-thread__% _thunk74880_ _name74882_ _tgroup74884_)))) (define spawn-thread__1 - (lambda (_thunk74882_ _name74883_) - (let ((_tgroup74885_ absent-obj)) + (lambda (_thunk74886_ _name74887_) + (let ((_tgroup74889_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk74882_ _name74883_ _tgroup74885_)))) + (spawn-thread__% _thunk74886_ _name74887_ _tgroup74889_)))) (define spawn-thread - (lambda _g74938_ - (let ((_g74937_ (let () (declare (not safe)) (##length _g74938_)))) - (cond ((let () (declare (not safe)) (##fx= _g74937_ 1)) - (apply (lambda (_thunk74876_) + (lambda _g74942_ + (let ((_g74941_ (let () (declare (not safe)) (##length _g74942_)))) + (cond ((let () (declare (not safe)) (##fx= _g74941_ 1)) + (apply (lambda (_thunk74880_) (let () (declare (not safe)) - (spawn-thread__0 _thunk74876_))) - _g74938_)) - ((let () (declare (not safe)) (##fx= _g74937_ 2)) - (apply (lambda (_thunk74882_ _name74883_) + (spawn-thread__0 _thunk74880_))) + _g74942_)) + ((let () (declare (not safe)) (##fx= _g74941_ 2)) + (apply (lambda (_thunk74886_ _name74887_) (let () (declare (not safe)) - (spawn-thread__1 _thunk74882_ _name74883_))) - _g74938_)) - ((let () (declare (not safe)) (##fx= _g74937_ 3)) - (apply (lambda (_thunk74887_ _name74888_ _tgroup74889_) + (spawn-thread__1 _thunk74886_ _name74887_))) + _g74942_)) + ((let () (declare (not safe)) (##fx= _g74941_ 3)) + (apply (lambda (_thunk74891_ _name74892_ _tgroup74893_) (let () (declare (not safe)) (spawn-thread__% - _thunk74887_ - _name74888_ - _tgroup74889_))) - _g74938_)) + _thunk74891_ + _name74892_ + _tgroup74893_))) + _g74942_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g74938_)))))) + _g74942_)))))) (define thread-local-ref__% - (lambda (_key74853_ _default74854_) - (let ((_tab74856_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key74857_ _default74858_) + (let ((_tab74860_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-ref__% _tab74856_ _key74853_ _default74854_)))) + (hash-ref__% _tab74860_ _key74857_ _default74858_)))) (define thread-local-ref__0 - (lambda (_key74861_) - (let ((_default74863_ absent-obj)) + (lambda (_key74865_) + (let ((_default74867_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key74861_ _default74863_)))) + (thread-local-ref__% _key74865_ _default74867_)))) (define thread-local-ref - (lambda _g74940_ - (let ((_g74939_ (let () (declare (not safe)) (##length _g74940_)))) - (cond ((let () (declare (not safe)) (##fx= _g74939_ 1)) - (apply (lambda (_key74861_) + (lambda _g74944_ + (let ((_g74943_ (let () (declare (not safe)) (##length _g74944_)))) + (cond ((let () (declare (not safe)) (##fx= _g74943_ 1)) + (apply (lambda (_key74865_) (let () (declare (not safe)) - (thread-local-ref__0 _key74861_))) - _g74940_)) - ((let () (declare (not safe)) (##fx= _g74939_ 2)) - (apply (lambda (_key74865_ _default74866_) + (thread-local-ref__0 _key74865_))) + _g74944_)) + ((let () (declare (not safe)) (##fx= _g74943_ 2)) + (apply (lambda (_key74869_ _default74870_) (let () (declare (not safe)) - (thread-local-ref__% _key74865_ _default74866_))) - _g74940_)) + (thread-local-ref__% _key74869_ _default74870_))) + _g74944_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g74940_)))))) + _g74944_)))))) (define thread-local-get - (lambda (_key74850_) - (let () (declare (not safe)) (thread-local-ref__% _key74850_ '#f)))) + (lambda (_key74854_) + (let () (declare (not safe)) (thread-local-ref__% _key74854_ '#f)))) (define thread-local-set! - (lambda (_key74845_ _value74846_) - (let ((_tab74848_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key74849_ _value74850_) + (let ((_tab74852_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-put! _tab74848_ _key74845_ _value74846_)))) + (hash-put! _tab74852_ _key74849_ _value74850_)))) (define thread-local-delete! - (lambda (_key74841_) - (let ((_tab74843_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key74845_) + (let ((_tab74847_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-remove! _tab74843_ _key74841_)))) + (hash-remove! _tab74847_ _key74845_)))) (define thread-local-table (lambda () - (let ((_thr74827_ (current-thread))) - (if (actor-thread? _thr74827_) - (let ((_$e74829_ (actor-thread-locals _thr74827_))) - (if _$e74829_ - (values _$e74829_) - (let ((_tab74832_ + (let ((_thr74831_ (current-thread))) + (if (actor-thread? _thr74831_) + (let ((_$e74833_ (actor-thread-locals _thr74831_))) + (if _$e74833_ + (values _$e74833_) + (let ((_tab74836_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _thr74827_ _tab74832_) - _tab74832_))) + (actor-thread-locals-set! _thr74831_ _tab74836_) + _tab74836_))) (if (let () (declare (not safe)) - (eq? _thr74827_ ##primordial-thread)) + (eq? _thr74831_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e74834_ + (let ((_$e74838_ (let () (declare (not safe)) - (hash-get __thread-locals _thr74827_)))) - (if _$e74834_ - ((lambda (_tab74837_) + (hash-get __thread-locals _thr74831_)))) + (if _$e74838_ + ((lambda (_tab74841_) (mutex-unlock! __thread-locals-mutex) - _tab74837_) - _$e74834_) - (let ((_tab74839_ + _tab74841_) + _$e74838_) + (let ((_tab74843_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -228,10 +228,10 @@ (declare (not safe)) (hash-put! __thread-locals - _thr74827_ - _tab74839_)) + _thr74831_ + _tab74843_)) (mutex-unlock! __thread-locals-mutex) - _tab74839_))))))))) + _tab74843_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-hash-table-eq))) (define __thread-locals @@ -239,138 +239,138 @@ (define __thread-locals-mutex (make-mutex 'thread-locals)) (define __unhandled-actor-exception-hook '#f) (define unhandled-actor-exception-hook-set! - (lambda (_proc74824_) - (if (let () (declare (not safe)) (procedure? _proc74824_)) + (lambda (_proc74828_) + (if (let () (declare (not safe)) (procedure? _proc74828_)) '#!void - (raise (let ((__obj74933 + (raise (let ((__obj74937 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj74933 + __obj74937 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (let () (declare (not safe)) (cons _proc74824_ '()))) - __obj74933))) - (set! __unhandled-actor-exception-hook _proc74824_))) + (let () (declare (not safe)) (cons _proc74828_ '()))) + __obj74937))) + (set! __unhandled-actor-exception-hook _proc74828_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx74812_ _proc74813_) - (let ((_handler74815_ (current-exception-handler))) + (lambda (_mx74816_ _proc74817_) + (let ((_handler74819_ (current-exception-handler))) (with-exception-handler - (lambda (_e74817_) - (let ((__tmp74941 + (lambda (_e74821_) + (let ((__tmp74945 (lambda () - (mutex-unlock! _mx74812_) - (_handler74815_ _e74817_)))) + (mutex-unlock! _mx74816_) + (_handler74819_ _e74821_)))) (declare (not safe)) - (with-catch void __tmp74941)) + (with-catch void __tmp74945)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e74817_))) + (##thread-end-with-uncaught-exception! _e74821_))) (lambda () - (mutex-lock! _mx74812_) - (let ((_result74821_ (_proc74813_))) - (mutex-unlock! _mx74812_) - _result74821_)))))) + (mutex-lock! _mx74816_) + (let ((_result74825_ (_proc74817_))) + (mutex-unlock! _mx74816_) + _result74825_)))))) (define with-dynamic-lock - (lambda (_mx74807_ _proc74808_) + (lambda (_mx74811_ _proc74812_) (dynamic-wind - (lambda () (mutex-lock! _mx74807_)) - _proc74808_ - (lambda () (mutex-unlock! _mx74807_))))) + (lambda () (mutex-lock! _mx74811_)) + _proc74812_ + (lambda () (mutex-unlock! _mx74811_))))) (define with-exception-stack-trace__% - (lambda (_thunk74788_ _error-port74789_) + (lambda (_thunk74792_ _error-port74793_) (with-exception-handler - (let ((_E74791_ (current-exception-handler))) - (lambda (_exn74793_) + (let ((_E74795_ (current-exception-handler))) + (lambda (_exn74797_) (continuation-capture - (lambda (_cont74795_) + (lambda (_cont74799_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont74795_ - _exn74793_ - _error-port74789_)) + _cont74799_ + _exn74797_ + _error-port74793_)) '#!void) - (_E74791_ _exn74793_))))) - _thunk74788_))) + (_E74795_ _exn74797_))))) + _thunk74792_))) (define with-exception-stack-trace__0 - (lambda (_thunk74800_) - (let ((_error-port74802_ (current-error-port))) + (lambda (_thunk74804_) + (let ((_error-port74806_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk74800_ _error-port74802_)))) + (with-exception-stack-trace__% _thunk74804_ _error-port74806_)))) (define with-exception-stack-trace - (lambda _g74943_ - (let ((_g74942_ (let () (declare (not safe)) (##length _g74943_)))) - (cond ((let () (declare (not safe)) (##fx= _g74942_ 1)) - (apply (lambda (_thunk74800_) + (lambda _g74947_ + (let ((_g74946_ (let () (declare (not safe)) (##length _g74947_)))) + (cond ((let () (declare (not safe)) (##fx= _g74946_ 1)) + (apply (lambda (_thunk74804_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk74800_))) - _g74943_)) - ((let () (declare (not safe)) (##fx= _g74942_ 2)) - (apply (lambda (_thunk74804_ _error-port74805_) + (with-exception-stack-trace__0 _thunk74804_))) + _g74947_)) + ((let () (declare (not safe)) (##fx= _g74946_ 2)) + (apply (lambda (_thunk74808_ _error-port74809_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk74804_ - _error-port74805_))) - _g74943_)) + _thunk74808_ + _error-port74809_))) + _g74947_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g74943_)))))) + _g74947_)))))) (define dump-stack-trace!__% - (lambda (_cont74769_ _exn74770_ _error-port74771_) - (let ((_out74773_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out74773_)) - (display '"*** Unhandled exception in " _out74773_) - (display (current-thread) _out74773_) - (newline _out74773_) - (display-exception _exn74770_ _out74773_) + (lambda (_cont74773_ _exn74774_ _error-port74775_) + (let ((_out74777_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out74777_)) + (display '"*** Unhandled exception in " _out74777_) + (display (current-thread) _out74777_) + (newline _out74777_) + (display-exception _exn74774_ _out74777_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn74770_)) + (class-instance? StackTrace::t _exn74774_)) '#!void (begin - (display '"Continuation backtrace: " _out74773_) - (newline _out74773_) - (display-continuation-backtrace _cont74769_ _out74773_))) - (let ((__tmp74944 (get-output-string _out74773_))) + (display '"Continuation backtrace: " _out74777_) + (newline _out74777_) + (display-continuation-backtrace _cont74773_ _out74777_))) + (let ((__tmp74948 (get-output-string _out74777_))) (declare (not safe)) - (##write-string __tmp74944 _error-port74771_))))) + (##write-string __tmp74948 _error-port74775_))))) (define dump-stack-trace!__0 - (lambda (_cont74778_ _exn74779_) - (let ((_error-port74781_ (current-error-port))) + (lambda (_cont74782_ _exn74783_) + (let ((_error-port74785_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont74778_ _exn74779_ _error-port74781_)))) + (dump-stack-trace!__% _cont74782_ _exn74783_ _error-port74785_)))) (define dump-stack-trace! - (lambda _g74946_ - (let ((_g74945_ (let () (declare (not safe)) (##length _g74946_)))) - (cond ((let () (declare (not safe)) (##fx= _g74945_ 2)) - (apply (lambda (_cont74778_ _exn74779_) + (lambda _g74950_ + (let ((_g74949_ (let () (declare (not safe)) (##length _g74950_)))) + (cond ((let () (declare (not safe)) (##fx= _g74949_ 2)) + (apply (lambda (_cont74782_ _exn74783_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont74778_ _exn74779_))) - _g74946_)) - ((let () (declare (not safe)) (##fx= _g74945_ 3)) - (apply (lambda (_cont74783_ _exn74784_ _error-port74785_) + (dump-stack-trace!__0 _cont74782_ _exn74783_))) + _g74950_)) + ((let () (declare (not safe)) (##fx= _g74949_ 3)) + (apply (lambda (_cont74787_ _exn74788_ _error-port74789_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont74783_ - _exn74784_ - _error-port74785_))) - _g74946_)) + _cont74787_ + _exn74788_ + _error-port74789_))) + _g74950_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g74946_)))))) + _g74950_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 0501f0030..34978f39c 100644 --- a/src/bootstrap/gerbil/runtime/util~0.scm +++ b/src/bootstrap/gerbil/runtime/util~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1710781148) + (define gerbil/runtime/util::timestamp 1710833423) (begin (define displayln (lambda _args57303_ diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index 1d76325ae..0d38ba378 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 1710781149) '#!void) +(begin (define gerbil/runtime::timestamp 1710833424) '#!void) diff --git a/src/gerbil/runtime/hash.ss b/src/gerbil/runtime/hash.ss index b93724c52..771e74303 100644 --- a/src/gerbil/runtime/hash.ss +++ b/src/gerbil/runtime/hash.ss @@ -130,7 +130,7 @@ namespace: #f flags ; type-flags __table::t ; type-super fields ; type-fields - [] ; class-type-precedence-list + [object::t t::t] ; class-type-precedence-list slot-vector ; class-type-slot-vector slot-table ; class-type-slot-table properties ; class-type-properties @@ -173,7 +173,7 @@ namespace: #f flags ; type-flags __gc-table::t ; type-super fields ; type-fields - [] ; class-type-precedence-list + [object::t t::t] ; class-type-precedence-list slot-vector ; class-type-slot-vector slot-table ; class-type-slot-table properties ; class-type-properties